lcss.clj

(ns sexp-css.core)
(defn- wrap [forms]  (str "{" forms "}"))
(defn map-to-form   [m]  (let [outer-forms (reduce                      (fn [out-vec [k v]]                        (conj out-vec (str (name k) " : " v))) [] m)        inner-forms (->> outer-forms (interpose ";") (apply str))]    (wrap inner-forms)))
(defmacro defrule [selector & forms]  `(str ~selector (apply map-to-form (vector ~@forms))))
(defn px [n]  (when (number? n)    (str n "px")))
(defn mixin [rule & forms]  (merge rule (into {} forms)))

(def my-mixin
  {:height "20px"
   :width "100px"})

(def sample
  (defrule "h2"
    (let [line-height 24
          font-size 16]
    (mixin 
      {:font-size (px (* font-size line-height))
       :color "#FFF"} my-mixin))))