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

23
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"
for key = (car property) (:tr (:th :scope "col"
for value = (cdr property) do "Key")
(:li :class "list-group-item" (:th :scope "col"
(if (string= key "questionnaire") "Value")))
(:a :href (concatenate 'string "/survey/" id value) (:tbody (loop for property in properties
value) for key = (car property)
(format nil "~a: ~a" key value))))))))) for value = (cdr property) do
(:tr (:td key)
(:td (if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id value)
value)
value))))))))))