[nongnu] elpa/consult-flycheck b73fc4bcce 11/18: Add support for non-standard error levels (#2)

[ELPA Syncer]

branch: elpa/consult-flycheck
commit b73fc4bcce9c68d01ba9f4100f1c518ee3f3d28b
Author: Sergey Firsov <95489807+intramurz@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Add support for non-standard error levels (#2)
    
    * Fix doc comment to match coding standard
    
    * Add support for auxiliary error levels
---
 consult-flycheck.el | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

diff --git a/consult-flycheck.el b/consult-flycheck.el
index c62dac6d72..460bdb3d1c 100644
--- a/consult-flycheck.el
+++ b/consult-flycheck.el
@@ -26,7 +26,7 @@
 
 ;;; Commentary:
 
-;; Provides the command `consult-flycheck'. This is an extra package,
+;; Provides the command `consult-flycheck'.  This is an extra package,
 ;; since the consult.el package only depends on Emacs core components.
 
 ;;; Code:
@@ -64,13 +64,15 @@ In contrast to `flycheck-error-level-<' sort errors first."
                          (file-name-nondirectory file)
                        (buffer-name (flycheck-error-buffer err)))
                      (number-to-string (flycheck-error-line err))
+                     (symbol-name (flycheck-error-level err))
                      err))
                   (seq-sort #'consult-flycheck--sort-predicate 
flycheck-current-errors)))
          (file-width (apply #'max (mapcar (lambda (x) (length (car x))) 
errors)))
          (line-width (apply #'max (mapcar (lambda (x) (length (cadr x))) 
errors)))
-         (fmt (format "%%-%ds %%-%ds %%-7s %%s (%%s)" file-width line-width)))
+         (level-width (apply #'max (mapcar (lambda (x) (length (caddr x))) 
errors)))
+         (fmt (format "%%%ds %%%ds %%-%ds\t%%s\t(%%s)" file-width line-width 
level-width)))
     (mapcar
-     (pcase-lambda (`(,file ,line ,err))
+     (pcase-lambda (`(,file ,line ,level-name ,err))
        (let ((level (flycheck-error-level err)))
          (format fmt
                  (propertize file
@@ -82,12 +84,18 @@ In contrast to `flycheck-error-level-<' sort errors first."
                                              (find-file-noselect 
(flycheck-error-filename err) 'nowarn)
                                            (flycheck-error-buffer err)))
                              'consult--type
-                             (pcase level
-                               ('error ?e)
-                               ('warning ?w)
+                             (pcase level-name
+                               ((rx (and (0+ nonl)
+                                         "error"
+                                         (0+ nonl)))
+                                ?e)
+                               ((rx (and (0+ nonl)
+                                         "warning"
+                                         (0+ nonl)))
+                                ?w)
                                (_ ?i)))
                  (propertize line 'face 'flycheck-error-list-line-number)
-                 (propertize (symbol-name level) 'face 
(flycheck-error-level-error-list-face level))
+                 (propertize level-name 'face 
(flycheck-error-level-error-list-face level))
                  (propertize (flycheck-error-message err) 'face 
'flycheck-error-list-error-message)
                  (propertize (symbol-name (flycheck-error-checker err))
                              'face 'flycheck-error-list-checker-name))))