colorize
NOTE: this is a exported version of ruby gem colorize.
1 Procedure Reference
procedure
(colorize str color1 #:background color2 #:style style) → string? str : string? color1 : symbol? color2 : symbol? style : symbol?
procedure
(colorize/argv sym) → list?
sym : symbol?
procedure
(colorized? str) → boolean?
str : string?
2 Usage Example
> (require colorize) > (colorize/argv 'color)
'(black
light-black
red
light-red
green
light-green
yellow
light-yellow
blue
light-blue
magenta
light-magenta
cyan
light-cyan
white
light-white
default)
> (colorize/argv 'style) '(default bold italic underline blink swap hide)
> (colorize/argv 'all)
'((color
black
light-black
red
light-red
green
light-green
yellow
light-yellow
blue
light-blue
magenta
light-magenta
cyan
light-cyan
white
light-white
default)
(style default bold italic underline blink swap hide))
> (colorize "this is a raw red string" 'red) "\e[0;31;49mthis is a raw red string\e[0m"
; below is an example about how to display the the red string to your terminal > (displayln (colorize "this is a raw red string" 'red)) [0;31;49mthis is a raw red string[0m
> (colorize "this is a raw red string on blue with underline" 'red #:background 'blue #:style 'underline) "\e[4;31;44mthis is a raw red string on blue with underline\e[0m"
; a practical usage example shown below:
> (string-join `("\n" ,(colorize "Happy" 'light-red) ,(colorize "Hacking" 'blue) ,(colorize (string-titlecase (or (getenv "USER") "user")) 'green) "-" ,(colorize "Racket" 'cyan) ,(colorize "♥" 'magenta) ,(colorize "You" 'light-magenta) ,(colorize "!!!" 'red) "\n\n") " ") "\n \e[0;91;49mHappy\e[0m \e[0;34;49mHacking\e[0m \e[0;32;49mUser\e[0m - \e[0;36;49mRacket\e[0m \e[0;35;49m♥\e[0m \e[0;95;49mYou\e[0m \e[0;31;49m!!!\e[0m \n\n"
3 Optional Colorization
(require colorize/optional) | package: colorize |
syntax
(colorize-optional str arg ...)
arg ... are the arguments passed down to colorize.
> (parameterize ([colorize? #false] [no-color? #true]) (colorize-optional "Happy" 'light-red)) "Happy"