module Language.Css.Build.Pseudos (
firstChild,
link,
visited,
hover,
active,
focus,
lang,
firstLine,
firstLetter,
before,
after
)
where
import Language.Css.Syntax
import Language.Css.Build
firstChild :: PseudoVal
firstChild = ident "first-child"
link :: PseudoVal
link = ident "link"
visited :: PseudoVal
visited = ident "visited"
hover :: PseudoVal
hover = ident "hover"
active :: PseudoVal
active = ident "active"
focus :: PseudoVal
focus = ident "focus"
lang :: Expr -> PseudoVal
lang = PFunc . fun (ident "lang")
firstLine :: PseudoVal
firstLine = ident "first-line"
firstLetter :: PseudoVal
firstLetter = ident "first-letter"
before :: PseudoVal
before = ident "before"
after :: PseudoVal
after = ident "after"