aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-04 20:29:52 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-04 20:29:52 +0200
commita4e9c17cd4ee376d00f1c28ad760a599e3dd1595 (patch)
tree11e3b7d588865db38093b2001a945210feede5df
parent067270e5a9630817335dbdb28760324953597d1d (diff)
in prop tags and handles: handle variable-pitch for reset props
-rw-r--r--lisp/mastodon-toot.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 22f001d..73b9f1a 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1638,10 +1638,12 @@ Added to `after-change-functions'."
(when (mastodon-toot--compose-buffer-p)
(let ((header-region
(mastodon-tl--find-property-range 'toot-post-header
- (point-min))))
+ (point-min)))
+ (face (when mastodon-toot--proportional-fonts-compose
+ 'variable-pitch)))
;; cull any prev props:
;; stops all text after a handle or mention being propertized:
- (set-text-properties (cdr header-region) (point-max) nil)
+ (set-text-properties (cdr header-region) (point-max) `(face ,face))
;; TODO: confirm allowed hashtag/handle characters:
(mastodon-toot--propertize-item mastodon-toot-tag-regex
'success