From 59397bc47d3ebabbc589b04ef99d1a2a3fbc8f2d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sat, 6 Aug 2022 02:27:08 -0300 Subject: Define basic html --- shtml.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/shtml.lisp b/shtml.lisp index dcbdfee..8f5d7f0 100644 --- a/shtml.lisp +++ b/shtml.lisp @@ -40,3 +40,17 @@ (format nil "<~a ~{~a=~s~^ ~}>" ,tag-name (trim-flatten-assoc ,attrs-and-values)))))) + +(define-html html) +(define-html head) +(define-html title) +(define-html body) +(define-html h1) +(define-html h2) +(define-html h3) +(define-html h4) +(define-html h5) +(define-html h6) +(define-html p) +(define-html br :single t) +(define-html hr :single t) -- cgit v1.2.3