Merge pull request #2192 from tsloughter/string-trim

add rebar_string:trim function for removing all leading/trailing whitespace

src/rebar_string.erl

@@ -4,7 +4,7 @@
 %%% Also contains other useful string functionality.
 -module(rebar_string).
 %% Compatibility exports
--export([join/2, split/2, lexemes/2, trim/3, uppercase/1, lowercase/1, chr/2]).
+-export([join/2, split/2, lexemes/2, trim/1, trim/3, uppercase/1, lowercase/1, chr/2]).
 %% Util exports
 -export([consult/1]).
 
@@ -22,6 +22,7 @@ join([H|T], Sep) ->
 
 split(Str, SearchPattern) -> string:split(Str, SearchPattern).
 lexemes(Str, SepList) -> string:lexemes(Str, SepList).
+trim(Str) -> string:trim(Str).
 trim(Str, Direction, Cluster=[_]) -> string:trim(Str, Direction, Cluster).
 uppercase(Str) -> string:uppercase(Str).
 lowercase(Str) -> string:lowercase(Str).
@@ -36,6 +37,10 @@ join(Strings, Separator) -> string:join(Strings, Separator).
 split(Str, SearchPattern) when is_list(Str) -> string:split(Str, SearchPattern);
 split(Str, SearchPattern) when is_binary(Str) -> binary:split(Str, SearchPattern).
 lexemes(Str, SepList) -> string:tokens(Str, SepList).
+trim(Str) when is_list(Str) ->
+    re:replace(Str, "\\s+", "", [global, {return, list}]);
+trim(Str) when is_binary(Str) ->
+    list_to_binary(trim(binary_to_list(Str))).
 trim(Str, Direction, [Char]) ->
     Dir = case Direction of
               both -> both;