From 6dc6865405c0105109da17eb57e9c5bf3c7980ac Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 11 Feb 2024 13:32:43 +0100
Subject: [PATCH] Update surveys docs

---
 .../pattern/survey-examples/user-research.org | 48 +++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/docs/pattern/survey-examples/user-research.org b/docs/pattern/survey-examples/user-research.org
index 7c44d01..d73623e 100644
--- a/docs/pattern/survey-examples/user-research.org
+++ b/docs/pattern/survey-examples/user-research.org
@@ -114,3 +114,51 @@
 
 #+RESULTS: psychographics-survey
 [[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]]