3 files changed, 34 insertions, 0 deletions

@@ -2,6 +2,8 @@
 
 ;;; Code:
 
+(require 'pulse)
+
 (defgroup +pulse nil
   "Extra customizations for `pulse'."
   :group 'pulse
@@ -0,0 +1,29 @@
+;;; +scratch.el -*- lexical-binding: t; -*-
+
+;;; Code:
+
+(require 'scratch)
+
+(defun +scratch-immortal ()
+  "Bury, don't kill \"*scratc*\" buffer.
+For `kill-buffer-query-functions'."
+  (if (eq (current-buffer) (get-buffer "*scratch*"))
+      (progn (bury-buffer)
+             nil)
+    t))
+
+(defun +scratch-buffer-setup ()
+    "Add comment to `scratch' buffer and name it accordingly."
+    (let* ((mode (format "%s" major-mode))
+           (string (concat "Scratch buffer for:" mode "\n\n")))
+      (when scratch-buffer
+        (save-excursion
+          (insert string)
+          (goto-char (point-min))
+          (comment-region (point-at-bol) (point-at-eol)))
+        (next-line 2))
+      (rename-buffer (concat "*scratch<" mode ">*") t)))
+
+
+(provide '+scratch)
+;;; +scratch.el ends here
@@ -77,5 +77,8 @@ ALIGNMENT can be one of these:
             (if (eq alignment 'right) "" filler)
             after)))
 
+;;; COMMANDS
+
+
 (provide '+util)
 ;;; +util.el ends here