2024-05-31 09:43:02 +02:00
|
|
|
(defpackage ml-survey
|
2024-05-24 13:42:53 +02:00
|
|
|
(:use #:cl)
|
|
|
|
(:import-from #:hunchentoot
|
2024-06-02 10:44:24 +02:00
|
|
|
#:easy-acceptor)
|
2024-06-01 11:40:06 +02:00
|
|
|
(:export
|
|
|
|
#:*app*
|
2024-06-05 16:45:38 +02:00
|
|
|
#:set-default-directory
|
2024-06-01 11:40:06 +02:00
|
|
|
#:start-server
|
|
|
|
#:stop-server
|
2024-06-02 10:44:24 +02:00
|
|
|
#:restart-server))
|
2024-05-28 17:34:09 +02:00
|
|
|
|
2024-06-02 10:44:24 +02:00
|
|
|
(defpackage ml-survey/views
|
2024-05-28 17:34:09 +02:00
|
|
|
(:use #:cl)
|
|
|
|
(:import-from #:spinneret
|
|
|
|
#:*html*
|
|
|
|
#:*html-lang*)
|
2024-05-24 13:42:53 +02:00
|
|
|
(:import-from #:dev.metalisp.sbt
|
|
|
|
#:find-l10n)
|
|
|
|
(:import-from #:dev.metalisp.sbt
|
|
|
|
#:*l10n*)
|
2024-05-28 17:34:09 +02:00
|
|
|
(:import-from #:dev.metalisp.sbt/btn
|
|
|
|
#:btn
|
|
|
|
#:btn-primary)
|
|
|
|
(:import-from #:dev.metalisp.sbt
|
|
|
|
#:with-page)
|
2024-05-24 13:42:53 +02:00
|
|
|
(:import-from #:dev.metalisp.sbt/form
|
|
|
|
#:multi-form)
|
2024-05-31 19:27:45 +02:00
|
|
|
(:export #:index
|
|
|
|
#:imprint
|
|
|
|
#:new-survey
|
|
|
|
#:surveys
|
|
|
|
#:create-survey
|
2024-06-01 21:36:04 +02:00
|
|
|
#:survey
|
2024-06-02 10:44:24 +02:00
|
|
|
#:questionnaire-submit
|
|
|
|
#:sus-form-de
|
|
|
|
#:sus-form-en))
|
|
|
|
|
|
|
|
(defpackage ml-survey/handlers
|
|
|
|
(:use #:cl)
|
|
|
|
(:import-from #:spinneret
|
|
|
|
#:*html*
|
|
|
|
#:*html-lang*)
|
|
|
|
(:import-from #:hunchentoot
|
|
|
|
#:define-easy-handler
|
|
|
|
#:post-parameters*
|
|
|
|
#:content-type*
|
|
|
|
#:request-uri
|
|
|
|
#:request-uri*
|
|
|
|
#:*request*))
|