From 1f588b8a62b408067f8ea3a2045058dd94fd8047 Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Mon, 15 Apr 2024 22:45:30 +0900
Subject: [PATCH] Export element functions

---
 src/elements.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/elements.lisp b/src/elements.lisp
index f98ce5d..786d99f 100644
--- a/src/elements.lisp
+++ b/src/elements.lisp
@@ -14,7 +14,9 @@
                 #:escape-children
                 #:*escape-html*)
   (:export #:html
+           #:%html
            #:<>
+           #:%<>
            #:define-element
            #:tag
            #:children
@@ -189,7 +191,8 @@
      ,@(mapcan (lambda (e)
                  (list `(define-builtin-element ,e)
                        `(setf (gethash (make-keyword ',e) *builtin-elements*) t)
-                       `(export ',e)))
+                       `(export ',e)
+                       `(export ',(symbolicate '% e))))
                element-names)))
 
 (define-and-export-builtin-elements