Reval sheet on rename frame

nilenso · Jun 29, 2024 · e2e3cc9 · e2e3cc9
1 parent fdf315f
commit e2e3cc9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/bean/grid.cljs b/src/bean/grid.cljs
@@ -345,6 +345,14 @@
     (eval-sheet-a-few-times sheet*)
     sheet))
 
+(defn rename-frame [sheet old-name new-name]
+  (if-let [frame (get-in sheet [:frames old-name])]
+    (-> sheet
+        (update :frames dissoc old-name)
+        (assoc-in [:frames new-name] frame)
+        eval-sheet-a-few-times)
+    sheet))
+
 (defn clear-area [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
@@ -277,10 +277,7 @@
  ::rename-frame
  (undoable)
  (fn edit-frame [db [_ old-name new-name]]
-   (let [frame (get-in (:sheet db) [:frames old-name])]
-     (-> db
-         (update-in [:sheet :frames] dissoc old-name)
-         (assoc-in [:sheet :frames new-name] frame)))))
+   (update db :sheet #(grid/rename-frame % old-name new-name))))
 
 (rf/reg-event-db
  ::add-labels