emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mastodon 2bfd9f097d 08/18: align mastodon keymap


From: ELPA Syncer
Subject: [nongnu] elpa/mastodon 2bfd9f097d 08/18: align mastodon keymap
Date: Mon, 2 Dec 2024 16:00:34 -0500 (EST)

branch: elpa/mastodon
commit 2bfd9f097de92e200f6ae05042c819ab1f1ad454
Author: marty hiatt <martianhiatus@disroot.org>
Commit: marty hiatt <martianhiatus@disroot.org>

    align mastodon keymap
---
 lisp/mastodon.el | 138 +++++++++++++++++++++++++++----------------------------
 1 file changed, 69 insertions(+), 69 deletions(-)

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index b1147dc9ce..5f7f722c6b 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -194,85 +194,85 @@ and X others...\"."
 (defvar mastodon-mode-map
   (let ((map (make-sparse-keymap)))
     ;; navigation inside a timeline
-    (define-key map (kbd "n") #'mastodon-tl--goto-next-item)
-    (define-key map (kbd "p") #'mastodon-tl--goto-prev-item)
-    (define-key map (kbd "M-n") #'mastodon-tl--next-tab-item)
-    (define-key map (kbd "M-p") #'mastodon-tl--previous-tab-item)
-    (define-key map [?\t] #'mastodon-tl--next-tab-item)
-    (define-key map [backtab] #'mastodon-tl--previous-tab-item)
-    (define-key map [?\S-\t] #'mastodon-tl--previous-tab-item)
-    (define-key map [?\M-\t] #'mastodon-tl--previous-tab-item)
-    (define-key map (kbd "l") #'recenter-top-bottom)
+    (define-key map (kbd "n")      #'mastodon-tl--goto-next-item)
+    (define-key map (kbd "p")      #'mastodon-tl--goto-prev-item)
+    (define-key map (kbd "M-n")    #'mastodon-tl--next-tab-item)
+    (define-key map (kbd "M-p")    #'mastodon-tl--previous-tab-item)
+    (define-key map [?\t]          #'mastodon-tl--next-tab-item)
+    (define-key map [backtab]      #'mastodon-tl--previous-tab-item)
+    (define-key map [?\S-\t]       #'mastodon-tl--previous-tab-item)
+    (define-key map [?\M-\t]       #'mastodon-tl--previous-tab-item)
+    (define-key map (kbd "l")      #'recenter-top-bottom)
     ;; navigation between timelines
-    (define-key map (kbd "#") #'mastodon-tl--get-tag-timeline)
-    (define-key map (kbd "\"") #'mastodon-tl--list-followed-tags)
-    (define-key map (kbd "'") #'mastodon-tl--followed-tags-timeline)
-    (define-key map (kbd "A") #'mastodon-profile--get-toot-author)
-    (define-key map (kbd "F") #'mastodon-tl--get-federated-timeline)
-    (define-key map (kbd "H") #'mastodon-tl--get-home-timeline)
-    (define-key map (kbd "L") #'mastodon-tl--get-local-timeline)
-    (define-key map (kbd "N") #'mastodon-notifications-get)
-    (define-key map (kbd "@") #'mastodon-notifications--get-mentions)
-    (define-key map (kbd "P") #'mastodon-profile--show-user)
-    (define-key map (kbd "s") #'mastodon-search--query)
-    (define-key map (kbd "/") #'mastodon-switch-to-buffer)
-    (define-key map (kbd "\\") #'mastodon-tl--get-remote-local-timeline)
+    (define-key map (kbd "#")      #'mastodon-tl--get-tag-timeline)
+    (define-key map (kbd "\"")     #'mastodon-tl--list-followed-tags)
+    (define-key map (kbd "'")      #'mastodon-tl--followed-tags-timeline)
+    (define-key map (kbd "A")      #'mastodon-profile--get-toot-author)
+    (define-key map (kbd "F")      #'mastodon-tl--get-federated-timeline)
+    (define-key map (kbd "H")      #'mastodon-tl--get-home-timeline)
+    (define-key map (kbd "L")      #'mastodon-tl--get-local-timeline)
+    (define-key map (kbd "N")      #'mastodon-notifications-get)
+    (define-key map (kbd "@")      #'mastodon-notifications--get-mentions)
+    (define-key map (kbd "P")      #'mastodon-profile--show-user)
+    (define-key map (kbd "s")      #'mastodon-search--query)
+    (define-key map (kbd "/")      #'mastodon-switch-to-buffer)
+    (define-key map (kbd "\\")     #'mastodon-tl--get-remote-local-timeline)
     ;; quitting mastodon
-    (define-key map (kbd "q") #'kill-current-buffer)
-    (define-key map (kbd "Q") #'mastodon-kill-window)
-    (define-key map (kbd "M-C-q") #'mastodon-kill-all-buffers)
+    (define-key map (kbd "q")      #'kill-current-buffer)
+    (define-key map (kbd "Q")      #'mastodon-kill-window)
+    (define-key map (kbd "M-C-q")  #'mastodon-kill-all-buffers)
     ;; toot actions
-    (define-key map (kbd "c") #'mastodon-tl--toggle-spoiler-text-in-toot)
-    (define-key map (kbd "b") #'mastodon-toot--toggle-boost)
-    (define-key map (kbd "f") #'mastodon-toot--toggle-favourite)
-    (define-key map (kbd "k") #'mastodon-toot--toggle-bookmark)
-    (define-key map (kbd "r") #'mastodon-toot--reply)
-    (define-key map (kbd "C") #'mastodon-toot--copy-toot-url)
-    (define-key map (kbd "o") #'mastodon-toot--open-toot-url)
-    (define-key map (kbd "v") #'mastodon-tl--poll-vote)
-    (define-key map (kbd "E") #'mastodon-toot--view-toot-edits)
-    (define-key map (kbd "T") #'mastodon-tl--thread)
-    (define-key map (kbd "RET") #'mastodon-tl--thread)
-    (define-key map (kbd "m") #'mastodon-tl--dm-user)
+    (define-key map (kbd "c")      #'mastodon-tl--toggle-spoiler-text-in-toot)
+    (define-key map (kbd "b")      #'mastodon-toot--toggle-boost)
+    (define-key map (kbd "f")      #'mastodon-toot--toggle-favourite)
+    (define-key map (kbd "k")      #'mastodon-toot--toggle-bookmark)
+    (define-key map (kbd "r")      #'mastodon-toot--reply)
+    (define-key map (kbd "C")      #'mastodon-toot--copy-toot-url)
+    (define-key map (kbd "o")      #'mastodon-toot--open-toot-url)
+    (define-key map (kbd "v")      #'mastodon-tl--poll-vote)
+    (define-key map (kbd "E")      #'mastodon-toot--view-toot-edits)
+    (define-key map (kbd "T")      #'mastodon-tl--thread)
+    (define-key map (kbd "RET")    #'mastodon-tl--thread)
+    (define-key map (kbd "m")      #'mastodon-tl--dm-user)
     (when (require 'lingva nil :no-error)
-      (define-key map (kbd "a") #'mastodon-toot--translate-toot-text))
-    (define-key map (kbd ",") #'mastodon-toot--list-favouriters)
-    (define-key map (kbd ".") #'mastodon-toot--list-boosters)
-    (define-key map (kbd ";") #'mastodon-views--view-instance-description)
+      (define-key map (kbd "a")    #'mastodon-toot--translate-toot-text))
+    (define-key map (kbd ",")      #'mastodon-toot--list-favouriters)
+    (define-key map (kbd ".")      #'mastodon-toot--list-boosters)
+    (define-key map (kbd ";")      #'mastodon-views--view-instance-description)
     ;; override special mode binding
-    (define-key map (kbd "g") #'undefined)
-    (define-key map (kbd "g") #'mastodon-tl--update)
+    (define-key map (kbd "g")      #'undefined)
+    (define-key map (kbd "g")      #'mastodon-tl--update)
     ;; this is now duplicated by 'g', cd remove/use for else:
-    (define-key map (kbd "u") #'mastodon-tl--update)
+    (define-key map (kbd "u")      #'mastodon-tl--update)
     ;; own toot actions:
-    (define-key map (kbd "t") #'mastodon-toot)
-    (define-key map (kbd "d") #'mastodon-toot--delete-toot)
-    (define-key map (kbd "D") #'mastodon-toot--delete-and-redraft-toot)
-    (define-key map (kbd "i") #'mastodon-toot--pin-toot-toggle)
-    (define-key map (kbd "e") #'mastodon-toot--edit-toot-at-point)
+    (define-key map (kbd "t")      #'mastodon-toot)
+    (define-key map (kbd "d")      #'mastodon-toot--delete-toot)
+    (define-key map (kbd "D")      #'mastodon-toot--delete-and-redraft-toot)
+    (define-key map (kbd "i")      #'mastodon-toot--pin-toot-toggle)
+    (define-key map (kbd "e")      #'mastodon-toot--edit-toot-at-point)
     ;; user actions
-    (define-key map (kbd "W") #'mastodon-tl--follow-user)
-    (define-key map (kbd "C-S-W") #'mastodon-tl--unfollow-user)
-    (define-key map (kbd "B") #'mastodon-tl--block-user)
-    (define-key map (kbd "C-S-B") #'mastodon-tl--unblock-user)
-    (define-key map (kbd "M") #'mastodon-tl--mute-user)
-    (define-key map (kbd "C-S-M") #'mastodon-tl--unmute-user)
-    (define-key map (kbd "Z") #'mastodon-tl--report-to-mods)
+    (define-key map (kbd "W")      #'mastodon-tl--follow-user)
+    (define-key map (kbd "C-S-W")  #'mastodon-tl--unfollow-user)
+    (define-key map (kbd "B")      #'mastodon-tl--block-user)
+    (define-key map (kbd "C-S-B")  #'mastodon-tl--unblock-user)
+    (define-key map (kbd "M")      #'mastodon-tl--mute-user)
+    (define-key map (kbd "C-S-M")  #'mastodon-tl--unmute-user)
+    (define-key map (kbd "Z")      #'mastodon-tl--report-to-mods)
     ;; own profile
-    (define-key map (kbd "O") #'mastodon-profile--my-profile)
-    (define-key map (kbd "U") #'mastodon-profile--update-user-profile-note)
-    (define-key map (kbd "V") #'mastodon-profile--view-favourites)
-    (define-key map (kbd "K") #'mastodon-profile--view-bookmarks)
-    (define-key map (kbd ":") #'mastodon-user-settings)
+    (define-key map (kbd "O")      #'mastodon-profile--my-profile)
+    (define-key map (kbd "U")      
#'mastodon-profile--update-user-profile-note)
+    (define-key map (kbd "V")      #'mastodon-profile--view-favourites)
+    (define-key map (kbd "K")      #'mastodon-profile--view-bookmarks)
+    (define-key map (kbd ":")      #'mastodon-user-settings)
     ;; minor views
-    (define-key map (kbd "R") #'mastodon-views--view-follow-requests)
-    (define-key map (kbd "S") #'mastodon-views--view-scheduled-toots)
-    (define-key map (kbd "I") #'mastodon-views--view-filters)
-    (define-key map (kbd "G") #'mastodon-views--view-follow-suggestions)
-    (define-key map (kbd "X") #'mastodon-views--view-lists)
-    (define-key map (kbd "SPC") #'mastodon-tl--scroll-up-command)
-    (define-key map (kbd "!") #'mastodon-tl--fold-post-toggle)
-    (define-key map (kbd "z") #'bury-buffer)
+    (define-key map (kbd "R")      #'mastodon-views--view-follow-requests)
+    (define-key map (kbd "S")      #'mastodon-views--view-scheduled-toots)
+    (define-key map (kbd "I")      #'mastodon-views--view-filters)
+    (define-key map (kbd "G")      #'mastodon-views--view-follow-suggestions)
+    (define-key map (kbd "X")      #'mastodon-views--view-lists)
+    (define-key map (kbd "SPC")    #'mastodon-tl--scroll-up-command)
+    (define-key map (kbd "!")      #'mastodon-tl--fold-post-toggle)
+    (define-key map (kbd "z")      #'bury-buffer)
     map)
   "Keymap for `mastodon-mode'.")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]