howmからアップロードするEmacsコマンドを修正

howmに書いた日記をrubyの外部コマンドでアップロードしています。

例えば、この日記は一行目に= $hndiary:2007/10/02 02:24:47$と書かれています。最終アップロード日時をhowmのファイルに保存しておくためです*1。

.emacsに書いている内容

; カレントバッファのみをに渡す
(defun hatedara-submit (arg)
  (interactive "P")
  (let ((com hatedara-cmd)
        (opt hatedara-cmd-option)
        (full-path (buffer-file-name)))
    (if arg
    	(setq opt arg))
    (run-hooks 'hatedara-pre-submit-hook)
    (save-buffer)
    (save-excursion
      (set-buffer (get-buffer-create "*hatedara-submit*"))
      (if (get-process "hatedara-submit")
      (progn
        (delete-process "hatedara-submit")))
      (erase-buffer)
      (apply (function start-process)
         "hatedara-submit" "*hatedara-submit*" com full-path (split-string opt))
      (display-buffer "*hatedara-submit*"))))

(defun hatedara-trivial () (interactive)(hatedara-submit "-t"))
(eval-after-load "howm"
  '(progn
     (define-key howm-mode-map "\C-ch" 'hatedara-submit)
     (define-key howm-mode-map "\C-ct" 'hatedara-trivial)))

(add-hook 'hatedara-pre-submit-hook
  (function
   (lambda()
     (require 'time-stamp)
     (setq time-stamp-active t)
     (setq time-stamp-line-limit 1)
     (setq time-stamp-start "= $hndiary:")
     (setq time-stamp-format "%04y/%02m/%02d %02H:%02M:%02S$")
     (setq time-stamp-end "\$")
     (time-stamp))))

*1:1日1ファイルでの運用です