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

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

[nongnu] elpa/anti-zenburn-theme d6979a4 086/151: From zenburn-emacs: ad


From: ELPA Syncer
Subject: [nongnu] elpa/anti-zenburn-theme d6979a4 086/151: From zenburn-emacs: add SLIME colours and ido-indicator face.
Date: Thu, 21 Oct 2021 18:01:29 -0400 (EDT)

branch: elpa/anti-zenburn-theme
commit d6979a4a92ef49e5fff1ab758efae19749f25cb0
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    From zenburn-emacs: add SLIME colours and ido-indicator face.
---
 anti-zenburn-theme.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/anti-zenburn-theme.el b/anti-zenburn-theme.el
index 4a0406c..7a54c4b 100644
--- a/anti-zenburn-theme.el
+++ b/anti-zenburn-theme.el
@@ -475,6 +475,7 @@
    `(ido-first-match ((t (:foreground ,azenburn-dark-blue :weight bold))))
    `(ido-only-match ((t (:foreground ,azenburn-light-blue :weight bold))))
    `(ido-subdir ((t (:foreground ,azenburn-dark-blue))))
+   `(ido-indicator ((t (:foreground ,azenburn-dark-blue :background 
,azenburn-blue-4))))
 
    ;; iedit-mode
    `(iedit-occurrence ((t (:background ,azenburn-bg+2 :weight bold))))
@@ -771,7 +772,25 @@
    '(sml-modeline-end-face ((t :inherit default :width condensed)))
 
    ;; SLIME
-   `(slime-repl-inputed-output-face ((t (:foreground ,azenburn-blue))))
+   `(slime-repl-output-face ((t (:foreground ,azenburn-blue))))
+   `(slime-repl-inputed-output-face ((t (:foreground ,azenburn-violet))))
+   `(slime-error-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,azenburn-blue)))
+      ((t (:underline ,azenburn-blue)))))
+   `(slime-warning-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,azenburn-light-blue)))
+      ((t (:underline ,azenburn-light-blue)))))
+   `(slime-style-warning-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,azenburn-dark-blue)))
+      ((t (:underline ,azenburn-dark-blue)))))
+   `(slime-note-face
+     ((((supports :underline (:style wave)))
+       (:underline (:style wave :color ,azenburn-violet)))
+      ((t (:underline ,azenburn-violet)))))
+   '(slime-highlight-face ((t (:inherit highlight))))
 
    ;; speedbar
    `(speedbar-button-face ((t (:foreground ,azenburn-violet+2))))



reply via email to

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