diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-29 13:33:10 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-29 13:33:10 +0200 |
| commit | 9257595153a2fc9046f571cea3e88fb509936314 (patch) | |
| tree | 2acc32e0027029b18f3c27cf7629cae38c1d470b | |
| parent | a3b2fcdc726874ff7e3e65db7a8d45f687017e18 (diff) | |
add line-prefix and wrap-prefix, ajust shr render width too
| -rw-r--r-- | lisp/mastodon-tl.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index ce16f87..249e344 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -141,7 +141,8 @@ nil." (private . ("🔒" . "[followers]")) (direct . ("✉" . "[direct]")) (edited . ("✍" . "[edited]")) - (replied . ("⬇" . "[replied]"))) + (replied . ("⬇" . "↓")) + (reply-bar . ("┃" . "|"))) "A set of symbols (and fallback strings) to be used in timeline. If a symbol does not look right (tofu), it means your font settings do not support it." @@ -750,7 +751,7 @@ links in the text. If TOOT is nil no parsing occurs." (insert string) (let ((shr-use-fonts mastodon-tl--enable-proportional-fonts) (shr-width (when mastodon-tl--enable-proportional-fonts - (- (window-width) 1)))) + (- (window-width) 3)))) (shr-render-region (point-min) (point-max))) ;; Make all links a tab stop recognized by our own logic, make things point ;; to our own logic (e.g. hashtags), and update keymaps where needed: @@ -1308,11 +1309,13 @@ THREAD means the status will be displayed in a thread view." (concat (mastodon-tl--symbol 'replied) "\n") "") - ;; (if (and after-reply-status-p thread) - ;; (propertize body - ;; 'line-prefix "|") - ;; body) - body + (if (and after-reply-status-p thread) + (let ((bar (mastodon-tl--symbol 'reply-bar))) + (propertize body + 'line-prefix bar + 'wrap-prefix bar)) + body) + ;; body " \n" (mastodon-tl--byline toot author-byline action-byline detailed-p)) 'toot-id (or id ; notification's own id |