summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el30
1 files changed, 25 insertions, 5 deletions
diff --git a/init.el b/init.el index ccb35ca..9cfa7a9 100644 --- a/init.el +++ b/init.el
@@ -199,6 +199,29 @@
199 (:straight trashed) 199 (:straight trashed)
200 (:option trashed-action-confirmer #'y-or-n-p))) 200 (:option trashed-action-confirmer #'y-or-n-p)))
201 201
202(setup disabled
203 ;; While this stuff is defined in novice.el, I'm using 'disabled' as the name
204 ;; for easy finding.
205
206 ;; Enable all disabled commands.
207 (mapatoms (lambda (symbol)
208 (when (get symbol 'disabled)
209 (put symbol 'disabled nil))))
210
211 ;; Now, disable symbols as I wish.
212 (dolist (sym '(view-hello-file
213 suspend-frame
214 scroll-left
215 scroll-right))
216 (put sym 'disabled t))
217
218 ;; And set the disabled function to something better than the default.
219 (setq disabled-command-function
220 (defun acdw/disabled-command-function (&optional cmd keys)
221 (unless cmd (setq cmd this-command))
222 (unless keys (setq keys (this-command-keys)))
223 (message "Command `%s' is disabled." cmd))))
224
202(setup ediff 225(setup ediff
203 (:option ediff-window-setup-function 'ediff-setup-windows-plain 226 (:option ediff-window-setup-function 'ediff-setup-windows-plain
204 ediff-split-window-function 'split-window-horizontally)) 227 ediff-split-window-function 'split-window-horizontally))
@@ -941,13 +964,10 @@ like a dumbass."
941 964
942 (:global "M-=" count-words 965 (:global "M-=" count-words
943 "C-w" kill-region-or-backward-word 966 "C-w" kill-region-or-backward-word
944 "<help> h" nil ; HELLO takes a long time to load on Windows
945 "C-c c" capitalize-dwim 967 "C-c c" capitalize-dwim
946 "C-c u" upcase-dwim 968 "C-c u" upcase-dwim
947 "C-c l" downcase-dwim) 969 "C-c l" downcase-dwim
948 970 "C-c t" acdw/insert-iso-date))
949 (:global "C-c t" acdw/insert-iso-date
950 "C-z" nil))
951 971
952 972
953;;; Packages 973;;; Packages