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

14
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"
(:tr (:th :scope "col"
"Key")
(:th :scope "col"
"Value")))
(:tbody (loop for property in (survey-properties survey)
for key = (car property) for key = (car property)
for value = (cdr property) do for value = (cdr property) do
(:tr (:td key) (:dt key)
(cond ((string= key "questionnaire") (cond ((string= key "questionnaire")
(:td (:a :href (build-questionnaire-link (survey-id survey) value) value))) (:dd (:a :href (build-questionnaire-link (survey-id survey) value) value)))
(t (:td value))))))))) (t (:dd value)))))))