From a7031b6da3cdb2551fd4077b2a954c62eeb705ea Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 30 Aug 2021 08:51:21 -0500
Subject: Add toggle bindings

---
 init.el | 19 +++++++++++++++----
 1 file 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 @@
              ("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
-- 
cgit 1.4.1-21-gabe81