website/src/view/renderer.lisp

(defpackage #:hp/view/renderer
  (:use #:cl)
  (:local-nicknames (#:jg #:jingle))
  (:local-nicknames (#:pi #:piccolo))
  (: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 metadata
                   (cmp:layout page)))))

(defun partial-render (component &key status)
  (jg:with-html-response
    (if status (jg:set-response-status status))
    (pi:elem-str (cmp:partial-document component))))