Start work on integrating bluepylons data

Author: heralden

Diff for: .gitmodules

@@ -1,3 +1,6 @@
 [submodule "resources/theremingoat"]
 	path = resources/theremingoat
 	url = https://github.com/ThereminGoat/force-curves
+[submodule "resources/bluepylons"]
+	path = resources/bluepylons
+	url = https://github.com/bluepylons/Open-Switch-Curve-Meter.git

Diff for: deps.edn

@@ -3,7 +3,10 @@
         org.clojure/clojurescript {:mvn/version "1.10.520"}
         cjohansen/dumdom {:mvn/version "2022.09.28"}
         com.bhauman/figwheel-main {:mvn/version "0.2.18"}
-        cjohansen/gadget-inspector {:mvn/version "0.2020.09.10"}}
+        cjohansen/gadget-inspector {:mvn/version "0.2020.09.10"}
+        babashka/fs {:mvn/version "0.3.17"}
+        org.clojure/data.csv {:mvn/version "1.0.1"}
+        com.github.miachm.sods/SODS {:mvn/version "1.5.2"}}
  :aliases {:serve {:deps {org.babashka/http-server {:mvn/version "0.1.11"}}
                    :main-opts ["-m" "babashka.http-server"]
                    :exec-fn babashka.http-server/exec}}}

Diff for: resources/bluepylons

@@ -0,0 +1,52 @@
+(ns switchesdb.parser.bluepylons
+  (:require [clojure.string :as str]
+            [babashka.fs :as fs])
+  (:import [com.github.miachm.sods SpreadSheet NotAnOdsException]))
+
+(defn reader-fn
+  "Where `head` is a vector of cells F1 and G1, return the suitable function."
+  [head]
+  (cond
+    (str/includes? (str/lower-case (first head)) "corrected downstroke")
+    'read-type-1
+    (= (first head) "Corrected downstroke X (mm)")
+    'read-type-2
+    (= (second head) "Corrected Upstroke")
+    'read-type-3))
+
+(defn read-ods [ods-file]
+  (try
+    (-> ods-file fs/file SpreadSheet. .getSheets (nth 0) (.getRange 0 5 1 6) .getValues)
+    (catch NotAnOdsException _
+      (println (str "Failed to read ODS file: " ods-file)))))
+
+(comment
+  (fs/glob "resources/bluepylons/Force curve measurements" "{,Kailh Choc Switches/}*.ods")
+
+  ;; There are 15 different arrangements the spreadsheets can be found in.
+  (letfn [(read-ods-head [ods-file]
+            (try (-> ods-file fs/file SpreadSheet. .getSheets (nth 0) (.getRange 0 5 1 2) .getValues)
+                 (catch NotAnOdsException _)))]
+    (frequencies
+      (map #(vec (map vec %))
+           (map read-ods-head
+                (fs/glob "resources/bluepylons/Force curve measurements" "{,Kailh Choc Switches/}*.ods")
+                #_(fs/glob "resources/bluepylons/Force curve measurements" "*.ods")
+                #_(fs/glob "resources/bluepylons/Force curve measurements" "{,Kailh Choc Switches/,Springs/}*.ods")))))
+  ;; The most common ones are:
+  [["Corrected Downstroke" nil "Corrected Upstroke"]]
+  ;; 150 times (labels may include extra text)
+  [["Corrected downstroke X (mm)"
+    "Corrected downstroke force (gf)"
+    "Corrected downstroke actuated?"
+    "Corrected upstroke X (mm)"
+    "Corrected upstroke force (gf)"
+    "Corrected upstroke actuated?"]]
+  ;; 117 times
+  [[nil "Corrected Upstroke"]]
+  ;; 39 times (similar to first but offset by 1 column)
+
+  ;; The remaining arrangements total 7, each one having its own unique arrangement.
+  ;; Only the 3 most common arrangements shown above will be handled.
+
+  :end)