               :exec (fn []
                       (when-let [ed (pool/last-active)]
                         (object/raise ed :refactor.cycle-col!)))})
-
-
-;; (cmd/command {:command ::move-up
-;;              :desc "Clojure refactor: Move node up"
-;;              :exec (fn []
-;;                      (let [ed (pool/last-active)
-;;                            pos (editor/->cursor ed)
-;;                            token (cp/find-symbol-at-cursor ed)
-;;                            move-node (:string token)
-;;                            top-form (u/get-top-level-form ed pos)]
-
-;;                        (when-let [moved (move-up (u/replace-token (:form-str top-form)
-;;                                                                   {:line (- (:line pos) (:line (:start top-form)))
-;;                                                                    :start (:start token)
-;;                                                                    :end (:end token)}
-;;                                                                   "__move-node__")
-;;                                                  "__move-node__")]
-
-;;                          (let [bounds (u/find-token-bounds moved "__move-node__")
-;;                                replaced (u/replace-token moved bounds move-node)]
-;;                           (editor/replace ed (:start top-form) (:end top-form) replaced)
-;;                            ))))})

          (editor/move-cursor ed p))))))




(behavior ::cycle-if!
          :triggers #{:refactor.cycle-if!}
          :reaction (fn [ed]
                      (replace-cmd ed cycle-if :fmt true)))

(behavior ::cycle-col!
          :triggers #{:refactor.cycle-col!}

       (= (.substr form-str 0 2) "#{") (wrap-in "(" ")" 2)
       :else nil))))



(defn replace-cmd [ed replace-fn & {:keys [fmt]}]
