Source of Nothingness - 適当すぎる

* 適当すぎる


(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