                           rchanges)]
         (rx/of (commit-changes (vec rchanges)
                                (vec (reverse uchanges))
-                               {:commit-local? true})))))))
+                               {:commit-local? true})
+               (select-pasted-objs rchanges)))))))
 
 (def paste
   (ptk/reify ::paste

               (rx/ignore)))))))


(defn- paste-impl
  [{:keys [selected objects] :as data}]
  (letfn [(prepare-changes [state delta]

                       (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
