dotfiles/emacs/.emacs.d/elpa/doom-themes-20260821.1111/doom-meltbus-theme.el

472 lines
22 KiB
EmacsLisp

;;; doom-meltbus-theme.el --- a dark (mostly) monochromatic theme -*- lexical-binding: t; no-byte-compile: t; -*-
;;
;; Added: November 20, 2021 (#683)
;; Author: spacefrogg <https://github.com/spacefrogg>
;; Maintainer:
;; Source: https://github.com/equinusocio/vsc-material-theme
;;
;;; Commentary:
;;; Code:
(require 'doom-themes)
;;
;;; Variables
(defgroup doom-meltbus-theme nil
"Options for the `meltbus' theme."
:group 'doom-themes)
(defcustom doom-meltbus-hl-line t
"If non-nil, highlight the current line with an underline."
:group 'doom-meltbus-theme
:type 'boolean)
(defcustom doom-meltbus-uniform-font-size nil
"If non-nil, all faces use the basic font size."
:group 'doom-meltbus-theme
:type 'boolean)
;;
;;; Theme definition
(def-doom-theme doom-meltbus
"A dark mostly monochromatic theme inspired by the eltbus theme.
Colours are only used to distinguish states and priorities, and to
highlight interactive elements."
;; default 256 16
((bg '("black" "black" "black"))
(fg '("#dddddd" "#dddddd" "white"))
(bg-alt '("black" "black" "black"))
(fg-alt '("#dddddd" "#dddddd" "white"))
(base0 '("black" "black" "black"))
(base1 '("#111111" "#111111" "brightblack"))
(base2 '("#353535" "#333333" "brightblack"))
(base3 '("#464646" "#444444" "brightblack"))
(base4 '("#686868" "#666666" "brightblack"))
(base5 '("#8a8a8a" "#888888" "brightblack"))
(base6 '("#acacac" "#aaaaaa" "brightblack"))
(base7 '("#cecece" "#cccccc" "brightblack"))
(base8 '("#efefef" "#eeeeee" "white"))
(grey base4)
(red '("#f88080" "#ff8888" "red"))
(dark-red '("#b22222" "#bb2222" "red"))
(orange '("#da8548" "#dd8844" "brightred"))
(green '("#448844" "#448844" "green"))
(teal '("#c0f860" "#aaffaa" "brightgreen"))
(yellow '("#cdad00" "#ccaa00" "yellow"))
(blue '("#87afff" "#88aaff" "brightblue"))
(dark-blue '("#6c8ccc" "#6688cc" "blue"))
(magenta '("#db7093" "#ee6688" "brightmagenta"))
(violet '("#a9a1e1" "#a9a1e1" "magenta"))
(cyan '("#3fc3e5" "#33ccee" "brightcyan"))
(dark-cyan '("#5699af" "#5599ff" "cyan"))
(white '("#ffffff" "#ffffff" "white"))
;; faded colors for running text
(faded-red '("#fac7c7" "#ffcccc" "red"))
(faded-blue '("#abc7ff" "#aaccff" "brightblue"))
(faded-green '("#7cab7c" "#77aa77" "green"))
(faded-yellow '("#dcc54c" "#ddcc44" "yellow"))
(faded-magenta '("#e59ab3" "#ee99bb" "brightmagenta"))
(faded-cyan '("#7de4ff" "#77eeff" "brightcyan"))
;; "universal syntax classes"; *mandatory*
(highlight blue)
(vertical-bar base1)
(selection base3)
(builtin base5)
(comments base4)
(doc-comments base5)
(constants base5)
(functions fg)
(keywords fg)
(methods fg)
(operators base5)
(type base6)
(strings base6)
(variables fg)
(numbers fg)
(region base2)
(error red)
(warning orange)
(success green)
(vc-modified orange)
(vc-added faded-green)
(vc-deleted faded-red)
(vc-conflict magenta)
;; theme-local variables
(almost-invisible base3))
;; Base theme face overrides
(((cursor &override) :background base7)
(region :inverse-video t)
(lazy-highlight :foreground base0 :background (doom-darken highlight 0.1))
(hl-line :underline doom-meltbus-hl-line)
((link &override) :weight 'normal :underline 'unspecified :foreground highlight)
(link-visited :inherit 'link)
(minibuffer-prompt :foreground base5 :background base2 :weight 'bold)
(mode-line-emphasis :foreground fg :weight 'bold :distant-foreground bg)
(mode-line-highlight :foreground fg :weight 'bold :distant-foreground bg)
(mode-line-inactive :foreground base5)
;;;; adoc
(adoc-align-face :inherit 'adoc-meta-face)
(adoc-anchor-face :inherit 'adoc-meta-face)
(adoc-attribute-face :inherit 'adoc-meta-face :slant 'italic)
(adoc-bold-face :inherit 'bold)
(adoc-code-face :inherit 'font-lock-string-face)
(adoc-emphasis-face :inherit 'italic)
(adoc-gen-face :foreground functions)
(adoc-language-info-face :inherit 'adoc-secondary-text-face)
(adoc-language-keyword-face :inherit 'adoc-secondary-text-face)
((adoc-list-face &inherit org-list-dt))
((adoc-markup-face &inherit org-code))
(adoc-meta-face :foreground constants)
(adoc-meta-hide-face :inherit 'adoc-meta-face)
(adoc-preprocessor-face :inherit 'adoc-secondary-text-face)
(adoc-secondary-text-face :foreground builtin)
((adoc-table-face &inherit org-table))
((adoc-title-0-face &inherit org-document-title))
((adoc-title-1-face &inherit outline-1))
((adoc-title-2-face &inherit outline-2))
((adoc-title-3-face &inherit outline-3))
((adoc-title-4-face &inherit outline-4))
((adoc-title-5-face &inherit outline-5))
(adoc-value-face :inherit 'adoc-meta-face)
((adoc-verbatim-face &inherit org-verbatim))
(adoc-warning-face :foreground warning)
;;;; ansi-term <built-in>
;; Fix bright black producing full black making some text unreadable.
(ansi-color-bright-black :foreground base3 :background base3)
;;;; compilation <built-in>
(compilation-line-number :foreground fg :weight 'bold)
;;;; coq
(coq-solve-tactics-face :foreground highlight)
;;;; custom <built-in>
((custom-button &override) :foreground highlight)
((custom-button-unraised &override) :foreground comments)
((custom-button-pressed-unraised &override) :background comments)
((custom-button-pressed &override) :background highlight)
((custom-button-mouse &override) :background highlight)
((custom-variable-button &override) :foreground fg)
(custom-saved :inherit 'custom-state)
(custom-modified :inherit 'custom-changed)
(custom-variable-tag :foreground fg)
((custom-visibility &override) :foreground fg)
(custom-group-tag :foreground base8 :weight 'bold)
(custom-group-tag-1 :foreground fg)
(custom-group-subtitle :foreground fg)
((custom-invalid &override) :foreground error)
(custom-state :foreground green)
(custom-changed :foreground orange)
;;;; diff <built-in>
(diff-added :foreground vc-added)
(diff-changed :foreground vc-modified)
(diff-header :foreground fg :weight 'bold)
(diff-hunk-header :foreground base7 :background base3)
(diff-file-header :foreground fg :background base3 :weight 'bold)
(diff-refine-added :foreground bg :background vc-added :distant-foreground fg)
(diff-refine-changed :foreground bg :background vc-modified :distant-foreground fg)
(diff-refine-removed :foreground bg :background vc-deleted :distant-foreground fg)
(diff-removed :foreground vc-deleted)
;;;; dired <built-in>
(dired-header :foreground doc-comments :weight 'bold)
(dired-mark :foreground builtin)
(dired-marked :foreground orange :weight 'bold)
(dired-symlink :foreground doc-comments :weight 'bold)
;;;; diredfl
(diredfl-deletion :inherit 'dired-mark)
(diredfl-deletion-file-name :inherit 'dired-flagged)
(diredfl-flag-mark :inherit 'dired-mark)
(diredfl-flag-mark-line :inherit 'dired-marked)
(diredfl-read-priv :foreground fg)
(diredfl-symlink :foreground cyan :weight 'bold)
(diredfl-date-time :foreground base6)
;;;; doom-modeline
(doom-modeline-bar :background fg :foreground bg)
(doom-modeline-bar-inactive :background base4 :foreground bg)
(doom-modeline-info :foreground fg :weight 'bold)
(doom-modeline-lsp-running :inherit 'doom-modeline-info)
(doom-modeline-evil-insert-state :foreground green)
(doom-modeline-evil-emacs-state :foreground cyan)
(doom-modeline-evil-normal-state :foreground base5)
(doom-modeline-evil-visual-state :foreground white)
(doom-modeline-evil-operator-state :inherit 'doom-modeline-evil-visual-state)
;;;; ediff <built-in>
(ediff-current-diff-A :background base2 :inherit 'diff-removed)
(ediff-current-diff-B :background base2 :inherit 'diff-added)
(ediff-current-diff-C :background base2 :inherit 'diff-changed)
(ediff-fine-diff-A :inherit 'diff-refine-removed)
(ediff-fine-diff-B :inherit 'diff-refine-added)
(ediff-fine-diff-C :inherit 'diff-refine-changed)
(ediff-even-diff-A :background base3)
(ediff-even-diff-B :background base3)
(ediff-even-diff-C :background base3)
(ediff-odd-diff-A :background base3)
(ediff-odd-diff-B :background base3)
(ediff-odd-diff-C :background base3)
;;;; embark
(embark-target :underline t)
(embark-keybinding :foreground builtin)
;;;; evil
((evil-ex-substitute-replacement &override) :foreground cyan)
;;;; evil-snipe
((evil-snipe-first-match-face &override) :background bg)
;;;; flycheck
(flycheck-error :underline `(:style wave :color ,error))
(flycheck-info :underline `(:style wave :color ,success))
(flycheck-warning :underline `(:style wave :color ,warning))
;;;; flymake
(flymake-error :underline `(:style wave :color ,error))
(flymake-note :underline `(:style wave :color ,success))
(flymake-warning :underline `(:style wave :color ,warning))
;;;; flx-ido
((flx-highlight-face &override) :foreground highlight)
;;;; git-commit (part of magit)
((git-commit-keyword &override) :foreground keywords)
(git-commit-comment-branch-local :inherit 'magit-branch-local)
(git-commit-comment-branch-remote :inherit 'magit-branch-remote)
(git-commit-comment-detached :foreground warning)
(git-commit-comment-file :foreground doc-comments)
;;;; magit
(magit-blame-hash :foreground fg)
(magit-blame-date :foreground base6)
(magit-blame-heading :inherit 'magit-log-author :background base3 :extend t)
(magit-branch-current :foreground fg :weight 'bold :underline t)
(magit-branch-local :foreground bg :background fg :weight 'bold :distant-foreground fg)
(magit-branch-remote :foreground fg :weight 'bold)
(magit-diff-added :inherit 'diff-added)
(magit-diff-added-highlight :inherit 'magit-diff-context-highlight :foreground vc-added)
(magit-diff-base :foreground (doom-darken orange 0.2))
(magit-diff-base-highlight :foreground orange)
(magit-diff-context-highlight :foreground base7 :background base1)
(magit-diff-file-heading-selection :inherit 'magit-diff-hunk-heading-selection)
(magit-diff-hunk-heading :inherit 'diff-hunk-header)
(magit-diff-hunk-heading-highlight :inherit 'diff-file-header)
(magit-diff-hunk-heading-selection :inherit 'magit-diff-hunk-heading-highlight :foreground base7)
(magit-diff-lines-heading :inherit 'magit-diff-hunk-heading-highlight)
(magit-diff-removed :inherit 'diff-removed)
(magit-diff-removed-highlight :inherit 'magit-diff-context-highlight :foreground vc-deleted)
(magit-diff-whitespace-warning :foreground bg :background vc-deleted)
(magit-diffstat-added :inherit 'diff-added)
(magit-diffstat-removed :inherit 'diff-removed)
(magit-header-line :background base2 :foreground base6 :weight 'bold :box `(:line-width 3 :color ,base2))
(magit-filename :foreground fg)
(magit-item-highlight :weight 'bold)
(magit-log-author :foreground fg)
(magit-log-date :foreground fg)
(magit-section-heading :weight 'bold :extend t)
(magit-section-highlight :background base1)
(magit-section-heading-selection :foreground base7 :weight 'bold)
(magit-tag :foreground vc-added)
;;;; marginalia
((marginalia-date &inherit diredfl-date-time))
(marginalia-documentation :foreground fg)
(marginalia-size :inherit 'marginalia-date)
((marginalia-file-priv-no &inherit diredfl-no-priv))
((marginalia-file-priv-dir &inherit diredfl-dir-priv))
((marginalia-file-priv-exec &inherit diredfl-exec-priv))
((marginalia-file-priv-link &inherit diredfl-link-priv))
((marginalia-file-priv-rare &inherit diredfl-rare-priv))
((marginalia-file-priv-rare &inherit diredfl-rare-priv))
((marginalia-file-priv-read &inherit diredfl-read-priv))
((marginalia-file-priv-other &inherit diredfl-other-priv))
((marginalia-file-priv-write &inherit diredfl-write-priv))
;;;; markdown <modes:markdown-mode,gfm-mode>
(markdown-header-face :inherit 'bold :foreground fg)
(markdown-metadata-key-face :foreground builtin)
(markdown-list-face :foreground builtin)
(markdown-link-face :foreground fg)
(markdown-url-face :inherit 'link)
(markdown-italic-face :inherit 'italic)
(markdown-bold-face :inherit 'bold)
((markdown-blockquote-face &inherit org-quote))
((markdown-code-face &inherit org-code))
;;;; message <built-in>
(message-cited-text-1 :foreground base7 :background base2)
(message-cited-text-2 :foreground base5 :background base2)
(message-cited-text-3 :inherit 'message-cited-text-1)
(message-cited-text-4 :inherit 'message-cited-text-2)
(message-header-cc :foreground fg :background bg :weight 'bold)
(message-header-name :foreground base5)
(message-header-newsgroups :inherit 'message-cited-text)
(message-header-other :foreground almost-invisible)
(message-header-subject :inherit 'message-cited-text)
(message-header-to :inherit 'message-header-cc)
(message-header-xheader :inherit 'message-header-other)
(message-header-mml :inherit 'message-header-other)
(message-header-separator :foreground highlight)
;;;; mu4e
(mu4e-header-face :foreground base4)
(mu4e-header-highlight-face :inherit 'hl-line)
(mu4e-thread-fold-face :inherit 'mu4e-header-face)
(mu4e-unread-face :foreground fg)
(mu4e-flagged-face :foreground yellow)
(mu4e-related-face :inherit 'mu4e-header-face :slant 'italic)
(mu4e-replied-face :foreground faded-blue)
;;;; neotree
((neo-vc-added-face &inherit treemacs-git-added-face))
((neo-vc-conflict-face &inherit treemacs-git-conflict-face))
((neo-vc-modified-face &inherit treemacs-git-modified-face))
(doom-neotree-data-file-face :foreground comments)
;;;; notmuch
(notmuch-crypto-signature-bad :foreground error)
(notmuch-crypto-signature-good :foreground almost-invisible)
(notmuch-crypto-signature-unknown :foreground warning)
(notmuch-crypto-signature-good-key :foreground error)
(notmuch-crypto-decryption :foreground error)
(notmuch-message-summary-face :background base2)
(notmuch-search-matching-authros :foreground highlight)
(notmuch-tag-face :inherit 'message-header-separator)
(notmuch-tree-match-tag-face :inherit 'notmuch-tag-face)
(notmuch-tree-match-author-face :inherit 'notmuch-tree-match-tag-face)
;;;; lsp-ui
(lsp-ui-peek-header :foreground base8 :background base3 :bold bold)
(lsp-ui-peek-highlight :inherit 'lsp-ui-peek-header :background base4 :foreground fg)
(lsp-ui-peek-list :background base2)
(lsp-ui-peek-peek :background bg)
(lsp-ui-peek-line-number :foreground fg)
(lsp-ui-peek-selection :foreground bg :background highlight :bold bold)
(lsp-ui-sideline-code-action :foreground base8)
(lsp-ui-sideline-current-symbol :inherit 'lsp-ui-sideline-code-action)
;;;; org <built-in> <modes:org-mode>
(org-code :foreground doc-comments)
(org-date :inherit 'link)
(org-date-selected :inherit 'lazy-highlight)
(org-document-title :height (if doom-meltbus-uniform-font-size 1.0 1.7)
:foreground (if doom-meltbus-uniform-font-size base8 doc-comments)
:weight 'bold :slant 'normal)
(org-done :foreground success :weight 'bold)
(org-done-keyword-face :foreground success)
(org-drawer :foreground comments)
(org-block :foreground fg :background 'unspecified :weight 'normal :slant 'normal :underline 'unspecified :inverse-video 'unspecified)
(org-block-begin-line :foreground base5 :weight 'bold)
(org-block-end-line :inherit 'org-block-begin-line)
(org-footnote :foreground doc-comments)
(org-formula :foreground doc-comments)
(org-list-dt :foreground base8 :weight 'bold)
;; org-level-N inherits from outline-N
(org-property-value :foreground fg)
(org-table :foreground fg)
(org-todo :foreground error :weight 'bold)
(org-todo-keyword-face :foreground error)
(org-verbatim :inherit 'org-code)
;;;; org-agenda <built-in>
(org-agenda-clocking :background base3)
; (org-agenda-date :foreground fg)
; (org-agenda-date-today :inherit 'default :bold bold :underline t)
; (org-agenda-date-weekend :inherit 'default :foreground (doom-darken (face-foreground 'org-agenda-date) 0.3))
(org-scheduled-previously :foreground base6 :bold bold)
;;;; org-journal <modes:org-journal-mode>
(org-journal-calendar-entry-face :foreground fg :slant 'italic :underline t)
(org-journal-calendar-scheduled-face :foreground bg :background fg :slant 'italic )
;;;; org-ref
(org-ref-acronym-face :foreground red)
(org-ref-cite-face :foreground green)
(org-ref-glossary-face :foreground dark-red)
(org-ref-label-face :foreground blue)
(org-ref-ref-face :foreground teal)
(+org-todo-cancel :inherit '(font-lock-doc-face org-todo)) ; Subdue canceled TODOs
;;;; outline
(outline-1 :height (if doom-meltbus-uniform-font-size 1.0 1.5)
:background base1 :weight 'bold)
(outline-2 :height (if doom-meltbus-uniform-font-size 1.0 1.4)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.2) 'unspecified)
:background base1 :weight 'bold)
(outline-3 :height (if doom-meltbus-uniform-font-size 1.0 1.3)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.3) 'unspecified)
:background base1 :weight 'bold)
(outline-4 :height (if doom-meltbus-uniform-font-size 1.0 1.2)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.4) 'unspecified)
:background base1 :weight 'bold)
(outline-5 :height (if doom-meltbus-uniform-font-size 1.0 1.1)
:background base1
:weight (if doom-meltbus-uniform-font-size 'normal 'bold))
(outline-6 :height (if doom-meltbus-uniform-font-size 1.0 1.0)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.2) 'unspecified)
:background base1
:weight (if doom-meltbus-uniform-font-size 'normal 'bold))
(outline-7 :height (if doom-meltbus-uniform-font-size 1.0 1.0)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.3) 'unspecified)
:background base1 :weight 'normal)
(outline-8 :height (if doom-meltbus-uniform-font-size 1.0 1.0)
:foreground (if doom-meltbus-uniform-font-size (doom-darken fg 0.4) 'unspecified)
:background base1 :weight 'normal)
;;;; pkgbuild-mode <modes:pkgbuild-mode>
(pkgbuild-error-face :underline `(:style wave :color ,error))
;;;; popup
(popup-tip-face :inherit 'popup-face :foreground fg :background bg :bold bold :underline t)
;;;; proof
(proof-boring-face :foreground comments)
(proof-debug-message-face :foreground doc-comments)
(proof-error-face :foreground error)
(proof-locked-face :background (doom-lighten base1 0.05))
(proof-queue-face :foreground warning)
(proof-warning-face :foreground warning)
(proof-script-highlight-error-face :foreground error :weight 'bold)
(proof-script-sticky-error-face :foreground error)
(proof-tactics-name-face :foreground builtin)
(proof-tacticals-name-face :foreground keywords :weight 'bold)
(proof-eager-annotation-face :foreground success)
;;;; rainbow-delimiters
(rainbow-delimiters-depth-1-face :foreground green)
(rainbow-delimiters-depth-2-face :foreground dark-red)
(rainbow-delimiters-depth-3-face :foreground red)
(rainbow-delimiters-depth-4-face :inherit 'rainbow-delimiters-depth-1-face)
(rainbow-delimiters-depth-5-face :inherit 'rainbow-delimiters-depth-2-face)
(rainbow-delimiters-depth-6-face :inherit 'rainbow-delimiters-depth-3-face)
(rainbow-delimiters-depth-7-face :inherit 'rainbow-delimiters-depth-1-face)
(rainbow-delimiters-depth-8-face :inherit 'rainbow-delimiters-depth-2-face)
(rainbow-delimiters-depth-9-face :inherit 'rainbow-delimiters-depth-3-face)
(rainbow-delimiters-base-face :inherit 'default)
;;;; smerge-tool
((smerge-markers &inherit magit-diff-conflict-heading))
(smerge-lower :inherit 'diff-added)
(smerge-upper :inherit 'diff-removed)
(smerge-base :inherit 'diff-changed)
(smerge-refined-added :inherit 'diff-refine-added)
(smerge-refined-removed :inherit 'diff-refine-removed)
;;;; treemacs
(treemacs-git-conflict-face :foreground vc-conflict)
(treemacs-git-modified-face :foreground vc-modified)
;;;; vertico
((vertico-current &inherit embark-target))
(vertico-group-title :inherit 'shadow)
;;;; vterm
((vterm-color-black &override) :background base0 :foreground base3)
((vterm-color-red &override) :background red :foreground faded-red)
((vterm-color-blue &override) :background blue :foreground faded-blue)
((vterm-color-green &override) :background green :foreground faded-green)
((vterm-color-yellow &override) :background yellow :foreground faded-yellow)
((vterm-color-magenta &override) :background magenta :foreground faded-magenta)
((vterm-color-cyan &override) :background cyan :foreground faded-cyan)
((vterm-color-white &override) :background base7 :foreground base8)
(vterm-color-bright-black :foreground base3 :background base3)
(vterm-color-bright-red :foreground faded-red :background faded-red)
(vterm-color-bright-blue :foreground faded-blue :background faded-blue)
(vterm-color-bright-green :foreground faded-green :background faded-green)
(vterm-color-bright-yellow :foreground faded-yellow :background faded-yellow)
(vterm-color-bright-magenta :foreground faded-magenta :background faded-magenta)
(vterm-color-bright-cyan :foreground faded-cyan :background faded-cyan)
(vterm-color-bright-white :foreground base8 :background base8)
;;;; wgrep
(wgrep-face :background base2)
;;;; which-key
(which-key-key-face :foreground base5)
(which-key-group-description-face :foreground base5)
(which-key-command-description-face :foreground fg :weight 'bold)
(which-key-local-map-description-face :foreground fg))
;; Base theme variable overrides
())
;;; doom-meltbus-theme.el ends here