使い捨てコード用のファイルを開く

思い付いたら即コードを書けるように、しかし*scratch*や/tmp以下に書いてもすぐに消えてしまうのでもったいない。どうせだったら後学のために保存しておこうと思った。

http://read-eval-print.blogspot.com/2008/09/emacs.htmlより触発された。ほとんどぱくり。read-stringで拡張子を入力できるようにした。思ったより便利そうだ。さよなら*scratch*バッファ〜

(defun open-junk-file ()
  (interactive)
  (let* ((file (expand-file-name
                (format-time-string
                 "%Y/%m/%Y-%m-%d-%H%M%S." (current-time))
                "~/memo/junk/"))
         (dir (file-name-directory file)))
    (make-directory dir t)
    (find-file-other-window (read-string "Junk Code: " file))))

<2012-06-07 木>大学院生さんへ

ありがとうございます。

お役に立てれば嬉しいです。

拡張子txtを直接開くのは以下のコードです。

orgに書き換えれば、超拡張版ともいえるorg-modeになります。

(defun open-junk-file-instantly ()
  (interactive)
  (let* ((file (expand-file-name
                (format-time-string
                 "%Y/%m/%Y-%m-%d-%H%M%S.txt" (current-time))
                "~/memo/junk/"))
         (dir (file-name-directory file)))
    (make-directory dir t)
    (find-file-other-window file)))