Emacsで作業中の編集画面から短期的なメモを気軽に書きたいので付箋代わりに *scratch*バッファーが使えるように設定してみた。
再起動しても*scratch* の内容が消えないように auto-save-buffers の *scratch* 自動保存機能を併用しています。
専用のパッケージもあるようです。
toggle-scratch は、編集中のバッファーとscratchとをトグルで切り替えます。
;; Scratch for sticky-memo
(leaf *scratch-memo
:after auto-save-buffers-enhanced
:bind ("S-<return>" . toggle-scratch)
:custom ((auto-save-buffers-enhanced-save-scratch-buffer-to-file-p . t)
(auto-save-buffers-enhanced-file-related-with-scratch-buffer . "~/.emacs.d/tmp/scratch"))
:init
(defun toggle-scratch ()
"Toggle current buffer and *scratch* buffer."
(interactive)
(if (not (string= "*scratch*" (buffer-name)))
(progn
(setq toggle-scratch-prev-buffer (buffer-name))
(switch-to-buffer "*scratch*"))
(switch-to-buffer toggle-scratch-prev-buffer)))
(defun read-scratch-data ()
(let ((file "~/.emacs.d/tmp/scratch"))
(when (file-exists-p file)
(set-buffer (get-buffer "*scratch*"))
(erase-buffer)
(insert-file-contents file))))
(read-scratch-data))
scratch付箋環境を実現させるのに必須なのは、決してscratchバッファーを消さないようにすること。
難しい関数を設定せずともビルトインコマンドで簡単に実現できます。
;; Set buffer that can not be killed
(with-current-buffer "*scratch*"
(emacs-lock-mode 'kill))
(with-current-buffer "*Messages*"
(emacs-lock-mode 'kill))