summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el11
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)