Module Icon

Icon component for displaying various icons, including callout variants.

type colour =
  1. | CurrentColour
  2. | CustomColour of string
type paint =
  1. | NoPaint
  2. | Paint of colour
type stroke_linecap =
  1. | CapButt
  2. | CapRound
  3. | CapSquare
type stroke_linejoin =
  1. | JoinMiter
  2. | JoinRound
  3. | JoinBevel
type path_style = {
  1. fill : paint option;
  2. stroke : paint option;
  3. stroke_linecap : stroke_linecap option;
  4. stroke_linejoin : stroke_linejoin option;
}
type path = {
  1. d : string;
  2. style : path_style;
}
type icon = {
  1. name : string;
  2. alt : string;
  3. width : int;
  4. height : int;
  5. view_box : string;
  6. paths : path list;
}
type callout_variant =
  1. | Info
  2. | Warning
  3. | Danger
  4. | Tip
  5. | Success
type t =
  1. | Contact
  2. | MapPin
  3. | Briefcase
  4. | ArrowRight
  5. | Hamburger
  6. | Mouth
  7. | Lightbulb
  8. | Lambda
  9. | Globe
  10. | Radio
  11. | Server
  12. | Software
  13. | City
  14. | Callout of callout_variant
val alt_text : string -> string
val filled_path_style : path_style
val stroked_path_style : path_style
val filled_path : string -> path
val stroked_path : string -> path
val header_icon : string -> string -> path list -> icon
val variant : t -> icon
val attr : string -> string Tyxml_html.wrap -> 'a Tyxml_html.attrib
val colour_to_string : colour -> string
val paint_to_string : paint -> string
val stroke_linecap_to_string : stroke_linecap -> string
val stroke_linejoin_to_string : stroke_linejoin -> string
val with_attr : string -> ('a -> string Tyxml_html.wrap) -> 'a option -> 'b Tyxml_html.attrib list -> 'b Tyxml_html.attrib list
val path : path -> 'a Tyxml_html.elt
val render : ?decorative:bool -> t -> 'a Tyxml_html.elt
val render_callout_variant : callout_variant -> 'a Tyxml_html.elt