aboutsummaryrefslogtreecommitdiff
path: root/.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el')
-rw-r--r--.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el491
1 files changed, 0 insertions, 491 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el b/.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el
deleted file mode 100644
index cc6b413..0000000
--- a/.config/emacs/lisp/evil-collection/modes/gnus/evil-collection-gnus.el
+++ /dev/null
@@ -1,491 +0,0 @@
-;;; evil-collection-gnus.el --- Bindings for `gnus' -*- lexical-binding: t -*-
-
-;; Copyright (C) 2019 Pierre Neidhardt
-
-;; Author: Pierre Neidhardt <mail@ambrevar.xyz>
-;; Maintainer: James Nguyen <james@jojojames.com>
-;; Pierre Neidhardt <mail@ambrevar.xyz>
-;; URL: https://github.com/emacs-evil/evil-collection
-;; Version: 0.0.1
-;; Package-Requires: ((emacs "26.3"))
-;; Keywords: emacs, tools, evil
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;; Bindings for `gnus'.
-
-;;; Code:
-(require 'gnus nil t)
-(require 'evil-collection)
-
-(defconst evil-collection-gnus-maps '(gnus-article-mode-map
- gnus-bookmark-bmenu-mode-map
- gnus-browse-mode-map
- gnus-group-mode-map
- gnus-server-mode-map
- gnus-summary-mode-map))
-
-(defvar evil-collection-gnus-common-normal-bindings
- '("zz" gnus-recenter)
- "Keybindings added to all gnus normal mode-maps.
-Note that there is no gnus-common-mode-map")
-
-;;;###autoload
-(defun evil-collection-gnus-setup ()
- "Set up `evil' bindings for `gnus'."
-
- ;; For all gnus modes:
- ;; - Set the initial state to 'normal
- ;; - Inhibit insert
- ;; - Use `evil-collection-gnus-common-normal-bindings'
- (dolist (map evil-collection-gnus-maps)
- (let* ((map-string (symbol-name map))
- (mode-string (string-trim-right map-string "-map"))
- (mode (intern mode-string)))
- (evil-set-initial-state mode 'normal)
- (evil-collection-inhibit-insert-state map)
- (apply #'evil-collection-define-key 'normal map
- evil-collection-gnus-common-normal-bindings)))
-
- (evil-collection-define-key 'normal 'gnus-summary-mode-map
- ;; quit
- "Q" 'gnus-summary-exit-no-update
- "ZQ" 'gnus-summary-exit-no-update
- "q" 'gnus-summary-exit
- "ZZ" 'gnus-summary-exit
-
- "g?" 'gnus-summary-help-map
-
- ;; motion
- (kbd "<tab>") 'gnus-summary-widget-forward
- (kbd "<backtab>") 'gnus-summary-widget-backward
- (kbd "<delete>") 'gnus-summary-prev-page
- (kbd "S-SPC") 'gnus-summary-prev-page
- (kbd "SPC") 'gnus-summary-next-page
- (kbd "RET") 'gnus-summary-scroll-up
- "gk" 'gnus-summary-prev-unread-article
- "gj" 'gnus-summary-next-unread-article
- "[[" 'gnus-summary-prev-unread-article
- "]]" 'gnus-summary-next-unread-article
- "{" 'gnus-summary-prev-thread
- "}" 'gnus-summary-next-thread
- (kbd "C-j") 'gnus-summary-next-article
- (kbd "C-k") 'gnus-summary-prev-article
-
- ;; Marking
- "m" 'gnus-summary-mark-as-processable
- "M" 'gnus-uu-mark-buffer
- "u" 'gnus-summary-unmark-as-processable
- "U" 'gnus-summary-unmark-all-processable
- "%" 'gnus-uu-mark-by-regexp
-
- ;; Composing
- "C" 'gnus-summary-mail-other-window
- "cc" 'gnus-summary-mail-other-window
- "ci" 'gnus-summary-news-other-window
- "f" 'gnus-summary-followup
- "F" 'gnus-summary-followup-with-original
- "cf" 'gnus-summary-followup
- "cF" 'gnus-summary-followup-with-original
-
- ;; Reply
- "r" 'gnus-summary-reply
- "R" 'gnus-summary-reply-with-original
- "cr" 'gnus-summary-reply
- "cR" 'gnus-summary-reply-with-original
- "cw" 'gnus-summary-very-wide-reply
- "cW" 'gnus-summary-very-wide-reply-with-original
- (kbd "C-c C-f") 'gnus-summary-mail-forward
-
- ;; Actions, like mu4e
- ;; Keep the following two bindings consistent with group's
- "." 'gnus-summary-first-unread-article
- "," 'gnus-summary-best-unread-article
- "!" 'gnus-summary-mark-as-read-forward
- "=" 'gnus-summary-tick-article-forward
- "J" 'gnus-summary-goto-article
- "gr" 'gnus-summary-rescan-group
- "e" 'gnus-summary-edit-article
- "E" 'gnus-summary-mark-as-expirable
- "z/" 'gnus-summary-limit-map
- "zt" 'gnus-summary-toggle-header
- "x" 'gnus-summary-limit-to-unread
- "gX" 'gnus-summary-browse-url
-
- ;; Finding the parent
- "^" 'gnus-summary-refer-parent-article
- (kbd "M-^") 'gnus-summary-refer-article
-
- ;; Sorting
- "oa" 'gnus-summary-sort-by-author
- "oc" 'gnus-summary-sort-by-chars
- "od" 'gnus-summary-sort-by-date
- "oi" 'gnus-summary-sort-by-score
- "ol" 'gnus-summary-sort-by-lines
- "omd" 'gnus-summary-sort-by-most-recent-date
- "omm" 'gnus-summary-sort-by-marks
- "omn" 'gnus-summary-sort-by-most-recent-number
- "on" 'gnus-summary-sort-by-number
- "oo" 'gnus-summary-sort-by-original
- "or" 'gnus-summary-sort-by-random
- "os" 'gnus-summary-sort-by-subject
- "ot" 'gnus-summary-sort-by-recipient
-
- ;; Threads commands
- "Tk" 'gnus-summary-kill-thread
- "Tl" 'gnus-summary-lower-thread
- "Ti" 'gnus-summary-raise-thread
- "Tm" 'gnus-uu-mark-thread ;; was T #
- "Tu" 'gnus-uu-unmark-thread ;; was T M-#
- "TT" 'gnus-summary-toggle-threads
- "Ts" 'gnus-summary-show-thread
- "Th" 'gnus-summary-hide-thread
- ;; show/hide can be mapped to zo/zc
- "zo" 'gnus-summary-show-thread
- "zc" 'gnus-summary-hide-thread
- "TS" 'gnus-summary-show-all-threads
- "TH" 'gnus-summary-hide-all-threads
- "Tt" 'gnus-summary-rethread-current
- "T^" 'gnus-summary-reparent-thread
- (kbd "T M-^") 'gnus-summary-reparent-children
- "Tn" 'gnus-summary-next-thread
- "Tp" 'gnus-summary-prev-thread
- "Td" 'gnus-summary-down-thread ;; descend
- "Ta" 'gnus-summary-up-thread ;; was T u, ascend also makes sense
- "To" 'gnus-summary-top-thread
-
- ;; Saving
- "Oo" 'gnus-summary-save-article
- "Om" 'gnus-summary-save-article-mail
- "Or" 'gnus-summary-save-article-rmail
- "Of" 'gnus-summary-save-article-file
- "OF" 'gnus-summary-write-article-file
- "Ob" 'gnus-summary-save-article-body-file
- "Oh" 'gnus-summary-save-article-folder
- "Ov" 'gnus-summary-save-article-vm
- "Op" 'gnus-summary-pipe-output
- "|" 'gnus-summary-pipe-output
- "OP" 'gnus-summary-muttprint
-
- ;; Decoding with marked articles
- "Xu" 'gnus-uu-decode-uu
- "XU" 'gnus-uu-decode-uu-and-save
- "Xvu" 'gnus-uu-decode-uu-view
- "XvU" 'gnus-uu-decode-uu-and-save-view
- ;; Shell archives
- "Xs" 'gnus-uu-decode-unshar
- "XS" 'gnus-uu-decode-unshar-and-save
- "Xvs" 'gnus-uu-decode-unshar-view
- "XvS" 'gnus-uu-decode-unshar-and-save-view
- ;; PostScript files
- "Xp" 'gnus-uu-decode-postscript
- "XP" 'gnus-uu-decode-postscript-and-save
- "Xvp" 'gnus-uu-decode-postscript-view
- "XvP" 'gnus-uu-decode-postscript-and-save-view
- ;; Other files
- "Xo" 'gnus-uu-decode-save
- "Xb" 'gnus-uu-decode-binhex
- "XY" 'gnus-uu-decode-yenc
-
- ;; Mail group commands
- "Be" 'gnus-summary-expire-articles
- "BE" 'gnus-summary-expire-articles-now ;; was B C-M-e
- "Bd" 'gnus-summary-delete-article ;; was B DEL
- "Bm" 'gnus-summary-move-article
- "Bc" 'gnus-summary-copy-article
- "Bb" 'gnus-summary-crosspost-article ;; was B B
- "Bi" 'gnus-summary-import-article
- "BI" 'gnus-summary-create-article
- "Br" 'gnus-summary-respool-article
- "Bw" 'gnus-summary-edit-article
- "Bq" 'gnus-summary-respool-query
- "Bt" 'gnus-summary-respool-trace
- "Bp" 'gnus-summary-article-posted-p
-
- ;; Searching
- (kbd "M-s") 'gnus-summary-search-article-forward
- (kbd "M-r") 'gnus-summary-search-article-backward
- (kbd "M-S") 'gnus-summary-repeat-search-article-forward
- (kbd "M-R") 'gnus-summary-repeat-search-article-backward
- "&" 'gnus-summary-execute-command
- (kbd "M-&") 'gnus-summary-universal-argument
-
- [mouse-2] 'gnus-mouse-pick-article
- [follow-link] 'mouse-face
-
- ;; Rest of the bindings "as is".
- "*" 'gnus-cache-enter-article
- (kbd "M-*") 'gnus-cache-remove-article
- (kbd "M-i") 'gnus-symbolic-argument
- "I" 'gnus-summary-increase-score
- "L" 'gnus-summary-lower-score)
-
- (evil-collection-define-key 'motion 'gnus-article-mode-map
- "F" 'gnus-article-followup-with-original
- "R" 'gnus-article-reply-with-original
- "W" 'gnus-article-wide-reply-with-original)
- (evil-collection-define-key 'normal 'gnus-article-mode-map
- ;; quit
- "Q" 'evil-window-delete
- "ZQ" 'evil-window-delete
- "q" 'evil-window-delete
- "ZZ" 'evil-window-delete
-
- ;; Movement
- (kbd "TAB") 'forward-button
- (kbd "<backtab>") 'backward-button
- (kbd "SPC") 'gnus-article-goto-next-page
- (kbd "DEL") 'gnus-article-goto-prev-page
- (kbd "S-SPC") 'gnus-article-goto-prev-page
-
- ;; Reply
- "r" 'gnus-summary-reply
- "R" 'gnus-article-reply-with-original ;; override `evil-replace-state'
-
- ;; Composing
- "C" 'gnus-article-mail
- "cc" 'gnus-article-mail
- "cr" 'gnus-summary-reply
- "cR" 'gnus-summary-reply-with-original
- "cf" 'gnus-summary-followup
- "cF" 'gnus-summary-followup-with-original
- "cw" 'gnus-summary-very-wide-reply
- "cW" 'gnus-article-wide-reply-with-original
- (kbd "C-c C-f") 'gnus-summary-mail-forward
-
- ;; Washing
- ;;
- ;; List of unbound commands:
- ;; - `gnus-article-remove-cr'
- ;; - `gnus-article-de-quoted-unreadable'
- ;; - `gnus-article-unsplit-urls'
- ;; - `gnus-article-wash-html'
- ;; - `gnus-article-strip-leading-blank-lines'
- ;; - `gnus-article-strip-multiple-blank-lines'
- ;; - `gnus-article-remove-trailing-blank-lines'
- ;; - `gnus-article-strip-blank-lines'
- ;; - `gnus-article-strip-all-blank-lines'
- ;; - `gnus-article-strip-leading-space'
- ;; - `gnus-article-strip-trailing-space'
- "zwl" 'gnus-summary-stop-page-breaking
- "zwr" 'gnus-summary-caesar-message
- "zwm" 'gnus-summary-morse-message
- "zwi" 'gnus-summary-idna-message
- "zwt" 'gnus-summary-toggle-header
- "zwv" 'gnus-summary-verbose-headers
- "zwo" 'gnus-article-treat-overstrike
- "zwd" 'gnus-article-treat-smartquotes
- "zwu" 'gnus-article-treat-non-ascii ;; was W U
- "zwyf" 'gnus-article-outlook-deuglify-article
- "zwyu" 'gnus-article-outlook-unwrap-lines
- "zwya" 'gnus-article-outlook-repair-attribution
- "zwyc" 'gnus-article-outlook-rearrange-citation
- "zww" 'gnus-article-fill-cited-article
- "zwq" 'gnus-article-fill-long-lines ;; was W Q
- "zwc" 'gnus-article-capitalize-sentences ;; was W C
- "zw6" 'gnus-article-de-base64-unreadable
- "zwz" 'gnus-article-decode-HZ ;; was W Z
- "zwa" 'gnus-article-treat-ansi-sequences ;; was W A
- "zwb" 'gnus-article-add-buttons
- "zwB" 'gnus-article-add-buttons-to-head
- "zwp" 'gnus-article-verify-x-pgp-sig
- "zws" 'gnus-summary-force-verify-and-decrypt
-
- ;; Actions
- (kbd "C-]") 'gnus-article-refer-article
- "s" 'gnus-article-show-summary
- "gr" 'gnus-summary-show-article
- "gX" 'gnus-summary-browse-url)
-
- (evil-collection-define-key 'normal 'gnus-group-mode-map
- ;; quit
- "Q" 'gnus-group-quit
- "ZQ" 'gnus-group-quit
- "q" 'gnus-group-exit
- "ZZ" 'gnus-group-exit
-
- ;; Movement
- "[[" 'gnus-group-prev-unread-group
- "]]" 'gnus-group-next-unread-group
- "gk" 'gnus-group-prev-unread-group
- "gj" 'gnus-group-next-unread-group
- (kbd "C-j") 'gnus-group-next-group
- (kbd "C-k") 'gnus-group-prev-group
-
- ;; Composing, like mu4e
- "C" 'gnus-group-mail
- "cc" 'gnus-group-mail
- "ci" 'gnus-group-news
-
- ;; Actions
- "." 'gnus-group-first-unread-group
- "," 'gnus-group-best-unread-group
- "A" 'gnus-activate-all-groups
- "B" 'gnus-group-browse-foreign-server
- "E" 'gnus-group-edit-group
- "F" 'gnus-group-find-new-groups
- "J" 'gnus-group-jump-to-group
- "R" 'gnus-group-rename-group
- "X" 'gnus-group-expunge-group
- (kbd "RET") 'gnus-group-select-group
- (kbd "SPC") 'gnus-group-read-group
- "gr" 'gnus-group-get-new-news-this-group
- "gR" 'gnus-group-get-new-news
- "gu" 'gnus-group-unsubscribe-current-group
- "gU" 'gnus-group-unsubscribe-group
- "gc" 'gnus-group-catchup-current
- "gC" 'gnus-group-catchup-current-all
- "ge" 'gnus-group-expire-articles
- "gE" 'gnus-group-expire-all-groups
- "gl" 'gnus-group-set-current-level
-
- ;; Deleting & Pasting
- "dd" 'gnus-group-kill-group
- "D" 'gnus-group-kill-group
- "p" 'gnus-group-yank-group
- "P" 'gnus-group-yank-group
-
- ;; Marking
- "m" 'gnus-group-mark-group
- "u" 'gnus-group-unmark-group
- "U" 'gnus-group-unmark-all-groups
- "M" 'gnus-group-mark-buffer
- "*" 'gnus-group-mark-buffer
- "%" 'gnus-group-mark-regexp
-
- ;; Searching
- "s" 'gnus-group-apropos
- "S" 'gnus-group-description-apropos
- (kbd "M-s") 'gnus-group-read-ephemeral-search-group
-
- ;; Sorting
- "oa" 'gnus-group-sort-groups-by-alphabet
- "ol" 'gnus-group-sort-groups-by-level
- "om" 'gnus-group-sort-groups-by-method
- "on" 'gnus-group-sort-groups-by-real-name
- "or" 'gnus-group-sort-groups-by-rank
- "os" 'gnus-group-sort-groups
- "ou" 'gnus-group-sort-groups-by-unread
- "ov" 'gnus-group-sort-groups-by-score
-
- ;; Listing
- "L!" 'gnus-group-list-ticked
- "L/" 'gnus-group-list-limit-map
- "L?" 'gnus-group-list-dormant
- "La" 'gnus-group-list-active ;; was A A
- "Lc" 'gnus-group-list-cached
- "Lf" 'gnus-group-list-flush-map
- "Lk" 'gnus-group-list-killed
- "Ll" 'gnus-group-list-level
- "Lm" 'gnus-group-list-matching
- "LM" 'gnus-group-list-all-matching
- "Lp" 'gnus-group-list-plus-map
- "Ls" 'gnus-group-list-groups
- "Lu" 'gnus-group-list-all-groups
- "Lz" 'gnus-group-list-zombies
-
- ;; Topic commands
- ;; `gnus-topic-move-group' can be done through dd then p
- "Tn" 'gnus-topic-create-topic
- "Tj" 'gnus-topic-jump-to-topic
- "Tr" 'gnus-topic-rename
- "Td" 'gnus-topic-delete
- "zc" 'gnus-topic-hide-topic
- "zo" 'gnus-topic-show-topic
-
- ;; Topic sorting
- "Toa" 'gnus-topic-sort-groups-by-alphabet
- "Tou" 'gnus-topic-sort-groups-by-unread
- "Tol" 'gnus-topic-sort-groups-by-level
- "Tov" 'gnus-topic-sort-groups-by-score
- "Tor" 'gnus-topic-sort-groups-by-rank
- "Tom" 'gnus-topic-sort-groups-by-method
- "Toe" 'gnus-group-sort-groups-by-server
- "Tos" 'gnus-group-sort-groups
-
- "^" 'gnus-group-enter-server-mode
-
- (kbd "DEL") 'gnus-group-prev-unread-group
- [mouse-2] 'gnus-mouse-pick-group
- "g?" 'gnus-group-help-map)
-
- (evil-collection-define-key 'normal 'gnus-server-mode-map
- ;; quit
- "Q" 'gnus-server-exit
- "ZQ" 'gnus-server-exit
- "q" 'gnus-server-exit
- "ZZ" 'gnus-server-exit
-
- (kbd "RET") 'gnus-server-read-server
- (kbd "SPC") 'gnus-server-read-server-in-server-buffer
- "C" 'gnus-server-close-server
- "D" 'gnus-server-deny-server
- "G" 'gnus-group-make-nnir-group
- "I" 'gnus-server-set-cloud-method-server
- "L" 'gnus-server-offline-server
- "O" 'gnus-server-open-server
- "R" 'gnus-server-remove-denials
- "S" 'gnus-server-show-server
- "a" 'gnus-server-add-server
- "y" 'gnus-server-copy-server
- "e" 'gnus-server-edit-server
- "gr" 'gnus-server-regenerate-server
- "i" 'gnus-server-toggle-cloud-server
- "d" 'gnus-server-kill-server
- "L" 'gnus-server-list-servers
- "s" 'gnus-server-scan-server
- "p" 'gnus-server-yank-server
- "c" 'gnus-server-compact-server
- "M-c" 'gnus-server-close-all-servers
- "M-o" 'gnus-server-open-all-servers)
-
- (evil-collection-define-key 'normal 'gnus-browse-mode-map
- ;; quit
- "Q" 'gnus-browse-exit
- "ZQ" 'gnus-browse-exit
- "q" 'gnus-browse-exit
- "ZZ" 'gnus-browse-exit
-
- "u" 'gnus-browse-unsubscribe-current-group
- (kbd "SPC") 'gnus-browse-read-group
- (kbd "RET") 'gnus-browse-select-group)
-
- (evil-collection-define-key 'normal 'gnus-bookmark-bmenu-mode-map
- ;; quit
- "Q" 'quit-window
- "ZQ" 'quit-window
- "q" 'quit-window
- "ZZ" 'quit-window
-
- ;; mark and execution
- "m" 'gnus-bookmark-bmenu-mark
- "u" 'gnus-bookmark-bmenu-unmark
- (kbd "DEL") 'gnus-bookmark-bmenu-backup-unmark
- "d" 'gnus-bookmark-bmenu-delete
- "x" 'gnus-bookmark-bmenu-execute-deletions
-
- (kbd "RET") 'gnus-bookmark-bmenu-select
- [mouse-2] 'gnus-bookmark-bmenu-select-by-mouse
- "L" 'gnus-bookmark-bmenu-load
- "s" 'gnus-bookmark-bmenu-save
- "t" 'gnus-bookmark-bmenu-toggle-infos
- "a" 'gnus-bookmark-bmenu-show-details
- ;; not implemented yet
- "A" 'gnus-bookmark-bmenu-show-all-annotations
- "E" 'gnus-bookmark-bmenu-edit-annotation
- "R" 'gnus-bookmark-bmenu-rename))
-
-(provide 'evil-collection-gnus)
-;;; evil-collection-gnus.el ends here
generated by cgit v1.2.3 (git 2.46.0) at 2026-08-04 08:57:16 +0000