From 07d03c4626eaaf2cc9c346308add3700ad4a3a06 Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Mon, 28 Jun 2021 01:31:51 +0800 Subject: [PATCH] [Feature] Support citre-mode. --- doom-modeline-core.el | 2 +- doom-modeline-segments.el | 13 ++++++++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/doom-modeline-core.el b/doom-modeline-core.el index 1db6c72..6c4699c 100644 --- a/doom-modeline-core.el +++ b/doom-modeline-core.el @@ -36,7 +36,7 @@ ;; -;; Compatibilities +;; Compatibility ;; (eval-and-compile diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el index dc7557c..ce465f1 100644 --- a/doom-modeline-segments.el +++ b/doom-modeline-segments.el @@ -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)