* xyzzy lisp : insert-include
てきとー
update : 2006-10-24 (Tue) 12:50:11
(defun insert-include (file &optional cwd) (interactive "lHeader: " :default0 (merge-pathnames "*.h")) (unless cwd (if (get-buffer-file-name) (setq cwd (directory-namestring (get-buffer-file-name))) (return-from insert-include nil))) (if (consp file) (dolist (f file) (insert-include f cwd)) (insert (format nil "~%#include \"~A\"" (substitute-string file (regexp-quote cwd) "" :case-fold t)))))
update : 2006-10-24 (Tue) 12:50:11