Preprocess svgs

svg.cljs

#!/opt/homebrew/bin/planck
(require '[planck.core :refer [*in* slurp]])
(require '[clojure.string :as string])
(require '[cljs.reader :refer [read-string]])

(def in (slurp *in*))

(def subsections
  (map second
       (re-seq #"d=\"([^\"]+)" in)))

(defn read-all [s]
  (read-string (str "(" s ")")))

(defn eval-form [s]
  (if (list? s) (eval s) s))
(defn eval-d-section [forms]
  (->> forms
       read-all
       (map eval-form)
       (string/join " ")))

(defn update-sections [s f subsections]
  (reduce (fn [s subsection]
            (.replace s subsection (f subsection)))
          s
          subsections))

(println
 (update-sections in eval-d-section subsections))