about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el19
1 files changed, 15 insertions, 4 deletions
diff --git a/init.el b/init.el index b089cda..e17687f 100644 --- a/init.el +++ b/init.el
@@ -169,8 +169,7 @@
169 ("Variables" "^\\(?:Show Value\\|Hide\\) \\([^:\n]*\\)" 1)))))) 169 ("Variables" "^\\(?:Show Value\\|Hide\\) \\([^:\n]*\\)" 1))))))
170 170
171(setup debugger 171(setup debugger
172 (:hook visual-line-mode) 172 (:hook visual-line-mode))
173 (:global "C-c d" toggle-debug-on-error))
174 173
175(setup dired 174(setup dired
176 (setq-default dired-recursive-copies 'always 175 (setq-default dired-recursive-copies 'always
@@ -1033,13 +1032,24 @@ like a dumbass."
1033 "C-c c" capitalize-dwim 1032 "C-c c" capitalize-dwim
1034 "C-c u" upcase-dwim 1033 "C-c u" upcase-dwim
1035 "C-c l" downcase-dwim 1034 "C-c l" downcase-dwim
1036 "C-c t" acdw/insert-iso-date) 1035 "C-c d" acdw/insert-iso-date
1036 "M-`" nil)
1037
1038 ;; toggle bindings
1039 (defvar toggle-map (make-sparse-keymap)
1040 "A keymap for toggling!")
1041 (global-set-key (kbd "C-c t") toggle-map)
1042
1043 (:with-map toggle-map
1044 (:bind "c" column-number-mode
1045 "l" display-line-numbers-mode
1046 "d" toggle-debug-on-error))
1037 1047
1038 (defalias 'forward-word-with-case 'forward-word 1048 (defalias 'forward-word-with-case 'forward-word
1039 "Alias for `forward-word' for use in `case-repeat-map'.") 1049 "Alias for `forward-word' for use in `case-repeat-map'.")
1040 (defalias 'backward-word-with-case 'backward-word 1050 (defalias 'backward-word-with-case 'backward-word
1041 "Alias for `backward-word for use in `case-repeat-map'.") 1051 "Alias for `backward-word for use in `case-repeat-map'.")
1042 1052
1043 (defvar case-repeat-map 1053 (defvar case-repeat-map
1044 (let ((map (make-sparse-keymap))) 1054 (let ((map (make-sparse-keymap)))
1045 (define-key map "c" #'capitalize-word) 1055 (define-key map "c" #'capitalize-word)
@@ -1050,6 +1060,7 @@ like a dumbass."
1050 (define-key map "b" #'backward-word-with-case) 1060 (define-key map "b" #'backward-word-with-case)
1051 map) 1061 map)
1052 "A map to repeat word-casing commands. For use with `repeat-mode'.") 1062 "A map to repeat word-casing commands. For use with `repeat-mode'.")
1063
1053 (dolist (command '(capitalize-word 1064 (dolist (command '(capitalize-word
1054 capitalize-dwim 1065 capitalize-dwim
1055 upcase-word 1066 upcase-word