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

      :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]}]

          :y (:layer/start-y layer)
          :fill (if invert-colors? "#ccc" "black")
          :stroke-width 0
          :font-family (h/h (:layer/font-family layer "Helvetica"))
          :font-size   (:layer/font-size layer 20)}
         layer-props))

