Terminal control/Inverse video: Difference between revisions
Add a Common Lisp example using the ncurses library
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix comment: Perl 6 --> Raku) |
(Add a Common Lisp example using the ncurses library) |
||
Line 189:
GOBACK
.</lang>
=={{header|Common Lisp}}==
==={{header|ncurses}}===
To interface the ncurses C library from Lisp, the ''croatoan'' library is used.
<lang lisp>(defun reverse-attribute ()
(with-screen (scr :input-blocking t :input-echoing nil :cursor-visible nil)
(add-string scr "Reverse" :attributes '(:reverse))
(add-string scr " Normal" :attributes '())
(refresh scr)
(get-char scr)))</lang>
=={{header|FunL}}==
| |||