diff --git a/src/edown_doclet.erl b/src/edown_doclet.erl index b566914289bbe73a2f5483685fa09585c8e1cca5..d576e41dcf3bc28d79399edb2999208cfc16de57 100644 --- a/src/edown_doclet.erl +++ b/src/edown_doclet.erl @@ -119,7 +119,8 @@ gen(Sources, App, Modules, Ctxt) -> Title = title(App, Options), %% CSS = stylesheet(Options), {Modules1, Error} = sources(Sources, Dir, Modules, Env, Options), - Data = overview(Dir, Title, Env, Options), + Data = overview(Dir, Title, Env, Options) + ++ lists:concat([modules_frame(Modules1) || Modules1 =/= []]), Text = edown_lib:export(Data, Options), write_file(Text, Dir, right_suffix(?INDEX_FILE, Options)), write_info_file(App, Modules1, Dir), @@ -363,6 +364,22 @@ check_name(M, M0, File) -> end end. +modules_frame(Ms) -> + [{h2, [{class, "indextitle"}], ["Modules"]}, + {table, [{width, "100%"}, {border, 0}, + {summary, "list of modules"}], + lists:concat( + [[?NL, + {tr, [{td, [], + [{a, [{href, module_ref(M)}, + {class, "module"}], + [atom_to_list(M)]}]}]}] + || M <- Ms])}]. + +module_ref(M) -> + edoc_refs:relative_package_path(M, '') ++ ?DEFAULT_FILE_SUFFIX. + + %% NEW-OPTIONS: overview %% INHERIT-OPTIONS: read_file/4 %% INHERIT-OPTIONS: edoc_lib:run_layout/2