From 213a05fa6bdeef3807d2f2499efb12adc834e750 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 31 May 2024 19:28:09 +0200 Subject: [PATCH] Use table to show survey properties --- src/views/survey.lisp | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/src/views/survey.lisp b/src/views/survey.lisp index 5f99129..011e872 100644 --- a/src/views/survey.lisp +++ b/src/views/survey.lisp @@ -8,12 +8,17 @@ (ml-survey/partials:navbar-en) (:section :class "container" (:h2 id) - (:ul :class "list-group" - (loop for property in properties - for key = (car property) - for value = (cdr property) do - (:li :class "list-group-item" - (if (string= key "questionnaire") - (:a :href (concatenate 'string "/survey/" id value) - value) - (format nil "~a: ~a" key value))))))))) + (:table :class "table" + (:thead :class "thead-dark" + (:tr (:th :scope "col" + "Key") + (:th :scope "col" + "Value"))) + (:tbody (loop for property in properties + for key = (car property) + for value = (cdr property) do + (:tr (:td key) + (:td (if (string= key "questionnaire") + (:a :href (concatenate 'string "/survey/" id value) + value) + value))))))))))