hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-05 09:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

[Feature] Support citre-mode.

Browse source
This commit is contained in:
Vincent Zhang 2021-06-28 01:31:51 +08:00
parent 51c1bb94f1
commit 07d03c4626
2 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doom-modeline-core.el
View file

@ -36,7 +36,7 @@
;;
;; Compatibilities
;; Compatibility
;;
(eval-and-compile

13
doom-modeline-segments.el
View file

@ -122,6 +122,7 @@
(declare-function cider-current-repl 'cider)
(declare-function cider-jack-in 'cider)
(declare-function cider-quit 'cider)
(declare-function citre-mode 'citre)
(declare-function dap--cur-session 'dap-mode)
(declare-function dap--debug-session-name 'dap-mode)
(declare-function dap--debug-session-state 'dap-mode)
@ -2061,6 +2062,14 @@ mouse-1: Start server"))
map)))))
(add-hook 'eglot--managed-mode-hook #'doom-modeline-update-eglot)
(defvar-local doom-modeline--tags
(propertize
(doom-modeline-lsp-icon "LSP" 'doom-modeline-lsp-success)
'help-echo "TAGS: Citre mode
mouse-1: Toggle citre mode"
'mouse-face 'mode-line-highlight
'local-map (make-mode-line-mouse-map 'mouse-1 #'citre-mode)))
(doom-modeline-def-segment lsp
"The LSP server state."
(when (and doom-modeline-lsp
@ -2069,7 +2078,9 @@ mouse-1: Start server"))
(icon (cond ((bound-and-true-p lsp-mode)
doom-modeline--lsp)
((bound-and-true-p eglot--managed-mode)
doom-modeline--eglot))))
doom-modeline--eglot)
((bound-and-true-p citre-mode)
doom-modeline--tags))))
(when icon
(concat
(doom-modeline-spc)