emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/monokai-theme 4ccd0c1 158/207: Clean up flycheck ui


From: ELPA Syncer
Subject: [nongnu] elpa/monokai-theme 4ccd0c1 158/207: Clean up flycheck ui
Date: Thu, 21 Oct 2021 18:07:53 -0400 (EDT)

branch: elpa/monokai-theme
commit 4ccd0c14b26bd60dab6023a4da9aa24b4953e49f
Author: Kelvin Smith <oneKelvinSmith@gmail.com>
Commit: Kelvin Smith <oneKelvinSmith@gmail.com>

    Clean up flycheck ui
---
 monokai-theme.el | 90 +++++++++++++++++++++++++++-----------------------------
 1 file changed, 44 insertions(+), 46 deletions(-)

diff --git a/monokai-theme.el b/monokai-theme.el
index af028f7..3b46cee 100644
--- a/monokai-theme.el
+++ b/monokai-theme.el
@@ -2108,75 +2108,69 @@ Also affects 'linum-mode' background."
 
    ;; flycheck
    `(flycheck-error
-     ((,(append '((supports :underline (:style wave))) monokai-class)
-       (:underline (:style wave :color ,monokai-red)
-                   :inherit unspecified))
-      (,monokai-class (:foreground ,monokai-red-hc
-                                   :background ,monokai-red-lc
+     ((,(append '((supports :underline (:style line))) monokai-class)
+       (:underline (:style line :color ,monokai-red)))
+      (,monokai-class (:foreground ,monokai-red
+                                   :background ,monokai-background
                                    :weight bold
                                    :underline t))
-      (,(append '((supports :underline (:style wave))) monokai-256-class )
-       (:underline (:style wave :color ,monokai-256-red)
-                   :inherit unspecified))
-      (,monokai-256-class  (:foreground ,monokai-256-red-hc
-                                        :background ,monokai-256-red-lc
+      (,(append '((supports :underline (:style line))) monokai-256-class )
+       (:underline (:style line :color ,monokai-256-red)))
+      (,monokai-256-class  (:foreground ,monokai-256-red
+                                        :background ,monokai-256-background
                                         :weight bold
                                         :underline t))))
 
    `(flycheck-warning
-     ((,(append '((supports :underline (:style wave))) monokai-class)
-       (:underline (:style wave :color ,monokai-yellow)
-                   :inherit unspecified))
-      (,monokai-class (:foreground ,monokai-yellow-hc
-                                   :background ,monokai-yellow-lc
+     ((,(append '((supports :underline (:style line))) monokai-class)
+       (:underline (:style line :color ,monokai-orange)))
+      (,monokai-class (:foreground ,monokai-orange
+                                   :background ,monokai-background
                                    :weight bold
                                    :underline t))
-      (,(append '((supports :underline (:style wave))) monokai-256-class )
-       (:underline (:style wave :color ,monokai-256-yellow)
-                   :inherit unspecified))
-      (,monokai-256-class  (:foreground ,monokai-256-yellow-hc
-                                        :background ,monokai-256-yellow-lc
+      (,(append '((supports :underline (:style line))) monokai-256-class )
+       (:underline (:style line :color ,monokai-256-orange)))
+      (,monokai-256-class  (:foreground ,monokai-256-orange
+                                        :background ,monokai-256-background
                                         :weight bold
                                         :underline t))))
 
    `(flycheck-info
-     ((,(append '((supports :underline (:style wave))) monokai-class)
-       (:underline (:style wave :color ,monokai-blue)
-                   :inherit unspecified))
-      (,monokai-class (:foreground ,monokai-blue-hc
-                                   :background ,monokai-blue-lc
+     ((,(append '((supports :underline (:style line))) monokai-class)
+       (:underline (:style line :color ,monokai-blue)))
+      (,monokai-class (:foreground ,monokai-blue
+                                   :background ,monokai-background
                                    :weight bold
                                    :underline t))
-      (,(append '((supports :underline (:style wave))) monokai-256-class )
-       (:underline (:style wave :color ,monokai-256-blue)
-                   :inherit unspecified))
-      (,monokai-256-class  (:foreground ,monokai-256-blue-hc
-                                        :background ,monokai-256-blue-lc
+      (,(append '((supports :underline (:style line))) monokai-256-class )
+       (:underline (:style line :color ,monokai-256-blue)))
+      (,monokai-256-class  (:foreground ,monokai-256-blue
+                                        :background ,monokai-256-background
                                         :weight bold
                                         :underline t))))
 
    `(flycheck-fringe-error
-     ((,monokai-class (:foreground ,monokai-red-hc
-                                   :background ,monokai-red-lc
+     ((,monokai-class (:foreground ,monokai-red-l
+                                   :background unspecified
                                    :weight bold))
-      (,monokai-256-class  (:foreground ,monokai-256-red-hc
-                                        :background ,monokai-256-red-lc
+      (,monokai-256-class  (:foreground ,monokai-256-red-l
+                                        :background unspecified
                                         :weight bold))))
 
    `(flycheck-fringe-warning
-     ((,monokai-class (:foreground ,monokai-yellow-hc
-                                   :background ,monokai-yellow-lc
+     ((,monokai-class (:foreground ,monokai-orange-l
+                                   :background unspecified
                                    :weight bold))
-      (,monokai-256-class  (:foreground ,monokai-256-yellow-hc
-                                        :background ,monokai-256-yellow-lc
+      (,monokai-256-class  (:foreground ,monokai-256-orange-l
+                                        :background unspecified
                                         :weight bold))))
 
    `(flycheck-fringe-info
-     ((,monokai-class (:foreground ,monokai-blue-hc
-                                   :background ,monokai-blue-lc
+     ((,monokai-class (:foreground ,monokai-blue-l
+                                   :background unspecified
                                    :weight bold))
-      (,monokai-256-class  (:foreground ,monokai-256-blue-hc
-                                        :background ,monokai-256-blue-lc
+      (,monokai-256-class  (:foreground ,monokai-256-blue-l
+                                        :background unspecified
                                         :weight bold))))
 
    ;; flyspell
@@ -3218,16 +3212,20 @@ Also affects 'linum-mode' background."
    ;; linum-mode
    `(linum
      ((,monokai-class (:foreground ,monokai-line-number
-                                   :background ,monokai-fringe-bg))
+                                   :background ,monokai-fringe-bg
+                                   :underline nil))
       (,monokai-256-class  (:foreground ,monokai-256-line-number
-                                        :background ,monokai-256-fringe-bg))))
+                                        :background ,monokai-256-fringe-bg
+                                        :underline nil))))
 
    ;; linum-relative-current-face
    `(linum-relative-current-face
      ((,monokai-class (:foreground ,monokai-line-number
-                                   :background ,monokai-highlight-line))
+                                   :background ,monokai-highlight-line
+                                   :underline nil))
       (,monokai-256-class  (:foreground ,monokai-256-line-number
-                                        :background 
,monokai-256-highlight-line))))
+                                        :background ,monokai-256-highlight-line
+                                        :underline nil))))
 
    ;; lusty-explorer
    `(lusty-directory-face



reply via email to

[Prev in Thread] Current Thread [Next in Thread]