anchor.diff:                     [{h3, [{id,ID}], [PName]}]
                          ++ [ {h3, [], [PNameK]} || PNameK <- PNames ]
              end,
  -    { Tags ++ ["\n    ", {ul, [{class,"type_desc"}], NSpecs}]
  +    { Tags ++ NSpecs
       , [{ids,[NName|Ids]}, List, {functions,[NName|Funs]}, {types,Types}] };
   tr_erlref ({name, [], Child}, Acc) ->
       [{ids,Ids}, List, {functions,Funs}, {types,Types}] = Acc,
  
positive.code: tr_erlref ({name, [], [{ret,[],[Ret]}, {nametext,[],[Desc]}]}, _Acc) ->
      {pre, [], [Ret ++ " " ++ Desc]};
  
  tr_erlref ({type, [], Child}, _Acc) ->
      {ul, [{class, "type"}], Child};
  tr_erlref (E={type, [{name,TName}], []}, Acc) ->
  
negative.code:                         , {li, [], {code, [], [Child]}} }
      end;
  
  tr_erlref ({name, [{name,Name}, {arity,N}, {clause_i,ClauseI}], []}, Acc)
    when ClauseI =:= "1" ->
      tr_erlref({name, [{name,Name}, {arity,N}], []}, Acc);
  tr_erlref ({name, [{name,____}, {arity,_}, {clause_i,ClauseI}], []}, ___)
    when ClauseI  >  "1" ->
      ignore;
  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 = [ {li, [], [{code, [], [Spec]}]}
                || Spec <- merge_specs(SpecsFound), Spec /= [] ],
      NSpecs = case Specs of
                   [] -> [];
                   _  -> ["\n      ", {ul, [{class,"type_desc"}], Specs}]
               end,
      Tags = case Names of
                 []             ->
                     [{h3, [{id,ID}], [ID]}];
  