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

- prevented the poll's results to be printed before expiration.

This commit is contained in:
cage 2024-03-12 15:19:35 +01:00
parent 50a11fb603
commit 35d1eaf95f
7 changed files with 1465 additions and 1410 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

477
po/de.po
View File

File diff suppressed because it is too large Load Diff

471
po/es.po
View File

File diff suppressed because it is too large Load Diff

477
po/fr.po
View File

File diff suppressed because it is too large Load Diff

469
po/it.po
View File

File diff suppressed because it is too large Load Diff

477
po/pl.po
View File

File diff suppressed because it is too large Load Diff

479
po/tinmop.pot
View File

File diff suppressed because it is too large Load Diff

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

@ -336,16 +336,27 @@
(error () 0)))
(vote (left-padding (format nil "~f%" (* 100 rate)) 4))
(bar-w (truncate (* rate max-bar-width))))
(format stream "~a~a " padded-index padded-title)
(loop for i from 0 below bar-w do
(princ bar-char stream))
(format stream " ~a~%" (left-padding vote (+ 4 ; size of vote percent: ' nnn%'
(- max-bar-width bar-w))))))
(format stream
"~a~a~a "
(swconf:message-window-bullet-prefix)
padded-index
padded-title)
(if expiredp
(progn
(loop for i from 0 below bar-w do
(princ bar-char stream))
(format stream
" ~a~%"
(left-padding vote (+ 4 ; size of vote percent: ' nnn%'
(- max-bar-width bar-w)))))
(format stream "~%"))))
(if multiple-vote-allowed
(format stream "~%~a~%" (_ "Multiple choices allowed"))
(format stream "~%~a~%" (_ "A single choice allowed")))
(when expiredp
(format stream "~%~a~%" (_ "The poll has expired"))))))))
(if expiredp
(format stream "~%~a~%" (_ "The poll has expired"))
(format stream "~%~a~%" (_ "NB: results not shown as the poll has not expired"))))))))
(defun signature ()
(when-let ((signature-file (swconf:signature-file-path)))