From b55df922d3742e0c2bba7e17e2a3d74d987c3f2e Mon Sep 17 00:00:00 2001
From: "Kevin J. Lynagh" <kevin@keminglabs.com>
Date: Sun, 15 Apr 2012 11:58:10 -0700
Subject: [PATCH] Add "px" to numeric values when they're passed into certain
 style properties.

---
 src/cljs/c2/dom.cljs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/cljs/c2/dom.cljs b/src/cljs/c2/dom.cljs
index c1e4d9b..c7644b2 100644
--- a/src/cljs/c2/dom.cljs
+++ b/src/cljs/c2/dom.cljs
@@ -76,7 +76,13 @@
   ([el x] (match [x]
                  [(k :when keyword?)] (gstyle/getComputedStyle el (name k))
                  [(m :when map?)] (doseq [[k v] m] (style el k v))))
-  ([el k v] (gstyle/setStyle el (name k) v)))
+  ([el k v] (gstyle/setStyle el (name k)
+                             (match [v]
+                                    [s :when string?] s
+                                    [n :when number?]
+                                    (if (#{:height :width :top :left :bottom :right} (keyword k))
+                                      (str n "px")
+                                      n)))))
 
 (defn attr
   ([el] (let [attrs (.-attributes el)]