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" (defsystem "dev.metalisp.survey"
:description "A simple survey" :description "A simple survey"
:version "0.1.6" :version "0.1.7"
:author "Marcus Kammer <marcus.kammer@metalisp.dev" :author "Marcus Kammer <marcus.kammer@metalisp.dev"
:source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey" :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
:licence "MIT" :licence "MIT"

13
src/views/survey.lisp
View file

@ -13,15 +13,15 @@
(: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 :class "py-3" "Properties")
(ml-survey:survey-html survey) (ml-survey:survey-html survey)
(when results-not-null (when results-not-null
(:h2 "Questionnaire Results") (:h2 :class "py-3" "Questionnaire Results")
(if sus-results (if sus-results
(let ((count-answers (length (cdr (car sus-results))))) (let ((count-answers (length (cdr (car sus-results)))))
(:h3 "SUS") (:h3 :class "py-1" "SUS")
(:table :class "table table-hover" (:table :class "table table-hover"
(:caption "Questionnaire results table") (:caption "Questionnaire results table")
(:thead (:thead
@ -35,9 +35,12 @@
do (:tr (mapcar (lambda (data) (:td data)) row))))))) do (:tr (mapcar (lambda (data) (:td data)) row)))))))
(loop for (type data) on results by #'cddr unless (eq type :sus) (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 (loop for row in data
do (:ul :class "list-group py-3" do (:ul :class "list-group py-3"
(loop for data in row (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))))))))))) data)))))))))))