[Emacs] 使い捨てファイルだけど捨てるのがもったいない

いままで /tmp/a.lisp など tmp ディレクトリに使い捨てファイルを作ってたけど、再起動時にきれいさっぱり消えてしまうのはなんだかもったいない気がしてきた。

それで howm を参考に elisp で現在日時ファイルを作成する関数をつくった。

(defun open-lisp-junk-file ()
  (interactive)
  (let* ((file (expand-file-name
                (format-time-string
                 "%Y/%m/%Y-%m-%d-%H%M%S.lisp" (current-time))
                "~/letter/lisp/junk/"))
         (dir (file-name-directory file)))
    (make-directory dir t)
    (find-file file)))
(global-set-key [(control ?c) (control ?\()] 'open-lisp-junk-file)