12 lines
505 B
OCaml
12 lines
505 B
OCaml
let make_table () =
|
|
let br = X.a_border 1 in
|
|
let th s = X.th [X.pcdata s] in
|
|
let td s = X.td [X.pcdata s] in
|
|
let my_thead = X.thead (X.tr (th "") [th "X"; th "Y"; th "Z"]) [] in
|
|
let my_tr1 = X.tr (td "1") [td "AAA"; td "BBB"; td "CCC"] in
|
|
let my_tr2 = X.tr (td "2") [td "DDD"; td "EEE"; td "FFF"] in
|
|
let my_tr3 = X.tr (td "3") [td "GGG"; td "HHH"; td "III"] in
|
|
let my_tbody = X.tbody my_tr1 [my_tr2; my_tr3] in
|
|
let my_table = X.tablex ~thead:my_thead ~a:[br] my_tbody [] in
|
|
(my_table)
|