mirror of https://github.com/vinc/moros.git
24 lines
441 B
Common Lisp
24 lines
441 B
Common Lisp
(load "/lib/lisp/core.lsp")
|
|
|
|
(var esc (bin->str '(27)))
|
|
|
|
(def (ansi-color x y)
|
|
(str esc "[" x ";" y "m"))
|
|
|
|
(def (fg c)
|
|
(ansi-color c 40))
|
|
|
|
(def (bg c)
|
|
(ansi-color 30 c))
|
|
|
|
(def (color f c)
|
|
(str " " (f c) (if (< c 100) " " "") c (ansi-color 0 0)))
|
|
|
|
(def (colors fs i j)
|
|
(str.join (map (fun (c) (color fs c)) (range i j)) ""))
|
|
|
|
(print (colors fg 30 38))
|
|
(print (colors fg 90 98))
|
|
(print (colors bg 40 48))
|
|
(print (colors bg 100 108))
|