site/html.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(in-package #:vampire)


(defun page (title &rest body)
  (with-output-to-string (str)
    (html 
     (<html>
      (<head>
       (<title> 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)))