freckletonj

(def search-term (atom ""))

(defn input [model on-change]
  (let [external-model (atom @model)
        internal-model (atom (or @external-model ""))]
    (fn [model on-change]
      ;; this is taken from recom - http://bit.ly/1SZ1OXn
      (when (not= @external-model @model)
        (.log js/console "changed to " @model)
        (reset! external-model @model)