MACRO CSS

macro_css.clj

#?(:clj
   (defonce styles (atom {})))

#?(:clj
   (defn gen-macro-css [stls]
     (->> stls
          (reduce-kv
           (fn [acc k v]
             (str acc "@import '" k "';\n"))
           "")
          (spit (str "build/css/app/macro.css")))))

#?(:clj
   (defn add-static-style [css-name hash]
     (-> (swap! styles assoc css-name hash)
         gen-macro-css)))

#?(:clj
   (defmacro def-css
     [css-name styles]
     (let [file-path (str (str *ns*) "-" (name css-name)  ".css")
           class-name (keyword (str (name css-name) (hash styles)))]
       (spit file-path (garden/css (into [(str "." class-name)] styles)))
       (add-static-style file-path (hash styles))
       `(def ~css-name ~class-name))))