anchor.diff:  
   % Month, textual, 3 letters, lowercase; e.g. 'jan'
   tag_to_value($b, {_,M,_}, _, Context) ->
  -   string:sub_string(monthname(M, Context), 1, 3);
  +   z_string:truncate(monthname(M, Context), 3, []);
   
   % ISO 8601 date format - 2004-02-12T15:19:21+00:00
   tag_to_value($c, Date, Time, Context) ->
  
positive.code: % Day of the week, textual, 3 letters; e.g. 'Fri'
  tag_to_value($D, Date, _, Context) ->
     Dow = calendar:day_of_the_week(Date),
     string:sub_string(dayname(Dow, Context), 1, 3);
  
  % Month, textual, long; e.g. 'January'
  tag_to_value($F, {_,M,_}, _, Context) ->
  
negative.code: % Utility functions
  integer_to_list_zerofill(N) when is_float(N) ->
      integer_to_list_zerofill(round(N));
  integer_to_list_zerofill(N) when N < 100 ->
      [ N div 10 + $0, N rem 10 + $0];
  integer_to_list_zerofill(N) ->
      integer_to_list(N).
  