Terminal control/Hiding the cursor: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 112: | Line 112: | ||
(sleep 3) |
(sleep 3) |
||
</lang> |
</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}}== |
=={{header|FunL}}== |