paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Refactor Tailwind CSS server handling

Browse source
This commit is contained in:
Akira Tempaku 2024-11-15 09:51:29 +09:00
commit 340dd47e0d
5 changed files with 16 additions and 13 deletions

5
src/renderer.lisp
View file

@ -1,7 +1,8 @@
(defpackage #:hp/renderer
(:use #:cl
#:hsx)
(:local-nicknames (#:jg #:jingle)))
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:env #:hp/env)))
(in-package #:hp/renderer)
(defcomp document (&key title description children)
@ -26,6 +27,8 @@
(defmethod jg:process-response ((app jg:app) result)
(jg:set-response-header :content-type "text/html; charset=utf-8")
(when (env:dev-mode-p)
(jg:set-response-header :cache-control "no-store"))
(call-next-method app
(hsx:render-to-string
(if (listp result)