Fix integer label lookups

nilenso · Jul 1, 2024 · 47bd277 · 47bd277
1 parent 4a30948
commit 47bd277
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/bean/frames.cljs b/src/bean/frames.cljs
@@ -60,7 +60,7 @@
   (some
    (fn [[label label-data]]
      (and (= label-name
-             (:scalar (util/get-cell (:grid sheet) label)))
+             (str (:scalar (util/get-cell (:grid sheet) label))))
           (if dirn (= (:dirn label-data) dirn) true)))
    (:labels (get-frame sheet frame-name))))
 
@@ -166,8 +166,8 @@
 (defn label-name->cells [sheet frame-name label-name & [dirn]]
   (let [labels (->> (keys (:labels (get-frame sheet frame-name)))
                     (filter #(get-label sheet frame-name % dirn))
-                    (filter #(when (= label-name
-                                      (:scalar (util/get-cell (:grid sheet) %)))
+                    (filter #(when (= (str label-name)
+                                      (str (:scalar (util/get-cell (:grid sheet) %))))
                                %)))
         skip-label? #(get-in sheet [:frames frame-name :skip-cells %])
         all-skipped-cells (skipped-cells sheet frame-name)