diff --git a/doom-modeline-core.el b/doom-modeline-core.el index 5a8bb2d..68a30f1 100644 --- a/doom-modeline-core.el +++ b/doom-modeline-core.el @@ -31,10 +31,6 @@ (require 'eldoc-eval) (require 'shrink-path) (require 'subr-x) -(when (>= emacs-major-version 26) - (require 'project)) -(when (bound-and-true-p doom-modeline-icon) - (require 'all-the-icons)) ;; @@ -91,7 +87,7 @@ Given ~/Projects/FOSS/emacs/lisp/comint.el "Whether show `all-the-icons' or not. Non-nil to show the icons in mode-line. -The icons may not be showed correctly in terminal and on Windows.") +The icons may not be showed correctly in terminal.") (defvar doom-modeline-major-mode-icon t "Whether show the icon for major mode. It respects `doom-modeline-icon'.") @@ -247,7 +243,6 @@ The icons may not be showed correctly in terminal and on Windows.") (declare-function all-the-icons-material 'all-the-icons) (declare-function all-the-icons-octicon 'all-the-icons) (declare-function face-remap-remove-relative 'face-remap) -(declare-function project-current 'project) (declare-function project-roots 'project) (declare-function projectile-project-root 'projectile) diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el index b54650f..657735e 100644 --- a/doom-modeline-segments.el +++ b/doom-modeline-segments.el @@ -29,16 +29,18 @@ ;;; Code: -(require 'all-the-icons) (require 'subr-x) (require 'doom-modeline-core) (require 'doom-modeline-env) +(when (bound-and-true-p doom-modeline-icon) + (require 'all-the-icons)) ;; ;; Externals ;; +(defvar all-the-icons-scale-factor) (defvar anzu--cached-count) (defvar anzu--current-position) (defvar anzu--overflow-p) @@ -78,6 +80,8 @@ (defvar winum-auto-setup-mode-line) (defvar xah-fly-insert-state-q) +(declare-function all-the-icons-auto-mode-match? 'all-the-icons) +(declare-function all-the-icons-icon-family 'all-the-icons) (declare-function anzu--reset-status 'anzu) (declare-function anzu--where-is-here 'anzu) (declare-function async-inject-variables 'async) @@ -163,26 +167,6 @@ (declare-function winum--install-mode-line 'winum) (declare-function winum-get-number-string 'winum) - -;; -;; global watchers -;; - -(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) - (revert-buffer t t)))) - - (add-variable-watcher - 'all-the-icons-scale-factor - (lambda (_sym val op _where) - (when (eq op 'set) - (setq all-the-icons-scale-factor val) - (revert-buffer t t))))) - ;; ;; buffer information ;; @@ -224,6 +208,14 @@ buffer where knowing the current project directory is important." (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 + 'all-the-icons-scale-factor + (lambda (_sym val op _where) + (when (eq op 'set) + (setq all-the-icons-scale-factor val) + (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. @@ -286,6 +278,20 @@ Uses `all-the-icons-material' to fetch the icon." (lambda (_sym val op _where) (when (eq op 'set) (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) + (doom-modeline-update-buffer-file-state-icon)))) + + (add-variable-watcher + 'all-the-icons-scale-factor + (lambda (_sym val op _where) + (when (eq op 'set) + (setq all-the-icons-scale-factor val) (doom-modeline-update-buffer-file-state-icon))))) (defvar-local doom-modeline--buffer-file-name nil) @@ -529,6 +535,14 @@ Uses `all-the-icons-octicon' to fetch the icon." (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) + (doom-modeline--update-vcs-icon))))) + (defvar-local doom-modeline--vcs-text nil) (defun doom-modeline-update-vcs-text (&rest _) "Update text of vsc state in mode-line." @@ -643,6 +657,15 @@ mouse-2: Show help for minor mode") (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) + (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." @@ -769,6 +792,15 @@ mouse-2: Show help for minor 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) + (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."