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

Use table to show survey properties

Browse source
This commit is contained in:
Marcus Kammer 2024-05-31 19:28:09 +02:00
parent d5f09372d7
commit 213a05fa6b
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/views/survey.lisp
View file

@ -8,12 +8,17 @@
(ml-survey/partials:navbar-en) (ml-survey/partials:navbar-en)
(:section :class "container" (:section :class "container"
(:h2 id) (:h2 id)
(:ul :class "list-group" (:table :class "table"
(loop for property in properties (:thead :class "thead-dark"
(:tr (:th :scope "col"
"Key")
(:th :scope "col"
"Value")))
(:tbody (loop for property in properties
for key = (car property) for key = (car property)
for value = (cdr property) do for value = (cdr property) do
(:li :class "list-group-item" (:tr (:td key)
(if (string= key "questionnaire") (:td (if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id value) (:a :href (concatenate 'string "/survey/" id value)
value) value)
(format nil "~a: ~a" key value))))))))) value))))))))))