blob: d1d0f1acc04aa0ff9174dcf0d47b8bc32c06141f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(in-package #:vampire)
(defmacro page ((&key (title "") (csspath "/css/style.css")) &body body)
`(spinneret:with-html-string
(:doctype)
(:head
(:title ,title)
(:meta :charset "UTF-8")
(:meta :name "viewport" :content "width=device-width, initial-scale=1.0")
(:link :rel "stylesheet" :href ,csspath))
(:body
,@body)))
|
