Reformat code

weavejester · Nov 30, 2023 · 34a1656 · 34a1656
1 parent 48ba3f7
commit 34a1656
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/src/hiccup/compiler.clj b/src/hiccup/compiler.clj
@@ -39,7 +39,7 @@
 
 (defmacro build-string [& strs]
   (let [strs (concatenate-strings strs)
-        w (gensym)]
+        w    (gensym)]
     (case (count strs)
       0 ""
       1 (let [arg (first strs)]
@@ -333,24 +333,24 @@
 (defmethod compile-element ::literal-tag
   [[tag attrs & content]]
   (let [[tag tag-attrs _] (normalize-element-form [tag])
-        attrs-sym (gensym "attrs")]
+        attrs-sym         (gensym "attrs")]
     `(let [~attrs-sym ~attrs]
        (build-string
-         (if (map? ~attrs-sym)
-           ~(if (container-tag? tag content)
-              `(build-string ~(str "<" tag)
-                             (render-attr-map (merge ~tag-attrs ~attrs-sym))
-                             ">")
-              `(build-string ~(str "<" tag)
-                             (render-attr-map (merge ~tag-attrs ~attrs-sym))
-                             ~(end-tag)))
-           (build-string ~(str "<" tag (render-attr-map tag-attrs) ">")
-                         ~@(compile-seq [attrs-sym])))
-         ;; content and ending tag (when the above code did not emit an ending tag)
-         (when (or ~(boolean (container-tag? tag content))
-                   (not (map? ~attrs-sym)))
-           (build-string ~@(compile-seq content)
-                         ~(str "</" tag ">")))))))
+        (if (map? ~attrs-sym)
+          ~(if (container-tag? tag content)
+             `(build-string ~(str "<" tag)
+                            (render-attr-map (merge ~tag-attrs ~attrs-sym))
+                            ">")
+             `(build-string ~(str "<" tag)
+                            (render-attr-map (merge ~tag-attrs ~attrs-sym))
+                            ~(end-tag)))
+          (build-string ~(str "<" tag (render-attr-map tag-attrs) ">")
+                        ~@(compile-seq [attrs-sym])))
+        ;; content and ending tag (when the above code did not emit an ending tag)
+        (when (or ~(boolean (container-tag? tag content))
+                  (not (map? ~attrs-sym)))
+          (build-string ~@(compile-seq content)
+                        ~(str "</" tag ">")))))))
 
 (defmethod compile-element :default
   [element]