diff options
Diffstat (limited to 'elpa/doom-themes-20220504.1557/doom-homage-black-theme.el')
| -rw-r--r-- | elpa/doom-themes-20220504.1557/doom-homage-black-theme.el | 210 |
1 files changed, 210 insertions, 0 deletions
diff --git a/elpa/doom-themes-20220504.1557/doom-homage-black-theme.el b/elpa/doom-themes-20220504.1557/doom-homage-black-theme.el new file mode 100644 index 0000000..e214b8f --- /dev/null +++ b/elpa/doom-themes-20220504.1557/doom-homage-black-theme.el @@ -0,0 +1,210 @@ +;;; doom-homage-black-theme.el --- pitch-black theme version of homage-white -*- lexical-binding: t; no-byte-compile: t; -*- +;;; +;;; Commentary: +;;; +;;; Theme is (manually) inverted homage-white theme with a focus of having +;;; pitch-black backgrounds. I'm also incorporated a several ideas from jbeans +;;; theme (synic/jbeans-emacs). + +(require 'doom-themes) + +;; +(defgroup doom-homage-black-theme nil + "Options for the `doom-homage-black' theme." + :group 'doom-themes) + +(defcustom doom-homage-black-padded-modeline doom-themes-padded-modeline + "If non-nil, adds a 4px padding to the mode-line. Can be an integer to +determine the exact padding." + :group 'doom-homage-black-theme + :type '(choice integer boolean)) + +;; +(def-doom-theme doom-homage-black + "A light theme inspired by Atom One" + + ;; name default 256 16 + ((bg '("#000000" nil nil )) + (bg-alt '("#000000" nil nil )) + (base0 '("#1B2229" "black" "black" )) + (base1 '("#1c1f24" "#1e1e1e" "brightblack" )) + (base2 '("#202328" "#2e2e2e" "brightblack" )) + (base3 '("#23272e" "#262626" "brightblack" )) + (base4 '("#3f444a" "#3f3f3f" "brightblack" )) + (base5 '("#5B6268" "#525252" "brightblack" )) + (base6 '("#73797e" "#6b6b6b" "brightblack" )) + (base7 '("#9ca0a4" "#979797" "brightblack" )) + (base8 '("#DFDFDF" "#dfdfdf" "white" )) + (fg '("#bbc2cf" "#bfbfbf" "brightwhite" )) + (fg-alt '("#5B6268" "#2d2d2d" "white" )) + + (grey base5) + (red '("#ff6c6b" "#ff6655" "red" )) + (orange '("#b4916d" "#b4916d" "brightred" )) + (green '("#98be65" "#99bb66" "green" )) + (teal '("#4db5bd" "#44b9b1" "brightgreen" )) + (yellow '("#ECBE7B" "#ECBE7B" "yellow" )) + (blue '("#0170bf" "#0170bf" "brightblue" )) + (dark-blue '("#003c64" "#0170bf" "blue" )) + (magenta '("#c678dd" "#c678dd" "brightmagenta")) + (violet '("#a9a1e1" "#a9a1e1" "magenta" )) + (cyan '("#46D9FF" "#46D9FF" "brightcyan" )) + (dark-cyan '("#5699AF" "#5699AF" "cyan" )) + + ;; face categories -- required for all themes + (highlight blue) + (vertical-bar (doom-darken base2 0.1)) + (selection dark-blue) + (builtin fg) + (comments green) + (doc-comments (doom-darken comments 0.15)) + (constants fg) + (functions blue) + (keywords fg) + (methods fg) + (operators fg) + (type fg) + (strings orange) + (variables fg) + (numbers orange) + (region `(,(doom-darken (car dark-blue) 0.1) ,@(doom-darken (cdr base0) 0.3))) + (error red) + (warning yellow) + (success green) + (vc-modified orange) + (vc-added green) + (vc-deleted red) + + ;; custom categories + (-modeline-bright t) + (-modeline-pad + (when doom-homage-black-padded-modeline + (if (integerp doom-homage-black-padded-modeline) doom-homage-black-padded-modeline 4))) + + (modeline-fg nil) + (modeline-fg-alt (doom-blend violet base4 (if -modeline-bright 0.5 0.2))) + + (modeline-bg + (if -modeline-bright + (doom-darken base2 0.05) + base1)) + (modeline-bg-l + (if -modeline-bright + (doom-darken base2 0.1) + base2)) + (modeline-bg-inactive (doom-darken bg 0.1)) + (modeline-bg-inactive-l `(,(doom-darken (car bg-alt) 0.05) ,@(cdr base1)))) + + ;;;; Base theme face overrides + ((font-lock-builtin-face :inherit 'bold :foreground base8) + ((font-lock-doc-face &override) :slant 'italic) + (font-lock-function-name-face :inherit 'bold :foreground base8) + (font-lock-keyword-face :inherit 'bold :foreground base8) + (font-lock-type-face :inherit 'bold :foreground base8) + ((hl-line &override) :background (doom-darken highlight 0.75)) + ((line-number &override) :foreground (doom-lighten base4 0.15)) + ((line-number-current-line &override) :foreground base8) + (mode-line + :background modeline-bg :foreground modeline-fg + :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg))) + (mode-line-inactive + :background modeline-bg-inactive :foreground modeline-fg-alt + :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-inactive))) + (mode-line-emphasis :foreground (if -modeline-bright base8 highlight)) + (tooltip :background base1 :foreground fg) + ((secondary-selection &override) :background base0) + + ;;;; centaur-tabs + (centaur-tabs-unselected :background bg-alt :foreground base4) + ;;;; css-mode <built-in> / scss-mode + (css-proprietary-property :foreground orange) + (css-property :foreground green) + (css-selector :foreground blue) + ;;;; doom-modeline + (doom-modeline-bar :background (if -modeline-bright modeline-bg highlight)) + ;;;; ediff <built-in> + (ediff-current-diff-A :foreground red :background (doom-lighten red 0.8)) + (ediff-current-diff-B :foreground green :background (doom-lighten green 0.8)) + (ediff-current-diff-C :foreground blue :background (doom-lighten blue 0.8)) + (ediff-current-diff-Ancestor :foreground teal :background (doom-lighten teal 0.8)) + ;;;; magit + ((magit-diff-hunk-heading &override) :foreground fg :background bg-alt :bold bold) + ((magit-diff-hunk-heading-highlight &override) :foreground base8 :background bg-alt :bold bold) + (magit-blame-heading :foreground orange :background bg-alt) + (magit-diff-removed :foreground (doom-darken red 0.2) :background (doom-blend red bg 0.1)) + (magit-diff-removed-highlight :foreground red :background (doom-blend red bg 0.2) :bold bold) + ;;;; markdown-mode + (markdown-markup-face :foreground base5) + (markdown-header-face :inherit 'bold :foreground red) + ((markdown-code-face &override) :background base1) + (mmm-default-submode-face :background base1) + ;;;; mu4e + (mu4e-highlight-face :background bg :inherit 'bold) + ;;;; helm + (helm-candidate-number :background blue :foreground bg) + ;;;; ivy + ;; bg/fg are too close + ((ivy-minibuffer-match-face-1 &override) :foreground (doom-lighten grey 0.70)) + ;;;; ivy-posframe + (ivy-posframe :background base0) + ;;;; lsp-mode + (lsp-ui-doc-background :background base0) + (lsp-face-highlight-read :background (doom-blend red bg 0.3)) + (lsp-face-highlight-textual :inherit 'lsp-face-highlight-read) + (lsp-face-highlight-write :inherit 'lsp-face-highlight-read) + ;;;; outline <built-in> + ((outline-1 &override) :foreground fg) + ((outline-2 &override) :foreground fg) + ((outline-3 &override) :foreground fg) + ((outline-4 &override) :foreground fg) + ((outline-5 &override) :foreground fg) + ((outline-6 &override) :foreground fg) + ((outline-7 &override) :foreground fg) + ((outline-8 &override) :foreground fg) + ;;;; org <built-in> + ;; make unfinished cookie & todo keywords bright to grab attention + ((org-todo &override) :foreground red) + ;; make tags and dates to have pretty box around them + ((org-tag &override) :foreground fg :background base1 + :box `(:line-width -1 :color ,base5 :style 'released-button)) + ((org-date &override) :foreground fg :background base1 + :box `(:line-width -1 :color ,base5 :style 'released-button)) + ;; Make drawers and special keywords (like scheduled) to be very bleak + ((org-special-keyword &override) :foreground grey) + ((org-drawer &override) :foreground grey) + ;; Make ellipsis as bleak as possible and reset underlines/boxing + (org-ellipsis :underline nil :box nil :foreground fg :background bg) + ;; Make blocks have a slightly different background + ((org-block &override) :background base1) + ((org-block-begin-line &override) :foreground fg :slant 'italic) + ((org-quote &override) :background base1) + ((org-table &override) :foreground fg) + ;; org-agendamode: make "unimportant" things like distant deadlines and + ;; things scheduled for today to be bleak. + (org-upcoming-deadline :foreground base8) + (org-upcoming-distant-deadline :foreground fg) + (org-scheduled :foreground fg) + (org-scheduled-today :foreground fg) + (org-scheduled-previously :foreground base8) + ;;;; solaire-mode + (solaire-mode-line-face + :inherit 'mode-line + :background modeline-bg-l + :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-l))) + (solaire-mode-line-inactive-face + :inherit 'mode-line-inactive + :background modeline-bg-inactive-l + :box (if -modeline-pad `(:line-width ,-modeline-pad :color ,modeline-bg-inactive-l))) + ;;;; swiper + ;; bg/fg are too close + ((swiper-match-face-1 &override) :background fg :foreground bg) + ((swiper-line-face &override) :background dark-blue :foreground fg) + ;;;; web-mode + (web-mode-current-element-highlight-face :background dark-blue :foreground bg) + ;;;; wgrep <built-in> + (wgrep-face :background base1)) + + ;;;; Base theme variable overrides- + ()) + +;;; doom-homage-black-theme.el ends here |