[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/zenburn-theme 2db3a34f50: Add SLY faces,
ELPA Syncer <=