(require '[babashka.process :refer [shell process exec]]
         '[clojure.string :as strings]
         '[babashka.cli :as cli])


(defn extract-data [file]
    (let [data (slurp file)
          geojson (shell {:out :string :continue true :in data} "poly2geojson")
          city-name (subs file
                          (inc (strings/last-index-of file "/"))
                          (strings/last-index-of file "_"))]
        {:originalFile file
         :geojson (some-> geojson
                      :out
                      (json/parse-string true)
                      :geometry
                      json/generate-string)
         :province "québec"
         :cityName city-name}))

;;  ${osmosis}/bin/osmosis --read-pbf-fast file="${quebec-osm-data}" \
                       ;; --bounding-polygon file="cities/canada/quebec/westmount_quebec.poly" \
                       ;; --write-pbf file="cities/canada/quebec/westmount_quebec.osm.pbf"

(defn extract-osm-pbf [osm-file file]
    (let [output-file (strings/replace file ".poly" ".osm.pbf")]
        (println "Processing " file " file to " output-file)
        (shell {:continue true}
            "osmosis"
            "--read-pbf-fast" (str "file=" osm-file)
            "--bounding-polygon"
            (str"file=" file)
            "--write-pbf"
            (str "file=" output-file))))


(def opts (cli/parse-opts *command-line-args* {:coerce {:paths []}}))

(doall (map
    #(extract-osm-pbf (:osm-file opts) %)
    (:paths opts)))