From c813cec12f9caa5214cc5733641966485524d2bb Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Mon, 3 May 2021 17:02:13 +0100 Subject: [PATCH] Add cursor-type cube --- core/cubes/editor.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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)