title) (<meta> (@ :charset "UTF-8")) (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) (<body> ($center (<div> (@ :class "container") (apply 'eval body))))) str)))

(in-package #:vampire) (defun page (title &rest body) (with-output-to-string (str) (html ( ( ( title) (<meta> (@ :charset "UTF-8")) (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) (<body> ($center (<div> (@ :class "container") (apply 'eval body))))) str)))