- 208 名前：名無しさん＠お腹いっぱい。 mailto:sage [04/05/14 14:01]
- 読書メモの為に下みたいなのを挿入したいのですけども。
Date:2004-01-26
Page:
Memo:
で、ムチャクソ頑張って下みたいなのを書きました。
(defun bookz ()
"Retune the current time as a string in Date from."
(format-time-string "Date:%04Y-%02m-%02d\nPage:\nMemo:")
)
(defun insert-bookz nil
"Insert bookz."
(interactive)
(insert (bookz))
)
(define-key global-map "\C-c\C-d" 'insert-bookz)
なんかもっと綺麗に書く方法とかありますか？
