diff --git a/docs/pattern/questionnaire.org b/docs/pattern/questionnaire.org index ae63dbd..756060b 100644 --- a/docs/pattern/questionnaire.org +++ b/docs/pattern/questionnaire.org @@ -1,7 +1,7 @@ #+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-03-14 18:20] +#+date: [2024-03-16 11:35] * Introduction Questionnaires are powerful tools for gathering information and insights from @@ -28,14 +28,16 @@ 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. -#+name: questionnaire-page -#+begin_src lisp :results output file :file-ext html +#+begin_src lisp (defpackage my-web-questionnaire-app (:use :cl) (:import-from :dev.metalisp.sbt :with-page) (:import-from :dev.metalisp.sbt/pattern/questionnaire :questionnaire) (:export :generate-questionnaire-page)) +#+end_src +#+name: questionnaire-page +#+begin_src lisp :results output file :file-ext html (in-package :my-web-questionnaire-app) (defun generate-questionnaire-page () @@ -88,3 +90,19 @@ required for different types of questions in a questionnaire. 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* (make-instance 'hunchentoot:easy-acceptor :port 8080)) + + (defun start-server (server) + (hunchentoot:start server)) + + (defun stop-server (server) + (hunchentoot:stop server)) + + (defun restart-server (server) + (stop-server server) + (start-server server)) +#+end_src