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 2024-04-18 16:41:38 +02:00
parent d7bb4167dc
commit 5507c6938a
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
docs/pattern/questionnaire.org
View file

@ -1,7 +1,7 @@
#+title: Creating a Questionnaire using dev.metalisp.sbt/component/questionnaire Macros in a Web Application #+title: Creating a Questionnaire using dev.metalisp.sbt/component/questionnaire Macros in a Web Application
#+author: Marcus Kammer #+author: Marcus Kammer
#+email: marcus.kammer@mailbox.org #+email: marcus.kammer@mailbox.org
#+date: [2024-03-16 14:00] #+date: [2024-04-17 09:36]
* Introduction * Introduction
Questionnaires are powerful tools for gathering information and insights from Questionnaires are powerful tools for gathering information and insights from
@ -104,7 +104,7 @@ different types of Bootstrap questionnaires.
#+begin_src lisp #+begin_src lisp
(in-package :my-web-questionnaire-app) (in-package :my-web-questionnaire-app)
(defvar *basic-server*) (defvar *basic-server* nil)
(defun start-server () (defun start-server ()
(setf *basic-server* (make-instance 'hunchentoot:easy-acceptor :name "basic-server" :port 8080)) (setf *basic-server* (make-instance 'hunchentoot:easy-acceptor :name "basic-server" :port 8080))
@ -118,7 +118,11 @@ different types of Bootstrap questionnaires.
(defun restart-server (server) (defun restart-server (server)
(stop-server server) (stop-server server)
(start-server)) (start-server))
(hunchentoot:define-easy-handler (submit :uri "/submit")
((data :parameter-type :post))
(format nil "Hello, ~a!" data))
#+end_src #+end_src
#+RESULTS: #+RESULTS:
: RESTART-SERVER : SUBMIT