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

Update surveys docs

Browse source
This commit is contained in:
Marcus Kammer 2024-02-11 13:32:43 +01:00
parent b2ff3dc228
commit 6dc6865405
1 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
docs/pattern/survey-examples/user-research.org
View file

@ -114,3 +114,51 @@
#+RESULTS: psychographics-survey #+RESULTS: psychographics-survey
[[file:psychographics-survey.html]] [[file:psychographics-survey.html]]
* Needs/Challenges
#+name: nc-survey
#+begin_src lisp :results output file :file-ext html
(in-package :user-research-app)
(defun generate-nc-survey ()
"Generates an HTML page with questionnaires using questionnaire macros."
(with-output-to-string (spinneret:*html*)
(with-page (:title "Product Experience Survey" :main-con t)
(questionnaire "/submit"
(:ask "What challenges, if any, does our software help you overcome?"
:group "nc-challenges"
:choices (:text "Please describe"))
(:ask "How could we improve to better meet your needs?"
:group "nc-improve"
:choices (:single "Please describe"))))))
(format t (generate-nc-survey))
#+end_src
#+RESULTS: nc-survey
[[file:nc-survey.html]]
* Technology Comfort Level
#+name: tcl-survey
#+begin_src lisp :results output file :file-ext html
(in-package :user-research-app)
(defun generate-tcl-survey ()
"Generates an HTML page with questionnaires using questionnaire macros."
(with-output-to-string (spinneret:*html*)
(with-page (:title "Product Experience Survey" :main-con t)
(questionnaire "/submit"
(:ask "How would you rate your comfort level with technology?"
:group "tcl-likeart"
:choices (:single "1 - Very Uncomfortable" "2 - Slightly Uncomfortable" "3 - Neutral" "4 - Quite Comfortable" "5 - Very Comfortable"))
(:ask "How frequently do you adopt new technologies?"
:group "tcl-adopt"
:choices (:single "1 - Always - I'm an early adopter." "2 - Often - I stay on top of technological advances and adopt them frequently." "3 - Sometimes - I adopt new technologies now and then." "4 - Rarely - I only adopt new technologies when it's necessary for work or other important tasks." "5 - Never - I avoid adopting new technologies unless absolutely required."))))))
(format t (generate-tcl-survey))
#+end_src
#+RESULTS: tcl-survey
[[file:tcl-survey.html]]