Hi,
I wanted to modify Alex' irc client so that I could have some text printed
color. (I prefer the American spelling "color", as that is what’s used in
computer tech.)
I therefor wrote the following:
(setq *ColorTerm (car (member (sys "TERM") '("linux" "xterm" "xterm-color"
"xterm-256color" "rxvt"))))
(de useColor (C . Prog)
(when *ColorTerm (call 'tput 'setaf C))
(run Prog)
(when *ColorTerm (call 'tput 'sgr0)) )
Here’s how you may use it to print two lines in green (2):
(useColor 2
(prinl "On this system, *ColorTerm is " *ColorTerm)
(prinl "That should be fine") )
You may find more info on ANSI colors here:
<http://en.wikipedia.org/wiki/ANSI_escape_code#Colors>
As I just got hold of Alex’ very latest version of the irc client, I see no
point in making my old modified version available right now.
See his article here: <http://picolisp.com/wiki/?ircClient>
/Jon--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
