[elpa] externals/modus-operandi-theme 5166bc0 92/99: Add org-quote background for "org blocks" option

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 5166bc00ceca22e44d8765296999805476cc167b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add org-quote background for "org blocks" option
    
    This should address issue 68:
    https://gitlab.com/protesilaos/modus-themes/-/issues/68
---
 modus-operandi-theme.el | 6 +++++-
 modus-vivendi-theme.el  | 6 +++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index be7cf5a..e8962a4 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -3010,7 +3010,11 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red)))
    `(org-priority ((,class ,@(modus-operandi-theme-org-todo-block 
magenta-nuanced-bg magenta-nuanced magenta)
                            ,@(modus-operandi-theme-heading-foreground magenta 
magenta-alt-other))))
-   `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim)
+   `(org-quote ((,class ,@(if modus-operandi-theme-org-blocks
+                              (append
+                               (and (>= emacs-major-version 27) '(:extend t))
+                               (list :background bg-dim))
+                            (list :background nil))
                         :foreground ,fg-special-calm :slant 
,modus-theme-slant)))
    `(org-scheduled ((,class :foreground ,fg-special-warm)))
    `(org-scheduled-previously ((,class :foreground ,yellow-alt-other)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index a4f80dc..15fb703 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -3010,7 +3010,11 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red)))
    `(org-priority ((,class ,@(modus-vivendi-theme-org-todo-block 
magenta-nuanced-bg magenta-nuanced magenta)
                            ,@(modus-vivendi-theme-heading-foreground magenta 
magenta-alt-other))))
-   `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim)
+   `(org-quote ((,class ,@(if modus-vivendi-theme-org-blocks
+                              (append
+                               (and (>= emacs-major-version 27) '(:extend t))
+                               (list :background bg-dim))
+                            (list :background nil))
                         :foreground ,fg-special-calm :slant 
,modus-theme-slant)))
    `(org-scheduled ((,class :foreground ,fg-special-warm)))
    `(org-scheduled-previously ((,class :foreground ,yellow-alt-other)))