Commit 735d3844f541

@@ -690,6 +690,27 @@
 (use-package command-log-mode
   :ensure t)
 
+(defhydra hydra-toggle (:color pink :hint nil)
+  "
+_a_ abbrev-mode:       %`abbrev-mode
+_d_ debug-on-error:    %`debug-on-error
+_f_ auto-fill-mode:    %`auto-fill-function
+_h_ highlight          %`highlight-nonselected-windows
+_t_ truncate-lines:    %`truncate-lines
+_w_ whitespace-mode:   %`whitespace-mode
+_l_ org link display:  %`org-descriptive-links
+"
+  ("a" abbrev-mode)
+  ("d" toggle-debug-on-error)
+  ("f" auto-fill-mode)
+  ("h" (setq highlight-nonselected-windows (not highlight-nonselected-windows)))
+  ("t" toggle-truncate-lines)
+  ("w" whitespace-mode)
+  ("l" org-toggle-link-display)
+  ("q" nil "quit"))
+
+(global-set-key (kbd "C-c C-v") 'hydra-toggle/body)
+
 (add-hook 'text-mode-hook
           (lambda()
             (turn-on-auto-fill)

@@ -1368,6 +1368,31 @@
 
 
 ** TODO Hydras
+
+#+BEGIN_SRC emacs-lisp
+  (defhydra hydra-toggle (:color pink :hint nil)
+    "
+  _a_ abbrev-mode:       %`abbrev-mode
+  _d_ debug-on-error:    %`debug-on-error
+  _f_ auto-fill-mode:    %`auto-fill-function
+  _h_ highlight          %`highlight-nonselected-windows
+  _t_ truncate-lines:    %`truncate-lines
+  _w_ whitespace-mode:   %`whitespace-mode
+  _l_ org link display:  %`org-descriptive-links
+  "
+    ("a" abbrev-mode)
+    ("d" toggle-debug-on-error)
+    ("f" auto-fill-mode)
+    ("h" (setq highlight-nonselected-windows (not highlight-nonselected-windows)))
+    ("t" toggle-truncate-lines)
+    ("w" whitespace-mode)
+    ("l" org-toggle-link-display)
+    ("q" nil "quit"))
+
+  (global-set-key (kbd "C-c C-v") 'hydra-toggle/body)
+#+END_SRC
+
+
 * Editing 🖦
 
   For writing text, I prefer Emacs to do line wrapping for me. Also, superfluous