define gnus hydra
authorJoerg Jaspert <joerg@debian.org>
Sat, 28 Feb 2015 21:42:32 +0000 (22:42 +0100)
committerJoerg Jaspert <joerg@debian.org>
Sat, 28 Feb 2015 21:42:32 +0000 (22:42 +0100)
.emacs.d/config/emacs.org

index 72e9824..655bded 100644 (file)
@@ -2068,6 +2068,17 @@ that disables itself auto-magically.
       ("q" nil "quit"))
     (bind-key "M-g e" 'hydra-error/body)
 
+    (defhydra hydra-gnus (:color red)
+      "gnus functions"
+      ("m" gnus-uu-mark-thread "mark thread")
+      ("d" gnus-summary-delete-article "delete article(s)")
+      ("r" gnus-summary-mark-as-read-forward "mark read")
+      ("n" gnus-summary-next-thread "next thread")
+      ("p" gnus-summary-prev-thread "previous thread")
+      ("g" gnus-summary-next-group "next group")
+      ("q" nil "quit"))
+    (bind-key "C-c h" 'hydra-gnus/body)
+
     (defhydra hydra-launcher (:color blue)
       "Launch"
       ("h" man "man")