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

Use lists instead of tables

Browse source
This commit is contained in:
Marcus Kammer 2024-06-14 17:47:54 +02:00
parent 242da4e070
commit 37217905df
1 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/survey.lisp
View file

@ -40,16 +40,10 @@
(defmethod survey-html ((survey survey)) (defmethod survey-html ((survey survey))
(spinneret:with-html (spinneret:with-html
(:table :class "table" (:dl (loop for property in (survey-properties survey)
(:thead :class "thead-dark" for key = (car property)
(:tr (:th :scope "col" for value = (cdr property) do
"Key") (:dt key)
(:th :scope "col" (cond ((string= key "questionnaire")
"Value"))) (:dd (:a :href (build-questionnaire-link (survey-id survey) value) value)))
(:tbody (loop for property in (survey-properties survey) (t (:dd value)))))))
for key = (car property)
for value = (cdr property) do
(:tr (:td key)
(cond ((string= key "questionnaire")
(:td (:a :href (build-questionnaire-link (survey-id survey) value) value)))
(t (:td value)))))))))