diff options
| -rw-r--r-- | modally.el | 17 |
1 files changed, 16 insertions, 1 deletions
@@ -175,6 +175,15 @@ (modally--separator) )))) +(defun modally--eglot () + "Return eglot info." + (when (and (featurep 'eglot) + eglot--managed-mode) + (format " %s %s %s" + (propertize "" 'face 'eglot-mode-line) + (car (last (eglot--mode-line-format))) + (modally--separator)))) + ;; VARIABLES (defvar modally-display-read-only '(:eval (modally--read-only-status)) @@ -214,6 +223,10 @@ '(:eval (modally--org-timer)) "Modeline construct to display `org-timer' info.") +(defvar modally-display-eglot + '(:eval (modally--eglot)) + "Modeline construct to display eglot info.") + ;; set as risky local variable (dolist (construct '(modally-display-read-only modally-display-buffer-name @@ -223,7 +236,8 @@ modally-display-line-column modally-display-file-size modally-display-flymake - modally-display-org-timer)) + modally-display-org-timer + modally-display-eglot)) (put construct 'risky-local-variable #'stringp)) ;; FORMATS @@ -235,6 +249,7 @@ modally-display-org-timer modally-display-line-row modally-display-line-column + modally-display-eglot modally-display-git-branch modally-display-file-size modally-display-flymake |