Emacs: Init Evil bindings for Debbugs and Gnus

.emacs.d/lisp/init-evil-debbugs.el

@@ -0,0 +1,24 @@
+;;; Evil+Debbugs
+
+(evil-set-initial-state 'debbugs-gnu-mode 'motion)
+
+(evil-define-key 'motion debbugs-gnu-mode-map
+  (kbd "TAB") 'forward-button
+  (kbd "<backtab>") 'backward-button
+  (kbd "RET") 'debbugs-gnu-select-report
+  (kbd "SPC") 'scroll-up-command
+  "\M-sf" 'debbugs-gnu-narrow-to-status
+  "gB" 'debbugs-gnu-show-blocking-reports
+  "c" 'debbugs-gnu-send-control-message
+  "r" 'debbugs-gnu-show-all-blocking-reports
+  "S" 'tabulated-list-sort
+  "gb" 'debbugs-gnu-show-blocked-by-reports
+  "d" 'debbugs-gnu-display-status
+  "gr" 'debbugs-gnu-rescan
+  "q" 'quit-window
+  "s" 'debbugs-gnu-toggle-sort
+  "i" 'debbugs-gnu-toggle-tag
+  "o" 'debbugs-gnu-widen
+  "x" 'debbugs-gnu-toggle-suppress)
+
+(provide 'init-evil-debbugs)

.emacs.d/lisp/init-evil-gnus.el

@@ -0,0 +1,57 @@
+;;; Evil+Gnus
+
+(evil-set-initial-state 'gnus-summary-mode 'motion)
+(evil-define-key 'motion gnus-summary-mode-map
+  (kbd "TAB") 'gnus-summary-widget-forward
+  (kbd "<backtab>") 'gnus-summary-widget-backward
+  (kbd "DEL") 'gnus-summary-prev-page
+  (kbd "S-SPC") 'gnus-summary-prev-page
+  (kbd "SPC") 'gnus-summary-next-page
+  (kbd "RET") 'gnus-summary-scroll-up
+  "zz" 'gnus-recenter
+  "z#" 'gnus-summary-mark-as-processable
+  "!" 'gnus-summary-execute-command
+  "zc" 'gnus-cache-enter-article
+  "gb" 'gnus-summary-best-unread-article
+  "gf" 'gnus-summary-first-unread-article
+  "z/" 'gnus-summary-limit-map
+  ;; "<" "=" ">" ...
+  "zd" 'gnus-summary-mark-as-dormant
+  ;; "gA"
+  ;; "gB"
+  ;; "zC"
+  ;; "zD"
+  ;; "zE"
+  ;; "zF"
+  ;; "gG"
+  ;; "gH"
+  ;; "zI"
+  ;; "gK"
+  ;; "zL"
+  ;; "gM"
+  "J" 'gnus-summary-next-article
+  "K" 'gnus-summary-prev-article
+  "gO" 'gnus-summary-save-map
+  "Q" 'gnus-summary-exit-no-update
+  "R" 'gnus-summary-reply-with-original
+  "gS" 'gnus-summary-send-map
+  "gT" 'gnus-summary-thread-map
+  "gV" 'gnus-summary-score-map
+  "gW" 'gnus-summary-wash-map
+  "X" 'gnus-uu-extract-map
+  "gY" 'gnus-summary-buffer-map
+  "gZ" 'gnus-summary-exit-map
+  "z^" 'gnus-summary-refer-parent-article
+  ;; "a" ...
+  "r" 'gnus-summary-reply
+  "s" 'gnus-summary-isearch-article
+  "zt" 'gnus-summary-toggle-header
+  "u" 'gnus-summary-tick-article-forward
+  "U" 'gnus-summary-tick-article-backward
+  "x" 'gnus-summary-limit-to-unread
+  "zp" 'gnus-summary-pipe-output
+  "q" 'gnus-summary-exit)
+
+(evil-set-initial-state 'gnus-article-mode 'motion)
+
+(provide 'init-evil-gnus)

.emacs.d/lisp/init-evil.el

@@ -206,4 +206,8 @@
 
 (with-eval-after-load 'debug (require 'init-evil-debugger))
 
+(with-eval-after-load 'debbugs (require 'init-evil-debbugs))
+
+(with-eval-after-load 'gnus (require 'init-evil-gnus))
+
 (provide 'init-evil)