Add prepend-attr transformation.

seancorfield · Nov 24, 2011 · 598d1e8 · 598d1e8
1 parent 3b7cfb8
commit 598d1e8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/framework/one.clj b/src/framework/one.clj
@@ -23,6 +23,9 @@
 (defn append-attr [attr v]
   #((set-attr attr (str (get-in % [:attrs attr] "") v)) %))
 
+(defn prepend-attr [attr v]
+  #((set-attr attr (str v (get-in % [:attrs attr] ""))) %))
+
 ;; scope access utility
 (defn- scope-access [scope]
   (fn