;;; simple-theme.el --- Custom theme -*- lexical-binding: t -*-

;;; Commentary:

;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Custom-Themes.html
;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Custom-Themes.html

;;; Code:

(deftheme simple
  "A simple custom theme.
This theme doesn't highlight functions, variables, or keywords.
The only code I like highlighted is comments, strings, and
errors. I use this theme with `font-lock-maximum-decoration' set
to 1 and `font-lock-defaults' set to nil."
  :background-mode 'light
  :kind 'color-scheme)

(custom-theme-set-faces
 'simple
 `(completions-common-part (()))
 `(completions-first-difference (()))
 `(default ((t (:background "white" :foreground "gray15"))))
 `(dired-directory ((t (:foreground "DodgerBlue4"))))
 `(error ((t (:foreground "firebrick3"))))
 `(fill-column-indicator ((t (:foreground "gray90"))))
 `(flycheck-error ((t (:inherit error))))
 `(flycheck-fringe-error ((t (:inherit error))))
 `(flycheck-fringe-warning ((t (:inherit warning))))
 `(flycheck-warning ((t (:inherit warning))))
 `(font-lock-comment-face ((t (:foreground "gray45"))))
 `(font-lock-function-name-face (()))
 `(font-lock-keyword-face (()))
 `(font-lock-string-face ((t (:foreground "DodgerBlue4"))))
 `(font-lock-type-face (()))
 `(font-lock-variable-name-face (()))
 `(fringe ((t (:background "white"))))
 `(gnus-button (())) ; E.g., email addresses and "wrote" in article buffer.
 `(gnus-cite-1 (()))
 `(gnus-cite-2 (()))
 `(gnus-cite-3 (()))
 `(gnus-cite-4 (()))
 `(gnus-cite-5 (()))
 `(gnus-cite-6 (()))
 `(gnus-cite-7 (()))
 `(gnus-cite-8 (()))
 `(gnus-cite-9 (()))
 `(gnus-cite-10 (()))
 `(gnus-cite-11 (()))
 `(gnus-cite-attribution (()))
 `(gnus-header-content (()))
 `(gnus-header-from (()))
 `(gnus-header-name (()))
 `(gnus-header-subject (()))
 `(highlight ((t (:background "gray95")))) ; Link hover.
 `(icomplete-first-match (()))
 `(isearch ((t (:background "green3" :foreground "white"))))
 `(lazy-highlight ((t (:background "magenta3" :foreground "white"))))
 `(link ((t (:foreground "DodgerBlue4"))))
 `(lsp-face-highlight-read ((t (:inherit lsp-face-highlight-textual))))
 `(minibuffer-prompt ((t (:foreground "DodgerBlue4"))))
 `(mode-line ((t (:background "gray85"))))
 `(mode-line-inactive ((t (:background "gray85" :foreground "gray45"))))
 `(mu4e-header-highlight-face ((t (:weight bold))))
 `(mu4e-header-marks-face (()))
 `(mu4e-replied-face (()))
 `(mu4e-system-face (())) ; E.g., `-> "/archive"` in headers buffer.
 `(mu4e-url-number-face ((t (:foreground "white"))))
 `(org-agenda-calendar-event ((t (:inherit org-link))))
 `(org-agenda-date (()))
 `(org-agenda-date-today ((t (:inherit org-agenda-date :weight bold))))
 `(org-agenda-date-weekend ((t (:inherit org-agenda-date))))
 `(org-checkbox-statistics-todo ((t (:inherit org-link))))
 `(org-date ((t (:inherit org-link))))
 `(org-document-info-keyword (()))
 `(org-document-title (()))
 `(org-done (()))
 `(org-drawer ((t (:inherit font-lock-comment-face))))
 `(org-footnote ((t (:inherit org-link))))
 `(org-level-1 (()))
 `(org-level-2 (()))
 `(org-level-3 (()))
 `(org-macro ((t (:inherit font-lock-comment-face))))
 `(org-property-value ((t (:inherit font-lock-comment-face))))
 `(org-scheduled ((t (:inherit org-agenda-calendar-event))))
 `(org-scheduled-today ((t (:inherit org-agenda-calendar-event))))
 `(org-scheduled-previously ((t (:inherit org-agenda-calendar-event))))
 `(org-special-keyword ((t (:inherit font-lock-comment-face))))
 `(org-table (()))
 `(org-tag ((t (:inherit font-lock-comment-face))))
 `(org-todo ((t (:foreground "firebrick3"))))
 `(org-upcoming-deadline ((t (:inherit org-link))))
 `(org-upcoming-distant-deadline ((t (:inherit org-link))))
 `(region ((t (:background "RoyalBlue1" :foreground "white"))))
 `(sh-quoted-exec (()))
 `(shadow ((t (:foreground "gray45"))))
 `(show-paren-match ((t (:inherit isearch))))
 `(warning ((t (:foreground "DarkOrange")))))

(provide-theme 'simple)

;;; simple-theme.el ends here