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

Ignore special questionnaires by showing general questionnaires

Browse source
This commit is contained in:
Marcus Kammer 2024-07-11 21:37:55 +02:00
parent 14fdbf2e58
commit e986a8e877
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey" (defsystem "dev.metalisp.survey"
:description "A simple survey" :description "A simple survey"
:version "0.2.4" :version "0.2.5"
: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"

5
src/survey.lisp
View file

@ -95,8 +95,11 @@
(loop for row in sus-results (loop for row in sus-results
do (:tr (mapcar (lambda (data) (:td data)) row))))))) do (:tr (mapcar (lambda (data) (:td data)) row)))))))
(defparameter *special-questionnaire-types* '(:sus :ueq :visawi :mucue))
(defun results-html (results) (defun results-html (results)
(loop for (type data) on results by #'cddr unless (eq type :sus) (loop for (type data) on results by #'cddr
unless (member type *special-questionnaire-types* :test 'eq)
do (spinneret:with-html (:h3 :class "py-1" (format nil "~a" type)) do (spinneret:with-html (:h3 :class "py-1" (format nil "~a" type))
(:div :class "container" (:div :class "container"
(loop for row in (group-in-chunks data) (loop for row in (group-in-chunks data)