From deeb830d42f248a9aee41fdd99bd6562bccbd4a4 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 22 Nov 2016 16:18:13 -0800 Subject: [Emacs] some small adjustments to the theme. --- emacs.d/lib/basic-theme.el | 44 ++++++++++++++++++++++++++++---------------- 1 file changed, 28 insertions(+), 16 deletions(-) diff --git a/emacs.d/lib/basic-theme.el b/emacs.d/lib/basic-theme.el index 4d49e69..6987c4d 100644 --- a/emacs.d/lib/basic-theme.el +++ b/emacs.d/lib/basic-theme.el @@ -7,9 +7,7 @@ (defvar basic-faces `(default font-lock-builtin-face - font-lock-function-name-face - font-lock-keyword-face - font-lock-negation-char-face + font-lock-constant-face font-lock-function-name-face font-lock-keyword-face font-lock-negation-char-face @@ -20,23 +18,37 @@ font-lock-type-face font-lock-variable-name-face font-lock-warning-face - sh-quoted-exec - fringe)) + fringe + sh-quoted-exec)) (let ((bg "#fdfaf5") - (black "#000") - (white "#fff")) + (fg "#000000") + (black "#000000") + (white "#ffffff")) (apply 'custom-theme-set-faces 'basic - `(default ((t (:foreground ,black :background ,bg)))) - `(mode-line ((t (:foreground: black :background "#CACACA" :box nil)))) - `(mode-line-inactive ((t (:foreground "grey20" :background "grey90" :box nil)))) - `(cursor ((t (:background ,black :foreground ,white)))) - `(hl-line ((t (:background "#e5e4e2")))) - `(font-lock-comment-face ((t (:foreground ,black :weight bold)))) - `(font-lock-comment-delimiter-face ((t (:foreground ,black :weight bold)))) - `(font-lock-doc-face ((t (:foreground ,black :weight bold)))) - `(region ((t (:background "#f9b593")))) + `(default ((t (:foreground ,fg :background ,bg)))) + `(cursor ((t (:background ,fg :foreground ,bg)))) `(highlight ((t (:background "darkseagreen2")))) + + `(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)))) + + `(show-paren-match ((t (:background "turquoise")))) + `(hl-line ((t (:background "#e5e4e2")))) + + `(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)))) + (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,black))))) basic-faces))) ;;;###autoload -- cgit 1.4.1