57 lines
1.4 KiB
Common Lisp
57 lines
1.4 KiB
Common Lisp
(defpackage ml-survey
|
|
(:use #:cl)
|
|
(:import-from #:hunchentoot
|
|
#:define-easy-handler
|
|
#:easy-acceptor
|
|
#:post-parameters*
|
|
#:content-type*
|
|
#:*request*)
|
|
(:import-from #:spinneret
|
|
#:*html*
|
|
#:*html-lang*)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:with-page)
|
|
(:import-from #:dev.metalisp.sbt/utility
|
|
#:spacing)
|
|
(:export
|
|
#:*app*
|
|
#:start-server
|
|
#:stop-server
|
|
#:restart-server
|
|
#:today
|
|
#:now
|
|
#:generate-uuid
|
|
#:*survey-data-dir*))
|
|
|
|
(defpackage ml-survey/forms
|
|
(:use #:cl)
|
|
(:import-from #:spinneret
|
|
#:*html*
|
|
#:*html-lang*)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:find-l10n)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:*l10n*)
|
|
(:import-from #:dev.metalisp.sbt/btn
|
|
#:btn
|
|
#:btn-primary)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:with-page)
|
|
(:import-from #:dev.metalisp.sbt/form
|
|
#:multi-form)
|
|
(:export #:sus-form-en #:sus-form-de))
|
|
|
|
(defpackage ml-survey/partials
|
|
(:use #:cl)
|
|
(:export #:navbar-en #:navbar-de))
|
|
|
|
(defpackage ml-survey/views
|
|
(:use #:cl)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:with-page)
|
|
(:export #:index
|
|
#:imprint
|
|
#:new-survey
|
|
#:surveys
|
|
#:create-survey
|
|
#:survey))
|