From 53da458d962093dc171533d6c06a2cc4e4d06b74 Mon Sep 17 00:00:00 2001 From: Valeriy Litkovskyy Date: Tue, 28 Jun 2022 20:07:13 +0200 Subject: [PATCH] Add tree-sitter-mode lighter Add new, customizable, variable tree-sitter-mode-lighter. It lets the user to customize tree-sitter-mode lighter in mode-line and disable it by setting it to an empty string. --- lisp/tree-sitter.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/tree-sitter.el b/lisp/tree-sitter.el index 6686ae13..affc00a9 100644 --- a/lisp/tree-sitter.el +++ b/lisp/tree-sitter.el @@ -55,6 +55,11 @@ Use this to enable other minor modes that depends on the syntax tree." :type '(alist :key-type symbol :value-type symbol)) +(defcustom tree-sitter-mode-lighter " tree-sitter" + "Lighter for command `tree-sitter-mode'." + :group 'tree-sitter + :type '(string :tag "Lighter")) + (defvar-local tree-sitter-tree nil "Tree-sitter syntax tree.") @@ -184,7 +189,7 @@ signal an error." (define-minor-mode tree-sitter-mode "Minor mode that keeps an up-to-date syntax tree using incremental parsing." :init-value nil - :lighter " tree-sitter" + :lighter tree-sitter-mode-lighter :after-hook (when tree-sitter-mode (unless tree-sitter-tree (tree-sitter--do-parse)