                (rx/ignore)))))))
 
 
+(declare select-pasted-objs)
+
 (defn- paste-impl
   [{:keys [selected objects] :as data}]
   (letfn [(prepare-changes [state delta]

                          rchanges)]
        (rx/of (commit-changes (vec rchanges)
                               (vec (reverse uchanges))
                               {:commit-local? true})))))))

(def paste
  (ptk/reify ::paste

                       (js/console.error "Clipboard blocked:" err)
                       (rx/empty)))))))

(defn select-pasted-objs
  [rchanges]
  (ptk/reify ::select-pasted-objs
    ptk/UpdateEvent
    (update [_ state]
      (assoc-in state [:workspace-local :selected]
                (map #(get-in % [:obj :id]) rchanges)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Page Changes Reactions
