[elpa] externals/modus-operandi-theme 80fb704 070/112: Add an option for using a background for fringes

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 80fb704f83291acb23d646aa3e2463d78e5e3c93
Author: Anders Johansson <address@hidden>
Commit: Anders Johansson <address@hidden>

    Add an option for using a background for fringes
---
 modus-operandi-theme.el | 8 +++++++-
 modus-vivendi-theme.el  | 8 +++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 92e7c67..cf12eb8 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -338,6 +338,10 @@ between foreground and background is >= 7:1)."
   "Font size that is slightly larger than `modus-theme-scale-3'."
   :type 'number)
 
+(defcustom modus-operandi-theme-visible-fringes nil
+  "Use a visible style for fringes."
+  :type 'boolean)
+
 ;; Define colour palette.  Each colour must have a >= 7:1 contrast
 ;; ratio relative to the foreground/background colour it is rendered
 ;; against.
@@ -536,7 +540,9 @@ between foreground and background is >= 7:1)."
    ;;;; absolute essentials
    `(default ((,class (:background ,bg-main :foreground ,fg-main))))
    `(cursor ((,class (:background ,fg-main))))
-   `(fringe ((,class (:background ,bg-main :foreground ,fg-main))))
+   `(fringe ((,class (:background
+                      ,(if modus-operandi-theme-visible-fringes bg-inactive 
bg-main)
+                      :foreground ,fg-main))))
    ;;;; basic and/or ungrouped styles
    `(error ((,class (:foreground ,red :weight bold))))
    `(escape-glyph ((,class (:inherit modus-theme-refine-blue :weight bold))))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 22e5c54..02dbabe 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -338,6 +338,10 @@ between foreground and background is >= 7:1)."
   "Font size that is slightly larger than `modus-theme-scale-3'."
   :type 'number)
 
+(defcustom modus-vivendi-theme-visible-fringes nil
+  "Use a visible style for fringes."
+  :type 'boolean)
+
 ;; Define colour palette.  Each colour must have a >= 7:1 contrast
 ;; ratio relative to the foreground/background colour it is rendered
 ;; against.
@@ -536,7 +540,9 @@ between foreground and background is >= 7:1)."
    ;;;; absolute essentials
    `(default ((,class (:background ,bg-main :foreground ,fg-main))))
    `(cursor ((,class (:background ,fg-main))))
-   `(fringe ((,class (:background ,bg-main :foreground ,fg-main))))
+   `(fringe ((,class (:background
+                      ,(if modus-vivendi-theme-visible-fringes bg-inactive 
bg-main)
+                      :foreground ,fg-main))))
    ;;;; basic and/or ungrouped styles
    `(error ((,class (:foreground ,red :weight bold))))
    `(escape-glyph ((,class (:inherit modus-theme-refine-blue :weight bold))))