blob: 6de7f2f8ed8a127ce13eec6fcb3dbd4b063cb133 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
; ansi.neb
; functions and such for colors in the terminal
(func wrap (color-code :string)
(concat "\033[" color-code "m"))
(def reset (wrap "0"))
; COLORS
(def black-on (wrap "30"))
(func black :string (str :string)
(concat black-on str reset))
(def bright-black-on (wrap "90"))
(func bright-black :string (str :string)
(concat bright-black-on str reset))
(def red-on (wrap "31"))
(func red :string (str :string)
(concat red str reset))
(def bright-red-on (wrap "91"))
(func bright-red :string (str :string)
(concat bright-red-on str reset))
(def green-on (wrap "32"))
(func green :string (str :string)
(concat green-on str reset))
(def bright-green-on (wrap "92"))
(func bright-green :string (str :string)
(concat bright-green-on str reset))
(def yellow-on (wrap "33"))
(func yellow :string (str :string)
(concat yellow-on str reset))
(def bright-yellow-on (wrap "93"))
(func bright-yellow :string (str :string)
(concat bright-yellow-on str reset))
(def blue-on (wrap "34"))
(func blue :string (str :string)
(concat blue-on str reset))
(def bright-blue-on (wrap "94"))
(func bright-blue :string (str :string)
(concat bright-blue-on str reset))
(def magenta-on (wrap "35"))
(func magenta :string (str :string)
(concat magenta-on str reset))
(def bright-magenta-on (wrap "95"))
(func bright-magenta :string (str :string)
(concat bright-magenta-on str reset))
(def cyan-on (wrap "36"))
(func cyan :string (str :string)
(concat cyan-on str reset))
(def bright-cyan-on (wrap "96"))
(func bright-cyan :string (str :string)
(concat bright-cyan-on str reset))
(def white-on (wrap "37"))
(func white :string (str :string)
(concat white-on str reset))
(def bright-white-on (wrap "97"))
(func bright-white :string (str :string)
(concat bright-white-on str reset))
; STYLES
(def bold-on (wrap "1"))
(func bold :string (str :string)
(concat bold-on str reset))
(def faint-on (wrap "2"))
(func faint :string (str :string)
(concat faint-on str reset))
(def italic-on (wrap "3"))
(func italic :string (str :string)
(concat italic-on str reset))
(def underline-on (wrap "4"))
(func underline :string (str :string)
(concat underline-on str reset))
(def blink-on (wrap "5"))
(func blink :string (str :string)
(concat blink-on str reset))
(def reverse-on (wrap "7"))
(func reverse :string (str :string)
(concat reverse-on str reset))
|
