Add clsx utility

README.md

@@ -171,6 +171,10 @@ Or loop:
       (hsx (li item))))))
 ```
 
+## Utils
+
+- `(clsx &rest strs)`: A utility function for constructing class strings conditionally. It removes `nil` from the string list, then joins the remaining strings with spaces.
+
 ## 📄 License
 
 MIT License

hsx.asd

@@ -1,5 +1,5 @@
 (defsystem "hsx"
-  :version "0.5.0"
+  :version "0.6.0"
   :description "Simple and powerful HTML generation library."
   :author "Akira Tempaku, Bo Yao"
   :maintainer "Akira Tempaku <paku@skyizwhite.dev>"

src/main.lisp

@@ -2,9 +2,11 @@
   (:nicknames #:hsx/main)
   (:use #:cl
         #:hsx/element
-        #:hsx/dsl)
+        #:hsx/dsl
+        #:hsx/utils)
   (:import-from #:hsx/builtin)
   (:export #:hsx
            #:defcomp
-           #:render-to-string))
+           #:render-to-string
+           #:clsx))
 (in-package :hsx)

src/utils.lisp

@@ -5,7 +5,8 @@
                 #:make-keyword
                 #:symbolicate)
   (:export #:escape-html-attribute
-           #:escape-html-text-content))
+           #:escape-html-text-content
+           #:clsx))
 (in-package #:hsx/utils)
 
 (defparameter *text-content-escape-map*
@@ -40,3 +41,6 @@
 
 (defun escape-html-attribute (str)
   (escape-string str *attribute-escape-map*))
+
+(defun clsx (&rest strs)
+  (format nil "~{~a~^ ~}" (remove nil strs)))