diff options
author | Case Duckworth | 2021-04-01 16:41:41 -0500 |
---|---|---|
committer | Case Duckworth | 2021-04-01 16:41:41 -0500 |
commit | 9af70cbf60e78309a3902315a7d444877677fdfe (patch) | |
tree | 6ca4570c50329b9668cc2669a26a6bb8151ce336 /lisp | |
parent | Add comments (diff) | |
download | emacs-9af70cbf60e78309a3902315a7d444877677fdfe.tar.gz emacs-9af70cbf60e78309a3902315a7d444877677fdfe.zip |
Define `acdw/reindent-buffer' and hook into elisp
Hopefully this will put a halt to all of my whitespace commits. Of course, this commit also includes whitespace-only diffs.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 6409f89..8096a70 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -58,6 +58,13 @@ Ready for use with `after-focus-change-function'." | |||
58 | (run-at-time sunset-time (* 60 60 24) sunset-command) | 58 | (run-at-time sunset-time (* 60 60 24) sunset-command) |
59 | (run-at-time "12:00am" (* 60 60 24) sunset-command))) | 59 | (run-at-time "12:00am" (* 60 60 24) sunset-command))) |
60 | 60 | ||
61 | ;;;; Re-indent a buffer | ||
62 | (defun acdw/reindent-buffer () | ||
63 | "Call `indent-region' on the whole buffer." | ||
64 | (interactive) | ||
65 | (save-excursion | ||
66 | (indent-region (point-min) (point-max)))) | ||
67 | |||
61 | ;;; Garbage collection hacks | 68 | ;;; Garbage collection hacks |
62 | 69 | ||
63 | (defconst acdw/gc-cons-threshold-basis (* 800 1024) | 70 | (defconst acdw/gc-cons-threshold-basis (* 800 1024) |
@@ -97,7 +104,7 @@ directory." | |||
97 | ;;; Reading mode | 104 | ;;; Reading mode |
98 | 105 | ||
99 | (define-minor-mode acdw/reading-mode | 106 | (define-minor-mode acdw/reading-mode |
100 | "A mode for reading." | 107 | "A mode for reading." |
101 | :init-value t | 108 | :init-value t |
102 | :lighter " Read" | 109 | :lighter " Read" |
103 | (if acdw/reading-mode | 110 | (if acdw/reading-mode |
@@ -144,7 +151,7 @@ directory." | |||
144 | "A keymap for my custom bindings.") | 151 | "A keymap for my custom bindings.") |
145 | 152 | ||
146 | (define-minor-mode acdw/mode | 153 | (define-minor-mode acdw/mode |
147 | "A mode for `acdw/map'." | 154 | "A mode for `acdw/map'." |
148 | :init-value t | 155 | :init-value t |
149 | :lighter " acdw" | 156 | :lighter " acdw" |
150 | :keymap acdw/map) | 157 | :keymap acdw/map) |