github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-27 11:09:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

Optimize performance for flymake segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-02 22:35:02 +08:00
parent b56a9f233c
commit 30d882b9aa
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doom-modeline.el
View file

@ -1130,7 +1130,7 @@ icons."
;;
(defvar-local doom-modeline--flymake nil)
(defun doom-modeline-update-flymake-segment ()
(defun doom-modeline-update-flymake-segment (&rest _)
"Update flymake segment via STATUS."
(setq flymake--mode-line-format nil) ; remove the lighter of minor mode
(setq doom-modeline--flymake
@ -1200,24 +1200,28 @@ wheel-up/wheel-down: Previous/Next warning or error"
(with-selected-window (posn-window (event-start event))
(flymake-goto-next-error 1 '(:error :warning) t))))
map))))))
;; (add-hook 'flymake-diagnostic-functions #'doom-modeline-update-flymake-segment)
;; (add-hook 'flymake-mode-hook #'doom-modeline-update-flymake-segment)
(add-hook 'flymake-mode-hook #'doom-modeline-update-flymake-segment)
(advice-add #'flymake--handle-report :after #'doom-modeline-update-flymake-segment)
(doom-modeline-def-segment flymake
"Displays color-coded flymake error status in the current buffer with pretty
icons."
(if (doom-modeline--active)
(doom-modeline-update-flymake-segment)
doom-modeline--flymake
""))
;;
;; checker: flymake/flycheck
;;
(doom-modeline-def-segment checker
"Displays color-coded error status in the current buffer with pretty
icons."
(when (doom-modeline--active)
(cond ((and (bound-and-true-p flymake-mode)
(bound-and-true-p flymake--backend-state)) ; only support 26+
(doom-modeline-update-flymake-segment))
doom-modeline--flymake)
((bound-and-true-p flycheck-mode)
doom-modeline--flycheck))))