From 27409107eb3542e24f0b68c79a8cae89ce9afb78 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Tue, 25 Apr 2023 20:45:05 +0200
Subject: let-alist tl--toot-id

---
 lisp/mastodon-tl.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 536ad62..68fa782 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1813,9 +1813,8 @@ If the toot has been boosted use the id found in the
 reblog portion of the toot.  Otherwise, use the body of
 the toot.  This is the same behaviour as the mastodon.social
 webapp"
-  (let ((id (alist-get 'id json))
-        (reblog (alist-get 'reblog json)))
-    (if reblog (alist-get 'id reblog) id)))
+  (let-alist json
+    (if .reblog .reblog.id .id)))
 
 (defun mastodon-tl--toot-or-base (json)
   "Return the base toot or just the toot from toot JSON."
-- 
cgit v1.2.3