;;; doom-modeline-segments.el --- The segments for doom-modeline -*- lexical-binding: t; -*- ;; Copyright (C) 2018-2019 Vincent Zhang ;; This file is not part of GNU Emacs. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth ;; Floor, Boston, MA 02110-1301, USA. ;; ;;; Commentary: ;; ;; The segments for doom-modeline. ;; Use `doom-modeline-def-segment' to create a new segment. ;; ;;; Code: (require 'all-the-icons) (require 'subr-x) (require 'doom-modeline-core) (require 'doom-modeline-env) ;; ;; Externals ;; (defvar Info-current-file) (defvar Info-current-node) (defvar Info-mode-line-node-keymap) (defvar anzu--cached-count) (defvar anzu--current-position) (defvar anzu--overflow-p) (defvar anzu--state) (defvar anzu--total-matched) (defvar anzu-cons-mode-line-p) (defvar aw-keys) (defvar battery-echo-area-format) (defvar edebug-execution-mode) (defvar evil-ex-active-highlights-alist) (defvar evil-ex-argument) (defvar evil-ex-range) (defvar evil-mc-frozen) (defvar evil-state) (defvar evil-visual-beginning) (defvar evil-visual-end) (defvar evil-visual-selection) (defvar fancy-battery-last-status) (defvar flycheck-current-errors) (defvar flycheck-mode-menu-map) (defvar flymake--backend-state) (defvar flymake--mode-line-format) (defvar flymake-menu) (defvar grip-port) (defvar grip-process) (defvar helm--mode-line-display-prefarg) (defvar iedit-occurrences-overlays) (defvar mc/mode-line) (defvar minions-mode-line-lighter) (defvar mu4e-alert-mode-line) (defvar mu4e-alert-modeline-formatter) (defvar nyan-minimum-window-width) (defvar objed--obj-state) (defvar objed--object) (defvar objed-modeline-setup-func) (defvar persp-nil-name) (defvar symbol-overlay-keywords-alist) (defvar symbol-overlay-temp-symbol) (defvar text-scale-mode-amount) (defvar tracking-buffers) (defvar winum-auto-setup-mode-line) (defvar xah-fly-insert-state-q) (declare-function anzu--reset-status 'anzu) (declare-function anzu--where-is-here 'anzu) (declare-function async-inject-variables 'async) (declare-function avy-traverse 'avy) (declare-function avy-tree 'avy) (declare-function aw-update 'ace-window) (declare-function aw-window-list 'ace-window) (declare-function battery-format 'battery) (declare-function dap--cur-session 'dap-mode) (declare-function dap--session-running 'dap-mode) (declare-function dap-debug-recent 'dap-mode) (declare-function dap-disconnect 'dap-mode) (declare-function dap-hydra 'dap-hydra) (declare-function dap-mode-line 'dap-mode) (declare-function edebug-help 'edebug) (declare-function edebug-next-mode 'edebug) (declare-function edebug-stop 'edebug) (declare-function eglot--current-server 'eglot) (declare-function eglot--major-mode 'eglot) (declare-function eglot--project-nickname 'eglot) (declare-function eglot--spinner 'eglot) (declare-function eglot-clear-status 'eglot) (declare-function eglot-events-buffer 'eglot) (declare-function eglot-forget-pending-continuations 'eglot) (declare-function eglot-reconnect 'eglot) (declare-function eglot-shutdown 'eglot) (declare-function eglot-stderr-buffer 'eglot) (declare-function evil-delimited-arguments 'evil-common) (declare-function evil-emacs-state-p 'evil-states) (declare-function evil-force-normal-state 'evil-commands) (declare-function evil-insert-state-p 'evil-states) (declare-function evil-motion-state-p 'evil-states) (declare-function evil-normal-state-p 'evil-states) (declare-function evil-operator-state-p 'evil-states) (declare-function evil-replace-state-p 'evil-states) (declare-function evil-state-property 'evil-common) (declare-function evil-visual-state-p 'evil-states) (declare-function eyebrowse--get 'eyebrowse) (declare-function fancy-narrow-active-p 'fancy-narrow) (declare-function fancy-narrow-to-region 'fancy-narrow) (declare-function fancy-widen 'fancy-narrow) (declare-function flycheck-buffer 'flycheck) (declare-function flycheck-count-errors 'flycheck) (declare-function flycheck-list-errors 'flycheck) (declare-function flycheck-next-error 'flycheck) (declare-function flycheck-previous-error 'flycheck) (declare-function flymake--backend-state-diags 'flymake) (declare-function flymake--diag-type 'flymake) (declare-function flymake--handle-report 'flymake) (declare-function flymake--lookup-type-property 'flymake) (declare-function flymake-disabled-backends 'flymake) (declare-function flymake-goto-next-error 'flymake) (declare-function flymake-goto-prev-error 'flymake) (declare-function flymake-reporting-backends 'flymake) (declare-function flymake-running-backends 'flymake) (declare-function flymake-show-diagnostics-buffer 'flymake) (declare-function flymake-start 'flymake) (declare-function grip-mode 'grip-mode) (declare-function helm-candidate-number-at-point 'helm) (declare-function helm-get-candidate-number 'helm) (declare-function iedit-find-current-occurrence-overlay 'iedit-lib) (declare-function iedit-prev-occurrence 'iedit-lib) (declare-function image-get-display-property 'image-mode) (declare-function jsonrpc--request-continuations 'jsonrpc) (declare-function jsonrpc-last-error 'jsonrpc) (declare-function lsp--workspace-print 'lsp-mode) (declare-function lsp-describe-session 'lsp-mode) (declare-function lsp-workspace-folders-open 'lsp-mode) (declare-function lsp-workspace-restart 'lsp-mode) (declare-function lsp-workspace-shutdown 'lsp-mode) (declare-function lsp-workspaces 'lsp-mode) (declare-function magit-toplevel 'magit-git) (declare-function mc/num-cursors 'multiple-cursors-core) (declare-function minions-minor-modes-menu 'minions) (declare-function mu4e-alert-default-mode-line-formatter 'mu4e-alert) (declare-function mu4e-alert-enable-mode-line-display 'mu4e-alert) (declare-function nyan-create 'nyan-mode) (declare-function org-edit-src-save 'org-src) (declare-function org-narrow-to-block 'org) (declare-function org-narrow-to-element 'org) (declare-function org-narrow-to-subtree 'org) (declare-function parrot-create 'parrot) (declare-function pdf-cache-number-of-pages 'pdf-cache) (declare-function persp-add-buffer 'persp-mode) (declare-function persp-contain-buffer-p 'persp-mode) (declare-function persp-remove-buffer 'persp-mode) (declare-function persp-switch 'persp-mode) (declare-function popup-create 'popup) (declare-function popup-delete 'popup) (declare-function symbol-overlay-assoc 'symbol-overlay) (declare-function symbol-overlay-get-list 'symbol-overlay) (declare-function symbol-overlay-get-symbol 'symbol-overlay) (declare-function symbol-overlay-rename 'symbol-overlay) (declare-function tracking-shorten 'tracking) (declare-function undo-tree-redo-1 'undo-tree) (declare-function undo-tree-undo-1 'undo-tree) (declare-function warning-numeric-level 'warnings) (declare-function window-numbering-clear-mode-line 'window-numbering) (declare-function window-numbering-get-number-string 'window-numbering) (declare-function window-numbering-install-mode-line 'window-numbering) (declare-function winum--clear-mode-line 'winum) (declare-function winum--install-mode-line 'winum) (declare-function winum-get-number-string 'winum) ;; ;; buffer information ;; (doom-modeline-def-segment buffer-default-directory "Displays `default-directory'. This is for special buffers like the scratch buffer where knowing the current project directory is important." (let* ((active (doom-modeline--active)) (face (if active 'doom-modeline-buffer-path 'mode-line-inactive))) (concat (doom-modeline-spc) (doom-modeline-icon-octicon "file-directory" :face face :v-adjust -0.05 :height 1.25) (when doom-modeline-icon (doom-modeline-spc)) (propertize (abbreviate-file-name default-directory) 'face face)))) ;; (defvar-local doom-modeline--buffer-file-icon nil) (defun doom-modeline-update-buffer-file-icon (&rest _) "Update file icon in mode-line." (setq doom-modeline--buffer-file-icon (when (and doom-modeline-icon doom-modeline-major-mode-icon) (let* ((icon (if (and (buffer-file-name) (all-the-icons-auto-mode-match?)) (all-the-icons-icon-for-file (file-name-nondirectory (buffer-file-name))) (all-the-icons-icon-for-mode major-mode)))) (if (symbolp icon) (setq icon (doom-modeline-icon-faicon "file-o" :face 'all-the-icons-dsilver :height 0.8 :v-adjust 0.0))) (unless (symbolp icon) (propertize icon 'help-echo (format "Major-mode: %s" (format-mode-line mode-name)) 'display '(raise -0.125))))))) (add-hook 'find-file-hook #'doom-modeline-update-buffer-file-icon) (add-hook 'after-change-major-mode-hook #'doom-modeline-update-buffer-file-icon) (add-hook 'clone-indirect-buffer-hook #'doom-modeline-update-buffer-file-icon) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-icon (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-icon val) (dolist (buf (buffer-list)) (with-current-buffer buf (doom-modeline-update-buffer-file-icon))))))) (defun doom-modeline-buffer-file-state-icon (icon &optional text face height voffset) "Displays an ICON with FACE, HEIGHT and VOFFSET. TEXT is the alternative if it is not applicable. Uses `all-the-icons-material' to fetch the icon." (if (and doom-modeline-icon doom-modeline-buffer-state-icon icon) (doom-modeline-icon-material icon :face face :height (or height 1.1) :v-adjust (or voffset -0.225)) (when text (propertize text 'face face)))) (defvar-local doom-modeline--buffer-file-state-icon nil) (defun doom-modeline-update-buffer-file-state-icon (&rest _) "Update the buffer or file state in mode-line." (setq doom-modeline--buffer-file-state-icon (ignore-errors (cond (buffer-read-only (doom-modeline-buffer-file-state-icon "lock" "%1*" 'doom-modeline-warning)) ((and buffer-file-name (buffer-modified-p) doom-modeline-buffer-modification-icon) (doom-modeline-buffer-file-state-icon "save" "%1*" 'doom-modeline-buffer-modified)) ((and buffer-file-name (not (file-exists-p buffer-file-name))) (doom-modeline-buffer-file-state-icon "do_not_disturb_alt" "!" 'doom-modeline-urgent)) ((or (buffer-narrowed-p) (and (bound-and-true-p fancy-narrow-mode) (fancy-narrow-active-p))) (doom-modeline-buffer-file-state-icon "vertical_align_center" "><" 'doom-modeline-warning)) (t ""))))) (add-hook 'find-file-hook #'doom-modeline-update-buffer-file-state-icon) (add-hook 'after-revert-hook #'doom-modeline-update-buffer-file-state-icon) (add-hook 'after-save-hook #'doom-modeline-update-buffer-file-state-icon) (add-hook 'read-only-mode-hook #'doom-modeline-update-buffer-file-state-icon) (add-hook 'after-change-functions #'doom-modeline-update-buffer-file-state-icon) (add-hook 'clone-indirect-buffer-hook #'doom-modeline-update-buffer-file-state-icon) (add-hook 'evil-insert-state-exit-hook #'doom-modeline-update-buffer-file-state-icon) (advice-add #'undo :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'undo-tree-undo-1 :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'undo-tree-redo-1 :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'narrow-to-region :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'not-modified :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'widen :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'fancy-narrow-to-region :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'fancy-widen :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'org-narrow-to-block :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'org-narrow-to-element :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'org-narrow-to-subtree :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'org-edit-src-save :after #'doom-modeline-update-buffer-file-state-icon) (advice-add #'symbol-overlay-rename :after #'doom-modeline-update-buffer-file-state-icon) (when (>= emacs-major-version 26) (add-variable-watcher 'buffer-read-only (lambda (_sym val _op _where) (setq buffer-read-only val) (doom-modeline-update-buffer-file-state-icon))) (add-variable-watcher 'doom-modeline-icon (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-icon val) (dolist (buf (buffer-list)) (with-current-buffer buf (doom-modeline-update-buffer-file-state-icon))))))) (defvar-local doom-modeline--buffer-file-name nil) (defun doom-modeline-update-buffer-file-name (&rest _) "Update buffer file name in mode-line." (setq doom-modeline--buffer-file-name (ignore-errors (save-match-data (if buffer-file-name (doom-modeline-buffer-file-name) (propertize "%b" 'face (if (doom-modeline--active) 'doom-modeline-buffer-file 'mode-line-inactive) 'help-echo "Buffer name mouse-1: Previous buffer\nmouse-3: Next buffer" 'local-map mode-line-buffer-identification-keymap)))))) (add-hook 'find-file-hook #'doom-modeline-update-buffer-file-name) (add-hook 'after-revert-hook #'doom-modeline-update-buffer-file-name) (add-hook 'after-save-hook #'doom-modeline-update-buffer-file-name) (add-hook 'clone-indirect-buffer-hook #'doom-modeline-update-buffer-file-name) (add-hook 'evil-insert-state-exit-hook #'doom-modeline-update-buffer-file-name) (advice-add #'not-modified :after #'doom-modeline-update-buffer-file-name) (advice-add #'rename-buffer :after #'doom-modeline-update-buffer-file-name) (advice-add #'set-visited-file-name :after #'doom-modeline-update-buffer-file-name) (advice-add #'pop-to-buffer :after #'doom-modeline-update-buffer-file-name) (advice-add #'undo :after #'doom-modeline-update-buffer-file-name) (advice-add #'undo-tree-undo-1 :after #'doom-modeline-update-buffer-file-name) (advice-add #'undo-tree-redo-1 :after #'doom-modeline-update-buffer-file-name) (advice-add #'popup-create :after #'doom-modeline-update-buffer-file-name) (advice-add #'popup-delete :after #'doom-modeline-update-buffer-file-name) (advice-add #'org-edit-src-save :after #'doom-modeline-update-buffer-file-name) (advice-add #'symbol-overlay-rename :after #'doom-modeline-update-buffer-file-name) (with-no-warnings (if (boundp 'after-focus-change-function) (add-function :after after-focus-change-function (lambda () (when (frame-focus-state) (doom-modeline-update-buffer-file-name)))) (add-hook 'focus-in-hook #'doom-modeline-update-buffer-file-name t))) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-buffer-file-name-style (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-buffer-file-name-style val) (dolist (buf (buffer-list)) (with-current-buffer buf (if buffer-file-name (doom-modeline-update-buffer-file-name)))))))) ;; Optimize: just update the face of the buffer name in `after-change-functions', since ;; `doom-modeline--buffer-file-name' may consume lots fof CPU if it's called too frequently. (defun doom-modeline-update-buffer-file-name-face (&rest _) "Update the face of buffer file name in mode-line." (when (and doom-modeline--buffer-file-name (buffer-modified-p)) (setq doom-modeline--buffer-file-name (propertize doom-modeline--buffer-file-name 'face 'doom-modeline-buffer-modified)))) (add-hook 'after-change-functions #'doom-modeline-update-buffer-file-name-face) (defsubst doom-modeline--buffer-mode-icon () "The icon of the current major mode." (when (and doom-modeline-icon doom-modeline-major-mode-icon) (when-let ((icon (or doom-modeline--buffer-file-icon (doom-modeline-update-buffer-file-icon)))) (when icon (concat (if (doom-modeline--active) (if doom-modeline-major-mode-color-icon icon (propertize icon 'face `(:inherit ,(let ((props (get-text-property 0 'face icon))) props (remove :inherit props)) :inherit mode-line))) (propertize icon 'face `(:inherit ,(get-text-property 0 'face icon) :inherit mode-line-inactive))) (doom-modeline-vspc)))))) (defsubst doom-modeline--buffer-state-icon () "The icon of the current buffer state." (when-let ((icon (or doom-modeline--buffer-file-state-icon (doom-modeline-update-buffer-file-state-icon)))) (when icon (concat (if (doom-modeline--active) icon (propertize icon 'face `(:inherit ,(get-text-property 0 'face icon) :inherit mode-line-inactive))) (doom-modeline-vspc))))) (defsubst doom-modeline--buffer-name () "The current buffer name." (when-let ((name (or doom-modeline--buffer-file-name (doom-modeline-update-buffer-file-name)))) (if (doom-modeline--active) name (propertize name 'face 'mode-line-inactive)))) (doom-modeline-def-segment buffer-info "Combined information about the current buffer, including the current working directory, the file name, and its state (modified, read-only or non-existent)." (concat (doom-modeline-spc) (doom-modeline--buffer-mode-icon) (doom-modeline--buffer-state-icon) (doom-modeline--buffer-name))) (doom-modeline-def-segment buffer-info-simple "Display only the current buffer's name, but with fontification." (propertize " %b " 'face (cond ((and buffer-file-name (buffer-modified-p)) 'doom-modeline-buffer-modified) ((doom-modeline--active) 'doom-modeline-buffer-file) (t 'mode-line-inactive)))) ;; ;; encoding ;; (doom-modeline-def-segment buffer-encoding "Displays the encoding and eol style of the buffer the same way Atom does." (when doom-modeline-buffer-encoding (propertize (concat (pcase (coding-system-eol-type buffer-file-coding-system) (0 " LF") (1 " CRLF") (2 " CR")) (let ((sys (coding-system-plist buffer-file-coding-system))) (cond ((memq (plist-get sys :category) '(coding-category-undecided coding-category-utf-8)) " UTF-8 ") (t (upcase (symbol-name (plist-get sys :name))))))) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'help-echo 'mode-line-mule-info-help-echo 'mouse-face '(:box 0) 'local-map mode-line-coding-system-map))) ;; ;; indentation ;; (doom-modeline-def-segment indent-info "Displays the indentation information." (when doom-modeline-indent-info (propertize (format " %s %d " (if indent-tabs-mode "TAB" "SPC") tab-width) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)))) ;; ;; remote host ;; (doom-modeline-def-segment remote-host "Hostname for remote buffers." (when default-directory (when-let ((host (file-remote-p default-directory 'host))) (propertize (concat "@" host) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive))))) ;; ;; major-mode ;; (doom-modeline-def-segment major-mode "The major mode, including environment and text-scale info." (propertize (concat (doom-modeline-spc) (propertize (format-mode-line (or (and (boundp 'delighted-modes) (cadr (assq major-mode delighted-modes))) mode-name)) 'help-echo "Major mode\n\ mouse-1: Display major mode menu\n\ mouse-2: Show help for major mode\n\ mouse-3: Toggle minor modes" 'mouse-face 'mode-line-highlight 'local-map mode-line-major-mode-keymap) (when (and doom-modeline-env-version doom-modeline-env--version) (format " %s" doom-modeline-env--version)) (and (boundp 'text-scale-mode-amount) (/= text-scale-mode-amount 0) (format (if (> text-scale-mode-amount 0) " (%+d)" " (%-d)") text-scale-mode-amount)) (doom-modeline-spc)) 'face (if (doom-modeline--active) 'doom-modeline-buffer-major-mode 'mode-line-inactive))) ;; ;; process ;; (doom-modeline-def-segment process "The process info." (if (doom-modeline--active) mode-line-process (propertize (format-mode-line mode-line-process) 'face 'mode-line-inactive))) ;; ;; minor modes ;; (doom-modeline-def-segment minor-modes (when doom-modeline-minor-modes (let ((face (if (doom-modeline--active) 'doom-modeline-buffer-minor-mode 'mode-line-inactive))) (if (bound-and-true-p minions-mode) (concat (doom-modeline-spc) (propertize minions-mode-line-lighter 'face face 'help-echo "Minions mouse-1: Display minor modes menu" 'mouse-face 'mode-line-highlight 'local-map (make-mode-line-mouse-map 'mouse-1 #'minions-minor-modes-menu)) (doom-modeline-spc)) (concat (propertize (replace-regexp-in-string "%" "%%%%" (format-mode-line minor-mode-alist) t t) 'face face) (doom-modeline-spc)))))) ;; ;; vcs ;; (defun doom-modeline-vcs-icon (icon &optional text face voffset) "Displays the vcs ICON with FACE and VOFFSET. TEXT is the alternative if it is not applicable. Uses `all-the-icons-octicon' to fetch the icon." (if doom-modeline-icon (when icon (doom-modeline-icon-octicon icon :face face :v-adjust (or voffset -0.1))) (when text (propertize text 'face face)))) (defvar-local doom-modeline--vcs-icon nil) (defun doom-modeline-update-vcs-icon (&rest _) "Update icon of vcs state in mode-line." (setq doom-modeline--vcs-icon (when (and vc-mode buffer-file-name) (let* ((backend (vc-backend buffer-file-name)) (state (vc-state buffer-file-name backend))) (cond ((memq state '(edited added)) (doom-modeline-vcs-icon "git-compare" "*" 'doom-modeline-info -0.05)) ((eq state 'needs-merge) (doom-modeline-vcs-icon "git-merge" "?" 'doom-modeline-info)) ((eq state 'needs-update) (doom-modeline-vcs-icon "arrow-down" "!" 'doom-modeline-warning)) ((memq state '(removed conflict unregistered)) (doom-modeline-vcs-icon "alert" "!" 'doom-modeline-urgent)) (t (doom-modeline-vcs-icon "git-branch" "@" 'doom-modeline-info -0.05))))))) (add-hook 'find-file-hook #'doom-modeline-update-vcs-icon t) (add-hook 'after-save-hook #'doom-modeline-update-vcs-icon) (advice-add #'vc-refresh-state :after #'doom-modeline-update-vcs-icon) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-icon (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-icon val) (dolist (buf (buffer-list)) (with-current-buffer buf (doom-modeline-update-vcs-icon))))))) (defvar-local doom-modeline--vcs-text nil) (defun doom-modeline-update-vcs-text (&rest _) "Update text of vcs state in mode-line." (setq doom-modeline--vcs-text (when (and vc-mode buffer-file-name) (let* ((backend (vc-backend buffer-file-name)) (state (vc-state buffer-file-name backend)) (str (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2)))) (propertize (if (> (length str) doom-modeline-vcs-max-length) (concat (substring str 0 (- doom-modeline-vcs-max-length 3)) "...") str) 'face (cond ((eq state 'needs-update) 'doom-modeline-warning) ((memq state '(removed conflict unregistered)) 'doom-modeline-urgent) (t 'doom-modeline-info))))))) (add-hook 'find-file-hook #'doom-modeline-update-vcs-text t) (add-hook 'after-save-hook #'doom-modeline-update-vcs-text) (advice-add #'vc-refresh-state :after #'doom-modeline-update-vcs-text) (doom-modeline-def-segment vcs "Displays the current branch, colored based on its state." (let ((active (doom-modeline--active))) (when-let ((icon (or doom-modeline--vcs-icon (doom-modeline-update-vcs-icon))) (text (or doom-modeline--vcs-text (doom-modeline-update-vcs-text)))) (concat (doom-modeline-spc) (if active icon (propertize icon 'face `(:inherit ,(get-text-property 0 'face icon) :inherit mode-line-inactive))) (if doom-modeline-icon (doom-modeline-vspc)) (if active text (propertize text 'face 'mode-line-inactive)) (doom-modeline-spc))))) ;; ;; checker ;; ;; flycheck (defun doom-modeline-checker-icon (icon &optional text face voffset) "Displays the checker ICON with FACE and VOFFSET. TEXT is the alternative if it is not applicable. Uses `all-the-icons-material' to fetch the icon." (if doom-modeline-icon (when icon (doom-modeline-icon-material icon :face face :height 1.1 :v-adjust (or voffset -0.225))) (when text (propertize text 'face face)))) (defun doom-modeline-checker-text (text &optional face) "Displays TEXT with FACE." (when text (propertize text 'face face))) (defvar-local doom-modeline--flycheck-icon nil) (defun doom-modeline-update-flycheck-icon (&optional status) "Update flycheck icon via STATUS." (setq doom-modeline--flycheck-icon (when-let ((icon (pcase status (`finished (if flycheck-current-errors (let-alist (flycheck-count-errors flycheck-current-errors) (doom-modeline-checker-icon "do_not_disturb_alt" "!" (cond (.error 'doom-modeline-urgent) (.warning 'doom-modeline-warning) (t 'doom-modeline-info)))) (doom-modeline-checker-icon "check" "-" 'doom-modeline-info))) (`running (doom-modeline-checker-icon "access_time" "*" 'doom-modeline-debug)) (`no-checker (doom-modeline-checker-icon "sim_card_alert" "-" 'doom-modeline-debug)) (`errored (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent)) (`interrupted (doom-modeline-checker-icon "pause" "." 'doom-modeline-debug)) (`suspicious (doom-modeline-checker-icon "priority_high" "?" 'doom-modeline-urgent)) (_ nil)))) (propertize icon 'help-echo (concat "Flycheck\n" (pcase status ('finished "mouse-1: Display minor mode menu mouse-2: Show help for minor mode") ('running "Running...") ('no-checker "No Checker") ('errored "Error") ('interrupted "Interrupted") ('suspicious "Suspicious"))) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line down-mouse-1] flycheck-mode-menu-map) (define-key map [mode-line mouse-2] (lambda () (interactive) (describe-function 'flycheck-mode))) map))))) (add-hook 'flycheck-status-changed-functions #'doom-modeline-update-flycheck-icon) (add-hook 'flycheck-mode-hook #'doom-modeline-update-flycheck-icon) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-icon (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-icon val) (dolist (buf (buffer-list)) (with-current-buffer buf (when (bound-and-true-p flycheck-mode) (flycheck-buffer)))))))) (defvar-local doom-modeline--flycheck-text nil) (defun doom-modeline-update-flycheck-text (&optional status) "Update flycheck text via STATUS." (setq doom-modeline--flycheck-text (when-let ((text (pcase status (`finished (when flycheck-current-errors (let-alist (flycheck-count-errors flycheck-current-errors) (let ((error (or .error 0)) (warning (or .warning 0)) (info (or .info 0))) (if doom-modeline-checker-simple-format (doom-modeline-checker-text (number-to-string (+ error warning info)) (cond ((> error 0) 'doom-modeline-urgent) ((> warning 0) 'doom-modeline-warning) (t 'doom-modeline-info))) (format "%s/%s/%s" (doom-modeline-checker-text (number-to-string error) 'doom-modeline-urgent) (doom-modeline-checker-text (number-to-string warning) 'doom-modeline-warning) (doom-modeline-checker-text (number-to-string info) 'doom-modeline-info))))))) (`running nil) (`no-checker nil) (`errored (doom-modeline-checker-text "Error" 'doom-modeline-urgent)) (`interrupted (doom-modeline-checker-text "Interrupted" 'doom-modeline-debug)) (`suspicious (doom-modeline-checker-text "Suspicious" 'doom-modeline-urgent)) (_ nil)))) (propertize text 'help-echo (pcase status ('finished (concat (if flycheck-current-errors (let-alist (flycheck-count-errors flycheck-current-errors) (format "error: %d, warning: %d, info: %d\n" (or .error 0) (or .warning 0) (or .info 0)))) "mouse-1: Show all errors mouse-3: Next error" (if (featurep 'mwheel) "\nwheel-up/wheel-down: Previous/next error"))) ('running "Running...") ('no-checker "No Checker") ('errored "Error") ('interrupted "Interrupted") ('suspicious "Suspicious")) 'mouse-face 'mode-line-highlight 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] #'flycheck-list-errors) (define-key map [mode-line mouse-3] #'flycheck-next-error) (when (featurep 'mwheel) (define-key map (vector 'mode-line mouse-wheel-down-event) (lambda (event) (interactive "e") (with-selected-window (posn-window (event-start event)) (flycheck-previous-error 1)))) (define-key map (vector 'mode-line mouse-wheel-up-event) (lambda (event) (interactive "e") (with-selected-window (posn-window (event-start event)) (flycheck-next-error 1)))) map)))))) (add-hook 'flycheck-status-changed-functions #'doom-modeline-update-flycheck-text) (add-hook 'flycheck-mode-hook #'doom-modeline-update-flycheck-text) ;; flymake (defvar-local doom-modeline--flymake-icon nil) (defun doom-modeline-update-flymake-icon (&rest _) "Update flymake icon." (setq flymake--mode-line-format nil) ; remove the lighter of minor mode (setq doom-modeline--flymake-icon (let* ((known (hash-table-keys flymake--backend-state)) (running (flymake-running-backends)) (disabled (flymake-disabled-backends)) (reported (flymake-reporting-backends)) (all-disabled (and disabled (null running))) (some-waiting (cl-set-difference running reported))) (when-let ((icon (cond (some-waiting (doom-modeline-checker-icon "access_time" "*" 'doom-modeline-debug)) ((null known) (doom-modeline-checker-icon "sim_card_alert" "?" 'doom-modeline-debug)) (all-disabled (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent)) (t (let ((.error 0) (.warning 0) (.note 0)) (progn (cl-loop with warning-level = (warning-numeric-level :warning) with note-level = (warning-numeric-level :debug) for state being the hash-values of flymake--backend-state do (cl-loop with diags = (flymake--backend-state-diags state) for diag in diags do (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity (warning-numeric-level :error)))) (cond ((> severity warning-level) (cl-incf .error)) ((> severity note-level) (cl-incf .warning)) (t (cl-incf .note)))))) (if (> (+ .error .warning .note) 0) (doom-modeline-checker-icon "do_not_disturb_alt" "!" (cond ((> .error 0) 'doom-modeline-urgent) ((> .warning 0) 'doom-modeline-warning) (t 'doom-modeline-info))) (doom-modeline-checker-icon "check" "-" 'doom-modeline-info)))))))) (propertize icon 'help-echo (concat "Flymake\n" (cond (some-waiting "Running...") ((null known) "No Checker") (all-disabled "All Checkers Disabled") (t (format "%d/%d backends running mouse-1: Display minor mode menu mouse-2: Show help for minor mode" (length running) (length known))))) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line down-mouse-1] flymake-menu) (define-key map [mode-line mouse-2] (lambda () (interactive) (describe-function 'flymake-mode))) map)))))) (advice-add #'flymake--handle-report :after #'doom-modeline-update-flymake-icon) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-icon (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-icon val) (dolist (buf (buffer-list)) (with-current-buffer buf (when (bound-and-true-p flymake-mode) (flymake-start)))))))) (defvar-local doom-modeline--flymake-text nil) (defun doom-modeline-update-flymake-text (&rest _) "Update flymake text." (setq flymake--mode-line-format nil) ; remove the lighter of minor mode (setq doom-modeline--flymake-text (let* ((known (hash-table-keys flymake--backend-state)) (running (flymake-running-backends)) (disabled (flymake-disabled-backends)) (reported (flymake-reporting-backends)) (all-disabled (and disabled (null running))) (some-waiting (cl-set-difference running reported)) (warning-level (warning-numeric-level :warning)) (note-level (warning-numeric-level :debug)) (.error 0) (.warning 0) (.note 0)) (maphash (lambda (_b state) (cl-loop with diags = (flymake--backend-state-diags state) for diag in diags do (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity (warning-numeric-level :error)))) (cond ((> severity warning-level) (cl-incf .error)) ((> severity note-level) (cl-incf .warning)) (t (cl-incf .note)))))) flymake--backend-state) (when-let ((text (cond (some-waiting doom-modeline--flymake-text) ((null known) nil) (all-disabled nil) (t (let ((num (+ .error .warning .note))) (when (> num 0) (if doom-modeline-checker-simple-format (doom-modeline-checker-text (number-to-string num) (cond ((> .error 0) 'doom-modeline-urgent) ((> .warning 0) 'doom-modeline-warning) (t 'doom-modeline-info))) (format "%s/%s/%s" (doom-modeline-checker-text (number-to-string .error) 'doom-modeline-urgent) (doom-modeline-checker-text (number-to-string .warning) 'doom-modeline-warning) (doom-modeline-checker-text (number-to-string .note) 'doom-modeline-info))))))))) (propertize text 'help-echo (cond (some-waiting "Running...") ((null known) "No Checker") (all-disabled "All Checkers Disabled") (t (format "error: %d, warning: %d, note: %d mouse-1: List all problems%s" .error .warning .note (if (featurep 'mwheel) "\nwheel-up/wheel-down: Previous/next problem")))) 'mouse-face 'mode-line-highlight 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] #'flymake-show-diagnostics-buffer) (when (featurep 'mwheel) (define-key map (vector 'mode-line mouse-wheel-down-event) (lambda (event) (interactive "e") (with-selected-window (posn-window (event-start event)) (flymake-goto-prev-error 1 nil t)))) (define-key map (vector 'mode-line mouse-wheel-up-event) (lambda (event) (interactive "e") (with-selected-window (posn-window (event-start event)) (flymake-goto-next-error 1 nil t)))) map))))))) (advice-add #'flymake--handle-report :after #'doom-modeline-update-flymake-text) (doom-modeline-def-segment checker "Displays color-coded error status in the current buffer with pretty icons." (let ((active (doom-modeline--active)) (seg (cond ((and (bound-and-true-p flymake-mode) (bound-and-true-p flymake--backend-state)) ; only support 26+ `(,doom-modeline--flymake-icon . ,doom-modeline--flymake-text)) ((bound-and-true-p flycheck-mode) `(,doom-modeline--flycheck-icon . ,doom-modeline--flycheck-text))))) (if seg (let ((icon (car seg)) (text (cdr seg))) (concat (doom-modeline-spc) (when icon (if active icon (propertize icon 'face `(:inherit ,(get-text-property 0 'face icon) :inherit mode-line-inactive)))) (when (and doom-modeline-icon icon text) (doom-modeline-vspc)) (when text (if active text (propertize text 'face 'mode-line-inactive))))) ""))) ;; ;; selection-info ;; (defsubst doom-modeline-column (pos) "Get the column of the position `POS'." (save-excursion (goto-char pos) (current-column))) (doom-modeline-def-segment selection-info "Information about the current selection, such as how many characters and lines are selected, or the NxM dimensions of a block selection." (when (and (or mark-active (and (bound-and-true-p evil-local-mode) (eq evil-state 'visual))) (doom-modeline--active)) (cl-destructuring-bind (beg . end) (if (and (bound-and-true-p evil-local-mode) (eq evil-state 'visual)) (cons evil-visual-beginning evil-visual-end) (cons (region-beginning) (region-end))) (propertize (let ((lines (count-lines beg (min end (point-max))))) (concat (doom-modeline-spc) (cond ((or (bound-and-true-p rectangle-mark-mode) (and (bound-and-true-p evil-visual-selection) (eq 'block evil-visual-selection))) (let ((cols (abs (- (doom-modeline-column end) (doom-modeline-column beg))))) (format "%dx%dB" lines cols))) ((and (bound-and-true-p evil-visual-selection) (eq evil-visual-selection 'line)) (format "%dL" lines)) ((> lines 1) (format "%dC %dL" (- end beg) lines)) ((format "%dC" (- end beg)))) (when doom-modeline-enable-word-count (format " %dW" (count-words beg end))) (doom-modeline-spc))) 'face 'doom-modeline-highlight)))) ;; ;; matches (macro, anzu, evil-substitute, iedit, symbol-overlay and multi-cursors) ;; (defsubst doom-modeline--macro-recording () "Display current Emacs or evil macro being recorded." (when (and (doom-modeline--active) (or defining-kbd-macro executing-kbd-macro)) (let ((sep (propertize " " 'face 'doom-modeline-panel))) (concat sep (if doom-modeline-icon (doom-modeline-icon-material "fiber_manual_record" :face 'doom-modeline-panel :v-adjust -0.225) (propertize (if (bound-and-true-p evil-this-macro) (char-to-string evil-this-macro) "Macro") 'face 'doom-modeline-panel)) sep (if doom-modeline-icon (doom-modeline-icon-octicon "triangle-right" :face 'doom-modeline-panel :v-adjust -0.05) (propertize ">" 'face 'doom-modeline-panel)) sep)))) ;; anzu and evil-anzu expose current/total state that can be displayed in the ;; mode-line. (defun doom-modeline-fix-anzu-count (positions here) "Calulate anzu counts via POSITIONS and HERE." (cl-loop for (start . end) in positions collect t into before when (and (>= here start) (<= here end)) return (length before) finally return 0)) (advice-add #'anzu--where-is-here :override #'doom-modeline-fix-anzu-count) (setq anzu-cons-mode-line-p nil) ; manage modeline segment ourselves ;; Ensure anzu state is cleared when searches & iedit are done (with-eval-after-load 'anzu (add-hook 'isearch-mode-end-hook #'anzu--reset-status t) (add-hook 'iedit-mode-end-hook #'anzu--reset-status) (advice-add #'evil-force-normal-state :after #'anzu--reset-status) ;; Fix matches segment mirroring across all buffers (mapc #'make-variable-buffer-local '(anzu--total-matched anzu--current-position anzu--state anzu--cached-count anzu--cached-positions anzu--last-command anzu--last-isearch-string anzu--overflow-p))) (defsubst doom-modeline--anzu () "Show the match index and total number thereof. Requires `anzu', also `evil-anzu' if using `evil-mode' for compatibility with `evil-search'." (when (and (bound-and-true-p anzu--state) (not (bound-and-true-p iedit-mode))) (propertize (let ((here anzu--current-position) (total anzu--total-matched)) (cond ((eq anzu--state 'replace-query) (format " %d replace " anzu--cached-count)) ((eq anzu--state 'replace) (format " %d/%d " here total)) (anzu--overflow-p (format " %s+ " total)) (t (format " %s/%d " here total)))) 'face (if (doom-modeline--active) 'doom-modeline-panel 'mode-line-inactive)))) (defsubst doom-modeline--evil-substitute () "Show number of matches for evil-ex substitutions and highlights in real time." (when (and (bound-and-true-p evil-local-mode) (or (assq 'evil-ex-substitute evil-ex-active-highlights-alist) (assq 'evil-ex-global-match evil-ex-active-highlights-alist) (assq 'evil-ex-buffer-match evil-ex-active-highlights-alist))) (propertize (let ((range (if evil-ex-range (cons (car evil-ex-range) (cadr evil-ex-range)) (cons (line-beginning-position) (line-end-position)))) (pattern (car-safe (evil-delimited-arguments evil-ex-argument 2)))) (if pattern (format " %s matches " (how-many pattern (car range) (cdr range))) " - ")) 'face (if (doom-modeline--active) 'doom-modeline-panel 'mode-line-inactive)))) (defun doom-modeline-themes--overlay-sort (a b) "Sort overlay A and B." (< (overlay-start a) (overlay-start b))) (defsubst doom-modeline--iedit () "Show the number of iedit regions matches + what match you're on." (when (and (bound-and-true-p iedit-mode) (bound-and-true-p iedit-occurrences-overlays)) (propertize (let ((this-oc (or (let ((inhibit-message t)) (iedit-find-current-occurrence-overlay)) (progn (iedit-prev-occurrence) (iedit-find-current-occurrence-overlay)))) (length (length iedit-occurrences-overlays))) (format " %s/%d " (if this-oc (- length (length (memq this-oc (sort (append iedit-occurrences-overlays nil) #'doom-modeline-themes--overlay-sort))) -1) "-") length)) 'face (if (doom-modeline--active) 'doom-modeline-panel 'mode-line-inactive)))) (defsubst doom-modeline--symbol-overlay () "Show the number of matches for symbol overlay." (when (and (doom-modeline--active) (bound-and-true-p symbol-overlay-keywords-alist) (not (bound-and-true-p symbol-overlay-temp-symbol)) (not (bound-and-true-p iedit-mode))) (let* ((keyword (symbol-overlay-assoc (symbol-overlay-get-symbol t))) (symbol (car keyword)) (before (symbol-overlay-get-list -1 symbol)) (after (symbol-overlay-get-list 1 symbol)) (count (length before))) (if (symbol-overlay-assoc symbol) (propertize (format (concat " %d/%d " (and (cadr keyword) "in scope ")) (+ count 1) (+ count (length after))) 'face (if (doom-modeline--active) 'doom-modeline-panel 'mode-line-inactive)))))) (defsubst doom-modeline--multiple-cursors () "Show the number of multiple cursors." (cl-destructuring-bind (count . face) (cond ((bound-and-true-p multiple-cursors-mode) (cons (mc/num-cursors) (if (doom-modeline--active) 'doom-modeline-panel 'mode-line-inactive))) ((bound-and-true-p evil-mc-cursor-list) (cons (length evil-mc-cursor-list) (cond ((not (doom-modeline--active)) 'mode-line-inactive) (evil-mc-frozen 'doom-modeline-bar) ('doom-modeline-panel)))) ((cons nil nil))) (when count (concat (propertize " " 'face face) (if doom-modeline-icon (doom-modeline-icon-faicon "i-cursor" :face face :v-adjust -0.0575) (propertize "I" 'face `(:inherit ,face :height 1.4) 'display '(raise -0.085))) (propertize (doom-modeline-vspc) 'face `(:inherit (variable-pitch ,face))) (propertize (format "%d " count) 'face face))))) (defsubst doom-modeline--buffer-size () "Show buffer size." (if (and buffer-file-name size-indication-mode) (propertize " %I " 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive) 'help-echo "Buffer size mouse-1: Display Line and Column Mode Menu" 'mouse-face '(:box 0) 'local-map mode-line-column-line-number-mode-map))) (doom-modeline-def-segment matches "Displays: 1. the currently recording macro, 2. A current/total for the current search term (with `anzu'), 3. The number of substitutions being conducted with `evil-ex-substitute', and/or 4. The number of active `iedit' regions, 5. The current/total for the highlight term (with `symbol-overlay'), 6. The number of active `multiple-cursors'." (let ((meta (concat (doom-modeline--macro-recording) (doom-modeline--anzu) (doom-modeline--evil-substitute) (doom-modeline--iedit) (doom-modeline--symbol-overlay) (doom-modeline--multiple-cursors)))) (or (and (not (equal meta "")) meta) (doom-modeline--buffer-size)))) (doom-modeline-def-segment buffer-size "Display buffer size" (doom-modeline--buffer-size)) ;; ;; media-info ;; (doom-modeline-def-segment media-info "Metadata regarding the current file, such as dimensions for images." ;; TODO Include other information (cond ((eq major-mode 'image-mode) (cl-destructuring-bind (width . height) (when (fboundp 'image-size) (image-size (image-get-display-property) :pixels)) (propertize (format " %dx%d " width height) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)))))) ;; ;; bar ;; (defvar doom-modeline--bar-active nil) (defvar doom-modeline--bar-inactive nil) (doom-modeline-def-segment bar "The bar regulates the height of the mode-line in GUI." (if (doom-modeline--active) doom-modeline--bar-active doom-modeline--bar-inactive)) (defun doom-modeline-refresh-bars (&optional width height) "Refresh mode-line bars with `WIDTH' and `HEIGHT'." (setq doom-modeline--bar-active (doom-modeline--make-xpm 'doom-modeline-bar (or width doom-modeline-bar-width) (max (or height doom-modeline-height) (doom-modeline--font-height))) doom-modeline--bar-inactive (doom-modeline--make-xpm 'doom-modeline-inactive-bar (or width doom-modeline-bar-width) (max (or height doom-modeline-height) (doom-modeline--font-height))))) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-height (lambda (_sym val op _where) (when (and (eq op 'set) (integerp val)) (doom-modeline-refresh-bars doom-modeline-bar-width val)))) (add-variable-watcher 'doom-modeline-bar-width (lambda (_sym val op _where) (when (and (eq op 'set) (integerp val)) (doom-modeline-refresh-bars val doom-modeline-height))))) (add-hook 'after-setting-font-hook #'doom-modeline-refresh-bars) (add-hook 'window-configuration-change-hook #'doom-modeline-refresh-bars) ;; ;; window number ;; ;; HACK: `ace-window-display-mode' should respect the ignore buffers. (defun doom-modeline-aw-update () "Update ace-window-path window parameter for all windows. Ensure all windows are labeled so the user can select a specific one. The ignored buffers are excluded unless `aw-ignore-on' is nil." (let ((ignore-window-parameters t)) (avy-traverse (avy-tree (aw-window-list) aw-keys) (lambda (path leaf) (set-window-parameter leaf 'ace-window-path (propertize (apply #'string (reverse path)) 'face 'aw-mode-line-face)))))) (advice-add #'aw-update :override #'doom-modeline-aw-update) ;; Remove original window number of `ace-window-display-mode'. (add-hook 'ace-window-display-mode-hook (lambda () (setq-default mode-line-format (assq-delete-all 'ace-window-display-mode (default-value 'mode-line-format))))) (advice-add #'window-numbering-install-mode-line :override #'ignore) (advice-add #'window-numbering-clear-mode-line :override #'ignore) (advice-add #'winum--install-mode-line :override #'ignore) (advice-add #'winum--clear-mode-line :override #'ignore) (doom-modeline-def-segment window-number (let ((num (cond ((bound-and-true-p ace-window-display-mode) (aw-update) (window-parameter (selected-window) 'ace-window-path)) ((bound-and-true-p winum-mode) (setq winum-auto-setup-mode-line nil) (winum-get-number-string)) ((bound-and-true-p window-numbering-mode) (window-numbering-get-number-string)) (t "")))) (if (and (< 0 (length num)) (< (if (active-minibuffer-window) 2 1) (length (cl-mapcan #'window-list (visible-frame-list))))) (propertize (format " %s " num) 'face (if (doom-modeline--active) 'doom-modeline-buffer-major-mode 'mode-line-inactive))))) ;; ;; workspace number ;; (doom-modeline-def-segment workspace-name "The current workspace name or number. Requires `eyebrowse-mode' to be enabled." (if (and (bound-and-true-p eyebrowse-mode) (< 1 (length (eyebrowse--get 'window-configs)))) (let* ((num (eyebrowse--get 'current-slot)) (tag (when num (nth 2 (assoc num (eyebrowse--get 'window-configs))))) (str (if (and tag (< 0 (length tag))) tag (when num (int-to-string num))))) (assq-delete-all 'eyebrowse-mode mode-line-misc-info) (propertize (format " %s " str) 'face (if (doom-modeline--active) 'doom-modeline-buffer-major-mode 'mode-line-inactive))))) ;; ;; perspective name ;; (defvar-local doom-modeline--persp-name nil) (defun doom-modeline-update-persp-name (&rest _) "Update perspective name in mode-line." (setq doom-modeline--persp-name ;; Support `persp-mode', while not support `perspective' (when (and doom-modeline-persp-name (bound-and-true-p persp-mode) (fboundp 'safe-persp-name) (fboundp 'get-current-persp)) (let* ((persp (get-current-persp)) (name (safe-persp-name persp)) (face (if (and persp (not (persp-contain-buffer-p (current-buffer) persp))) 'doom-modeline-persp-buffer-not-in-persp 'doom-modeline-persp-name)) (icon (if (and doom-modeline-icon doom-modeline-persp-name-icon) (doom-modeline-icon-material "aspect_ratio" :v-adjust -0.225 :face face) (propertize "#" 'face face)))) (unless (string-equal persp-nil-name name) (concat (doom-modeline-spc) icon (doom-modeline-vspc) (propertize name 'face face 'help-echo "mouse-1: Switch perspective mouse-2: Show help for minor mode" 'mouse-face 'mode-line-highlight 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] #'persp-switch) (define-key map [mode-line mouse-2] (lambda () (interactive) (describe-function 'persp-mode))) map)) (doom-modeline-spc))))))) (add-hook 'find-file-hook #'doom-modeline-update-persp-name) (add-hook 'persp-activated-functions #'doom-modeline-update-persp-name) (add-hook 'persp-renamed-functions #'doom-modeline-update-persp-name) (advice-add #'select-window :after #'doom-modeline-update-persp-name) (doom-modeline-def-segment persp-name "The current perspective name." (if (doom-modeline--active) doom-modeline--persp-name)) ;; ;; misc info ;; (doom-modeline-def-segment misc-info "Mode line construct for miscellaneous information. By default, this shows the information specified by `global-mode-string'." (if (doom-modeline--active) '("" mode-line-misc-info))) ;; ;; position ;; ;; Be compatible with Emacs 25. (defvar doom-modeline-column-zero-based (if (boundp 'column-number-indicator-zero-based) column-number-indicator-zero-based t) "When non-nil, mode line displays column numbers zero-based. See `column-number-indicator-zero-based'.") (defvar doom-modeline-percent-position (if (boundp 'mode-line-percent-position) mode-line-percent-position '(-3 "%p")) "Specification of \"percentage offset\" of window through buffer. See `mode-line-percent-position'.") (when (>= emacs-major-version 26) (add-variable-watcher 'column-number-indicator-zero-based (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-column-zero-based val)))) (add-variable-watcher 'mode-line-percent-position (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-percent-position val))))) (doom-modeline-def-segment buffer-position "The buffer position information." (let ((active (doom-modeline--active)) (lc '(line-number-mode (column-number-mode (doom-modeline-column-zero-based " %l:%c" " %l:%C") " %l") (column-number-mode (doom-modeline-column-zero-based " :%c" " :%C"))))) (if (and (bound-and-true-p nyan-mode) active (>= (window-width) nyan-minimum-window-width)) (concat (doom-modeline-spc) (doom-modeline-spc) (nyan-create) (doom-modeline-spc) (propertize (format-mode-line lc) 'help-echo "Buffer position\n\ mouse-1: Display Line and Column Mode Menu" 'mouse-face '(:box 0) 'local-map mode-line-column-line-number-mode-map)) (propertize (concat (doom-modeline-spc) (format-mode-line lc) (if doom-modeline-percent-position (format-mode-line '(" " doom-modeline-percent-position "%%"))) (if (or line-number-mode column-number-mode doom-modeline-percent-position) (doom-modeline-spc))) 'face (if active 'mode-line 'mode-line-inactive) 'help-echo "Buffer position\n\ mouse-1: Display Line and Column Mode Menu" 'mouse-face '(:box 0) 'local-map mode-line-column-line-number-mode-map)))) ;; ;; party parrot ;; (doom-modeline-def-segment parrot "The party parrot animated icon. Requires `parrot-mode' to be enabled." (when (and (bound-and-true-p parrot-mode) (doom-modeline--active)) (concat (doom-modeline-spc) (doom-modeline-spc) (parrot-create) (doom-modeline-spc)))) ;; ;; modals (evil, god, ryo and xah-fly-keys, etc.) ;; (defsubst doom-modeline--evil () "The current evil state. Requires `evil-mode' to be enabled." (when (bound-and-true-p evil-local-mode) (let ((tag (evil-state-property evil-state :tag t))) (propertize tag 'face (if (doom-modeline--active) (cond ((evil-normal-state-p) 'doom-modeline-evil-normal-state) ((evil-emacs-state-p) 'doom-modeline-evil-emacs-state) ((evil-insert-state-p) 'doom-modeline-evil-insert-state) ((evil-motion-state-p) 'doom-modeline-evil-motion-state) ((evil-visual-state-p) 'doom-modeline-evil-visual-state) ((evil-operator-state-p) 'doom-modeline-evil-operator-state) ((evil-replace-state-p) 'doom-modeline-evil-replace-state)) 'mode-line-inactive))))) (defsubst doom-modeline--overwrite () "The current overwrite state. Requires `overwrite-mode' to be enabled." (when (and (bound-and-true-p overwrite-mode) (not (bound-and-true-p evil-local-mode))) (propertize " " 'face (if (doom-modeline--active) 'doom-modeline-urgent 'mode-line-inactive)))) (defsubst doom-modeline--god () "The current god state. Requires `god-mode' to be enabled." (when (bound-and-true-p god-local-mode) (propertize " " 'face (if (doom-modeline--active) 'doom-modeline-evil-normal-state 'mode-line-inactive)))) (defsubst doom-modeline--ryo () "The current ryo-modal state. Requires `ryo-modal-mode' to be enabled." (when (bound-and-true-p ryo-modal-mode) (propertize " " 'face (if (doom-modeline--active) 'doom-modeline-evil-normal-state 'mode-line-inactive)))) (defsubst doom-modeline--xah-fly-keys () "The current `xah-fly-keys' state." (when (boundp 'xah-fly-insert-state-q) (let ((active (doom-modeline--active))) (if xah-fly-insert-state-q (propertize " " 'face (if active 'doom-modeline-evil-insert-state 'mode-line-inactive)) (propertize " " 'face (if active 'doom-modeline-evil-normal-state 'mode-line-inactive)))))) (doom-modeline-def-segment modals "Displays modal editing states, including `evil', `overwrite', `god', `ryo' and `xha-fly-kyes', etc." (concat (doom-modeline--evil) (doom-modeline--overwrite) (doom-modeline--god) (doom-modeline--ryo) (doom-modeline--xah-fly-keys))) ;; ;; objed-state ;; (defvar doom-modeline--objed-active nil) (defun doom-modeline-update-objed (_ &optional reset) "Update `objed' status, inactive when RESET is true." (setq doom-modeline--objed-active (not reset))) (setq objed-modeline-setup-func #'doom-modeline-update-objed) (doom-modeline-def-segment objed-state () "The current objed state." (when (and doom-modeline--objed-active (doom-modeline--active)) (propertize (format " %s(%s) " (symbol-name objed--object) (char-to-string (aref (symbol-name objed--obj-state) 0))) 'face 'doom-modeline-evil-emacs-state 'help-echo (format "Objed object: %s (%s)" (symbol-name objed--object) (symbol-name objed--obj-state))))) ;; ;; input method ;; (doom-modeline-def-segment input-method "The current input method." (propertize (cond (current-input-method (concat (doom-modeline-spc) current-input-method-title (doom-modeline-spc))) ((and (bound-and-true-p evil-local-mode) (bound-and-true-p evil-input-method)) (concat (doom-modeline-spc) (nth 3 (assoc default-input-method input-method-alist)) (doom-modeline-spc))) (t "")) 'face (if (doom-modeline--active) 'doom-modeline-buffer-major-mode 'mode-line-inactive) 'help-echo (concat "Current input method: " current-input-method "\n\ mouse-2: Disable input method\n\ mouse-3: Describe current input method") 'mouse-face 'mode-line-highlight 'local-map mode-line-input-method-map)) ;; ;; Info ;; (doom-modeline-def-segment info-nodes "The topic and nodes in the Info buffer." (let ((active (doom-modeline--active))) (concat (propertize " (" 'face (if active 'mode-line 'mode-line-inactive)) ;; topic (propertize (if (stringp Info-current-file) (replace-regexp-in-string "%" "%%" (file-name-sans-extension (file-name-nondirectory Info-current-file))) (format "*%S*" Info-current-file)) 'face (if active 'doom-modeline-info 'mode-line-inactive)) (propertize ") " 'face (if active 'mode-line 'mode-line-inactive)) ;; node (when Info-current-node (propertize (replace-regexp-in-string "%" "%%" Info-current-node) 'face (if active 'doom-modeline-buffer-path 'mode-line-inactive) 'help-echo "mouse-1: scroll forward, mouse-3: scroll back" 'mouse-face 'mode-line-highlight 'local-map Info-mode-line-node-keymap))))) ;; ;; LSP ;; (defun doom-modeline-lsp-icon (text face) "Display LSP icon (or TEXT in terminal) with FACE." (if doom-modeline-icon (doom-modeline-icon-faicon "rocket" :height 1.0 :face face :v-adjust -0.0575) (propertize text 'face face))) (defvar-local doom-modeline--lsp nil) (defun doom-modeline-update-lsp (&rest _) "Update `lsp-mode' status." (setq doom-modeline--lsp (let* ((workspaces (lsp-workspaces)) (face (if workspaces 'doom-modeline-lsp-success 'doom-modeline-lsp-warning)) (icon (doom-modeline-lsp-icon "LSP" face))) (propertize icon 'help-echo (if workspaces (concat "LSP Connected " (string-join (mapcar (lambda (w) (format "[%s]\n" (lsp--workspace-print w))) workspaces)) "C-mouse-1: Switch to another workspace folder mouse-1: Describe current session mouse-2: Quit server mouse-3: Reconnect to server") "LSP Disconnected mouse-1: Reload to start server") 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (if workspaces (progn (define-key map [mode-line C-mouse-1] #'lsp-workspace-folders-open) (define-key map [mode-line mouse-1] #'lsp-describe-session) (define-key map [mode-line mouse-2] #'lsp-workspace-shutdown) (define-key map [mode-line mouse-3] #'lsp-workspace-restart)) (progn (define-key map [mode-line mouse-1] (lambda () (interactive) (ignore-errors (revert-buffer t t)))))) map))))) (add-hook 'lsp-before-initialize-hook #'doom-modeline-update-lsp) (add-hook 'lsp-after-initialize-hook #'doom-modeline-update-lsp) (add-hook 'lsp-after-uninitialized-hook #'doom-modeline-update-lsp) (add-hook 'lsp-before-open-hook #'doom-modeline-update-lsp) (add-hook 'lsp-after-open-hook #'doom-modeline-update-lsp) (defvar-local doom-modeline--eglot nil) (defun doom-modeline-update-eglot () "Update `eglot' status." (setq doom-modeline--eglot (pcase-let* ((server (eglot--current-server)) (nick (and server (eglot--project-nickname server))) (pending (and server (hash-table-count (jsonrpc--request-continuations server)))) (`(,_id ,doing ,done-p ,detail) (and server (eglot--spinner server))) (last-error (and server (jsonrpc-last-error server))) (face (cond (last-error 'doom-modeline-lsp-error) ((and doing (not done-p)) 'compilation-mode-line-run) ((and pending (cl-plusp pending)) 'doom-modeline-lsp-warning) (nick 'doom-modeline-lsp-success) (t 'mode-line))) (icon (doom-modeline-lsp-icon "EGLOT" face))) (propertize icon 'help-echo (cond (last-error (format "EGLOT\nAn error occured: %s mouse-3: clear this status" (plist-get last-error :message))) ((and doing (not done-p)) (format "EGLOT\n%s%s" doing (if detail (format "%s" detail) ""))) ((and pending (cl-plusp pending)) (format "EGLOT\n%d outstanding requests" pending)) (nick (format "EGLOT Connected (%s/%s) C-mouse-1: Disply server errors mouse-1: Display server events mouse-2: Quit server mouse-3: Reconnect to server" nick (eglot--major-mode server))) (t "EGLOT Disconnected")) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (cond (last-error (define-key map [mode-line mouse-3] #'eglot-clear-status)) ((and pending (cl-plusp pending)) (define-key map [mode-line mouse-3] #'eglot-forget-pending-continuations)) (nick (define-key map [mode-line C-mouse-1] #'eglot-stderr-buffer) (define-key map [mode-line mouse-1] #'eglot-events-buffer) (define-key map [mode-line mouse-2] #'eglot-shutdown) (define-key map [mode-line mouse-3] #'eglot-reconnect))) map))))) (add-hook 'eglot--managed-mode-hook #'doom-modeline-update-eglot) (doom-modeline-def-segment lsp "The LSP server state." (when doom-modeline-lsp (let ((active (doom-modeline--active)) (icon (cond ((bound-and-true-p lsp-mode) doom-modeline--lsp) ((bound-and-true-p eglot--managed-mode) doom-modeline--eglot)))) (when icon (concat (doom-modeline-spc) (if active icon (propertize icon 'face `(:inherit ,(get-text-property 0 'face icon) :inherit mode-line-inactive))) (doom-modeline-spc)))))) (defun doom-modeline-override-eglot-modeline () "Override `eglot' mode-line." (if (bound-and-true-p doom-modeline-mode) (setq mode-line-misc-info (delq (assq 'eglot--managed-mode mode-line-misc-info) mode-line-misc-info)) (add-to-list 'mode-line-misc-info `(eglot--managed-mode (" [" eglot--mode-line-format "] "))))) (with-eval-after-load 'eglot (doom-modeline-override-eglot-modeline)) (add-hook 'doom-modeline-mode-hook #'doom-modeline-override-eglot-modeline) ;; ;; github ;; (defvar doom-modeline--github-notifications-number 0) (defvar doom-modeline-before-github-fetch-notification-hook nil "Hooks before fetching GitHub notifications. Example: (add-hook 'doom-modeline-before-github-fetch-notification-hook #'auth-source-pass-enable)") (defun doom-modeline--github-fetch-notifications () "Fetch GitHub notifications." (when (and doom-modeline-github (fboundp 'async-start)) ;; load `async' if it exists but is not loaded (unless (fboundp 'async-inject-variables) (require 'async nil t)) (async-start `(lambda () ,(async-inject-variables "\\`\\(load-path\\|auth-sources\\|doom-modeline-before-github-fetch-notification-hook\\)\\'") (run-hooks 'doom-modeline-before-github-fetch-notification-hook) (require 'ghub nil t) (when (fboundp 'ghub-get) (with-timeout (10) (ignore-errors (if (ghub--token ghub-default-host (ghub--username ghub-default-host) 'ghub t) (ghub-get "/notifications" nil :query '((notifications . "true")) :noerror t)))))) (lambda (result) (message "") ; suppress message (setq doom-modeline--github-notifications-number (length result)))))) (defvar doom-modeline--github-timer nil) (defun doom-modeline-github-timer () "Start/Stop the timer for GitHub fetching." (if (timerp doom-modeline--github-timer) (cancel-timer doom-modeline--github-timer)) (setq doom-modeline--github-timer (and doom-modeline-github (run-with-timer 30 doom-modeline-github-interval #'doom-modeline--github-fetch-notifications)))) (when (>= emacs-major-version 26) (add-variable-watcher 'doom-modeline-github (lambda (_sym val op _where) (when (eq op 'set) (setq doom-modeline-github val) (doom-modeline-github-timer))))) (doom-modeline-github-timer) (doom-modeline-def-segment github "The GitHub notifications." (if (and doom-modeline-github (doom-modeline--active) (> doom-modeline--github-notifications-number 0)) (concat (doom-modeline-spc) (propertize (concat (if doom-modeline-icon (concat (doom-modeline-icon-faicon "github" :v-adjust -0.0575 :face 'doom-modeline-warning) (doom-modeline-vspc)) (propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) (propertize (number-to-string doom-modeline--github-notifications-number) 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'help-echo "Github Notifications mouse-1: Show notifications mouse-3: Fetch notifications" 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] (lambda () "Open GitHub notifications page." (interactive) (run-with-timer 300 nil #'doom-modeline--github-fetch-notifications) (browse-url "https://github.com/notifications"))) (define-key map [mode-line mouse-3] (lambda () "Fetching GitHub notifications." (interactive) (message "Fetching GitHub notifications...") (doom-modeline--github-fetch-notifications))) map)) (doom-modeline-spc)))) ;; ;; debug state ;; (defun doom-modeline-debug-icon (face) "Display debug icon with FACE." (if doom-modeline-icon (doom-modeline-icon-faicon "bug" :v-adjust -0.0575 :face face) (propertize "!" 'face face))) (defsubst doom-modeline--debug-dap () "The current `dap-mode' state." (when (and (bound-and-true-p dap-mode) (bound-and-true-p lsp-mode) (dap--session-running (dap--cur-session))) (propertize (doom-modeline-debug-icon 'doom-modeline-warning) 'help-echo (format "DAP (%s) mouse-1: Display debug hydra mouse-2: Display recent configurations mouse-3: Disconnect session" (dap-mode-line)) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] #'dap-hydra) (define-key map [mode-line mouse-2] #'dap-debug-recent) (define-key map [mode-line mouse-3] #'dap-disconnect) map)))) (defsubst doom-modeline--debug-edebug () "The current `edebug' state." (when (or (bound-and-true-p edebug-mode) (bound-and-true-p edebug-x-mode)) (propertize (doom-modeline-debug-icon 'doom-modeline-warning) 'help-echo (format "EDebug (%s) mouse-1: Show help mouse-2: Next mouse-3: Stop debugging" edebug-execution-mode) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] #'edebug-help) (define-key map [mode-line mouse-2] #'edebug-next-mode) (define-key map [mode-line mouse-3] #'edebug-stop) map)))) (defsubst doom-modeline--debug-on-error () "The current `debug-on-error' state." (when debug-on-error (propertize (doom-modeline-debug-icon 'doom-modeline-urgent) 'help-echo "Debug on Error mouse-1: Toggle Debug on Error" 'mouse-face '(:box 0) 'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-error)))) (defsubst doom-modeline--debug-on-quit () "The current `debug-on-quit' state." (when debug-on-quit (propertize (doom-modeline-debug-icon 'doom-modeline-buffer-path) 'help-echo "Debug on Quit mouse-1: Toggle Debug on Quit" 'mouse-face '(:box 0) 'local-map (make-mode-line-mouse-map 'mouse-1 #'toggle-debug-on-quit)))) (doom-modeline-def-segment debug "The current debug state." (when (doom-modeline--active) (let* ((dap (doom-modeline--debug-dap)) (edebug (doom-modeline--debug-edebug)) (on-error (doom-modeline--debug-on-error)) (on-quit (doom-modeline--debug-on-quit)) (sep (doom-modeline-vspc)) (seg-sep (and (or dap edebug on-error on-quit) (doom-modeline-spc)))) (concat seg-sep (and dap (concat dap sep)) (and edebug (concat edebug sep)) (and on-error (concat on-error sep)) on-quit seg-sep)))) ;; ;; pdf pages ;; (defvar-local doom-modeline--pdf-pages nil) (defun doom-modeline-update-pdf-pages () "Update PDF pages." (setq doom-modeline--pdf-pages (propertize (format " P%d/%d " (eval `(pdf-view-current-page)) (pdf-cache-number-of-pages)) 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)))) (add-hook 'pdf-view-change-page-hook #'doom-modeline-update-pdf-pages) (doom-modeline-def-segment pdf-pages "Display PDF pages." doom-modeline--pdf-pages) ;; ;; mu4e-alert notifications ;; (doom-modeline-def-segment mu4e "Show notifications of any unread emails in `mu4e'." (when (and doom-modeline-mu4e (doom-modeline--active) (bound-and-true-p mu4e-alert-mode-line)) ;; don't display if the unread mails count is zero (if (> mu4e-alert-mode-line 0) (concat (doom-modeline-spc) (propertize (concat (if doom-modeline-icon (concat (doom-modeline-icon-material "email" :height 1.1 :v-adjust -0.225 :face 'doom-modeline-warning) (doom-modeline-vspc)) (propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) (propertize (number-to-string mu4e-alert-mode-line) 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'mouse-face '(:box 0) 'help-echo (if (= mu4e-alert-mode-line 1) "You have an unread email" (format "You have %s unread emails" mu4e-alert-mode-line))) (doom-modeline-spc))))) (defun doom-modeline-override-mu4e-alert-modeline (&rest _) "Delete `mu4e-alert-mode-line' from global modeline string." (when (featurep 'mu4e-alert) (if (and doom-modeline-mu4e (bound-and-true-p doom-modeline-mode)) ;; Delete original modeline (progn (setq global-mode-string (delete '(:eval mu4e-alert-mode-line) global-mode-string)) (setq mu4e-alert-modeline-formatter #'identity)) ;; Recover default settings (setq mu4e-alert-modeline-formatter #'mu4e-alert-default-mode-line-formatter)))) (advice-add #'mu4e-alert-enable-mode-line-display :after #'doom-modeline-override-mu4e-alert-modeline) (add-hook 'doom-modeline-mode-hook #'doom-modeline-override-mu4e-alert-modeline) ;; ;; irc notifications ;; (defun doom-modeline--shorten-irc (name) "Wrapper for `tracking-shorten' that only takes one NAME. One key difference is that when `tracking-shorten' returns nil we will instead return the original value of name. This is necessary in cases where the user has stylized the name to be an icon and we don't want to remove that so we just return the original." (or (car (tracking-shorten (list name))) name)) (defun doom-modeline--tracking-buffers (buffers) "Logic to convert some irc BUFFERS to their font-awesome icon." (mapconcat (lambda (b) (propertize (doom-modeline--shorten-irc (funcall doom-modeline-irc-stylize b)) 'face '(:inherit (warning doom-modeline-unread-number)) 'help-echo b)) buffers ;; `space-width' only affects the width of the spaces here, so we can tighten ;; it to be a bit more compact (propertize " ยท " 'display '(space-width 0.4)))) ;; create a modeline segment that contains all the irc tracked buffers (doom-modeline-def-segment irc-buffers "The list of shortened, unread irc buffers." (when (and doom-modeline-irc (doom-modeline--active) (boundp 'tracking-mode-line-buffers) (derived-mode-p 'circe-mode)) ;; add a space at the end to pad against the following segment (concat (doom-modeline-spc) (doom-modeline--tracking-buffers tracking-buffers) (doom-modeline-spc)))) (doom-modeline-def-segment irc "A notification icon for any unread irc buffer." (when (and doom-modeline-irc (doom-modeline--active) (boundp 'tracking-mode-line-buffers) (> (length tracking-buffers) 0)) (concat (doom-modeline-spc) (propertize (if doom-modeline-icon (doom-modeline-icon-material "message" :height 1.1 :v-adjust -0.225 :face 'doom-modeline-warning) (propertize "#" 'face '(:inherit (doom-modeline-warning doom-modeline-unread-number)))) 'help-echo (format "IRC Notifications: %s" (doom-modeline--tracking-buffers tracking-buffers))) (doom-modeline-spc)))) ;; ;; fancy battery ;; (defvar-local doom-modeline--battery-status nil) (defun doom-modeline-update-battery-status (&optional status) "Update battery STATUS." (setq doom-modeline--battery-status (let* ((status (or status fancy-battery-last-status)) (charging? (string-equal "AC" (cdr (assoc ?L status)))) (percentage (cdr (assq ?p status))) (percentage-number (string-to-number percentage)) (face (cond (charging? 'fancy-battery-charging) ((< percentage-number 10) 'fancy-battery-critical) ((< percentage-number 25) 'fancy-battery-discharging) ((< percentage-number 95) 'mode-line) (t 'fancy-battery-charging))) (icon (cond (charging? (if doom-modeline-icon (doom-modeline-icon-alltheicon "battery-charging" :face face :height 1.4 :v-adjust -0.1) "+")) ((> percentage-number 95) (if doom-modeline-icon (doom-modeline-icon-faicon "battery-full" :face face :v-adjust -0.0575) "-")) ((> percentage-number 70) (if doom-modeline-icon (doom-modeline-icon-faicon "battery-three-quarters" :face face :v-adjust -0.0575) "-")) ((> percentage-number 40) (if doom-modeline-icon (doom-modeline-icon-faicon "battery-half" :face face :v-adjust -0.0575) "-")) ((> percentage-number 15) (if doom-modeline-icon (doom-modeline-icon-faicon "battery-quarter" :face face :v-adjust -0.0575) "-")) (t (if doom-modeline-icon (doom-modeline-icon-faicon "battery-empty" :face face :v-adjust -0.0575) "!")))) (percent-str (and percentage (concat percentage "%%"))) (help-echo (if battery-echo-area-format (battery-format battery-echo-area-format status) "Battery status not available"))) (concat (doom-modeline-spc) (if percent-str (concat (propertize icon 'help-echo help-echo) (if doom-modeline-icon (doom-modeline-vspc)) (propertize percent-str 'face face 'help-echo help-echo)) ;; Battery status is not available (if doom-modeline-icon (doom-modeline-icon-faicon "battery-empty" :v-adjust -0.0575 :face 'error) (propertize "N/A" 'face 'error 'help-echo "Battery status not available"))) (doom-modeline-spc))))) (add-hook 'fancy-battery-status-update-functions #'doom-modeline-update-battery-status) (doom-modeline-def-segment fancy-battery "Display battery status." (when (and (doom-modeline--active) (bound-and-true-p fancy-battery-mode)) (or doom-modeline--battery-status (doom-modeline-update-battery-status)))) (defun doom-modeline-override-fancy-battery-modeline () "Override `fancy-battery' mode-line." (if (bound-and-true-p doom-modeline-mode) (setq global-mode-string (delq 'fancy-battery-mode-line global-mode-string)))) (add-hook 'fancy-battery-mode-hook #'doom-modeline-override-fancy-battery-modeline) (add-hook 'doom-modeline-mode-hook #'doom-modeline-override-fancy-battery-modeline) ;; ;; package information ;; (doom-modeline-def-segment package "Show package information via `paradox'." (let ((active (doom-modeline--active))) (concat (let ((front (format-mode-line 'mode-line-front-space))) (if active front (propertize front 'face 'mode-line-inactive))) (when (and doom-modeline-icon doom-modeline-major-mode-icon) (concat (doom-modeline-spc) (doom-modeline-icon-for-mode 'paradox-menu-mode :v-adjust -0.15 :face (if active (unless doom-modeline-major-mode-color-icon 'mode-line) 'mode-line-inactive)))) (let ((info (format-mode-line 'mode-line-buffer-identification))) (if active info (propertize info 'face 'mode-line-inactive)))))) ;; ;; Helm ;; (defvar doom-modeline--helm-buffer-ids '(("*helm*" . "HELM") ("*helm M-x*" . "HELM M-x") ("*swiper*" . "SWIPER") ("*Projectile Perspectives*" . "HELM Projectile Perspectives") ("*Projectile Layouts*" . "HELM Projectile Layouts") ("*helm-ag*" . (lambda () (format "HELM Ag: Using %s" (car (split-string helm-ag-base-command)))))) "Alist of custom helm buffer names to use. The cdr can also be a function that returns a name to use.") (doom-modeline-def-segment helm-buffer-id "Helm session identifier." (when (bound-and-true-p helm-alive-p) (let ((active (doom-modeline--active))) (concat (doom-modeline-spc) (doom-modeline-icon-fileicon "elisp" :height 1.0 :v-adjust -0.15 :face (if active (if doom-modeline-major-mode-color-icon 'all-the-icons-purple 'mode-line) 'mode-line-inactive)) (when doom-modeline-icon (doom-modeline-spc)) (propertize (let ((custom (cdr (assoc (buffer-name) doom-modeline--helm-buffer-ids))) (case-fold-search t) (name (replace-regexp-in-string "-" " " (buffer-name)))) (cond ((stringp custom) custom) ((functionp custom) (funcall custom)) (t (string-match "\\*helm:? \\(mode \\)?\\([^\\*]+\\)\\*" name) (concat "HELM " (capitalize (match-string 2 name)))))) 'face (if active' doom-modeline-buffer-file 'mode-line-inactive)) (doom-modeline-spc))))) (doom-modeline-def-segment helm-number "Number of helm candidates." (when (bound-and-true-p helm-alive-p) (let ((active (doom-modeline--active))) (concat (propertize (format " %d/%d" (helm-candidate-number-at-point) (helm-get-candidate-number t)) 'face (if active 'doom-modeline-buffer-path 'mode-line-inactive)) (propertize (format " (%d total) " (helm-get-candidate-number)) 'face (if active 'doom-modeline-info 'mode-line-inactive)))))) (doom-modeline-def-segment helm-help "Helm keybindings help." (when (bound-and-true-p helm-alive-p) (let ((active (doom-modeline--active))) (-interleave (mapcar (lambda (s) (propertize (substitute-command-keys s) 'face (if active 'doom-modeline-buffer-file 'mode-line-inactive))) '("\\\\[helm-help]" "\\\\[helm-select-action]" "\\\\[helm-maybe-exit-minibuffer]/F1/F2...")) (mapcar (lambda (s) (propertize s 'face (if active 'mode-line 'mode-line-inactive))) '("(help) " "(actions) " "(action) ")))))) (doom-modeline-def-segment helm-prefix-argument "Helm prefix argument." (when (and (bound-and-true-p helm-alive-p) helm--mode-line-display-prefarg) (let ((arg (prefix-numeric-value (or prefix-arg current-prefix-arg)))) (unless (= arg 1) (propertize (format "C-u %s" arg) 'face (if (doom-modeline--active) 'doom-modeline-info 'mode-line-inactive)))))) (defvar doom-modeline--helm-current-source nil "The currently active helm source.") (doom-modeline-def-segment helm-follow "Helm follow indicator." (when (and (bound-and-true-p helm-alive-p) doom-modeline--helm-current-source (eq 1 (cdr (assq 'follow doom-modeline--helm-current-source)))) (propertize "HF" 'face (if (doom-modeline--active) 'mode-line 'mode-line-inactive)))) ;; ;; git timemachine ;; (doom-modeline-def-segment git-timemachine (let ((active (doom-modeline--active))) (concat (doom-modeline-spc) (doom-modeline--buffer-mode-icon) ;; snapshot icon (doom-modeline-buffer-file-state-icon "camera_alt" "%1*" (if active 'warning 'mode-line-inactive) 1.1 -0.25) (doom-modeline-vspc) ;; buffer name (propertize "*%b*" 'face (if active 'doom-modeline-buffer-file 'mode-line-inactive))))) ;; ;; Markdown/org preview ;; (doom-modeline-def-segment grip (when (bound-and-true-p grip-mode) (concat (doom-modeline-spc) (let ((face (if (doom-modeline--active) (if grip-process (pcase (process-status grip-process) ('run 'all-the-icons-lblue) ('exit 'warning) (_ 'error)) 'error) 'mode-line-inactive))) (propertize (if doom-modeline-icon (doom-modeline-icon-material "pageview" :face face :height 1.2 :v-adjust -0.2) (propertize "G" 'face `(:inherit (,face bold)))) 'help-echo (format "Preview on: http://localhost:%d mouse-1: Open browser mouse-2: Stop preview" grip-port) 'mouse-face '(:box 0) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-1] (lambda () (interactive) (browse-url (format "http://localhost:%d" grip-port)))) (define-key map [mode-line mouse-2] #'grip-mode) map))) (doom-modeline-spc)))) (provide 'doom-modeline-segments) ;;; doom-modeline-segments.el ends here