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

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

[nongnu] elpa/apropospriate-theme 9728f37 021/118: add support for `visi


From: ELPA Syncer
Subject: [nongnu] elpa/apropospriate-theme 9728f37 021/118: add support for `visible-mark`
Date: Thu, 21 Oct 2021 18:02:14 -0400 (EDT)

branch: elpa/apropospriate-theme
commit 9728f3712fa25adf45a44280cb61e5c4d11c3a56
Author: justin talbott <justin@waymondo.com>
Commit: justin talbott <justin@waymondo.com>

    add support for `visible-mark`
---
 README.md        |  1 +
 apropospriate.el | 10 ++++++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index aaca5df..1e7cc0c 100644
--- a/README.md
+++ b/README.md
@@ -64,3 +64,4 @@ Apropospriate supports all the usual `prog-mode` derived 
packages as well as som
 * Tabbar
 * Org Mode
 * Guide Key
+* Visible Mark
diff --git a/apropospriate.el b/apropospriate.el
index 4f9a992..5114503 100644
--- a/apropospriate.el
+++ b/apropospriate.el
@@ -74,7 +74,9 @@
          (base00+3 (if (eq variant 'light)
                        (color-darken-name base00 10)
                      (color-lighten-name base00 10)))
-         (mode-line-box-color (if (eq variant 'light) base00+3 base00-3))
+         (light-emphasis (if (eq variant 'light) base00+3 base00-3))
+         (light-emphasis-1 (if (eq variant 'light) base00+2 base00-2))
+         (light-emphasis-2 (if (eq variant 'light) base00+1 base00-1))
          (highlight-line-color (if (eq variant 'light) base00-1 base00+1)))
 
     (apply 'custom-theme-set-faces theme-name
@@ -128,7 +130,7 @@
               (font-lock-variable-name-face :foreground ,teal)
               (font-lock-warning-face :foreground ,red)
 
-              (mode-line :box (:line-width 4 :color ,mode-line-box-color 
:style nil)
+              (mode-line :box (:line-width 4 :color ,light-emphasis :style nil)
                          :height 0.9 :background ,base00-2 :foreground ,base03)
               (mode-line-inactive :box (:line-width 4 :color ,base00+1 :style 
nil)
                                   :height 0.9 :background ,base00+1 
:foreground ,base02)
@@ -156,6 +158,10 @@
               (ag-match-face :inherit isearch-lazy-highlight-face)
               (custom-state :foreground ,green)
 
+              (visible-mark-active :foreground unspecified :background 
,light-emphasis)
+              (visible-mark-face1 :background ,light-emphasis-1)
+              (visible-mark-face2 :background ,light-emphasis-2)
+
               (wgrep-face :background ,base00+2)
               (wgrep-file-face :background ,base00+1)
               (wgrep-delete-face :foreground ,red)



reply via email to

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