emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/doom-modeline: update flycheck on status-changed #549

Browse source
This commit is contained in:
Henrik Lissner 2018-04-26 02:00:21 -04:00
parent 776886a0a4
commit a6d8a0b4ec
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/ui/doom-modeline/config.el
View file

@ -426,10 +426,10 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(if vc-mode " " " "))) (if vc-mode " " " ")))
(defvar-local +doom-modeline--flycheck nil) (defvar-local +doom-modeline--flycheck nil)
(add-hook 'flycheck-after-syntax-check-hook #'+doom-modeline|update-flycheck-segment) (add-hook 'flycheck-status-changed-functions #'+doom-modeline|update-flycheck-segment)
(defun +doom-modeline|update-flycheck-segment () (defun +doom-modeline|update-flycheck-segment (status)
(setq +doom-modeline--flycheck (setq +doom-modeline--flycheck
(pcase flycheck-last-status-change (pcase status
('finished (if flycheck-current-errors ('finished (if flycheck-current-errors
(let-alist (flycheck-count-errors flycheck-current-errors) (let-alist (flycheck-count-errors flycheck-current-errors)
(let ((sum (+ (or .error 0) (or .warning 0)))) (let ((sum (+ (or .error 0) (or .warning 0))))
@ -446,7 +446,7 @@ directory, the file name, and its state (modified, read-only or non-existent)."
(def-modeline-segment! flycheck (def-modeline-segment! flycheck
"Displays color-coded flycheck error status in the current buffer with pretty "Displays color-coded flycheck error status in the current buffer with pretty
icons." icons."
+doom-modeline--flycheck) (if (bound-and-true-p flycheck-mode) +doom-modeline--flycheck))
;; ;;