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

Modify with-page and questionnaire docs

Browse source
This commit is contained in:
Marcus Kammer 2024-01-27 14:41:21 +01:00
parent 8127682042
commit 70251c7ec0
3 changed files with 148 additions and 152 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
docs/pattern/questionnaire-page.html
View file

@ -1,12 +1,15 @@
<html lang=en>
<!DOCTYPE html>
<html lang=en data-bs-theme=dark>
<head>
<meta charset=UTF-8>
<title>Questionnaire Examples</title>
<meta charset=utf-8>
<meta name=viewport content="width=device-width, initial-scale=1">
<title>Questionnaire Example</title>
<link rel=stylesheet type=text/css
href=https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css>
href=https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/css/bootstrap.min.css>
</head>
<body>
<h1>Questionnaire Examples</h1>
<h1 class=visually-hidden>Questionnaire Example</h1>
<main class=container>
<form class=py-5 action=/submit method=post>
<fieldset>
<legend>How old are you?</legend>
@ -14,35 +17,35 @@
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-age-1824 class="form-check-label group-age">
<label class="form-check-label group-age" for=group-age-1824>
<input class=form-check-input type=radio name=group-age value=18-24
id=group-age-1824> 18-24</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-age-2534 class="form-check-label group-age">
<label class="form-check-label group-age" for=group-age-2534>
<input class=form-check-input type=radio name=group-age value=25-34
id=group-age-2534> 25-34</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-age-3544 class="form-check-label group-age">
<label class="form-check-label group-age" for=group-age-3544>
<input class=form-check-input type=radio name=group-age value=35-44
id=group-age-3544> 35-44</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-age-4554 class="form-check-label group-age">
<label class="form-check-label group-age" for=group-age-4554>
<input class=form-check-input type=radio name=group-age value=45-54
id=group-age-4554> 45-54</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-age-55 class="form-check-label group-age">
<label class="form-check-label group-age" for=group-age-55>
<input class=form-check-input type=radio name=group-age value=55+
id=group-age-55> 55+</label>
</div>
@ -55,44 +58,44 @@
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-gender-male class="form-check-label group-gender">
<label class="form-check-label group-gender" for=group-gender-male>
<input class=form-check-input type=radio name=group-gender
value=male id=group-gender-male> Male</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-gender-female class="form-check-label group-gender">
<label class="form-check-label group-gender" for=group-gender-female>
<input class=form-check-input type=radio name=group-gender
value=female id=group-gender-female> Female</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-gender-nonbinary
class="form-check-label group-gender">
<label class="form-check-label group-gender"
for=group-gender-nonbinary>
<input class=form-check-input type=radio name=group-gender
value=non-binary id=group-gender-nonbinary> Non-binary</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-gender-prefernottosay
class="form-check-label group-gender">
<label class="form-check-label group-gender"
for=group-gender-prefernottosay>
<input class=form-check-input type=radio name=group-gender
value=prefer-not-to-say id=group-gender-prefernottosay> Prefer not to say</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-gender-other class="form-check-label group-gender">
<label class="form-check-label group-gender" for=group-gender-other>
<input class=form-check-input type=radio name=group-gender
value=other id=group-gender-other> Other</label>
</div>
<li>
<!-- FORM/CTRL -->
<div class=mb-3>
<label for=group-gender-other class="form-label group-gender">Other</label>
<label class="form-label group-gender" for=group-gender-other>Other</label>
<input class=form-control id=group-gender-other type=text
name=group-gender>
</div>
@ -105,32 +108,32 @@
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-webbrowsing-lessthan1hour
class="form-check-label group-webbrowsing">
<label class="form-check-label group-webbrowsing"
for=group-webbrowsing-lessthan1hour>
<input class=form-check-input type=radio name=group-webbrowsing
value=less-than-1-hour id=group-webbrowsing-lessthan1hour> Less than 1 hour</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-webbrowsing-13hours
class="form-check-label group-webbrowsing">
<label class="form-check-label group-webbrowsing"
for=group-webbrowsing-13hours>
<input class=form-check-input type=radio name=group-webbrowsing
value=1-3-hours id=group-webbrowsing-13hours> 1-3 hours</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-webbrowsing-35hours
class="form-check-label group-webbrowsing">
<label class="form-check-label group-webbrowsing"
for=group-webbrowsing-35hours>
<input class=form-check-input type=radio name=group-webbrowsing
value=3-5-hours id=group-webbrowsing-35hours> 3-5 hours</label>
</div>
<li>
<!-- FORM/CHECKABLE -->
<div class=form-check>
<label for=group-webbrowsing-5hours
class="form-check-label group-webbrowsing">
<label class="form-check-label group-webbrowsing"
for=group-webbrowsing-5hours>
<input class=form-check-input type=radio name=group-webbrowsing
value=5+-hours id=group-webbrowsing-5hours> 5+ hours</label>
</div>
@ -139,7 +142,8 @@
</fieldset>
<button class="btn btn-primary" type=submit>Submit</button>
</form>
</main>
<script
src=https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/js/bootstrap.bundle.min.js></script>
src=https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/js/bootstrap.bundle.min.js></script>
</body>
</html>

