ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add info count to flycheck indicators

Browse source
This commit is contained in:
Tom Willemse 2015-04-27 12:08:14 +02:00
parent 8ea891aeb5
commit 7619a1b0d2
1 changed files with 21 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
emacs/.emacs.d/site-lisp/my-smt.el
View file

@ -24,18 +24,26 @@
;;; Code:
(smt/defwidget my-smt-flycheck-errors
:text (lambda (widget)
(ignore widget)
(require 'svg-mode-line-themes)
(require 'flycheck)
(require 'cl)
(defun oni-smt-flycheck-errors-text (_)
"Show an indicator of the number of errors and warnings from flycheck."
(when flycheck-mode
(let ((counts (flycheck-count-errors
flycheck-current-errors)))
`(tspan " " (tspan :fill ,(if (smt/window-active-p)
"#a85454"
"#969696") ,(or (cdr (assoc 'error counts)) 0))
"/" (tspan :fill ,(if (smt/window-active-p)
"#a88654"
"#969696") ,(or (cdr (assoc 'warning counts)) 0)))))))
(let* ((counts (flycheck-count-errors flycheck-current-errors))
(err-color (if (smt/window-active-p) "#a85454" "#969696"))
(warn-color (if (smt/window-active-p) "#a88654" "#969696"))
(info-color (if (smt/window-active-p) "#5476a8" "#969696"))
(err-count (alist-get 'error counts 0))
(warn-count (alist-get 'warning counts 0))
(info-count (alist-get 'info counts 0)))
`(tspan " " (tspan :fill ,err-color ,err-count)
"/" (tspan :fill ,warn-color ,warn-count)
"/" (tspan :fill ,info-color ,info-count)))))
(smt/defwidget oni-smt-flycheck-errors
:text #'oni-smt-flycheck-errors-text)
(smt/defwidget my-smt-jabber-activity
:text (lambda (widget)
@ -135,7 +143,7 @@ WIDGET is ignored."
:widgets '(my-smt-jabber-activity
major-mode
my-smt-current-dictionary
my-smt-flycheck-errors
oni-smt-flycheck-errors
version-control minor-modes)
:margin 16)