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