anchor.diff:  %% Examples: '1 a.m.', '1:30 p.m.', 'midnight', 'noon', '12:30 p.m.'
   %% Proprietary extension.
   tag_to_value($P, _, {0,  0, _}, TransFun, Locale) -> 
  -    erlang:apply(TransFun, ["midnight", Locale]);
  +    TransFun("midnight", Locale);
   tag_to_value($P, _, {12, 0, _}, TransFun, Locale) -> 
  -    erlang:apply(TransFun, ["noon", Locale]);
  +    TransFun("noon", Locale);
   tag_to_value($P, Date, Time, TransFun, Locale) ->
       tag_to_value($f, Date, Time, TransFun, Locale)
           ++ " " ++ tag_to_value($a, Date, Time, TransFun, Locale);
  
positive.code: %% Day of the week, textual, 3 letters; e.g. 'Fri'
  tag_to_value($D, Date, _, TransFun, Locale) ->
      Dow = calendar:day_of_the_week(Date),
      erlang:apply(TransFun, [
                   ucfirst(string:sub_string(dayname(Dow), 1, 3)),
                   Locale ]);
  
  %% Month, textual, long, alternative; e.g. 'Listopada'
  tag_to_value($E, {_,M,_}, _, TransFun, Locale) ->
      erlang:apply(TransFun, [
                   ucfirst(monthname(M)),
                   {Locale, <<"alt. month">>}]);
  
  
  %% Month, textual, long; e.g. 'January'
  tag_to_value($F, {_,M,_}, _, TransFun, Locale) ->
      erlang:apply(TransFun, [
                   ucfirst(monthname(M)),
                   Locale]);
  
  %% '1' if Daylight Savings Time, '0' otherwise.
  tag_to_value($I, _, _, _TransFun, _Locale) ->
  
negative.code: %% Month abbreviation in Associated Press style. Proprietary extension.
  tag_to_value($N, {_,M,_}, _, TransFun, Locale) when M =:= 9 ->
      %% Special case - "Sept."
      TransFun(ucfirst(string:sub_string(monthname(M), 1, 4)) ++ ".",
               {Locale, <<"abbrev. month">>});
  tag_to_value($N, {_,M,_}, _, TransFun, Locale) when M < 3 orelse M > 7 ->
      %% Jan, Feb, Aug, Oct, Nov, Dec are all
      %% abbreviated with a full-stop appended.
      TransFun(ucfirst(string:sub_string(monthname(M), 1, 3)) ++ ".",
                   {Locale, <<"abbrev. month">>});
  tag_to_value($N, {_,M,_}, _, TransFun, Locale) ->
      %% The rest are the fullname.
      TransFun(ucfirst(monthname(M)), {Locale, <<"abbrev. month">>});
  
  %% Difference to Greenwich time in hours; e.g. '+0200'
  tag_to_value($O, Date, Time, _TransFun, _Locale) ->
  