; Theme updates

; * etc/themes/tsdh-light-theme.el (tsdh-light): Theme updates.

1 files changed, 16 insertions, 5 deletions

diff --git a/etc/themes/tsdh-light-theme.el b/etc/themes/tsdh-light-theme.el
index f57bf92560a..dac7ab888b5 100644
--- a/etc/themes/tsdh-light-theme.el
+++ b/etc/themes/tsdh-light-theme.el
@@ -20,11 +20,12 @@
 ;;; Code:
 
 (deftheme tsdh-light
-  "Minor tweaks to the Emacs white-background defaults.
+  "A light Emacs theme.
 Used and created by Tassilo Horn.")
 
 (custom-theme-set-faces
  'tsdh-light
+ '(default ((t (:background "#fafafa" :foreground "#383a42"))))
  '(Info-quoted ((t (:underline "gray40" :weight bold))))
  '(aw-leading-char-face ((t (:background "red" :foreground "white" :weight bold))))
  '(default ((t (:background "white" :foreground "black"))))
@@ -35,8 +36,18 @@ Used and created by Tassilo Horn.")
  '(diff-indicator-removed ((t (:inherit diff-indicator-changed))))
  '(diff-removed ((t (:inherit diff-changed :background "sandy brown"))))
  '(dired-directory ((t (:inherit font-lock-function-name-face :weight bold))))
+ '(font-lock-builtin-face ((t (:foreground "#e44649"))))
+ '(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face :weight bold))))
+ '(font-lock-comment-face ((t (:foreground "#a0a1a7"))))
+ '(font-lock-doc-face ((t (:inherit font-lock-string-face :slant italic))))
+ '(font-lock-function-name-face ((t (:foreground "#0184bc"))))
+ '(font-lock-keyword-face ((t (:foreground "#a626a4"))))
+ '(font-lock-negation-char-face ((t (:weight bold))))
  '(font-lock-regexp-grouping-backslash ((t (:inherit bold :foreground "black"))))
  '(font-lock-regexp-grouping-construct ((t (:inherit bold :foreground "black"))))
+ '(font-lock-string-face ((t (:foreground "#50a14f"))))
+ '(font-lock-type-face ((t (:foreground "#c18401"))))
+ '(font-lock-variable-name-face ((t (:foreground "#e45649"))))
  '(gnus-button ((t (:inherit button))))
  '(gnus-header-name ((t (:box (:line-width 1 :style released-button) :weight bold))))
  '(gnus-group-mail-1 ((t (:inherit gnus-group-mail-1-empty :weight bold))))
@@ -51,11 +62,11 @@ Used and created by Tassilo Horn.")
  '(gnus-group-news-2-empty ((t (:foreground "tomato3"))))
  '(gnus-group-news-3 ((t (:inherit gnus-group-news-3-empty :weight bold))))
  '(gnus-group-news-3-empty ((t (:foreground "tomato2")))) '(header-line ((t (:inherit mode-line :inverse-video t))))
- '(hl-line ((t (:background "grey95"))))
+ '(hl-line ((t (:background "#f0f0f1"))))
  '(hl-paren-face ((t (:weight bold))) t)
- '(minibuffer-prompt ((t (:background "yellow" :foreground "medium blue" :box (:line-width -1 :color "red" :style released-button) :weight bold))))
- '(mode-line ((t (:background "wheat" :foreground "black" :box (:line-width 1 :color "tan") :family "DejaVu Sans"))))
- '(mode-line-inactive ((t (:inherit mode-line :foreground "dark gray"))))
+ '(minibuffer-prompt ((t (:foreground "#0184bc" :family "DeJaVu" :box (:line-width -1 :style released-button) :weight bold))))
+ '(mode-line ((t (:background "#f0f0f1" :box (:line-width 1 :color "#383a42")))))
+ '(mode-line-inactive ((t (:inherit mode-line :foreground "#a0a1a7"))))
  '(org-agenda-date ((t (:inherit org-agenda-structure))))
  '(org-agenda-date-today ((t (:inherit org-agenda-date :underline t))))
  '(org-agenda-date-weekend ((t (:inherit org-agenda-date :foreground "dark green"))))