Adjust hydra
authorJoerg Jaspert <joerg@debian.org>
Fri, 6 Feb 2015 09:16:36 +0000 (10:16 +0100)
committerJoerg Jaspert <joerg@debian.org>
Fri, 6 Feb 2015 09:16:36 +0000 (10:16 +0100)
.emacs.d/config/emacs.org

index bdfcedc..29f399f 100644 (file)
@@ -2007,15 +2007,29 @@ that disables itself auto-magically.
   (progn
     (setq hydra-is-helpful t)
 
-    (hydra-create "<f2>"
-      '(("g" text-scale-increase "zoom in")
-        ("l" text-scale-decrease "zoom out")))
+    (defhydra hydra-zoom (global-map "<f2>")
+      "zoom"
+      ("g" text-scale-increase "in")
+      ("l" text-scale-decrease "out")
+      ("q" nil "quit"))
 
     (hydra-create "M-g"
       '(("h" first-error "first")
         ("j" next-error "next")
-        ("k" previous-error "prev")))
-    ))
+        ("k" previous-error "prev")
+        ("q" nil "quit")))
+    (global-set-key
+     (kbd "C-c C-v")
+     (defhydra toggle ()
+       "toggle"
+       ("a" abbrev-mode "abbrev" :color blue)
+       ("d" toggle-debug-on-error "debug" :color blue)
+       ("f" auto-fill-mode "fill" :color blue)
+       ("t" toggle-truncate-lines "truncate" :color blue)
+       ("w" whitespace-mode "whitespace" :color blue)
+       ("q" nil "cancel")))
+    )
+)
 #+END_SRC
 ** ibuffer
 [2014-05-21 Wed 23:54]