Index: main/cursor.lisp
===================================================================
--- main/cursor.lisp	(revision main,28)
+++ main/cursor.lisp	(revision main,28)
@@ -0,0 +1,32 @@
+(defpackage #:tui-cursor
+  (:use #:cl #:cffi #:tui-window)
+  (:export #:cursor-position))
+
+(in-package #:tui-cursor)
+
+
+
+(defcfun "getcury" :int
+  (window :pointer))
+
+(defcfun "getcurx" :int
+  (window :pointer))
+
+(defcfun "wmove" :int
+  (window :pointer)
+  (y :int)
+  (x :int))
+
+
+
+(defgeneric cursor-position (window)
+  (:method ((window window))
+    (let ((ptr (window-pointer window)))
+      (values (getcury ptr)
+              (getcurx ptr)))))
+
+(defgeneric (setf cursor-position) (p window)
+  (:method (p (window window))
+    (destructuring-bind (row column) p
+      (let ((ptr (window-pointer window)))
+        (wmove ptr row column)))))