128 lines
4.5 KiB
Org Mode
128 lines
4.5 KiB
Org Mode
#+title: Creating a Questionnaire using dev.metalisp.sbt/component/questionnaire Macros in a Web Application
|
|
#+author: Marcus Kammer
|
|
#+email: marcus.kammer@mailbox.org
|
|
#+date: [2024-04-21 18:55]
|
|
* Introduction
|
|
|
|
Questionnaires are powerful tools for gathering information and insights from
|
|
users. They are crucial for understanding user behaviors, preferences, and
|
|
requirements. This document will demonstrate how to build a web-based
|
|
questionnaire using the cl-sbt/questionnaire macros in a Common Lisp
|
|
application.
|
|
|
|
** The Importance of Questionnaires
|
|
|
|
Questionnaires help in collecting data for various purposes including market
|
|
research, user experience study, and many more. They can be in multiple formats
|
|
like single-choice, multiple-choice, or open-ended questions.
|
|
|
|
*** Types of Questions
|
|
|
|
- Single Choice: Questions that allow one answer.
|
|
- Multiple Choice: Questions that allow multiple answers.
|
|
- Text: Open-ended questions for free text input.
|
|
|
|
* Integrating dev.metalisp.sbt/component/questionnaire Macros
|
|
|
|
To create a questionnaire in your Common Lisp web application,
|
|
cl-sbt/questionnaire macros can be employed. These macros generate the HTML
|
|
required for different types of questions in a questionnaire.
|
|
|
|
#+begin_src lisp
|
|
(ql:quickload '(:dev.metalisp.sbt :hunchentoot))
|
|
#+end_src
|
|
|
|
#+RESULTS:
|
|
| :DEV.METALISP.SBT |
|
|
|
|
#+begin_src lisp
|
|
(defpackage my-web-questionnaire-app
|
|
(:use :cl)
|
|
(:import-from :dev.metalisp.sbt :with-page)
|
|
(:import-from :dev.metalisp.sbt/questionnaire :questionnaire)
|
|
(:export :generate-questionnaire-page))
|
|
#+end_src
|
|
|
|
#+RESULTS:
|
|
: #<PACKAGE "MY-WEB-QUESTIONNAIRE-APP">
|
|
|
|
#+name: questionnaire-page
|
|
#+begin_src lisp :results output file :file-ext html
|
|
(in-package :my-web-questionnaire-app)
|
|
|
|
(defun generate-questionnaire-page ()
|
|
"Generates an HTML page with questionnaires using questionnaire macros."
|
|
(with-output-to-string (spinneret:*html*)
|
|
(with-page (:title "Questionnaire Example" :main-con t)
|
|
(questionnaire "#" "none"
|
|
(:ask "How old are you?"
|
|
:group "age"
|
|
:choices (:radio "18-24" "25-34" "35-44" "45-54" "55+"))
|
|
|
|
(:ask "Gender"
|
|
:group "gender"
|
|
:choices (:radio "Male" "Female" "Non-binary" "Prefer not to say" "Other" :text "Please specify"))
|
|
|
|
(:ask "How many hours per day, on average, do you spend browsing the internet?"
|
|
:group "webbrowsing"
|
|
:choices (:radio "Less than 1 hour" "1-3 hours" "3-5 hours" "5+ hours"))
|
|
|
|
(:ask "What are your favorite brands?"
|
|
:group "brands"
|
|
:choices (:checkbox "Brand A" "Brand B" "Brand C" "None" "Other" :text "Please specify"))
|
|
|
|
(:ask "How often do you shop online?"
|
|
:group "shopping"
|
|
:choices (:radio "Daily" "Weekly" "Monthly" "Rarely" "Never"))
|
|
|
|
(:ask "Which of the following devices do you own?"
|
|
:group "devices"
|
|
:choices (:checkbox "Smartphone" "Laptop/PC" "Tablet" "Smartwatch" "None"))
|
|
|
|
(:ask "What is your preferred method of payment for online purchases?"
|
|
:group "payment"
|
|
:choices (:radio "Credit/Debit Card" "PayPal" "Bank Transfer" "Cash on Delivery" "Cryptocurrency"))
|
|
|
|
(:ask "Which social media platforms do you use regularly?"
|
|
:group "socialmedia"
|
|
:choices (:checkbox "Facebook" "Twitter" "Instagram" "LinkedIn" "TikTok" "None" "Other" :text "Please specify"))
|
|
|
|
(:ask "How do you usually consume news?"
|
|
:group "newsconsumption"
|
|
:choices (:radio "Online News Websites" "Social Media" "Television" "Newspapers/Magazines" "Radio" "None"))))))
|
|
|
|
(format t (generate-questionnaire-page))
|
|
#+end_src
|
|
|
|
#+RESULTS: questionnaire-page
|
|
[[file:questionnaire-page.html]]
|
|
|
|
This example demonstrates the integration of the cl-sbt/questionnaire macros into a
|
|
web application. The macros assist in generating the required HTML for
|
|
different types of Bootstrap questionnaires.
|
|
|
|
#+begin_src lisp
|
|
(in-package :my-web-questionnaire-app)
|
|
|
|
(defvar *basic-server* nil)
|
|
|
|
(defun start-server ()
|
|
(setf *basic-server* (make-instance 'hunchentoot:easy-acceptor :name "basic-server" :port 8080))
|
|
(hunchentoot:start *basic-server*))
|
|
|
|
(defun stop-server (server)
|
|
(when server
|
|
(hunchentoot:stop server)
|
|
(setf *basic-server* nil)))
|
|
|
|
(defun restart-server (server)
|
|
(stop-server server)
|
|
(start-server))
|
|
|
|
(hunchentoot:define-easy-handler (submit :uri "/submit")
|
|
((data :parameter-type :post))
|
|
(format nil "Hello, ~a!" data))
|
|
#+end_src
|
|
|
|
#+RESULTS:
|
|
: SUBMIT
|