utils.clj

(defn str->num [x]
  (-> (NumberFormat/getInstance (Locale/forLanguageTag "en-US")) (.parse x)))

(defn numeric? [x]
  (try
    (str->num x)
    (catch ParseException pe false)))

(defn vector-of-vectors? [x]
  (every? vector? x))

(defn cell-text [list]
  (mapv #(:text %) list))

;; Make sure the list has only one level as the spreadsheet generator expects
(defn normalize [list]
  (reduce (fn [acc x]
            (if (vector-of-vectors? x)
              (into acc x)
              (conj acc x)))
          [], list))