 (defn has-listeners? [h] (when-let [ons (->> h like-html-vec? second keys
                                              (filterv #(->> % str (take 3) (clojure.string/join "") (= ":on")))
                                              seq)]
-                           (dbg2 "has-listeners?" [h (vec ons)])))
+                            [h (vec ons)]))
 
 (#(str (subs % 0 2) "-" (subs % 2)) "onclick")
 

            (if (not-empty sel-ks)
              (-> a
                  (#(apply dissoc % ks))
                  (assoc :om-lette (select-keys a ks)))
              a))]
    r))


                               (eval-parsed-code state))))]
   [has-listeners? (fn [[h onkeys]]
                     (update-in h [1]
                                (fn [attrs] (reduce (fn [agg k]
                                                      (let [strk (str k)
                                                            on-k (keyword (str (subs strk 1 3)
                                                                               "-"
                                                                               (subs strk 3)))]

                                                        (-> agg
                                                            (assoc on-k
                                                              (eval-parsed-code (->> agg
                                                                                     k
                                                                                     (mapcat second)
                                                                                     (apply str)
                                                                                     parse-code
                                                                                     last)
                                                                                state))
                                                            (dissoc k))))
                                                    attrs
                                                    onkeys))))]])

; #(str (subs % 0 2) "-" (subs % 2))

