From 33d7d981cfd37e1fc4a174bae4a76fcb25d2e711 Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Sun, 16 Feb 2025 00:34:26 +0900
Subject: [PATCH] Amend
---
src/dsl.lisp | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/src/dsl.lisp b/src/dsl.lisp
index 27d785a..c62ae0f 100644
--- a/src/dsl.lisp
+++ b/src/dsl.lisp
@@ -10,13 +10,13 @@
#:defcomp))
(in-package #:hsx/dsl)
-;;;; hsx macro
+;;; hsx macro
(defmacro hsx (form)
"Detect HSX elements and automatically import them."
(detect-elements form))
-(defun detect-builtin-symbol (sym)
+(defun detect-builtin-element (sym)
(multiple-value-bind (builtin-sym kind)
(find-symbol (string sym) :hsx/builtin)
(and (eq kind :external) builtin-sym)))
@@ -24,19 +24,17 @@
(defun start-with-tilde-p (sym)
(string= "~" (subseq (string sym) 0 1)))
-(defun detect-component-symbol (sym)
+(defun detect-component (sym)
(and (start-with-tilde-p sym) sym))
(defun detect-elements (form)
- (check-type form cons)
(let* ((head (first form))
(tail (rest form))
- (well-formed-p (listp tail))
(detected-sym (and (symbolp head)
(not (keywordp head))
- (or (detect-builtin-symbol head)
- (detect-component-symbol head)))))
- (if (and well-formed-p detected-sym)
+ (or (detect-builtin-element head)
+ (detect-component head)))))
+ (if (and (listp tail) detected-sym)
(cons detected-sym
(mapcar (lambda (sub-form)
(if (consp sub-form)
@@ -45,9 +43,10 @@
tail))
form)))
-;;;; defhsx macro
+;;; defhsx macro
(defmacro defhsx (name element-type)
+ ; Use a macro instead of a function to enable semantic indentation similar to HTML.
`(defmacro ,name (&body body)
`(%create-element ,',element-type ,@body)))