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

Reformat sus display code

Browse source
This commit is contained in:
Marcus Kammer 2025-01-05 15:46:10 +01:00
parent f74b63d436
commit 905067fcb0
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/assessment/sus.lisp
View file

@ -39,19 +39,20 @@
(defmethod displayer-generate-html ((disp sus-displayer) results &optional group-stats survey-id) (defmethod displayer-generate-html ((disp sus-displayer) results &optional group-stats survey-id)
(with-section (with-title-bar (format nil "~A" (displayer-name disp))) (with-section (with-title-bar (format nil "~A" (displayer-name disp)))
(with-accordion (with-accordion
nil (:id "sus-grading-table")
"Grading Table" (ml-sbt/tbl:render-tbl '("Score Range" "Grade" "Percentile range") "Grading Table"
'(("84.1-100" "A+" "96-100") (ml-sbt/tbl:render-tbl '("Score Range" "Grade" "Percentile range")
("80.8-84.0" "A" "90-95") '(("84.1-100" "A+" "96-100")
("78.9-80.7" "A-" "85-89") ("80.8-84.0" "A" "90-95")
("77.2-78.8" "B+" "80-84") ("78.9-80.7" "A-" "85-89")
("74.1-77.1" "B" "70-79") ("77.2-78.8" "B+" "80-84")
("72.6-74.0" "B-" "65-69") ("74.1-77.1" "B" "70-79")
("71.1-72.5" "C+" "60-64") ("72.6-74.0" "B-" "65-69")
("65.0-71.0" "C" "41-59") ("71.1-72.5" "C+" "60-64")
("62.7-64.9" "C-" "35-40") ("65.0-71.0" "C" "41-59")
("51.7-62.6" "D" "15-34") ("62.7-64.9" "C-" "35-40")
("0.0-51.6" "F" "0-14")))) ("51.7-62.6" "D" "15-34")
("0.0-51.6" "F" "0-14"))))
(:div :class "row" (:div :class "row"
(with-section-col (with-section-col
(with-title-bar "Results" (with-title-bar "Results"