anchor.diff:  
   %% Day of the week, textual, long; e.g. 'Friday'
   tag_to_value($l, Date, _, TransFun, Locale) ->
  -    erlang:apply(TransFun, [
  -                 ucfirst(dayname(calendar:day_of_the_week(Date))),
  -                 Locale]);
  +    TransFun(ucfirst(dayname(calendar:day_of_the_week(Date))), Locale);
   
   %% Boolean for whether it is a leap year; i.e. True or False
   tag_to_value($L, {Y,_,_}, _, _TransFun, _Locale) ->
  
positive.code: 
  %% Month, textual, 3 letters, lowercase; e.g. 'jan'
  tag_to_value($b, {_,M,_}, _, TransFun, Locale) ->
      erlang:apply(TransFun,[string:sub_string(monthname(M), 1, 3), Locale]);
  
  %% Day of the month, 2 digits with leading zeros; i.e. '01' to '31'
  tag_to_value($d, {_, _, D}, _, _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);
  