22 lines
688 B
Common Lisp
22 lines
688 B
Common Lisp
(defpackage #:hp/view/responser
|
|
(:use #:cl)
|
|
(:import-from #:hsx
|
|
#:render)
|
|
(:local-nicknames (#:jg #:jingle))
|
|
(:local-nicknames (#:cfg #:hp/config/env))
|
|
(:local-nicknames (#:cmp #:hp/components/*))
|
|
(:export #:response
|
|
#:partial-response))
|
|
(in-package #:hp/view/responser)
|
|
|
|
(defun response (page &key status metadata)
|
|
(jg:with-html-response
|
|
(if status (jg:set-response-status status))
|
|
(render (cmp:document :metadata metadata
|
|
(cmp:layout page))
|
|
:minify t)))
|
|
|
|
(defun partial-response (component &key status)
|
|
(jg:with-html-response
|
|
(if status (jg:set-response-status status))
|
|
(render component :minify t)))
|