22
docs/pattern/questionnaire.org
View file

@ -1,7 +1,7 @@
#+title: Creating a Questionnaire using cl-sbt/questionnaire Macros in a Web Application
#+author: Marcus Kammer
#+email: marcus.kammer@mailbox.org
#+date: 2023-11-09T18:27+01:00
#+date: 2024-01-27T14:40+01:00
* Introduction
Questionnaires are powerful tools for gathering information and insights from
@ -31,23 +31,17 @@ required for different types of questions in a questionnaire.
#+name: questionnaire-page
#+begin_src lisp :results output file :file-ext html
(defpackage my-web-app
(:use :cl :cl-sbt/questionnaire)
(:use :cl)
(:import-from :dev.metalisp.sbt :with-page)
(:import-from :dev.metalisp.sbt/pattern/questionnaire :questionnaire)
(:export :generate-button-page))
(in-package :my-web-app)
(defun generate-questionnaire-page ()
"Generates an HTML page with questionnaires using cl-sbt/questionnaire macros."
(spinneret:with-html-string
(:html
(:head
(:title "Questionnaire Examples")
(:link :type "text/css"
:rel "stylesheet"
:href "https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css"))
(:body
(:h1 "Questionnaire Examples")
;; ---
(with-output-to-string (spinneret:*html*)
(with-page (:title "Questionnaire Example" :main-con t)
(questionnaire "/submit"
(:ask "How old are you?"
:group "age"
@ -57,9 +51,7 @@ required for different types of questions in a questionnaire.
:choices (:radio "Male" "Female" "Non-binary" "Prefer not to say" "Other" :text "Other"))
(: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")))
;; ---
(:script :src "https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/js/bootstrap.bundle.min.js")))))
:choices (:radio "Less than 1 hour" "1-3 hours" "3-5 hours" "5+ hours"))))))
(format t (generate-questionnaire-page))
#+end_src

6
src/main.lisp
View file

@ -69,9 +69,9 @@
(with-open-file (stream filename :direction :output :if-exists :supersede)
(write-string string stream))))
(defmacro with-page ((&key meta title add-css-urls add-js-urls) &body body)
(defmacro with-page ((&key meta title main-con add-css-urls add-js-urls) &body body)
(unless title
(error "Please add a title"))
(error "A page needs a title. Please add a title."))
`(spinneret:with-html
(:doctype)
(:html :data-bs-theme ,*color-theme*
@ -89,7 +89,7 @@
collect `(:link :type "text/css" :rel "stylesheet" :href ,url)))
(:body (:h1 :class "visually-hidden" ,title)
(:main ,@body)
(:main ,@(when main-con (list :class "container")) ,@body)
(:script :src ,(js-url))
,@(loop for url in add-js-urls