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)
