From 145c01a7c4c90a9236a0f7f42ad59e45c76ae974 Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Mon, 27 May 2024 15:23:14 +0900
Subject: [PATCH] format

---
 src/hsx.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/hsx.lisp b/src/hsx.lisp
index c066044..66e8b72 100644
--- a/src/hsx.lisp
+++ b/src/hsx.lisp
@@ -32,7 +32,7 @@
 
 (defparameter *builtin-elements* (make-hash-table))
 
-(defmacro define-and-export-builtin-elements (&body names)
+(defmacro define-and-export-builtin-elements (&rest names)
   `(progn
      ,@(mapcan (lambda (name)
                  (list `(defhsx ,name ,(string-downcase name))
@@ -41,8 +41,8 @@
                names)))
 
 (define-and-export-builtin-elements
-  ; tag-elements
-  a abbr address area article aside audio b base bdi bdo blockquote
+    ; tag-elements
+    a abbr address area article aside audio b base bdi bdo blockquote
   body br button canvas caption cite code col colgroup data datalist
   dd del details dfn dialog div dl dt em embed fieldset figcaption
   figure footer form h1 h2 h3 h4 h5 h6 head header hr i iframe
@@ -68,9 +68,9 @@
 
 (defmacro hsx (form)
   (modify-first-of-lists form
-                       #'builtin-element-p
-                       (lambda (node)
-                         (find-symbol (string node) :hsx/hsx))))
+                         #'builtin-element-p
+                         (lambda (node)
+                           (find-symbol (string node) :hsx/hsx))))
 
 (defun modify-first-of-lists (tree test result)
   (if tree