theme: Tweak

1 files changed, 8 insertions, 7 deletions

diff --git a/lisp/km-theme.el b/lisp/km-theme.el
index 1a52faf..df807f6 100644
--- a/lisp/km-theme.el
+++ b/lisp/km-theme.el
@@ -43,7 +43,8 @@
    '(dired-symlink ((t (:inherit font-lock-constant-face))))
    '(font-latex-math-face ((t (:inherit font-lock-builtin-face))))
    '(font-latex-string-face ((t (:inherit default))))
-   '(font-lock-keyword-face ((t (:foreground "gray33")))) ; Darken a bit (was gray40)
+   '(font-lock-keyword-face ((t (:foreground "#4e5656"))))
+   '(font-lock-comment-face ((t (:foreground "#745f5f"))))
    '(git-annex-dired-annexed-available ((t (:inherit font-lock-type-face))))
    '(git-annex-dired-annexed-unavailable ((t (:inherit font-lock-string-face))))
    '(gnus-button ((t (:inherit default))))
@@ -95,7 +96,7 @@
    '(magit-reflog-rebase ((t (:inherit font-lock-string-face))))
    '(magit-reflog-remote ((t (:inherit font-lock-variable-name-face))))
    '(magit-reflog-reset ((t (:inherit font-lock-warning-face))))
-   '(magit-section-heading ((t (:inherit font-lock-constant-face :weight bold))))
+   '(magit-section-heading ((t (:inherit font-lock-keyword-face :weight bold))))
    `(magit-section-highlight ((t (:background ,bg))))
    '(magit-section-secondary-heading ((t (:inherit default))))
    '(match ((t (:inherit default :background "PaleGreen1"))))
@@ -103,21 +104,21 @@
    '(org-agenda-calendar-event ((t (:inherit font-lock-function-name-face))))
    '(org-agenda-calendar-sexp ((t (:inherit font-lock-variable-name-face))))
    '(org-agenda-clocking ((t (:inherit lazy-highlight))))
-   '(org-agenda-date ((t (:foreground "gray40"))))
+   '(org-agenda-date ((t (:inherit font-lock-keyword-face))))
    '(org-agenda-date-today ((t (:weight bold))))
    '(org-agenda-date-weekend ((t (:inherit org-agenda-date))))
    `(org-agenda-restriction-lock ((t (:background ,bg))))
-   '(org-agenda-structure ((t (:foreground "gray60"))))
+   '(org-agenda-structure ((t (:inherit font-lock-comment-face))))
    '(org-date ((t (:inherit font-lock-type-face))))
-   '(org-done ((t (:foreground "#557755" :background "gray95"))))
+   `(org-done ((t (:foreground ,diff-added))))
    '(org-scheduled ((t (:inherit default))))
    '(org-scheduled-today ((t (:inherit org-scheduled))))
-   '(org-todo ((t (:inherit font-lock-string-face :background "gray95"))))
+   `(org-todo ((t (:foreground ,diff-removed))))
    '(org-upcoming-deadline ((t (:inherit default))))
    '(org-warning ((t (:inherit font-lock-string-face))))
    '(outline-1 ((t (:inherit font-lock-doc-face))))
    '(outline-2 ((t (:inherit font-lock-function-name-face))))
-   '(outline-3 ((t (:inherit font-lock-constant-face))))
+   '(outline-3 ((t (:inherit font-lock-keyword-face))))
    `(whitespace-indentation ((t (:background ,bg-dark))))
    `(whitespace-trailing ((t (:background ,bg-dark))))))