anchor.diff:  	      "Texts:~n" ++ KeysText ++ "~n"
   	      "Ticket information:~n{Paste here ticket specs}~n~n~n"
   	      "Best regards,~n~n~n"
  -	      "--------------------~n~n~n~n~n").    
  +	      "--------------------~n~n~n~n~n").
   
   print_new_old_keys({New, Old}) ->
       io:format("~n~n~n~n~n"),
  -    io:format("List of new keys and to be removed keys. If you want a new key to"
  -	      " keep the translations of a key to be removed you need to say so "
  -	      "when updating the po files. For example:~n"
  +    io:format("List of new keys and to be removed keys. "
  +	      "If you want a new key to"
  +	      " keep the translations of a key to be removed you need to say "
  +	      "so when updating the po files. For example:~n"
   	      "polish:update_po_files([{1,3},{2,1}]).~n"
  -	      "will make new key 1 keep translations of old key 3 and new key 2 "
  -	      "keep translations of old key 1. Otherwise just run "
  +	      "will make new key 1 keep translations of old key 3 and new key 2"
  +	      " keep translations of old key 1. Otherwise just run "
   	      "polish:update_po_files().~n"),
       io:format("--------------------~n~nNEW KEYS~n~n"),
       print_keys(New),
  
positive.code: %%   Leading, Text, Trailing = string()
  %% @doc Trims whitespace at start and end of a string.
  split_whitespace(Input) ->
     {match, [_, Leading, Text, Trailing]} = 
      re:run(Input, "^([\\s]*)(.*?)([\\s]*)$", [{capture, all, list}, dotall]),
     {Leading, Text, Trailing}.
     
  trim_whitespace_test()->
      ?assertEqual({"   \t\n\r  ","hej\ng","  "}, trim_whitespace("   \t\n\r  hej\ng  ")). 
  
  %% Restore a trimmed string's original leading and trailing whitespace
  %% from the key
  restore_whitespace(Orig, Trimmed) ->
      {Leading, _, Trailing} = 
  	split_whitespace(Orig),
      lists:append(Leading, lists:append(Trimmed, Trailing)).    
  
  restore_whitespace_test() ->
      Orig = "  \ngreat\t  ",
  
negative.code:     io:format("~p. ~s~n", [N, K]),
      print_keys(Keys, N + 1);
  print_keys([], _N) ->
      ok.
  
  %% @spec trim_whitespace(Input::string()) -> Result
  %%   Result = string()
  