diff options
| author | Heinz N. Gies <heinz@licenser.net> | 2015-09-21 20:35:21 +0200 |
|---|---|---|
| committer | Heinz N. Gies <heinz@licenser.net> | 2015-09-21 20:35:21 +0200 |
| commit | c49327c8177cd46f3285b43fe08c929a83add154 (patch) | |
| tree | 820edafcad256ad791454e39be9f5ef0b21f5337 | |
| parent | e6ef19ecb3ae489ac0996b39d87df8d85905fd31 (diff) | |
Check term cap for color output
| -rw-r--r-- | src/rebar_dialyzer_format.erl | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/src/rebar_dialyzer_format.erl b/src/rebar_dialyzer_format.erl index 3f3e1c8..56a30aa 100644 --- a/src/rebar_dialyzer_format.erl +++ b/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) -> |