(defpackage #:hp/view/renderer (:use #:cl) (:local-nicknames (#:jg #:jingle)) (:local-nicknames (#:pi #:piccolo)) (:local-nicknames (#:cfg #:hp/config)) (:local-nicknames (#:cmp #:hp/view/components/*)) (:export #:render #:partial-render)) (in-package #:hp/view/renderer) (defun render (page &key status metadata) (jg:with-html-response (if status (jg:set-response-status status)) (pi:elem-str (cmp:document metadata (cmp:layout page))))) (defun partial-render (component &key status) (jg:with-html-response (if status (jg:set-response-status status)) (pi:elem-str component)))