Set selection on paste

nilenso · Jun 19, 2024 · 3182693 · 3182693
1 parent 903b010
commit 3182693
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 5 deletions.
diff --git a/src/bean/grid.cljs b/src/bean/grid.cljs
@@ -313,6 +313,11 @@
         (unmerge-cells sheet (map #(offset % start) (keys addressed-attrs))))
        eval-sheet-a-few-times))
 
+(defn pasted-area [pasted-at addresses]
+  (let [{:keys [start end]} (area/addresses->area addresses)]
+    {:start (offset start pasted-at)
+     :end (offset end pasted-at)}))
+
 (defn clear-selection [sheet {:keys [start end]}]
   (->> (util/addresses-matrix start end)
        (mapcat identity)

diff --git a/src/bean/ui/events.cljs b/src/bean/ui/events.cljs
@@ -52,12 +52,16 @@
          {:db (update-in db [:sheet] #(grid/clear-selection % selection))}
          {:fx [[:dispatch [::edit-cell [r c]]]]})))))
 
-(rf/reg-event-db
+(rf/reg-event-fx
  ::paste-addressed-cells
- (fn paste-addressed-cells [db [_ addressed-cells]]
-   (update-in db [:sheet] #(grid/update-cells-bulk %
-                                                   (get-in db [:ui :grid :selection])
-                                                   addressed-cells))))
+ (fn paste-addressed-cells [{:keys [db]} [_ addressed-cells]]
+   (let [selection (get-in db [:ui :grid :selection])]
+     {:db (update-in db [:sheet] #(grid/update-cells-bulk %
+                                                          selection
+                                                          addressed-cells))
+      :fx [[:dispatch [::set-selection (grid/pasted-area
+                                        (:start selection)
+                                        (keys addressed-cells))]]]})))
 
 (rf/reg-fx
  ::copy-to-clipboard