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

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

[elpa] externals/modus-operandi-theme 46c99ed 057/112: Do not set the de


From: Stefan Monnier
Subject: [elpa] externals/modus-operandi-theme 46c99ed 057/112: Do not set the default background in non-GUI Emacs
Date: Mon, 30 Mar 2020 15:59:38 -0400 (EDT)

branch: externals/modus-operandi-theme
commit 46c99ed272fe884722dd91d5b81188e6f3037efb
Author: Protesilaos Stavrou <address@hidden>
Commit: Protesilaos Stavrou <address@hidden>

    Do not set the default background in non-GUI Emacs
    
    This patch was provided by David Edmondson in issue 26:
    https://gitlab.com/protesilaos/modus-themes/-/issues/26
---
 modus-operandi-theme.el | 3 ++-
 modus-vivendi-theme.el  | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 0aa8eac..52d1af2 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -526,7 +526,8 @@ between foreground and background is >= 7:1)."
    ;;;;;;;;;;;;;;;;;;;
    ;;; default constructs
    ;;;; absolute essentials
-   `(default ((,class (:background ,bg-main :foreground ,fg-main))))
+   `(default ((,class (:background ,(when (display-graphic-p) bg-main)
+                                   :foreground ,fg-main))))
    `(cursor ((,class (:background ,fg-main))))
    `(fringe ((,class (:background ,bg-main :foreground ,fg-main))))
    ;;;; basic and/or ungrouped styles
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index aa14f2e..9421e31 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -526,7 +526,8 @@ between foreground and background is >= 7:1)."
    ;;;;;;;;;;;;;;;;;;;
    ;;; default constructs
    ;;;; absolute essentials
-   `(default ((,class (:background ,bg-main :foreground ,fg-main))))
+   `(default ((,class (:background ,(when (display-graphic-p) bg-main)
+                                   :foreground ,fg-main))))
    `(cursor ((,class (:background ,fg-main))))
    `(fringe ((,class (:background ,bg-main :foreground ,fg-main))))
    ;;;; basic and/or ungrouped styles



reply via email to

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