- (match_elt "div" "class" ~attr_value:"sect1" ()) article in
- titlepage :: toc :: secs
-
-let localize_ids secs =
- let id2sec = Hashtbl.create 1023 in
- let sec_ids = ref [] in
+ (match_elt "div" "class" ~attr_value:"chapter" ()) document in
+ let title =
+ Pxp_document.find ~deeply:true
+ (fun node -> node#node_type = Pxp_document.T_element "title") doc#root in
+ title#data,
+ titlepage :: toc :: parts
+
+let localize_ids parts =
+ let id2part = Hashtbl.create 1023 in
+ let part_ids = ref [] in