1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00

- added support for signature.

This commit is contained in:
cage
2020-06-24 19:42:05 +02:00
parent fc43ffb423
commit 9229d4dd08
5 changed files with 44 additions and 14 deletions

View File

@ -274,3 +274,7 @@
(format stream "~%~a~%" (_ "A single choice allowed")))
(when expiredp
(format stream "~%~a~%" (_ "The poll has expired"))))))))
(defun signature ()
(when-let ((signature-file (swconf:signature-file-path)))
(format nil "-- ~%~a" (fs:slurp-file signature-file))))