     :else feature-value))
 
 (defmethod compile-media-query :plain [[_ {:keys [feature-name feature-value]}]]
-  (let [feature-name  (compile-media-query [:feature-name feature-name])
+  (let [feature-name (compile-media-query [:feature-name feature-name])
         feature-value (compile-media-query [:feature-value feature-value])]
     (str "(" feature-name ":" feature-value ")")))
 

         ["" []])))

(defmethod compile-media :styles [{styles :styles}]
  (let [pseudo  (filterv utils/pseudo? styles)
        pstyles (->> pseudo
                     (reduce
                       (fn [coll [rule styles]]
                         (conj coll (c/collect-styles (str (:cls @c/env*) (subs (name rule) 1)) styles)))
                       []))
        styles  (filterv (comp not utils/pseudo?) styles)
        [static values] (c/collect-styles (:cls @c/env*) styles)
        values  (->> pstyles
                     (mapcat second)
                     (into values))]
    [(str "{" (apply str static (map first pstyles)) "}")
     values]))


                            :logical #{:and}
                            :cond-without-or ::media-condition-without-or)))))

(s/def ::media-query-list
  (s/or
    :media-query ::media-query
    :media-query-list (s/coll-of ::media-query)))


;;
;; AST compiler
;;
