weblocks mustache and yaclml macros

weblocks-mustache-yaclml-macros.lisp

(defmacro def-weblocks-mustache (name template)
  "Define a named renderer of string TEMPLATE."
  (let ((obj (gensym)))
    `(let ((,obj (mustache::parse ,template)))
       (defun ,name (&optional context)
         (let ((mustache:*mustache-output* (make-string-output-stream)))
           (mustache::render-body ,obj context ,template)
           (get-output-stream-string mustache:*mustache-output*))))))

(defmacro def-weblocks-yaclml-mustache (name &body body)
  `(def-weblocks-mustache 
     ,name 
     (yaclml:with-yaclml-output-to-string 
       ,@body)))