From 508e3faeceb03ad14bb350d0da56552edf33ccc2 Mon Sep 17 00:00:00 2001 From: mousebot Date: Sun, 16 May 2021 10:21:56 +0200 Subject: shrink width of shr-width in -tl--render-text. setting this to window-width minus 1 makes text flow work properly for me with proportional fonts enabled. --- lisp/mastodon-tl.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mastodon-tl.el') diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index de64e1b..7624088 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -397,7 +397,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)))) + (- (window-width) 1)))) (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: -- cgit v1.2.3