[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/bug-50244 ac24adc 4/8: Abbreviate Flymake backend name in flymak
From: |
João Távora |
Subject: |
scratch/bug-50244 ac24adc 4/8: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer |
Date: |
Mon, 13 Sep 2021 14:03:51 -0400 (EDT) |
branch: scratch/bug-50244
commit ac24adc376893434e08bdb84f4b3ceb2cf5dfd6f
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 2900ba1..21327e0 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 1f48b56), João Távora, 2021/09/13
- scratch/bug-50244 c6bc401 1/8: Rename flymake--backend-state to flymake--state, João Távora, 2021/09/13
- scratch/bug-50244 0c1cb42 2/8: Refactor some Flymake functions, João Távora, 2021/09/13
- scratch/bug-50244 2a02ac1 3/8: Unbreak M-x compile-defun of functions using flymake-log, João Távora, 2021/09/13
- scratch/bug-50244 96304ea 6/8: Bump lisp/progmodes/project.el version to 0.7.1, João Távora, 2021/09/13
- scratch/bug-50244 ac24adc 4/8: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer,
João Távora <=
- scratch/bug-50244 44824d6 7/8: Add support for project-wide diagnostics in Flymake (bug#50244), João Távora, 2021/09/13
- scratch/bug-50244 dcdbb74 5/8: Keep and report "foreign" diangnostics in flymake-cc Flymake backend, João Távora, 2021/09/13
- scratch/bug-50244 1f48b56 8/8: Re-organize and rewrite parts of the Flymake manual, João Távora, 2021/09/13