summaryrefslogtreecommitdiff
path: root/site/html.lisp
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)))