From e986a8e87709f829f347fab9b402314bb152808e Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 11 Jul 2024 21:37:55 +0200 Subject: [PATCH] Ignore special questionnaires by showing general questionnaires --- dev.metalisp.survey.asd | 2 +- src/survey.lisp | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd index e9892c9..f2c5427 100644 --- a/dev.metalisp.survey.asd +++ b/dev.metalisp.survey.asd @@ -2,7 +2,7 @@ (defsystem "dev.metalisp.survey" :description "A simple survey" - :version "0.2.4" + :version "0.2.5" :author "Marcus Kammer " :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey" :licence "MIT" diff --git a/src/survey.lisp b/src/survey.lisp index db537b4..3f731f1 100644 --- a/src/survey.lisp +++ b/src/survey.lisp @@ -95,8 +95,11 @@ (loop for row in sus-results do (:tr (mapcar (lambda (data) (:td data)) row))))))) +(defparameter *special-questionnaire-types* '(:sus :ueq :visawi :mucue)) + (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)) (:div :class "container" (loop for row in (group-in-chunks data)