[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/bug-50244 08a28fb 4/6: Abbreviate Flymake backend name in flymak
From: |
João Távora |
Subject: |
scratch/bug-50244 08a28fb 4/6: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer |
Date: |
Fri, 10 Sep 2021 20:52:42 -0400 (EDT) |
branch: scratch/bug-50244
commit 08a28fb6e13cc4e114272e5f8a2637ed458583eb
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
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 e5e8acb..659a16b 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1405,6 +1405,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
@@ -1418,6 +1421,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"
@@ -1437,6 +1446,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)
- branch scratch/bug-50244 created (now a7c2bf4), João Távora, 2021/09/10
- scratch/bug-50244 71f2913 1/6: Rename flymake--backend-state to flymake--state, João Távora, 2021/09/10
- scratch/bug-50244 a7c2bf4 6/6: Add support for project-wide diagnostics in Flymake, João Távora, 2021/09/10
- scratch/bug-50244 da7900a 5/6: Keep and report "foreign" diangnostics in flymake-cc Flymake backend, João Távora, 2021/09/10
- scratch/bug-50244 e75a5ec 2/6: Refactor some Flymake functions, João Távora, 2021/09/10
- scratch/bug-50244 dd244f5 3/6: Unbreak M-x compile-defun of functions using flymake-log, João Távora, 2021/09/10
- scratch/bug-50244 08a28fb 4/6: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer,
João Távora <=