 
 (cmd/command {:command :find.hide
               :desc "Find: Hide the find bar"
-              :exec (fn []
-                      (object/raise bar :hide!))})
+              :exec (fn [revert-pos]
+                      (object/raise bar :hide! revert-pos))})
 
 (cmd/command {:command :find.next
               :desc "Find: Next find result"


(behavior ::hide!
          :triggers #{:hide!}
          :reaction (fn [this]
                      (when-let [ed (pool/last-active)]
                            (editor/focus ed))))

(behavior ::next!

          :triggers #{:search!}
          :debounce 50
          :reaction (fn [this v]
                      (.log js/console "search!" v)
                      (if (empty? v)
                        (object/raise this :clear!)
                        (when-let [e (pool/last-active)]
;;                           (when-let [pos (:pos @this)]
;;                             (editor/move-cursor e pos))
                          (object/merge! this {:searching? true})
                          (object/merge! e {:searching.for v})
                          (let [ed (editor/->cm-ed e)]
