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

Fix code indentation and add table caption

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 16:01:59 +02:00
parent 46f52159bf
commit b39855393d
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 18 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
src/views/survey.lisp
View file

@ -6,22 +6,23 @@
(with-page (:title "Survey Details") (with-page (:title "Survey Details")
(body-header "Survey Details" (navbar-en)) (body-header "Survey Details" (navbar-en))
(:main :id "main-content" (:main :id "main-content"
:class "container" :class "container"
(:p (format nil "ID: ~a" (ml-survey:survey-id survey))) (:p (format nil "ID: ~a" (ml-survey:survey-id survey)))
(:h2 "Properties") (:h2 "Properties")
(ml-survey:survey-html survey) (ml-survey:survey-html survey)
(when results (when results
(:h2 "Questionnaire Results") (:h2 "Questionnaire Results")
(let ((count-answers (length (car results)))) (let ((count-answers (length (car results))))
(:table :class "table table-hover" (:table :class "table table-hover"
(:thead (:caption "Questionnaire results table")
(:tr (:thead
(loop for i from 1 to count-answers do (:tr
(if (= i count-answers) (loop for i from 1 to count-answers do
(:th :scope "col" "SUS Score") (if (= i count-answers)
(:th :scope "col" (format nil "Q ~a" i))))) (:th :scope "col" "SUS Score")
(:tbody (:th :scope "col" (format nil "Q ~a" i)))))
(loop for result in results do (:tbody
(:tr (loop for result in results do
(loop for answer in result do (:tr
(:td answer)))))))))))) (loop for answer in result do
(:td answer))))))))))))