; 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))