Garden helpers for CSS in cljs

style_helpers.cljs

(ns project.ui.style-helpers
  (:require [om.next :as om :refer-macros [defui]]
            [om.dom :as dom]
            [om-css.core :as csc]
            [garden.core :as g]
            [garden.stylesheet :as gs]
            [garden.selectors :as s]))


(def ^:once browsers
  {:vendors ["moz", "webkit"]})

;; sectors
;; (s/defselector *)


;; pseudo-classes
(s/defpseudoclass active)
(s/defpseudoclass any)
(s/defpseudoclass checked)
(s/defpseudoclass default)
(s/defpseudoclass dir [x] x)
(s/defpseudoclass disabled)
;; (s/defpseudoclass empty)
(s/defpseudoclass enabled)
;; (s/defpseudoclass first)
(s/defpseudoclass first-child)
(s/defpseudoclass first-of-type)
(s/defpseudoclass fullscreen)
(s/defpseudoclass focus)
(s/defpseudoclass hover)
(s/defpseudoclass indeterminate)
(s/defpseudoclass in-range)
(s/defpseudoclass invalid)
(s/defpseudoclass lang [x] x)
(s/defpseudoclass last-child)
(s/defpseudoclass last-of-type)
(s/defpseudoclass left)
(s/defpseudoclass link)
;; (s/defpseudoclass not [x] x)
(s/defpseudoclass nth-child [x] x)
(s/defpseudoclass nth-last-child [x] x)
(s/defpseudoclass nth-last-of-type [x] x)
(s/defpseudoclass nth-of-type [x] x)
(s/defpseudoclass only-child)
(s/defpseudoclass only-of-type)
(s/defpseudoclass optional)
(s/defpseudoclass out-of-range)
(s/defpseudoclass read-only)
(s/defpseudoclass read-write)
(s/defpseudoclass required)
(s/defpseudoclass right)
(s/defpseudoclass root)
(s/defpseudoclass scope)
(s/defpseudoclass target)
(s/defpseudoclass valid)
(s/defpseudoclass visited)


;; pseudo-elements
(s/defpseudoclass after)
(s/defpseudoclass before)
(s/defpseudoelement first-letter)
(s/defpseudoelement first-line)
(s/defpseudoelement selection)
(s/defpseudoelement backdrop)
(s/defpseudoelement placeholder)
(s/defpseudoelement marker)
(s/defpseudoelement spelling-error)
(s/defpseudoelement grammar-error)

(def ^:once Enter (hover, focus))