open-junk-file 使い分け

github.com

人によってはあんまり好きじゃないらしいopen-junk-fileで、こっちはjunkの下に、こっちはmemoの下に、みたいなことをやりたいときのemacs lisp

(require 'open-junk-file)
(setq open-junk-file-format "~/junk/%Y/%m/%d-%H%M%S.")
(global-set-key (kbd "C-x C-z") 'open-junk-file)

(defun open-junk-file-with-d ()
  (interactive)
  (setq open-junk-file-format-with-d "~/memo/%Y/%m/%d/%H%M%S.md")
  (open-junk-file open-junk-file-format-with-d))

(global-set-key (kbd "C-x z") 'open-junk-file-with-d)