svg2rn.cljs

#!/usr/bin/env planck

(ns honza.svg2rn
  (:require [planck.core :as core]
            [clojure.string :as s]))

(defn camel-case [s]
  (let [[a & ab] (s/split s #"-")]
    (reduce #(str %1 (s/capitalize %2)) a ab)))

(defn replace [s]
  (-> s
      (s/replace #"<(\/)?([a-z]+)" (fn [[_ closing tag]] (str "<" closing (s/capitalize tag))))
      (s/replace #" ([a-z\-]+)=\"" (fn [[_ p]] (str " " (camel-case p) "=\"")))))

(defn convert [file]
  (->> file
       (core/slurp)
       (replace)
       (core/spit (str file ".o"))))