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

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

[nongnu] elpa/moe-theme a7e92bd05a 234/352: Add Neo-tree support.


From: ELPA Syncer
Subject: [nongnu] elpa/moe-theme a7e92bd05a 234/352: Add Neo-tree support.
Date: Fri, 7 Jan 2022 03:59:27 -0500 (EST)

branch: elpa/moe-theme
commit a7e92bd05a77cbf1ec378713ecfae5c908724e5d
Author: kuanyui <azazabc123@gmail.com>
Commit: kuanyui <azazabc123@gmail.com>

    Add Neo-tree support.
---
 moe-dark-theme.el  |  9 +++++++++
 moe-light-theme.el |  9 +++++++++
 moe-theme.el       | 25 ++++++++++++++++++-------
 3 files changed, 36 insertions(+), 7 deletions(-)

diff --git a/moe-dark-theme.el b/moe-dark-theme.el
index 4aa0756a2e..ebb7cc17a1 100644
--- a/moe-dark-theme.el
+++ b/moe-dark-theme.el
@@ -714,6 +714,15 @@ Moe, moe, kyun!")
    `(compilation-mode-line-run ((,class (:foreground ,orange-4 :background 
,orange-00 :bold t))))
    `(compilation-warning ((,class (:foreground ,orange-3))))
 
+   ;; Neotree
+   `(neo-banner-face ((,class (:foreground ,green-3 :background nil))))
+   `(neo-header-face ((,class (:foreground ,green-1 :background nil))))
+   `(neo-root-dir-face ((,class (:foreground ,magenta-1))))
+   `(neo-button-face ((,class (:foreground ,blue-1 :bold t))))
+   `(neo-dir-link-face ((,class (:foreground ,blue-2 :bold t))))
+   `(neo-expand-btn-face ((,class (:foreground ,blue-3 :background 
,black-2-5))))
+   `(neo-file-link-face ((,class (:foreground ,white-1))))
+
    ;; info
    `(info-header-node ((,class (:foreground ,magenta-2 :bold t))))
    `(info-header-xref ((,class (:foreground ,blue-1 :background nil :bold t))))
diff --git a/moe-light-theme.el b/moe-light-theme.el
index e0639d774d..e821d423dc 100644
--- a/moe-light-theme.el
+++ b/moe-light-theme.el
@@ -708,6 +708,15 @@ Moe, moe, kyun!")
    `(compilation-mode-line-run ((,class (:foreground ,orange-4 :background 
,orange-00 :bold t))))
    `(compilation-warning ((,class (:foreground ,orange-3))))
 
+   ;; Neotree
+   `(neo-banner-face ((,class (:foreground ,green-5 :background ,green-00))))
+   `(neo-header-face ((,class (:foreground ,green-4 :background nil))))
+   `(neo-root-dir-face ((,class (:foreground ,magenta-2))))
+   `(neo-button-face ((,class (:foreground ,blue-1 :bold t))))
+   `(neo-dir-link-face ((,class (:foreground ,blue-2 :bold t))))
+   `(neo-expand-btn-face ((,class (:foreground ,blue-3 :background ,blue-00))))
+   `(neo-file-link-face ((,class (:foreground ,black-4))))
+
    ;; info
    `(info-header-node ((,class (:foreground ,red-3 :bold t))))
    `(info-header-xref ((,class (:foreground ,black-5 ::bold t))))
diff --git a/moe-theme.el b/moe-theme.el
index b07dc00b22..3c536c5f6d 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -250,13 +250,24 @@ Don't setq this manually.")
            (s4 (nth 3 moe-theme-resize-rst-title))
            (s5 (nth 4 moe-theme-resize-rst-title))
            (s6 (nth 5 moe-theme-resize-rst-title)))
-      (progn (require 'rst)
-             (set-face-attribute 'rst-level-1-face nil :height s1)
-             (set-face-attribute 'rst-level-2-face nil :height s2)
-             (set-face-attribute 'rst-level-3-face nil :height s3)
-             (set-face-attribute 'rst-level-4-face nil :height s4)
-             (set-face-attribute 'rst-level-5-face nil :height s5)
-             (set-face-attribute 'rst-level-6-face nil :height s6)))))
+      (require 'rst)
+      (if (facep 'rst-level-1-face)
+         (progn
+           (set-face-attribute 'rst-level-1-face nil :height s1)
+           (set-face-attribute 'rst-level-2-face nil :height s2)
+           (set-face-attribute 'rst-level-3-face nil :height s3)
+           (set-face-attribute 'rst-level-4-face nil :height s4)
+           (set-face-attribute 'rst-level-5-face nil :height s5)
+           (set-face-attribute 'rst-level-6-face nil :height s6))
+       (progn
+         (set-face-attribute 'rst-level-1 nil :height s1)
+         (set-face-attribute 'rst-level-2 nil :height s2)
+         (set-face-attribute 'rst-level-3 nil :height s3)
+         (set-face-attribute 'rst-level-4 nil :height s4)
+         (set-face-attribute 'rst-level-5 nil :height s5)
+         (set-face-attribute 'rst-level-6 nil :height s6))
+       )))
+  )
 
 (defun moe-light ()
   "Load moe-light-theme with your customizations."



reply via email to

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