adding Enlive actions for idempotent templates

pepijndevos · Sep 22, 2010 · 4a01b10 · cgrand · Sep 22, 2010 · pepijndevos
1 parent e6afccc
commit 4a01b10
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/utterson/compile.clj b/src/utterson/compile.clj
@@ -41,6 +41,16 @@
                  (io/file % "index.html"))
               (iterate #(.getParentFile %) html))))))
 
+(defn action-or-update
+  [action selector & nodes]
+  (let [append (apply action nodes)]
+    #(if (seq (en/select % [(en/has selector)]))
+      (en/at % selector (apply en/substitute nodes))
+      (append %))))
+
+(def append-or-update (partial action-or-update en/append))
+
+(def prepend-or-update (partial action-or-update en/prepend))
 
 (defmacro defgen
   "Like deftemplate in Enlive,