1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
(* TyXML
* http://www.ocsigen.org/tyxml
* Copyright (C) 2011 Pierre Chambart, Grégoire Henry
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation, with linking exception;
* either version 2.1 of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Suite 500, Boston, MA 02110-1301, USA.
*)
(** Typesafe constructors and printers for Html documents.
@see <http://www.w3.org/TR/html5/> W3C Recommendation *)
(** Concrete implementation of Html typesafe constructors.
See {!module-type:Html_sigs.T}.
*)
include Html_sigs.Make(Tyxml_xml)(Tyxml_svg).T
with module Xml.W = Xml_wrap.NoWrap
(** {2 Printers} *)
(** [pp ()] is a {!Format} printer for Html documents.
It can be used in combination with ["%a"]. For example, to get a string:
{[let s = Format.asprintf "%a" (Tyxml.Html.pp ()) my_html]}
*)
val pp:
?encode:(string -> string) -> ?indent:bool -> ?advert:string -> unit ->
Format.formatter -> doc -> unit
(** [pp_elt ()] is a {!Format} printer for Html elements. *)
val pp_elt :
?encode:(string -> string) -> ?indent:bool -> unit ->
Format.formatter -> 'a elt -> unit
(** Parametrized stream printer for Html documents.
@deprecated Use {!pp} instead.
*)
module Make_printer(O : Xml_sigs.Output) :
Xml_sigs.Typed_printer with type out := O.out
and type 'a elt := 'a elt
and type doc := doc
[@@ocaml.deprecated "Use Html.pp instead."]
(**/*)
(** Toplevel printers *)
val _pp : Format.formatter -> doc -> unit
[@@ocaml.toplevel_printer]
val _pp_elt : Format.formatter -> _ elt -> unit
[@@ocaml.toplevel_printer]
|
