cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- printed an error to the user when trying to vote for a message that 

does not contains a poll.
This commit is contained in:
cage 2020-06-07 12:12:36 +02:00
parent e6553c067e
commit f20376adbf
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ui-goodies.lisp
View File

@ -1247,7 +1247,7 @@ This command will remove those limits so that we can just jump to the last messa
(db:remove-pagination-status folder timeline))))
(defun poll-vote ()
"Change timeline"
"Vote in a poll"
(labels ((valid-indices-p (choices options)
(let ((max-index (length options)))
(every (lambda (a) (and (>= a 0)
@ -1284,6 +1284,12 @@ This command will remove those limits so that we can just jump to the last messa
(with-blocking-notify-procedure ((_ "Voting... ")
(_ "Choice sent."))
(push-event event)))))))))
(ask-string-input #'on-input-complete
:prompt
(_ "Type the index (or space separated indices) of selected choices: "))))
(when-let* ((fields (line-oriented-window:selected-row-fields
specials:*thread-window*))
(status-id (db:row-message-status-id fields)))
(let ((poll (db:find-poll-bound-to-status status-id)))
(if poll
(ask-string-input #'on-input-complete
:prompt
(_ "Type the index (or space separated indices) of selected choices: "))
(error-message (_ "This in not a poll")))))))