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

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

[nongnu] elpa/spacemacs-theme af46476073 079/336: Support for shm (fix #


From: ELPA Syncer
Subject: [nongnu] elpa/spacemacs-theme af46476073 079/336: Support for shm (fix #13)
Date: Fri, 14 Jan 2022 10:59:15 -0500 (EST)

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

    Support for shm (fix #13)
---
 spacemacs-common.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/spacemacs-common.el b/spacemacs-common.el
index 0819634cca..42b1fca7e6 100644
--- a/spacemacs-common.el
+++ b/spacemacs-common.el
@@ -87,7 +87,9 @@
         (org-h2-bg     (if (eq variant 'dark) (if (display-graphic-p) 
"#293235" "#262626") (if (display-graphic-p) "#edf2e9" "#ffffff")))
         (org-h3-bg     (if (eq variant 'dark) (if (display-graphic-p) 
"#2d332c" "#262626") (if (display-graphic-p) "#f1f3e1" "#ffffff")))
         (org-h4-bg     (if (eq variant 'dark) (if (display-graphic-p) 
"#32322c" "#262626") (if (display-graphic-p) "#f6f1e1" "#ffffff")))
-        (highlight     (if (eq variant 'dark) (if (display-graphic-p) 
"#333c45" "#444444") (if (display-graphic-p) "#d3d3e7" "#d7d7ff"))))
+        (highlight     (if (eq variant 'dark) (if (display-graphic-p) 
"#333c45" "#444444") (if (display-graphic-p) "#d3d3e7" "#d7d7ff")))
+        (green-bg      (if (eq variant 'dark) (if (display-graphic-p) 
"#29422d" "#262626") (if (display-graphic-p) "#dae6d0" "#ffffff")))
+        (red-bg        (if (eq variant 'dark) (if (display-graphic-p) 
"#512e31" "#262626") (if (display-graphic-p) "#eed9d2" "#ffffff"))))
 
     (custom-theme-set-faces
      theme-name
@@ -431,6 +433,10 @@
      `(rainbow-delimiters-depth-8-face ((,class :foreground ,str)))
      `(rainbow-delimiters-unmatched-face ((,class :foreground ,war)))
 
+;;;;; shm
+     `(shm-current-face ((,class (:background ,green-bg))))
+     `(shm-quarantine-face ((,class (:background ,red-bg))))
+
 ;;;;; smartparens
      `(sp-pair-overlay-face ((,class (:background ,highlight :foreground 
nil))))
      `(sp-show-pair-match-face ((,class (:foreground ,(if (eq variant 'dark) 
suc red) :weight bold :underline t))))



reply via email to

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