cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-02 09:57:48 +01:00
Code Issues

- [fediverse] fixed test to identify if a post is a poll.

Browse Source
This commit is contained in:
cage 2024-11-13 19:02:23 +01:00
parent fb7b398608
commit 4dfa362c0f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ui-goodies.lisp
View File

@ -2304,11 +2304,11 @@ there."
choices)))
(find-poll-id ()
(when-let* ((fields (line-oriented-window:selected-row-fields *thread-window*))
(status-id (db:row-message-status-id fields))
(reblogged-status-id (db:row-message-reblog-id fields))
(poll (or (db:find-poll-bound-to-status status-id)
(db:find-poll-bound-to-status reblogged-status-id))))
(db:row-id poll)))
(status-id (db:row-message-status-id fields)))
(let* ((reblogged-status-id (db:row-message-reblog-id fields))
(poll (or (db:find-poll-bound-to-status status-id)
(db:find-poll-bound-to-status reblogged-status-id))))
(db:row-id poll))))
(on-input-complete (choices)
(let ((choices-list (split-words choices)))
(if (or (null choices-list)