 (defn- initialize
   []
   (let [shapes @selected-shapes-l
-        options @page-options-l
-        flags @wb/flags-l
-        indexed? (:alignment/indexed flags)
+        align? @alignment-l
         stoper (->> uuc/actions-s
                     (rx/map :type)
                     (rx/filter empty?)

  (-> (l/getter resolve-selected)
      (l/focus-atom st/state)))

(def ^:const ^:privae page-options-l
  (-> (l/key :options)
      (l/focus-atom wb/page-l)))

;; --- Public Api


                 (let [xf (map #(sh/move % delta))]
                   (into [] xf acc))) shapes $)
      (rx/mapcat (fn [items]
                   (if align?
                     (->> (apply rx/of items)
                          (rx/mapcat align/translate)
                          (rx/reduce conj []))
