* 適当すぎる
(defun foo () (interactive) (let ((args (split-string (buffer-substring (progn (goto-bol) (skip-syntax-spec-forward "^(") (1+ (point))) (progn (goto-matched-parenthesis) (point))) #\,))) (skip-syntax-spec-backward "^(") (goto-bol) (forward-char -1) (insert (format nil "~%/**~% *~%~{ * @param ~A ~%~} */" (mapcar #'(lambda (x) (substitute-string (string-left-trim "*&" (car (last (split-string (string-trim " \t" x) " \t")))) "\\[[^\\]]*\\]" "")) args)))))
update : 2006-11-02 (Thu) 18:06:21