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

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

[nongnu] elpa/zenburn-theme 2db3a34f50: Add SLY faces


From: ELPA Syncer
Subject: [nongnu] elpa/zenburn-theme 2db3a34f50: Add SLY faces
Date: Tue, 23 Aug 2022 00:59:29 -0400 (EDT)

branch: elpa/zenburn-theme
commit 2db3a34f50ec4dd6e2cae92bab639ccfc742b3cc
Author: Thomas Jost <schnouki@schnouki.net>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Add SLY faces
    
    Basic faces are the same as SLIME. For sly-stickers, only
    sly-stickers-placed-face needs to be set, as the other ones only inherit 
from
    hi-blue, hi-pink and hi-green.
---
 CHANGELOG.md     |  1 +
 zenburn-theme.el | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d04d56792d..00544e3f1e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,7 @@
 * Add `tab-bar-mode` support.
 * [#367](https://github.com/bbatsov/zenburn-emacs/pull/367): Brighten org 
headline levels 7 and 8 to improve contrast and possibly help those with color 
blindness.
 * Add support for `ansi-color` faces.
+* Add support for SLY faces.
 
 ## 2.7 (2020-11-21)
 
diff --git a/zenburn-theme.el b/zenburn-theme.el
index a5c0941eed..b9974c373f 100644
--- a/zenburn-theme.el
+++ b/zenburn-theme.el
@@ -1486,6 +1486,29 @@ Also bind `class' to ((class color) (min-colors 89))."
       (t
        (:underline ,zenburn-green))))
    `(slime-highlight-face ((t (:inherit highlight))))
+;;;;; SLY
+   `(sly-mrepl-output-face ((t (:foreground ,zenburn-red))))
+   `(sly-error-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,zenburn-red)))
+      (t
+       (:underline ,zenburn-red))))
+   `(sly-warning-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,zenburn-orange)))
+      (t
+       (:underline ,zenburn-orange))))
+   `(sly-style-warning-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,zenburn-yellow)))
+      (t
+       (:underline ,zenburn-yellow))))
+   `(sly-note-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,zenburn-green)))
+      (t
+       (:underline ,zenburn-green))))
+   `(sly-stickers-placed-face ((t (:foreground ,zenburn-fg :background 
,zenburn-bg+3))))
 ;;;;; solaire
    `(solaire-default-face ((t (:inherit default :background ,zenburn-bg-08))))
    `(solaire-minibuffer-face ((t (:inherit default :background 
,zenburn-bg-08))))



reply via email to

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