Put a quote in the scratch buffer

1 files changed, 13 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
index dcd15d5..02e2118 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -870,3 +870,16 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 (use-package anzu :ensure t)
 (global-set-key [remap query-replace] 'anzu-query-replace)
 (global-set-key [remap query-replace-regexp] 'anzu-query-replace-regexp)
+
+;; Put a quote in the scratch buffer
+
+(setopt cookie-file "~/data/quotes")
+
+(setopt initial-scratch-message
+        (concat (with-temp-buffer
+                  (emacs-lisp-mode)
+                  (insert (cookie cookie-file))
+                  (mark-whole-buffer)
+                  (comment-region (mark) (point))
+                  (buffer-substring (mark) (point)))
+                "\n\n"))