diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-24 10:17:46 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-24 10:17:46 +0100 |
| commit | 10968bd76b9cb00a80ed6a4d84db0d5f04873cc8 (patch) | |
| tree | 934902d51e13c057c14e405234ba8da6bdef7b22 /lisp/mastodon-tl.el | |
| parent | 51ebf711241333195756865034c15391bf54f401 (diff) | |
| parent | 93ef38d88b277e8d5991e887034a7622879c91b1 (diff) | |
Merge branch 'develop'
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index f557282..fbee377 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -189,6 +189,10 @@ If nil `(point-min)' is used instead.") (defvar-local mastodon-tl--timestamp-update-timer nil "The timer that, when set will scan the buffer to update the timestamps.") +(defvar mastodon-tl--horiz-bar + (if (char-displayable-p ?―) + (make-string 12 ?―) + (make-string 12 ?-))) ;;; KEYMAPS @@ -625,7 +629,8 @@ this just means displaying toot client." (mastodon-tl--relative-time-description edited-parsed) edited-parsed))) "") - (propertize "\n ------------" 'face 'default) + (propertize (concat "\n " mastodon-tl--horiz-bar) + 'face 'default) (if mastodon-tl--show-stats (mastodon-tl--toot-stats toot) "") @@ -962,13 +967,13 @@ message is a link which unhides/hides the main body." (mastodon-tl--clean-tabs-and-nl (mastodon-tl--render-text spoiler toot)) 'default)) - (message (concat ;"\n" - " ---------------\n" - " " (mastodon-tl--make-link - (concat "CW: " string) - 'content-warning) - "\n" - " ---------------\n")) + (message (concat + " " mastodon-tl--horiz-bar "\n " + (mastodon-tl--make-link + (concat "CW: " string) + 'content-warning) + "\n " + mastodon-tl--horiz-bar "\n")) (cw (mastodon-tl--set-face message 'mastodon-cw-face))) (concat cw |