From f809e627e433bd9a58471e4dea1ed50305eef7f2 Mon Sep 17 00:00:00 2001 From: JenChieh Date: Thu, 9 May 2024 00:42:57 -0700 Subject: [PATCH] feat: Add custom faces --- sideline-flycheck.el | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/sideline-flycheck.el b/sideline-flycheck.el index fbdcdc6..8b62c0b 100644 --- a/sideline-flycheck.el +++ b/sideline-flycheck.el @@ -76,6 +76,21 @@ (defvar-local sideline-flycheck--errors (ht-create) "Store error messages as key.") +(defface sideline-flycheck-error + `((t :inherit error)) + "Indicate error operation." + :group 'sideline-flycheck) + +(defface sideline-flycheck-warning + `((t :inherit warning)) + "Indicate warning operation." + :group 'sideline-flycheck) + +(defface sideline-flycheck-success + `((t :inherit success)) + "Indicate successful operation." + :group 'sideline-flycheck) + ;;;###autoload (defun sideline-flycheck (command) "Backend for sideline. @@ -106,9 +121,9 @@ Argument COMMAND is required in sideline backend." (dolist (err errors) (let* ((level (sideline-2str (flycheck-error-level err))) (face (cond - ((string-match-p "warning" level) 'warning) - ((string-match-p "error" level) 'error) - (t 'success))) + ((string-match-p "warning" level) 'sideline-flycheck-warning) + ((string-match-p "error" level) 'sideline-flycheck-error) + (t 'sideline-flycheck-success))) (msg (flycheck-error-message err)) (lines (split-string msg "\n")) (lines (butlast lines (- (length lines) sideline-flycheck-max-lines)))