   (let [bt (find-or-create-binding-table app context)]
     (.add (bindings bt) 0 kb)))
   
-;; TODO how/where to use :scheme ?
+;; how/where to use :scheme ?
 (defn merge-key-binding!
-  "TODO"
   [app spec]
   (let [cmd (if (string? (:command spec))
               (find-command app (:command spec))

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


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

