 (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")
 

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

                                             (-> agg
                                                 (assoc on-k
                                                   (eval-parsed-code (-> agg
                                                                         k
                                                                         parse-code
                                                                         last)
                                                                     state))
                                                 (dissoc k))))
                                         %
                                         onkeys)))]])

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


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

