website/src/app.lisp

22 lines
634 B
Common Lisp
Raw Normal View History

2024-02-13 20:34:31 +09:00
(uiop:define-package #:hp/app
2024-02-02 01:07:19 +09:00
(:use #:cl)
2024-02-13 20:34:31 +09:00
(:local-nicknames (#:jg #:jingle))
2024-02-02 01:07:19 +09:00
(:import-from #:lack)
2024-02-13 20:34:31 +09:00
(:local-nicknames (#:utils #:hp/utils/*))
2024-02-02 01:07:19 +09:00
(:export #:*app*))
(in-package #:hp/app)
(defparameter *app*
2024-02-13 20:34:31 +09:00
(let ((app (jg:make-app)))
(utils:enable-file-based-routing app
:dir "src/routes"
:system "hp"
:system-pathname "src")
(lack:builder (:static
:path "/static/"
:root (asdf:system-relative-pathname :hp "static/"))
app)))
2024-02-02 01:07:19 +09:00
; for clackup cmd
*app*