From 37217905df185094b68d01ade0c89c6d12364aa3 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 14 Jun 2024 17:47:54 +0200 Subject: [PATCH] Use lists instead of tables --- src/survey.lisp | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/src/survey.lisp b/src/survey.lisp index 599ff3e..f949daf 100644 --- a/src/survey.lisp +++ b/src/survey.lisp @@ -40,16 +40,10 @@ (defmethod survey-html ((survey survey)) (spinneret:with-html - (:table :class "table" - (: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 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))))))))) + (:dl (loop for property in (survey-properties survey) + for key = (car property) + for value = (cdr property) do + (:dt key) + (cond ((string= key "questionnaire") + (:dd (:a :href (build-questionnaire-link (survey-id survey) value) value))) + (t (:dd value)))))))