        first
        hick/as-hiccup
        (walk/postwalk (fn [t] (cond (string? t) (tokenize-string t)
-                                    (like-html-vec? t) (update-in t [1] grab-om-attrs [:om-if :om-repeat])
+                                    (like-html-vec? t) (-> t
+                                                           (update-in [1] grab-om-attrs [:om-if :om-repeat])
+                                                           (assoc-in [1 :on-click] #(.log js/console %)))
                                     :else t)))
        (walk/postwalk flatten-out)))
 

                                 (rest c)))
        :default c))

(defn tokenize-string
  [p]
  (->> p

  [s]
  (.parse js/parser s))


(defn eval-parsed-cljs-code
  [c state]
