Reval sheet when skip cells are marked

nilenso · Jun 24, 2024 · 70bbfad · 70bbfad
1 parent 09c69c6
commit 70bbfad
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/bean/grid.cljs b/src/bean/grid.cljs
@@ -325,6 +325,10 @@
       (frames/remove-labels frame-name addresses)
       eval-sheet-a-few-times))
 
+(defn mark-skip-cells [sheet frame-name addresses]
+  (-> (frames/mark-skipped sheet frame-name addresses)
+      eval-sheet-a-few-times))
+
 (defn pasted-area [pasted-at addresses]
   (let [{:keys [start end]} (area/addresses->area addresses)]
     {:start (offset start pasted-at)

diff --git a/src/bean/ui/events.cljs b/src/bean/ui/events.cljs
@@ -229,7 +229,7 @@
  (undoable)
  (fn mark-skip-cells [db [_ frame-name addresses]]
    (update-in db [:sheet]
-              #(frames/mark-skipped % frame-name addresses))))
+              #(grid/mark-skip-cells % frame-name addresses))))
 
 (rf/reg-event-db
  ::explain