mirror of https://github.com/janet-lang/janet
42 lines
798 B
Plaintext
42 lines
798 B
Plaintext
# Ansi terminal colors
|
|
|
|
(def- colormap
|
|
{:black 30
|
|
:bg-black 40
|
|
:red 31
|
|
:bg-red 41
|
|
:green 32
|
|
:bg-green 42
|
|
:yellow 33
|
|
:bg-yellow 43
|
|
:blue 34
|
|
:bg-blue 44
|
|
:magenta 35
|
|
:bg-magenta 45
|
|
:cyan 36
|
|
:bg-cyan 46
|
|
:white 37
|
|
:bg-white 47
|
|
|
|
:bright-black 90
|
|
:bg-bright-black 100
|
|
:bright-red 91
|
|
:bg-bright-red 101
|
|
:bright-green 92
|
|
:bg-bright-green 102
|
|
:bright-yellow 93
|
|
:bg-bright-yellow 103
|
|
:bright-blue 94
|
|
:bg-bright-blue 104
|
|
:bright-magenta 95
|
|
:bg-bright-magenta 105
|
|
:bright-cyan 96
|
|
:bg-bright-cyan 106
|
|
:bright-white 97
|
|
:bg-bright-white 107})
|
|
|
|
(loop [[name color] :in (pairs colormap)]
|
|
(defglobal (string.slice name 1)
|
|
(fn color-wrapper [& pieces]
|
|
(string "\e[" color "m" (apply1 string pieces) "\e[0m"))))
|