Terminal control/Hiding the cursor: Difference between revisions
→{{header|Common Lisp}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 112:
(sleep 3)
</lang>
==={{header|ncurses}}===
To interface the ncurses C library from Lisp, the ''croatoan'' library is used.
<lang lisp>(defun hide-show-cursor ()
(with-screen (scr :input-echoing nil :input-blocking t)
(setf (cursor-visible-p scr) nil)
(format scr "cursor-visible-p: ~A~%" (cursor-visible-p scr))
(refresh scr)
;; wait for a keypress
(get-char scr)
(setf (cursor-visible-p scr) t)
(format scr "cursor-visible-p: ~A" (cursor-visible-p scr))
(refresh scr)
(get-char scr)))</lang>
=={{header|FunL}}==
| |||