diff --git a/core/cubes/editor.el b/core/cubes/editor.el
index 7cf023e..71c8258 100644
--- a/core/cubes/editor.el
+++ b/core/cubes/editor.el
@@ -28,6 +28,15 @@
   "Enable the support for font icones in FG42.")
 
 
+(defcube fg42/cursor-cube
+  (:docs "cubes/fg42/cursor-cube.org"
+         :flag cursor-type)
+  (let ((ctype (or (plist-get fg42/cursor-cube-params :type) 'box))
+        (ccolor (or (plist-get fg42/cursor-cube-params :color) "#aa0000")))
+    (set-default 'cursor-type ctype)
+    (set-cursor-color ccolor)))
+
+
 (defcube fg42/buffer-navigation-cube
   (:docs "cubes/fg42/buffer-navigation-cube.org"
          :flag buffer-navigation)