Restore modules listing

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