From: João Távora <joaotavora@gmail.com>
Date: Fri, 3 Sep 2021 18:03:51 +0000 (+0100)
Subject: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer
X-Git-Tag: emacs-28.0.90~980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d9d3951c6736d5606828e2727a7319856511ddb;p=emacs.git

Abbreviate Flymake backend name in flymake-show-diagnostics-buffer

* lisp/progmodes/flymake.el (flymake--diagnostics-buffer-entries):
(flymake-diagnostics-buffer-mode): Report abbreviated backend, too.
---

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index b1dbde9bcd3..71dd4b6b1ac 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1404,6 +1404,9 @@ POS can be a buffer position or a button"
                        (- (point)
                           (line-beginning-position))))
                for type = (flymake-diagnostic-type diag)
+               for backend = (flymake-diagnostic-backend diag)
+               for bname = (or (ignore-errors (symbol-name backend))
+                               "(anonymous function)")
                collect
                (list (list :diagnostic diag
                            :line line
@@ -1417,6 +1420,12 @@ POS can be a buffer position or a button"
                                              type 'flymake-type-name type))
                                     'face (flymake--lookup-type-property
                                            type 'mode-line-face 'flymake-error))
+                       ,(propertize
+                         (if bname
+                             (replace-regexp-in-string "\\(.\\)[^-]+\\(-\\|$\\)"
+                                                       "\\1\\2" bname)
+                           "(anon)")
+                         'help-echo (format "From `%s' backend" backend))
                        (,(format "%s" (flymake-diagnostic-text diag))
                         mouse-face highlight
                         help-echo "mouse-2: visit this diagnostic"
@@ -1436,6 +1445,7 @@ POS can be a buffer position or a button"
           ("Type" 8 ,(lambda (l1 l2)
                        (< (plist-get (car l1) :severity)
                           (plist-get (car l2) :severity))))
+          ("Backend" 8 t)
           ("Message" 0 t)])
   (setq tabulated-list-entries
         'flymake--diagnostics-buffer-entries)