(bind-key* [f3] 'org-archive-subtree)
でファンクションキーに割り当てやると捗る。この作業はもっと早くやっておくべきだった。
(defun org-journal-save-entry-and-exit()
(interactive)
(goto-char (point-max))
(insert (format-time-string "<%Y-%m-%d %H:%M>" (current-time)))
(save-buffer)
(kill-buffer-and-window))
こういうのがちゃんと動作したときは気分がいい。