Check term cap for color output

src/rebar_dialyzer_format.erl

@@ -47,21 +47,6 @@ fmt(Fmt, Args) ->
     io_lib:format(cfmt(Fmt), Args).
 
 
-%% Mostrly from: https://github.com/erlware/erlware_commons/blob/49bc69e35a282bde4a0a6a8f211b5f77d8585256/src/ec_cmd_log.erl#L220
-%%colorize(Color, Msg) when is_integer(Color) ->
-%%    colorize(Color, false, Msg).
-
-%% colorize(Color, false, Msg) when is_integer(Color) ->
-%%     lists:flatten(fmt("\033[~B;~Bm~s\033[0m", [0, Color, Msg]));
-%% colorize(Color, true, Msg) when is_integer(Color) ->
-%%     lists:flatten(fmt("\033[~B;~Bm~s\033[0m", [1, Color, Msg])).
-
-
-%%bw(M) ->
-%%    colorize(37, true, M).
-
-%% Based on: https://github.com/erlang/otp/blob/a2670f0822fc6729df956c8ec8c381340ff0a5fb/lib/dialyzer/src/dialyzer.erl#L290
-
 format_warning({Tag, {File, Line, _MFA}, Msg}, FOpt) ->
     format_warning({Tag, {File, Line}, Msg}, FOpt);
 format_warning({_Tag, {File, Line}, Msg}, FOpt) when is_list(File),
@@ -74,8 +59,24 @@ format_warning({_Tag, {File, Line}, Msg}, FOpt) when is_list(File),
     lists:flatten(fmt("~s:~w~n~s", [F, Line, String])).
 
 
+%% FROM https://github.com/erlware/erlware_commons/blob/49bc69e35a282bde4a0a6a8f211b5f77d8585256/src/ec_cmd_log.erl
+%% @doc Query the term enviroment
+%% For reasons of simplicity, we don't parse terminal capabilities yet, although
+%% a later version could do so. Rather, we provide a simple match-list of terminal
+%% capabilities.
+%% @end
+-spec query_term_env() -> full | dumb.
+query_term_env() ->
+    term_capabilities(os:getenv("TERM")).
+
+-spec term_capabilities(string()) -> full | dumb.
+term_capabilities("xterm") -> full;
+term_capabilities("dumb") -> dumb;
+term_capabilities(_) -> full. %% Default to the backwards compatible version.
+
+
 cfmt(S) ->
-    cfmt(S, true).
+    cfmt(S, query_term_env() =:= full).
 cfmt(S, true) ->
     lists:flatten(cfmt_(S, true)) ++ ?R;
 cfmt(S, false) ->