From 72e4baf906dcf6840880597d365da59e9e6635e0 Mon Sep 17 00:00:00 2001
From: "Heinz N. Gies" <heinz@licenser.net>
Date: Tue, 9 Feb 2016 13:51:37 -0500
Subject: Add low / high color mode

---
 src/rlx_cmd_args.erl |  4 ++--
 src/rlx_state.erl    |  4 +++-
 src/rlx_util.erl     | 11 +++++++++++
 3 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/src/rlx_cmd_args.erl b/src/rlx_cmd_args.erl
index b64c05d..96ddeba 100644
--- a/src/rlx_cmd_args.erl
+++ b/src/rlx_cmd_args.erl
@@ -25,7 +25,6 @@
          format_error/1]).
 
 -include("relx.hrl").
-
 %%============================================================================
 %% API
 %%============================================================================
@@ -137,7 +136,8 @@ create(log_level, Opts) ->
     LogLevel = proplists:get_value(log_level, Opts, 0),
     if
         LogLevel >= 0, LogLevel =< 3 ->
-            {log, ec_cmd_log:new(LogLevel, command_line)};
+            {log, ec_cmd_log:new(LogLevel, command_line,
+                                 rerlx_util:intensity())};
         true ->
             throw(?RLX_ERROR({invalid_log_level, LogLevel}))
     end;
diff --git a/src/rlx_state.erl b/src/rlx_state.erl
index 42cd730..a26546d 100644
--- a/src/rlx_state.erl
+++ b/src/rlx_state.erl
@@ -146,7 +146,9 @@ new(Config, CommandLineConfig, Targets)
     {ok, Root} = file:get_cwd(),
 
     Caller = proplists:get_value(caller, CommandLineConfig, api),
-    Log = proplists:get_value(log, CommandLineConfig, ec_cmd_log:new(error, Caller)),
+    Log = proplists:get_value(
+            log, CommandLineConfig,
+            ec_cmd_log:new(error, Caller, rlx_util:intensity())),
     State0 = #state_t{log=Log,
                       config_file=Config,
                       cli_args=CommandLineConfig,
diff --git a/src/rlx_util.erl b/src/rlx_util.erl
index 9b86ad3..c1f7b38 100644
--- a/src/rlx_util.erl
+++ b/src/rlx_util.erl
@@ -38,8 +38,10 @@
          load_file/3,
          template_files/0,
          escript_foldl/3,
+         intensity/0,
          symlink_or_copy/2]).
 
+-define(DFLT_INTENSITY,   high).
 -define(ONE_LEVEL_INDENT, "     ").
 %%============================================================================
 %% types
@@ -297,6 +299,15 @@ cp_r_win32(Source,Dest) ->
                   end, filelib:wildcard(Source)),
     ok.
 
+intensity() ->
+    case os:getenv("RELX_COLOR") of
+        "high" ->
+            high;
+        "low" ->
+            low;
+        _ ->
+            ?DFLT_INTENSITY
+    end.
 %%%===================================================================
 %%% Test Functions
 %%%===================================================================
-- 
cgit v1.2.3


From 10e29bcb37f53c3dc4a0949660b8b0b1ed37cf1b Mon Sep 17 00:00:00 2001
From: "Heinz N. Gies" <heinz@licenser.net>
Date: Thu, 11 Feb 2016 12:50:33 -0500
Subject: Fix typo

---
 src/rlx_cmd_args.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rlx_cmd_args.erl b/src/rlx_cmd_args.erl
index 96ddeba..7f3f39b 100644
--- a/src/rlx_cmd_args.erl
+++ b/src/rlx_cmd_args.erl
@@ -137,7 +137,7 @@ create(log_level, Opts) ->
     if
         LogLevel >= 0, LogLevel =< 3 ->
             {log, ec_cmd_log:new(LogLevel, command_line,
-                                 rerlx_util:intensity())};
+                                 rlx_util:intensity())};
         true ->
             throw(?RLX_ERROR({invalid_log_level, LogLevel}))
     end;
-- 
cgit v1.2.3


From 3ceb5594b249fba3e3cd26f6e76fd168f953c5c2 Mon Sep 17 00:00:00 2001
From: "Heinz N. Gies" <heinz@licenser.net>
Date: Tue, 16 Feb 2016 11:58:04 -0500
Subject: Use an app_env to get color intensity

---
 src/rlx_util.erl | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/src/rlx_util.erl b/src/rlx_util.erl
index c1f7b38..7920379 100644
--- a/src/rlx_util.erl
+++ b/src/rlx_util.erl
@@ -299,15 +299,25 @@ cp_r_win32(Source,Dest) ->
                   end, filelib:wildcard(Source)),
     ok.
 
+%% @doc Returns the color intensity, we first check the application envorinment
+%% if that is not set we check the environment variable RELX_COLOR.
 intensity() ->
-    case os:getenv("RELX_COLOR") of
-        "high" ->
-            high;
-        "low" ->
-            low;
-        _ ->
-            ?DFLT_INTENSITY
+    case application:get_env(relx, color_intensity) of
+        undefined ->
+            R = case os:getenv("RELX_COLOR") of
+                    "high" ->
+                        high;
+                    "low" ->
+                        low;
+                    _ ->
+                        ?DFLT_INTENSITY
+                end,
+            application:set_env(relx, color_intensity, R),
+            R;
+        Mode ->
+            Mode
     end.
+
 %%%===================================================================
 %%% Test Functions
 %%%===================================================================
-- 
cgit v1.2.3


From 0a029824e2d767b71f5f75f15b25861c49df1889 Mon Sep 17 00:00:00 2001
From: "Heinz N. Gies" <heinz@licenser.net>
Date: Tue, 16 Feb 2016 12:06:53 -0500
Subject: Fix case for applicaiton:get_env

---
 src/rlx_util.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/rlx_util.erl b/src/rlx_util.erl
index 7920379..c4251d4 100644
--- a/src/rlx_util.erl
+++ b/src/rlx_util.erl
@@ -314,7 +314,7 @@ intensity() ->
                 end,
             application:set_env(relx, color_intensity, R),
             R;
-        Mode ->
+        {ok, Mode} ->
             Mode
     end.
 
-- 
cgit v1.2.3