Check if area within bounds when setting selection

src/bean/grid.cljs

@@ -330,7 +330,7 @@
     {:start (offset start pasted-at)
      :end (offset end pasted-at)}))
 
-(defn clear-selection [sheet {:keys [start end]}]
+(defn clear-area [sheet {:keys [start end]}]
   (->> (util/addresses-matrix start end)
        (mapcat identity)
        (map #(do [% {:content ""}]))

src/bean/ui/events.cljs

@@ -50,7 +50,7 @@
        (let [[mr mc] (get-in db [:sheet :grid r c :style :merged-until])]
          (if (or (= (.-key e) "Backspace")
                  (= (.-key e) "Delete"))
-           {:db (update-in db [:sheet] #(grid/clear-selection % selection))}
+           {:db (update-in db [:sheet] #(grid/clear-area % selection))}
            (if-let [move-to (cond
                               (= (.-key e) "ArrowUp") [(dec r) c]
                               (= (.-key e) "ArrowLeft") [r (dec c)]
@@ -151,7 +151,9 @@
 (rf/reg-event-db
  ::set-selection
  (fn [db [_ selection]]
-   (assoc-in db [:ui :grid :selection] selection)))
+   (if (util/area-inside? (:sheet db) selection)
+     (assoc-in db [:ui :grid :selection] selection)
+     db)))
 
 (rf/reg-event-fx
  ::select-frame

src/bean/ui/util.cljs

@@ -37,3 +37,8 @@
   (let [[r* c*] (merged-or-self rc sheet)]
     (or (get-in sheet [:grid r* c* :style :merged-until]) rc)))
 
+(defn area-inside? [sheet {:keys [start end]}]
+  (and
+   (nat-int? (first start)) (nat-int? (second start))
+   (< (first end) (get-in sheet [:grid-dimensions :num-rows]))
+   (< (second end) (get-in sheet [:grid-dimensions :num-cols]))))