Set labels on selection instead of single cell

src/bean/tables.cljs

@@ -27,8 +27,11 @@
   (when (= (cell-table rc sheet) table-name)
     (assoc-in sheet [:tables table-name :labels rc] {:dirn dirn :color color})))
 
-(defn remove-label [sheet table-name rc]
-  (update-in sheet [:tables table-name :labels] dissoc rc))
+(defn add-labels [sheet table-name addresses dirn]
+  (reduce #(add-label %1 table-name %2 dirn (util/random-color-hex)) sheet addresses))
+
+(defn remove-labels [sheet table-name addresses]
+  (reduce #(update-in % [:tables table-name :labels] dissoc %2) sheet addresses))
 
 (defn get-table [sheet table-name]
   (get-in sheet [:tables table-name]))

src/bean/ui/events.cljs

@@ -79,7 +79,8 @@
  ::edit-cell
  (fn edit-cell [{:keys [db]} [_ rc]]
    {:db (assoc-in db [:ui :grid :editing-cell] rc)
-    :fx [[::focus-element "cell-input"]]}))
+    :fx [[:dispatch [::set-selection {:start rc :end rc}]]
+         [::focus-element "cell-input"]]}))
 
 (rf/reg-event-db
  ::set-selection
@@ -108,18 +109,15 @@
          [:dispatch [::select-table table-name]]]}))
 
 (rf/reg-event-db
- ::add-label
- (fn add-label [db [_ table-name rc dirn color]]
-   (update-in
-    db [:sheet]
-    #(tables/add-label % table-name rc dirn color))))
+ ::add-labels
+ (fn add-labels [db [_ table-name addresses dirn]]
+   (update-in db [:sheet]
+              #(tables/add-labels % table-name addresses dirn))))
 
 (rf/reg-event-db
- ::remove-label
- (fn add-label [db [_ table-name rc]]
-   (update-in
-    db [:sheet]
-    #(tables/remove-label % table-name rc))))
+ ::remove-labels
+ (fn remove-labels [db [_ table-name addresses]]
+   (update-in db [:sheet] #(tables/remove-labels % table-name addresses))))
 
 (rf/reg-event-db
  ::clear-selection

src/bean/ui/util.cljs

@@ -27,8 +27,3 @@
 
 (defn color-int->hex [color]
   (str "#" (.toString color 16)))
-
-(defn random-color-hex []
-  (+ (bit-shift-left (rand-int 256) 16)
-     (bit-shift-left (rand-int 256) 8)
-     (rand-int 256)))

src/bean/util.cljs

@@ -53,3 +53,8 @@
   (for [r (range start-r (inc end-r))]
     (for [c (range start-c (inc end-c))]
       [r c])))
+
+(defn random-color-hex []
+  (+ (bit-shift-left (rand-int 256) 16)
+     (bit-shift-left (rand-int 256) 8)
+     (rand-int 256)))