1(***********************************************************************)
2(*                                                                     *)
3(*                          HEVEA                                      *)
4(*                                                                     *)
5(*  Luc Maranget, projet PARA, INRIA Rocquencourt                      *)
6(*                                                                     *)
7(*  Copyright 1998 Institut National de Recherche en Informatique et   *)
8(*  Automatique.  Distributed only by permission.                      *)
9(*                                                                     *)
10(***********************************************************************)
11
12(* For text-level elements *)
13type text =
14  Style of string
15| Font of int
16| Color of string
17| StyleAttr of string * string
18let pretty_text = function
19  Style s -> "Style: "^s
20| Font i  -> "Font size: "^string_of_int i
21| Color s  -> "Font color: "^s
22| StyleAttr (t,a) -> "Style with attributes: "^t^" ["^a^"]"
23;;
24