はてダラ on Emacs

はてなダイアリーライターを emacs から使う(暫定版) - おもてなしの空間

save-window-excursionで*compilation*バッファを表示させないようにしているくらいで、実はこれが実運用環境です。以前はてなの調子がおかしかった時、*compilation*バッファにログが残っていたので助かりました。
はてダラがしっかりしてくれているので、Emacsインターフェース側は十分簡略化されます。

(defun myhatena-submit ()
  "Submit hatena diary file."
  (interactive)
  (basic-save-buffer)
  (save-window-excursion (compile "hw.pl")))

おまけ

グループに書き込みするにはこれ。

(defvar hatena-groups '("dprogramming" "lisp" "ruby" "rubyist"))
(defun hatena-group (group)
  "Open today's hatena group diary file."
  (interactive
   (list (completing-read "Group: " (mapcar 'list hatena-groups) nil t)))
  (find-file
   (concatenate 'string hatena-dir "/" group "/"
                (format-time-string "%Y-%m-%d.txt" (current-time)))))

M-x hatena

emacs 上で、~/memo/hatena/2007-08-19.txt というバッファを開いて

それはM-x hatenaやM-x hatena-groupがやってくれます。