From 42c1332494220fab8a07f23f33951edbb01d1c81 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 5 Jan 2019 12:12:00 +0000 Subject: [PATCH] New flymake-supress-zero-counters defcustom A feature suggested by Yuri Khan . * lisp/progmodes/flymake.el (flymake-suppress-zero-counters): New variable. (flymake--mode-line-format): Use it. --- lisp/progmodes/flymake.el | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 14940844a42..d7cb226773c 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -220,6 +220,15 @@ Specifically, start it when the saved buffer is actually displayed." :version "26.1" :type 'boolean) +(defcustom flymake-suppress-zero-counters :warning + "Control appearance of zero-valued diagnostic counters in mode line. + +If set to t, supress all zero counters. If set to a severity +symbol like `:warning' (the default) suppress zero counters less +severe than that severity, according to `warning-numeric-level'. +If set to nil, don't supress any zero counters." + :type 'symbol) + (when (fboundp 'define-fringe-bitmap) (define-fringe-bitmap 'flymake-double-exclamation-mark (vector #b00000000 @@ -1136,6 +1145,7 @@ default) no filter is applied." (put 'flymake--mode-line-format 'risky-local-variable t) + (defun flymake--mode-line-format () "Produce a pretty minor mode indicator." (let* ((known (hash-table-keys flymake--backend-state)) @@ -1203,8 +1213,14 @@ default) no filter is applied." for face = (flymake--lookup-type-property type 'mode-line-face 'compilation-error) - when (or diags (>= (flymake--severity type) - (warning-numeric-level :warning))) + when (or diags + (cond ((eq flymake-suppress-zero-counters t) + nil) + (flymake-suppress-zero-counters + (>= (flymake--severity type) + (warning-numeric-level + flymake-suppress-zero-counters))) + (t t))) collect `(:propertize ,(format "%d" (length diags)) face ,face -- 2.39.5