diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 09:37:42 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 09:37:42 +0100 |
| commit | 37bf61d3674063c7c6f726adccb142fecbf7fe75 (patch) | |
| tree | 2beae13187c9d949d21d3cd7d2af66995499d017 | |
| parent | 35487576acb349e8dc2b407d01d2a394957772dc (diff) | |
separate faves/boosts-count prop in toot-stats
this is so we can safely update the count display prop without touching the emoji
| -rw-r--r-- | lisp/mastodon-tl.el | 12 | ||||
| -rw-r--r-- | lisp/mastodon-toot.el | 6 |
2 files changed, 10 insertions, 8 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index bf0bc7e..289eda1 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1131,23 +1131,27 @@ To disable showing the stats, customize (when-let ((toot (mastodon-tl--toot-for-stats toot))) (let* ((favourites-count (alist-get 'favourites_count toot)) (favourited (equal 't (alist-get 'favourited toot))) + (faves-prop (propertize (format "%s" favourites-count) + 'favourites-count favourites-count)) (boosts-count (alist-get 'reblogs_count toot)) (boosted (equal 't (alist-get 'reblogged toot))) + (boosts-prop (propertize (format "%s" boosts-count) + 'boosts-count boosts-count)) (replies-count (alist-get 'replies_count toot)) - (favourites (format "%s %s" favourites-count (mastodon-tl--symbol 'favourite))) - (boosts (format "%s %s" boosts-count (mastodon-tl--symbol 'boost))) + (favourites (format "%s %s" faves-prop ;favourites-count + (mastodon-tl--symbol 'favourite))) + (boosts (format "%s %s" boosts-prop ;boosts-count + (mastodon-tl--symbol 'boost))) (replies (format "%s %s" replies-count (mastodon-tl--symbol 'reply))) (status (concat (propertize favourites 'favourited-p favourited 'favourites-field t - 'favourites-count favourites-count 'face font-lock-comment-face) (propertize " | " 'face font-lock-comment-face) (propertize boosts 'boosted-p boosted 'boosts-field t - 'boosts-count boosts-count 'face font-lock-comment-face) (propertize " | " 'face font-lock-comment-face) (propertize replies diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 8183c27..82a9482 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -400,10 +400,8 @@ SUBTRACT means we are un-favouriting or unboosting, so we decrement." (car count-prop-range) (cdr count-prop-range) (list 'display ; update the display prop: - (concat - (number-to-string - (mastodon-toot--inc-or-dec count subtract)) - " ") + (number-to-string + (mastodon-toot--inc-or-dec count subtract)) ;; update the count prop ;; we rely on this for any subsequent actions: count-prop |