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

Update questionnaire docs

Browse source
This commit is contained in:
Marcus Kammer 2023-09-06 14:50:59 +02:00
parent 43d5cb720c
commit a4c70990d1
1 changed files with 31 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
src/pattern/questionnaire.org
View file

@ -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