anchor.diff:  
       Acc = [{ids,[]}, {list,ul}, {functions,[]}, {types,Types}],
   
  -    {[_Id, _List, {functions,Funs}, {types,_}], NXml}
  +    {[_Id, _List, {functions,_Funs}, {types,_Types}], NXml}
           = render(fun tr_erlref/2,  Xml, Acc),
   
   %%  XmlFuns = [{li, [], [{a, [{href,"#"++X}], [X]}]}
  
positive.code:     Else.
  
  
  find_spec (_Name, _Arity, []) ->
      {[], invalid_name};
  find_spec (Name, Arity, [{spec, [], Specs} |Rest]) ->
      {_, _, [SpecName]}  = lists:keyfind(name, 1, Specs),
      {_, _, [ArityName]} = lists:keyfind(arity, 1, Specs),
  
negative.code:                         , {li, [], {code, [], [Child]}} }
      end;
  
  tr_erlref ({name, [{name,Name}, {arity,N}, {clause_i,"1"}], []}, Acc) ->
      tr_erlref({name, [{name,Name}, {arity,N}], []}, Acc);
  tr_erlref ({name, [{name,Name}, {arity,N}], []}, Acc) ->
      [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
      NName = inc_name(Name, Ids, 0),
      ID = Name ++ "/" ++ N,
      Found = find_spec(Name, N, Types),
      {SpecsFound, Names} = lists:unzip(Found),
      Specs = merge_specs(SpecsFound),
      NSpecs = [ {li, [], [{code, [], [Spec]}]} || Spec <- Specs ],
      Tags = case Names of
                 []             ->
                     [{h3, [{id,ID}], [ID]}];
                 [PName|PNames] ->
                     [{h3, [{id,ID}], [PName]}]
                         ++ [ {h3, [], [PNameK]} || PNameK <- PNames ]
             end,
      { Tags ++ ["\n    ", {ul, [{class,"type_desc"}], NSpecs}]
      , [{ids,[NName|Ids]}, List, {functions,[NName|Funs]}, {types,Types}] };
  tr_erlref ({name, [], Child}, Acc) ->
      [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
  