fun autodoc {outdir, infiles} =
let
- val (prov, infiles) = Order.order infiles
+ val (prov, infiles) = Order.order NONE infiles
val _ = HtmlPrint.setProviders prov
val G = foldl (fn (fname, G) => check' G fname) Env.empty infiles
val items = map (fn file =>
let
val file' = modify file
+ val (desc, _, _) = Parse.parse file
in
LI {ty = NONE,
value = NONE,
- content = TextBlock (A {name = NONE,
- href = SOME (file' ^ ".html"),
- rel = NONE,
- rev = NONE,
- title = NONE,
- content = PCDATA (uppercase file')})}
+ content = BlockList
+ [TextBlock (A {name = NONE,
+ href = SOME (file' ^ ".html"),
+ rel = NONE,
+ rev = NONE,
+ title = NONE,
+ content = PCDATA (uppercase file')}),
+ TextBlock (PCDATA (Option.getOpt (desc, "")))]}
end) infiles
val index = HTML {version = NONE,