lager utils

lager_utils

-define(info, lager:info).
-define(debug, lager:debug).
-define(warning, lager:warning).
-define(error, lager:error).
-define(alert, lager:alert).


-define(mute_level(LogLevel),
    begin
        error_logger:tty(false),

        application:load(lager),
        application:set_env(lager, error_logger_redirect, false),
        (?log_running andalso ?console_loglevel(LogLevel)) orelse
            application:set_env(lager, handlers,
                                [{lager_console_backend, LogLevel}])
    end).

-define(mute, ?mute_level(warning)).

-define(unmute,
    begin
        ?console_loglevel(info),
        error_logger:tty(true)
    end).

-define(log_running, (lists:member(lager, registered()))).
-define(console_loglevel(X),
        (ok = lager:set_loglevel(lager_console_backend, X))).