summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-12-05 22:37:41 -0600
committerCase Duckworth2021-12-05 22:37:41 -0600
commit58ab5fc5e29396d12aefa7248402dcb6df742680 (patch)
tree312431f4e0e362ee97714cc7e1969ff99624592d /lisp
parentRename +defaults to +emacs (diff)
downloademacs-58ab5fc5e29396d12aefa7248402dcb6df742680.tar.gz
emacs-58ab5fc5e29396d12aefa7248402dcb6df742680.zip
Stuff...
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+pulse.el2
-rw-r--r--lisp/+scratch.el29
-rw-r--r--lisp/+util.el3
3 files changed, 34 insertions, 0 deletions
diff --git a/lisp/+pulse.el b/lisp/+pulse.el index 6ba7ded..eefdd83 100644 --- a/lisp/+pulse.el +++ b/lisp/+pulse.el
@@ -2,6 +2,8 @@
2 2
3;;; Code: 3;;; Code:
4 4
5(require 'pulse)
6
5(defgroup +pulse nil 7(defgroup +pulse nil
6 "Extra customizations for `pulse'." 8 "Extra customizations for `pulse'."
7 :group 'pulse 9 :group 'pulse
diff --git a/lisp/+scratch.el b/lisp/+scratch.el new file mode 100644 index 0000000..976b08c --- /dev/null +++ b/lisp/+scratch.el
@@ -0,0 +1,29 @@
1;;; +scratch.el -*- lexical-binding: t; -*-
2
3;;; Code:
4
5(require 'scratch)
6
7(defun +scratch-immortal ()
8 "Bury, don't kill \"*scratc*\" buffer.
9For `kill-buffer-query-functions'."
10 (if (eq (current-buffer) (get-buffer "*scratch*"))
11 (progn (bury-buffer)
12 nil)
13 t))
14
15(defun +scratch-buffer-setup ()
16 "Add comment to `scratch' buffer and name it accordingly."
17 (let* ((mode (format "%s" major-mode))
18 (string (concat "Scratch buffer for:" mode "\n\n")))
19 (when scratch-buffer
20 (save-excursion
21 (insert string)
22 (goto-char (point-min))
23 (comment-region (point-at-bol) (point-at-eol)))
24 (next-line 2))
25 (rename-buffer (concat "*scratch<" mode ">*") t)))
26
27
28(provide '+scratch)
29;;; +scratch.el ends here
diff --git a/lisp/+util.el b/lisp/+util.el index 0870a71..0184a48 100644 --- a/lisp/+util.el +++ b/lisp/+util.el
@@ -77,5 +77,8 @@ ALIGNMENT can be one of these:
77 (if (eq alignment 'right) "" filler) 77 (if (eq alignment 'right) "" filler)
78 after))) 78 after)))
79 79
80;;; COMMANDS
81
82
80(provide '+util) 83(provide '+util)
81;;; +util.el ends here 84;;; +util.el ends here