meh

1 files changed, 24 insertions, 1 deletions

@@ -7,7 +7,8 @@
 (defun +scratch-immortal ()
   "Bury, don't kill \"*scratch*\" buffer.
 For `kill-buffer-query-functions'."
-  (if (eq (current-buffer) (get-buffer "*scratch*"))
+  (if (or (eq (current-buffer) (get-buffer "*scratch*"))
+          (eq (current-buffer) (get-buffer "*text*")))
       (progn (bury-buffer)
              nil)
     t))
@@ -35,5 +36,27 @@ For `kill-buffer-query-functions'."
     (concat (replace-regexp-in-string "^" ";; " s)
             "\n\n")))
 
+;; [[https://old.reddit.com/r/emacs/comments/ui1q41/weekly_tips_tricks_c_thread/i7ef4xg/][u/bhrgunatha]]
+(defun +scratch-text-scratch ()
+  "Create a \"*text*\" scratch buffer in Text mode."
+  (with-current-buffer (get-buffer-create "*text*")
+    (text-mode)))
+
+(defun +scratch-toggle (buffer)
+  "Switch to BUFFER, or to the previous buffer."
+  (switch-to-buffer (unless (eq (current-buffer)
+                                (get-buffer buffer))
+                      buffer)))
+
+(defun +scratch-switch-to-scratch ()
+  "Switch to scratch buffer."
+  (interactive)
+  (+scratch-toggle "*scratch*"))
+
+(defun +scratch-switch-to-text ()
+  "Switch to text buffer."
+  (interactive)
+  (+scratch-toggle "*text*"))
+
 (provide '+scratch)
 ;;; +scratch.el ends here