Fix #3: allow dynamic attribute value (#11)

Author: borkdude

CHANGELOG.md

@@ -4,6 +4,10 @@ Unreleased changes are available via `io.github.borkdude/html {:git/sha "..."}`
 
 [html](https://github.com/borkdude/html): Produce HTML from hiccup in Clojure and ClojureScript
 
+## 0.1.2
+
+- Fix [#3](https://github.com/borkdude/html/issues/3): allow dynamic attribute value: `(html [:a {:a (+ 1 2 3)}])`
+
 ## 0.1.1
 
 - Fix [#7](https://github.com/borkdude/html/issues/7): boolean HTML attributes

src/borkdude/html.cljc

@@ -50,8 +50,12 @@
    (let [m (merge base-map m)]
      (->attrs opts m))))
 
+(defn constant? [v]
+  (not (seq? v)))
+
 (defn- compile-attrs [opts m]
-  (if (contains? m :&)
+  (if (or (contains? m :&)
+          (not (every? constant? (vals m))))
     `(->attrs ~opts ~(get m :&) ~(dissoc m :&))
     (->attrs opts m)))
 

test/borkdude/html_test.cljc

@@ -74,7 +74,8 @@
     "<input checked=\"true\"></input>"
     (xml [:input {:checked true}])
 
-    )
+    "<a href=\"http://dude\"></a>"
+    (html [:a {:href (str "http://" "dude")}]))
   )
 
 (comment