From 72e4baf906dcf6840880597d365da59e9e6635e0 Mon Sep 17 00:00:00 2001 From: "Heinz N. Gies" Date: Tue, 9 Feb 2016 13:51:37 -0500 Subject: Add low / high color mode --- src/rlx_util.erl | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/rlx_util.erl') 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