cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- prevented skipping code when a poll has not expired.

Browse Source
This commit is contained in:
cage 2020-05-31 14:18:44 +02:00
parent 976f154bc2
commit cc6bbd691b
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/message-rendering-utils.lisp
View File

@ -240,8 +240,8 @@
(mapcar #'db:row-votes-count options)))
(max-title-w (find-max-line-length all-titles))
(max-bar-width (- width max-title-w 6))
(bar-char (swconf:vote-vertical-bar))
(expiredp (db:row-poll-expired-p poll)))
(bar-char (swconf:vote-vertical-bar)))
(let ((expiredp (db:row-poll-expired-p poll)))
(with-output-to-string (stream)
(loop for option in options do
(let* ((title (left-padding (db:row-title option) max-title-w))
@ -256,4 +256,4 @@
(princ bar-char stream))
(format stream " ~a~%" (left-padding vote (- max-bar-width bar-w)))))
(when expiredp
(format stream "~%~a~%" (_ "The poll has expired")))))))
(format stream "~%~a~%" (_ "The poll has expired"))))))))