Terminal control/Inverse video: Difference between revisions

=={{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>