From d00d1f8e93a5b91431c342892b12641dc082237e Mon Sep 17 00:00:00 2001 From: Fermin Date: Mon, 21 Aug 2023 17:47:43 +0200 Subject: [PATCH 1/2] Remove modeline element from global editor variable --- extensions/vi-mode/core.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extensions/vi-mode/core.lisp b/extensions/vi-mode/core.lisp index 7be06a6fd..3eaa78315 100644 --- a/extensions/vi-mode/core.lisp +++ b/extensions/vi-mode/core.lisp @@ -75,6 +75,9 @@ (pushnew *modeline-element* (lem:variable-value 'lem:modeline-format :global))) (defun finalize-vi-modeline () + (setf (lem:variable-value 'lem:modeline-format :global) + (remove-if #'vi-modeline-element-p + (lem:variable-value 'lem:modeline-format :global))) (modeline-remove-status-list *modeline-element*)) (defun change-element-by-state (state) From e3b779c4237b1075803e8f67d525bb127739e09d Mon Sep 17 00:00:00 2001 From: Fermin Date: Mon, 21 Aug 2023 18:01:30 +0200 Subject: [PATCH 2/2] Update the color and the form of the emacs-mode cursor-shape --- extensions/vi-mode/core.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extensions/vi-mode/core.lisp b/extensions/vi-mode/core.lisp index 3eaa78315..034e1fcb7 100644 --- a/extensions/vi-mode/core.lisp +++ b/extensions/vi-mode/core.lisp @@ -78,7 +78,9 @@ (setf (lem:variable-value 'lem:modeline-format :global) (remove-if #'vi-modeline-element-p (lem:variable-value 'lem:modeline-format :global))) - (modeline-remove-status-list *modeline-element*)) + (modeline-remove-status-list *modeline-element*) + (set-attribute 'cursor :background *default-cursor-color*) + (lem-if:update-cursor-shape (lem-core:implementation) :box)) (defun change-element-by-state (state) (setf (element-name *modeline-element*) (format nil " ~A " (state-name state))