type ext = string
+type anchor = string
+
type absolute = bool
type size = {
| Glue of int option
type table = {
+ tn: anchor; (* named anchor *)
mutable tc: css; (* css classes *)
mutable tu: uri; (* uri *)
mutable tx: ext; (* uri extension *)
n = b; s = b; e = b; w = b;
}
-let mk_key k tc tu tx = {
+let mk_key k tc tu tx tn = {
ts = no_size; tb = border false; te = Key k;
- tc = tc; tu = tu; tx = tx;
+ tc = tc; tu = tu; tx = tx; tn = tn;
ti = id ();
}
-let mk_line b tl tc tu tx = {
+let mk_line b tl tc tu tx tn = {
ts = no_size; tb = border b; te = Line (b, tl);
- tc = tc; tu = tu; tx = tx;
+ tc = tc; tu = tu; tx = tx; tn = tn;
ti = id ();
}