From 7619a1b0d2e3b42f31739413ebf28f33d59b6bc4 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 27 Apr 2015 12:08:14 +0200
Subject: Add info count to flycheck indicators

---
 emacs/.emacs.d/site-lisp/my-smt.el | 34 +++++++++++++++++++++-------------
 1 file changed, 21 insertions(+), 13 deletions(-)

(limited to 'emacs/.emacs.d/site-lisp')

diff --git a/emacs/.emacs.d/site-lisp/my-smt.el b/emacs/.emacs.d/site-lisp/my-smt.el
index 5d81091..4c4f6ee 100644
--- a/emacs/.emacs.d/site-lisp/my-smt.el
+++ b/emacs/.emacs.d/site-lisp/my-smt.el
@@ -24,18 +24,26 @@
 
 ;;; Code:
 
-(smt/defwidget my-smt-flycheck-errors
-  :text (lambda (widget)
-          (ignore widget)
-          (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)))))))
+(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))
+           (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)
 
-- 
cgit v1.2.3-54-g00ecf