site/html.lisp


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)))