27 lines
1003 B
Plaintext
27 lines
1003 B
Plaintext
#!/usr/bin/env nomsu -V6.14
|
|
#
|
|
This file defines actions for ANSI console color escape codes.
|
|
|
|
test:
|
|
$ = (bright "\(green)Color test passed.")
|
|
|
|
$colors = {
|
|
.normal = 0, ."reset color" = 0, .bright = 1, .bold = 1, .dim = 2, .italic = 3
|
|
.underscore = 4, ."slow blink" = 5, ."fast blink" = 6, .reverse = 7, .inverse = 7
|
|
.inverted = 7, .hidden = 8
|
|
# There's some other codes, but they're not currently implemented
|
|
.black = 30, .red = 31, .green = 32, .yellow = 33, .blue = 34, .magenta = 35
|
|
.cyan = 36, .white = 37, ."on black" = 40, ."on red" = 41, ."on green" = 42
|
|
."on yellow" = 43, ."on blue" = 44, ."on magenta" = 45, ."on cyan" = 46
|
|
."on white" = 47
|
|
}
|
|
|
|
for $name = $colornum in $colors:
|
|
$colornum = "\$colornum"
|
|
$compile.action.$name =
|
|
for ($compile $text):
|
|
if $text:
|
|
return (Lua "('\\027[\($colornum)m'..\($text as lua expr)..'\\027[0m')")
|
|
..else:
|
|
return (Lua "'\\027[\($colornum)m'")
|