Clear many cells with backspace/delete

src/bean/grid.cljs

@@ -295,7 +295,7 @@
 
 ;; untested and slightly weird interface, exists for pasting
 ;; many cells and handling merged cells etc.
-(defn update-cells-bulk [sheet start addressed-attrs]
+(defn update-cells-bulk [sheet {:keys [start]} addressed-attrs]
   (->> addressed-attrs
        (map #(do [(offset (first %) start) (second %)]))
        (reduce
@@ -313,6 +313,13 @@
         (unmerge-cells sheet (map #(offset % start) (keys addressed-attrs))))
        eval-sheet-a-few-times))
 
+(defn clear-selection [sheet {:keys [start end]}]
+  (->> (util/addresses-matrix start end)
+       (mapcat identity)
+       (map #(do [% {:content ""}]))
+       (into {})
+       (update-cells-bulk sheet start)))
+
 (defn eval-named
   ([name {:keys [bindings] :as sheet}]
    (if-let [value (bindings name)]

src/bean/ui/events.cljs

@@ -45,14 +45,18 @@
 (rf/reg-event-fx
  ::handle-global-kbd
  (fn handle-global-kbd [{:keys [db]} [_ e]]
-   (when-let [[r c] (:start (get-in db [:ui :grid :selection]))]
-     {:fx [[:dispatch [::edit-cell [r c]]]]})))
+   (let [selection (get-in db [:ui :grid :selection])]
+     (when-let [[r c] (:start selection)]
+       (if (or (= (.-key e) "Backspace")
+               (= (.-key e) "Delete"))
+         {:db (update-in db [:sheet] #(grid/clear-selection % selection))}
+         {:fx [[:dispatch [::edit-cell [r c]]]]})))))
 
 (rf/reg-event-db
  ::paste-addressed-cells
  (fn paste-addressed-cells [db [_ addressed-cells]]
    (update-in db [:sheet] #(grid/update-cells-bulk %
-                                                   (:start (get-in db [:ui :grid :selection]))
+                                                   (get-in db [:ui :grid :selection])
                                                    addressed-cells))))
 
 (rf/reg-fx

src/bean/ui/paste.cljs

@@ -77,8 +77,8 @@
 
 (defn hiccup-matrix->html [matrix]
   (hr/hiccup-to-html
-   [[:body {} [:table {}
-               (into [:tbody {}] matrix)]]]))
+   [[:table {}
+     (into [:tbody {}] matrix)]]))
 
 (defn hickory-table->cells [hickory-table]
   (loop [hiccup-cells (->>