anchor.diff:  
   %% Month, textual, 3 letters; e.g. 'Jan'
   tag_to_value($M, {_,M,_}, _, TransFun, Locale) ->
  -    erlang:apply(TransFun, [
  -                 ucfirst(string:sub_string(monthname(M), 1, 3)),
  -                 Locale]);
  +    TransFun(ucfirst(string:sub_string(monthname(M), 1, 3)), Locale);
   
   %% Month without leading zeros; i.e. '1' to '12'
   tag_to_value($n, {_, M, _}, _, _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: %% Examples: '1 a.m.', '1:30 p.m.', 'midnight', 'noon', '12:30 p.m.'
  %% Proprietary extension.
  tag_to_value($P, _, {0,  0, _}, TransFun, Locale) -> 
      TransFun("midnight", Locale);
  tag_to_value($P, _, {12, 0, _}, TransFun, 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);
  