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


(defn find-or-create-binding-table 
  [app context]
  (println "-=-=-=-=-=-=-= context:" context)
  (if-let [bt (find-binding-table app context)]
    bt
    (let [bt (create-binding-table)]

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

(def default-cmd-spec
