branch: elpa/mastodon
commit 860b675901fc0b4ae4ea40d4634ab7ab1b89c04b
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>

    image cycle: add binding for image from byline
---
 lisp/mastodon-tl.el | 2 ++
 lisp/mastodon.el    | 1 +
 2 files changed, 3 insertions(+)

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index c9888be473..47f0b66fe4 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -339,6 +339,8 @@ It is active where point is placed by 
`mastodon-tl-goto-next-item.'")
     (define-key map (kbd ">") #'mastodon-tl-next-full-image)
     (define-key map (kbd ".") #'mastodon-tl-next-full-image)
     (define-key map (kbd "<right>") #'mastodon-tl-next-full-image)
+    ;; matches view full image binding in main keymap:
+    (define-key map (kbd "=") #'mastodon-tl-next-full-image)
     map))
 
 
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index daf6f28dba..4ac0136df8 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -255,6 +255,7 @@ Also nil `mastodon-auth--token-alist'."
     (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 "=")      #'mastodon-tl-view-first-full-image)
     (when (require 'lingva nil :no-error)
       (define-key map (kbd "a")    #'mastodon-toot-translate-toot-text))
     (define-key map (kbd ",")      #'mastodon-toot-list-favouriters)

Reply via email to