From 7d9d3951c6736d5606828e2727a7319856511ddb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Fri, 3 Sep 2021 19:03:51 +0100 Subject: [PATCH] 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. --- lisp/progmodes/flymake.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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) -- 2.39.5