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

Reformat code

Browse source
This commit is contained in:
Marcus Kammer 2025-01-01 20:16:35 +01:00
parent 3cb844adcf
commit 3316fce85a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/assessment/nps.lisp
View file

@ -13,7 +13,9 @@
(loop for score in clean-data
counting (>= score 9) into promoters
counting (<= score 6) into detractors
finally (return (list promoters detractors (length clean-data)))))
finally (return (list promoters
detractors
(length clean-data)))))
(error "Empty DATA list.")))
;;;
@ -35,7 +37,8 @@
(defclass nps-displayer (displayer) ())
(defmethod displayer-generate-html ((disp nps-displayer) results &optional group-stats survey-id)
(defmethod displayer-generate-html ((disp nps-displayer) results
&optional group-stats survey-id)
(with-section
(with-title-bar (format nil "~A" (displayer-name disp)))
(format nil "~A" results)))
@ -48,4 +51,5 @@
(defmethod initialize-instance :after ((a nps-assessment) &key)
(setf (assessment-calculator a) (make-instance 'nps-calculator)
(assessment-displayer a) (make-instance 'nps-displayer :name "Net Promoter Score")))
(assessment-displayer a) (make-instance 'nps-displayer
:name "Net Promoter Score")))