define gnus hydra
[emacs.git] / .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")