 (defn find-key-binding
   "Find Model Key binding based on its fields"
   [app spec]
-  (println "find-key-binding spec:" spec)
   (when-let [b-table (find-binding-table app (:context spec))]
     (first (filter #(key-binding=spec? % spec) (bindings b-table)))))
 

   data of e"
  [e spec]
  (let [td (transient-data e)]
    (println "td:" td)
    (println "(type td):" (type td))
    (doseq [[k v] (:transient-data spec)]
      (println "[k v]:" k v)
      (.put td k v))))

(def default-cmd-spec

  "Add the handler to the Application Model. Return the application"
  [application handler]
  (let [hdls (handlers application)]
    (.add hdls 0 handler)
    application))

