simple-hatena-mode

Emacs hatena

いままでは自作の Emacs-lisp + はてダラで書いてたんだけど長いものに巻かれておいたほうがいいかも、とか思ったので移行してみる。
とりあえず、Windows 用の設定。

(setq simple-hatena-bin
      (concat
       "perl "
       (expand-file-name "~/.hatena/hw.pl")))

いままで使っていたやつ。

(defvar hatena-diary-directory "~/diary/"
  "*directory to store diary for hatena diary")

(defvar hatena-diary-process-buffer-name "*hatena*")

(defun hatena (date)
  (interactive
   (list
    (let ((current-date (format-time-string "%Y-%m-%d" (current-time))))
      (read-string "Date: " current-date nil current-date))))
  (let ((file-name
         (expand-file-name (format "%s.txt" date) hatena-diary-directory)))
    (find-file file-name)))

(defun hatena-submit ()
  (interactive)
  (basic-save-buffer)
  (let ((default-directory hatena-diary-directory)
        (compilation-window-height 10))
    (compile "perl hw.pl" t)))

あと、日付の変わる時間を設定できるといいなぁ。はてなの設定の「毎日x時に日付が借ります」ってやつ。気が向いた時にでも改造しよう。