 
 ;; Decorators
 
-(defmacro defdecorator
-	([sym body]
-		`(def ~sym (css ~@body)))
-	([sym arglist body]
-		`(defn ~sym (~arglist (css ~@body)) ([~@arglist ~'t] ((~sym ~@arglist) ~'t)))))
-
-(defdecorator hide (:display "none"))
-
-(defdecorator center (:margin "0 auto" :text-align "center"))
+(defmacro defdecorator [sym arglist body]
+	`(defn ~sym (~arglist (css ~@body)) ([~@arglist ~'t] ((~sym ~@arglist) ~'t))))
 
 (defdecorator color [c] (:color c))
 


;; 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


	: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))))
