diff options
| -rw-r--r-- | global-functions | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/global-functions b/global-functions index c1311cf..d66541d 100644 --- a/global-functions +++ b/global-functions @@ -412,6 +412,11 @@ :global PrintDebug; + :local PrintSeverity do={ + :local Color { debug=96; info=97; warning=93; error=91 }; + :return ("\1B[" . $Color->$1 . "m" . $1 . "\1B[0m"); + } + :if ($Severity ~ "^(debug|error|info)\$") do={ :if ($Severity = "debug") do={ :log debug $Message; } :if ($Severity = "error") do={ :log error $Message; } @@ -423,9 +428,9 @@ :if ($Severity != "debug" || $PrintDebug = true) do={ :if ($Exit = "true") do={ - :error ($Severity . ": " . $Message); + :error ([ $PrintSeverity $Severity ] . ": " . $Message); } else={ - :put ($Severity . ": " . $Message); + :put ([ $PrintSeverity $Severity ] . ": " . $Message); } } } |