 (ns pc.svg
   (:require [clojure.string :as str]
+            [hiccup.core :as h]
             [pc.layers :as layers]))
 
 (defn points->path [points]

   layer-props))

(defn layer->svg-path [layer {:keys [invert-colors? layer-props]}]
  (merge {:d (:layer/path layer)
          :stroke (if invert-colors? "#ccc" "black")
          :fill "none"
          :stroke-width 2}

      :stroke        (if invert-colors? "#ccc" "black")
      :stroke-width   2
      :rx            (:layer/rx layer)
      :ry            (:layer/ry layer)}
     layer-props)))

(defn layer->svg-text [layer {:keys [invert-colors? layer-props]}]
