anchor.diff:  
   get_funs (_App, _Mod, false) -> [];
   get_funs (App, Mod, {funcs, [], Funs}) ->
  -    F = fun (X, Acc) -> fun_stuff(App, Mod, X) ++ Acc end,
  -    lists:foldl(F, [], Funs).
  +    F = fun (X) -> fun_stuff(App, Mod, X) end,
  +    lists:flatmap(F, Funs).
   
   fun_stuff (App, Mod, {func, [], Child}) ->
  -    case lists:keyfind(fsummary, 1, Child) of
  -        {fsummary, [], Xml} ->
  -            Summary = shorten(xml_to_html(Xml));
  -        false ->
  -            Summary = ""
  -            %% Things like 'ose_erl_driver.xml' (C drivers) don't have fsummary
  -            %%  but nametext instead. In such cases fsummary is ignored anyway.
  -    end,
  -
  +    Summary = function_summary(Child),
       F = fun ({name, [], Name}, Acc) ->
                   case make_name(Name) of
                       ignore -> Acc;
  -                    NName  -> [ ["fun", App, Mod++":"++NName, Summary] | Acc ]
  +                    NName  ->
  +                        [ {"fun", App, Mod++":"++NName, Summary} | Acc ]
                   end;
               ({name, [{name,Name}, {arity,Arity}], []}, Acc) ->
  -                [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
  +                [ {"fun", App, Mod++":"++Name++"/"++Arity, Summary} | Acc ];
               ({name, [{name,Name}, {arity,Arity}, {clause_i,"1"}], []}, Acc) ->
  -                [ ["fun", App, Mod++":"++Name++"/"++Arity, Summary] | Acc ];
  +                [ {"fun", App, Mod++":"++Name++"/"++Arity, Summary} | Acc ];
               (_Else, Acc) -> Acc
           end,
       lists:foldl(F, [], Child);
  
positive.code:             throw({error_in_read_xml, XmlFile, Error})
      end.
  
  %% @doc shorthand for lists:keyfind
  -spec kf (_, list()) -> _.
  kf (Key, Conf) ->
      {Key, Val} = lists:keyfind(Key, 1, Conf),
  
negative.code: module_index (Conf, Index) ->
      ?log("Creating index.html ..."),
      Html = [ "<h1>Module Index</h1><hr/><br>\n<div>"
             ,   xml_to_html(index_to_xml(Index))
             , "</div>"
             ],
      Args = [ {base,    kf(base,Conf)}
  