branch: elpa/mastodon
commit 9b1b08c9b32eaec12c952437a5657e78b84c25cc
Author: marty hiatt <martianhia...@riseup.net>
Commit: marty hiatt <martianhia...@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 "\"")
