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

Show questionnaire results in columns per row

Browse source
This commit is contained in:
Marcus Kammer 2024-07-10 22:28:47 +02:00
parent 1287d62485
commit 2bc287f3b7
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 17 additions and 9 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"
:description "A simple survey"
:version "0.2.2"
:version "0.2.3"
:author "Marcus Kammer <marcus.kammer@metalisp.dev>"
:source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
:licence "MIT"

24
src/survey.lisp
View file

@ -75,6 +75,11 @@
(defun results-not-null (results)
(some (lambda (x) (and (listp x) (not (null x)))) results))
(defun group-in-chunks (lst)
"Group LST into sublists of three elements."
(loop for i from 0 by 3 while (< i (length lst))
collect (subseq lst i (min (+ i 3) (length lst)))))
(defun view (survey &optional results)
"Generates the view to show the survey created."
(check-type survey survey)
@ -109,14 +114,17 @@
(loop for (type data) on results by #'cddr unless (eq type :sus)
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
for i from 0
do (:li :class (if (zerop i)
"list-group-item active"
"list-group-item")
data)))))))))))
(:div :class "container"
(loop for row in (group-in-chunks data)
do (:div :class "row"
(loop for col in row
do (:ul :class "col-4 list-group py-3"
(loop for entry in col
for i from 0
do (:li :class (if (zerop i)
"list-group-item active"
"list-group-item")
entry))))))))))))))
(defun extract-numbers (results)
"Extract numbers from a questionnaire RESULTS list.
Returns a list of integers."