You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
919 B
39 lines
919 B
(ql:quickload :larder.web) |
|
|
|
(defpackage larder.web.app |
|
(:use :cl) |
|
(:import-from :lack.builder |
|
:builder) |
|
(:import-from :ppcre |
|
:scan |
|
:regex-replace) |
|
(:import-from :larder.web.web |
|
:*web*) |
|
(:import-from :larder.web.config |
|
:config |
|
:productionp |
|
:*static-directory*)) |
|
(in-package :larder.web.app) |
|
|
|
(builder |
|
(:static |
|
:path (lambda (path) |
|
(if (ppcre:scan "^(?:/images/|/css/|/js/|/robot\\.txt$|/favicon\\.ico$)" path) |
|
path |
|
nil)) |
|
:root *static-directory*) |
|
(if (productionp) |
|
nil |
|
:accesslog) |
|
(if (getf (config) :error-log) |
|
`(:backtrace |
|
:output ,(getf (config) :error-log)) |
|
nil) |
|
:session |
|
(if (productionp) |
|
nil |
|
(lambda (app) |
|
(lambda (env) |
|
(let ((datafly:*trace-sql* t)) |
|
(funcall app env))))) |
|
*web*)
|
|
|