WOMO

howm 用のファイルだけを作る on xyzzy

Posted at Tue, 28 Aug 2007 in computer::xyzzy | WriteBacks (0)

howm をインストールする暇がちょっとないので、とりあえず howm 用のファイルだけ作る Lisp を書いてみた。 ファイル名は確かこんなでＯＫだった気がするけど、テンプレートが少し曖昧。

(defun make-howm-modoki-file (howm-dir)
  (let* ((filename (format-date-string "%Y/%m/%Y_%m_%d_%H%M%S.howm"))
		 (filepath (merge-pathnames filename howm-dir))
		 (directory (directory-namestring filepath)))
	(if (not (file-directory-p directory))
		(create-directory directory))
	(find-file filepath)
	(if (eq (point-max) (point-min))
		(progn
		  (insert (format-date-string "= \n[%Y-%m-%d %H:%M]\n"))
		  (goto-char (+ (point-min) 2))))
	))
(defun howm-modoki-create ()
  (interactive)
  (make-howm-modoki-file "~/howm"))
;; キー設定
(global-set-key '(#\C-c #\, #\c) 'howm-modoki-create)