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

Merge branch 'main' of git.sr.ht:~marcuskammer/dev.metalisp.survey

Browse source
This commit is contained in:
Marcus Kammer 2024-06-23 13:25:51 +02:00
commit bfc496a4d6
Signed by: marcuskammer
GPG key ID: C374817BE285268F
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

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