Add cursor-type cube
This commit is contained in:
parent
8b0f3e6539
commit
c813cec12f
|
@ -28,6 +28,15 @@
|
||||||
"Enable the support for font icones in FG42.")
|
"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
|
(defcube fg42/buffer-navigation-cube
|
||||||
(:docs "cubes/fg42/buffer-navigation-cube.org"
|
(:docs "cubes/fg42/buffer-navigation-cube.org"
|
||||||
:flag buffer-navigation)
|
:flag buffer-navigation)
|
||||||
|
|
Loading…
Reference in New Issue