fix: Coloring sideline with lsp-mode

emacs-sideline · Apr 2, 2024 · 991ae72 · 991ae72
1 parent b704eb6
commit 991ae72
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/sideline-flycheck.el b/sideline-flycheck.el
@@ -104,8 +104,11 @@ Argument COMMAND is required in sideline backend."
                ((not (sideline-backend-ovs 'sideline-flycheck))))
       (let (msgs)
         (dolist (err errors)
-          (let* ((level (flycheck-error-level err))
-                 (face (if (eq level 'info) 'success level))
+          (let* ((level (sideline-2str (flycheck-error-level err)))
+                 (face (cond
+                        ((string-match-p "warning" level) 'warning)
+                        ((string-match-p "error" level) 'error)
+                        (t 'success)))
                  (msg (flycheck-error-message err))
                  (lines (split-string msg "\n"))
                  (lines (butlast lines (- (length lines) sideline-flycheck-max-lines)))