top  Index  Search  Changes  RSS  Login

DailyTemplate

こういう方向は需要ある?

;;; daily template: 日課の todo 項目を自動生成
;;; 
;;; (1) ~/dtmp.howm にテンプレートを書く. 例えば…
;;; 
;;; = 日課 (%Y年%m月%d日)
;;; [%Y-%m-%d]! さんぽ
;;; [%Y-%m-%d]! 水やり
;;; 
;;; (2) すると, 毎日 ~/howm/2004/06/d2004-06-04.howm のようなファイルが生成され,
;;; 中身は次のようになる
;;; 
;;; = 日課 (2004年06月04日)
;;; [2004-06-04]! さんぽ
;;; [2004-06-04]! 水やり

(setq dtmp-file "~/howm/%Y/%m/d%Y-%m-%d.howm")
(setq dtmp-template "~/dtmp.howm")
(defun dtmp-generate ()
  (let ((file (format-time-string dtmp-file)))
    (when (not (file-exists-p file))
      (let ((dir (file-name-directory file))
            (template (with-temp-buffer
                        (insert-file-contents dtmp-template)
                        (buffer-substring-no-properties (point-min)
                                                        (point-max)))))
        (make-directory dir t)
        (let ((buf (find-file-noselect file)))
          (with-current-buffer buf
            (insert (format-time-string template))
            (basic-save-buffer))
          (kill-buffer buf))))))
(add-hook 'howm-mode-hook 'dtmp-generate)

(Please LogIn to post comments.)

Last modified:2008/03/09 14:10:00
Keyword(s):
References:[RepeatedToDo]