From 892a44198ebe8f7cdcb318ecb858e27e58e91556 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 6 Dec 2016 17:10:42 -0800 Subject: [Emacs] a few more changes to the theme. --- emacs.d/lib/basic-theme.el | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) (limited to 'emacs.d/lib') diff --git a/emacs.d/lib/basic-theme.el b/emacs.d/lib/basic-theme.el index 6987c4d..66c8ad1 100644 --- a/emacs.d/lib/basic-theme.el +++ b/emacs.d/lib/basic-theme.el @@ -21,35 +21,33 @@ fringe sh-quoted-exec)) -(let ((bg "#fdfaf5") - (fg "#000000") - (black "#000000") - (white "#ffffff")) +(let ((bg "#fdfaf5") + (fg "#000000") + (highlight "#fffaaa") + (modeline-fg "#ffffff") + (modeline-bg "#e0ebf5")) + (apply 'custom-theme-set-faces 'basic `(default ((t (:foreground ,fg :background ,bg)))) `(cursor ((t (:background ,fg :foreground ,bg)))) - `(highlight ((t (:background "darkseagreen2")))) + `(highlight ((t (:background ,highlight)))) `(whitespace-indentation ((t (:background "LightYellow" :foreground "lightgray")))) - `(mode-line ((t (:foreground: ,fg :background "#f9b593" :box nil)))) - `(mode-line-inactive ((t (:foreground "grey20" :background "grey90" :box nil)))) - `(powerline-active1 ((t (:background "grey22" :foreground "white" :inherit mode-line)))) - `(powerline-active2 ((t (:background "grey40" :foreground "white" :inherit mode-line)))) - `(powerline-inactive1 ((t (:background "grey22" :foreground "white" :inherit mode-line-inactive)))) - `(powerline-inactive2 ((t (:background "grey40" :foreground "white" :inherit mode-line-inactive)))) + `(mode-line ((t (:foreground: ,fg :background ,modeline-bg)))) + `(mode-line-inactive ((t (:foreground "grey20" :background "grey90")))) `(show-paren-match ((t (:background "turquoise")))) - `(hl-line ((t (:background "#e5e4e2")))) + `(hl-line ((t (:background "grey90")))) `(font-lock-comment-face ((t (:foreground ,fg :weight bold)))) `(font-lock-comment-delimiter-face ((t (:foreground ,fg :weight bold)))) `(font-lock-doc-face ((t (:foreground ,fg :weight bold)))) `(font-lock-doc-string-face ((t (:foreground ,fg :weight bold)))) - `(region ((t (:background "#f9b593" :foreground ,fg)))) + `(region ((t (:background ,highlight :foreground ,fg)))) - (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,black))))) basic-faces))) + (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,fg))))) basic-faces))) ;;;###autoload (when load-file-name -- cgit 1.4.1