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

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

[nongnu] elpa/spacemacs-theme 5138eb39f8 152/336: Fix evil search and re


From: ELPA Syncer
Subject: [nongnu] elpa/spacemacs-theme 5138eb39f8 152/336: Fix evil search and replace face (#40)
Date: Fri, 14 Jan 2022 10:59:28 -0500 (EST)

branch: elpa/spacemacs-theme
commit 5138eb39f85ba2a6462e4a3919621315bf8ca98e
Author: nashamri <designernasser@gmail.com>
Commit: nashamri <designernasser@gmail.com>

    Fix evil search and replace face (#40)
---
 spacemacs-common.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/spacemacs-common.el b/spacemacs-common.el
index f7f1b8cf19..063ddd27f6 100644
--- a/spacemacs-common.el
+++ b/spacemacs-common.el
@@ -71,8 +71,8 @@
           spacemacs-theme-custom-colors))
 
 (defun create-spacemacs-theme (variant theme-name)
-  (dyn-let ((class '((class color) (min-colors 89))) ;;                   ~~ 
Dark ~~                                   ~~ Light ~~
-        ;;                                                               GUI   
    TER                                GUI       TER
+  (dyn-let ((class '((class color) (min-colors 89))) ;;              ~~ Dark 
~~                              ~~ Light ~~
+        ;;                                                          GUI       
TER                           GUI       TER
         ;; generic
         (act1          (if (eq variant 'dark) (if (true-color-p) "#222226" 
"#121212") (if (true-color-p) "#e7e5eb" "#d7dfff")))
         (act2          (if (eq variant 'dark) (if (true-color-p) "#5d4d7a" 
"#444444") (if (true-color-p) "#d3d3e7" "#afafd7")))
@@ -283,6 +283,10 @@
      `(eshell-ls-unreadable ((,class (:foreground ,base))))
      `(eshell-prompt ((,class (:foreground ,keyword :inherit bold))))
 
+;;;;; evil
+     `(evil-ex-substitute-matches ((,class (:background ,red-bg :foreground 
,red))))
+     `(evil-ex-substitute-replacement ((,class (:background ,green-bg 
:foreground ,green))))
+
 ;;;;; flycheck
      `(flycheck-error
        ((,(append '((supports :underline (:style line))) class)



reply via email to

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