how to have an input with (essentially) two way binding

cljsfiddle_save.edn

(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)
        (reset! internal-model @model))
      [:input.form-control
       {:value @internal-model
        :on-change (fn [e]
                     (let [v (.-value (.-target e))]
                       (reset! internal-model v)
                       (on-change @internal-model)))}])))
                       
[:div
 [input search-term (fn [v] (reset! search-term v))]
 [:button {:on-click #(reset! search-term "")} "Reset"]]