diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-06-02 17:12:34 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-06-02 17:12:34 +0200 |
| commit | 4aad54dcdff670f38bc0ba5891bca43d679ca46c (patch) | |
| tree | c08fff7e2eeb4b8f3e0a567474d03d396dea37f0 /lisp/mastodon-tl.el | |
| parent | f4a4d31f29956048f44fb9982788ff17753585de (diff) | |
get-poll > format-poll
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 949414c..dc1f251 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1232,7 +1232,7 @@ LONGEST-OPTION is the option whose length determines the formatting." (format "[%s votes]" (or (alist-get 'votes_count option) "0")))) -(defun mastodon-tl--get-poll (toot) +(defun mastodon-tl--format-poll (toot) "If TOOT includes a poll, return it as a formatted string." (let-alist (mastodon-tl--field 'poll toot) ; toot or reblog (let* ((option-titles (mastodon-tl--map-alist 'title .options)) @@ -1454,7 +1454,7 @@ Runs `mastodon-tl--render-text' and fetches poll or media." (media-p (mastodon-tl--field 'media_attachments toot))) (concat (mastodon-tl--render-text content toot) (when poll-p - (mastodon-tl--get-poll toot)) + (mastodon-tl--format-poll toot)) (when media-p (mastodon-tl--media toot))))) |