branch: elpa/moe-theme
commit 5388b255281457db56355b0105a903da7a47747f
Author: kuanyui <[email protected]>
Commit: kuanyui <[email protected]>
Add faces for menu-bar in Emacs 24.4.
---
moe-dark-theme.el | 7 +++++++
moe-light-theme.el | 12 +++++++++---
2 files changed, 16 insertions(+), 3 deletions(-)
diff --git a/moe-dark-theme.el b/moe-dark-theme.el
index 030b4e80ad..03a0f7bdf3 100644
--- a/moe-dark-theme.el
+++ b/moe-dark-theme.el
@@ -29,6 +29,7 @@ Moe, moe, kyun!")
(red-0 "#ff4b4b") (red-00 "#ffafaf")
(magenta-0 "#ffafd7") (magenta-00 "#ffd7ff")
(orange-0 "#ffaf87") (orange-00 "#ffd787") (orange-000 "#ffd7af")
+ (linum-dark "#87875f") (linum-light "#d7d7af")
)
@@ -748,6 +749,12 @@ Moe, moe, kyun!")
`(haskell-interactive-face-prompt ((,class (:foreground ,green-01
:background ,black-2-5 :bold t))))
`(haskell-interactive-face-result ((,class (:foreground ,blue-1))))
+ ;; tty-menu
+ `(menu ((,class (:foreground ,black-1 :background ,black-3))))
+ `(tty-menu-disabled-face ((,class (:foreground ,black-2-5 :background
,black-3))))
+ `(tty-menu-enabled-face ((,class (:foreground ,white-0 :background ,black-3
:bold t))))
+ `(tty-menu-selected-face ((,class (:background ,blue-3))))
+
;; Custom
`(custom-button ((,class (:background ,blue-0 :foreground ,blue-3
:box (:line-width 1 :style
released-button)))))
diff --git a/moe-light-theme.el b/moe-light-theme.el
index 12716abc96..1d36390559 100644
--- a/moe-light-theme.el
+++ b/moe-light-theme.el
@@ -29,6 +29,7 @@ Moe, moe, kyun!")
(red-0 "#ff4b4b") (red-00 "#ffafaf") (red-000 "#ffd5e5")
(magenta-0 "#ffafd7") (magenta-00 "#ffd7ff")
(orange-0 "#ffaf87") (orange-00 "#ffd787") (orange-000 "#ffd7af")
+ (linum-dark "#87875f") (linum-light "#d7d7af")
)
(custom-theme-set-faces
@@ -43,9 +44,9 @@ Moe, moe, kyun!")
`(cursor ((,class (:background ,black-5))))
;; Highlighting faces
- `(fringe ((,class (:foreground ,black-1 :background "#d7d7af"))))
- `(linum ((,class (:foreground "#87875f" :background "#d7d7af"))))
- `(linum-highlight-face ((,class (:background "#87875f" :foreground
"#d7d7af"))))
+ `(fringe ((,class (:foreground ,black-1 :background ,linum-light))))
+ `(linum ((,class (:foreground ,linum-dark :background ,linum-light))))
+ `(linum-highlight-face ((,class (:background ,linum-dark :foreground
,linum-light))))
`(highlight ((,class (:background ,green-0))))
`(hl-line ((,class (:background ,green-00)))) ; Embedded strings of IM
(e.g. fcitx) would be very unreadable... orz
`(highlight-symbol-face ((,class (:background ,green-00))))
@@ -753,6 +754,11 @@ Moe, moe, kyun!")
`(haskell-interactive-face-prompt ((,class (:foreground ,black-4
:background ,yellow-0 :bold t))))
`(haskell-interactive-face-result ((,class (:foreground ,blue-2))))
+ `(menu ((,class (:foreground ,linum-light :background ,linum-dark))))
+ `(tty-menu-disabled-face ((,class (:foreground ,black-1 :background
,black-3))))
+ `(tty-menu-enabled-face ((,class (:foreground ,white-0 :background ,black-3
:bold t))))
+ `(tty-menu-selected-face ((,class (:background ,blue-3))))
+
;; Custom
`(custom-button ((,class (:foreground ,white-0 :background ,black-3
