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

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

[nongnu] elpa/mastodon 9b1b08c9b3 02/63: img help echo: cmd keys and tog


From: ELPA Syncer
Subject: [nongnu] elpa/mastodon 9b1b08c9b3 02/63: img help echo: cmd keys and toggle sensitive binding
Date: Sun, 4 Aug 2024 04:00:23 -0400 (EDT)

branch: elpa/mastodon
commit 9b1b08c9b32eaec12c952437a5657e78b84c25cc
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    img help echo: cmd keys and toggle sensitive binding
---
 lisp/mastodon-media.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index d14d28340f..9dc8517671 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -497,8 +497,12 @@ TYPE is the attachment's type field on the server.
 CAPTION is the image caption if provided.
 SENSITIVE is a flag from the item's JSON data."
   (let* ((help-echo-base
-          "RET/i: load full image (prefix: copy URL), +/-: zoom,\
- r: rotate, o: save preview")
+          (substitute-command-keys
+           (concat "\\`RET'/\\`i': load full image (prefix: copy URL), 
\\`+'/\\`-': zoom,\
+ \\`r': rotate, \\`o': save preview"
+                   (if (not (eq sensitive :json-false))
+                       ", \\`S': toggle sensitive media"
+                     ""))))
          (help-echo (if caption
                         (concat help-echo-base
                                 "\n\"" caption "\"")



reply via email to

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