marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Aks if surveys are available

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 22:38:18 +02:00
parent 00599f0751
commit 3fcf6ac0b1
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/views/surveys.lisp
View file

@ -20,17 +20,18 @@
(:a :class "btn btn-primary"
:href "/new-survey"
"New Survey")))
(:h2 :class "mb-3" "Overview")
(:ol :class "list-group list-group-numbered"
(loop for survey in surveys
for title = (extract-title survey)
for description = (extract-description survey)
for id = (extract-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~a" id)
title)
(if description
(:span description)
nil))))))))
(when surveys
(:h2 :class "mb-3" "Overview")
(:ol :class "list-group list-group-numbered"
(loop for survey in surveys
for title = (extract-title survey)
for description = (extract-description survey)
for id = (extract-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~a" id)
title)
(if description
(:span description)
nil)))))))))