- (List.map (fun (sectionname, content) ->
- "HEADING: " ^ sectionname ^ "\n\n" ^
- content ^ "\n\n") sections)) ^
- "CSS:\n\n" ^ css
+ (List.map (
+ fun (sectionname, divname, jsgo, content) ->
+ (match sectionname with
+ | None -> ""
+ | Some sectionname -> "HEADING: " ^ sectionname ^ "\n\n") ^
+ content ^ "\n\n" ^
+ (match divname with
+ | None -> ""
+ | Some divname -> "CSS Id: " ^ divname ^ "\n") ^
+ (match jsgo with
+ | None -> ""
+ | Some jsgo -> "Javascript Onclick: " ^ jsgo ^ "\n") ^
+ "\n"
+ ) model.contents_)
+ ) ^
+ (match css with
+ | None -> ""
+ | Some css -> "CSS:\n\n" ^ css ^ "\n")