43 lines
1.2 KiB
Common Lisp
43 lines
1.2 KiB
Common Lisp
(defpackage dev.metalisp.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))
|
|
|
|
(defpackage dev.metalisp.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 dev.metalisp.survey/partials
|
|
(:use #:cl)
|
|
(:export #:navbar-en #:navbar-de))
|
|
|
|
(defpackage dev.metalisp.survey/pages
|
|
(:use #:cl)
|
|
(:import-from #:dev.metalisp.sbt
|
|
#:with-page)
|
|
(:export #:index #:imprint #:new-survey #:surveys #:create-survey #:survey))
|