9 lines
314 B
Common Lisp
9 lines
314 B
Common Lisp
(in-package :de.anvi.croatoan)
|
|
|
|
;; 0 invisible, 1 visible, 2 very visible.
|
|
(defun set-cursor-visibility (status)
|
|
(case status
|
|
((nil :invisible) (%curs-set 0))
|
|
((t :visible) (%curs-set 1))
|
|
(:very-visible (%curs-set 2))
|
|
(otherwise (error "Valid status arguments: nil, t, :very-visible"))))
|