mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Add support for the NO_COLOR environment variable.

This commit is contained in:
Calvin Rose 2023-05-06 16:33:45 -05:00
parent 9bb589f827
commit cabbaded68
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -2,6 +2,7 @@
All notable changes to this project will be documented in this file. All notable changes to this project will be documented in this file.
## Unreleased - ??? ## Unreleased - ???
- Support the `NO_COLOR` environment variable to turn off VT100 color codes in repl (and in scripts).
- Disallow using `(splice x)` in contexts where it doesn't make sense rather than silently coercing to `x`. - Disallow using `(splice x)` in contexts where it doesn't make sense rather than silently coercing to `x`.
- Change the names of `:user8` and `:user9` sigals to `:interrupt` and `:await` - Change the names of `:user8` and `:user9` sigals to `:interrupt` and `:await`
- Change the names of `:user8` and `:user9` fiber statuses to `:interrupted` and `:suspended`. - Change the names of `:user8` and `:user9` fiber statuses to `:interrupted` and `:suspended`.

10
janet.1
View File

@ -183,6 +183,10 @@ default repl.
.BR \-n .BR \-n
Disable ANSI colors in the repl. Has no effect if no repl is run. Disable ANSI colors in the repl. Has no effect if no repl is run.
.TP
.BR \-N
Enable ANSI colors in the repl. Has no effect if no repl is run.
.TP .TP
.BR \-r .BR \-r
Open a REPL (Read Eval Print Loop) after executing all sources. By default, if Janet is called with no Open a REPL (Read Eval Print Loop) after executing all sources. By default, if Janet is called with no
@ -268,5 +272,11 @@ This variable does nothing in the default configuration of Janet, as PRF is disa
cannot be defined for this variable to have an effect. cannot be defined for this variable to have an effect.
.RE .RE
.B NO_COLOR
.RS
Turn off color by default in the repl and in the error handler of scripts. This can be changed at runtime
via dynamic bindings *err-color* and *pretty-format*, or via the command line parameters -n and -N.
.RE
.SH AUTHOR .SH AUTHOR
Written by Calvin Rose <calsrose@gmail.com> Written by Calvin Rose <calsrose@gmail.com>

3
src/boot/boot.janet
View File

@ -3855,6 +3855,7 @@
(if-let [jp (getenv-alias "JANET_PATH")] (setdyn *syspath* jp)) (if-let [jp (getenv-alias "JANET_PATH")] (setdyn *syspath* jp))
(if-let [jprofile (getenv-alias "JANET_PROFILE")] (setdyn *profilepath* jprofile)) (if-let [jprofile (getenv-alias "JANET_PROFILE")] (setdyn *profilepath* jprofile))
(set colorize (not (getenv-alias "NO_COLOR")))
(defn- get-lint-level (defn- get-lint-level
[i] [i]
@ -3883,6 +3884,7 @@
-c source output : Compile janet source code into an image -c source output : Compile janet source code into an image
-i : Load the script argument as an image file instead of source code -i : Load the script argument as an image file instead of source code
-n : Disable ANSI color output in the REPL -n : Disable ANSI color output in the REPL
-N : Enable ANSI color output in the REPL
-l lib : Use a module before processing more arguments -l lib : Use a module before processing more arguments
-w level : Set the lint warning level - default is "normal" -w level : Set the lint warning level - default is "normal"
-x level : Set the lint error level - default is "none" -x level : Set the lint error level - default is "none"
@ -3898,6 +3900,7 @@
"i" (fn [&] (set expect-image true) 1) "i" (fn [&] (set expect-image true) 1)
"k" (fn [&] (set compile-only true) (set exit-on-error false) 1) "k" (fn [&] (set compile-only true) (set exit-on-error false) 1)
"n" (fn [&] (set colorize false) 1) "n" (fn [&] (set colorize false) 1)
"N" (fn [&] (set colorize true) 1)
"m" (fn [i &] (setdyn *syspath* (in args (+ i 1))) 2) "m" (fn [i &] (setdyn *syspath* (in args (+ i 1))) 2)
"c" (fn c-switch [i &] "c" (fn c-switch [i &]
(def path (in args (+ i 1))) (def path (in args (+ i 1)))