From a4c70990d146bfbc3e9b4667c771ffb648ea6cf1 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 6 Sep 2023 14:50:59 +0200 Subject: [PATCH] Update questionnaire docs --- src/pattern/questionnaire.org | 48 ++++++++++++++++++++++------------- 1 file changed, 31 insertions(+), 17 deletions(-) diff --git a/src/pattern/questionnaire.org b/src/pattern/questionnaire.org index 05d7f8e..e9594e3 100644 --- a/src/pattern/questionnaire.org +++ b/src/pattern/questionnaire.org @@ -3,7 +3,6 @@ This org file demonstrate the creation of a questionnaire. #+begin_src lisp :results none - (defpackage feat-questionnaire (:use :cl) (:import-from @@ -24,20 +23,35 @@ This org file demonstrate the creation of a questionnaire. (with-page (:author "Marcus Kammer" :pagetitle "Questionnaire Example") (con () (questionnaire "/submit" - (:ask "How old are you?" - :group "age" - :choices (:single "18-24" "25-34" "35-44" "45-54" "55+")) - (:ask "Your Gender?" - :group "gender" - :choices (:single "Male" "Female" "Non-Binary" "Prefer not to say")) - (:ask "How many hours per day, on average, do you spend browsing the internet?" - :group "internet" - :choices (:single "Less than 1 hour" "1-3 hours" "3-5 hours" "5+ hours")) - (:ask "Which of the following devices do you regularly use to browse the internet? (Select all that apply)" - :group "devices" - :choices (:multiple "Desktop" "Laptop" "Tablet" "Smartphone")) - (:ask "Which social media platforms do you use regularly? (Select all that apply)" - :group "socialmedia" - :choices (:multiple "Facebook" "Twitter" "Instagram" "LinkedIn" "TikTok" "Snapchat" "Pinterest" "Youtube" :text "Others"))))))) - + (:ask "How old are you?" + :group "age" + :choices (:single "18-24" "25-34" "35-44" "45-54" "55+")) + (:ask "Your Gender?" + :group "gender" + :choices (:single "Male" "Female" "Non-Binary" "Prefer not to say")) + (:ask "How many hours per day, on average, do you spend browsing the internet?" + :group "internet" + :choices (:single "Less than 1 hour" "1-3 hours" "3-5 hours" "5+ hours")) + (:ask "Which of the following devices do you regularly use to browse the internet? (Select all that apply)" + :group "devices" + :choices (:multiple + "Desktop" + "Laptop" + "Tablet" + "Smartphone" + :text + "Others (please specify):")) + (:ask "Which social media platforms do you use regularly? (Select all that apply)" + :group "socialmedia" + :choices (:multiple + "Facebook" + "Twitter" + "Instagram" + "LinkedIn" + "TikTok" + "Snapchat" + "Pinterest" + "Youtube" + :text + "Others (please specify):"))))))) #+end_src