[elpa] externals/standard-themes aa0f899043 64/74: Use bespoke faces for fringe indicators

[ELPA Syncer]

branch: externals/standard-themes
commit aa0f8990437040f2094719f220803c3e3faea04a
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Use bespoke faces for fringe indicators
---
 standard-themes.el | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/standard-themes.el b/standard-themes.el
index 3545a8924b..fa0f8b6aa3 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -724,6 +724,13 @@ Helper function for `standard-themes-preview-colors'."
    :package-version '(standard-themes . "1.0.0")
    :group 'standard-themes-faces))
 
+(dolist (scope '(info error warning))
+  (custom-declare-face
+   (intern (format "standard-themes-fringe-%s" scope))
+   nil (format "Face for %s fringe indicators (e.g. `flymake', `flycheck')." 
scope)
+   :package-version '(standard-themes . "1.0.0")
+   :group 'standard-themes-faces))
+
 ;; This produces `standard-themes-underline-error' and the like
 (dolist (scope '(info error warning))
   (custom-declare-face
@@ -755,6 +762,9 @@ Helper function for `standard-themes-preview-colors'."
     `(standard-themes-underline-error ((,c :underline (:style wave :color 
,underline-err))))
     `(standard-themes-underline-info ((,c :underline (:style wave :color 
,underline-info))))
     `(standard-themes-underline-warning ((,c :underline (:style wave :color 
,underline-warning))))
+    `(standard-themes-fringe-error ((,c :inherit bold :background ,bg-red 
:foreground ,fg-main)))
+    `(standard-themes-fringe-info ((,c :inherit bold :background ,bg-green 
:foreground ,fg-main)))
+    `(standard-themes-fringe-warning ((,c :inherit bold :background ,bg-yellow 
:foreground ,fg-main)))
 ;;;; all basic faces
 ;;;;; absolute essentials
     `(bold ((,c :weight bold)))
@@ -1186,9 +1196,9 @@ Helper function for `standard-themes-preview-colors'."
     `(eww-form-textarea ((,c :inherit eww-form-text)))
 ;;;; flycheck
     `(flycheck-error ((,c :inherit standard-themes-underline-error)))
-    `(flycheck-fringe-error ((,c :inherit standard-themes-mark-delete)))
-    `(flycheck-fringe-info ((,c :inherit standard-themes-mark-select)))
-    `(flycheck-fringe-warning ((,c :inherit standard-themes-mark-other)))
+    `(flycheck-fringe-error ((,c :inherit standard-themes-fringe-error)))
+    `(flycheck-fringe-info ((,c :inherit standard-themes-fringe-info)))
+    `(flycheck-fringe-warning ((,c :inheri standard-themes-fringe-warning)))
     `(flycheck-info ((,c :inherit standard-themes-underline-info)))
     `(flycheck-warning ((,c :inherit standard-themes-underline-warning)))
 ;;;; flymake
@@ -1944,9 +1954,9 @@ Helper function for `standard-themes-preview-colors'."
       '( ,red-graph-0-bg ,green-graph-0-bg ,yellow-graph-0-bg ,blue-graph-0-bg 
,magenta-graph-0-bg ,cyan-graph-0-bg
          ,red-graph-1-bg ,green-graph-1-bg ,yellow-graph-1-bg ,blue-graph-1-bg 
,magenta-graph-1-bg ,cyan-graph-1-bg))
 ;;;; flymake fringe indicators
-    `(flymake-error-bitmap '(flymake-double-exclamation-mark 
standard-themes-mark-delete))
-    `(flymake-warning-bitmap '(exclamation-mark standard-themes-mark-other))
-    `(flymake-note-bitmap '(exclamation-mark standard-themes-mark-select))
+    `(flymake-error-bitmap '(flymake-double-exclamation-mark 
standard-themes-fringe-error))
+    `(flymake-warning-bitmap '(exclamation-mark 
standard-themes-fringe-warning))
+    `(flymake-note-bitmap '(exclamation-mark standard-themes-fringe-info))
 ;;;; ibuffer
     `(ibuffer-deletion-face 'standard-themes-mark-delete)
     `(ibuffer-filter-group-name-face 'bold)