diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-29 11:40:43 +0100 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-29 11:40:43 +0100 |
commit | 9bac6bf378137ee220cfa4ae7e43079ef3ce0295 (patch) | |
tree | c09af73c9199ec73c569c4bc9feea5af5b3bfe00 /lisp/mastodon-toot.el | |
parent | 7d676ccd4a4076c65d7b53dbdd9c7846083ffcd9 (diff) |
abbreviate toot compose properties (visibility, char count etc)
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r-- | lisp/mastodon-toot.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 1ddaca8..a1fb014 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1289,12 +1289,12 @@ REPLY-JSON is the full JSON of the toot being replied to." (point-max)))) (add-text-properties (car count-region) (cdr count-region) (list 'display - (format "%s/%s characters" + (format "%s/%s chars" (mastodon-toot--count-toot-chars toot-string) (number-to-string mastodon-toot--max-toot-chars)))) (add-text-properties (car visibility-region) (cdr visibility-region) (list 'display - (format "Visibility: %s" + (format "%s" (if (equal mastodon-toot--visibility "private") @@ -1303,7 +1303,7 @@ REPLY-JSON is the full JSON of the toot being replied to." (add-text-properties (car lang-region) (cdr lang-region) (list 'display (if mastodon-toot--language - (format "Language: %s" + (format "Lang: %s ⋅" mastodon-toot--language) ""))) (add-text-properties (car nsfw-region) (cdr nsfw-region) |