Add toggle bindings

1 files changed, 15 insertions, 4 deletions

@@ -169,8 +169,7 @@
              ("Variables" "^\\(?:Show Value\\|Hide\\) \\([^:\n]*\\)" 1))))))
 
 (setup debugger
-  (:hook visual-line-mode)
-  (:global  "C-c d" toggle-debug-on-error))
+  (:hook visual-line-mode))
 
 (setup dired
   (setq-default dired-recursive-copies 'always
@@ -1033,13 +1032,24 @@ like a dumbass."
            "C-c c" capitalize-dwim
            "C-c u" upcase-dwim
            "C-c l" downcase-dwim
-           "C-c t" acdw/insert-iso-date)
+           "C-c d" acdw/insert-iso-date
+           "M-`" nil)
+
+  ;; toggle bindings
+  (defvar toggle-map (make-sparse-keymap)
+    "A keymap for toggling!")
+  (global-set-key (kbd "C-c t") toggle-map)
+
+  (:with-map toggle-map
+    (:bind "c" column-number-mode
+           "l" display-line-numbers-mode
+           "d" toggle-debug-on-error))
 
   (defalias 'forward-word-with-case 'forward-word
     "Alias for `forward-word' for use in `case-repeat-map'.")
   (defalias 'backward-word-with-case 'backward-word
     "Alias for `backward-word for use in `case-repeat-map'.")
-  
+
   (defvar case-repeat-map
     (let ((map (make-sparse-keymap)))
       (define-key map "c" #'capitalize-word)
@@ -1050,6 +1060,7 @@ like a dumbass."
       (define-key map "b" #'backward-word-with-case)
       map)
     "A map to repeat word-casing commands.  For use with `repeat-mode'.")
+  
   (dolist (command '(capitalize-word
                      capitalize-dwim
                      upcase-word