diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-07-01 18:03:30 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-07-01 18:12:24 +0200 |
| commit | 9b1b08c9b32eaec12c952437a5657e78b84c25cc (patch) | |
| tree | 121bfe0f5c87ce5673415b6ef2cd8932a696359f /lisp | |
| parent | 2d4cedbf68fff79f9fb84db6153c3c35d9c87d28 (diff) | |
img help echo: cmd keys and toggle sensitive binding
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-media.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index d14d283..9dc8517 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 "\"") |