summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck.cuny@gmail.com>2016-11-22 16:18:13 -0800
committerFranck Cuny <franck.cuny@gmail.com>2016-11-22 16:18:13 -0800
commitdeeb830d42f248a9aee41fdd99bd6562bccbd4a4 (patch)
treeb35e8dd96a0c6a7cb431ef70ff294805b6384514
parent[Emacs] Fix hook for Makefile. (diff)
downloademacs.d-deeb830d42f248a9aee41fdd99bd6562bccbd4a4.tar.gz
[Emacs] some small adjustments to the theme.
-rw-r--r--emacs.d/lib/basic-theme.el44
1 files 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