blob: 4fdecd3173d46ca9a94c73487ec805e3ff522437 (
plain)
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)))
|
