diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-04-25 20:45:05 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-08 08:09:27 +0200 |
| commit | 27409107eb3542e24f0b68c79a8cae89ce9afb78 (patch) | |
| tree | a4cee3d94d0f0a536e4a964d43490c16c6d21d50 | |
| parent | c579efdef65e1d6a6ad29e0a609202cd59a683e2 (diff) | |
let-alist tl--toot-id
| -rw-r--r-- | lisp/mastodon-tl.el | 5 |
1 files changed, 2 insertions, 3 deletions
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." |