Font.Family
include sig ... end
type value
[
|
`serif
`sans_serif
`cursive
`fantasy
`monospace
]
val valueToJs : value -> string
val valueFromJs : string -> value option
type font
`font_name of string
value
type t
Global.t
font
`fonts of font * font list
val show_value : font -> string
val show : t -> string