Rename hp to website
This commit is contained in:
parent
33e23d9f95
commit
b69fcee7a1
21 changed files with 77 additions and 70 deletions
|
@ -1,4 +1,4 @@
|
|||
(defpackage #:hp/renderer
|
||||
(defpackage #:website/renderer
|
||||
(:use #:cl
|
||||
#:hsx
|
||||
#:trivia)
|
||||
|
@ -6,16 +6,16 @@
|
|||
#:set-response-header)
|
||||
(:import-from #:hsx/element
|
||||
#:element)
|
||||
(:import-from #:hp/lib/env
|
||||
#:hp-url
|
||||
#:hp-env)
|
||||
(:import-from #:hp/components/layout
|
||||
(:import-from #:website/lib/env
|
||||
#:website-url
|
||||
#:website-env)
|
||||
(:import-from #:website/components/layout
|
||||
#:~layout))
|
||||
(in-package #:hp/renderer)
|
||||
(in-package #:website/renderer)
|
||||
|
||||
(defun set-cache-control (strategy)
|
||||
(set-response-header :cache-control
|
||||
(if (string= (hp-env) "dev")
|
||||
(if (string= (website-env) "dev")
|
||||
"private, no-store"
|
||||
(cond
|
||||
((eq strategy :static) "public, max-age=31536000, immutable")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue