bug fix for https://github.com/ibdknox/crate/issues/21

.gitignore

@@ -2,4 +2,6 @@ pom.xml
 *jar
 /lib/
 /classes/
-.lein-deps-sum
+.lein-deps-sum
+/.idea/*
+*.iml

project.clj

@@ -1,2 +1,4 @@
-(defproject crate "0.2.4"
-  :description "A ClojureScript implementation of Hiccup")
+(defproject krate "0.2.5-SNAPSHOT"
+  :url "https://github.com/sonwh98/crate"
+  :description "A ClojureScript implementation of Hiccup. Fork of https://github.com/ibdknox/crate"
+  :license "Eclipse Public License")

src/crate/compiler.cljs

@@ -120,8 +120,11 @@
                (do
                  (capture-binding :attr [k v])
                  (bind/value v))
-               v)]
-       (. elem (setAttribute (name k) v))))
+               v)
+           event (second (re-find #"^on(\w+)" (name k)))]
+       (if event
+         (. elem (addEventListener event v))
+         (. elem (setAttribute (name k) v)))))
    elem))
 
 ;; From Weavejester's Hiccup: https://github.com/weavejester/hiccup/blob/master/src/hiccup/core.clj#L57
@@ -170,7 +173,8 @@
 (defn elem-factory [tag-def]
   (binding [bindings (atom [])]
     (let [[nsp tag attrs content] (normalize-element tag-def)
-          elem (create-elem nsp tag)]
+          elem (create-elem nsp tag)
+          onclick (:onclick attrs)]
       (dom-attr elem attrs)
       (as-content elem content)
       (handle-bindings @bindings elem)