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

Add nps assessment

Browse source
This commit is contained in:
Marcus Kammer 2024-12-02 19:41:12 +01:00
parent 8d0dd3211f
commit 521dac7652
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/assessment/nps.lisp Normal file
View file

@ -0,0 +1,29 @@
;;; -*- mode: lisp; coding: utf-8; comment-column 79; -*-
(in-package :ml-qmetrics/assessment)
;;;
;;; CALCULATOR
;;;
(defclass nps-calculator (calculator) ())
(defmethod calculator-calc-results ((calc nps-calculator) responses))
;;;
;;; DISPLAYER
;;;
(defclass nps-displayer (displayer))
(defmethod displayer-generate-html ((disp nps-displayer) results &optional group-stats survey-id))
;;;
;;; ASSESSMENT
;;;
(defclass nps-assessment (assessment))
(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")))