css 0.1.0 · OCaml Package

Statements.

val pp_list : 
  string ->
  (Format.formatter -> 'a -> unit) ->
  Format.formatter ->
  'a list ->
  unit

type 'a qname = 'a * string

type attr_value_operator =

| Exact
| Exact_list
| Hyphen
| Prefix
| Suffix
| Contain

type attr_value = {

v : string;
op : attr_value_operator;
case_sensitive : bool;

}

type 'ns attr_selector =

| Attr_present of 'ns qname
| Attr_value of 'ns qname * attr_value

type 'ns pseudo_class = [

| `Active
| `Default
| `Disabled
| `Empty
| `Enabled
| `First_child
| `First_of_type
| `Focus
| `Fullscreen
| `Hover
| `In_range
| `Indeterminate
| `Invalid
| `Lang of string
| `Last_child
| `Last_of_type
| `Link
| `Not of 'ns selector
| `Nth_child of int
| `Nth_last_child of int
| `Nth_last_of_type
| `Nth_of_type
| `Only_of_type
| `Only_child
| `Optional
| `Out_of_range
| `Read_only
| `Read_write
| `Required
| `Root
| `Target
| `Valid
| `Visited
| `Other of string

]

and 'ns single_selector = {

sel_qname : 'ns qname T.with_loc option;
sel_attr : 'ns attr_selector T.with_loc list;
sel_id : string T.with_loc option;
sel_pseudo_class : 'ns pseudo_class T.with_loc list;
sel_pseudo_elt : string T.with_loc option;

}

and 'ns selector =

| Single of 'ns single_selector
| Inside of 'ns selector * 'ns single_selector
| Child of 'ns selector * 'ns single_selector
| Adjacent of 'ns selector * 'ns single_selector
| Sibling of 'ns selector * 'ns single_selector

val pseudo_class_kws : 'a pseudo_class list

val selector_is_empty : 'a single_selector -> bool

type 'ns rule_ = {

sel : 'ns selector T.with_loc list;
decls : P.binding list;
subs : 'ns rule list;

}

and 'ns rule = 'ns rule_ T.with_loc

val string_of_attr_value : attr_value -> string

val string_of_attr_selector : 
  ('a qname -> string) ->
  'a attr_selector ->
  string

val string_of_attr_selector_list : 
  ('a qname -> string) ->
  ('a attr_selector * 'b) list ->
  string

val string_of_single_selector : 
  ('a qname -> string) ->
  'a single_selector ->
  string

val string_of_selector : ('a qname -> string) -> 'a selector -> string

val string_of_selector_ : ('a qname -> string) -> ('a selector * 'b) -> string

val string_of_pseudo_class : ('a qname -> string) -> 'a pseudo_class -> string

val pseudo_class_of_string : string -> string pseudo_class option

val pp_decl : Format.formatter -> P.binding -> unit

val pp_decls : Format.formatter -> P.binding list -> unit

val pp_rule_ : ('a qname -> string) -> Format.formatter -> 'a rule_ -> unit

val pp_rule : ('a qname -> string) -> Format.formatter -> 'a rule -> unit

type media_condition = string

val pp_media_cond : Format.formatter -> string -> unit

type import_conditions = unit

type layer_name = string list

val pp_layer_name : Format.formatter -> string list -> unit

val pp_layer_names : Format.formatter -> string list list -> unit

type 'ns at_rule_ =

| Charset of string
| Import of Iri.t * layer_name option * import_conditions option
| Layer of layer_name list * 'ns statement list
| Media of media_condition * 'ns statement list
| Namespace of string option * Iri.t
| Other of string

and 'ns at_rule = 'ns at_rule_ * T.loc

and 'ns statement =

| Rule of 'ns rule
| At_rule of 'ns at_rule

val pp_at_rule_ : 
  ('a qname -> string) ->
  Format.formatter ->
  'a at_rule_ ->
  unit

val pp_at_rule : ('a qname -> string) -> Format.formatter -> 'a at_rule -> unit

val pp_statement : 
  ('a qname -> string) ->
  Format.formatter ->
  'a statement ->
  unit

val pp_statement_list : 
  ('a qname -> string) ->
  Format.formatter ->
  'a statement list ->
  unit

module Smap = T.Smap

val empty_iri : Iri.t

val expand_qname : 
  ?all:bool ->
  Iri.t Smap.t ->
  T.loc ->
  (Smap.key * 'a) ->
  Iri.t * 'a

val expand_attr_selector : 
  Iri.t Smap.t ->
  T.loc ->
  Smap.key attr_selector ->
  Iri.t attr_selector

val expand_pseudo_class : 
  Iri.t Smap.t ->
  Smap.key pseudo_class ->
  Iri.t pseudo_class

val expand_single_selector : 
  Iri.t Smap.t ->
  Smap.key single_selector ->
  Iri.t single_selector

val expand_selector : Iri.t Smap.t -> Smap.key selector -> Iri.t selector

val expand_rule : Iri.t Smap.t -> Smap.key rule_ -> Iri.t rule_

val html_ns_iri : Iri.t

val math_ns : string * Iri.t

val svg_ns : string * Iri.t

val default_ns : Iri.t Smap.t

Default namespaces used when expanding namespaces in CSS. These consist in:

"" mapped to "http://www.w3.org/1999/xhtml",
"math" mapped to "http://www.w3.org/1998/Math/MathML",
"svg" mapped to "http://www.w3.org/2000/svg".

val expand_at_rule : 
  Iri.t Smap.t ->
  Smap.key at_rule_ ->
  Iri.t Smap.t * Iri.t at_rule_

val expand_statement : 
  Iri.t Smap.t ->
  Smap.key statement ->
  Iri.t Smap.t * Iri.t statement

val expand_statement_list : 
  ?ns:Iri.t Smap.t ->
  Smap.key statement list ->
  Iri.t statement list

package css