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

Update css classes for survey view

Browse source
This commit is contained in:
Marcus Kammer 2024-07-06 13:44:28 +02:00
parent d886141110
commit ee1d328f97
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -1,6 +1,6 @@
(defsystem "dev.metalisp.survey"
:description "A simple survey"
:version "0.1.6"
:version "0.1.7"
:author "Marcus Kammer <marcus.kammer@metalisp.dev"
:source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
:licence "MIT"

13
src/views/survey.lisp
View file

@ -13,15 +13,15 @@
(:main :id "main-content"
:class "container"
(:p (format nil "ID: ~a" (ml-survey:survey-id survey)))
(:h2 "Properties")
(:h2 :class "py-3" "Properties")
(ml-survey:survey-html survey)
(when results-not-null
(:h2 "Questionnaire Results")
(:h2 :class "py-3" "Questionnaire Results")
(if sus-results
(let ((count-answers (length (cdr (car sus-results)))))
(:h3 "SUS")
(:h3 :class "py-1" "SUS")
(:table :class "table table-hover"
(:caption "Questionnaire results table")
(:thead
@ -35,9 +35,12 @@
do (:tr (mapcar (lambda (data) (:td data)) row)))))))
(loop for (type data) on results by #'cddr unless (eq type :sus)
do (progn (:h3 (format nil "~a" type))
do (progn (:h3 :class "py-1" (format nil "~a" type))
(loop for row in data
do (:ul :class "list-group py-3"
(loop for data in row
do (:li :class "list-group-item"
for i from 0
do (:li :class (if (zerop i)
"list-group-item active"
"list-group-item")
data)))))))))))