From 2c45d3b0fa0155dc0c0fd818dda6d716ed7d57e9 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Tue, 2 May 2023 20:42:37 +0200
Subject: let-alist --show-stats

---
 lisp/mastodon-tl.el | 62 +++++++++++++++++++++++++----------------------------
 1 file changed, 29 insertions(+), 33 deletions(-)

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 7cfcc3e..ef4652d 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1160,39 +1160,35 @@ toots are returned.
 To disable showing the stats, customize
 `mastodon-tl--show-stats'."
   (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" 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
-                                'face font-lock-comment-face)
-                    (propertize " | " 'face font-lock-comment-face)
-                    (propertize boosts
-                                'boosted-p boosted
-                                'boosts-field t
-                                'face font-lock-comment-face)
-                    (propertize " | " 'face font-lock-comment-face)
-                    (propertize replies
-                                'replies-field t
-                                'replies-count replies-count
-                                'face font-lock-comment-face)))
-           (status (concat
-                    (propertize " " 'display `(space :align-to (- right ,(+ (length status) 7))))
-                    status)))
-      status)))
+    (let-alist toot
+      (let* ((faves-prop (propertize (format "%s" .favourites_count)
+                                     'favourites-count .favourites_count))
+             (boosts-prop (propertize (format "%s" .reblogs_count)
+                                      'boosts-count .reblogs_count))
+             (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 (equal t .favourited)
+                                  'favourites-field t
+                                  'face font-lock-comment-face)
+                      (propertize " | " 'face font-lock-comment-face)
+                      (propertize boosts
+                                  'boosted-p (equal t .reblogged)
+                                  'boosts-field t
+                                  'face font-lock-comment-face)
+                      (propertize " | " 'face font-lock-comment-face)
+                      (propertize replies
+                                  'replies-field t
+                                  'replies-count .replies_count
+                                  'face font-lock-comment-face)))
+             (status (concat
+                      (propertize " " 'display `(space :align-to (- right ,(+ (length status) 7))))
+                      status)))
+        status))))
 
 
 ;; POLLS
-- 
cgit v1.2.3