 	:background-color c1
 	:background-image (format "-webkit-linear-gradient(%s, %s, %s)" d c1 c2)
 	:background-image (format "-linear-gradient(%s, %s, %s)" d c1 c2)))
+
+(def hide (css :display "none"))
+
+(def center (css :margin "0 auto" :text-align "center"))
 
 (defn transform [& xs]
 	(assert (or (< (count xs) 1) (none tag? (butlast xs))))


;; CSS Value Builders

(defn- make-angle [x] (if (number? x) (str x "deg") x))

(defn rotate [angle] (format "rotate(%s)" (str-k (make-angle angle))))

(defn skew [x-angle y-angle] (format "skew(%s, %s)" (str-k (make-angle x-angle)) (str-k (make-angle y-angle))))

;; Character Entities



;; Decorators

(defmacro defdecorator [sym arglist body]
	`(defn ~sym (~arglist (css ~@body)) ([~@arglist ~'t] ((~sym ~@arglist) ~'t))))

(defdecorator color [c] (:color c))

