Index: main/cursor.lisp
===================================================================
--- main/cursor.lisp	(revision main,51)
+++ main/cursor.lisp	(revision main,61)
@@ -1,5 +1,5 @@
 (defpackage #:tui-cursor
   (:use #:cl #:cffi #:tui-window)
-  (:export #:cursor-position))
+  (:export #:cursor-position #:set-cursor-visible))
 
 (in-package #:tui-cursor)
@@ -31,2 +31,11 @@
       (let ((ptr (window-pointer window)))
         (wmove ptr row column)))))
+
+
+
+(defcfun "curs_set" :int
+  (visibility :int))
+
+(defun set-cursor-visible (flag)
+  (curs-set (if flag 1 0))
+  flag)