From 1284d0d8e5bc4303b7d3c0502c727b8c9dbbe41b Mon Sep 17 00:00:00 2001 From: Julian Birch Date: Tue, 12 Nov 2013 20:57:34 +0000 Subject: [PATCH] You can now add a class to an element that didn't already have a class. --- src/dommy/attrs.cljs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/dommy/attrs.cljs b/src/dommy/attrs.cljs index d73216e..7267181 100644 --- a/src/dommy/attrs.cljs +++ b/src/dommy/attrs.cljs @@ -50,13 +50,14 @@ (if-let [class-list (.-classList elem)] (doseq [class (.split classes #"\s+")] (.add class-list class)) - (let [class-name (.-className elem)] + (if-let [class-name (.-className elem)] (doseq [class (.split classes #"\s+")] (when-not (class-index class-name class) (set! (.-className elem) (if (identical? class-name "") class - (str class-name " " class)))))))) + (str class-name " " class))))) + (set! (.-className elem) classes)))) elem)) ([elem classes & more-classes] (let [elem (node elem)] @@ -232,4 +233,4 @@ top (:top (bounding-client-rect elem))] (when (< js/window.innerHeight (+ top (.-offsetHeight elem))) - (.scrollIntoView elem align-with-top?)))) \ No newline at end of file + (.scrollIntoView elem align-with-top?))))