Define cursor class for (future) user customization

src/strata/strata.org

@@ -59,6 +59,25 @@
   (document *application-frame*))
 #+END_SRC
 
+** cursor
+#+BEGIN_SRC lisp
+(defclass cursor ()
+  ((blink-interval :initarg :blink-interval
+                   :initform 0.5
+                   :accessor blink-interval
+                   :documentation "Frequency of cursor blink, in seconds. If nil, disable cursor blinking.")
+   (color :initarg :color
+          :accessor color
+          :documentation "Color of cursor.")
+   (filled-p :initarg :filled-p
+             :initform t
+             :accessor filled-p
+             :documentation "Whether cursor rectangle should be filled.")
+   (width :initarg :width
+          :accessor width
+          :documentation "Width of cursor.")))
+#+END_SRC
+
 ** display methods
 #+BEGIN_SRC lisp
 (defmethod display ((section section) pane)