clmemoをはてなダイアリにポスト

でっちあげた.

(defun clmemo-htnd-submit()
(interactive)
  "cl2hatena.rb を呼ぶ"
(save-buffer)
(set-buffer (get-buffer-create "*htnd-submit-log*"))
(erase-buffer)
(display-buffer "*htnd-submit-log*")
(progn
  (call-process "cl2hatena.rb" nil "*htnd-submit-log*")))
(add-hook 'clmemo-mode-hook
'(lambda()
(define-key clmemo-mode-map "\C-c\C-c" 'clmemo-htnd-submit)))

バッファを表示する時間を指定できなかったかな? とか思うわけですが. 調べる余裕は無いのですよ. うー