commit 92558f1c698158a8f945d50a34841a739c0dc2c4
parent eae6bce355419463a9336a97c813c0255d5ba049
Author: Vincent Demeester <vincent@sbr.pm>
Date: Tue, 9 Jul 2024 10:42:02 +0200
tools/emacs: remove packaged or not used themes…
… from the lisp folder.
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
11 files changed, 0 insertions(+), 8244 deletions(-)
diff --git a/tools/emacs/lisp/modus-operandi-deuteranopia-theme.el b/tools/emacs/lisp/modus-operandi-deuteranopia-theme.el
@@ -1,442 +0,0 @@
-;;; modus-operandi-deuteranopia-theme.el --- Deuteranopia-optimized theme with a white background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-operandi-deuteranopia
- "Deuteranopia-optimized theme with a white background.
-This variant is optimized for users with red-green color
-deficiency (deuteranopia). It conforms with the highest
-legibility standard for color contrast between background and
-foreground in any given piece of text, which corresponds to a
-minimum contrast in relative luminance of 7:1 (WCAG AAA
-standard).")
-
- (defconst modus-operandi-deuteranopia-palette
- '(
-;;; Basic values
-
- (bg-main "#ffffff")
- (bg-dim "#f0f0f0")
- (fg-main "#000000")
- (fg-dim "#595959")
- (fg-alt "#193668")
- (bg-active "#c4c4c4")
- (bg-inactive "#e0e0e0")
- (border "#9f9f9f")
-
-;;; Common accent foregrounds
-
- (red "#a60000")
- (red-warmer "#972500")
- (red-cooler "#a0132f")
- (red-faint "#7f0000")
- (red-intense "#d00000")
- (green "#006800")
- (green-warmer "#316500")
- (green-cooler "#00663f")
- (green-faint "#2a5045")
- (green-intense "#008900")
- (yellow "#695500")
- (yellow-warmer "#973300")
- (yellow-cooler "#77492f")
- (yellow-faint "#624416")
- (yellow-intense "#808000")
- (blue "#0031a9")
- (blue-warmer "#3548cf")
- (blue-cooler "#0000b0")
- (blue-faint "#003497")
- (blue-intense "#0000ff")
- (magenta "#721045")
- (magenta-warmer "#8f0075")
- (magenta-cooler "#531ab6")
- (magenta-faint "#7c318f")
- (magenta-intense "#dd22dd")
- (cyan "#005e8b")
- (cyan-warmer "#3f578f")
- (cyan-cooler "#005f5f")
- (cyan-faint "#005077")
- (cyan-intense "#008899")
-
-;;; Uncommon accent foregrounds
-
- (rust "#8a290f")
- (gold "#80601f")
- (olive "#56692d")
- (slate "#2f3f83")
- (indigo "#4a3a8a")
- (maroon "#731c52")
- (pink "#7b435c")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#ff8f88")
- (bg-green-intense "#8adf80")
- (bg-yellow-intense "#f3d000")
- (bg-blue-intense "#bfc9ff")
- (bg-magenta-intense "#dfa0f0")
- (bg-cyan-intense "#a4d5f9")
-
- (bg-red-subtle "#ffcfbf")
- (bg-green-subtle "#b3fabf")
- (bg-yellow-subtle "#fff576")
- (bg-blue-subtle "#ccdfff")
- (bg-magenta-subtle "#ffddff")
- (bg-cyan-subtle "#bfefff")
-
- (bg-red-nuanced "#fff1f0")
- (bg-green-nuanced "#ecf7ed")
- (bg-yellow-nuanced "#fff3da")
- (bg-blue-nuanced "#f3f3ff")
- (bg-magenta-nuanced "#fdf0ff")
- (bg-cyan-nuanced "#ebf6fa")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#f0e0cc")
- (bg-lavender "#dfdbfa")
- (bg-sage "#c0e7d4")
-
-;;; Graphs
-
- (bg-graph-red-0 "#d0b029")
- (bg-graph-red-1 "#e0cab4")
- (bg-graph-green-0 "#8ad080")
- (bg-graph-green-1 "#afdfa5")
- (bg-graph-yellow-0 "#ffcf00")
- (bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7f9fff")
- (bg-graph-blue-1 "#9fc6ff")
- (bg-graph-magenta-0 "#b0b0d0")
- (bg-graph-magenta-1 "#d0dfdf")
- (bg-graph-cyan-0 "#6faad9")
- (bg-graph-cyan-1 "#bfe0ff")
-
-;;; Special purpose
-
- (bg-completion "#c0deff")
- (bg-hover "#97dfed")
- (bg-hover-secondary "#f5d0a0")
- (bg-hl-line "#dae5ec")
- (bg-region "#bdbdbd")
- (fg-region "#000000")
-
- (bg-char-0 "#7feaff")
- (bg-char-1 "#ffaaff")
- (bg-char-2 "#dff000")
-
- (bg-mode-line-active "#d0d6ff")
- (fg-mode-line-active "#0f0f0f")
- (border-mode-line-active "#4f4f74")
- (bg-mode-line-inactive "#e6e6e6")
- (fg-mode-line-inactive "#585858")
- (border-mode-line-inactive "#a3a3a3")
-
- (modeline-err "#603a00")
- (modeline-warning "#454500")
- (modeline-info "#023d92")
-
- (bg-tab-bar "#dfdfdf")
- (bg-tab-current "#ffffff")
- (bg-tab-other "#c2c2c2")
-
-;;; Diffs
-
- (bg-added "#d5d7ff")
- (bg-added-faint "#e6e6ff")
- (bg-added-refine "#babcef")
- (bg-added-fringe "#275acc")
- (fg-added "#303099")
- (fg-added-intense "#0303cc")
-
- (bg-changed "#eecfdf")
- (bg-changed-faint "#f0dde5")
- (bg-changed-refine "#e0b0d0")
- (bg-changed-fringe "#9f6ab0")
- (fg-changed "#6f1343")
- (fg-changed-intense "#7f0f9f")
-
- (bg-removed "#f4f099")
- (bg-removed-faint "#f6f6b7")
- (bg-removed-refine "#f0e56f")
- (bg-removed-fringe "#c0b200")
- (fg-removed "#553d00")
- (fg-removed-intense "#7f6f00")
-
- (bg-diff-context "#f3f3f3")
-
-;;; Paren match
-
- (bg-paren-match "#5fcfff")
- (bg-paren-expression "#efd3f5")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor blue-intense)
-
- (keybind blue-cooler)
- (name blue-cooler)
- (identifier yellow-faint)
-
- (err yellow-warmer)
- (warning yellow)
- (info blue)
-
- (underline-err yellow-intense)
- (underline-warning magenta-faint)
- (underline-note cyan)
-
- (bg-prominent-err bg-yellow-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-magenta-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment yellow-cooler)
- (constant blue-cooler)
- (docstring green-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct yellow-cooler)
- (rx-backslash blue-cooler)
-
-;;;; Accent mappings
-
- (accent-0 blue)
- (accent-1 yellow-warmer)
- (accent-2 cyan)
- (accent-3 magenta-cooler)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue)
- (fg-completion-match-1 yellow-warmer)
- (fg-completion-match-2 cyan)
- (fg-completion-match-3 magenta-cooler)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline yellow-warmer)
- (date-event fg-alt)
- (date-holiday yellow-warmer)
- (date-now blue-faint)
- (date-range fg-alt)
- (date-scheduled yellow-cooler)
- (date-weekday cyan)
- (date-weekend yellow-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited yellow-faint)
- (bg-link-visited unspecified)
- (underline-link-visited yellow-faint)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-warmer)
- (mail-cite-1 yellow)
- (mail-cite-2 cyan-faint)
- (mail-cite-3 yellow-faint)
- (mail-part blue)
- (mail-recipient blue)
- (mail-subject yellow-cooler)
- (mail-other cyan-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-yellow-subtle)
- (fg-mark-delete yellow)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-magenta-subtle)
- (fg-mark-other magenta)
-
-;;;; Prompt mappings
-
- (fg-prompt blue)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan-cooler)
- (prose-done blue)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo yellow-warmer)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 blue)
- (rainbow-1 yellow)
- (rainbow-2 blue-warmer)
- (rainbow-3 yellow-cooler)
- (rainbow-4 blue-cooler)
- (rainbow-5 yellow-warmer)
- (rainbow-6 blue-faint)
- (rainbow-7 yellow-faint)
- (rainbow-8 cyan)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-yellow-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 fg-alt)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-warmer)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-operandi-deuteranopia' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-operandi-deuteranopia-palette-overrides nil
- "Overrides for `modus-operandi-deuteranopia-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-operandi-deuteranopia
- modus-operandi-deuteranopia-palette
- modus-operandi-deuteranopia-palette-overrides)
-
- (provide-theme 'modus-operandi-deuteranopia))
-
-;;;###theme-autoload
-(put 'modus-operandi-deuteranopia 'theme-properties '(:background-mode light :kind color-scheme :family modus))
-
-;;; modus-operandi-deuteranopia-theme.el ends here
diff --git a/tools/emacs/lisp/modus-operandi-theme.el b/tools/emacs/lisp/modus-operandi-theme.el
@@ -1,440 +0,0 @@
-;;; modus-operandi-theme.el --- Elegant, highly legible theme with a white background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-operandi
- "Elegant, highly legible theme with a white background.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
-
- (defconst modus-operandi-palette
- '(
-;;; Basic values
-
- (bg-main "#ffffff")
- (bg-dim "#f0f0f0")
- (fg-main "#000000")
- (fg-dim "#595959")
- (fg-alt "#193668")
- (bg-active "#c4c4c4")
- (bg-inactive "#e0e0e0")
- (border "#9f9f9f")
-
-;;; Common accent foregrounds
-
- (red "#a60000")
- (red-warmer "#972500")
- (red-cooler "#a0132f")
- (red-faint "#7f0000")
- (red-intense "#d00000")
- (green "#006800")
- (green-warmer "#316500")
- (green-cooler "#00663f")
- (green-faint "#2a5045")
- (green-intense "#008900")
- (yellow "#6f5500")
- (yellow-warmer "#884900")
- (yellow-cooler "#7a4f2f")
- (yellow-faint "#624416")
- (yellow-intense "#808000")
- (blue "#0031a9")
- (blue-warmer "#3548cf")
- (blue-cooler "#0000b0")
- (blue-faint "#003497")
- (blue-intense "#0000ff")
- (magenta "#721045")
- (magenta-warmer "#8f0075")
- (magenta-cooler "#531ab6")
- (magenta-faint "#7c318f")
- (magenta-intense "#dd22dd")
- (cyan "#005e8b")
- (cyan-warmer "#3f578f")
- (cyan-cooler "#005f5f")
- (cyan-faint "#005077")
- (cyan-intense "#008899")
-
-;;; Uncommon accent foregrounds
-
- (rust "#8a290f")
- (gold "#80601f")
- (olive "#56692d")
- (slate "#2f3f83")
- (indigo "#4a3a8a")
- (maroon "#731c52")
- (pink "#7b435c")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#ff8f88")
- (bg-green-intense "#8adf80")
- (bg-yellow-intense "#f3d000")
- (bg-blue-intense "#bfc9ff")
- (bg-magenta-intense "#dfa0f0")
- (bg-cyan-intense "#a4d5f9")
-
- (bg-red-subtle "#ffcfbf")
- (bg-green-subtle "#b3fabf")
- (bg-yellow-subtle "#fff576")
- (bg-blue-subtle "#ccdfff")
- (bg-magenta-subtle "#ffddff")
- (bg-cyan-subtle "#bfefff")
-
- (bg-red-nuanced "#fff1f0")
- (bg-green-nuanced "#ecf7ed")
- (bg-yellow-nuanced "#fff3da")
- (bg-blue-nuanced "#f3f3ff")
- (bg-magenta-nuanced "#fdf0ff")
- (bg-cyan-nuanced "#ebf6fa")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#f0e0cc")
- (bg-lavender "#dfdbfa")
- (bg-sage "#c0e7d4")
-
-;;; Graphs
-
- (bg-graph-red-0 "#ef7969")
- (bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#2fe029")
- (bg-graph-green-1 "#75ef30")
- (bg-graph-yellow-0 "#ffcf00")
- (bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7f90ff")
- (bg-graph-blue-1 "#9fc6ff")
- (bg-graph-magenta-0 "#e07fff")
- (bg-graph-magenta-1 "#fad0ff")
- (bg-graph-cyan-0 "#70d3f0")
- (bg-graph-cyan-1 "#afefff")
-
-;;; Special purpose
-
- (bg-completion "#c0deff")
- (bg-hover "#94d4ff")
- (bg-hover-secondary "#f5d0a0")
- (bg-hl-line "#dae5ec")
- (bg-region "#bdbdbd")
- (fg-region "#000000")
-
- (bg-char-0 "#7feaff")
- (bg-char-1 "#ffaaff")
- (bg-char-2 "#dff000")
-
- (bg-mode-line-active "#c8c8c8")
- (fg-mode-line-active "#000000")
- (border-mode-line-active "#5a5a5a")
- (bg-mode-line-inactive "#e6e6e6")
- (fg-mode-line-inactive "#585858")
- (border-mode-line-inactive "#a3a3a3")
-
- (modeline-err "#7f0000")
- (modeline-warning "#5f0070")
- (modeline-info "#002580")
-
- (bg-tab-bar "#dfdfdf")
- (bg-tab-current "#ffffff")
- (bg-tab-other "#c2c2c2")
-
-;;; Diffs
-
- (bg-added "#c1f2d1")
- (bg-added-faint "#d8f8e1")
- (bg-added-refine "#aee5be")
- (bg-added-fringe "#6cc06c")
- (fg-added "#005000")
- (fg-added-intense "#006700")
-
- (bg-changed "#ffdfa9")
- (bg-changed-faint "#ffefbf")
- (bg-changed-refine "#fac090")
- (bg-changed-fringe "#d7c20a")
- (fg-changed "#553d00")
- (fg-changed-intense "#655000")
-
- (bg-removed "#ffd8d5")
- (bg-removed-faint "#ffe9e9")
- (bg-removed-refine "#f3b5af")
- (bg-removed-fringe "#d84a4f")
- (fg-removed "#8f1313")
- (fg-removed-intense "#aa2222")
-
- (bg-diff-context "#f3f3f3")
-
-;;; Paren match
-
- (bg-paren-match "#5fcfff")
- (bg-paren-expression "#efd3f5")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor fg-main)
-
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-cooler)
-
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
-
- (underline-err red-intense)
- (underline-warning yellow-intense)
- (underline-note cyan-intense)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-yellow-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment fg-dim)
- (constant blue-cooler)
- (docstring green-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 blue)
- (accent-1 magenta-warmer)
- (accent-2 cyan)
- (accent-3 red)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan)
- (fg-completion-match-3 red)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red-cooler)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled yellow-warmer)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-faint)
- (mail-cite-1 yellow-warmer)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part cyan)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-yellow-subtle)
- (fg-mark-other yellow)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code green-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-red-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 fg-alt)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-warmer)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-operandi' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-operandi-palette-overrides nil
- "Overrides for `modus-operandi-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-operandi
- modus-operandi-palette
- modus-operandi-palette-overrides)
-
- (provide-theme 'modus-operandi))
-
-;;;###theme-autoload
-(put 'modus-operandi 'theme-properties '(:background-mode light :kind color-scheme :family modus))
-
-;;; modus-operandi-theme.el ends here
diff --git a/tools/emacs/lisp/modus-operandi-tinted-theme.el b/tools/emacs/lisp/modus-operandi-tinted-theme.el
@@ -1,439 +0,0 @@
-;;; modus-operandi-tinted-theme.el --- Elegant, highly legible theme with a light ochre background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-operandi-tinted
- "Elegant, highly legible theme with a light ochre background.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
-
- (defconst modus-operandi-tinted-palette
- '(
-;;; Basic values
-
- (bg-main "#fbf7f0")
- (bg-dim "#ede7db")
- (fg-main "#000000")
- (fg-dim "#595959")
- (fg-alt "#193668")
- (bg-active "#c9b9b0")
- (bg-inactive "#dfd5cf")
- (border "#9f9690")
-
-;;; Common accent foregrounds
-
- (red "#a60000")
- (red-warmer "#972500")
- (red-cooler "#a0132f")
- (red-faint "#7f0000")
- (red-intense "#d00000")
- (green "#006800")
- (green-warmer "#316500")
- (green-cooler "#00663f")
- (green-faint "#2a5045")
- (green-intense "#008900")
- (yellow "#6f5500")
- (yellow-warmer "#884900")
- (yellow-cooler "#7a4f2f")
- (yellow-faint "#624416")
- (yellow-intense "#808000")
- (blue "#0031a9")
- (blue-warmer "#3548cf")
- (blue-cooler "#0000b0")
- (blue-faint "#003497")
- (blue-intense "#0000ff")
- (magenta "#721045")
- (magenta-warmer "#8f0075")
- (magenta-cooler "#531ab6")
- (magenta-faint "#7c318f")
- (magenta-intense "#dd22dd")
- (cyan "#005e8b")
- (cyan-warmer "#3f578f")
- (cyan-cooler "#005f5f")
- (cyan-faint "#005077")
- (cyan-intense "#008899")
-
-;;; Uncommon accent foregrounds
-
- (rust "#8a290f")
- (gold "#80601f")
- (olive "#56692d")
- (slate "#2f3f83")
- (indigo "#4a3a8a")
- (maroon "#731c52")
- (pink "#7b435c")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#ff8f88")
- (bg-green-intense "#8adf80")
- (bg-yellow-intense "#f3d000")
- (bg-blue-intense "#bfc9ff")
- (bg-magenta-intense "#dfa0f0")
- (bg-cyan-intense "#a4d5f9")
-
- (bg-red-subtle "#ffcfbf")
- (bg-green-subtle "#b3fabf")
- (bg-yellow-subtle "#fff576")
- (bg-blue-subtle "#ccdfff")
- (bg-magenta-subtle "#ffddff")
- (bg-cyan-subtle "#bfefff")
-
- (bg-red-nuanced "#ffe8f0")
- (bg-green-nuanced "#e0f5e0")
- (bg-yellow-nuanced "#f9ead0")
- (bg-blue-nuanced "#ebebff")
- (bg-magenta-nuanced "#f6e7ff")
- (bg-cyan-nuanced "#e1f3fc")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#f0e0cc")
- (bg-lavender "#dfdbfa")
- (bg-sage "#c0e7d4")
-
-;;; Graphs
-
- (bg-graph-red-0 "#ef7969")
- (bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#2fe029")
- (bg-graph-green-1 "#75ef30")
- (bg-graph-yellow-0 "#ffcf00")
- (bg-graph-yellow-1 "#f9ff00")
- (bg-graph-blue-0 "#7f90ff")
- (bg-graph-blue-1 "#9fc6ff")
- (bg-graph-magenta-0 "#e07fff")
- (bg-graph-magenta-1 "#fad0ff")
- (bg-graph-cyan-0 "#70d3f0")
- (bg-graph-cyan-1 "#afefff")
-
-;;; Special purpose
-
- (bg-completion "#f0c1cf")
- (bg-hover "#94d4ff")
- (bg-hover-secondary "#f5d0a0")
- (bg-hl-line "#f1d5d0")
- (bg-region "#c2bcb5")
- (fg-region "#000000")
-
- (bg-char-0 "#7feaff")
- (bg-char-1 "#ffaaff")
- (bg-char-2 "#dff000")
-
- (bg-mode-line-active "#cab9b2")
- (fg-mode-line-active "#000000")
- (border-mode-line-active "#545454")
- (bg-mode-line-inactive "#dfd9cf")
- (fg-mode-line-inactive "#585858")
- (border-mode-line-inactive "#a59a94")
-
- (modeline-err "#7f0000")
- (modeline-warning "#5f0070")
- (modeline-info "#002580")
-
- (bg-tab-bar "#e0d4ce")
- (bg-tab-current "#fbf7f0")
- (bg-tab-other "#c8b8b2")
-
-;;; Diffs
-
- (bg-added "#c3ebc1")
- (bg-added-faint "#dcf8d1")
- (bg-added-refine "#acd6a5")
- (bg-added-fringe "#6cc06c")
- (fg-added "#005000")
- (fg-added-intense "#006700")
-
- (bg-changed "#ffdfa9")
- (bg-changed-faint "#ffefbf")
- (bg-changed-refine "#fac090")
- (bg-changed-fringe "#c0b200")
- (fg-changed "#553d00")
- (fg-changed-intense "#655000")
-
- (bg-removed "#f4d0cf")
- (bg-removed-faint "#ffe9e5")
- (bg-removed-refine "#f3b5a7")
- (bg-removed-fringe "#d84a4f")
- (fg-removed "#8f1313")
- (fg-removed-intense "#aa2222")
-
- (bg-diff-context "#efe9df")
-
-;;; Paren match
-
- (bg-paren-match "#7fdfcf")
- (bg-paren-expression "#efd3f5")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor red)
-
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-cooler)
-
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
-
- (underline-err red-intense)
- (underline-warning yellow-intense)
- (underline-note cyan-intense)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-yellow-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment red-faint)
- (constant blue-cooler)
- (docstring green-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 blue)
- (accent-1 magenta-warmer)
- (accent-2 cyan)
- (accent-3 red)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan)
- (fg-completion-match-3 red)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red-cooler)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled yellow-warmer)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-faint)
- (mail-cite-1 yellow-warmer)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part cyan)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-yellow-subtle)
- (fg-mark-other yellow)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code green-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-red-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 fg-alt)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-warmer)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-operandi-tinted' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-operandi-tinted-palette-overrides nil
- "Overrides for `modus-operandi-tinted-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-operandi-tinted
- modus-operandi-tinted-palette
- modus-operandi-tinted-palette-overrides)
-
- (provide-theme 'modus-operandi-tinted))
-
-;;;###theme-autoload
-(put 'modus-operandi-tinted 'theme-properties '(:background-mode light :kind color-scheme :family modus))
-
-;;; modus-operandi-tinted-theme.el ends here
diff --git a/tools/emacs/lisp/modus-operandi-tritanopia-theme.el b/tools/emacs/lisp/modus-operandi-tritanopia-theme.el
@@ -1,442 +0,0 @@
-;;; modus-operandi-tritanopia-theme.el --- Tritanopia-optimized theme with a white background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-operandi-tritanopia
- "Tritanopia-optimized theme with a white background.
-This variant is optimized for users with blue-yellow color
-deficiency (tritanopia). It conforms with the highest
-legibility standard for color contrast between background and
-foreground in any given piece of text, which corresponds to a
-minimum contrast in relative luminance of 7:1 (WCAG AAA
-standard).")
-
- (defconst modus-operandi-tritanopia-palette
- '(
-;;; Basic values
-
- (bg-main "#ffffff")
- (bg-dim "#f0f0f0")
- (fg-main "#000000")
- (fg-dim "#595959")
- (fg-alt "#193668")
- (bg-active "#c4c4c4")
- (bg-inactive "#e0e0e0")
- (border "#9f9f9f")
-
-;;; Common accent foregrounds
-
- (red "#a60000")
- (red-warmer "#b21100")
- (red-cooler "#a0132f")
- (red-faint "#702000")
- (red-intense "#d00000")
- (green "#006800")
- (green-warmer "#316500")
- (green-cooler "#00663f")
- (green-faint "#2a5045")
- (green-intense "#008900")
- (yellow "#695500")
- (yellow-warmer "#973300")
- (yellow-cooler "#77492f")
- (yellow-faint "#624416")
- (yellow-intense "#808000")
- (blue "#0031a9")
- (blue-warmer "#3548cf")
- (blue-cooler "#0000b0")
- (blue-faint "#003497")
- (blue-intense "#0000ff")
- (magenta "#721045")
- (magenta-warmer "#8f0075")
- (magenta-cooler "#531ab6")
- (magenta-faint "#7c318f")
- (magenta-intense "#cd22bd")
- (cyan "#005e8b")
- (cyan-warmer "#3f578f")
- (cyan-cooler "#005f5f")
- (cyan-faint "#004f5f")
- (cyan-intense "#008899")
-
-;;; Uncommon accent foregrounds
-
- (rust "#8a290f")
- (gold "#80601f")
- (olive "#56692d")
- (slate "#2f3f83")
- (indigo "#4a3a8a")
- (maroon "#731c52")
- (pink "#7b435c")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#ff8f88")
- (bg-green-intense "#8adf80")
- (bg-yellow-intense "#f3d000")
- (bg-blue-intense "#bfc9ff")
- (bg-magenta-intense "#dfa0f0")
- (bg-cyan-intense "#a4d5f9")
-
- (bg-red-subtle "#ffcfbf")
- (bg-green-subtle "#b3fabf")
- (bg-yellow-subtle "#fff576")
- (bg-blue-subtle "#ccdfff")
- (bg-magenta-subtle "#ffddff")
- (bg-cyan-subtle "#bfefff")
-
- (bg-red-nuanced "#fff1f0")
- (bg-green-nuanced "#ecf7ed")
- (bg-yellow-nuanced "#fff3da")
- (bg-blue-nuanced "#f3f3ff")
- (bg-magenta-nuanced "#fdf0ff")
- (bg-cyan-nuanced "#ebf6fa")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#f0e0cc")
- (bg-lavender "#dfdbfa")
- (bg-sage "#c0e7d4")
-
-;;; Graphs
-
- (bg-graph-red-0 "#ef7969")
- (bg-graph-red-1 "#ffaab4")
- (bg-graph-green-0 "#70c3b0")
- (bg-graph-green-1 "#a3dfe5")
- (bg-graph-yellow-0 "#d99f9f")
- (bg-graph-yellow-1 "#ffb58f")
- (bg-graph-blue-0 "#80a0df")
- (bg-graph-blue-1 "#9fcaff")
- (bg-graph-magenta-0 "#efafcf")
- (bg-graph-magenta-1 "#ffdaef")
- (bg-graph-cyan-0 "#7fd3ed")
- (bg-graph-cyan-1 "#afefff")
-
-;;; Special purpose
-
- (bg-completion "#afdfef")
- (bg-hover "#ffafbc")
- (bg-hover-secondary "#9fdfff")
- (bg-hl-line "#dfeaec")
- (bg-region "#bdbdbd")
- (fg-region "#000000")
-
- (bg-char-0 "#ff8a5f")
- (bg-char-1 "#bf7aff")
- (bg-char-2 "#7fe0e0")
-
- (bg-mode-line-active "#afe0f2")
- (fg-mode-line-active "#0f0f0f")
- (border-mode-line-active "#2f4f44")
- (bg-mode-line-inactive "#e6e6e6")
- (fg-mode-line-inactive "#585858")
- (border-mode-line-inactive "#a3a3a3")
-
- (modeline-err "#8f0000")
- (modeline-warning "#6f306f")
- (modeline-info "#00445f")
-
- (bg-tab-bar "#dfdfdf")
- (bg-tab-current "#ffffff")
- (bg-tab-other "#c2c2c2")
-
-;;; Diffs
-
- (bg-added "#b5e7ff")
- (bg-added-faint "#c6f6ff")
- (bg-added-refine "#9adcef")
- (bg-added-fringe "#1782cc")
- (fg-added "#005079")
- (fg-added-intense "#0043aa")
-
- (bg-changed "#eecfdf")
- (bg-changed-faint "#f0dde5")
- (bg-changed-refine "#e0b0d0")
- (bg-changed-fringe "#9f6ab0")
- (fg-changed "#6f1343")
- (fg-changed-intense "#7f0f9f")
-
- (bg-removed "#ffd8d5")
- (bg-removed-faint "#ffe9e9")
- (bg-removed-refine "#f3b5af")
- (bg-removed-fringe "#d84a4f")
- (fg-removed "#8f1313")
- (fg-removed-intense "#aa2222")
-
- (bg-diff-context "#f3f3f3")
-
-;;; Paren match
-
- (bg-paren-match "#5fcfff")
- (bg-paren-expression "#efd3f5")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor red-intense)
-
- (keybind red)
- (name red-cooler)
- (identifier red-faint)
-
- (err red-warmer)
- (warning magenta)
- (info cyan)
-
- (underline-err red-intense)
- (underline-warning magenta-intense)
- (underline-note cyan-intense)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-magenta-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta)
- (comment red-faint)
- (constant green-cooler)
- (docstring fg-alt)
- (docmarkup magenta-faint)
- (fnname cyan-warmer)
- (keyword red-cooler)
- (preprocessor red-warmer)
- (string cyan)
- (type blue-warmer)
- (variable cyan-cooler)
- (rx-construct red)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 cyan)
- (accent-1 red-warmer)
- (accent-2 cyan-cooler)
- (accent-3 magenta)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 cyan)
- (fg-completion-match-1 red-warmer)
- (fg-completion-match-2 magenta)
- (fg-completion-match-3 cyan-cooler)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan-cooler)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled magenta)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link cyan)
- (bg-link unspecified)
- (underline-link cyan)
-
- (fg-link-symbolic cyan-cooler)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan-cooler)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 cyan-faint)
- (mail-cite-1 red-faint)
- (mail-cite-2 magenta-warmer)
- (mail-cite-3 cyan-warmer)
- (mail-part cyan-cooler)
- (mail-recipient cyan)
- (mail-subject red-cooler)
- (mail-other cyan)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-magenta-subtle)
- (fg-mark-other magenta)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan)
- (prose-done cyan)
- (prose-macro red-warmer)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag fg-alt)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 cyan)
- (rainbow-1 red)
- (rainbow-2 cyan-warmer)
- (rainbow-3 red-cooler)
- (rainbow-4 cyan-cooler)
- (rainbow-5 magenta)
- (rainbow-6 cyan-faint)
- (rainbow-7 magenta-faint)
- (rainbow-8 red-faint)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-red-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 red-faint)
- (fg-heading-3 cyan-faint)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 magenta-faint)
- (fg-heading-7 cyan-warmer)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-operandi-tritanopia' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-operandi-tritanopia-palette-overrides nil
- "Overrides for `modus-operandi-tritanopia-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-operandi-tritanopia
- modus-operandi-tritanopia-palette
- modus-operandi-tritanopia-palette-overrides)
-
- (provide-theme 'modus-operandi-tritanopia))
-
-;;;###theme-autoload
-(put 'modus-operandi-tritanopia 'theme-properties '(:background-mode light :kind color-scheme :family modus))
-
-;;; modus-operandi-tritanopia-theme.el ends here
diff --git a/tools/emacs/lisp/modus-themes.el b/tools/emacs/lisp/modus-themes.el
@@ -1,4205 +0,0 @@
-;;; modus-themes.el --- Elegant, highly legible and customizable themes -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Version: 4.2.0
-;; Package-Requires: ((emacs "27.1"))
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-when-compile
- (require 'cl-lib)
- (require 'subr-x))
-
-(defgroup modus-themes ()
- "User options for the Modus themes.
-The Modus themes conform with the WCAG AAA standard for color
-contrast between background and foreground combinations (a
-minimum contrast of 7:1---the highest standard of its kind).
-
-The Modus themes collection includes themes that are optimized
-for people with red-green or blue-yellow color
-deficiency (deuteranopia or tritanopia, respectively)."
- :group 'faces
- :link '(info-link "(modus-themes) Top")
- :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/modus-themes")
- :link '(url-link :tag "Sample pictures" "https://protesilaos.com/emacs/modus-themes-pictures")
- :prefix "modus-themes-"
- :tag "Modus Themes")
-
-(defgroup modus-themes-faces ()
- "Faces defined by the Modus themes."
- :group 'modus-themes
- :link '(info-link "(modus-themes) Top")
- :link '(url-link :tag "Homepage" "https://protesilaos.com/emacs/modus-themes")
- :link '(url-link :tag "Sample pictures" "https://protesilaos.com/emacs/modus-themes-pictures")
- :prefix "modus-themes-"
- :tag "Modus Themes Faces")
-
-(make-obsolete-variable 'modus-themes-operandi-colors nil "4.0.0")
-(make-obsolete-variable 'modus-themes-vivendi-colors nil "4.0.0")
-(make-obsolete-variable 'modus-themes-version nil "4.0.0")
-(make-obsolete 'modus-themes-report-bug nil "4.0.0")
-
-
-
-;;;; Custom faces
-
-;; These faces are used internally to ensure consistency between various
-;; groups and to streamline the evaluation of relevant customization
-;; options.
-
-(dolist (color '( red green blue yellow magenta cyan
- red-warmer green-warmer blue-warmer yellow-warmer magenta-warmer cyan-warmer
- red-cooler green-cooler blue-cooler yellow-cooler magenta-cooler cyan-cooler
- red-faint green-faint blue-faint yellow-faint magenta-faint cyan-faint
- red-intense green-intense blue-intense yellow-intense magenta-intense cyan-intense))
- (custom-declare-face
- (intern (format "modus-themes-fg-%s" color))
- nil (format "Face with %s foreground." color)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (color '(red green yellow blue magenta cyan))
- (custom-declare-face
- (intern (format "modus-themes-nuanced-%s" color))
- nil (format "Nuanced %s background." color)
- :package-version '(modus-themes . "4.1.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (color '(red green yellow blue magenta cyan))
- (custom-declare-face
- (intern (format "modus-themes-subtle-%s" color))
- nil (format "Subtle %s background." color)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (color '(red green yellow blue magenta cyan))
- (custom-declare-face
- (intern (format "modus-themes-intense-%s" color))
- nil (format "Intense %s background." color)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (scope '(alt del sel))
- (custom-declare-face
- (intern (format "modus-themes-mark-%s" scope))
- nil (format "Mark of type %s." scope)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (scope '(note warning error))
- (custom-declare-face
- (intern (format "modus-themes-lang-%s" scope))
- nil (format "Linter or spell check of type %s." scope)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (scope '(note warning error))
- (custom-declare-face
- (intern (format "modus-themes-prominent-%s" scope))
- nil (format "Prominent notification of type %s." scope)
- :package-version '(modus-themes . "4.2.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(dolist (scope '(current lazy))
- (custom-declare-face
- (intern (format "modus-themes-search-%s" scope))
- nil (format "Search of type %s." scope)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(define-obsolete-variable-alias
- 'modus-themes-search-success
- 'modus-themes-search-current
- "4.0.0")
-
-(define-obsolete-variable-alias
- 'modus-themes-search-success-lazy
- 'modus-themes-search-lazy
- "4.0.0")
-
-(dolist (scope '(code macro verbatim))
- (custom-declare-face
- (intern (format "modus-themes-prose-%s" scope))
- nil (format "Construct of type %s for prose." scope)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(define-obsolete-variable-alias
- 'modus-themes-markup-code
- 'modus-themes-prose-code
- "4.0.0")
-
-(define-obsolete-variable-alias
- 'modus-themes-markup-macro
- 'modus-themes-prose-macro
- "4.0.0")
-
-(define-obsolete-variable-alias
- 'modus-themes-markup-verbatim
- 'modus-themes-prose-verbatim
- "4.0.0")
-
-(dotimes (n 9)
- (custom-declare-face
- (intern (format "modus-themes-heading-%d" n))
- nil (format "Level %d heading." n)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(defface modus-themes-bold nil
- "Generic face for applying a conditional bold weight.
-This behaves in accordance with `modus-themes-bold-constructs'."
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces)
-
-(defface modus-themes-slant nil
- "Generic face for applying a conditional slant (italics).
-This behaves in accordance with `modus-themes-italic-constructs'."
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces)
-
-(defface modus-themes-key-binding nil
- "Face for key bindings."
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces)
-
-(defface modus-themes-fixed-pitch nil
- "Face for `fixed-pitch' if `modus-themes-mixed-fonts' is non-nil."
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces)
-
-(defface modus-themes-ui-variable-pitch nil
- "Face for `variable-pitch' if `modus-themes-variable-pitch-ui' is non-nil."
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces)
-
-(defface modus-themes-reset-soft nil
- "Generic face to set most face properties to nil.
-
-This is intended to be inherited by faces that should not retain
-properties from their context (e.g. an overlay over an underlined
-text should not be underlined as well) yet still blend in."
- :group 'modus-themes-faces)
-
-(defface modus-themes-prompt nil
- "Generic face for command prompts."
- :group 'modus-themes-faces)
-
-(defface modus-themes-completion-selected nil
- "Face for current selection in completion UIs."
- :group 'modus-themes-faces)
-
-(defface modus-themes-button nil
- "Face for graphical buttons."
- :group 'modus-themes-faces)
-
-(dotimes (n 4)
- (custom-declare-face
- (intern (format "modus-themes-completion-match-%d" n))
- nil (format "Completions match level %d." n)
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :group 'modus-themes-faces))
-
-(make-obsolete-variable 'modus-themes-reset-hard nil "4.0.0")
-(make-obsolete-variable 'modus-themes-subtle-neutral nil "4.0.0")
-(make-obsolete-variable 'modus-themes-intense-neutral nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-red nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-green nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-yellow nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-blue nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-magenta nil "4.0.0")
-(make-obsolete-variable 'modus-themes-refine-cyan nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-red nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-green nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-yellow nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-blue nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-magenta nil "4.0.0")
-(make-obsolete-variable 'modus-themes-active-cyan nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-red nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-green nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-yellow nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-blue nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-magenta nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringe-cyan nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-red-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-green-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-yellow-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-blue-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-magenta-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-cyan-nuanced nil "4.0.0")
-(make-obsolete-variable 'modus-themes-special-calm nil "4.0.0")
-(make-obsolete-variable 'modus-themes-special-cold nil "4.0.0")
-(make-obsolete-variable 'modus-themes-special-mild nil "4.0.0")
-(make-obsolete-variable 'modus-themes-special-warm nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-added nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-changed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-removed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-refine-added nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-refine-changed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-refine-removed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-focus-added nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-focus-changed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-focus-removed nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diff-heading nil "4.0.0")
-(make-obsolete-variable 'modus-themes-pseudo-header nil "4.0.0")
-(make-obsolete-variable 'modus-themes-mark-symbol nil "4.0.0")
-(make-obsolete-variable 'modus-themes-hl-line nil "4.0.0")
-(make-obsolete-variable 'modus-themes-search-success-modeline nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-active nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-background-active nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-background-intense nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-background-subtle nil "4.0.0")
-(make-obsolete-variable 'modus-themes-grue-background-refine nil "4.0.0")
-(make-obsolete-variable 'modus-themes-link-broken nil "4.0.0")
-(make-obsolete-variable 'modus-themes-link-symlink nil "4.0.0")
-(make-obsolete-variable 'modus-themes-tab-backdrop nil "4.0.0")
-(make-obsolete-variable 'modus-themes-tab-active nil "4.0.0")
-(make-obsolete-variable 'modus-themes-tab-inactive nil "4.0.0")
-(make-obsolete-variable 'modus-themes-completion-selected-popup nil "4.0.0")
-(make-obsolete-variable 'modus-themes-box-button nil "4.0.0")
-(make-obsolete-variable 'modus-themes-box-button-pressed nil "4.0.0")
-
-
-
-;;;; Customization variables
-
-(defcustom modus-themes-custom-auto-reload t
- "Automatically reload theme after setting options with Customize.
-
-All theme user options take effect when a theme is loaded. Any
-subsequent changes require the theme to be reloaded.
-
-When this variable has a non-nil value, any change made via the
-Custom UI or related functions such as `customize-set-variable'
-and `setopt' (Emacs 29), will trigger a reload automatically.
-
-With a nil value, changes to user options have no further
-consequences. The user must manually reload the theme."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type 'boolean
- :link '(info-link "(modus-themes) Custom reload theme"))
-
-(make-obsolete-variable 'modus-themes-inhibit-reload 'modus-themes-custom-auto-reload "4.0.0")
-
-(defun modus-themes--set-option (sym val)
- "Custom setter for theme related user options.
-Will set SYM to VAL, and reload the current theme, unless
-`modus-themes-custom-auto-reload' is nil."
- (set-default sym val)
- (when (and modus-themes-custom-auto-reload
- ;; Check if a theme is being loaded, in which case we
- ;; don't want to reload a theme if the setter is
- ;; invoked. `custom--inhibit-theme-enable' is set to nil
- ;; by `enable-theme'.
- (bound-and-true-p custom--inhibit-theme-enable))
- (when-let* ((modus-themes-custom-auto-reload t)
- (theme (modus-themes--current-theme)))
- (modus-themes-load-theme theme))))
-
-(defcustom modus-themes-disable-other-themes t
- "Disable all other themes when loading a Modus theme.
-
-When the value is non-nil, the commands `modus-themes-toggle' and
-`modus-themes-select', as well as the `modus-themes-load-theme'
-function, will disable all other themes while loading the
-specified Modus theme. This is done to ensure that Emacs does
-not blend two or more themes: such blends lead to awkward results
-that undermine the work of the designer.
-
-When the value is nil, the aforementioned commands and function
-will only disable other themes within the Modus collection.
-
-This option is provided because Emacs themes are not necessarily
-limited to colors/faces: they can consist of an arbitrary set of
-customizations. Users who use such customization bundles must
-set this variable to a nil value."
- :group 'modus-themes
- :package-version '(modus-themes . "4.1.0")
- :version "30.1"
- :type 'boolean
- :link '(info-link "(modus-themes) Disable other themes"))
-
-(defvaralias 'modus-themes-collection 'modus-themes-items
- "Alias of `modus-themes-items'.")
-
-(defconst modus-themes-items
- '( modus-operandi modus-vivendi
- modus-operandi-tinted modus-vivendi-tinted
- modus-operandi-deuteranopia modus-vivendi-deuteranopia
- modus-operandi-tritanopia modus-vivendi-tritanopia)
- "Symbols of the Modus themes.")
-
-(defcustom modus-themes-to-toggle '(modus-operandi modus-vivendi)
- "Specify two Modus themes for `modus-themes-toggle' command.
-The variable `modus-themes-items' contains the symbols of all
-official themes that form part of this collection.
-
-The default value of this user option includes the original
-themes: `modus-operandi' (light) and `modus-vivendi' (dark).
-
-If the value is nil or otherwise does not specify two valid Modus
-themes, the command `modus-themes-toggle' reverts to selecting a
-theme from the list of available Modus themes. In effect, it is
-the same as using the command `modus-themes-select'."
- :type `(choice
- (const :tag "No toggle" nil)
- (list :tag "Pick two themes to toggle between"
- (choice :tag "Theme one of two"
- ,@(mapcar (lambda (theme)
- (list 'const theme))
- modus-themes-items))
- (choice :tag "Theme two of two"
- ,@(mapcar (lambda (theme)
- (list 'const theme))
- modus-themes-items))))
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :group 'modus-themes)
-
-(defvaralias 'modus-themes-post-load-hook 'modus-themes-after-load-theme-hook)
-
-(defcustom modus-themes-after-load-theme-hook nil
- "Hook that runs after loading a Modus theme.
-This is used by the command `modus-themes-toggle'."
- :type 'hook
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :group 'modus-themes)
-
-(make-obsolete-variable 'modus-themes-operandi-color-overrides nil "4.0.0")
-(make-obsolete-variable 'modus-themes-vivendi-color-overrides nil "4.0.0")
-
-(defvaralias 'modus-themes-slanted-constructs 'modus-themes-italic-constructs)
-
-(defcustom modus-themes-italic-constructs nil
- "Use italic font forms in more code constructs."
- :group 'modus-themes
- :package-version '(modus-themes . "1.5.0")
- :version "28.1"
- :type 'boolean
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Italic constructs"))
-
-(defcustom modus-themes-bold-constructs nil
- "Use bold text in more code constructs."
- :group 'modus-themes
- :package-version '(modus-themes . "1.0.0")
- :version "28.1"
- :type 'boolean
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Bold constructs"))
-
-(defcustom modus-themes-variable-pitch-ui nil
- "Use proportional fonts (variable-pitch) in UI elements.
-This includes the mode line, header line, tab bar, and tab line."
- :group 'modus-themes
- :package-version '(modus-themes . "1.1.0")
- :version "28.1"
- :type 'boolean
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) UI typeface"))
-
-(defcustom modus-themes-mixed-fonts nil
- "Non-nil to enable inheritance from `fixed-pitch' in some faces.
-
-This is done to allow spacing-sensitive constructs, such as Org
-tables and code blocks, to remain monospaced when users opt for
-something like the command `variable-pitch-mode'.
-
-Users may need to explicitly configure the font family of
-`fixed-pitch' in order to get a consistent experience with their
-typography (also check the `fontaine' package on GNU ELPA (by
-Protesilaos))."
- :group 'modus-themes
- :package-version '(modus-themes . "1.7.0")
- :version "29.1"
- :type 'boolean
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Mixed fonts"))
-
-(make-obsolete-variable 'modus-themes-intense-mouseovers nil "4.0.0")
-
-(defconst modus-themes--weight-widget
- '(choice :tag "Font weight (must be supported by the typeface)"
- (const :tag "Unspecified (use whatever the default is)" nil)
- (const :tag "Thin" thin)
- (const :tag "Ultra-light" ultralight)
- (const :tag "Extra-light" extralight)
- (const :tag "Light" light)
- (const :tag "Semi-light" semilight)
- (const :tag "Regular" regular)
- (const :tag "Medium" medium)
- (const :tag "Semi-bold" semibold)
- (const :tag "Bold" bold)
- (const :tag "Extra-bold" extrabold)
- (const :tag "Ultra-bold" ultrabold))
- "List of supported font weights used by `defcustom' forms.")
-
-(defconst modus-themes--headings-widget
- `(set :tag "Properties" :greedy t
- (const :tag "Proportionately spaced font (variable-pitch)" variable-pitch)
- ,modus-themes--weight-widget
- (radio :tag "Height"
- (float :tag "Floating point to adjust height by")
- (cons :tag "Cons cell of `(height . FLOAT)'"
- (const :tag "The `height' key (constant)" height)
- (float :tag "Floating point"))))
- "Refer to the doc string of `modus-themes-headings'.
-This is a helper variable intended for internal use.")
-
-(defcustom modus-themes-headings nil
- "Heading styles with optional list of values per heading level.
-
-This is an alist that accepts a (KEY . LIST-OF-VALUES)
-combination. The KEY is either a number, representing the
-heading's level (0-8) or t, which pertains to the fallback style.
-The named keys `agenda-date' and `agenda-structure' apply to the
-Org agenda.
-
-Level 0 is used for what counts as a document title or
-equivalent, such as the #+title construct we find in Org files.
-Levels 1-8 are regular headings.
-
-The LIST-OF-VALUES covers symbols that refer to properties, as
-described below. Here is a complete sample with various
-stylistic combinations, followed by a presentation of all
-available properties:
-
- (setq modus-themes-headings
- (quote ((1 . (variable-pitch 1.5))
- (2 . (1.3))
- (agenda-date . (1.3))
- (agenda-structure . (variable-pitch light 1.8))
- (t . (1.1)))))
-
-By default (a nil value for this variable), all headings have a
-bold typographic weight, use a desaturated text color, have a
-font family that is the same as the `default' face (typically
-monospaced), and a height that is equal to the `default' face's
-height.
-
-A `variable-pitch' property changes the font family of the
-heading to that of the `variable-pitch' face (normally a
-proportionately spaced typeface).
-
-The symbol of a weight attribute adjusts the font of the heading
-accordingly, such as `light', `semibold', etc. Valid symbols are
-defined in the variable `modus-themes-weights'. The absence of a
-weight means that bold will be used by virtue of inheriting the
-`bold' face (check the manual for tweaking bold and italic
-faces).
-
-A number, expressed as a floating point (e.g. 1.5), adjusts the
-height of the heading to that many times the base font size. The
-default height is the same as 1.0, though it need not be
-explicitly stated. Instead of a floating point, an acceptable
-value can be in the form of a cons cell like (height . FLOAT)
-or (height FLOAT), where FLOAT is the given number.
-
-Combinations of any of those properties are expressed as a list,
-like in these examples:
-
- (semibold)
- (variable-pitch semibold 1.3)
- (variable-pitch semibold (height 1.3)) ; same as above
- (variable-pitch semibold (height . 1.3)) ; same as above
-
-The order in which the properties are set is not significant.
-
-In user configuration files the form may look like this:
-
- (setq modus-themes-headings
- (quote ((1 . (variable-pitch 1.5))
- (2 . (1.3))
- (agenda-date . (1.3))
- (agenda-structure . (variable-pitch light 1.8))
- (t . (1.1)))))
-
-When defining the styles per heading level, it is possible to
-pass a non-nil value (t) instead of a list of properties. This
-will retain the original aesthetic for that level. For example:
-
- (setq modus-themes-headings
- (quote ((1 . t) ; keep the default style
- (2 . (semibold 1.2))
- (t . (variable-pitch))))) ; style for all other headings
-
- (setq modus-themes-headings
- (quote ((1 . (variable-pitch extrabold 1.5))
- (2 . (semibold))
- (t . t)))) ; default style for all other levels
-
-Note that the text color of headings, of their background, and
-overline can all be set via the overrides. It is possible to
-have any color combination for any heading level (something that
-could not be done in older versions of the themes).
-
-Read Info node `(modus-themes) Option for palette overrides' as
-well as Info node `(modus-themes) Make headings more or less
-colorful'. Else check `modus-themes-common-palette-overrides'
-and related user options."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type `(alist
- :options ,(mapcar (lambda (el)
- (list el modus-themes--headings-widget))
- '(0 1 2 3 4 5 6 7 8 t agenda-date agenda-structure))
- :key-type symbol
- :value-type ,modus-themes--headings-widget)
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Heading styles"))
-
-(make-obsolete-variable 'modus-themes-org-agenda nil "4.0.0")
-(make-obsolete-variable 'modus-themes-fringes nil "4.0.0")
-(make-obsolete-variable 'modus-themes-lang-checkers nil "4.0.0")
-
-(defcustom modus-themes-org-blocks nil
- "Set the overall style of Org code blocks, quotes, and the like.
-
-Nil (the default) means that the block has no background of its
-own: it uses the one that applies to the rest of the buffer. In
-this case, the delimiter lines have a gray color for their text,
-making them look exactly like all other Org properties.
-
-Option `gray-background' applies a subtle gray background to the
-block's contents. It also affects the begin and end lines of the
-block as they get another shade of gray as their background,
-which differentiates them from the contents of the block. All
-background colors extend to the edge of the window, giving the
-area a rectangular, \"blocky\" presentation. If the begin/end
-lines do not extend in this way, check the value of the Org user
-option `org-fontify-whole-block-delimiter-line'.
-
-Option `tinted-background' uses a colored background for the
-contents of the block. The exact color value will depend on the
-programming language and is controlled by the variable
-`org-src-block-faces' (refer to the theme's source code for the
-current association list). For this to take effect, the Org
-buffer needs to be restarted with `org-mode-restart'.
-
-Code blocks use their major mode's fontification (syntax
-highlighting) only when the variable `org-src-fontify-natively'
-is non-nil. While quote/verse blocks require setting
-`org-fontify-quote-and-verse-blocks' to a non-nil value."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(choice
- (const :format "[%v] %t\n" :tag "No Org block background (default)" nil)
- (const :format "[%v] %t\n" :tag "Subtle gray block background" gray-background)
- (const :format "[%v] %t\n" :tag "Color-coded background per programming language" tinted-background))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Org mode blocks"))
-
-(make-obsolete-variable 'modus-themes-mode-line nil "4.0.0")
-(make-obsolete-variable 'modus-themes-diffs nil "4.0.0")
-
-(defcustom modus-themes-completions nil
- "Control the style of completion user interfaces.
-
-This affects Company, Corfu, Flx, Icomplete/Fido, Ido, Ivy,
-Orderless, Vertico, and the standard *Completions* buffer. The
-value is an alist of expressions, each of which takes the form
-of (KEY . LIST-OF-PROPERTIES). KEY is a symbol, while PROPERTIES
-is a list. Here is a sample, followed by a description of the
-particularities:
-
- (setq modus-themes-completions
- (quote ((matches . (extrabold underline))
- (selection . (semibold italic)))))
-
-The `matches' key refers to the highlighted characters that
-correspond to the user's input. When its properties are nil or
-an empty list, matching characters in the user interface will
-have a bold weight and a colored foreground. The list of
-properties may include any of the following symbols regardless of
-the order they may appear in:
-
-- `underline' to draw a line below the characters;
-
-- `italic' to use a slanted font (italic or oblique forms);
-
-- The symbol of a font weight attribute such as `light',
- `semibold', et cetera. Valid symbols are defined in the
- variable `modus-themes-weights'. The absence of a weight means
- that bold will be used.
-
-The `selection' key applies to the current line or currently
-matched candidate, depending on the specifics of the user
-interface. When its properties are nil or an empty list, it has
-a subtle gray background, a bold weight, and the base foreground
-value for the text. The list of properties it accepts is as
-follows (order is not significant):
-
-- `underline' to draw a line below the characters;
-
-- `italic' to use a slanted font (italic or oblique forms);
-
-- The symbol of a font weight attribute such as `light',
- `semibold', et cetera. Valid symbols are defined in the
- variable `modus-themes-weights'. The absence of a weight means
- that bold will be used.
-
-Apart from specifying each key separately, a catch-all list is
-accepted. This is only useful when the desired aesthetic is the
-same across all keys that are not explicitly referenced. For
-example, this:
-
- (setq modus-themes-completions
- (quote ((t . (extrabold underline)))))
-
-Is the same as:
-
- (setq modus-themes-completions
- (quote ((matches . (extrabold underline))
- (selection . (extrabold underline)))))"
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type `(set
- (cons :tag "Matches"
- (const matches)
- (set :tag "Style of matches" :greedy t
- ,modus-themes--weight-widget
- (const :tag "Italic font (oblique or slanted forms)" italic)
- (const :tag "Underline" underline)))
- (cons :tag "Selection"
- (const selection)
- (set :tag "Style of selection" :greedy t
- ,modus-themes--weight-widget
- (const :tag "Italic font (oblique or slanted forms)" italic)
- (const :tag "Underline" underline)))
- (cons :tag "Fallback for both matches and selection"
- (const t)
- (set :tag "Style of both matches and selection" :greedy t
- ,modus-themes--weight-widget
- (const :tag "Italic font (oblique or slanted forms)" italic)
- (const :tag "Underline" underline))))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Completion UIs"))
-
-(defcustom modus-themes-prompts nil
- "Use subtle or intense styles for minibuffer and REPL prompts.
-
-The value is a list of properties, each designated by a symbol.
-The default (a nil value or an empty list) means to only use a
-subtle colored foreground color.
-
-The `italic' property adds a slant to the font's forms (italic or
-oblique forms, depending on the typeface).
-
-The symbol of a font weight attribute such as `light', `semibold',
-et cetera, adds the given weight to links. Valid symbols are
-defined in the variable `modus-themes-weights'. The absence of a
-weight means that the one of the underlying text will be used.
-
-Combinations of any of those properties are expressed as a list,
-like in these examples:
-
- (bold italic)
- (italic semibold)
-
-The order in which the properties are set is not significant.
-
-In user configuration files the form may look like this:
-
- (setq modus-themes-prompts (quote (extrabold italic)))"
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type `(set :tag "Properties" :greedy t
- (const :tag "Italic font slant" italic)
- ,modus-themes--weight-widget)
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Command prompts"))
-
-(make-obsolete-variable 'modus-themes-subtle-line-numbers nil "4.0.0")
-(make-obsolete-variable 'modus-themes-markup nil "4.0.0")
-(make-obsolete-variable 'modus-themes-paren-match nil "4.0.0")
-(make-obsolete-variable 'modus-themes-syntax nil "4.0.0")
-(make-obsolete-variable 'modus-themes-links nil "4.0.0")
-(make-obsolete-variable 'modus-themes-region nil "4.0.0")
-(make-obsolete-variable 'modus-themes-deuteranopia nil "4.0.0")
-(make-obsolete-variable 'modus-themes-mail-citations nil "4.0.0")
-(make-obsolete-variable 'modus-themes-tabs-accented nil "4.0.0")
-(make-obsolete-variable 'modus-themes-box-buttons nil "4.0.0")
-
-(defcustom modus-themes-common-palette-overrides nil
- "Set palette overrides for all the Modus themes.
-
-Mirror the elements of a theme's palette, overriding their value.
-The palette variables are named THEME-NAME-palette, while
-individual theme overrides are THEME-NAME-palette-overrides. The
-THEME-NAME is one of the symbols in `modus-themes-items'. For
-example:
-
-- `modus-operandi-palette'
-- `modus-operandi-palette-overrides'
-
-Individual theme overrides take precedence over these common
-overrides.
-
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- ;; ;; NOTE 2023-01-07: The following is a functioning version of the
- ;; ;; intended :type. However, I think the Custom UI is really
- ;; ;; awkward for this specific case. Maybe the generic type I have
- ;; ;; above is better, as it encourages the user to write out the
- ;; ;; code and read the manual. Counter-arguments are welcome.
- ;;
- ;; :type `(repeat (list (radio :tag "Palette key to override"
- ;; ,@(mapcar (lambda (x)
- ;; (list 'const x))
- ;; (mapcar #'car (modus-themes--current-theme-palette))))
- ;; (choice :tag "Value to assign" :value unspecified
- ;; (const :tag "`unspecified' (remove the original color)" unspecified)
- ;; (string :tag "String with color name (e.g. \"gray50\") or hex RGB (e.g. \"#123456\")"
- ;; :match-inline (color-supported-p val))
- ;; (radio :tag "Palette key to map to"
- ;; ,@(mapcar (lambda (x)
- ;; (list 'const x))
- ;; (mapcar #'car (modus-themes--current-theme-palette)))))))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
-
-
-;;;; Presets of palette overrides
-
-(defvar modus-themes-preset-overrides-faint
- '((bg-completion bg-inactive)
- (bg-hover bg-cyan-subtle)
- (bg-hover-secondary bg-magenta-subtle)
- (bg-hl-line bg-dim)
- (bg-paren-match bg-cyan-subtle)
- (bg-region bg-active)
-
- (bg-mode-line-active bg-inactive)
- (border-mode-line-active fg-dim)
- (bg-mode-line-inactive bg-dim)
- (border-mode-line-inactive bg-active)
-
- (bg-tab-bar bg-inactive)
- (bg-tab-current bg-main)
- (bg-tab-other bg-active)
-
- (fringe unspecified)
- (builtin maroon)
- (comment fg-dim)
- (constant blue-faint)
- (docstring fg-alt)
- (docmarkup magenta-faint)
- (fnname pink)
- (keyword indigo)
- (preprocessor rust)
- (string slate)
- (type cyan-faint)
- (variable cyan-faint)
- (rx-construct gold)
- (rx-backslash olive)
-
- (underline-err red-faint)
- (underline-warning yellow-faint)
- (underline-note cyan-faint)
-
- (bg-button-active bg-main)
- (fg-button-active fg-main)
- (bg-button-inactive bg-inactive)
- (fg-button-inactive "gray50")
-
- (date-common cyan-faint)
- (date-deadline red-faint)
- (date-event fg-alt)
- (date-holiday magenta)
- (date-now fg-main)
- (date-scheduled yellow-faint)
- (date-weekday fg-dim)
- (date-weekend fg-dim)
-
- (name maroon)
- (identifier fg-dim)
-
- (fg-line-number-active fg-main)
- (fg-line-number-inactive "gray50")
- (bg-line-number-active unspecified)
- (bg-line-number-inactive unspecified)
-
- (fg-link blue-faint)
- (bg-link unspecified)
- (underline-link bg-active)
-
- (fg-link-symbolic cyan-faint)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic bg-active)
-
- (fg-link-visited magenta-faint)
- (bg-link-visited unspecified)
- (underline-link-visited bg-active)
-
- (mail-cite-0 cyan-faint)
- (mail-cite-1 yellow-faint)
- (mail-cite-2 green-faint)
- (mail-cite-3 red-faint)
- (mail-part olive)
- (mail-recipient indigo)
- (mail-subject maroon)
- (mail-other slate)
-
- (fg-prompt cyan-faint)
-
- (prose-code olive)
- (prose-done green-faint)
- (prose-macro indigo)
- (prose-tag rust)
- (prose-todo red-faint)
- (prose-verbatim maroon)
-
- (rainbow-0 fg-main)
- (rainbow-1 magenta)
- (rainbow-2 cyan)
- (rainbow-3 red-faint)
- (rainbow-4 yellow-faint)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-faint))
- "Preset for palette overrides with faint coloration.
-
-This changes many parts of the theme to make them look less
-colorful/intense. Grays are toned down, gray backgrounds are
-removed from some contexts, and almost all accent colors are
-desaturated.
-
-All the preset overrides the themes provide (including this one):
-
-- `modus-themes-preset-overrides-faint'
-- `modus-themes-preset-overrides-intense'
-- `modus-themes-preset-overrides-cooler'
-- `modus-themes-preset-overrides-warmer'
-
-To set a preset, assign its symbol without a quote as the value
-of the `modus-themes-common-palette-overrides' or as the value of
-theme-specific options such as `modus-operandi-palette-overrides'.
-
-For overriding named colors and/or semantic color mappings read
-Info node `(modus-themes) Option for palette overrides'.")
-
-(defvar modus-themes-preset-overrides-intense
- '((bg-region bg-cyan-intense)
-
- (bg-completion bg-cyan-subtle)
- (bg-hover bg-yellow-intense)
- (bg-hover-secondary bg-magenta-intense)
- (bg-hl-line bg-cyan-subtle)
-
- (bg-mode-line-active bg-blue-subtle)
- (fg-mode-line-active fg-main)
- (border-mode-line-active blue-intense)
-
- (fringe bg-inactive)
- (comment red-faint)
-
- (date-common cyan)
- (date-deadline red)
- (date-event blue)
- (date-holiday magenta-warmer)
- (date-now blue-faint)
- (date-range blue)
- (date-scheduled yellow-warmer)
- (date-weekday fg-main)
- (date-weekend red-faint)
-
- (keybind blue-intense)
-
- (mail-cite-0 blue)
- (mail-cite-1 yellow)
- (mail-cite-2 green)
- (mail-cite-3 magenta)
- (mail-part magenta-cooler)
- (mail-recipient cyan)
- (mail-subject red-warmer)
- (mail-other cyan-cooler)
-
- (fg-prompt blue-intense)
-
- (prose-block red-faint)
- (prose-done green-intense)
- (prose-metadata cyan-faint)
- (prose-metadata-value blue-cooler)
- (prose-table cyan)
- (prose-todo red-intense)
-
- (fg-heading-0 blue-cooler)
- (fg-heading-1 magenta-cooler)
- (fg-heading-2 magenta-warmer)
- (fg-heading-3 blue)
- (fg-heading-4 cyan)
- (fg-heading-5 green-warmer)
- (fg-heading-6 yellow)
- (fg-heading-7 red)
- (fg-heading-8 magenta)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 bg-magenta-nuanced)
- (bg-heading-2 bg-red-nuanced)
- (bg-heading-3 bg-blue-nuanced)
- (bg-heading-4 bg-cyan-nuanced)
- (bg-heading-5 bg-green-nuanced)
- (bg-heading-6 bg-yellow-nuanced)
- (bg-heading-7 bg-red-nuanced)
- (bg-heading-8 bg-magenta-nuanced)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 magenta-cooler)
- (overline-heading-2 magenta-warmer)
- (overline-heading-3 blue)
- (overline-heading-4 cyan)
- (overline-heading-5 green)
- (overline-heading-6 yellow-cooler)
- (overline-heading-7 red-cooler)
- (overline-heading-8 magenta))
- "Preset for palette overrides with faint coloration.
-
-This changes many parts of the theme to make them look more
-colorful/intense. Many background colors are accented and
-coloration is increased to pop out more.
-
-All the preset overrides the themes provide (including this one):
-
-- `modus-themes-preset-overrides-faint'
-- `modus-themes-preset-overrides-intense'
-- `modus-themes-preset-overrides-cooler'
-- `modus-themes-preset-overrides-warmer'
-
-To set a preset, assign its symbol without a quote as the value
-of the `modus-themes-common-palette-overrides' or as the value of
-theme-specific options such as `modus-operandi-palette-overrides'.
-
-For overriding named colors and/or semantic color mappings read
-Info node `(modus-themes) Option for palette overrides'.")
-
-(defvar modus-themes-preset-overrides-cooler
- '((fg-prompt blue-cooler)
-
- (builtin magenta-faint)
- (constant blue-cooler)
- (fnname cyan-cooler)
- (keyword magenta-cooler)
- (preprocessor blue)
- (string blue-warmer)
- (type green-cooler)
- (variable cyan)
- (rx-construct blue-cooler)
- (rx-backslash red)
-
- (name blue-warmer)
- (identifier magenta-faint)
-
- (date-deadline magenta-cooler)
- (date-scheduled yellow-cooler)
- (date-weekday blue-faint)
- (date-weekend red-faint)
-
- (mail-cite-0 blue-faint)
- (mail-cite-1 cyan-cooler)
- (mail-cite-2 magenta-faint)
- (mail-cite-3 yellow-cooler)
- (mail-part cyan)
- (mail-recipient blue-warmer)
- (mail-subject magenta-cooler)
- (mail-other blue)
-
- (prose-tag fg-dim)
- (prose-verbatim blue-cooler))
- "Preset of palette overrides with cooler colors.
-
-This changes parts of the palette to use more blue and
-blue-tinted colors.
-
-All the preset overrides the themes provide (including this one):
-
-- `modus-themes-preset-overrides-faint'
-- `modus-themes-preset-overrides-intense'
-- `modus-themes-preset-overrides-cooler'
-- `modus-themes-preset-overrides-warmer'
-
-To set a preset, assign its symbol without a quote as the value
-of the `modus-themes-common-palette-overrides' or as the value of
-theme-specific options such as `modus-operandi-palette-overrides'.
-
-For overriding named colors and/or semantic color mappings read
-Info node `(modus-themes) Option for palette overrides'.")
-
-(defvar modus-themes-preset-overrides-warmer
- '((fg-prompt magenta-warmer)
-
- (builtin magenta)
- (constant blue-warmer)
- (fnname magenta-cooler)
- (keyword magenta-warmer)
- (preprocessor red-cooler)
- (string olive)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct blue-cooler)
- (rx-backslash red-warmer)
-
- (name blue-warmer)
- (identifier magenta)
- (keybind magenta-warmer)
-
- (accent-0 magenta-warmer)
- (accent-1 cyan)
- (accent-2 blue-warmer)
- (accent-3 red-cooler)
-
- (date-common cyan-cooler)
- (date-holiday magenta-warmer)
-
- (mail-cite-0 magenta-faint)
- (mail-cite-1 cyan-cooler)
- (mail-cite-2 green-warmer)
- (mail-cite-3 red-faint)
- (mail-part cyan)
- (mail-recipient magenta)
- (mail-subject blue-warmer)
- (mail-other magenta-warmer)
-
- (prose-macro red-cooler)
- (prose-tag fg-dim))
- "Preset of palette overrides with warmer colors.
-
-This changes many parts of the theme to use warmer colors,
-including green and yellow.
-
-All the preset overrides the themes provide (including this one):
-
-- `modus-themes-preset-overrides-faint'
-- `modus-themes-preset-overrides-intense'
-- `modus-themes-preset-overrides-cooler'
-- `modus-themes-preset-overrides-warmer'
-
-To set a preset, assign its symbol without a quote as the value
-of the `modus-themes-common-palette-overrides' or as the value of
-theme-specific options such as `modus-operandi-palette-overrides'.
-
-For overriding named colors and/or semantic color mappings read
-Info node `(modus-themes) Option for palette overrides'.")
-
-
-
-;;;; Helper functions for theme setup
-
-;; This is the WCAG formula: https://www.w3.org/TR/WCAG20-TECHS/G18.html
-(defun modus-themes-wcag-formula (hex)
- "Get WCAG value of color value HEX.
-The value is defined in hexadecimal RGB notation, such #123456."
- (cl-loop for k in '(0.2126 0.7152 0.0722)
- for x in (color-name-to-rgb hex)
- sum (* k (if (<= x 0.03928)
- (/ x 12.92)
- (expt (/ (+ x 0.055) 1.055) 2.4)))))
-
-;;;###autoload
-(defun modus-themes-contrast (c1 c2)
- "Measure WCAG contrast ratio between C1 and C2.
-C1 and C2 are color values written in hexadecimal RGB."
- (let ((ct (/ (+ (modus-themes-wcag-formula c1) 0.05)
- (+ (modus-themes-wcag-formula c2) 0.05))))
- (max ct (/ ct))))
-
-(make-obsolete 'modus-themes-color nil "4.0.0")
-(make-obsolete 'modus-themes-color-alts nil "4.0.0")
-
-(declare-function cl-remove-if-not "cl-seq" (cl-pred cl-list &rest cl-keys))
-
-(defun modus-themes--list-enabled-themes ()
- "Return list of `custom-enabled-themes' with modus- prefix."
- (cl-remove-if-not
- (lambda (theme)
- (string-prefix-p "modus-" (symbol-name theme)))
- custom-enabled-themes))
-
-(defun modus-themes--enable-themes ()
- "Enable the Modus themes."
- (mapc (lambda (theme)
- (unless (memq theme custom-known-themes)
- (load-theme theme :no-confirm :no-enable)))
- modus-themes-items))
-
-(defun modus-themes--list-known-themes ()
- "Return list of `custom-known-themes' with modus- prefix."
- (modus-themes--enable-themes)
- (cl-remove-if-not
- (lambda (theme)
- (string-prefix-p "modus-" (symbol-name theme)))
- custom-known-themes))
-
-(defun modus-themes--current-theme ()
- "Return first enabled Modus theme."
- (car (or (modus-themes--list-enabled-themes)
- (modus-themes--list-known-themes))))
-
-(defun modus-themes--palette-symbol (theme &optional overrides)
- "Return THEME palette as a symbol.
-With optional OVERRIDES, return THEME palette overrides as a
-symbol."
- (when-let ((suffix (cond
- ((and theme overrides)
- "palette-overrides")
- (theme
- "palette"))))
- (intern (format "%s-%s" theme suffix))))
-
-(defun modus-themes--palette-value (theme &optional overrides)
- "Return palette value of THEME with optional OVERRIDES."
- (let ((base-value (symbol-value (modus-themes--palette-symbol theme))))
- (if overrides
- (append (symbol-value (modus-themes--palette-symbol theme :overrides))
- modus-themes-common-palette-overrides
- base-value)
- base-value)))
-
-(defun modus-themes--current-theme-palette (&optional overrides)
- "Return palette value of active Modus theme, else produce `user-error'.
-With optional OVERRIDES return palette value plus whatever
-overrides."
- (if-let ((theme (modus-themes--current-theme)))
- (if overrides
- (modus-themes--palette-value theme :overrides)
- (modus-themes--palette-value theme))
- (user-error "No enabled Modus theme could be found")))
-
-(defun modus-themes--disable-themes ()
- "Disable themes per `modus-themes-disable-other-themes'."
- (mapc #'disable-theme
- (if modus-themes-disable-other-themes
- custom-enabled-themes
- (modus-themes--list-known-themes))))
-
-(defun modus-themes-load-theme (theme)
- "Load THEME while disabling other themes.
-
-Which themes are disabled is determined by the user option
-`modus-themes-disable-other-themes'.
-
-Run the `modus-themes-after-load-theme-hook' as the final step
-after loading the THEME.
-
-Return THEME."
- (modus-themes--disable-themes)
- (load-theme theme :no-confirm)
- (run-hooks 'modus-themes-after-load-theme-hook)
- theme)
-
-(defun modus-themes--retrieve-palette-value (color palette)
- "Return COLOR from PALETTE.
-Use recursion until COLOR is retrieved as a string. Refrain from
-doing so if the value of COLOR is not a key in the PALETTE.
-
-Return `unspecified' if the value of COLOR cannot be determined.
-This symbol is accepted by faces and is thus harmless.
-
-This function is used in the macros `modus-themes-theme',
-`modus-themes-with-colors'."
- (let ((value (car (alist-get color palette))))
- (cond
- ((or (stringp value)
- (eq value 'unspecified))
- value)
- ((and (symbolp value)
- (memq value (mapcar #'car palette)))
- (modus-themes--retrieve-palette-value value palette))
- (t
- 'unspecified))))
-
-(defun modus-themes-get-color-value (color &optional overrides theme)
- "Return color value of named COLOR for current Modus theme.
-
-COLOR is a symbol that represents a named color entry in the
-palette.
-
-If the value is the name of another color entry in the
-palette (so a mapping), recur until you find the underlying color
-value.
-
-With optional OVERRIDES as a non-nil value, account for palette
-overrides. Else use the default palette.
-
-With optional THEME as a symbol among `modus-themes-items', use
-the palette of that item. Else use the current Modus theme.
-
-If COLOR is not present in the palette, return the `unspecified'
-symbol, which is safe when used as a face attribute's value."
- (if-let* ((palette (if theme
- (modus-themes--palette-value theme overrides)
- (modus-themes--current-theme-palette overrides)))
- (value (modus-themes--retrieve-palette-value color palette)))
- value
- 'unspecified))
-
-;;;; Commands
-
-(make-obsolete 'modus-themes-load-themes nil "4.0.0")
-(make-obsolete 'modus-themes-load-operandi nil "4.0.0; Check `modus-themes-load-theme'")
-(make-obsolete 'modus-themes-load-vivendi nil "4.0.0; Check `modus-themes-load-theme'")
-
-(defvar modus-themes--select-theme-history nil
- "Minibuffer history of `modus-themes--select-prompt'.")
-
-(defun modus-themes--annotate-theme (theme)
- "Return completion annotation for THEME."
- (format " -- %s" (car (split-string (get (intern theme) 'theme-documentation) "\\."))))
-
-(defun modus-themes--select-prompt ()
- "Minibuffer prompt to select a Modus theme."
- (let ((completion-extra-properties `(:annotation-function ,#'modus-themes--annotate-theme)))
- (intern
- (completing-read
- "Select Modus theme: "
- (modus-themes--list-known-themes)
- nil t nil
- 'modus-themes--select-theme-history))))
-
-;;;###autoload
-(defun modus-themes-select (theme)
- "Load a Modus THEME using minibuffer completion.
-Run `modus-themes-after-load-theme-hook' after loading the theme.
-Disable other themes per `modus-themes-disable-other-themes'."
- (interactive (list (modus-themes--select-prompt)))
- (modus-themes-load-theme theme))
-
-(defun modus-themes--toggle-theme-p ()
- "Return non-nil if `modus-themes-to-toggle' are valid."
- (mapc (lambda (theme)
- (if (or (memq theme modus-themes-items)
- (memq theme (modus-themes--list-known-themes)))
- theme
- (user-error "`%s' is not part of `modus-themes-items'" theme)))
- modus-themes-to-toggle))
-
-;;;###autoload
-(defun modus-themes-toggle ()
- "Toggle between the two `modus-themes-to-toggle'.
-If `modus-themes-to-toggle' does not specify two Modus themes,
-prompt with completion for a theme among our collection (this is
-practically the same as the `modus-themes-select' command).
-
-Run `modus-themes-after-load-theme-hook' after loading the theme.
-Disable other themes per `modus-themes-disable-other-themes'."
- (interactive)
- (if-let* ((themes (modus-themes--toggle-theme-p))
- (one (car themes))
- (two (cadr themes)))
- (if (eq (car custom-enabled-themes) one)
- (modus-themes-load-theme two)
- (modus-themes-load-theme one))
- (modus-themes-load-theme (modus-themes--select-prompt))))
-
-(defun modus-themes--list-colors-render (buffer theme &optional mappings &rest _)
- "Render colors in BUFFER from THEME for `modus-themes-list-colors'.
-Optional MAPPINGS changes the output to only list the semantic
-color mappings of the palette, instead of its named colors."
- (let* ((current-palette (modus-themes--palette-value theme mappings))
- (palette (if mappings
- (seq-remove (lambda (cell)
- (stringp (cadr cell)))
- current-palette)
- current-palette))
- (current-buffer buffer)
- (current-theme theme))
- (with-help-window buffer
- (with-current-buffer standard-output
- (erase-buffer)
- (when (<= (display-color-cells) 256)
- (insert (concat "Your display terminal may not render all color previews!\n"
- "It seems to only support <= 256 colors.\n\n"))
- (put-text-property (point-min) (point) 'face 'warning))
- ;; We need this to properly render the first line.
- (insert " ")
- (dolist (cell palette)
- (let* ((name (car cell))
- (color (modus-themes-get-color-value name mappings theme))
- (pad (make-string 10 ?\s))
- (fg (if (eq color 'unspecified)
- (progn
- (readable-foreground-color (modus-themes-get-color-value 'bg-main nil theme))
- (setq pad (make-string 6 ?\s)))
- (readable-foreground-color color))))
- (let ((old-point (point)))
- (insert (format "%s %s" color pad))
- (put-text-property old-point (point) 'face `( :foreground ,color)))
- (let ((old-point (point)))
- (insert (format " %s %s %s\n" color pad name))
- (put-text-property old-point (point)
- 'face `( :background ,color
- :foreground ,fg
- :extend t)))
- ;; We need this to properly render the last line.
- (insert " ")))
- (setq-local revert-buffer-function
- (lambda (_ignore-auto _noconfirm)
- (modus-themes--list-colors-render current-buffer current-theme mappings)))))))
-
-(defvar modus-themes--list-colors-prompt-history '()
- "Minibuffer history for `modus-themes--list-colors-prompt'.")
-
-(defun modus-themes--list-colors-prompt ()
- "Prompt for Modus theme.
-Helper function for `modus-themes-list-colors'."
- (let ((def (format "%s" (modus-themes--current-theme)))
- (completion-extra-properties `(:annotation-function ,#'modus-themes--annotate-theme)))
- (completing-read
- (format "Use palette from theme [%s]: " def)
- (modus-themes--list-known-themes) nil t nil
- 'modus-themes--list-colors-prompt-history def)))
-
-(defun modus-themes-list-colors (theme &optional mappings)
- "Preview named colors of the Modus THEME of choice.
-With optional prefix argument for MAPPINGS preview the semantic
-color mappings instead of the named colors."
- (interactive (list (intern (modus-themes--list-colors-prompt)) current-prefix-arg))
- (modus-themes--list-colors-render
- (format (if mappings "*%s-list-mappings*" "*%s-list-colors*") theme)
- theme
- mappings))
-
-(defalias 'modus-themes-preview-colors 'modus-themes-list-colors
- "Alias of `modus-themes-list-colors'.")
-
-(defun modus-themes-list-colors-current (&optional mappings)
- "Call `modus-themes-list-colors' for the current Modus theme.
-Optional prefix argument MAPPINGS has the same meaning as for
-`modus-themes-list-colors'."
- (interactive "P")
- (modus-themes-list-colors (modus-themes--current-theme) mappings))
-
-(defalias 'modus-themes-preview-colors-current 'modus-themes-list-colors-current
- "Alias of `modus-themes-list-colors-current'.")
-
-
-
-;;;; Internal functions
-
-(defun modus-themes--warn (option)
- "Warn that OPTION has changed."
- (prog1 nil
- (display-warning
- 'modus-themes
- (format "`%s' has changed; please read the updated documentation" option)
- :warning)))
-
-(defun modus-themes--list-or-warn (option)
- "Return list or nil value of OPTION, else `modus-themes--warn'."
- (let* ((value (symbol-value option)))
- (if (or (null value) (listp value))
- value
- (modus-themes--warn option))))
-
-(defun modus-themes--property-lookup (properties alist-key list-pred default)
- "Return value from property alist or list.
-Check PROPERTIES for an alist value that corresponds to
-ALIST-KEY. If no alist is present, search the PROPERTIES
-list given LIST-PRED, using DEFAULT as a fallback."
- (if-let* ((val (or (alist-get alist-key properties)
- (cl-loop for x in properties
- if (funcall list-pred x) return x)
- default))
- ((listp val)))
- (car val)
- val))
-
-;; Helper functions that are meant to ease the implementation of the
-;; above customization variables.
-(defun modus-themes--bold-weight ()
- "Conditional use of a heavier text weight."
- (when modus-themes-bold-constructs
- (list :inherit 'bold)))
-
-(defun modus-themes--slant ()
- "Conditional use of italics for slant attribute."
- (when modus-themes-italic-constructs
- (list :inherit 'italic)))
-
-(defun modus-themes--fixed-pitch ()
- "Conditional application of `fixed-pitch' inheritance."
- (when modus-themes-mixed-fonts
- (list :inherit 'fixed-pitch)))
-
-(defun modus-themes--variable-pitch-ui ()
- "Conditional use of `variable-pitch' in UI elements."
- (when modus-themes-variable-pitch-ui
- (list :inherit 'variable-pitch)))
-
-(defun modus-themes--prompt (fg bg)
- "Conditional use of colors for text prompt faces.
-FG is the prompt's standard foreground. BG is a background
-color that is combined with FG-FOR-BG."
- (let* ((properties (modus-themes--list-or-warn 'modus-themes-prompts))
- (weight (modus-themes--weight properties)))
- (list :inherit
- (cond
- ((and (memq 'bold properties)
- (memq 'italic properties))
- 'bold-italic)
- ((memq 'italic properties)
- 'italic)
- ((memq 'bold properties)
- 'bold)
- ('unspecified))
- :background bg
- :foreground fg
- :weight
- ;; If we have `bold' specifically, we inherit the face of
- ;; the same name. This allows the user to customise that
- ;; face, such as to change its font family.
- (if (and weight (not (eq weight 'bold)))
- weight
- 'unspecified))))
-
-(defconst modus-themes-weights
- '( thin ultralight extralight light semilight regular medium
- semibold bold heavy extrabold ultrabold)
- "List of font weights.")
-
-(defun modus-themes--weight (list)
- "Search for `modus-themes-weights' weight in LIST."
- (catch 'found
- (dolist (elt list)
- (when (memq elt modus-themes-weights)
- (throw 'found elt)))))
-
-(defun modus-themes--heading (level fg &optional bg ol)
- "Conditional styles for `modus-themes-headings'.
-
-LEVEL is the heading's position in their order. FG is the
-default text color. Optional BG is an appropriate background.
-Optional OL is the color of an overline."
- (let* ((key (alist-get level modus-themes-headings))
- (style (or key (alist-get t modus-themes-headings)))
- (style-listp (listp style))
- (properties style)
- (var (when (memq 'variable-pitch properties) 'variable-pitch))
- (weight (when style-listp (modus-themes--weight style))))
- (list :inherit
- (cond
- ;; `no-bold' is for backward compatibility because we cannot
- ;; deprecate a variable's value.
- ((or weight (memq 'no-bold properties))
- var)
- (var (append (list 'bold) (list var)))
- ('bold))
- :background (or bg 'unspecified)
- :foreground fg
- :overline (or ol 'unspecified)
- :height (modus-themes--property-lookup properties 'height #'floatp 'unspecified)
- :weight (or weight 'unspecified))))
-
-(defun modus-themes--org-block (fg bg)
- "Conditionally set the FG and BG of Org blocks."
- (let ((gray (or (eq modus-themes-org-blocks 'gray-background)
- (eq modus-themes-org-blocks 'grayscale) ; for backward compatibility
- (eq modus-themes-org-blocks 'greyscale))))
- (list :inherit 'modus-themes-fixed-pitch
- :background (if gray bg 'unspecified)
- :foreground (if gray 'unspecified fg)
- :extend (if gray t 'unspecified))))
-
-(defun modus-themes--completion-line (bg)
- "Styles for `modus-themes-completions' with BG as the background."
- (let* ((var (modus-themes--list-or-warn 'modus-themes-completions))
- (properties (or (alist-get 'selection var) (alist-get t var)))
- (italic (memq 'italic properties))
- (weight (modus-themes--weight properties))
- (bold (when (and weight (eq weight 'bold)) 'bold)))
- (list
- :inherit
- (cond
- ((and italic weight (not (eq weight 'bold)))
- 'italic)
- ((and weight (not (eq weight 'bold)))
- 'unspecified)
- (italic 'bold-italic)
- ('bold))
- :background bg
- :foreground 'unspecified
- :underline
- (if (memq 'underline properties) t 'unspecified)
- :weight
- (if (and weight (null bold)) weight 'unspecified))))
-
-(defun modus-themes--completion-match (fg bg)
- "Styles for `modus-themes-completions'.
-FG and BG are the main colors."
- (let* ((var (modus-themes--list-or-warn 'modus-themes-completions))
- (properties (or (alist-get 'matches var) (alist-get t var)))
- (italic (memq 'italic properties))
- (weight (modus-themes--weight properties))
- (bold (when (and weight (eq weight 'bold)) 'bold)))
- (list
- :inherit
- (cond
- ((and italic weight (not (eq weight 'bold)))
- 'italic)
- ((and weight (not (eq weight 'bold)))
- 'unspecified)
- (italic 'bold-italic)
- ('bold))
- :background bg
- :foreground fg
- :underline
- (if (memq 'underline properties) t 'unspecified)
- :weight
- (if (and weight (null bold)) weight 'unspecified))))
-
-
-
-;;;; Face specifications
-
-(defconst modus-themes-faces
- '(
-;;;; custom faces
- ;; these bespoke faces are inherited by other constructs below
-;;;;; just the foregrounds
- `(modus-themes-fg-red ((,c :foreground ,red)))
- `(modus-themes-fg-red-warmer ((,c :foreground ,red-warmer)))
- `(modus-themes-fg-red-cooler ((,c :foreground ,red-cooler)))
- `(modus-themes-fg-red-faint ((,c :foreground ,red-faint)))
- `(modus-themes-fg-red-intense ((,c :foreground ,red-intense)))
- `(modus-themes-fg-green ((,c :foreground ,green)))
- `(modus-themes-fg-green-warmer ((,c :foreground ,green-warmer)))
- `(modus-themes-fg-green-cooler ((,c :foreground ,green-cooler)))
- `(modus-themes-fg-green-faint ((,c :foreground ,green-faint)))
- `(modus-themes-fg-green-intense ((,c :foreground ,green-intense)))
- `(modus-themes-fg-yellow ((,c :foreground ,yellow)))
- `(modus-themes-fg-yellow-warmer ((,c :foreground ,yellow-warmer)))
- `(modus-themes-fg-yellow-cooler ((,c :foreground ,yellow-cooler)))
- `(modus-themes-fg-yellow-faint ((,c :foreground ,yellow-faint)))
- `(modus-themes-fg-yellow-intense ((,c :foreground ,yellow-intense)))
- `(modus-themes-fg-blue ((,c :foreground ,blue)))
- `(modus-themes-fg-blue-warmer ((,c :foreground ,blue-warmer)))
- `(modus-themes-fg-blue-cooler ((,c :foreground ,blue-cooler)))
- `(modus-themes-fg-blue-faint ((,c :foreground ,blue-faint)))
- `(modus-themes-fg-blue-intense ((,c :foreground ,blue-intense)))
- `(modus-themes-fg-magenta ((,c :foreground ,magenta)))
- `(modus-themes-fg-magenta-warmer ((,c :foreground ,magenta-warmer)))
- `(modus-themes-fg-magenta-cooler ((,c :foreground ,magenta-cooler)))
- `(modus-themes-fg-magenta-faint ((,c :foreground ,magenta-faint)))
- `(modus-themes-fg-magenta-intense ((,c :foreground ,magenta-intense)))
- `(modus-themes-fg-cyan ((,c :foreground ,cyan)))
- `(modus-themes-fg-cyan-warmer ((,c :foreground ,cyan-warmer)))
- `(modus-themes-fg-cyan-cooler ((,c :foreground ,cyan-cooler)))
- `(modus-themes-fg-cyan-faint ((,c :foreground ,cyan-faint)))
- `(modus-themes-fg-cyan-intense ((,c :foreground ,cyan-intense)))
-;;;;; nuanced colored backgrounds
- `(modus-themes-nuanced-red ((,c :background ,bg-red-nuanced :extend t)))
- `(modus-themes-nuanced-green ((,c :background ,bg-green-nuanced :extend t)))
- `(modus-themes-nuanced-yellow ((,c :background ,bg-yellow-nuanced :extend t)))
- `(modus-themes-nuanced-blue ((,c :background ,bg-blue-nuanced :extend t)))
- `(modus-themes-nuanced-magenta ((,c :background ,bg-magenta-nuanced :extend t)))
- `(modus-themes-nuanced-cyan ((,c :background ,bg-cyan-nuanced :extend t)))
-;;;;; subtle colored backgrounds
- `(modus-themes-subtle-red ((,c :background ,bg-red-subtle :foreground ,fg-main)))
- `(modus-themes-subtle-green ((,c :background ,bg-green-subtle :foreground ,fg-main)))
- `(modus-themes-subtle-yellow ((,c :background ,bg-yellow-subtle :foreground ,fg-main)))
- `(modus-themes-subtle-blue ((,c :background ,bg-blue-subtle :foreground ,fg-main)))
- `(modus-themes-subtle-magenta ((,c :background ,bg-magenta-subtle :foreground ,fg-main)))
- `(modus-themes-subtle-cyan ((,c :background ,bg-cyan-subtle :foreground ,fg-main)))
-;;;;; intense colored backgrounds
- `(modus-themes-intense-red ((,c :background ,bg-red-intense :foreground ,fg-main)))
- `(modus-themes-intense-green ((,c :background ,bg-green-intense :foreground ,fg-main)))
- `(modus-themes-intense-yellow ((,c :background ,bg-yellow-intense :foreground ,fg-main)))
- `(modus-themes-intense-blue ((,c :background ,bg-blue-intense :foreground ,fg-main)))
- `(modus-themes-intense-magenta ((,c :background ,bg-magenta-intense :foreground ,fg-main)))
- `(modus-themes-intense-cyan ((,c :background ,bg-cyan-intense :foreground ,fg-main)))
-;;;;; mark indicators
- ;; color combinations intended for Dired, Ibuffer, or equivalent
- `(modus-themes-mark-alt ((,c :inherit bold :background ,bg-mark-other :foreground ,fg-mark-other)))
- `(modus-themes-mark-del ((,c :inherit bold :background ,bg-mark-delete :foreground ,fg-mark-delete)))
- `(modus-themes-mark-sel ((,c :inherit bold :background ,bg-mark-select :foreground ,fg-mark-select)))
-;;;;; heading levels
- ;; styles for regular headings used in Org, Markdown, Info, etc.
- `(modus-themes-heading-0 ((,c ,@(modus-themes--heading 0 fg-heading-0 bg-heading-0 overline-heading-0))))
- `(modus-themes-heading-1 ((,c ,@(modus-themes--heading 1 fg-heading-1 bg-heading-1 overline-heading-1))))
- `(modus-themes-heading-2 ((,c ,@(modus-themes--heading 2 fg-heading-2 bg-heading-2 overline-heading-2))))
- `(modus-themes-heading-3 ((,c ,@(modus-themes--heading 3 fg-heading-3 bg-heading-3 overline-heading-3))))
- `(modus-themes-heading-4 ((,c ,@(modus-themes--heading 4 fg-heading-4 bg-heading-4 overline-heading-4))))
- `(modus-themes-heading-5 ((,c ,@(modus-themes--heading 5 fg-heading-5 bg-heading-5 overline-heading-5))))
- `(modus-themes-heading-6 ((,c ,@(modus-themes--heading 6 fg-heading-6 bg-heading-6 overline-heading-6))))
- `(modus-themes-heading-7 ((,c ,@(modus-themes--heading 7 fg-heading-7 bg-heading-7 overline-heading-7))))
- `(modus-themes-heading-8 ((,c ,@(modus-themes--heading 8 fg-heading-8 bg-heading-8 overline-heading-8))))
-;;;;; language checkers
- `(modus-themes-lang-error ((,c :underline (:style wave :color ,underline-err))))
- `(modus-themes-lang-note ((,c :underline (:style wave :color ,underline-note))))
- `(modus-themes-lang-warning ((,c :underline (:style wave :color ,underline-warning))))
-;;;;; prominent semantic notes
- `(modus-themes-prominent-error ((,c :background ,bg-prominent-err :foreground ,fg-prominent-err)))
- `(modus-themes-prominent-note ((,c :background ,bg-prominent-note :foreground ,fg-prominent-note)))
- `(modus-themes-prominent-warning ((,c :background ,bg-prominent-warning :foreground ,fg-prominent-warning)))
-;;;;; markup
- `(modus-themes-prose-code ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-code)))
- `(modus-themes-prose-macro ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-macro)))
- `(modus-themes-prose-verbatim ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-verbatim)))
-;;;;; search
- `(modus-themes-search-current ((,c :background ,bg-yellow-intense :foreground ,fg-main)))
- `(modus-themes-search-lazy ((,c :background ,bg-cyan-intense :foreground ,fg-main)))
-;;;;; completion frameworks
- `(modus-themes-completion-match-0 ((,c ,@(modus-themes--completion-match fg-completion-match-0 bg-completion-match-0))))
- `(modus-themes-completion-match-1 ((,c ,@(modus-themes--completion-match fg-completion-match-1 bg-completion-match-1))))
- `(modus-themes-completion-match-2 ((,c ,@(modus-themes--completion-match fg-completion-match-2 bg-completion-match-2))))
- `(modus-themes-completion-match-3 ((,c ,@(modus-themes--completion-match fg-completion-match-3 bg-completion-match-3))))
- `(modus-themes-completion-selected ((,c ,@(modus-themes--completion-line bg-completion))))
-;;;;; typography
- `(modus-themes-bold ((,c ,@(modus-themes--bold-weight))))
- `(modus-themes-fixed-pitch ((,c ,@(modus-themes--fixed-pitch))))
- `(modus-themes-slant ((,c ,@(modus-themes--slant))))
- `(modus-themes-ui-variable-pitch ((,c ,@(modus-themes--variable-pitch-ui))))
-;;;;; other custom faces
- `(modus-themes-button ((,c :inherit variable-pitch
- :box (:line-width 1 :color ,border :style released-button)
- :background ,bg-button-active
- :foreground ,fg-button-active)))
- `(modus-themes-key-binding ((,c :inherit (bold modus-themes-fixed-pitch) :foreground ,keybind)))
- `(modus-themes-prompt ((,c ,@(modus-themes--prompt fg-prompt bg-prompt))))
- `(modus-themes-reset-soft ((,c :background ,bg-main :foreground ,fg-main
- :weight normal :slant normal :strike-through nil
- :box nil :underline nil :overline nil :extend nil)))
-;;;; standard faces
-;;;;; absolute essentials
- `(default ((,c :background ,bg-main :foreground ,fg-main)))
- `(cursor ((,c :background ,cursor)))
- `(fringe ((,c :background ,fringe :foreground ,fg-main)))
- `(menu ((,c :background ,bg-dim :foreground ,fg-main)))
- `(scroll-bar ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(tool-bar ((,c :background ,bg-dim :foreground ,fg-main)))
- `(vertical-border ((,c :foreground ,border)))
-;;;;; basic and/or ungrouped styles
- `(blink-matching-paren-highlight-offscreen ((,c :background ,bg-paren-match)))
- `(bold ((,c :weight bold)))
- `(bold-italic ((,c :inherit (bold italic))))
- `(underline ((,c :underline ,fg-dim)))
- `(buffer-menu-buffer ((,c :inherit bold)))
- `(child-frame-border ((,c :background ,border)))
- `(comint-highlight-input ((,c :inherit bold)))
- `(comint-highlight-prompt ((,c :inherit modus-themes-prompt)))
- `(confusingly-reordered ((,c :inherit modus-themes-lang-error)))
- `(edmacro-label ((,c :inherit bold :foreground ,accent-0)))
- `(elisp-shorthand-font-lock-face ((,c :inherit font-lock-variable-name-face)))
- `(error ((,c :inherit bold :foreground ,err)))
- `(escape-glyph ((,c :foreground ,err)))
- `(file-name-shadow ((,c :inherit shadow)))
- `(header-line ((,c :inherit modus-themes-ui-variable-pitch :background ,bg-dim)))
- `(header-line-highlight ((,c :inherit highlight)))
- `(help-argument-name ((,c :inherit modus-themes-slant :foreground ,variable)))
- `(help-key-binding ((,c :inherit modus-themes-key-binding)))
- `(highlight ((,c :background ,bg-hover :foreground ,fg-main)))
- `(homoglyph ((,c :foreground ,warning)))
- `(ibuffer-locked-buffer ((,c :foreground ,warning)))
- `(icon-button ((,c :inherit modus-themes-button)))
- `(italic ((,c :slant italic)))
- `(nobreak-hyphen ((,c :foreground ,err)))
- `(nobreak-space ((,c :foreground ,err :underline t)))
- `(menu ((,c :inverse-video unspecified :background ,bg-active :foreground ,fg-main)))
- `(minibuffer-prompt ((,c :inherit modus-themes-prompt)))
- `(mm-command-output ((,c :foreground ,mail-part)))
- `(mm-uu-extract ((,c :foreground ,mail-part)))
- `(next-error ((,c :inherit modus-themes-prominent-error :extend t)))
- `(pgtk-im-0 ((,c :inherit modus-themes-prominent-note)))
- `(read-multiple-choice-face ((,c :inherit (bold modus-themes-mark-alt))))
- `(rectangle-preview ((,c :inherit secondary-selection)))
- `(region ((,c :background ,bg-region :foreground ,fg-region)))
- `(secondary-selection ((,c :background ,bg-hover-secondary :foreground ,fg-main)))
- `(separator-line ((,c :underline ,bg-active)))
- `(shadow ((,c :foreground ,fg-dim)))
- `(success ((,c :inherit bold :foreground ,info)))
- `(trailing-whitespace ((,c :background ,bg-space-err)))
- `(warning ((,c :inherit bold :foreground ,warning)))
-;;;;; buttons, links, widgets
- `(button ((,c :background ,bg-link :foreground ,fg-link :underline ,underline-link)))
- `(link ((,c :inherit button)))
- `(link-visited ((,c :background ,bg-link-visited :foreground ,fg-link-visited :underline ,underline-link-visited)))
- `(tooltip ((,c :background ,bg-active :foreground ,fg-main)))
-;;;;; agda2-mode
- `(agda2-highlight-bound-variable-face ((,c :inherit font-lock-variable-name-face)))
- `(agda2-highlight-catchall-clause-face ((,c :background ,bg-inactive)))
- `(agda2-highlight-coinductive-constructor-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-coverage-problem-face ((,c :inherit modus-themes-lang-error)))
- `(agda2-highlight-datatype-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-deadcode-face ((,c :background ,bg-active)))
- `(agda2-highlight-dotted-face ((,c :inherit font-lock-variable-name-face)))
- `(agda2-highlight-error-face ((,c :inherit modus-themes-lang-error)))
- `(agda2-highlight-field-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-function-face ((,c :inherit font-lock-function-name-face)))
- `(agda2-highlight-generalizable-variable-face ((,c :inherit font-lock-variable-name-face)))
- `(agda2-highlight-incomplete-pattern-face ((,c :inherit modus-themes-lang-warning)))
- `(agda2-highlight-inductive-constructor-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-keyword-face ((,c :inherit font-lock-keyword-face)))
- `(agda2-highlight-macro-face ((,c :inherit font-lock-keyword-face)))
- `(agda2-highlight-module-face ((,c :inherit font-lock-variable-name-face)))
- `(agda2-highlight-number-face ((,c :inherit shadow)))
- `(agda2-highlight-operator-face ((,c :inherit font-lock-variable-name-face)))
- `(agda2-highlight-positivity-problem-face ((,c :inherit modus-themes-lang-warning)))
- `(agda2-highlight-postulate-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-pragma-face ((,c :inherit font-lock-preprocessor-face)))
- `(agda2-highlight-primitive-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-primitive-type-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-record-face ((,c :inherit font-lock-type-face)))
- `(agda2-highlight-string-face ((,c :inherit font-lock-string-face)))
- `(agda2-highlight-symbol-face ((,c :inherit font-lock-constant-face)))
- `(agda2-highlight-termination-problem-face ((,c :inherit modus-themes-lang-warning)))
- `(agda2-highlight-typechecks-face ((,c :inherit font-lock-warning-face)))
- `(agda2-highlight-unsolved-constraint-face ((,c :inherit modus-themes-lang-warning)))
- `(agda2-highlight-unsolved-meta-face ((,c :inherit modus-themes-lang-warning)))
-;;;;; all-the-icons
- `(all-the-icons-blue ((,c :foreground ,blue-cooler)))
- `(all-the-icons-blue-alt ((,c :foreground ,blue-warmer)))
- `(all-the-icons-cyan ((,c :foreground ,cyan)))
- `(all-the-icons-cyan-alt ((,c :foreground ,cyan-warmer)))
- `(all-the-icons-dblue ((,c :foreground ,blue-faint)))
- `(all-the-icons-dcyan ((,c :foreground ,cyan-faint)))
- `(all-the-icons-dgreen ((,c :foreground ,green-faint)))
- `(all-the-icons-dmaroon ((,c :foreground ,magenta-faint)))
- `(all-the-icons-dorange ((,c :foreground ,red-faint)))
- `(all-the-icons-dpink ((,c :foreground ,magenta-faint)))
- `(all-the-icons-dpurple ((,c :foreground ,magenta-cooler)))
- `(all-the-icons-dred ((,c :foreground ,red)))
- `(all-the-icons-dsilver ((,c :foreground ,cyan-faint)))
- `(all-the-icons-dyellow ((,c :foreground ,yellow-faint)))
- `(all-the-icons-green ((,c :foreground ,green)))
- `(all-the-icons-lblue ((,c :foreground ,blue-cooler)))
- `(all-the-icons-lcyan ((,c :foreground ,cyan)))
- `(all-the-icons-lgreen ((,c :foreground ,green-warmer)))
- `(all-the-icons-lmaroon ((,c :foreground ,magenta-warmer)))
- `(all-the-icons-lorange ((,c :foreground ,red-warmer)))
- `(all-the-icons-lpink ((,c :foreground ,magenta)))
- `(all-the-icons-lpurple ((,c :foreground ,magenta-faint)))
- `(all-the-icons-lred ((,c :foreground ,red-faint)))
- `(all-the-icons-lsilver ((,c :foreground "gray50")))
- `(all-the-icons-lyellow ((,c :foreground ,yellow-warmer)))
- `(all-the-icons-maroon ((,c :foreground ,magenta)))
- `(all-the-icons-orange ((,c :foreground ,yellow-warmer)))
- `(all-the-icons-pink ((,c :foreground ,magenta-warmer)))
- `(all-the-icons-purple ((,c :foreground ,magenta-cooler)))
- `(all-the-icons-purple-alt ((,c :foreground ,blue-warmer)))
- `(all-the-icons-red ((,c :foreground ,red)))
- `(all-the-icons-red-alt ((,c :foreground ,red-cooler)))
- `(all-the-icons-silver ((,c :foreground "gray50")))
- `(all-the-icons-yellow ((,c :foreground ,yellow)))
-;;;;; all-the-icons-dired
- `(all-the-icons-dired-dir-face ((,c :foreground ,cyan-faint)))
-;;;;; all-the-icons-ibuffer
- `(all-the-icons-ibuffer-dir-face ((,c :foreground ,cyan-faint)))
- `(all-the-icons-ibuffer-file-face ((,c :foreground ,blue-faint)))
- `(all-the-icons-ibuffer-mode-face ((,c :foreground ,cyan)))
- `(all-the-icons-ibuffer-size-face ((,c :foreground ,cyan-cooler)))
-;;;;; annotate
- `(annotate-annotation ((,c :inherit modus-themes-subtle-blue)))
- `(annotate-annotation-secondary ((,c :inherit modus-themes-subtle-magenta)))
- `(annotate-highlight ((,c :background ,bg-blue-subtle :underline ,blue-intense)))
- `(annotate-highlight-secondary ((,c :background ,bg-magenta-subtle :underline ,magenta-intense)))
-;;;;; ansi-color
- ;; Those are in Emacs28.
- `(ansi-color-black ((,c :background "black" :foreground "black")))
- `(ansi-color-blue ((,c :background ,blue :foreground ,blue)))
- `(ansi-color-bold ((,c :inherit bold)))
- `(ansi-color-bright-black ((,c :background "gray35" :foreground "gray35")))
- `(ansi-color-bright-blue ((,c :background ,blue-warmer :foreground ,blue-warmer)))
- `(ansi-color-bright-cyan ((,c :background ,cyan-cooler :foreground ,cyan-cooler)))
- `(ansi-color-bright-green ((,c :background ,green-cooler :foreground ,green-cooler)))
- `(ansi-color-bright-magenta ((,c :background ,magenta-cooler :foreground ,magenta-cooler)))
- `(ansi-color-bright-red ((,c :background ,red-warmer :foreground ,red-warmer)))
- `(ansi-color-bright-white ((,c :background "white" :foreground "white")))
- `(ansi-color-bright-yellow ((,c :background ,yellow-warmer :foreground ,yellow-warmer)))
- `(ansi-color-cyan ((,c :background ,cyan :foreground ,cyan)))
- `(ansi-color-green ((,c :background ,green :foreground ,green)))
- `(ansi-color-magenta ((,c :background ,magenta :foreground ,magenta)))
- `(ansi-color-red ((,c :background ,red :foreground ,red)))
- `(ansi-color-white ((,c :background "gray65" :foreground "gray65")))
- `(ansi-color-yellow ((,c :background ,yellow :foreground ,yellow)))
-;;;;; anzu
- `(anzu-match-1 ((,c :inherit modus-themes-subtle-cyan)))
- `(anzu-match-2 ((,c :inherit modus-themes-search-current)))
- `(anzu-match-3 ((,c :inherit modus-themes-subtle-yellow)))
- `(anzu-mode-line ((,c :inherit bold)))
- `(anzu-mode-line-no-match ((,c :inherit error)))
- `(anzu-replace-highlight ((,c :inherit modus-themes-prominent-error :underline t)))
- `(anzu-replace-to ((,c :inherit modus-themes-search-current)))
-;;;;; auctex and Tex
- `(font-latex-bold-face ((,c :inherit bold)))
- `(font-latex-doctex-documentation-face ((,c :inherit font-lock-doc-face)))
- `(font-latex-doctex-preprocessor-face ((,c :inherit font-lock-preprocessor-face)))
- `(font-latex-italic-face ((,c :inherit italic)))
- `(font-latex-math-face ((,c :inherit font-lock-constant-face)))
- `(font-latex-script-char-face ((,c :inherit font-lock-builtin-face)))
- `(font-latex-sectioning-5-face ((,c :inherit (bold modus-themes-variable-pitch) :foreground ,fg-alt)))
- `(font-latex-sedate-face ((,c :inherit font-lock-keyword-face)))
- `(font-latex-slide-title-face ((,c :inherit modus-themes-heading-1)))
- `(font-latex-string-face ((,c :inherit font-lock-string-face)))
- `(font-latex-subscript-face ((,c :height 0.95)))
- `(font-latex-superscript-face ((,c :height 0.95)))
- `(font-latex-underline-face ((,c :inherit underline)))
- `(font-latex-verbatim-face ((,c :inherit modus-themes-prose-verbatim)))
- `(font-latex-warning-face ((,c :inherit font-lock-warning-face)))
- `(tex-verbatim ((,c :inherit modus-themes-prose-verbatim)))
- ;; `(texinfo-heading ((,c :foreground ,magenta)))
- `(TeX-error-description-error ((,c :inherit error)))
- `(TeX-error-description-help ((,c :inherit success)))
- `(TeX-error-description-tex-said ((,c :inherit success)))
- `(TeX-error-description-warning ((,c :inherit warning)))
-;;;;; auto-dim-other-buffers
- `(auto-dim-other-buffers-face ((,c :background ,bg-inactive)))
-;;;;; avy
- `(avy-background-face ((,c :background ,bg-dim :foreground ,fg-dim :extend t)))
- `(avy-goto-char-timer-face ((,c :inherit bold :background ,bg-active)))
- `(avy-lead-face ((,c :inherit (bold modus-themes-reset-soft) :background ,bg-char-0)))
- `(avy-lead-face-0 ((,c :inherit (bold modus-themes-reset-soft) :background ,bg-char-1)))
- `(avy-lead-face-1 ((,c :inherit modus-themes-reset-soft :background ,bg-inactive)))
- `(avy-lead-face-2 ((,c :inherit (bold modus-themes-reset-soft) :background ,bg-char-2)))
-;;;;; aw (ace-window)
- `(aw-background-face ((,c :foreground "gray50")))
- `(aw-key-face ((,c :inherit modus-themes-key-binding)))
- `(aw-leading-char-face ((,c :inherit (bold modus-themes-reset-soft) :height 1.5 :foreground ,red-intense)))
- `(aw-minibuffer-leading-char-face ((,c :inherit modus-themes-key-binding)))
- `(aw-mode-line-face ((,c :inherit bold)))
-;;;;; binder
- `(binder-sidebar-highlight ((,c :inherit modus-themes-hl-line)))
- `(binder-sidebar-marked ((,c :inherit modus-themes-mark-sel)))
- `(binder-sidebar-missing ((,c :inherit modus-themes-mark-del)))
- `(binder-sidebar-tags ((,c :foreground ,variable)))
-;;;;; bongo
- `(bongo-album-title (( )))
- `(bongo-artist ((,c :foreground ,accent-0)))
- `(bongo-currently-playing-track ((,c :inherit bold)))
- `(bongo-elapsed-track-part ((,c :background ,bg-inactive :underline t)))
- `(bongo-filled-seek-bar ((,c :background ,bg-hover)))
- `(bongo-marked-track ((,c :inherit modus-themes-mark-alt)))
- `(bongo-marked-track-line ((,c :background ,bg-dim)))
- `(bongo-played-track ((,c :inherit shadow :strike-through t)))
- `(bongo-track-length ((,c :inherit shadow)))
- `(bongo-track-title ((,c :foreground ,accent-1)))
- `(bongo-unfilled-seek-bar ((,c :background ,bg-dim)))
-;;;;; boon
- `(boon-modeline-cmd ((,c :inherit modus-themes-intense-blue)))
- `(boon-modeline-ins ((,c :inherit modus-themes-intense-red)))
- `(boon-modeline-off ((,c :inherit modus-themes-intense-yellow)))
- `(boon-modeline-spc ((,c :inherit modus-themes-intense-green)))
-;;;;; bookmark
- `(bookmark-face ((,c :inherit success)))
- `(bookmark-menu-bookmark ((,c :inherit bold)))
-;;;;; calendar and diary
- `(calendar-month-header ((,c :inherit bold)))
- `(calendar-today ((,c :inherit bold :underline t)))
- `(calendar-weekday-header ((,c :foreground ,date-weekday)))
- `(calendar-weekend-header ((,c :foreground ,date-weekend)))
- `(diary ((,c :foreground ,date-common)))
- `(diary-anniversary ((,c :foreground ,date-holiday)))
- `(diary-time ((,c :foreground ,date-common)))
- `(holiday ((,c :foreground ,date-holiday)))
-;;;;; calibredb
- ;; NOTE 2022-12-27: Calibredb needs to be reviewed. I had to
- ;; change the applicable colors for the transition to
- ;; modus-themes version 4, but I cannot test this currently (it
- ;; depends on an external program).
- `(calibredb-archive-face ((,c :foreground ,accent-3)))
- `(calibredb-author-face ((,c :foreground ,name)))
- `(calibredb-comment-face ((,c :inherit shadow)))
- `(calibredb-date-face ((,c :foreground ,date-common)))
- `(calibredb-edit-annotation-header-title-face ((,c :inherit bold)))
- `(calibredb-favorite-face ((,c :foreground ,red-warmer)))
- `(calibredb-file-face (( )))
- `(calibredb-format-face ((,c :foreground ,fg-alt)))
- `(calibredb-highlight-face ((,c :inherit success)))
- `(calibredb-id-face (( )))
- `(calibredb-ids-face (( )))
- `(calibredb-search-header-highlight-face ((,c :background ,bg-hl-line :extend t)))
- `(calibredb-search-header-library-name-face ((,c :foreground ,accent-2)))
- `(calibredb-search-header-library-path-face ((,c :inherit bold)))
- `(calibredb-search-header-sort-face ((,c :inherit bold :foreground ,accent-1)))
- `(calibredb-search-header-total-face ((,c :inherit bold :foreground ,accent-0)))
- `(calibredb-search-header-filter-face ((,c :inherit bold)))
- `(calibredb-mark-face ((,c :inherit modus-themes-mark-sel)))
- `(calibredb-size-face (( )))
- `(calibredb-tag-face ((,c :foreground ,fg-alt)))
-;;;;; centaur-tabs
- `(centaur-tabs-active-bar-face ((,c :background ,blue)))
- `(centaur-tabs-close-mouse-face ((,c :inherit bold :foreground ,red :underline t)))
- `(centaur-tabs-close-selected ((,c :inherit centaur-tabs-selected)))
- `(centaur-tabs-close-unselected ((,c :inherit centaur-tabs-unselected)))
- `(centaur-tabs-modified-marker-selected ((,c :inherit centaur-tabs-selected)))
- `(centaur-tabs-modified-marker-unselected ((,c :inherit centaur-tabs-unselected)))
- `(centaur-tabs-default ((,c :background ,bg-main)))
- `(centaur-tabs-selected ((,c :inherit bold :box (:line-width -2 :color ,bg-tab-current) :background ,bg-tab-current)))
- `(centaur-tabs-selected-modified ((,c :inherit (italic centaur-tabs-selected))))
- `(centaur-tabs-unselected ((,c :box (:line-width -2 :color ,bg-tab-other) :background ,bg-tab-other)))
- `(centaur-tabs-unselected-modified ((,c :inherit (italic centaur-tabs-unselected))))
-;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
- `(change-log-acknowledgment ((,c :foreground ,identifier)))
- `(change-log-conditionals ((,c :inherit error)))
- `(change-log-date ((,c :foreground ,date-common)))
- `(change-log-email ((,c :foreground ,fg-alt)))
- `(change-log-file ((,c :inherit bold)))
- `(change-log-function ((,c :inherit warning)))
- `(change-log-list ((,c :inherit bold)))
- `(change-log-name ((,c :foreground ,name)))
- `(log-edit-header ((,c :inherit bold)))
- `(log-edit-headers-separator ((,c :height 1 :background ,border :extend t)))
- `(log-edit-summary ((,c :inherit bold :foreground ,blue)))
- `(log-edit-unknown-header ((,c :inherit shadow)))
- `(log-view-commit-body (( )))
- `(log-view-file ((,c :inherit bold)))
- `(log-view-message ((,c :foreground ,identifier)))
-;;;;; cider
- `(cider-deprecated-face ((,c :inherit warning)))
- `(cider-enlightened-face ((,c :box ,warning)))
- `(cider-enlightened-local-face ((,c :inherit warning)))
- `(cider-error-highlight-face ((,c :inherit modus-themes-lang-error)))
- `(cider-fringe-good-face ((,c :foreground ,info)))
- `(cider-instrumented-face ((,c :box ,err)))
- `(cider-reader-conditional-face ((,c :inherit font-lock-type-face)))
- `(cider-repl-prompt-face ((,c :inherit minibuffer-prompt)))
- `(cider-repl-stderr-face ((,c :foreground ,err)))
- `(cider-repl-stdout-face (( )))
- `(cider-warning-highlight-face ((,c :inherit modus-themes-lang-warning)))
-;;;;; circe (and lui)
- `(circe-fool-face ((,c :inherit shadow)))
- `(circe-highlight-nick-face ((,c :inherit error)))
- `(circe-prompt-face ((,c :inherit modus-themes-prompt)))
- `(circe-server-face ((,c :inherit shadow)))
- `(lui-button-face ((,c :inherit button)))
- `(lui-highlight-face ((,c :inherit error)))
- `(lui-time-stamp-face ((,c :foreground ,date-common)))
-;;;;; citar
- `(citar ((,c :inherit shadow)))
- `(citar-highlight (( )))
-;;;;; clojure-mode
- `(clojure-keyword-face ((,c :inherit font-lock-builtin-face)))
-;;;;; column-enforce-mode
- `(column-enforce-face ((,c :inherit modus-themes-prominent-error)))
-;;;;; company-mode
- `(company-echo-common ((,c :inherit modus-themes-completion-match-0)))
- `(company-preview ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(company-preview-common ((,c :inherit company-echo-common)))
- `(company-preview-search ((,c :background ,bg-yellow-intense)))
- `(company-scrollbar-bg ((,c :background ,bg-active)))
- `(company-scrollbar-fg ((,c :background ,fg-main)))
- `(company-template-field ((,c :background ,bg-active)))
- `(company-tooltip ((,c :background ,bg-dim)))
- `(company-tooltip-annotation ((,c :inherit completions-annotations)))
- `(company-tooltip-common ((,c :inherit company-echo-common)))
- `(company-tooltip-deprecated ((,c :inherit company-tooltip :strike-through t)))
- `(company-tooltip-mouse ((,c :inherit highlight)))
- `(company-tooltip-scrollbar-thumb ((,c :background ,fg-alt)))
- `(company-tooltip-scrollbar-track ((,c :background ,bg-inactive)))
- `(company-tooltip-search ((,c :inherit secondary-selection)))
- `(company-tooltip-search-selection ((,c :inherit secondary-selection :underline t)))
- `(company-tooltip-selection ((,c :inherit modus-themes-completion-selected)))
-;;;;; compilation
- `(compilation-column-number ((,c :inherit compilation-line-number)))
- `(compilation-error ((,c :inherit modus-themes-bold :foreground ,err)))
- `(compilation-info ((,c :inherit modus-themes-bold :foreground ,info)))
- `(compilation-line-number ((,c :inherit shadow)))
- `(compilation-mode-line-exit ((,c :inherit bold)))
- `(compilation-mode-line-fail ((,c :inherit bold :foreground ,modeline-err)))
- `(compilation-mode-line-run ((,c :inherit bold :foreground ,modeline-warning)))
- `(compilation-warning ((,c :inherit modus-themes-bold :foreground ,warning)))
-;;;;; completions
- `(completions-annotations ((,c :inherit modus-themes-slant :foreground ,docstring)))
- `(completions-common-part ((,c :inherit modus-themes-completion-match-0)))
- `(completions-first-difference ((,c :inherit modus-themes-completion-match-1)))
-;;;;; consult
- `(consult-async-split ((,c :inherit error)))
- `(consult-file ((,c :inherit modus-themes-bold :foreground ,info)))
- `(consult-key ((,c :inherit modus-themes-key-binding)))
- `(consult-imenu-prefix ((,c :inherit shadow)))
- `(consult-line-number ((,c :inherit shadow)))
- `(consult-line-number-prefix ((,c :inherit shadow)))
-;;;;; corfu
- `(corfu-current ((,c :inherit modus-themes-completion-selected)))
- `(corfu-bar ((,c :background ,fg-dim)))
- `(corfu-border ((,c :background ,bg-active)))
- `(corfu-default ((,c :background ,bg-dim)))
-;;;;; corfu-quick
- `(corfu-quick1 ((,c :inherit bold :background ,bg-char-0)))
- `(corfu-quick2 ((,c :inherit bold :background ,bg-char-1)))
-;;;;; counsel
- `(counsel-active-mode ((,c :foreground ,keyword)))
- `(counsel-application-name ((,c :foreground ,name)))
- `(counsel-key-binding ((,c :inherit modus-themes-key-binding)))
- `(counsel-outline-default ((,c :foreground ,fg-main)))
- `(counsel-variable-documentation ((,c :inherit font-lock-doc-face)))
-;;;;; cperl-mode
- `(cperl-nonoverridable-face ((,c :foreground unspecified)))
- `(cperl-array-face ((,c :inherit font-lock-keyword-face)))
- `(cperl-hash-face ((,c :inherit font-lock-variable-name-face)))
-;;;;; crontab-mode
- `(crontab-minute ((,c :foreground ,string)))
- `(crontab-hour ((,c :foreground ,keyword)))
- `(crontab-month-day ((,c :foreground ,builtin)))
- `(crontab-month ((,c :foreground ,constant)))
- `(crontab-week-day ((,c :foreground ,variable)))
- `(crontab-predefined ((,c :foreground ,string)))
-;;;;; css-mode
- `(css-property ((,c :inherit font-lock-type-face)))
- `(css-selector ((,c :inherit font-lock-keyword-face)))
-;;;;; csv-mode
- `(csv-separator-face ((,c :foreground ,red-intense)))
-;;;;; ctrlf
- `(ctrlf-highlight-active ((,c :inherit modus-themes-search-current)))
- `(ctrlf-highlight-line ((,c :background ,bg-hl-line :extend t)))
- `(ctrlf-highlight-passive ((,c :inherit modus-themes-search-lazy)))
-;;;;; custom (M-x customize)
- `(custom-button ((,c :inherit modus-themes-button)))
- `(custom-button-mouse ((,c :inherit (highlight custom-button))))
- `(custom-button-pressed ((,c :inherit (secondary-selection custom-button))))
- `(custom-changed ((,c :background ,bg-changed)))
- `(custom-comment ((,c :inherit shadow)))
- `(custom-comment-tag ((,c :inherit (bold shadow))))
- `(custom-invalid ((,c :inherit error :strike-through t)))
- `(custom-modified ((,c :inherit custom-changed)))
- `(custom-rogue ((,c :inherit custom-invalid)))
- `(custom-set ((,c :inherit success)))
- `(custom-state ((,c :foreground ,warning)))
- `(custom-themed ((,c :inherit custom-changed)))
- `(custom-variable-obsolete ((,c :inherit shadow)))
- `(custom-face-tag ((,c :inherit bold :foreground ,type)))
- `(custom-group-tag ((,c :inherit bold :foreground ,builtin)))
- `(custom-group-tag-1 ((,c :inherit bold :foreground ,constant)))
- `(custom-variable-tag ((,c :inherit bold :foreground ,variable)))
-;;;;; dashboard
- `(dashboard-heading ((,c :foreground ,name)))
- `(dashboard-items-face (( ))) ; use the underlying style of all-the-icons
-;;;;; deadgrep
- `(deadgrep-filename-face ((,c :inherit bold :foreground ,name)))
- `(deadgrep-match-face ((,c :inherit match)))
- `(deadgrep-meta-face ((,c :inherit shadow)))
- `(deadgrep-regexp-metachar-face ((,c :inherit font-lock-regexp-grouping-construct)))
- `(deadgrep-search-term-face ((,c :inherit success)))
-;;;;; deft
- `(deft-filter-string-face ((,c :inherit success)))
- `(deft-header-face ((,c :inherit shadow)))
- `(deft-separator-face ((,c :foreground "gray50")))
- `(deft-summary-face ((,c :inherit (shadow modus-themes-slant))))
- `(deft-time-face ((,c :foreground ,date-common)))
- `(deft-title-face ((,c :inherit bold)))
-;;;;; devdocs
- `(devdocs-code-block ((,c :inherit modus-themes-fixed-pitch :background ,bg-dim :extend t)))
-;;;;; dictionary
- `(dictionary-button-face ((,c :inherit bold)))
- `(dictionary-reference-face ((,c :inherit link)))
- `(dictionary-word-definition-face (( )))
- `(dictionary-word-entry-face ((,c :inherit font-lock-comment-face)))
-;;;;; diff-hl
- `(diff-hl-change ((,c :background ,bg-changed-fringe)))
- `(diff-hl-delete ((,c :background ,bg-removed-fringe)))
- `(diff-hl-insert ((,c :background ,bg-added-fringe)))
- `(diff-hl-reverted-hunk-highlight ((,c :background ,fg-main :foreground ,bg-main)))
-;;;;; diff-mode
- `(diff-added ((,c :background ,bg-added :foreground ,fg-added)))
- `(diff-changed ((,c :background ,bg-changed :foreground ,fg-changed :extend t)))
- `(diff-changed-unspecified ((,c :inherit diff-changed)))
- `(diff-removed ((,c :background ,bg-removed :foreground ,fg-removed)))
- `(diff-refine-added ((,c :background ,bg-added-refine :foreground ,fg-added)))
- `(diff-refine-changed ((,c :background ,bg-changed-refine :foreground ,fg-changed)))
- `(diff-refine-removed ((,c :background ,bg-removed-refine :foreground ,fg-removed)))
- `(diff-indicator-added ((,c :inherit diff-added :foreground ,fg-added-intense)))
- `(diff-indicator-changed ((,c :inherit diff-changed :foreground ,fg-changed-intense)))
- `(diff-indicator-removed ((,c :inherit diff-removed :foreground ,fg-removed-intense)))
- `(diff-context (( )))
- `(diff-error ((,c :inherit error)))
- `(diff-file-header ((,c :inherit bold)))
- `(diff-function ((,c :background ,bg-inactive)))
- `(diff-header (( )))
- `(diff-hunk-header ((,c :inherit bold :background ,bg-inactive)))
- `(diff-index ((,c :inherit italic)))
- `(diff-nonexistent ((,c :inherit bold)))
-;;;;; dim-autoload
- `(dim-autoload-cookie-line ((,c :inherit font-lock-comment-face)))
-;;;;; dired
- `(dired-broken-symlink ((,c :inherit button :foreground ,err)))
- `(dired-directory ((,c :foreground ,accent-0)))
- `(dired-flagged ((,c :inherit modus-themes-mark-del)))
- `(dired-header ((,c :inherit bold)))
- `(dired-ignored ((,c :inherit shadow)))
- `(dired-mark ((,c :inherit bold)))
- `(dired-marked ((,c :inherit modus-themes-mark-sel)))
- `(dired-perm-write ((,c :inherit shadow)))
- `(dired-symlink ((,c :inherit button :background ,bg-link-symbolic :foreground ,fg-link-symbolic :underline ,underline-link-symbolic)))
- `(dired-warning ((,c :inherit warning)))
-;;;;; dired-async
- `(dired-async-failures ((,c :inherit error)))
- `(dired-async-message ((,c :inherit bold)))
- `(dired-async-mode-message ((,c :inherit bold)))
-;;;;; dired-git
- `(dired-git-branch-else ((,c :inherit bold :foreground ,accent-0)))
- `(dired-git-branch-master ((,c :inherit bold :foreground ,accent-1)))
-;;;;; dired-git-info
- `(dgi-commit-message-face ((,c :foreground ,docstring)))
-;;;;; dired-narrow
- `(dired-narrow-blink ((,c :inherit (modus-themes-prominent-warning bold))))
-;;;;; dired-subtree
- ;; remove backgrounds from dired-subtree faces, else they break
- ;; dired-{flagged,marked} and any other face that sets a background
- ;; such as hl-line. Also, denoting depth by varying shades of gray
- ;; is not good for accessibility.
- `(dired-subtree-depth-1-face (()))
- `(dired-subtree-depth-2-face (()))
- `(dired-subtree-depth-3-face (()))
- `(dired-subtree-depth-4-face (()))
- `(dired-subtree-depth-5-face (()))
- `(dired-subtree-depth-6-face (()))
-;;;;; diredfl
- `(diredfl-autofile-name ((,c :background ,bg-inactive)))
- `(diredfl-compressed-file-name ((,c :foreground ,warning)))
- `(diredfl-compressed-file-suffix ((,c :foreground ,err)))
- `(diredfl-date-time ((,c :foreground ,date-common)))
- `(diredfl-deletion ((,c :inherit dired-flagged)))
- `(diredfl-deletion-file-name ((,c :inherit diredfl-deletion)))
- `(diredfl-dir-heading ((,c :inherit bold)))
- `(diredfl-dir-name ((,c :inherit dired-directory)))
- `(diredfl-dir-priv ((,c :inherit dired-directory)))
- `(diredfl-exec-priv ((,c :foreground ,accent-1)))
- `(diredfl-executable-tag ((,c :inherit diredfl-exec-priv)))
- `(diredfl-file-name ((,c :foreground ,fg-main)))
- `(diredfl-file-suffix ((,c :foreground ,variable)))
- `(diredfl-flag-mark ((,c :inherit dired-marked)))
- `(diredfl-flag-mark-line ((,c :inherit dired-marked)))
- `(diredfl-ignored-file-name ((,c :inherit shadow)))
- `(diredfl-link-priv ((,c :foreground ,fg-link)))
- `(diredfl-no-priv ((,c :inherit shadow)))
- `(diredfl-number ((,c :inherit shadow)))
- `(diredfl-other-priv ((,c :foreground ,accent-2)))
- `(diredfl-rare-priv ((,c :foreground ,accent-3)))
- `(diredfl-read-priv ((,c :foreground ,fg-main)))
- `(diredfl-symlink ((,c :inherit dired-symlink)))
- `(diredfl-tagged-autofile-name ((,c :inherit (diredfl-autofile-name dired-marked))))
- `(diredfl-write-priv ((,c :foreground ,accent-0)))
-;;;;; disk-usage
- `(disk-usage-inaccessible ((,c :inherit error)))
- `(disk-usage-percent ((,c :foreground ,accent-0)))
- `(disk-usage-size ((,c :foreground ,accent-1)))
- `(disk-usage-symlink ((,c :inherit dired-symlink)))
- `(disk-usage-symlink-directory ((,c :inherit dired-symlink)))
-;;;;; display-fill-column-indicator-mode
- `(fill-column-indicator ((,c :height 1 :background ,bg-active :foreground ,bg-active)))
-;;;;; doom-modeline
- `(doom-modeline-bar ((,c :background ,blue)))
- `(doom-modeline-bar-inactive ((,c :background ,border)))
- `(doom-modeline-battery-charging ((,c :foreground ,modeline-info)))
- `(doom-modeline-battery-critical ((,c :underline t :foreground ,modeline-err)))
- `(doom-modeline-battery-error ((,c :underline t :foreground ,modeline-err)))
- `(doom-modeline-battery-full (( )))
- `(doom-modeline-battery-warning ((,c :inherit warning)))
- `(doom-modeline-buffer-file ((,c :inherit bold)))
- `(doom-modeline-buffer-major-mode (( )))
- `(doom-modeline-buffer-minor-mode (( )))
- `(doom-modeline-buffer-modified ((,c :foreground ,modeline-err)))
- `(doom-modeline-buffer-path (( )))
- `(doom-modeline-evil-emacs-state ((,c :inherit italic)))
- `(doom-modeline-evil-insert-state ((,c :foreground ,modeline-info)))
- `(doom-modeline-evil-motion-state (( )))
- `(doom-modeline-evil-normal-state (( )))
- `(doom-modeline-evil-operator-state ((,c :inherit bold)))
- `(doom-modeline-evil-replace-state ((,c :inherit error)))
- `(doom-modeline-evil-visual-state ((,c :inherit warning)))
- `(doom-modeline-info ((,c :inherit success)))
- `(doom-modeline-input-method (( )))
- `(doom-modeline-lsp-error ((,c :inherit bold-italic)))
- `(doom-modeline-lsp-running (( )))
- `(doom-modeline-lsp-success ((,c :inherit success)))
- `(doom-modeline-lsp-warning ((,c :inherit warning)))
- `(doom-modeline-notification ((,c :inherit error)))
- `(doom-modeline-project-dir (( )))
- `(doom-modeline-project-parent-dir (( )))
- `(doom-modeline-project-root-dir (( )))
- `(doom-modeline-repl-success ((,c :inherit success)))
- `(doom-modeline-repl-warning ((,c :inherit warning)))
- `(doom-modeline-time (( )))
- `(doom-modeline-urgent ((,c :inherit bold-italic :foreground ,modeline-err)))
- `(doom-modeline-warning ((,c :inherit warning)))
-;;;;; ediff
- `(ediff-current-diff-A ((,c :background ,bg-removed :foreground ,fg-removed)))
- `(ediff-current-diff-Ancestor ((,c :background ,bg-region)))
- `(ediff-current-diff-B ((,c :background ,bg-added :foreground ,fg-added)))
- `(ediff-current-diff-C ((,c :background ,bg-changed :foreground ,fg-changed)))
- `(ediff-even-diff-A ((,c :background ,bg-diff-context)))
- `(ediff-even-diff-Ancestor ((,c :background ,bg-diff-context)))
- `(ediff-even-diff-B ((,c :background ,bg-diff-context)))
- `(ediff-even-diff-C ((,c :background ,bg-diff-context)))
- `(ediff-fine-diff-A ((,c :background ,bg-removed-refine :foreground ,fg-removed)))
- `(ediff-fine-diff-Ancestor ((,c :inherit modus-themes-subtle-cyan)))
- `(ediff-fine-diff-B ((,c :background ,bg-added-refine :foreground ,fg-added)))
- `(ediff-fine-diff-C ((,c :background ,bg-changed-refine :foreground ,fg-changed)))
- `(ediff-odd-diff-A ((,c :inherit ediff-even-diff-A)))
- `(ediff-odd-diff-Ancestor ((,c :inherit ediff-even-diff-Ancestor)))
- `(ediff-odd-diff-B ((,c :inherit ediff-even-diff-B)))
- `(ediff-odd-diff-C ((,c :inherit ediff-even-diff-C)))
-;;;;; ein (Emacs IPython Notebook)
- `(ein:basecell-input-area-face ((,c :background ,bg-dim :extend t)))
- `(ein:cell-output-area (( )))
- `(ein:cell-output-area-error ((,c :background ,bg-removed :extend t)))
- `(ein:cell-output-stderr ((,c :background ,bg-removed :extend t)))
- `(ein:markdowncell-input-area-face (( )))
- `(ein:notification-tab-normal ((,c :underline t)))
-;;;;; eglot
- `(eglot-mode-line ((,c :inherit modus-themes-bold :foreground ,modeline-info)))
- `(eglot-diagnostic-tag-unnecessary-face ((,c :inherit modus-themes-lang-note)))
-;;;;; el-search
- `(el-search-highlight-in-prompt-face ((,c :inherit italic)))
- `(el-search-match ((,c :inherit modus-themes-search-current)))
- `(el-search-other-match ((,c :inherit modus-themes-search-lazy)))
- `(el-search-occur-match ((,c :inherit match)))
-;;;;; eldoc
- ;; NOTE: see https://github.com/purcell/package-lint/issues/187
- (list 'eldoc-highlight-function-argument `((,c :inherit modus-themes-mark-alt)))
-;;;;; eldoc-box
- `(eldoc-box-body ((,c :background ,bg-dim :foreground ,fg-main)))
- `(eldoc-box-border ((,c :background ,border)))
-;;;;; elfeed
- `(elfeed-log-date-face ((,c :inherit elfeed-search-date-face)))
- `(elfeed-log-debug-level-face ((,c :inherit elfeed-search-filter-face)))
- `(elfeed-log-error-level-face ((,c :inherit error)))
- `(elfeed-log-info-level-face ((,c :inherit success)))
- `(elfeed-log-warn-level-face ((,c :inherit warning)))
- `(elfeed-search-date-face ((,c :foreground ,date-common)))
- `(elfeed-search-feed-face ((,c :foreground ,accent-1)))
- `(elfeed-search-filter-face ((,c :inherit bold)))
- `(elfeed-search-last-update-face ((,c :inherit bold :foreground ,date-common)))
- `(elfeed-search-tag-face ((,c :foreground ,accent-0)))
- `(elfeed-search-title-face ((,c :foreground ,fg-dim)))
- `(elfeed-search-unread-count-face (( )))
- `(elfeed-search-unread-title-face ((,c :inherit bold :foreground ,fg-main)))
-;;;;; elfeed-score
- `(elfeed-score-date-face ((,c :foreground ,date-common)))
- `(elfeed-score-debug-level-face ((,c :inherit bold)))
- `(elfeed-score-error-level-face ((,c :inherit error)))
- `(elfeed-score-info-level-face ((,c :inherit success)))
- `(elfeed-score-warn-level-face ((,c :inherit warning)))
-;;;;; elpher
- `(elpher-gemini-heading1 ((,c :inherit modus-themes-heading-1)))
- `(elpher-gemini-heading2 ((,c :inherit modus-themes-heading-2)))
- `(elpher-gemini-heading3 ((,c :inherit modus-themes-heading-3)))
-;;;;; embark
- `(embark-keybinding ((,c :inherit modus-themes-key-binding)))
- `(embark-collect-marked ((,c :inherit modus-themes-mark-sel)))
-;;;;; ement (ement.el)
- `(ement-room-fully-read-marker ((,c :inherit success)))
- `(ement-room-membership ((,c :inherit shadow)))
- `(ement-room-mention ((,c :inherit highlight)))
- `(ement-room-name ((,c :inherit bold)))
- `(ement-room-reactions ((,c :inherit shadow)))
- `(ement-room-read-receipt-marker ((,c :inherit match)))
- `(ement-room-self ((,c :inherit bold :foreground ,accent-1)))
- `(ement-room-self-message ((,c :foreground ,fg-alt)))
- `(ement-room-timestamp ((,c :inherit shadow)))
- `(ement-room-timestamp-header ((,c :inherit bold :foreground ,date-common)))
- `(ement-room-user ((,c :inherit bold :foreground ,accent-0)))
-;;;;; emms
- `(emms-browser-album-face ((,c :foreground ,keyword)))
- `(emms-browser-artist-face ((,c :foreground ,variable)))
- `(emms-browser-composer-face ((,c :foreground ,builtin)))
- `(emms-browser-performer-face ((,c :inherit emms-browser-artist-face)))
- `(emms-browser-track-face ((,c :inherit emms-playlist-track-face)))
- `(emms-browser-year/genre-face ((,c :foreground ,type)))
- `(emms-playlist-track-face ((,c :foreground ,string)))
- `(emms-playlist-selected-face ((,c :inherit bold :foreground ,constant)))
- `(emms-metaplaylist-mode-current-face ((,c :inherit emms-playlist-selected-face)))
- `(emms-metaplaylist-mode-face ((,c :foreground ,variable)))
-;;;;; enh-ruby-mode (enhanced-ruby-mode)
- `(enh-ruby-heredoc-delimiter-face ((,c :inherit font-lock-constant-face)))
- `(enh-ruby-op-face ((,c :foreground ,fg-main)))
- `(enh-ruby-regexp-delimiter-face ((,c :inherit font-lock-regexp-grouping-construct)))
- `(enh-ruby-regexp-face ((,c :inherit font-lock-string-face)))
- `(enh-ruby-string-delimiter-face ((,c :inherit font-lock-string-face)))
- `(erm-syn-errline ((,c :inherit modus-themes-lang-error)))
- `(erm-syn-warnline ((,c :inherit modus-themes-lang-warning)))
-;;;;; epa
- `(epa-field-body (( )))
- `(epa-field-name ((,c :inherit bold :foreground ,fg-dim)))
- `(epa-mark ((,c :inherit bold)))
- `(epa-string ((,c :foreground ,string)))
- `(epa-validity-disabled ((,c :foreground ,err)))
- `(epa-validity-high ((,c :inherit success)))
- `(epa-validity-low ((,c :inherit shadow)))
- `(epa-validity-medium ((,c :foreground ,info)))
-;;;;; erc
- `(erc-action-face ((,c :foreground ,accent-2)))
- `(erc-bold-face ((,c :inherit bold)))
- `(erc-button ((,c :inherit button)))
- `(erc-command-indicator-face ((,c :inherit bold :foreground ,accent-3)))
- `(erc-current-nick-face ((,c :inherit match)))
- `(erc-dangerous-host-face ((,c :inherit error)))
- `(erc-direct-msg-face ((,c :inherit shadow)))
- `(erc-error-face ((,c :inherit error)))
- `(erc-fool-face ((,c :inherit shadow)))
- `(erc-input-face ((,c :foreground ,fnname)))
- `(erc-inverse-face ((,c :inherit erc-default-face :inverse-video t)))
- `(erc-keyword-face ((,c :inherit bold :foreground ,keyword)))
- `(erc-my-nick-face ((,c :inherit bold :foreground ,name)))
- `(erc-my-nick-prefix-face ((,c :inherit erc-my-nick-face)))
- `(erc-nick-default-face ((,c :inherit bold :foreground ,accent-0)))
- `(erc-nick-msg-face ((,c :inherit warning)))
- `(erc-nick-prefix-face ((,c :inherit erc-nick-default-face)))
- `(erc-notice-face ((,c :inherit font-lock-comment-face)))
- `(erc-pal-face ((,c :inherit bold :foreground ,accent-1)))
- `(erc-prompt-face ((,c :inherit modus-themes-prompt)))
- `(erc-timestamp-face ((,c :foreground ,date-common)))
- `(erc-underline-face ((,c :underline t)))
-;;;;; ert
- `(ert-test-result-expected ((,c :inherit modus-themes-prominent-note)))
- `(ert-test-result-unexpected ((,c :inherit modus-themes-prominent-error)))
-;;;;; eshell
- `(eshell-ls-archive ((,c :foreground ,accent-2)))
- `(eshell-ls-backup ((,c :inherit shadow)))
- `(eshell-ls-clutter ((,c :inherit shadow)))
- `(eshell-ls-directory ((,c :foreground ,accent-0)))
- `(eshell-ls-executable ((,c :foreground ,accent-1)))
- `(eshell-ls-missing ((,c :inherit error)))
- `(eshell-ls-product ((,c :inherit shadow)))
- `(eshell-ls-readonly ((,c :foreground ,warning)))
- `(eshell-ls-special ((,c :foreground ,accent-3)))
- `(eshell-ls-symlink ((,c :inherit link)))
- `(eshell-ls-unreadable ((,c :inherit shadow)))
- `(eshell-prompt ((,c :inherit modus-themes-prompt)))
-;;;;; eshell-fringe-status
- `(eshell-fringe-status-failure ((,c :inherit error)))
- `(eshell-fringe-status-success ((,c :inherit success)))
-;;;;; evil-mode
- `(evil-ex-commands ((,c :inherit font-lock-keyword-face)))
- `(evil-ex-info ((,c :inherit font-lock-type-face)))
- `(evil-ex-lazy-highlight ((,c :inherit modus-themes-search-lazy)))
- `(evil-ex-search ((,c :inherit modus-themes-search-current)))
- `(evil-ex-substitute-matches ((,c :inherit modus-themes-prominent-error :underline t)))
- `(evil-ex-substitute-replacement ((,c :inherit modus-themes-search-current)))
-;;;;; eww
- `(eww-invalid-certificate ((,c :foreground ,err)))
- `(eww-valid-certificate ((,c :foreground ,info)))
- `(eww-form-checkbox ((,c :inherit eww-form-text)))
- `(eww-form-file ((,c :inherit eww-form-submit)))
- `(eww-form-select ((,c :inherit eww-form-submit)))
- `(eww-form-submit ((,c :inherit modus-themes-button)))
- `(eww-form-text ((,c :inherit widget-field)))
- `(eww-form-textarea ((,c :inherit eww-form-text)))
-;;;;; eyebrowse
- `(eyebrowse-mode-line-active ((,c :inherit mode-line-emphasis)))
-;;;;; flycheck
- `(flycheck-error ((,c :inherit modus-themes-lang-error)))
- `(flycheck-fringe-error ((,c :inherit modus-themes-prominent-error)))
- `(flycheck-fringe-info ((,c :inherit modus-themes-prominent-note)))
- `(flycheck-fringe-warning ((,c :inherit modus-themes-prominent-warning)))
- `(flycheck-info ((,c :inherit modus-themes-lang-note)))
- `(flycheck-warning ((,c :inherit modus-themes-lang-warning)))
-;;;;; flycheck-color-mode-line
- `(flycheck-color-mode-line-error-face ((,c :inherit flycheck-fringe-error)))
- `(flycheck-color-mode-line-info-face ((,c :inherit flycheck-fringe-info)))
- `(flycheck-color-mode-line-running-face ((,c :inherit italic)))
- `(flycheck-color-mode-line-info-face ((,c :inherit flycheck-fringe-warning)))
-;;;;; flycheck-indicator
- `(flycheck-indicator-disabled ((,c :inherit modus-themes-slant :foreground ,fg-dim)))
- `(flycheck-indicator-error ((,c :inherit error)))
- `(flycheck-indicator-info ((,c :inherit bold)))
- `(flycheck-indicator-running ((,c :inherit modus-themes-slant)))
- `(flycheck-indicator-success ((,c :inherit success)))
- `(flycheck-indicator-warning ((,c :inherit warning)))
-;;;;; flymake
- `(flymake-end-of-line-diagnostics-face ((,c :inherit modus-themes-slant :height 0.85 :box ,border)))
- `(flymake-error ((,c :inherit modus-themes-lang-error)))
- `(flymake-error-echo ((,c :inherit error)))
- `(flymake-error-echo-at-eol ((,c :inherit flymake-end-of-line-diagnostics-face :foreground ,err)))
- `(flymake-note ((,c :inherit modus-themes-lang-note)))
- `(flymake-note-echo ((,c :inherit success)))
- `(flymake-note-echo-at-eol ((,c :inherit flymake-end-of-line-diagnostics-face :foreground ,info)))
- `(flymake-warning ((,c :inherit modus-themes-lang-warning)))
- `(flymake-warning-echo ((,c :inherit warning)))
- `(flymake-note-echo-at-eol ((,c :inherit flymake-end-of-line-diagnostics-face :foreground ,warning)))
-;;;;; flyspell
- `(flyspell-duplicate ((,c :inherit modus-themes-lang-warning)))
- `(flyspell-incorrect ((,c :inherit modus-themes-lang-error)))
-;;;;; flx
- `(flx-highlight-face ((,c :inherit modus-themes-completion-match-0)))
-;;;;; focus
- `(focus-unfocused ((,c :foreground "gray50")))
-;;;;; fold-this
- `(fold-this-overlay ((,c :background ,bg-inactive)))
-;;;;; font-lock
- `(font-lock-builtin-face ((,c :inherit modus-themes-bold :foreground ,builtin)))
- `(font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))
- `(font-lock-comment-face ((,c :inherit modus-themes-slant :foreground ,comment)))
- `(font-lock-constant-face ((,c :foreground ,constant)))
- `(font-lock-doc-face ((,c :inherit modus-themes-slant :foreground ,docstring)))
- `(font-lock-doc-markup-face ((,c :inherit modus-themes-slant :foreground ,docmarkup)))
- `(font-lock-function-name-face ((,c :foreground ,fnname)))
- `(font-lock-keyword-face ((,c :inherit modus-themes-bold :foreground ,keyword)))
- `(font-lock-negation-char-face ((,c :inherit error)))
- `(font-lock-preprocessor-face ((,c :foreground ,preprocessor)))
- `(font-lock-regexp-grouping-backslash ((,c :inherit modus-themes-bold :foreground ,rx-backslash)))
- `(font-lock-regexp-grouping-construct ((,c :inherit modus-themes-bold :foreground ,rx-construct)))
- `(font-lock-string-face ((,c :foreground ,string)))
- `(font-lock-type-face ((,c :inherit modus-themes-bold :foreground ,type)))
- `(font-lock-variable-name-face ((,c :foreground ,variable)))
- `(font-lock-warning-face ((,c :inherit modus-themes-bold :foreground ,warning)))
-;;;;; geiser
- `(geiser-font-lock-autodoc-current-arg ((,c :inherit modus-themes-mark-alt)))
- `(geiser-font-lock-autodoc-identifier ((,c :foreground ,docstring)))
- `(geiser-font-lock-doc-button ((,c :inherit button)))
- `(geiser-font-lock-doc-link ((,c :inherit button)))
- `(geiser-font-lock-error-link ((,c :inherit button :foreground ,err)))
- `(geiser-font-lock-image-button ((,c :inherit button :foreground ,info)))
- `(geiser-font-lock-repl-input ((,c :inherit bold)))
- `(geiser-font-lock-repl-output ((,c :inherit font-lock-keyword-face)))
- `(geiser-font-lock-repl-prompt ((,c :inherit modus-themes-prompt)))
- `(geiser-font-lock-xref-header ((,c :inherit bold)))
- `(geiser-font-lock-xref-link ((,c :inherit button)))
-;;;;; git-commit
- `(git-commit-comment-action ((,c :inherit font-lock-comment-face)))
- `(git-commit-comment-branch-local ((,c :inherit font-lock-comment-face :foreground ,accent-0)))
- `(git-commit-comment-branch-remote ((,c :inherit font-lock-comment-face :foreground ,accent-1)))
- `(git-commit-comment-heading ((,c :inherit (bold font-lock-comment-face))))
- `(git-commit-comment-file ((,c :inherit font-lock-comment-face :foreground ,name)))
- `(git-commit-keyword ((,c :foreground ,keyword)))
- `(git-commit-nonempty-second-line ((,c :inherit error)))
- `(git-commit-overlong-summary ((,c :inherit warning)))
- `(git-commit-summary ((,c :inherit bold :foreground ,blue)))
-;;;;; git-gutter
- `(git-gutter:added ((,c :background ,bg-added-fringe)))
- `(git-gutter:deleted ((,c :background ,bg-removed-fringe)))
- `(git-gutter:modified ((,c :background ,bg-changed-fringe)))
- `(git-gutter:separator ((,c :inherit modus-themes-intense-cyan)))
- `(git-gutter:unchanged ((,c :inherit modus-themes-intense-magenta)))
-;;;;; git-gutter-fr
- `(git-gutter-fr:added ((,c :background ,bg-added-fringe)))
- `(git-gutter-fr:deleted ((,c :background ,bg-removed-fringe)))
- `(git-gutter-fr:modified ((,c :background ,bg-changed-fringe)))
-;;;;; git-rebase
- `(git-rebase-comment-hash ((,c :inherit (bold font-lock-comment-face) :foreground ,identifier)))
- `(git-rebase-comment-heading ((,c :inherit (bold font-lock-comment-face))))
- `(git-rebase-description ((,c :foreground ,fg-main)))
- `(git-rebase-hash ((,c :foreground ,identifier)))
-;;;;; git-timemachine
- `(git-timemachine-commit ((,c :inherit warning)))
- `(git-timemachine-minibuffer-author-face ((,c :foreground ,name)))
- `(git-timemachine-minibuffer-detail-face ((,c :foreground ,fg-main)))
-;;;;; gnus
- `(gnus-button ((,c :inherit button)))
- `(gnus-cite-1 ((,c :inherit message-cited-text-1)))
- `(gnus-cite-2 ((,c :inherit message-cited-text-2)))
- `(gnus-cite-3 ((,c :inherit message-cited-text-3)))
- `(gnus-cite-4 ((,c :inherit message-cited-text-4)))
- `(gnus-cite-5 ((,c :inherit message-cited-text-1)))
- `(gnus-cite-6 ((,c :inherit message-cited-text-2)))
- `(gnus-cite-7 ((,c :inherit message-cited-text-3)))
- `(gnus-cite-8 ((,c :inherit message-cited-text-4)))
- `(gnus-cite-9 ((,c :inherit message-cited-text-1)))
- `(gnus-cite-10 ((,c :inherit message-cited-text-2)))
- `(gnus-cite-11 ((,c :inherit message-cited-text-3)))
- `(gnus-cite-attribution ((,c :inherit italic)))
- `(gnus-emphasis-bold ((,c :inherit bold)))
- `(gnus-emphasis-bold-italic ((,c :inherit bold-italic)))
- `(gnus-emphasis-highlight-words ((,c :inherit warning)))
- `(gnus-emphasis-italic ((,c :inherit italic)))
- `(gnus-emphasis-underline-bold ((,c :inherit gnus-emphasis-bold :underline t)))
- `(gnus-emphasis-underline-bold-italic ((,c :inherit gnus-emphasis-bold-italic :underline t)))
- `(gnus-emphasis-underline-italic ((,c :inherit gnus-emphasis-italic :underline t)))
- `(gnus-group-mail-1 ((,c :inherit (bold gnus-group-mail-1-empty))))
- `(gnus-group-mail-1-empty ((,c :foreground ,magenta-warmer)))
- `(gnus-group-mail-2 ((,c :inherit (bold gnus-group-mail-2-empty))))
- `(gnus-group-mail-2-empty ((,c :foreground ,magenta)))
- `(gnus-group-mail-3 ((,c :inherit (bold gnus-group-mail-3-empty))))
- `(gnus-group-mail-3-empty ((,c :foreground ,magenta-cooler)))
- `(gnus-group-mail-low ((,c :inherit (bold gnus-group-mail-low-empty))))
- `(gnus-group-mail-low-empty ((,c :foreground ,fg-dim)))
- `(gnus-group-news-1 ((,c :inherit (bold gnus-group-news-1-empty))))
- `(gnus-group-news-1-empty ((,c :foreground ,green)))
- `(gnus-group-news-2 ((,c :inherit (bold gnus-group-news-2-empty))))
- `(gnus-group-news-2-empty ((,c :foreground ,cyan)))
- `(gnus-group-news-3 ((,c :inherit (bold gnus-group-news-3-empty))))
- `(gnus-group-news-3-empty ((,c :foreground ,yellow-faint)))
- `(gnus-group-news-4 ((,c :inherit (bold gnus-group-news-4-empty))))
- `(gnus-group-news-4-empty ((,c :foreground ,magenta-faint)))
- `(gnus-group-news-5 ((,c :inherit (bold gnus-group-news-5-empty))))
- `(gnus-group-news-5-empty ((,c :foreground ,fg-alt)))
- `(gnus-group-news-6 ((,c :inherit (bold gnus-group-news-6-empty))))
- `(gnus-group-news-6-empty ((,c :foreground ,fg-dim)))
- `(gnus-group-news-low ((,c :inherit (bold gnus-group-news-low-empty))))
- `(gnus-group-news-low-empty ((,c :foreground ,fg-dim)))
- `(gnus-header-content ((,c :inherit message-header-other)))
- `(gnus-header-from ((,c :inherit message-header-to :underline nil)))
- `(gnus-header-name ((,c :inherit message-header-name)))
- `(gnus-header-newsgroups ((,c :inherit message-header-newsgroups)))
- `(gnus-header-subject ((,c :inherit message-header-subject)))
- `(gnus-server-agent ((,c :inherit bold)))
- `(gnus-server-closed ((,c :inherit italic)))
- `(gnus-server-cloud ((,c :inherit bold :foreground ,fg-alt)))
- `(gnus-server-cloud-host ((,c :inherit bold :foreground ,fg-alt :underline t)))
- `(gnus-server-denied ((,c :inherit error)))
- `(gnus-server-offline ((,c :inherit shadow)))
- `(gnus-server-opened ((,c :inherit success)))
- `(gnus-summary-cancelled ((,c :inherit italic :foreground ,warning)))
- `(gnus-summary-high-ancient ((,c :inherit bold :foreground ,fg-alt)))
- `(gnus-summary-high-read ((,c :inherit bold :foreground ,fg-dim)))
- `(gnus-summary-high-ticked ((,c :inherit bold :foreground ,err)))
- `(gnus-summary-high-undownloaded ((,c :inherit bold-italic :foreground ,warning)))
- `(gnus-summary-high-unread ((,c :inherit bold)))
- `(gnus-summary-low-ancient ((,c :inherit italic)))
- `(gnus-summary-low-read ((,c :inherit (shadow italic))))
- `(gnus-summary-low-ticked ((,c :inherit italic :foreground ,err)))
- `(gnus-summary-low-undownloaded ((,c :inherit italic :foreground ,warning)))
- `(gnus-summary-low-unread ((,c :inherit italic)))
- `(gnus-summary-normal-ancient (( )))
- `(gnus-summary-normal-read ((,c :inherit shadow)))
- `(gnus-summary-normal-ticked ((,c :foreground ,err)))
- `(gnus-summary-normal-undownloaded ((,c :foreground ,warning)))
- `(gnus-summary-normal-unread (( )))
- `(gnus-summary-selected ((,c :inherit highlight)))
-;;;;; gotest
- `(go-test--ok-face ((,c :inherit success)))
- `(go-test--error-face ((,c :inherit error)))
- `(go-test--warning-face ((,c :inherit warning)))
- `(go-test--pointer-face ((,c :foreground ,accent-0)))
- `(go-test--standard-face (( )))
-;;;;; golden-ratio-scroll-screen
- `(golden-ratio-scroll-highlight-line-face ((,c :background ,bg-cyan-subtle :foreground ,fg-main)))
-;;;;; helpful
- `(helpful-heading ((,c :inherit modus-themes-heading-1)))
-;;;;; highlight region or ad-hoc regexp
- ;; HACK 2022-06-23: The :inverse-video prevents hl-line-mode from
- ;; overriding the background. Such an override really defeats the
- ;; purpose of setting those highlights.
- ;;
- ;; NOTE 2022-10-04: We do not use the ,c here but instead
- ;; hardcode color values. We have to do this as the themes lack
- ;; entries in their palette for such an edge case. Defining those
- ;; entries is not appropriate.
- `(hi-aquamarine ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#227f9f" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#66cbdc" :inverse-video t)))
- `(hi-black-b ((,c :inverse-video t)))
- `(hi-black-hb ((,c :background ,bg-main :foreground ,fg-dim :inverse-video t)))
- `(hi-blue ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#3366dd" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#aaccff" :inverse-video t)))
- `(hi-blue-b ((,c :inherit (bold hi-blue))))
- `(hi-green ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#008a00" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#66dd66" :inverse-video t)))
- `(hi-green-b ((,c :inherit (bold hi-green))))
- `(hi-pink ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#bd30aa" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#ff88ee" :inverse-video t)))
- `(hi-red-b ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#dd0000" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#f06666" :inverse-video t)))
- `(hi-salmon ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#bf555a" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#e08a50" :inverse-video t)))
- `(hi-yellow ((((class color) (min-colors 88) (background light))
- :background "white" :foreground "#af6400" :inverse-video t)
- (((class color) (min-colors 88) (background dark))
- :background "black" :foreground "#faea00" :inverse-video t)))
- `(highlight-changes ((,c :foreground ,warning :underline nil)))
- `(highlight-changes-delete ((,c :foreground ,err :underline t)))
- `(hl-line ((,c :background ,bg-hl-line :extend t)))
-;;;;; highlight-numbers
- `(highlight-numbers-number ((,c :foreground ,constant)))
-;;;;; highlight-thing
- `(highlight-thing ((,c :inherit match)))
-;;;;; hl-fill-column
- `(hl-fill-column-face ((,c :background ,bg-active)))
-;;;;; hl-todo
- `(hl-todo ((,c :inherit (bold font-lock-comment-face) :foreground ,err)))
-;;;;; hydra
- `(hydra-face-amaranth ((,c :inherit bold :foreground ,yellow-warmer)))
- `(hydra-face-blue ((,c :inherit bold :foreground ,blue)))
- `(hydra-face-pink ((,c :inherit bold :foreground ,magenta)))
- `(hydra-face-red ((,c :inherit bold :foreground ,red-faint)))
- `(hydra-face-teal ((,c :inherit bold :foreground ,cyan-cooler)))
-;;;;; icomplete
- `(icomplete-first-match ((,c :inherit modus-themes-completion-match-0)))
- `(icomplete-selected-match ((,c :inherit modus-themes-completion-selected)))
-;;;;; ido-mode
- `(ido-first-match ((,c :inherit modus-themes-completion-match-0)))
- `(ido-incomplete-regexp ((,c :inherit error)))
- `(ido-indicator ((,c :inherit bold)))
- `(ido-only-match ((,c :inherit ido-first-match)))
- `(ido-subdir ((,c :foreground ,accent-0)))
- `(ido-virtual ((,c :foreground ,accent-1)))
-;;;;; iedit
- `(iedit-occurrence ((,c :inherit modus-themes-search-lazy)))
- `(iedit-read-only-occurrence ((,c :inherit modus-themes-search-current)))
-;;;;; iflipb
- `(iflipb-current-buffer-face ((,c :inherit bold :foreground ,name)))
- `(iflipb-other-buffer-face ((,c :inherit shadow)))
-;;;;; image-dired
- `(image-dired-thumb-flagged ((,c :inherit modus-themes-mark-del :box (:line-width -3))))
- `(image-dired-thumb-header-file-name ((,c :inherit bold)))
- `(image-dired-thumb-header-file-size ((,c :foreground ,constant)))
- `(image-dired-thumb-mark ((,c :inherit modus-themes-mark-sel :box (:line-width -3))))
-;;;;; imenu-list
- `(imenu-list-entry-face-0 ((,c :foreground ,fg-heading-0)))
- `(imenu-list-entry-face-1 ((,c :foreground ,fg-heading-1)))
- `(imenu-list-entry-face-2 ((,c :foreground ,fg-heading-2)))
- `(imenu-list-entry-face-3 ((,c :foreground ,fg-heading-3)))
- `(imenu-list-entry-subalist-face-0 ((,c :inherit bold :foreground ,fg-heading-4 :underline t)))
- `(imenu-list-entry-subalist-face-1 ((,c :inherit bold :foreground ,fg-heading-5 :underline t)))
- `(imenu-list-entry-subalist-face-2 ((,c :inherit bold :foreground ,fg-heading-6 :underline t)))
- `(imenu-list-entry-subalist-face-3 ((,c :inherit bold :foreground ,fg-heading-7 :underline t)))
-;;;;; indium
- `(indium-breakpoint-face ((,c :foreground ,err)))
- `(indium-frame-url-face ((,c :inherit (shadow button))))
- `(indium-keyword-face ((,c :inherit font-lock-keyword-face)))
- `(indium-litable-face ((,c :inherit modus-themes-slant)))
- `(indium-repl-error-face ((,c :inherit error)))
- `(indium-repl-prompt-face ((,c :inherit modus-themes-prompt)))
- `(indium-repl-stdout-face (( )))
-;;;;; info
- `(Info-quoted ((,c :inherit modus-themes-prose-verbatim))) ; the capitalization is canonical
- `(info-header-node ((,c :inherit (shadow bold))))
- `(info-header-xref ((,c :foreground ,fg-link)))
- `(info-index-match ((,c :inherit match)))
- `(info-menu-header ((,c :inherit bold)))
- `(info-menu-star ((,c :inherit error)))
- `(info-node ((,c :inherit bold)))
- `(info-title-1 ((,c :inherit modus-themes-heading-1)))
- `(info-title-2 ((,c :inherit modus-themes-heading-2)))
- `(info-title-3 ((,c :inherit modus-themes-heading-3)))
- `(info-title-4 ((,c :inherit modus-themes-heading-4)))
-;;;;; info+ (info-plus)
- `(info-command-ref-item ((,c :inherit font-lock-function-name-face)))
- `(info-constant-ref-item ((,c :inherit font-lock-constant-face)))
- `(info-custom-delimited ((,c :inherit modus-themes-prose-verbatim)))
- `(info-double-quoted-name ((,c :inherit font-lock-string-face)))
- `(info-file (( )))
- `(info-function-ref-item ((,c :inherit font-lock-function-name-face)))
- `(info-glossary-word ((,c :inherit modus-themes-button)))
- `(info-indented-text (( )))
- `(info-isolated-backquote (( )))
- `(info-isolated-quote (( )))
- `(info-macro-ref-item ((,c :inherit font-lock-keyword-face)))
- `(info-menu ((,c :inherit bold)))
- `(info-quoted-name ((,c :inherit modus-themes-prose-verbatim)))
- `(info-reference-item ((,c :inherit bold)))
- `(info-special-form-ref-item ((,c :inherit warning)))
- `(info-string ((,c :inherit font-lock-string-face)))
- `(info-syntax-class-item ((,c :inherit modus-themes-prose-code)))
- `(info-user-option-ref-item ((,c :inherit font-lock-variable-name-face)))
- `(info-variable-ref-item ((,c :inherit font-lock-variable-name-face)))
-;;;;; info-colors
- `(info-colors-lisp-code-block ((,c :inherit modus-themes-fixed-pitch)))
- `(info-colors-ref-item-command ((,c :inherit font-lock-function-name-face)))
- `(info-colors-ref-item-constant ((,c :inherit font-lock-constant-face)))
- `(info-colors-ref-item-function ((,c :inherit font-lock-function-name-face)))
- `(info-colors-ref-item-macro ((,c :inherit font-lock-keyword-face)))
- `(info-colors-ref-item-other ((,c :inherit font-lock-doc-face)))
- `(info-colors-ref-item-special-form ((,c :inherit font-lock-keyword-face)))
- `(info-colors-ref-item-syntax-class ((,c :inherit font-lock-builtin-face)))
- `(info-colors-ref-item-type ((,c :inherit font-lock-type-face)))
- `(info-colors-ref-item-user-option ((,c :inherit font-lock-variable-name-face)))
- `(info-colors-ref-item-variable ((,c :inherit font-lock-variable-name-face)))
-;;;;; ioccur
- `(ioccur-cursor ((,c :foreground ,fg-main)))
- `(ioccur-invalid-regexp ((,c :inherit error)))
- `(ioccur-match-face ((,c :inherit match)))
- `(ioccur-match-overlay-face ((,c :background ,bg-inactive :extend t)))
- `(ioccur-num-line-face ((,c :inherit shadow)))
- `(ioccur-overlay-face ((,c :background ,bg-hl-line :extend t)))
- `(ioccur-regexp-face ((,c :inherit (modus-themes-search-current bold))))
- `(ioccur-title-face ((,c :inherit bold :foreground ,name)))
-;;;;; isearch, occur, and the like
- `(isearch ((,c :inherit modus-themes-search-current)))
- `(isearch-fail ((,c :inherit modus-themes-prominent-error)))
- `(isearch-group-1 ((,c :inherit modus-themes-intense-blue)))
- `(isearch-group-2 ((,c :inherit modus-themes-intense-magenta)))
- `(lazy-highlight ((,c :inherit modus-themes-search-lazy)))
- `(match ((,c :background ,bg-magenta-subtle :foreground ,fg-main)))
- `(query-replace ((,c :inherit modus-themes-prominent-error)))
-;;;;; ivy
- `(ivy-action ((,c :inherit modus-themes-key-binding)))
- `(ivy-confirm-face ((,c :inherit success)))
- `(ivy-current-match ((,c :inherit modus-themes-completion-selected)))
- `(ivy-match-required-face ((,c :inherit error)))
- `(ivy-minibuffer-match-face-1 (( )))
- `(ivy-minibuffer-match-face-2 ((,c :inherit modus-themes-completion-match-0)))
- `(ivy-minibuffer-match-face-3 ((,c :inherit modus-themes-completion-match-1)))
- `(ivy-minibuffer-match-face-4 ((,c :inherit modus-themes-completion-match-2)))
- `(ivy-remote ((,c :inherit italic)))
- `(ivy-separator ((,c :inherit shadow)))
- `(ivy-subdir ((,c :foreground ,accent-0)))
- `(ivy-virtual ((,c :foreground ,accent-1)))
-;;;;; ivy-posframe
- `(ivy-posframe-border ((,c :background ,border)))
- `(ivy-posframe-cursor ((,c :background ,fg-main :foreground ,bg-main)))
-;;;;; jira (org-jira)
- `(jiralib-comment-face ((,c :background ,bg-inactive)))
- `(jiralib-comment-header-face ((,c :inherit bold)))
- `(jiralib-issue-info-face ((,c :background ,bg-inactive)))
- `(jiralib-issue-info-header-face ((,c :inherit bold :background ,bg-inactive)))
- `(jiralib-issue-summary-face ((,c :inherit bold)))
- `(jiralib-link-filter-face ((,c :underline t)))
- `(jiralib-link-issue-face ((,c :underline t)))
- `(jiralib-link-project-face ((,c :underline t)))
-;;;;; jit-spell
- `(jit-spell-misspelling ((,c :inherit modus-themes-lang-error)))
-;;;;; jinx
- `(jinx-misspelled ((,c :inherit modus-themes-lang-warning)))
-;;;;; journalctl-mode
- `(journalctl-error-face ((,c :inherit error)))
- `(journalctl-finished-face ((,c :inherit success)))
- `(journalctl-host-face ((,c :foreground ,name)))
- `(journalctl-process-face ((,c :foreground ,warning)))
- `(journalctl-starting-face ((,c :foreground ,info)))
- `(journalctl-timestamp-face ((,c :foreground ,date-common)))
- `(journalctl-warning-face ((,c :inherit warning)))
-;;;;; js2-mode
- `(js2-error ((,c :inherit modus-themes-lang-error)))
- `(js2-external-variable ((,c :inherit font-lock-variable-name-face)))
- `(js2-function-call ((,c :inherit font-lock-function-name-face)))
- `(js2-function-param ((,c :inherit font-lock-constant-face)))
- `(js2-instance-member ((,c :inherit font-lock-keyword-face)))
- `(js2-jsdoc-html-tag-delimiter ((,c :foreground ,fg-main)))
- `(js2-jsdoc-html-tag-name ((,c :inherit font-lock-function-name-face)))
- `(js2-jsdoc-tag ((,c :inherit (font-lock-builtin-face font-lock-comment-face) :weight normal)))
- `(js2-jsdoc-type ((,c :inherit (font-lock-type-face font-lock-comment-face) :weight normal)))
- `(js2-jsdoc-value ((,c :inherit (font-lock-constant-face font-lock-comment-face) :weight normal)))
- `(js2-object-property ((,c :foreground ,fg-main)))
- `(js2-object-property-access ((,c :foreground ,fg-main)))
- `(js2-private-function-call ((,c :inherit font-lock-preprocessor-face)))
- `(js2-private-member ((,c :inherit font-lock-warning-face)))
- `(js2-warning ((,c :inherit modus-themes-lang-warning)))
-;;;;; julia
- `(julia-macro-face ((,c :inherit font-lock-builtin-face)))
- `(julia-quoted-symbol-face ((,c :inherit font-lock-constant-face)))
-;;;;; kaocha-runner
- `(kaocha-runner-error-face ((,c :inherit error)))
- `(kaocha-runner-success-face ((,c :inherit success)))
- `(kaocha-runner-warning-face ((,c :inherit warning)))
-;;;;; keycast
- `(keycast-command ((,c :inherit bold)))
- `(keycast-key ((,c :background ,keybind :foreground ,bg-main)))
-;;;;; ledger-mode
- `(ledger-font-auto-xact-face ((,c :inherit font-lock-builtin-face)))
- `(ledger-font-account-name-face ((,c :foreground ,name)))
- `(ledger-font-directive-face ((,c :inherit font-lock-keyword-face)))
- `(ledger-font-posting-date-face ((,c :inherit modus-themes-bold :foreground ,date-common)))
- `(ledger-font-periodic-xact-face ((,c :inherit font-lock-variable-name-face)))
- `(ledger-font-posting-amount-face ((,c :inherit font-lock-constant-face)))
- `(ledger-font-payee-cleared-face ((,c :inherit success)))
- `(ledger-font-payee-pending-face ((,c :inherit warning)))
- `(ledger-font-payee-uncleared-face ((,c :inherit error)))
- `(ledger-font-xact-highlight-face ((,c :background ,bg-hl-line :extend t)))
-;;;;; leerzeichen
- `(leerzeichen ((,c :background ,bg-inactive)))
-;;;;; line numbers (display-line-numbers-mode and global variant)
- ;; Here we cannot inherit `modus-themes-fixed-pitch'. We need to
- ;; fall back to `default' otherwise line numbers do not scale when
- ;; using `text-scale-adjust'.
- `(line-number ((,c :inherit ,(if modus-themes-mixed-fonts '(fixed-pitch default) 'default) :background ,bg-line-number-inactive :foreground ,fg-line-number-inactive)))
- `(line-number-current-line ((,c :inherit (bold line-number) :background ,bg-line-number-active :foreground ,fg-line-number-active)))
- `(line-number-major-tick ((,c :inherit line-number :foreground ,err)))
- `(line-number-minor-tick ((,c :inherit line-number :foreground ,fg-alt)))
-;;;;; magit
- `(magit-bisect-bad ((,c :inherit error)))
- `(magit-bisect-good ((,c :inherit success)))
- `(magit-bisect-skip ((,c :inherit warning)))
- `(magit-blame-date (( )))
- `(magit-blame-dimmed ((,c :inherit shadow)))
- `(magit-blame-hash (( )))
- `(magit-blame-highlight ((,c :background ,bg-active :foreground ,fg-main)))
- `(magit-blame-name (( )))
- `(magit-blame-summary (( )))
- `(magit-branch-local ((,c :foreground ,accent-0)))
- `(magit-branch-remote ((,c :foreground ,accent-1)))
- `(magit-branch-upstream ((,c :inherit italic)))
- `(magit-branch-warning ((,c :inherit warning)))
- `(magit-cherry-equivalent ((,c :foreground ,magenta)))
- `(magit-cherry-unmatched ((,c :foreground ,cyan)))
- `(magit-diff-added ((,c :background ,bg-added-faint :foreground ,fg-added)))
- `(magit-diff-added-highlight ((,c :background ,bg-added :foreground ,fg-added)))
- `(magit-diff-base ((,c :background ,bg-changed-faint :foreground ,fg-changed)))
- `(magit-diff-base-highlight ((,c :background ,bg-changed :foreground ,fg-changed)))
- `(magit-diff-context ((,c :inherit shadow)))
- `(magit-diff-context-highlight ((,c :background ,bg-diff-context)))
- `(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
- `(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading :background ,bg-inactive)))
- `(magit-diff-file-heading-selection ((,c :inherit bold :background ,bg-hover-secondary)))
- `(magit-diff-hunk-heading ((,c :background ,bg-inactive)))
- `(magit-diff-hunk-heading-highlight ((,c :inherit bold :background ,bg-active)))
- `(magit-diff-hunk-heading-selection ((,c :inherit bold :background ,bg-hover-secondary)))
- `(magit-diff-hunk-region ((,c :inherit bold)))
- `(magit-diff-lines-boundary ((,c :background ,fg-main)))
- `(magit-diff-lines-heading ((,c :background ,fg-dim :foreground ,bg-main)))
- `(magit-diff-removed ((,c :background ,bg-removed-faint :foreground ,fg-removed)))
- `(magit-diff-removed-highlight ((,c :background ,bg-removed :foreground ,fg-removed)))
- `(magit-diffstat-added ((,c :foreground ,fg-added-intense)))
- `(magit-diffstat-removed ((,c :foreground ,fg-removed-intense)))
- `(magit-dimmed ((,c :inherit shadow)))
- `(magit-filename ((,c :foreground ,accent-2)))
- `(magit-hash ((,c :foreground ,identifier)))
- `(magit-head ((,c :inherit magit-branch-local)))
- `(magit-header-line ((,c :inherit bold)))
- `(magit-header-line-key ((,c :inherit modus-themes-key-binding)))
- `(magit-header-line-log-select ((,c :inherit bold)))
- `(magit-keyword ((,c :foreground ,keyword)))
- `(magit-keyword-squash ((,c :inherit bold :foreground ,warning)))
- `(magit-log-author ((,c :foreground ,name)))
- `(magit-log-date ((,c :foreground ,date-common)))
- `(magit-log-graph ((,c :inherit shadow)))
- `(magit-mode-line-process ((,c :inherit bold :foreground ,modeline-info)))
- `(magit-mode-line-process-error ((,c :inherit bold :foreground ,modeline-err)))
- `(magit-process-ng ((,c :inherit error)))
- `(magit-process-ok ((,c :inherit success)))
- `(magit-reflog-amend ((,c :inherit warning)))
- `(magit-reflog-checkout ((,c :inherit bold :foreground ,blue)))
- `(magit-reflog-cherry-pick ((,c :inherit success)))
- `(magit-reflog-commit ((,c :inherit bold)))
- `(magit-reflog-merge ((,c :inherit success)))
- `(magit-reflog-other ((,c :inherit bold :foreground ,cyan)))
- `(magit-reflog-rebase ((,c :inherit bold :foreground ,magenta)))
- `(magit-reflog-remote ((,c :inherit (bold magit-branch-remote))))
- `(magit-reflog-reset ((,c :inherit error)))
- `(magit-refname ((,c :inherit shadow)))
- `(magit-refname-pullreq ((,c :inherit shadow)))
- `(magit-refname-stash ((,c :inherit shadow)))
- `(magit-refname-wip ((,c :inherit shadow)))
- `(magit-section ((,c :background ,bg-dim :foreground ,fg-main)))
- `(magit-section-heading ((,c :inherit bold)))
- `(magit-section-heading-selection ((,c :inherit bold :background ,bg-hover-secondary)))
- `(magit-section-highlight ((,c :background ,bg-dim)))
- `(magit-sequence-done ((,c :inherit success)))
- `(magit-sequence-drop ((,c :inherit error)))
- `(magit-sequence-exec ((,c :inherit bold :foreground ,magenta)))
- `(magit-sequence-head ((,c :inherit bold :foreground ,cyan)))
- `(magit-sequence-onto ((,c :inherit (bold shadow))))
- `(magit-sequence-part ((,c :inherit warning)))
- `(magit-sequence-pick ((,c :inherit bold)))
- `(magit-sequence-stop ((,c :inherit error)))
- `(magit-signature-bad ((,c :inherit error)))
- `(magit-signature-error ((,c :inherit error)))
- `(magit-signature-expired ((,c :inherit warning)))
- `(magit-signature-expired-key ((,c :foreground ,warning)))
- `(magit-signature-good ((,c :inherit success)))
- `(magit-signature-revoked ((,c :inherit bold :foreground ,warning)))
- `(magit-signature-untrusted ((,c :inherit (bold shadow))))
- `(magit-tag ((,c :foreground ,accent-3))) ; compare with branches
-;;;;; make-mode (makefiles)
- `(makefile-makepp-perl ((,c :background ,bg-dim)))
- `(makefile-space ((,c :background ,bg-inactive)))
-;;;;; man
- `(Man-overstrike ((,c :inherit bold :foreground ,accent-0)))
- `(Man-underline ((,c :foreground ,accent-1 :underline t)))
-;;;;; marginalia
- `(marginalia-archive ((,c :foreground ,accent-0)))
- `(marginalia-char ((,c :foreground ,accent-2)))
- `(marginalia-date ((,c :foreground ,date-common)))
- `(marginalia-documentation ((,c :inherit modus-themes-slant :foreground ,docstring)))
- `(marginalia-file-name (( )))
- `(marginalia-file-owner ((,c :inherit shadow)))
- `(marginalia-file-priv-dir ((,c :foreground ,accent-0)))
- `(marginalia-file-priv-exec ((,c :foreground ,accent-1)))
- `(marginalia-file-priv-link ((,c :foreground ,fg-link)))
- `(marginalia-file-priv-no ((,c :inherit shadow)))
- `(marginalia-file-priv-other ((,c :foreground ,accent-2)))
- `(marginalia-file-priv-rare ((,c :foreground ,accent-3)))
- `(marginalia-file-priv-read ((,c :foreground ,fg-main)))
- `(marginalia-file-priv-write ((,c :foreground ,accent-0)))
- `(marginalia-function ((,c :foreground ,fnname)))
- `(marginalia-key ((,c :inherit modus-themes-key-binding)))
- `(marginalia-lighter ((,c :inherit shadow)))
- `(marginalia-liqst ((,c :inherit shadow)))
- `(marginalia-mode ((,c :foreground ,constant)))
- `(marginalia-modified ((,c :inherit warning)))
- `(marginalia-null ((,c :inherit shadow)))
- `(marginalia-number ((,c :foreground ,constant)))
- `(marginalia-size ((,c :foreground ,variable)))
- `(marginalia-string ((,c :foreground ,string)))
- `(marginalia-symbol ((,c :foreground ,builtin)))
- `(marginalia-true (( )))
- `(marginalia-type ((,c :foreground ,type)))
- `(marginalia-value ((,c :inherit shadow)))
- `(marginalia-version ((,c :foreground ,date-common)))
-;;;;; markdown-mode
- `(markdown-blockquote-face ((,c :inherit font-lock-doc-face)))
- `(markdown-bold-face ((,c :inherit bold)))
- `(markdown-code-face ((,c :inherit modus-themes-fixed-pitch :background ,bg-dim :extend t)))
- `(markdown-gfm-checkbox-face ((,c :foreground ,warning)))
- `(markdown-header-face (( )))
- `(markdown-header-face-1 ((,c :inherit modus-themes-heading-1)))
- `(markdown-header-face-2 ((,c :inherit modus-themes-heading-2)))
- `(markdown-header-face-3 ((,c :inherit modus-themes-heading-3)))
- `(markdown-header-face-4 ((,c :inherit modus-themes-heading-4)))
- `(markdown-header-face-5 ((,c :inherit modus-themes-heading-5)))
- `(markdown-header-face-6 ((,c :inherit modus-themes-heading-6)))
- `(markdown-highlighting-face ((,c :inherit secondary-selection)))
- `(markdown-inline-code-face ((,c :inherit modus-themes-prose-code)))
- `(markdown-italic-face ((,c :inherit italic)))
- `(markdown-language-keyword-face ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-block)))
- `(markdown-line-break-face ((,c :inherit nobreak-space)))
- `(markdown-link-face ((,c :inherit link)))
- `(markdown-markup-face ((,c :inherit shadow)))
- `(markdown-metadata-key-face ((,c :inherit bold)))
- `(markdown-metadata-value-face ((,c :foreground ,string)))
- `(markdown-missing-link-face ((,c :inherit warning)))
- `(markdown-pre-face ((,c :inherit markdown-code-face)))
- `(markdown-table-face ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-table)))
- `(markdown-url-face ((,c :foreground ,fg-alt)))
-;;;;; markup-faces (`adoc-mode')
- `(markup-attribute-face ((,c :inherit (modus-themes-slant markup-meta-face))))
- `(markup-bold-face ((,c :inherit bold)))
- `(markup-code-face ((,c :foreground ,prose-code)))
- `(markup-comment-face ((,c :inherit font-lock-comment-face)))
- `(markup-complex-replacement-face ((,c :foreground ,prose-macro)))
- `(markup-emphasis-face ((,c :inherit markup-italic-face)))
- `(markup-error-face ((,c :inherit error)))
- `(markup-gen-face ((,c :foreground ,prose-verbatim)))
- `(markup-internal-reference-face ((,c :inherit (shadow modus-themes-slant))))
- `(markup-italic-face ((,c :inherit italic)))
- `(markup-list-face ((,c :background ,bg-inactive)))
- `(markup-meta-face ((,c :inherit (modus-themes-fixed-pitch shadow))))
- `(markup-meta-hide-face ((,c :foreground "gray50")))
- `(markup-reference-face ((,c :inherit modus-themes-slant :foreground ,fg-alt)))
- `(markup-replacement-face ((,c :inherit modus-themes-fixed-pitch :foreground ,err)))
- `(markup-secondary-text-face ((,c :height 0.9 :foreground ,fg-alt)))
- `(markup-small-face ((,c :inherit markup-gen-face :height 0.9)))
- `(markup-strong-face ((,c :inherit markup-bold-face)))
- `(markup-subscript-face ((,c :height 0.9 :foreground ,fg-alt)))
- `(markup-superscript-face ((,c :height 0.9 :foreground ,fg-alt)))
- `(markup-table-cell-face (( )))
- `(markup-table-face ((,c :foreground ,prose-table)))
- `(markup-table-row-face (( )))
- `(markup-title-0-face ((,c :inherit modus-themes-heading-1)))
- `(markup-title-1-face ((,c :inherit modus-themes-heading-2)))
- `(markup-title-2-face ((,c :inherit modus-themes-heading-3)))
- `(markup-title-3-face ((,c :inherit modus-themes-heading-4)))
- `(markup-title-4-face ((,c :inherit modus-themes-heading-5)))
- `(markup-title-5-face ((,c :inherit modus-themes-heading-6)))
- `(markup-verbatim-face ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-verbatim)))
-;;;;; messages
- `(message-cited-text-1 ((,c :foreground ,mail-cite-0)))
- `(message-cited-text-2 ((,c :foreground ,mail-cite-1)))
- `(message-cited-text-3 ((,c :foreground ,mail-cite-2)))
- `(message-cited-text-4 ((,c :foreground ,mail-cite-3)))
- `(message-header-name ((,c :inherit bold)))
- `(message-header-newsgroups ((,c :inherit message-header-other)))
- `(message-header-to ((,c :inherit bold :foreground ,mail-recipient)))
- `(message-header-cc ((,c :foreground ,mail-recipient)))
- `(message-header-subject ((,c :inherit bold :foreground ,mail-subject)))
- `(message-header-xheader ((,c :inherit message-header-other)))
- `(message-header-other ((,c :foreground ,mail-other)))
- `(message-mml ((,c :foreground ,mail-part)))
- `(message-separator ((,c :background ,bg-active)))
-;;;;; minimap
- `(minimap-active-region-background ((,c :background ,bg-active)))
- `(minimap-current-line-face ((,c :background ,bg-cyan-intense :foreground ,fg-main)))
-;;;;; mode-line
- `(mode-line ((,c :inherit modus-themes-ui-variable-pitch
- :box ,border-mode-line-active
- :background ,bg-mode-line-active
- :foreground ,fg-mode-line-active)))
- `(mode-line-active ((,c :inherit mode-line)))
- `(mode-line-buffer-id ((,c :inherit bold)))
- `(mode-line-emphasis ((,c :inherit bold :foreground ,modeline-info)))
- `(mode-line-highlight ((,c :background ,bg-hover :foreground ,fg-main :box ,fg-main)))
- `(mode-line-inactive ((,c :inherit modus-themes-ui-variable-pitch
- :box ,border-mode-line-inactive
- :background ,bg-mode-line-inactive
- :foreground ,fg-mode-line-inactive)))
-;;;;; mood-line
- `(mood-line-modified ((,c :inherit italic)))
- `(mood-line-status-error ((,c :inherit error)))
- `(mood-line-status-info ((,c :foreground ,info)))
- `(mood-line-status-neutral (( )))
- `(mood-line-status-success ((,c :inherit success)))
- `(mood-line-status-warning ((,c :inherit warning)))
- `(mood-line-unimportant ((,c :inherit shadow)))
-;;;;; mpdel
- `(mpdel-browser-directory-face ((,c :foreground ,accent-0)))
- `(mpdel-playlist-current-song-face ((,c :inherit bold :foreground ,accent-0)))
-;;;;; mu4e
- `(mu4e-attach-number-face ((,c :inherit bold :foreground ,fg-dim)))
- `(mu4e-cited-1-face ((,c :inherit message-cited-text-1)))
- `(mu4e-cited-2-face ((,c :inherit message-cited-text-2)))
- `(mu4e-cited-3-face ((,c :inherit message-cited-text-3)))
- `(mu4e-cited-4-face ((,c :inherit message-cited-text-4)))
- `(mu4e-cited-5-face ((,c :inherit message-cited-text-1)))
- `(mu4e-cited-6-face ((,c :inherit message-cited-text-2)))
- `(mu4e-cited-7-face ((,c :inherit message-cited-text-3)))
- `(mu4e-compose-header-face ((,c :inherit mu4e-compose-separator-face)))
- `(mu4e-compose-separator-face ((,c :inherit message-separator)))
- `(mu4e-contact-face ((,c :inherit message-header-to)))
- `(mu4e-context-face ((,c :inherit bold)))
- `(mu4e-draft-face ((,c :foreground ,warning)))
- `(mu4e-flagged-face ((,c :foreground ,err)))
- `(mu4e-footer-face ((,c :inherit italic :foreground ,fg-alt)))
- `(mu4e-forwarded-face ((,c :inherit italic :foreground ,info)))
- `(mu4e-header-face ((,c :inherit shadow)))
- `(mu4e-header-highlight-face ((,c :background ,bg-hl-line :extend t)))
- `(mu4e-header-key-face ((,c :inherit message-header-name)))
- `(mu4e-header-marks-face ((,c :inherit mu4e-special-header-value-face)))
- `(mu4e-header-title-face ((,c :foreground ,fg-alt)))
- `(mu4e-header-value-face ((,c :inherit message-header-other)))
- `(mu4e-highlight-face ((,c :inherit modus-themes-key-binding)))
- `(mu4e-link-face ((,c :inherit link)))
- `(mu4e-modeline-face (( )))
- `(mu4e-moved-face ((,c :inherit italic :foreground ,warning)))
- `(mu4e-ok-face ((,c :inherit success)))
- `(mu4e-region-code ((,c :foreground ,builtin)))
- `(mu4e-related-face ((,c :inherit (italic shadow))))
- `(mu4e-replied-face ((,c :foreground ,info)))
- `(mu4e-special-header-value-face ((,c :inherit message-header-subject)))
- `(mu4e-system-face ((,c :inherit italic)))
- `(mu4e-title-face (( )))
- `(mu4e-trashed-face ((,c :foreground ,err)))
- `(mu4e-unread-face ((,c :inherit bold)))
- `(mu4e-url-number-face ((,c :inherit shadow)))
- `(mu4e-view-body-face (( )))
- `(mu4e-warning-face ((,c :inherit warning)))
-;;;;; multiple-cursors
- `(mc/cursor-bar-face ((,c :height 1 :foreground ,fg-main :background ,bg-main)))
- `(mc/cursor-face ((,c :inverse-video t)))
- `(mc/region-face ((,c :inherit region)))
-;;;;; nerd-icons
- `(nerd-icons-blue ((,c :foreground ,blue-cooler)))
- `(nerd-icons-blue-alt ((,c :foreground ,blue-warmer)))
- `(nerd-icons-cyan ((,c :foreground ,cyan)))
- `(nerd-icons-cyan-alt ((,c :foreground ,cyan-warmer)))
- `(nerd-icons-dblue ((,c :foreground ,blue-faint)))
- `(nerd-icons-dcyan ((,c :foreground ,cyan-faint)))
- `(nerd-icons-dgreen ((,c :foreground ,green-faint)))
- `(nerd-icons-dmaroon ((,c :foreground ,magenta-faint)))
- `(nerd-icons-dorange ((,c :foreground ,red-faint)))
- `(nerd-icons-dpink ((,c :foreground ,magenta-faint)))
- `(nerd-icons-dpurple ((,c :foreground ,magenta-cooler)))
- `(nerd-icons-dred ((,c :foreground ,red)))
- `(nerd-icons-dsilver ((,c :foreground ,cyan-faint)))
- `(nerd-icons-dyellow ((,c :foreground ,yellow-faint)))
- `(nerd-icons-green ((,c :foreground ,green)))
- `(nerd-icons-lblue ((,c :foreground ,blue-cooler)))
- `(nerd-icons-lcyan ((,c :foreground ,cyan)))
- `(nerd-icons-lgreen ((,c :foreground ,green-warmer)))
- `(nerd-icons-lmaroon ((,c :foreground ,magenta-warmer)))
- `(nerd-icons-lorange ((,c :foreground ,red-warmer)))
- `(nerd-icons-lpink ((,c :foreground ,magenta)))
- `(nerd-icons-lpurple ((,c :foreground ,magenta-faint)))
- `(nerd-icons-lred ((,c :foreground ,red-faint)))
- `(nerd-icons-lsilver ((,c :foreground "gray50")))
- `(nerd-icons-lyellow ((,c :foreground ,yellow-warmer)))
- `(nerd-icons-maroon ((,c :foreground ,magenta)))
- `(nerd-icons-orange ((,c :foreground ,yellow-warmer)))
- `(nerd-icons-pink ((,c :foreground ,magenta-warmer)))
- `(nerd-icons-purple ((,c :foreground ,magenta-cooler)))
- `(nerd-icons-purple-alt ((,c :foreground ,blue-warmer)))
- `(nerd-icons-red ((,c :foreground ,red)))
- `(nerd-icons-red-alt ((,c :foreground ,red-cooler)))
- `(nerd-icons-silver ((,c :foreground "gray50")))
- `(nerd-icons-yellow ((,c :foreground ,yellow)))
-;;;;; nerd-icons-dired
- `(nerd-icons-dired-dir-face ((,c :foreground ,cyan-faint)))
-;;;;; nerd-icons-ibuffer
- `(nerd-icons-ibuffer-dir-face ((,c :foreground ,cyan-faint)))
- `(nerd-icons-ibuffer-file-face ((,c :foreground ,blue-faint)))
- `(nerd-icons-ibuffer-mode-face ((,c :foreground ,cyan)))
- `(nerd-icons-ibuffer-size-face ((,c :foreground ,cyan-cooler)))
-;;;;; neotree
- `(neo-banner-face ((,c :foreground ,accent-0)))
- `(neo-button-face ((,c :inherit button)))
- `(neo-dir-link-face (( )))
- `(neo-expand-btn-face (( )))
- `(neo-file-link-face (( )))
- `(neo-header-face ((,c :inherit bold)))
- `(neo-root-dir-face ((,c :inherit bold :foreground ,accent-0)))
- `(neo-vc-added-face ((,c :inherit success)))
- `(neo-vc-conflict-face ((,c :inherit error)))
- `(neo-vc-default-face (( )))
- `(neo-vc-edited-face ((,c :inherit italic)))
- `(neo-vc-ignored-face ((,c :inherit shadow)))
- `(neo-vc-missing-face ((,c :inherit error)))
- `(neo-vc-needs-merge-face ((,c :inherit italic)))
- `(neo-vc-needs-update-face ((,c :underline t)))
- `(neo-vc-removed-face ((,c :strike-through t)))
- `(neo-vc-unlocked-changes-face ((,c :inherit success)))
- `(neo-vc-up-to-date-face (( )))
- `(neo-vc-user-face ((,c :inherit warning)))
-;;;;; notmuch
- `(notmuch-crypto-decryption ((,c :inherit bold)))
- `(notmuch-crypto-part-header ((,c :foreground ,mail-part))) ; like `message-mml'
- `(notmuch-crypto-signature-bad ((,c :inherit error)))
- `(notmuch-crypto-signature-good ((,c :inherit success)))
- `(notmuch-crypto-signature-good-key ((,c :inherit success)))
- `(notmuch-crypto-signature-unknown ((,c :inherit warning)))
- `(notmuch-jump-key ((,c :inherit modus-themes-key-binding)))
- `(notmuch-message-summary-face ((,c :inherit bold :background ,bg-inactive)))
- `(notmuch-search-count ((,c :foreground ,fg-dim)))
- `(notmuch-search-date ((,c :foreground ,date-common)))
- `(notmuch-search-flagged-face ((,c :foreground ,err)))
- `(notmuch-search-matching-authors ((,c :foreground ,mail-recipient)))
- `(notmuch-search-non-matching-authors ((,c :inherit shadow)))
- `(notmuch-search-subject ((,c :foreground ,fg-main)))
- `(notmuch-search-unread-face ((,c :inherit bold)))
- `(notmuch-tag-added ((,c :underline ,info)))
- `(notmuch-tag-deleted ((,c :strike-through ,err)))
- `(notmuch-tag-face ((,c :foreground ,accent-0)))
- `(notmuch-tag-flagged ((,c :foreground ,err)))
- `(notmuch-tag-unread ((,c :foreground ,accent-1)))
- `(notmuch-tree-match-author-face ((,c :inherit notmuch-search-matching-authors)))
- `(notmuch-tree-match-date-face ((,c :inherit notmuch-search-date)))
- `(notmuch-tree-match-face ((,c :foreground ,fg-main)))
- `(notmuch-tree-match-tag-face ((,c :inherit notmuch-tag-face)))
- `(notmuch-tree-no-match-face ((,c :inherit shadow)))
- `(notmuch-tree-no-match-date-face ((,c :inherit shadow)))
- `(notmuch-wash-cited-text ((,c :inherit message-cited-text-1)))
- `(notmuch-wash-toggle-button ((,c :background ,bg-dim)))
-;;;;; num3-mode
- `(num3-face-even ((,c :inherit bold :background ,bg-inactive)))
-;;;;; nxml-mode
- `(nxml-attribute-colon ((,c :foreground ,fg-main)))
- `(nxml-attribute-local-name ((,c :inherit font-lock-variable-name-face)))
- `(nxml-attribute-prefix ((,c :inherit font-lock-type-face)))
- `(nxml-attribute-value ((,c :inherit font-lock-constant-face)))
- `(nxml-cdata-section-CDATA ((,c :inherit error)))
- `(nxml-cdata-section-delimiter ((,c :inherit error)))
- `(nxml-char-ref-delimiter ((,c :inherit shadow)))
- `(nxml-char-ref-number ((,c :inherit (shadow modus-themes-bold))))
- `(nxml-delimited-data ((,c :inherit (shadow modus-themes-slant))))
- `(nxml-delimiter ((,c :foreground ,fg-dim)))
- `(nxml-element-colon ((,c :foreground ,fg-main)))
- `(nxml-element-local-name ((,c :inherit font-lock-function-name-face)))
- `(nxml-element-prefix ((,c :inherit font-lock-builtin-face)))
- `(nxml-entity-ref-delimiter ((,c :inherit shadow)))
- `(nxml-entity-ref-name ((,c :inherit (shadow modus-themes-bold))))
- `(nxml-glyph ((,c :background ,bg-active :foreground ,fg-main)))
- `(nxml-hash ((,c :inherit (bold font-lock-string-face))))
- `(nxml-heading ((,c :inherit bold)))
- `(nxml-name ((,c :inherit font-lock-builtin-face)))
- `(nxml-namespace-attribute-colon ((,c :foreground ,fg-main)))
- `(nxml-namespace-attribute-prefix ((,c :inherit font-lock-variable-name-face)))
- `(nxml-processing-instruction-target ((,c :inherit font-lock-keyword-face)))
- `(nxml-prolog-keyword ((,c :inherit font-lock-keyword-face)))
- `(nxml-ref ((,c :inherit (shadow modus-themes-bold))))
- `(rng-error ((,c :inherit error)))
-;;;;; olivetti
- `(olivetti-fringe ((,c :background ,bg-main)))
-;;;;; orderless
- `(orderless-match-face-0 ((,c :inherit modus-themes-completion-match-0)))
- `(orderless-match-face-1 ((,c :inherit modus-themes-completion-match-1)))
- `(orderless-match-face-2 ((,c :inherit modus-themes-completion-match-2)))
- `(orderless-match-face-3 ((,c :inherit modus-themes-completion-match-3)))
-;;;;; org
- `(org-agenda-calendar-daterange ((,c :foreground ,date-range)))
- `(org-agenda-calendar-event ((,c :foreground ,date-event)))
- `(org-agenda-calendar-sexp ((,c :inherit (modus-themes-slant org-agenda-calendar-event))))
- `(org-agenda-clocking ((,c :inherit modus-themes-mark-alt)))
- `(org-agenda-column-dateline ((,c :background ,bg-inactive)))
- `(org-agenda-current-time ((,c :foreground ,date-now)))
- `(org-agenda-date ((,c ,@(modus-themes--heading 'agenda-date date-weekday))))
- `(org-agenda-date-today ((,c :inherit org-agenda-date :underline t)))
- `(org-agenda-date-weekend ((,c :inherit org-agenda-date :foreground ,date-weekend)))
- `(org-agenda-date-weekend-today ((,c :inherit org-agenda-date-today :foreground ,date-weekend)))
- `(org-agenda-diary ((,c :inherit org-agenda-calendar-sexp)))
- `(org-agenda-dimmed-todo-face ((,c :inherit shadow)))
- `(org-agenda-done ((,c :inherit org-done)))
- `(org-agenda-filter-category ((,c :inherit bold :foreground ,modeline-err)))
- `(org-agenda-filter-effort ((,c :inherit bold :foreground ,modeline-err)))
- `(org-agenda-filter-regexp ((,c :inherit bold :foreground ,modeline-err)))
- `(org-agenda-filter-tags ((,c :inherit bold :foreground ,modeline-err)))
- `(org-agenda-restriction-lock ((,c :background ,bg-dim :foreground ,fg-dim)))
- `(org-agenda-structure ((,c ,@(modus-themes--heading 'agenda-structure fg-alt))))
- `(org-agenda-structure-filter ((,c :inherit org-agenda-structure :foreground ,warning)))
- `(org-agenda-structure-secondary ((,c :inherit font-lock-doc-face)))
- `(org-archived ((,c :background ,bg-inactive :foreground ,fg-main)))
- `(org-block ((,c ,@(modus-themes--org-block fg-main bg-dim))))
- `(org-block-begin-line ((,c ,@(modus-themes--org-block prose-block bg-inactive))))
- `(org-block-end-line ((,c :inherit org-block-begin-line)))
- `(org-checkbox ((,c :foreground ,warning)))
- `(org-checkbox-statistics-done ((,c :inherit org-done)))
- `(org-checkbox-statistics-todo ((,c :inherit org-todo)))
- `(org-clock-overlay ((,c :inherit secondary-selection)))
- `(org-code ((,c :inherit modus-themes-prose-code)))
- `(org-column ((,c :inherit default :background ,bg-dim)))
- `(org-column-title ((,c :inherit (bold default) :underline t :background ,bg-dim)))
- `(org-date ((,c :inherit modus-themes-fixed-pitch :foreground ,date-common)))
- `(org-date-selected ((,c :foreground ,date-common :inverse-video t)))
- `(org-document-info ((,c :foreground ,prose-metadata-value)))
- `(org-document-info-keyword ((,c :foreground ,prose-metadata)))
- `(org-document-title ((,c :inherit modus-themes-heading-0)))
- `(org-done ((,c :foreground ,prose-done)))
- `(org-drawer ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-metadata)))
- `(org-ellipsis (( ))) ; inherits from the heading's color
- `(org-footnote ((,c :inherit link)))
- `(org-formula ((,c :inherit modus-themes-fixed-pitch :foreground ,fnname)))
- `(org-headline-done ((,c :inherit org-done)))
- `(org-headline-todo ((,c :inherit org-todo)))
- `(org-hide ((,c :foreground ,bg-main)))
- `(org-indent ((,c :inherit (fixed-pitch org-hide))))
- `(org-imminent-deadline ((,c :inherit modus-themes-bold :foreground ,date-deadline)))
- `(org-latex-and-related ((,c :foreground ,type)))
- `(org-level-1 ((,c :inherit modus-themes-heading-1)))
- `(org-level-2 ((,c :inherit modus-themes-heading-2)))
- `(org-level-3 ((,c :inherit modus-themes-heading-3)))
- `(org-level-4 ((,c :inherit modus-themes-heading-4)))
- `(org-level-5 ((,c :inherit modus-themes-heading-5)))
- `(org-level-6 ((,c :inherit modus-themes-heading-6)))
- `(org-level-7 ((,c :inherit modus-themes-heading-7)))
- `(org-level-8 ((,c :inherit modus-themes-heading-8)))
- `(org-link ((,c :inherit link)))
- `(org-list-dt ((,c :inherit bold)))
- `(org-macro ((,c :inherit modus-themes-prose-macro)))
- `(org-meta-line ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-metadata)))
- `(org-mode-line-clock (( )))
- `(org-mode-line-clock-overrun ((,c :inherit bold :foreground ,modeline-err)))
- `(org-priority ((,c :foreground ,prose-tag)))
- `(org-property-value ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-metadata-value)))
- `(org-quote ((,c :inherit org-block)))
- `(org-scheduled ((,c :foreground ,date-scheduled)))
- `(org-scheduled-previously ((,c :inherit org-scheduled)))
- `(org-scheduled-today ((,c :inherit (modus-themes-bold org-scheduled))))
- `(org-sexp-date ((,c :foreground ,date-common)))
- `(org-special-keyword ((,c :inherit org-drawer)))
- `(org-table ((,c :inherit modus-themes-fixed-pitch :foreground ,prose-table)))
- `(org-table-header ((,c :inherit (bold org-table))))
- `(org-tag ((,c :foreground ,prose-tag)))
- `(org-tag-group ((,c :inherit (bold org-tag))))
- `(org-target ((,c :underline t)))
- `(org-time-grid ((,c :foreground ,fg-dim)))
- `(org-todo ((,c :foreground ,prose-todo)))
- `(org-upcoming-deadline ((,c :foreground ,date-deadline)))
- `(org-upcoming-distant-deadline ((,c :inherit org-upcoming-deadline)))
- `(org-verbatim ((,c :inherit modus-themes-prose-verbatim)))
- `(org-verse ((,c :inherit org-block)))
- `(org-warning ((,c :inherit warning)))
-;;;;; org-habit
- `(org-habit-alert-face ((,c :background ,bg-graph-yellow-0 :foreground "black"))) ; fg is special case
- `(org-habit-alert-future-face ((,c :background ,bg-graph-yellow-1)))
- `(org-habit-clear-face ((,c :background ,bg-graph-blue-0 :foreground "black"))) ; fg is special case
- `(org-habit-clear-future-face ((,c :background ,bg-graph-blue-1)))
- `(org-habit-overdue-face ((,c :background ,bg-graph-red-0)))
- `(org-habit-overdue-future-face ((,c :background ,bg-graph-red-1)))
- `(org-habit-ready-face ((,c :background ,bg-graph-green-0 :foreground "black"))) ; fg is special case
- `(org-habit-ready-future-face ((,c :background ,bg-graph-green-1)))
-;;;;; org-journal
- `(org-journal-calendar-entry-face ((,c :inherit modus-themes-slant :foreground ,date-common)))
- `(org-journal-calendar-scheduled-face ((,c :inherit (modus-themes-slant org-scheduled))))
- `(org-journal-highlight ((,c :foreground ,err)))
-;;;;; org-noter
- `(org-noter-no-notes-exist-face ((,c :inherit error)))
- `(org-noter-notes-exist-face ((,c :inherit success)))
-;;;;; org-pomodoro
- `(org-pomodoro-mode-line ((,c :foreground ,err)))
- `(org-pomodoro-mode-line-break ((,c :foreground ,info)))
- `(org-pomodoro-mode-line-overtime ((,c :inherit error)))
-;;;;; org-recur
- `(org-recur ((,c :foreground ,fg-alt)))
-;;;;; org-roam
- `(org-roam-dim ((,c :foreground "gray50")))
- `(org-roam-olp ((,c :inherit shadow)))
- `(org-roam-preview-heading ((,c :background ,bg-inactive)))
- `(org-roam-preview-heading-highlight ((,c :background ,bg-active :foreground ,fg-main)))
- `(org-roam-preview-region ((,c :inherit bold)))
- `(org-roam-title ((,c :inherit bold)))
-;;;;; org-superstar
- `(org-superstar-item ((,c :foreground ,fg-main)))
-;;;;; org-tree-slide
- `(org-tree-slide-header-overlay-face ((,c :inherit org-document-title)))
-;;;;; origami
- `(origami-fold-header-face ((,c :background ,bg-dim :foreground ,fg-dim :box t)))
- `(origami-fold-replacement-face ((,c :background ,bg-inactive :foreground ,fg-dim)))
-;;;;; outline-mode
- `(outline-1 ((,c :inherit modus-themes-heading-1)))
- `(outline-2 ((,c :inherit modus-themes-heading-2)))
- `(outline-3 ((,c :inherit modus-themes-heading-3)))
- `(outline-4 ((,c :inherit modus-themes-heading-4)))
- `(outline-5 ((,c :inherit modus-themes-heading-5)))
- `(outline-6 ((,c :inherit modus-themes-heading-6)))
- `(outline-7 ((,c :inherit modus-themes-heading-7)))
- `(outline-8 ((,c :inherit modus-themes-heading-8)))
-;;;;; outline-minor-faces
- `(outline-minor-0 (()))
-;;;;; package (M-x list-packages)
- `(package-description ((,c :foreground ,docstring)))
- `(package-help-section-name ((,c :inherit bold)))
- `(package-name ((,c :inherit link)))
- `(package-status-available ((,c :foreground ,date-common)))
- `(package-status-avail-obso ((,c :inherit error)))
- `(package-status-built-in ((,c :foreground ,builtin)))
- `(package-status-dependency ((,c :foreground ,warning)))
- `(package-status-disabled ((,c :inherit error :strike-through t)))
- `(package-status-from-source ((,c :foreground ,type)))
- `(package-status-held ((,c :foreground ,warning)))
- `(package-status-incompat ((,c :inherit warning)))
- `(package-status-installed ((,c :foreground ,fg-alt)))
- `(package-status-new ((,c :inherit success)))
- `(package-status-unsigned ((,c :inherit error)))
-;;;;; page-break-lines
- `(page-break-lines ((,c :inherit default :foreground "gray50")))
-;;;;; pandoc-mode
- `(pandoc-citation-key-face ((,c :inherit font-lock-builtin-face)))
- `(pandoc-directive-@@-face ((,c :inherit font-lock-keyword-face)))
- `(pandoc-directive-braces-face ((,c :inherit font-lock-constant-face)))
- `(pandoc-directive-contents-face ((,c :inherit font-lock-string-face)))
- `(pandoc-directive-type-face ((,c :inherit font-lock-type-face)))
-;;;;; paren-face
- `(parenthesis ((,c :inherit shadow)))
-;;;;; pass
- `(pass-mode-directory-face ((,c :inherit bold :foreground ,accent-0)))
- `(pass-mode-entry-face ((,c :background ,bg-main :foreground ,fg-main)))
- `(pass-mode-header-face ((,c :inherit shadow)))
-;;;;; pdf-tools
- `(pdf-links-read-link ((,c :background ,fg-main :foreground ,bg-magenta-intense :inherit bold))) ; Foreground is background and vice versa
- `(pdf-occur-document-face ((,c :inherit shadow)))
- `(pdf-occur-page-face ((,c :inherit shadow)))
-;;;;; persp-mode
- `(persp-face-lighter-buffer-not-in-persp ((,c :inherit error)))
- `(persp-face-lighter-default ((,c :inherit bold :foreground ,name)))
- `(persp-face-lighter-nil-persp ((,c :inherit bold)))
-;;;;; perspective
- `(persp-selected-face ((,c :inherit bold :foreground ,name)))
-;;;;; proced
- `(proced-cpu ((,c :foreground ,keyword)))
- `(proced-emacs-pid ((,c :foreground ,identifier :underline t)))
- `(proced-executable ((,c :foreground ,name)))
- `(proced-interruptible-sleep-status-code ((,c :inherit shadow)))
- `(proced-mem ((,c :foreground ,type)))
- `(proced-memory-high-usage ((,c :foreground ,err)))
- `(proced-memory-low-usage ((,c :foreground ,info)))
- `(proced-memory-medium-usage ((,c :foreground ,warning)))
- `(proced-pgrp ((,c :inherit proced-pid)))
- `(proced-pid ((,c :foreground ,identifier)))
- `(proced-ppid ((,c :inherit proced-pid)))
- `(proced-run-status-code ((,c :inherit success)))
- `(proced-sess ((,c :inherit proced-pid)))
- `(proced-session-leader-pid ((,c :inherit bold :foreground ,identifier)))
- `(proced-time-colon (( )))
- `(proced-uninterruptible-sleep-status-code ((,c :inherit error)))
- `(proced-user (( )))
-;;;;; popup
- `(popup-face ((,c :background ,bg-inactive :foreground ,fg-main)))
- `(popup-isearch-match ((,c :inherit modus-themes-search-current)))
- `(popup-menu-mouse-face ((,c :inherit highlight)))
- `(popup-menu-selection-face ((,c :inherit modus-themes-completion-selected)))
- `(popup-scroll-bar-background-face ((,c :background ,bg-active)))
- `(popup-scroll-bar-foreground-face (( )))
- `(popup-summary-face ((,c :background ,bg-active :foreground ,fg-dim)))
- `(popup-tip-face ((,c :inherit modus-themes-intense-yellow)))
-;;;;; powerline
- `(powerline-active0 ((,c :background ,fg-dim :foreground ,bg-main)))
- `(powerline-active1 ((,c :inherit mode-line)))
- `(powerline-active2 ((,c :inherit mode-line-inactive)))
- `(powerline-inactive0 ((,c :background ,bg-active :foreground ,fg-dim)))
- `(powerline-inactive1 ((,c :background ,bg-main :foreground ,fg-dim)))
- `(powerline-inactive2 ((,c :inherit mode-line-inactive)))
-;;;;; powerline-evil
- `(powerline-evil-base-face ((,c :background ,fg-main :foreground ,bg-main)))
- `(powerline-evil-emacs-face ((,c :inherit bold :background ,bg-main)))
- `(powerline-evil-insert-face ((,c :inherit success :background ,bg-main)))
- `(powerline-evil-motion-face ((,c :inherit italic :background ,bg-main)))
- `(powerline-evil-normal-face ((,c :background ,bg-main :foreground ,fg-alt)))
- `(powerline-evil-operator-face ((,c :inherit warning :background ,bg-main)))
- `(powerline-evil-replace-face ((,c :inherit error :background ,bg-main)))
- `(powerline-evil-visual-face ((,c :inherit bold :background ,bg-main)))
-;;;;; prescient
- `(prescient-primary-highlight ((,c :inherit modus-themes-completion-match-0)))
- `(prescient-secondary-highlight ((,c :inherit modus-themes-completion-match-1)))
-;;;;; proced
- `(proced-mark ((,c :inherit bold)))
- `(proced-marked ((,c :inherit modus-themes-mark-alt)))
- `(proced-sort-header ((,c :inherit bold :underline t)))
-;;;;; prodigy
- `(prodigy-green-face ((,c :inherit success)))
- `(prodigy-red-face ((,c :inherit error)))
- `(prodigy-yellow-face ((,c :inherit warning)))
-;;;;; pulse
- `(pulse-highlight-start-face ((,c :background ,bg-blue-intense :extend t)))
-;;;;; pyim
- `(pyim-page ((,c :background ,bg-active)))
- `(pyim-page-selection ((,c :inherit bold :background ,bg-active :foreground ,info)))
- `(pyim-page-subword ((,c :background ,bg-inactive)))
-;;;;; quick-peek
- `(quick-peek-background-face ((,c :background ,bg-inactive)))
- `(quick-peek-border-face ((,c :background ,border :height 1)))
- `(quick-peek-padding-face ((,c :background ,bg-inactive :height 0.15)))
-;;;;; rainbow-delimiters
- `(rainbow-delimiters-base-error-face ((,c :inherit modus-themes-prominent-error)))
- `(rainbow-delimiters-base-face ((,c :foreground ,fg-main)))
- `(rainbow-delimiters-depth-1-face ((,c :foreground ,rainbow-0)))
- `(rainbow-delimiters-depth-2-face ((,c :foreground ,rainbow-1)))
- `(rainbow-delimiters-depth-3-face ((,c :foreground ,rainbow-2)))
- `(rainbow-delimiters-depth-4-face ((,c :foreground ,rainbow-3)))
- `(rainbow-delimiters-depth-5-face ((,c :foreground ,rainbow-4)))
- `(rainbow-delimiters-depth-6-face ((,c :foreground ,rainbow-5)))
- `(rainbow-delimiters-depth-7-face ((,c :foreground ,rainbow-6)))
- `(rainbow-delimiters-depth-8-face ((,c :foreground ,rainbow-7)))
- `(rainbow-delimiters-depth-9-face ((,c :foreground ,rainbow-8)))
- `(rainbow-delimiters-mismatched-face ((,c :inherit (bold modus-themes-prominent-warning))))
- `(rainbow-delimiters-unmatched-face ((,c :inherit (bold modus-themes-prominent-error))))
-;;;;; rcirc
- `(rcirc-bright-nick ((,c :inherit bold :foreground ,accent-2)))
- `(rcirc-dim-nick ((,c :inherit shadow)))
- `(rcirc-monospace-text ((,c :inherit fixed-pitch)))
- `(rcirc-my-nick ((,c :inherit bold :foreground ,accent-1)))
- `(rcirc-nick-in-message ((,c :inherit rcirc-my-nick)))
- `(rcirc-nick-in-message-full-line ((,c :inherit rcirc-my-nick)))
- `(rcirc-other-nick ((,c :inherit bold :foreground ,accent-0)))
- `(rcirc-prompt ((,c :inherit minibuffer-prompt)))
- `(rcirc-server ((,c :inherit font-lock-comment-face)))
- `(rcirc-timestamp ((,c :foreground ,date-common)))
- `(rcirc-track-keyword ((,c :inherit bold :foreground ,modeline-warning)))
- `(rcirc-track-nick ((,c :inherit rcirc-my-nick)))
- `(rcirc-url ((,c :inherit link)))
-;;;;; recursion-indicator
- `(recursion-indicator-general ((,c :foreground ,modeline-err)))
- `(recursion-indicator-minibuffer ((,c :foreground ,modeline-info)))
-;;;;; regexp-builder (re-builder)
- `(reb-match-0 ((,c :inherit modus-themes-intense-cyan)))
- `(reb-match-1 ((,c :inherit modus-themes-subtle-magenta)))
- `(reb-match-2 ((,c :inherit modus-themes-subtle-green)))
- `(reb-match-3 ((,c :inherit modus-themes-intense-yellow)))
- `(reb-regexp-grouping-backslash ((,c :inherit font-lock-regexp-grouping-backslash)))
- `(reb-regexp-grouping-construct ((,c :inherit font-lock-regexp-grouping-construct)))
-;;;;; rg (rg.el)
- `(rg-column-number-face ((,c :inherit shadow)))
- `(rg-context-face ((,c :inherit shadow)))
- `(rg-error-face ((,c :inherit error)))
- `(rg-file-tag-face ((,c :inherit font-lock-builtin-face)))
- `(rg-filename-face ((,c :inherit bold :foreground ,name)))
- `(rg-line-number-face ((,c :inherit shadow)))
- `(rg-literal-face ((,c :inherit font-lock-constant-face)))
- `(rg-match-face ((,c :inherit match)))
- `(rg-regexp-face ((,c :foreground ,name)))
- `(rg-toggle-off-face ((,c :inherit (shadow bold))))
- `(rg-toggle-on-face ((,c :inherit success)))
- `(rg-warning-face ((,c :inherit warning)))
-;;;;; ripgrep
- `(ripgrep-context-face ((,c :inherit shadow)))
- `(ripgrep-error-face ((,c :inherit error)))
- `(ripgrep-hit-face ((,c :inherit success)))
- `(ripgrep-match-face ((,c :inherit match)))
-;;;;; rmail
- `(rmail-header-name ((,c :inherit bold)))
- `(rmail-highlight ((,c :inherit bold :foreground ,mail-other)))
-;;;;; rst-mode
- `(rst-level-1 ((,c :inherit modus-themes-heading-1)))
- `(rst-level-2 ((,c :inherit modus-themes-heading-2)))
- `(rst-level-3 ((,c :inherit modus-themes-heading-3)))
- `(rst-level-4 ((,c :inherit modus-themes-heading-4)))
- `(rst-level-5 ((,c :inherit modus-themes-heading-5)))
- `(rst-level-6 ((,c :inherit modus-themes-heading-6)))
-;;;;; ruler-mode
- `(ruler-mode-column-number ((,c :inherit ruler-mode-default)))
- `(ruler-mode-comment-column ((,c :inherit ruler-mode-default :foreground ,red)))
- `(ruler-mode-current-column ((,c :inherit ruler-mode-default :background ,bg-active :foreground ,fg-main)))
- `(ruler-mode-default ((,c :inherit default :background ,bg-dim :foreground ,fg-dim)))
- `(ruler-mode-fill-column ((,c :inherit ruler-mode-default :foreground ,green)))
- `(ruler-mode-fringes ((,c :inherit ruler-mode-default :foreground ,cyan)))
- `(ruler-mode-goal-column ((,c :inherit ruler-mode-default :foreground ,blue)))
- `(ruler-mode-margins ((,c :inherit ruler-mode-default :foreground ,bg-main)))
- `(ruler-mode-pad ((,c :inherit ruler-mode-default :background ,bg-inactive :foreground ,fg-dim)))
- `(ruler-mode-tab-stop ((,c :inherit ruler-mode-default :foreground ,yellow)))
-;;;;; sesman
- `(sesman-browser-button-face ((,c :inherit button)))
- `(sesman-browser-highligh-face ((,c :inherit highlight)))
- `(sesman-buffer-face ((,c :foreground ,accent-1)))
- `(sesman-directory-face ((,c :inherit bold :foreground ,accent-0)))
- `(sesman-project-face ((,c :inherit bold :foreground ,accent-2)))
-;;;;; shell-script-mode
- `(sh-heredoc ((,c :inherit font-lock-string-face)))
- `(sh-quoted-exec ((,c :inherit font-lock-builtin-face)))
-;;;;; shortdoc
- `(shortdoc-heading ((,c :inherit bold)))
- `(shortdoc-section (())) ; remove the default's variable-pitch style
-;;;;; show-paren-mode
- `(show-paren-match ((,c :background ,bg-paren-match :foreground ,fg-main :underline ,underline-paren-match)))
- `(show-paren-match-expression ((,c :background ,bg-paren-expression)))
- `(show-paren-mismatch ((,c :inherit modus-themes-prominent-error)))
-;;;;; shr
- `(shr-abbreviation ((,c :inherit modus-themes-lang-note)))
- `(shr-code ((,c :inherit modus-themes-prose-verbatim)))
- `(shr-h1 ((,c :inherit modus-themes-heading-1)))
- `(shr-h2 ((,c :inherit modus-themes-heading-2)))
- `(shr-h3 ((,c :inherit modus-themes-heading-3)))
- `(shr-h4 ((,c :inherit modus-themes-heading-4)))
- `(shr-h5 ((,c :inherit modus-themes-heading-5)))
- `(shr-h6 ((,c :inherit modus-themes-heading-6)))
- `(shr-selected-link ((,c :inherit modus-themes-mark-sel)))
-;;;;; side-notes
- `(side-notes ((,c :background ,bg-dim :foreground ,fg-dim)))
-;;;;; sieve-mode
- `(sieve-action-commands ((,c :inherit font-lock-builtin-face)))
- `(sieve-control-commands ((,c :inherit font-lock-keyword-face)))
- `(sieve-tagged-arguments ((,c :inherit font-lock-type-face)))
- `(sieve-test-commands ((,c :inherit font-lock-function-name-face)))
-;;;;; skewer-mode
- `(skewer-error-face ((,c :inherit modus-themes-lang-error)))
-;;;;; slime (sldb)
- `(sldb-condition-face ((,c :inherit font-lock-preprocessor-face)))
- `(sldb-restart-number-face ((,c :inherit bold)))
- `(sldb-restart-type-face ((,c :inherit font-lock-type-face)))
- `(sldb-restartable-frame-line-face ((,c :inherit success)))
- `(sldb-section-face ((,c :inherit bold)))
- `(slime-error-face ((,c :inherit modus-themes-lang-error)))
- `(slime-note-face ((,c :underline t)))
- `(slime-repl-input-face ((,c :inherit bold)))
- `(slime-repl-inputed-output-face ((,c :inherit font-lock-string-face)))
- `(slime-repl-output-mouseover-face ((,c :inherit highlight)))
- `(slime-repl-prompt-face ((,c :inherit modus-themes-prompt)))
- `(slime-style-warning-face ((,c :inherit modus-themes-lang-note)))
- `(slime-warning-face ((,c :inherit modus-themes-lang-warning)))
-;;;;; sly
- `(sly-action-face ((,c :inherit font-lock-type-face)))
- `(sly-db-condition-face ((,c :inherit font-lock-preprocessor-face)))
- `(sly-db-restartable-frame-line-face ((,c :inherit success)))
- `(sly-error-face ((,c :inherit modus-themes-lang-error)))
- `(sly-mode-line ((,c :inherit mode-line-emphasis)))
- `(sly-mrepl-output-face ((,c :inherit font-lock-string-face)))
- `(sly-mrepl-output-face ((,c :inherit font-lock-string-face)))
- `(sly-mrepl-prompt-face ((,c :inherit modus-themes-prompt)))
- `(sly-note-face ((,c :inherit modus-themes-lang-note)))
- `(sly-stickers-placed-face ((,c :background ,bg-inactive)))
- `(sly-style-warning-face ((,c :inherit modus-themes-lang-note)))
- `(sly-warning-face ((,c :inherit modus-themes-lang-warning)))
-;;;;; smart-mode-line
- `(sml/charging ((,c :foreground ,info)))
- `(sml/discharging ((,c :foreground ,err)))
- `(sml/filename ((,c :inherit bold :foreground ,name)))
- `(sml/folder (( )))
- `(sml/git ((,c :inherit success)))
- `(sml/global (( )))
- `(sml/line-number ((,c :inherit sml/global)))
- `(sml/minor-modes ((,c :inherit sml/global)))
- `(sml/modes ((,c :inherit bold)))
- `(sml/modified ((,c :inherit italic)))
- `(sml/mule-info ((,c :inherit sml/global)))
- `(sml/name-filling ((,c :inherit warning)))
- `(sml/not-modified ((,c :inherit sml/global)))
- `(sml/numbers-separator ((,c :inherit sml/global)))
- `(sml/outside-modified ((,c :inherit modus-themes-prominent-error)))
- `(sml/position-percentage ((,c :inherit sml/global)))
- `(sml/prefix ((,c :foreground ,fg-alt)))
- `(sml/process ((,c :inherit sml/prefix)))
- `(sml/projectile ((,c :inherit sml/git)))
- `(sml/read-only (( )))
- `(sml/remote ((,c :inherit sml/global)))
- `(sml/sudo ((,c :inherit warning)))
- `(sml/time ((,c :inherit sml/global)))
- `(sml/vc ((,c :inherit sml/git)))
- `(sml/vc-edited ((,c :inherit italic)))
-;;;;; smerge
- `(smerge-base ((,c :inherit diff-changed)))
- `(smerge-lower ((,c :inherit diff-added)))
- `(smerge-markers ((,c :inherit diff-header)))
- `(smerge-refined-added ((,c :inherit diff-refine-added)))
- `(smerge-refined-changed (()))
- `(smerge-refined-removed ((,c :inherit diff-refine-removed)))
- `(smerge-upper ((,c :inherit diff-removed)))
-;;;;; speedbar
- `(speedbar-button-face ((,c :inherit button)))
- `(speedbar-directory-face ((,c :inherit bold :foreground ,accent-0)))
- `(speedbar-file-face ((,c :foreground ,fg-main)))
- `(speedbar-highlight-face ((,c :inherit highlight)))
- `(speedbar-selected-face ((,c :inherit modus-themes-mark-sel)))
- `(speedbar-separator-face ((,c :background ,bg-active :foreground ,fg-main)))
- `(speedbar-tag-face ((,c :foreground ,accent-1)))
-;;;;; spell-fu
- `(spell-fu-incorrect-face ((,c :inherit modus-themes-lang-error)))
-;;;;; stripes
- `(stripes ((,c :background ,bg-inactive)))
-;;;;; suggest
- `(suggest-heading ((,c :inherit warning)))
-;;;;; switch-window
- `(switch-window-background ((,c :background ,bg-inactive)))
- `(switch-window-label ((,c :height 3.0 :foreground ,red-intense)))
-;;;;; swiper
- `(swiper-background-match-face-1 (( )))
- `(swiper-background-match-face-2 ((,c :inherit modus-themes-completion-match-0)))
- `(swiper-background-match-face-3 ((,c :inherit modus-themes-completion-match-1)))
- `(swiper-background-match-face-4 ((,c :inherit modus-themes-completion-match-2)))
- `(swiper-line-face ((,c :background ,bg-hl-line :extend t)))
- `(swiper-match-face-1 (( )))
- `(swiper-match-face-2 ((,c :inherit modus-themes-completion-match-0)))
- `(swiper-match-face-3 ((,c :inherit modus-themes-completion-match-1)))
- `(swiper-match-face-4 ((,c :inherit modus-themes-completion-match-2)))
-;;;;; symbol-overlay
- `(symbol-overlay-default-face ((,c :background ,bg-inactive)))
- `(symbol-overlay-face-1 ((,c :inherit modus-themes-intense-blue)))
- `(symbol-overlay-face-2 ((,c :inherit modus-themes-intense-magenta)))
- `(symbol-overlay-face-3 ((,c :inherit modus-themes-intense-yellow)))
- `(symbol-overlay-face-4 ((,c :inherit modus-themes-intense-magenta)))
- `(symbol-overlay-face-5 ((,c :inherit modus-themes-intense-red)))
- `(symbol-overlay-face-6 ((,c :inherit modus-themes-intense-red)))
- `(symbol-overlay-face-7 ((,c :inherit modus-themes-intense-cyan)))
- `(symbol-overlay-face-8 ((,c :inherit modus-themes-intense-cyan)))
-;;;;; syslog-mode
- `(syslog-debug ((,c :inherit italic)))
- `(syslog-error ((,c :inherit error)))
- `(syslog-file ((,c :inherit bold :foreground ,name)))
- `(syslog-hide ((,c :background ,bg-main :foreground ,fg-main)))
- `(syslog-hour ((,c :inherit bold :foreground ,date-common)))
- `(syslog-info ((,c :inherit success)))
- `(syslog-ip ((,c :inherit bold :foreground ,name :underline t)))
- `(syslog-su ((,c :inherit error :underline t)))
- `(syslog-warn ((,c :inherit warning)))
-;;;;; tab-bar-mode
- `(tab-bar ((,c :inherit modus-themes-ui-variable-pitch :background ,bg-tab-bar)))
- `(tab-bar-tab-group-current ((,c :inherit bold :background ,bg-tab-current :box (:line-width -2 :color ,bg-tab-current) :foreground ,fg-alt)))
- `(tab-bar-tab-group-inactive ((,c :background ,bg-tab-bar :box (:line-width -2 :color ,bg-tab-bar) :foreground ,fg-alt)))
- `(tab-bar-tab ((,c :inherit bold :box (:line-width -2 :color ,bg-tab-current) :background ,bg-tab-current)))
- `(tab-bar-tab-inactive ((,c :box (:line-width -2 :color ,bg-tab-other) :background ,bg-tab-other)))
- `(tab-bar-tab-ungrouped ((,c :inherit tab-bar-tab-inactive)))
-;;;;; tab-line-mode
- `(tab-line ((,c :inherit modus-themes-ui-variable-pitch :background ,bg-tab-bar :height 0.95)))
- `(tab-line-close-highlight ((,c :foreground ,err)))
- `(tab-line-highlight ((,c :inherit highlight)))
- `(tab-line-tab (( )))
- `(tab-line-tab-current ((,c :inherit bold :box (:line-width -2 :color ,bg-tab-current) :background ,bg-tab-current)))
- `(tab-line-tab-inactive ((,c :box (:line-width -2 :color ,bg-tab-other) :background ,bg-tab-other)))
- `(tab-line-tab-inactive-alternate ((,c :inherit tab-line-tab-inactive :foreground ,fg-alt)))
- `(tab-line-tab-modified ((,c :foreground ,warning)))
-;;;;; table (built-in table.el)
- `(table-cell ((,c :background ,bg-dim)))
-;;;;; telega
- `(telega-button ((,c :box t :foreground ,fg-link)))
- `(telega-button-active ((,c :box ,fg-link :background ,fg-link :foreground ,bg-main)))
- `(telega-button-highlight ((,c :inherit secondary-selection)))
- `(telega-chat-prompt ((,c :inherit modus-themes-prompt)))
- `(telega-entity-type-code ((,c :inherit modus-themes-prose-verbatim)))
- `(telega-entity-type-mention ((,c :foreground ,cyan)))
- `(telega-entity-type-pre ((,c :inherit modus-themes-prose-code)))
- `(telega-entity-type-spoiler ((,c :background ,fg-main :foreground ,fg-main)))
- `(telega-msg-heading ((,c :background ,bg-inactive)))
- `(telega-msg-self-title ((,c :inherit bold)))
- `(telega-root-heading ((,c :background ,bg-inactive)))
- `(telega-secret-title ((,c :foreground ,magenta-warmer)))
- `(telega-unmuted-count ((,c :foreground ,blue-cooler)))
- `(telega-user-online-status ((,c :foreground ,cyan)))
- `(telega-username ((,c :foreground ,cyan-cooler)))
- `(telega-webpage-chat-link ((,c :background ,bg-inactive)))
- `(telega-webpage-fixed ((,c :inherit modus-themes-fixed-pitch :height 0.85)))
- `(telega-webpage-header ((,c :inherit modus-themes-variable-pitch :height 1.3)))
- `(telega-webpage-preformatted ((,c :inherit modus-themes-fixed-pitch :background ,bg-inactive)))
- `(telega-webpage-subheader ((,c :inherit modus-themes-variable-pitch :height 1.15)))
-;;;;; terraform-mode
- `(terraform--resource-name-face ((,c :foreground ,keyword)))
- `(terraform--resource-type-face ((,c :foreground ,type)))
-;;;;; term
- `(term ((,c :background ,bg-main :foreground ,fg-main)))
- `(term-bold ((,c :inherit bold)))
- `(term-color-black ((,c :background "gray35" :foreground "gray35")))
- `(term-color-blue ((,c :background ,blue :foreground ,blue)))
- `(term-color-cyan ((,c :background ,cyan :foreground ,cyan)))
- `(term-color-green ((,c :background ,green :foreground ,green)))
- `(term-color-magenta ((,c :background ,magenta :foreground ,magenta)))
- `(term-color-red ((,c :background ,red :foreground ,red)))
- `(term-color-white ((,c :background "gray65" :foreground "gray65")))
- `(term-color-yellow ((,c :background ,yellow :foreground ,yellow)))
- `(term-underline ((,c :underline t)))
-;;;;; textsec
- `(textsec-suspicious (( )))
-;;;;; transient
- `(transient-active-infix ((,c :inherit highlight)))
- `(transient-amaranth ((,c :inherit bold :foreground ,yellow-warmer)))
- ;; Placate the compiler for what is a spurious warning. We also
- ;; have to do this with `eldoc-highlight-function-argument'.
- (list 'transient-argument `((,c :inherit (bold modus-themes-mark-alt))))
- `(transient-blue ((,c :inherit bold :foreground ,blue)))
- `(transient-disabled-suffix ((,c :inherit modus-themes-mark-del)))
- `(transient-enabled-suffix ((,c :inherit modus-themes-subtle-cyan)))
- `(transient-heading ((,c :inherit bold :foreground ,fg-main)))
- `(transient-inactive-argument ((,c :inherit shadow)))
- `(transient-inactive-value ((,c :inherit shadow)))
- `(transient-key ((,c :inherit modus-themes-key-binding)))
- `(transient-mismatched-key ((,c :underline t)))
- `(transient-nonstandard-key ((,c :underline t)))
- `(transient-pink ((,c :inherit bold :foreground ,magenta)))
- `(transient-purple ((,c :inherit bold :foreground ,magenta-cooler)))
- `(transient-red ((,c :inherit bold :foreground ,red-faint)))
- `(transient-teal ((,c :inherit bold :foreground ,cyan-cooler)))
- `(transient-unreachable ((,c :inherit shadow)))
- `(transient-unreachable-key ((,c :inherit shadow)))
- `(transient-value ((,c :inherit (bold modus-themes-mark-sel))))
-;;;;; trashed
- `(trashed-deleted ((,c :inherit modus-themes-mark-del)))
- `(trashed-directory ((,c :foreground ,accent-0)))
- `(trashed-mark ((,c :inherit bold)))
- `(trashed-marked ((,c :inherit modus-themes-mark-alt)))
- `(trashed-restored ((,c :inherit modus-themes-mark-sel)))
-;;;;; tree-sitter
- `(tree-sitter-hl-face:attribute ((,c :inherit font-lock-variable-name-face)))
- `(tree-sitter-hl-face:constant.builtin ((,c :inherit tree-sitter-hl-face:constant)))
- `(tree-sitter-hl-face:escape ((,c :inherit font-lock-regexp-grouping-backslash)))
- `(tree-sitter-hl-face:function ((,c :inherit font-lock-function-name-face)))
- `(tree-sitter-hl-face:function.call ((,c :inherit tree-sitter-hl-face:function)))
- `(tree-sitter-hl-face:label (( )))
- `(tree-sitter-hl-face:method.call (( )))
- `(tree-sitter-hl-face:operator ((,c :inherit modus-themes-bold)))
- `(tree-sitter-hl-face:property (( )))
- `(tree-sitter-hl-face:property.definition ((,c :inherit font-lock-variable-name-face)))
- `(tree-sitter-hl-face:punctuation (( )))
- `(tree-sitter-hl-face:punctuation.bracket (( )))
- `(tree-sitter-hl-face:punctuation.delimiter (( )))
- `(tree-sitter-hl-face:punctuation.special ((,c :inherit font-lock-regexp-grouping-construct)))
- `(tree-sitter-hl-face:string.special ((,c :inherit tree-sitter-hl-face:string)))
- `(tree-sitter-hl-face:tag ((,c :inherit font-lock-function-name-face)))
- `(tree-sitter-hl-face:type.argument (( )))
-;;;;; tty-menu
- `(tty-menu-disabled-face ((,c :background ,bg-inactive :foreground ,fg-dim)))
- `(tty-menu-enabled-face ((,c :inherit bold :background ,bg-inactive :foreground ,fg-main)))
- `(tty-menu-selected-face ((,c :inherit modus-themes-intense-blue)))
-;;;;; tuareg
- `(caml-types-def-face ((,c :inherit modus-themes-subtle-red)))
- `(caml-types-expr-face ((,c :inherit modus-themes-subtle-green)))
- `(caml-types-occ-face ((,c :inherit modus-themes-subtle-green)))
- `(caml-types-scope-face ((,c :inherit modus-themes-subtle-blue)))
- `(caml-types-typed-face ((,c :inherit modus-themes-subtle-magenta)))
- `(tuareg-font-double-semicolon-face ((,c :inherit font-lock-preprocessor-face)))
- `(tuareg-font-lock-attribute-face ((,c :inherit font-lock-function-name-face)))
- `(tuareg-font-lock-constructor-face ((,c :foreground ,fg-main)))
- `(tuareg-font-lock-error-face ((,c :inherit (modus-themes-intense-red bold))))
- ;; `(tuareg-font-lock-extension-node-face ((,c :background ,bg-inactive :foreground ,magenta)))
- `(tuareg-font-lock-governing-face ((,c :inherit bold :foreground ,fg-main)))
- `(tuareg-font-lock-infix-extension-node-face ((,c :inherit font-lock-function-name-face)))
- `(tuareg-font-lock-interactive-directive-face ((,c :inherit font-lock-preprocessor-face)))
- `(tuareg-font-lock-interactive-error-face ((,c :inherit error)))
- `(tuareg-font-lock-interactive-output-face ((,c :inherit font-lock-constant-face)))
- `(tuareg-font-lock-label-face ((,c :inherit font-lock-type-face)))
- `(tuareg-font-lock-line-number-face ((,c :inherit shadow)))
- `(tuareg-font-lock-module-face ((,c :inherit font-lock-builtin-face)))
- ;; `(tuareg-font-lock-multistage-face ((,c :inherit bold :background ,bg-inactive :foreground ,blue)))
- `(tuareg-font-lock-operator-face ((,c :inherit font-lock-preprocessor-face)))
- `(tuareg-opam-error-face ((,c :inherit error)))
- `(tuareg-opam-pkg-variable-name-face ((,c :inherit font-lock-variable-name-face)))
-;;;;; typescript
- `(typescript-jsdoc-tag ((,c :inherit (font-lock-builtin-face font-lock-comment-face) :weight normal)))
- `(typescript-jsdoc-type ((,c :inherit (font-lock-type-face font-lock-comment-face) :weight normal)))
- `(typescript-jsdoc-value ((,c :inherit (font-lock-constant-face font-lock-comment-face) :weight normal)))
-;;;;; undo-tree
- `(undo-tree-visualizer-active-branch-face ((,c :inherit bold :foreground ,fg-main)))
- `(undo-tree-visualizer-current-face ((,c :foreground ,blue-intense)))
- `(undo-tree-visualizer-default-face ((,c :inherit shadow)))
- `(undo-tree-visualizer-register-face ((,c :foreground ,magenta-intense)))
- `(undo-tree-visualizer-unmodified-face ((,c :foreground ,green-intense)))
-;;;;; vc (vc-dir.el, vc-hooks.el)
- `(vc-dir-directory (( )))
- `(vc-dir-file ((,c :foreground ,name)))
- `(vc-dir-header ((,c :inherit bold)))
- `(vc-dir-header-value ((,c :foreground ,string)))
- `(vc-dir-mark-indicator (( )))
- `(vc-dir-status-edited ((,c :inherit italic)))
- `(vc-dir-status-ignored ((,c :inherit shadow)))
- `(vc-dir-status-up-to-date ((,c :foreground ,info)))
- `(vc-dir-status-warning ((,c :inherit error)))
- `(vc-conflict-state ((,c :inherit error)))
- `(vc-edited-state ((,c :inherit italic)))
- `(vc-git-log-edit-summary-max-warning ((,c :inherit error)))
- `(vc-git-log-edit-summary-target-warning ((,c :inherit warning)))
- `(vc-locally-added-state ((,c :inherit italic)))
- `(vc-locked-state ((,c :inherit success)))
- `(vc-missing-state ((,c :inherit error)))
- `(vc-needs-update-state ((,c :inherit error)))
- `(vc-removed-state ((,c :inherit error)))
- `(vc-state-base (( )))
- `(vc-up-to-date-state (( )))
-;;;;; vertico
- `(vertico-current ((,c :inherit modus-themes-completion-selected)))
-;;;;; vertico-quick
- `(vertico-quick1 ((,c :inherit bold :background ,bg-char-0)))
- `(vertico-quick2 ((,c :inherit bold :background ,bg-char-1)))
-;;;;; vimish-fold
- `(vimish-fold-fringe ((,c :foreground ,cyan)))
- `(vimish-fold-mouse-face ((,c :inherit modus-themes-intense-blue)))
- `(vimish-fold-overlay ((,c :background ,bg-inactive)))
-;;;;; visible-mark
- `(visible-mark-active ((,c :background ,bg-blue-intense)))
- `(visible-mark-face1 ((,c :background ,bg-cyan-intense)))
- `(visible-mark-face2 ((,c :background ,bg-yellow-intense)))
- `(visible-mark-forward-face1 ((,c :background ,bg-magenta-intense)))
- `(visible-mark-forward-face2 ((,c :background ,bg-green-intense)))
-;;;;; visual-regexp
- `(vr/group-0 ((,c :inherit modus-themes-intense-blue)))
- `(vr/group-1 ((,c :inherit modus-themes-intense-magenta)))
- `(vr/group-2 ((,c :inherit modus-themes-intense-green)))
- `(vr/match-0 ((,c :inherit modus-themes-intense-yellow)))
- `(vr/match-1 ((,c :inherit modus-themes-intense-yellow)))
- `(vr/match-separator-face ((,c :inherit bold :background ,bg-active)))
-;;;;; vterm
- `(vterm-color-black ((,c :background "gray35" :foreground "black")))
- `(vterm-color-blue ((,c :background ,blue-warmer :foreground ,blue)))
- `(vterm-color-cyan ((,c :background ,cyan-cooler :foreground ,cyan)))
- `(vterm-color-default ((,c :background ,bg-main :foreground ,fg-main)))
- `(vterm-color-green ((,c :background ,green-cooler :foreground ,green)))
- `(vterm-color-inverse-video ((,c :background ,bg-main :inverse-video t)))
- `(vterm-color-magenta ((,c :background ,magenta-cooler :foreground ,magenta)))
- `(vterm-color-red ((,c :background ,red-warmer :foreground ,red)))
- `(vterm-color-underline ((,c :underline t)))
- `(vterm-color-white ((,c :background "white" :foreground "gray65")))
- `(vterm-color-yellow ((,c :background ,yellow-warmer :foreground ,yellow)))
-;;;;; vundo
- `(vundo-default ((,c :inherit shadow)))
- `(vundo-highlight ((,c :inherit (bold vundo-node) :foreground ,red)))
- `(vundo-last-saved ((,c :inherit (bold vundo-node) :foreground ,blue)))
- `(vundo-saved ((,c :inherit vundo-node :foreground ,blue-intense)))
-;;;;; wcheck-mode
- `(wcheck-default-face ((,c :foreground ,red :underline t)))
-;;;;; web-mode
- `(web-mode-annotation-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-annotation-html-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-annotation-tag-face ((,c :inherit web-mode-comment-face :underline t)))
- `(web-mode-block-attr-name-face ((,c :inherit font-lock-constant-face)))
- `(web-mode-block-attr-value-face ((,c :inherit font-lock-type-face)))
- `(web-mode-block-comment-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-block-control-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-block-delimiter-face ((,c :foreground ,fg-main)))
- `(web-mode-block-face ((,c :background ,bg-dim)))
- `(web-mode-block-string-face ((,c :inherit web-mode-string-face)))
- `(web-mode-bold-face ((,c :inherit bold)))
- `(web-mode-builtin-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-comment-face ((,c :inherit font-lock-comment-face)))
- `(web-mode-comment-keyword-face ((,c :inherit font-lock-warning-face)))
- `(web-mode-constant-face ((,c :inherit font-lock-constant-face)))
- `(web-mode-css-at-rule-face ((,c :inherit font-lock-constant-face)))
- `(web-mode-css-color-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-css-comment-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-css-function-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-css-priority-face ((,c :inherit font-lock-warning-face)))
- `(web-mode-css-property-name-face ((,c :inherit font-lock-keyword-face)))
- `(web-mode-css-pseudo-class-face ((,c :inherit font-lock-doc-face)))
- `(web-mode-css-selector-face ((,c :inherit font-lock-keyword-face)))
- `(web-mode-css-string-face ((,c :inherit web-mode-string-face)))
- `(web-mode-css-variable-face ((,c :inherit font-lock-variable-name-face)))
- `(web-mode-current-column-highlight-face ((,c :background ,bg-inactive)))
- `(web-mode-current-element-highlight-face ((,c :inherit modus-themes-cyan-subtle)))
- `(web-mode-doctype-face ((,c :inherit font-lock-doc-face)))
- `(web-mode-error-face ((,c :inherit error)))
- `(web-mode-filter-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-folded-face ((,c :underline t)))
- `(web-mode-function-call-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-function-name-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-html-attr-custom-face ((,c :inherit font-lock-variable-name-face)))
- `(web-mode-html-attr-engine-face ((,c :foreground ,fg-main)))
- `(web-mode-html-attr-equal-face ((,c :foreground ,fg-main)))
- `(web-mode-html-attr-name-face ((,c :inherit font-lock-variable-name-face)))
- `(web-mode-html-attr-value-face ((,c :inherit font-lock-constant-face)))
- `(web-mode-html-entity-face ((,c :inherit font-lock-negation-char-face)))
- `(web-mode-html-tag-bracket-face ((,c :foreground ,fg-dim)))
- `(web-mode-html-tag-custom-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-html-tag-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-html-tag-namespaced-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-html-tag-unclosed-face ((,c :inherit error :underline t)))
- `(web-mode-inlay-face ((,c :background ,bg-inactive)))
- `(web-mode-italic-face ((,c :inherit italic)))
- `(web-mode-javascript-comment-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-javascript-string-face ((,c :inherit web-mode-string-face)))
- `(web-mode-json-comment-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-json-context-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-json-key-face ((,c :foreground ,blue-faint)))
- `(web-mode-json-string-face ((,c :inherit web-mode-string-face)))
- `(web-mode-keyword-face ((,c :inherit font-lock-keyword-face)))
- `(web-mode-param-name-face ((,c :inherit font-lock-function-name-face)))
- `(web-mode-part-comment-face ((,c :inherit web-mode-comment-face)))
- `(web-mode-part-face ((,c :inherit web-mode-block-face)))
- `(web-mode-part-string-face ((,c :inherit web-mode-string-face)))
- `(web-mode-preprocessor-face ((,c :inherit font-lock-preprocessor-face)))
- `(web-mode-script-face ((,c :inherit web-mode-part-face)))
- `(web-mode-sql-keyword-face ((,c :inherit font-lock-negation-char-face)))
- `(web-mode-string-face ((,c :inherit font-lock-string-face)))
- `(web-mode-style-face ((,c :inherit web-mode-part-face)))
- `(web-mode-symbol-face ((,c :inherit font-lock-constant-face)))
- `(web-mode-type-face ((,c :inherit font-lock-builtin-face)))
- `(web-mode-underline-face ((,c :underline t)))
- `(web-mode-variable-name-face ((,c :inherit font-lock-variable-name-face)))
- `(web-mode-warning-face ((,c :inherit warning)))
- `(web-mode-whitespace-face ((,c :background ,bg-inactive)))
-;;;;; wgrep
- `(wgrep-delete-face ((,c :inherit warning)))
- `(wgrep-done-face ((,c :inherit success)))
- `(wgrep-face ((,c :inherit bold)))
- `(wgrep-file-face ((,c :foreground ,fg-alt)))
- `(wgrep-reject-face ((,c :inherit error)))
-;;;;; which-function-mode
- `(which-func ((,c :inherit bold :foreground ,modeline-info)))
-;;;;; which-key
- `(which-key-command-description-face ((,c :foreground ,fg-main)))
- `(which-key-group-description-face ((,c :foreground ,keyword)))
- `(which-key-highlighted-command-face ((,c :foreground ,warning :underline t)))
- `(which-key-key-face ((,c :inherit modus-themes-key-binding)))
- `(which-key-local-map-description-face ((,c :foreground ,fg-main)))
- `(which-key-note-face ((,c :inherit shadow)))
- `(which-key-separator-face ((,c :inherit shadow)))
- `(which-key-special-key-face ((,c :inherit error)))
-;;;;; whitespace-mode
- `(whitespace-big-indent ((,c :background ,bg-space-err)))
- `(whitespace-empty ((,c :inherit modus-themes-intense-magenta)))
- `(whitespace-hspace ((,c :background ,bg-space :foreground ,fg-space)))
- `(whitespace-indentation ((,c :background ,bg-space :foreground ,fg-space)))
- `(whitespace-line ((,c :background ,bg-space :foreground ,warning)))
- `(whitespace-newline ((,c :background ,bg-space :foreground ,fg-space)))
- `(whitespace-space ((,c :background ,bg-space :foreground ,fg-space)))
- `(whitespace-space-after-tab ((,c :inherit modus-themes-subtle-magenta)))
- `(whitespace-space-before-tab ((,c :inherit modus-themes-subtle-cyan)))
- `(whitespace-tab ((,c :background ,bg-space :foreground ,fg-space)))
- `(whitespace-trailing ((,c :background ,bg-space-err)))
-;;;;; window-divider-mode
- `(window-divider ((,c :foreground ,border)))
- `(window-divider-first-pixel ((,c :foreground ,bg-inactive)))
- `(window-divider-last-pixel ((,c :foreground ,bg-inactive)))
-;;;;; widget
- `(widget-button ((,c :inherit bold :foreground ,fg-link)))
- `(widget-button-pressed ((,c :inherit widget-button :foreground ,fg-link-visited)))
- `(widget-documentation ((,c :inherit font-lock-doc-face)))
- `(widget-field ((,c :background ,bg-inactive :foreground ,fg-main :extend nil)))
- `(widget-inactive ((,c :background ,bg-button-inactive :foreground ,fg-button-inactive)))
- `(widget-single-line-field ((,c :inherit widget-field)))
-;;;;; writegood-mode
- `(writegood-duplicates-face ((,c :inherit modus-themes-lang-error)))
- `(writegood-passive-voice-face ((,c :inherit modus-themes-lang-warning)))
- `(writegood-weasels-face ((,c :inherit modus-themes-lang-warning)))
-;;;;; woman
- `(woman-addition ((,c :foreground ,accent-2)))
- `(woman-bold ((,c :inherit bold :foreground ,accent-0)))
- `(woman-italic ((,c :inherit italic :foreground ,accent-1)))
- `(woman-unknown ((,c :foreground ,accent-3)))
-;;;;; xah-elisp-mode
- `(xah-elisp-at-symbol ((,c :inherit font-lock-warning-face)))
- `(xah-elisp-cap-variable ((,c :inherit font-lock-preprocessor-face)))
- `(xah-elisp-command-face ((,c :inherit font-lock-type-face)))
- `(xah-elisp-dollar-symbol ((,c :inherit font-lock-variable-name-face)))
-;;;;; yaml-mode
- `(yaml-tab-face ((,c :background ,bg-space-err)))
-;;;;; yasnippet
- `(yas-field-highlight-face ((,c :inherit highlight))))
- "Face specs for use with `modus-themes-theme'.")
-
-(defconst modus-themes-custom-variables
- '(
-;;;; ansi-colors
- `(ansi-color-faces-vector [default bold shadow italic underline success warning error])
- `(ansi-color-names-vector ["gray35" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"])
-;;;; chart
- `(chart-face-color-list
- '( ,bg-graph-red-0 ,bg-graph-green-0 ,bg-graph-yellow-0 ,bg-graph-blue-0 ,bg-graph-magenta-0 ,bg-graph-cyan-0
- ,bg-graph-red-1 ,bg-graph-green-1 ,bg-graph-yellow-1 ,bg-graph-blue-1 ,bg-graph-magenta-1 ,bg-graph-cyan-1))
-;;;; exwm
- `(exwm-floating-border-color ,border)
-;;;; flymake fringe indicators
- `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-themes-prominent-error))
- `(flymake-warning-bitmap '(exclamation-mark modus-themes-prominent-warning))
- `(flymake-note-bitmap '(exclamation-mark modus-themes-prominent-note))
-;;;; highlight-changes
- `(highlight-changes-colors nil)
- `(highlight-changes-face-list '(success warning error bold bold-italic))
-;;;; ibuffer
- `(ibuffer-deletion-face 'modus-themes-mark-del)
- `(ibuffer-filter-group-name-face 'bold)
- `(ibuffer-marked-face 'modus-themes-mark-sel)
- `(ibuffer-title-face 'default)
-;;;; hl-todo
- `(hl-todo-keyword-faces
- '(("HOLD" . ,warning)
- ("TODO" . ,err)
- ("NEXT" . ,fg-alt)
- ("THEM" . ,fg-alt)
- ("PROG" . ,info)
- ("OKAY" . ,info)
- ("DONT" . ,warning)
- ("FAIL" . ,err)
- ("BUG" . ,err)
- ("DONE" . ,info)
- ("NOTE" . ,warning)
- ("KLUDGE" . ,warning)
- ("HACK" . ,warning)
- ("TEMP" . ,warning)
- ("FIXME" . ,err)
- ("XXX+" . ,err)
- ("REVIEW" . ,info)
- ("DEPRECATED" . ,info)))
-;;;; pdf-tools
- `(pdf-view-midnight-colors '(,fg-main . ,bg-dim))
-;;;; rcirc-color
- `(rcirc-colors
- '(modus-themes-fg-red
- modus-themes-fg-green
- modus-themes-fg-blue
- modus-themes-fg-yellow
- modus-themes-fg-magenta
- modus-themes-fg-cyan
- modus-themes-fg-red-warmer
- modus-themes-fg-green-warmer
- modus-themes-fg-blue-warmer
- modus-themes-fg-yellow-warmer
- modus-themes-fg-magenta-warmer
- modus-themes-fg-cyan-warmer
- modus-themes-fg-red-cooler
- modus-themes-fg-green-cooler
- modus-themes-fg-blue-cooler
- modus-themes-fg-yellow-cooler
- modus-themes-fg-magenta-cooler
- modus-themes-fg-cyan-cooler
- modus-themes-fg-red-faint
- modus-themes-fg-green-faint
- modus-themes-fg-blue-faint
- modus-themes-fg-yellow-faint
- modus-themes-fg-magenta-faint
- modus-themes-fg-cyan-faint
- modus-themes-fg-red-intense
- modus-themes-fg-green-intense
- modus-themes-fg-blue-intense
- modus-themes-fg-yellow-intense
- modus-themes-fg-magenta-intense
- modus-themes-fg-cyan-intense))
-;;;; org-src-block-faces
- (if (or (eq modus-themes-org-blocks 'tinted-background)
- (eq modus-themes-org-blocks 'rainbow))
- `(org-src-block-faces
- `(("emacs-lisp" modus-themes-nuanced-magenta)
- ("elisp" modus-themes-nuanced-magenta)
- ("clojure" modus-themes-nuanced-magenta)
- ("clojurescript" modus-themes-nuanced-magenta)
- ("c" modus-themes-nuanced-blue)
- ("c++" modus-themes-nuanced-blue)
- ("sh" modus-themes-nuanced-green)
- ("shell" modus-themes-nuanced-green)
- ("html" modus-themes-nuanced-yellow)
- ("xml" modus-themes-nuanced-yellow)
- ("css" modus-themes-nuanced-red)
- ("scss" modus-themes-nuanced-red)
- ("python" modus-themes-nuanced-green)
- ("ipython" modus-themes-nuanced-magenta)
- ("r" modus-themes-nuanced-cyan)
- ("yaml" modus-themes-nuanced-cyan)
- ("conf" modus-themes-nuanced-cyan)
- ("docker" modus-themes-nuanced-cyan)))
- `(org-src-block-faces '())))
- "Custom variables for `modus-themes-theme'.")
-
-;;; Theme macros
-
-;;;; Instantiate a Modus theme
-
-;;;###autoload
-(defmacro modus-themes-theme (name palette &optional overrides)
- "Bind NAME's color PALETTE around face specs and variables.
-Face specifications are passed to `custom-theme-set-faces'.
-While variables are handled by `custom-theme-set-variables'.
-Those are stored in `modus-themes-faces' and
-`modus-themes-custom-variables' respectively.
-
-Optional OVERRIDES are appended to PALETTE, overriding
-corresponding entries."
- (declare (indent 0))
- (let ((sym (gensym))
- (colors (mapcar #'car (symbol-value palette))))
- `(let* ((c '((class color) (min-colors 256)))
- (,sym (modus-themes--palette-value ',name ',overrides))
- ,@(mapcar (lambda (color)
- (list color
- `(modus-themes--retrieve-palette-value ',color ,sym)))
- colors))
- (ignore c ,@colors) ; Silence unused variable warnings
- (custom-theme-set-faces ',name ,@modus-themes-faces)
- (custom-theme-set-variables ',name ,@modus-themes-custom-variables))))
-
-;;;; Use theme colors
-
-(defmacro modus-themes-with-colors (&rest body)
- "Evaluate BODY with colors from current palette bound."
- (declare (indent 0))
- (let* ((sym (gensym))
- ;; NOTE 2022-08-23: We just give it a sample palette at this
- ;; stage. It only needs to collect each car. Then we
- ;; instantiate the actual theme's palette. We have to do this
- ;; otherwise the macro does not work properly when called from
- ;; inside a function.
- (colors (mapcar #'car (modus-themes--current-theme-palette))))
- `(let* ((c '((class color) (min-colors 256)))
- (,sym (modus-themes--current-theme-palette :overrides))
- ,@(mapcar (lambda (color)
- (list color
- `(modus-themes--retrieve-palette-value ',color ,sym)))
- colors))
- (ignore c ,@colors) ; Silence unused variable warnings
- ,@body)))
-
-;;;; Add themes from package to path
-
-;;;###autoload
-(when load-file-name
- (let ((dir (file-name-directory load-file-name)))
- (unless (equal dir (expand-file-name "themes/" data-directory))
- (add-to-list 'custom-theme-load-path dir))))
-
-(provide 'modus-themes)
-;;; modus-themes.el ends here
diff --git a/tools/emacs/lisp/modus-vivendi-deuteranopia-theme.el b/tools/emacs/lisp/modus-vivendi-deuteranopia-theme.el
@@ -1,441 +0,0 @@
-;;; modus-vivendi-deuteranopia-theme.el --- Deuteranopia-optimized theme with a black background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-vivendi-deuteranopia
- "Deuteranopia-optimized theme with a black background.
-This variant is optimized for users with red-green color
-deficiency (deuteranopia). It conforms with the highest
-legibility standard for color contrast between background and
-foreground in any given piece of text, which corresponds to a
-minimum contrast in relative luminance of 7:1 (WCAG AAA
-standard).")
-
- (defconst modus-vivendi-deuteranopia-palette
- '(
-;;; Basic values
-
- (bg-main "#000000")
- (bg-dim "#1e1e1e")
- (fg-main "#ffffff")
- (fg-dim "#989898")
- (fg-alt "#c6daff")
- (bg-active "#535353")
- (bg-inactive "#303030")
- (border "#646464")
-
-;;; Common accent foregrounds
-
- (red "#ff5f59")
- (red-warmer "#ff6b55")
- (red-cooler "#ff7f9f")
- (red-faint "#ff9580")
- (red-intense "#ff5f5f")
- (green "#44bc44")
- (green-warmer "#70b900")
- (green-cooler "#00c06f")
- (green-faint "#88ca9f")
- (green-intense "#44df44")
- (yellow "#cabf00")
- (yellow-warmer "#ffa00f")
- (yellow-cooler "#d8af7a")
- (yellow-faint "#d2b580")
- (yellow-intense "#efef00")
- (blue "#2fafff")
- (blue-warmer "#79a8ff")
- (blue-cooler "#00bcff")
- (blue-faint "#82b0ec")
- (blue-intense "#338fff")
- (magenta "#feacd0")
- (magenta-warmer "#f78fe7")
- (magenta-cooler "#b6a0ff")
- (magenta-faint "#caa6df")
- (magenta-intense "#ff66ff")
- (cyan "#00d3d0")
- (cyan-warmer "#4ae2f0")
- (cyan-cooler "#6ae4b9")
- (cyan-faint "#9ac8e0")
- (cyan-intense "#00eff0")
-
-;;; Uncommon accent foregrounds
-
- (rust "#db7b5f")
- (gold "#c0965b")
- (olive "#9cbd6f")
- (slate "#76afbf")
- (indigo "#9099d9")
- (maroon "#cf7fa7")
- (pink "#d09dc0")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#9d1f1f")
- (bg-green-intense "#2f822f")
- (bg-yellow-intense "#7a6100")
- (bg-blue-intense "#1640b0")
- (bg-magenta-intense "#7030af")
- (bg-cyan-intense "#2266ae")
-
- (bg-red-subtle "#620f2a")
- (bg-green-subtle "#00422a")
- (bg-yellow-subtle "#4a4000")
- (bg-blue-subtle "#242679")
- (bg-magenta-subtle "#552f5f")
- (bg-cyan-subtle "#004065")
-
- (bg-red-nuanced "#2c0614")
- (bg-green-nuanced "#001904")
- (bg-yellow-nuanced "#221000")
- (bg-blue-nuanced "#0f0e39")
- (bg-magenta-nuanced "#230631")
- (bg-cyan-nuanced "#041529")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#442c2f")
- (bg-lavender "#38325c")
- (bg-sage "#0f3d30")
-
-;;; Graphs
-
- (bg-graph-red-0 "#bf6000")
- (bg-graph-red-1 "#733500")
- (bg-graph-green-0 "#6fbf8f")
- (bg-graph-green-1 "#2f5f4f")
- (bg-graph-yellow-0 "#c1c00a")
- (bg-graph-yellow-1 "#7f6640")
- (bg-graph-blue-0 "#0f90ef")
- (bg-graph-blue-1 "#1f2f8f")
- (bg-graph-magenta-0 "#7f7f8e")
- (bg-graph-magenta-1 "#4f4f5f")
- (bg-graph-cyan-0 "#376f9a")
- (bg-graph-cyan-1 "#00404f")
-
-;;; Special purpose
-
- (bg-completion "#2f447f")
- (bg-hover "#004f70")
- (bg-hover-secondary "#654a39")
- (bg-hl-line "#2f3849")
- (bg-region "#5a5a5a")
- (fg-region "#ffffff")
-
- (bg-char-0 "#0050af")
- (bg-char-1 "#7f1f7f")
- (bg-char-2 "#625a00")
-
- (bg-mode-line-active "#2a2a6a")
- (fg-mode-line-active "#f0f0f0")
- (border-mode-line-active "#8080a7")
- (bg-mode-line-inactive "#2d2d2d")
- (fg-mode-line-inactive "#969696")
- (border-mode-line-inactive "#606060")
-
- (modeline-err "#e5bf00")
- (modeline-warning "#c0cf35")
- (modeline-info "#abeadf")
-
- (bg-tab-bar "#313131")
- (bg-tab-current "#000000")
- (bg-tab-other "#545454")
-
-;;; Diffs
-
- (bg-added "#003066")
- (bg-added-faint "#001a4f")
- (bg-added-refine "#0f4a77")
- (bg-added-fringe "#006fff")
- (fg-added "#c4d5ff")
- (fg-added-intense "#8080ff")
-
- (bg-changed "#2f123f")
- (bg-changed-faint "#1f022f")
- (bg-changed-refine "#3f325f")
- (bg-changed-fringe "#7f55a0")
- (fg-changed "#e3cfff")
- (fg-changed-intense "#cf9fe2")
-
- (bg-removed "#3d3d00")
- (bg-removed-faint "#281f00")
- (bg-removed-refine "#515100")
- (bg-removed-fringe "#d0c03f")
- (fg-removed "#d4d48f")
- (fg-removed-intense "#d0b05f")
-
- (bg-diff-context "#1a1a1a")
-
-;;; Paren match
-
- (bg-paren-match "#2f7f9f")
- (bg-paren-expression "#453040")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor yellow-intense)
-
- (keybind blue-cooler)
- (name blue-cooler)
- (identifier yellow-faint)
-
- (err yellow-warmer)
- (warning yellow)
- (info blue)
-
- (underline-err yellow-intense)
- (underline-warning magenta-faint)
- (underline-note cyan)
-
- (bg-prominent-err bg-yellow-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-magenta-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment yellow-cooler)
- (constant blue-cooler)
- (docstring cyan-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct yellow-cooler)
- (rx-backslash blue-cooler)
-
-;;;; Accent mappings
-
- (accent-0 blue-cooler)
- (accent-1 yellow)
- (accent-2 cyan-cooler)
- (accent-3 magenta-warmer)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue-cooler)
- (fg-completion-match-1 yellow)
- (fg-completion-match-2 cyan-cooler)
- (fg-completion-match-3 magenta-warmer)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline yellow-warmer)
- (date-event fg-alt)
- (date-holiday yellow-warmer)
- (date-now blue-faint)
- (date-range fg-alt)
- (date-scheduled yellow-cooler)
- (date-weekday cyan)
- (date-weekend yellow-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited yellow-faint)
- (bg-link-visited unspecified)
- (underline-link-visited yellow-faint)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-warmer)
- (mail-cite-1 yellow-cooler)
- (mail-cite-2 cyan-faint)
- (mail-cite-3 yellow)
- (mail-part blue)
- (mail-recipient blue)
- (mail-subject yellow-warmer)
- (mail-other cyan-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-yellow-subtle)
- (fg-mark-delete yellow)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-magenta-subtle)
- (fg-mark-other magenta-warmer)
-
-;;;; Prompt mappings
-
- (fg-prompt blue)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan-cooler)
- (prose-done blue)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo yellow-warmer)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 yellow-warmer)
- (rainbow-1 blue)
- (rainbow-2 yellow-cooler)
- (rainbow-3 blue-warmer)
- (rainbow-4 yellow)
- (rainbow-5 cyan-warmer)
- (rainbow-6 yellow-faint)
- (rainbow-7 blue-faint)
- (rainbow-8 magenta-faint)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-yellow-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 blue-faint)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-faint)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-vivendi-deuteranopia' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-vivendi-deuteranopia-palette-overrides nil
- "Overrides for `modus-vivendi-deuteranopia-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-vivendi-deuteranopia
- modus-vivendi-deuteranopia-palette
- modus-vivendi-deuteranopia-palette-overrides)
-
- (provide-theme 'modus-vivendi-deuteranopia))
-
-;;;###theme-autoload
-(put 'modus-vivendi-deuteranopia 'theme-properties '(:background-mode dark :kind color-scheme :family modus))
-
-;;; modus-vivendi-deuteranopia-theme.el ends here
diff --git a/tools/emacs/lisp/modus-vivendi-theme.el b/tools/emacs/lisp/modus-vivendi-theme.el
@@ -1,440 +0,0 @@
-;;; modus-vivendi-theme.el --- Elegant, highly legible theme with a black background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-vivendi
- "Elegant, highly legible theme with a black background.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
-
- (defconst modus-vivendi-palette
- '(
-;;; Basic values
-
- (bg-main "#000000")
- (bg-dim "#1e1e1e")
- (fg-main "#ffffff")
- (fg-dim "#989898")
- (fg-alt "#c6daff")
- (bg-active "#535353")
- (bg-inactive "#303030")
- (border "#646464")
-
-;;; Common accent foregrounds
-
- (red "#ff5f59")
- (red-warmer "#ff6b55")
- (red-cooler "#ff7f9f")
- (red-faint "#ff9580")
- (red-intense "#ff5f5f")
- (green "#44bc44")
- (green-warmer "#70b900")
- (green-cooler "#00c06f")
- (green-faint "#88ca9f")
- (green-intense "#44df44")
- (yellow "#d0bc00")
- (yellow-warmer "#fec43f")
- (yellow-cooler "#dfaf7a")
- (yellow-faint "#d2b580")
- (yellow-intense "#efef00")
- (blue "#2fafff")
- (blue-warmer "#79a8ff")
- (blue-cooler "#00bcff")
- (blue-faint "#82b0ec")
- (blue-intense "#338fff")
- (magenta "#feacd0")
- (magenta-warmer "#f78fe7")
- (magenta-cooler "#b6a0ff")
- (magenta-faint "#caa6df")
- (magenta-intense "#ff66ff")
- (cyan "#00d3d0")
- (cyan-warmer "#4ae2f0")
- (cyan-cooler "#6ae4b9")
- (cyan-faint "#9ac8e0")
- (cyan-intense "#00eff0")
-
-;;; Uncommon accent foregrounds
-
- (rust "#db7b5f")
- (gold "#c0965b")
- (olive "#9cbd6f")
- (slate "#76afbf")
- (indigo "#9099d9")
- (maroon "#cf7fa7")
- (pink "#d09dc0")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#9d1f1f")
- (bg-green-intense "#2f822f")
- (bg-yellow-intense "#7a6100")
- (bg-blue-intense "#1640b0")
- (bg-magenta-intense "#7030af")
- (bg-cyan-intense "#2266ae")
-
- (bg-red-subtle "#620f2a")
- (bg-green-subtle "#00422a")
- (bg-yellow-subtle "#4a4000")
- (bg-blue-subtle "#242679")
- (bg-magenta-subtle "#552f5f")
- (bg-cyan-subtle "#004065")
-
- (bg-red-nuanced "#2c0614")
- (bg-green-nuanced "#001904")
- (bg-yellow-nuanced "#221000")
- (bg-blue-nuanced "#0f0e39")
- (bg-magenta-nuanced "#230631")
- (bg-cyan-nuanced "#041529")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#442c2f")
- (bg-lavender "#38325c")
- (bg-sage "#0f3d30")
-
-;;; Graphs
-
- (bg-graph-red-0 "#b52c2c")
- (bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#0fed00")
- (bg-graph-green-1 "#007800")
- (bg-graph-yellow-0 "#f1e00a")
- (bg-graph-yellow-1 "#b08940")
- (bg-graph-blue-0 "#2fafef")
- (bg-graph-blue-1 "#1f2f8f")
- (bg-graph-magenta-0 "#bf94fe")
- (bg-graph-magenta-1 "#5f509f")
- (bg-graph-cyan-0 "#47dfea")
- (bg-graph-cyan-1 "#00808f")
-
-;;; Special purpose
-
- (bg-completion "#2f447f")
- (bg-hover "#004f70")
- (bg-hover-secondary "#654a39")
- (bg-hl-line "#2f3849")
- (bg-region "#5a5a5a")
- (fg-region "#ffffff")
-
- (bg-char-0 "#0050af")
- (bg-char-1 "#7f1f7f")
- (bg-char-2 "#625a00")
-
- (bg-mode-line-active "#505050")
- (fg-mode-line-active "#ffffff")
- (border-mode-line-active "#959595")
- (bg-mode-line-inactive "#2d2d2d")
- (fg-mode-line-inactive "#969696")
- (border-mode-line-inactive "#606060")
-
- (modeline-err "#ffa9bf")
- (modeline-warning "#dfcf43")
- (modeline-info "#9fefff")
-
- (bg-tab-bar "#313131")
- (bg-tab-current "#000000")
- (bg-tab-other "#545454")
-
-;;; Diffs
-
- (bg-added "#00381f")
- (bg-added-faint "#002910")
- (bg-added-refine "#034f2f")
- (bg-added-fringe "#237f3f")
- (fg-added "#a0e0a0")
- (fg-added-intense "#80e080")
-
- (bg-changed "#363300")
- (bg-changed-faint "#2a1f00")
- (bg-changed-refine "#4a4a00")
- (bg-changed-fringe "#8a7a00")
- (fg-changed "#efef80")
- (fg-changed-intense "#c0b05f")
-
- (bg-removed "#4f1119")
- (bg-removed-faint "#380a0f")
- (bg-removed-refine "#781a1f")
- (bg-removed-fringe "#b81a1f")
- (fg-removed "#ffbfbf")
- (fg-removed-intense "#ff9095")
-
- (bg-diff-context "#1a1a1a")
-
-;;; Paren match
-
- (bg-paren-match "#2f7f9f")
- (bg-paren-expression "#453040")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor fg-main)
-
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-faint)
-
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
-
- (underline-err red-intense)
- (underline-warning yellow)
- (underline-note cyan)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-yellow-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment fg-dim)
- (constant blue-cooler)
- (docstring cyan-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 blue-cooler)
- (accent-1 magenta-warmer)
- (accent-2 cyan-cooler)
- (accent-3 yellow)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue-cooler)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan-cooler)
- (fg-completion-match-3 yellow)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red-cooler)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled yellow-warmer)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-warmer)
- (mail-cite-1 yellow-cooler)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part blue)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red-cooler)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-yellow-subtle)
- (fg-mark-other yellow)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-red-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 blue-faint)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-faint)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-vivendi' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
-
- (defcustom modus-vivendi-palette-overrides nil
- "Overrides for `modus-vivendi-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-vivendi
- modus-vivendi-palette
- modus-vivendi-palette-overrides)
-
- (provide-theme 'modus-vivendi))
-
-;;;###theme-autoload
-(put 'modus-vivendi 'theme-properties '(:background-mode dark :kind color-scheme :family modus))
-
-;;; modus-vivendi-theme.el ends here
diff --git a/tools/emacs/lisp/modus-vivendi-tinted-theme.el b/tools/emacs/lisp/modus-vivendi-tinted-theme.el
@@ -1,439 +0,0 @@
-;;; modus-vivendi-tinted-theme.el --- Elegant, highly legible theme with a night sky background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-vivendi-tinted
- "Elegant, highly legible theme with a night sky background.
-Conforms with the highest legibility standard for color contrast
-between background and foreground in any given piece of text,
-which corresponds to a minimum contrast in relative luminance of
-7:1 (WCAG AAA standard).")
-
- (defconst modus-vivendi-tinted-palette
- '(
-;;; Basic values
-
- (bg-main "#0d0e1c")
- (bg-dim "#1d2235")
- (fg-main "#ffffff")
- (fg-dim "#989898")
- (fg-alt "#c6daff")
- (bg-active "#4a4f69")
- (bg-inactive "#2b3045")
- (border "#61647a")
-
-;;; Common accent foregrounds
-
- (red "#ff5f59")
- (red-warmer "#ff6b55")
- (red-cooler "#ff7f9f")
- (red-faint "#ff9f80")
- (red-intense "#ff5f5f")
- (green "#44bc44")
- (green-warmer "#70b900")
- (green-cooler "#00c06f")
- (green-faint "#88ca9f")
- (green-intense "#44df44")
- (yellow "#d0bc00")
- (yellow-warmer "#fec43f")
- (yellow-cooler "#dfaf7a")
- (yellow-faint "#d2b580")
- (yellow-intense "#efef00")
- (blue "#2fafff")
- (blue-warmer "#79a8ff")
- (blue-cooler "#00bcff")
- (blue-faint "#82b0ec")
- (blue-intense "#338fff")
- (magenta "#feacd0")
- (magenta-warmer "#f78fe7")
- (magenta-cooler "#b6a0ff")
- (magenta-faint "#caa6df")
- (magenta-intense "#ff66ff")
- (cyan "#00d3d0")
- (cyan-warmer "#4ae2f0")
- (cyan-cooler "#6ae4b9")
- (cyan-faint "#9ac8e0")
- (cyan-intense "#00eff0")
-
-;;; Uncommon accent foregrounds
-
- (rust "#db7b5f")
- (gold "#c0965b")
- (olive "#9cbd6f")
- (slate "#76afbf")
- (indigo "#9099d9")
- (maroon "#cf7fa7")
- (pink "#d09dc0")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#9d1f1f")
- (bg-green-intense "#2f822f")
- (bg-yellow-intense "#7a6100")
- (bg-blue-intense "#1640b0")
- (bg-magenta-intense "#7030af")
- (bg-cyan-intense "#2266ae")
-
- (bg-red-subtle "#620f2a")
- (bg-green-subtle "#00422a")
- (bg-yellow-subtle "#4a4000")
- (bg-blue-subtle "#242679")
- (bg-magenta-subtle "#552f5f")
- (bg-cyan-subtle "#004065")
-
- (bg-red-nuanced "#350f14")
- (bg-green-nuanced "#002718")
- (bg-yellow-nuanced "#2c1f00")
- (bg-blue-nuanced "#131c4d")
- (bg-magenta-nuanced "#2f133f")
- (bg-cyan-nuanced "#04253f")
-
-;;; Graphs
-
- (bg-graph-red-0 "#b52c2c")
- (bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#0fed00")
- (bg-graph-green-1 "#007800")
- (bg-graph-yellow-0 "#f1e00a")
- (bg-graph-yellow-1 "#b08940")
- (bg-graph-blue-0 "#2fafef")
- (bg-graph-blue-1 "#1f2f8f")
- (bg-graph-magenta-0 "#bf94fe")
- (bg-graph-magenta-1 "#5f509f")
- (bg-graph-cyan-0 "#47dfea")
- (bg-graph-cyan-1 "#00808f")
-
-;;; Special purpose
-
- (bg-completion "#483d8a")
- (bg-hover "#004f70")
- (bg-hover-secondary "#654a39")
- (bg-hl-line "#303a6f")
- (bg-region "#555a66")
- (fg-region "#ffffff")
-
- (bg-char-0 "#0050af")
- (bg-char-1 "#7f1f7f")
- (bg-char-2 "#625a00")
-
- (bg-mode-line-active "#484d67")
- (fg-mode-line-active "#ffffff")
- (border-mode-line-active "#979797")
- (bg-mode-line-inactive "#292d48")
- (fg-mode-line-inactive "#969696")
- (border-mode-line-inactive "#606270")
-
- (modeline-err "#ffa9bf")
- (modeline-warning "#dfcf43")
- (modeline-info "#9fefff")
-
- (bg-tab-bar "#2c3045")
- (bg-tab-current "#0d0e1c")
- (bg-tab-other "#4a4f6a")
-
-;;; Diffs
-
- (bg-added "#003a2f")
- (bg-added-faint "#002922")
- (bg-added-refine "#035542")
- (bg-added-fringe "#23884f")
- (fg-added "#a0e0a0")
- (fg-added-intense "#80e080")
-
- (bg-changed "#363300")
- (bg-changed-faint "#2a1f00")
- (bg-changed-refine "#4a4a00")
- (bg-changed-fringe "#8f7a30")
- (fg-changed "#efef80")
- (fg-changed-intense "#c0b05f")
-
- (bg-removed "#4f1127")
- (bg-removed-faint "#380a19")
- (bg-removed-refine "#781a3a")
- (bg-removed-fringe "#b81a26")
- (fg-removed "#ffbfbf")
- (fg-removed-intense "#ff9095")
-
- (bg-diff-context "#1a1f30")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#442c2f")
- (bg-lavender "#38325c")
- (bg-sage "#0f3d30")
-
-;;; Paren match
-
- (bg-paren-match "#2f7f9f")
- (bg-paren-expression "#453040")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor magenta-warmer)
-
- (keybind blue-cooler)
- (name magenta)
- (identifier yellow-faint)
-
- (err red)
- (warning yellow-warmer)
- (info cyan-cooler)
-
- (underline-err red-intense)
- (underline-warning yellow)
- (underline-note cyan)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-yellow-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta-warmer)
- (comment red-faint)
- (constant blue-cooler)
- (docstring cyan-faint)
- (docmarkup magenta-faint)
- (fnname magenta)
- (keyword magenta-cooler)
- (preprocessor red-cooler)
- (string blue-warmer)
- (type cyan-cooler)
- (variable cyan)
- (rx-construct green-cooler)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 blue-cooler)
- (accent-1 magenta-warmer)
- (accent-2 cyan-cooler)
- (accent-3 yellow)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 blue-cooler)
- (fg-completion-match-1 magenta-warmer)
- (fg-completion-match-2 cyan-cooler)
- (fg-completion-match-3 yellow)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red-cooler)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled yellow-warmer)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link blue-warmer)
- (bg-link unspecified)
- (underline-link blue-warmer)
-
- (fg-link-symbolic cyan)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 blue-warmer)
- (mail-cite-1 yellow-cooler)
- (mail-cite-2 cyan-cooler)
- (mail-cite-3 red-cooler)
- (mail-part blue)
- (mail-recipient magenta-cooler)
- (mail-subject magenta-warmer)
- (mail-other magenta-faint)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red-cooler)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-yellow-subtle)
- (fg-mark-other yellow)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
- (bg-space-err bg-red-intense)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan-cooler)
- (prose-done green)
- (prose-macro magenta-cooler)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag magenta-faint)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 fg-main)
- (rainbow-1 magenta-intense)
- (rainbow-2 cyan-intense)
- (rainbow-3 red-warmer)
- (rainbow-4 yellow-intense)
- (rainbow-5 magenta-cooler)
- (rainbow-6 green-intense)
- (rainbow-7 blue-warmer)
- (rainbow-8 magenta-warmer)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 yellow-faint)
- (fg-heading-3 blue-faint)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 red-faint)
- (fg-heading-7 cyan-faint)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-vivendi-tinted' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-vivendi-tinted-palette-overrides nil
- "Overrides for `modus-vivendi-tinted-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-vivendi-tinted
- modus-vivendi-tinted-palette
- modus-vivendi-tinted-palette-overrides)
-
- (provide-theme 'modus-vivendi-tinted))
-
-;;;###theme-autoload
-(put 'modus-vivendi-tinted 'theme-properties '(:background-mode dark :kind color-scheme :family modus))
-
-;;; modus-vivendi-tinted-theme.el ends here
diff --git a/tools/emacs/lisp/modus-vivendi-tritanopia-theme.el b/tools/emacs/lisp/modus-vivendi-tritanopia-theme.el
@@ -1,442 +0,0 @@
-;;; modus-vivendi-tritanopia-theme.el --- Tritanopia-optimized theme with a black background -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2023 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht>
-;; URL: https://git.sr.ht/~protesilaos/modus-themes
-;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; The Modus themes conform with the highest standard for
-;; color-contrast accessibility between background and foreground
-;; values (WCAG AAA). Please refer to the official Info manual for
-;; further documentation (distributed with the themes, or available
-;; at: <https://protesilaos.com/emacs/modus-themes>).
-
-;;; Code:
-
-
-
-(eval-and-compile
- (unless (and (fboundp 'require-theme)
- load-file-name
- (equal (file-name-directory load-file-name)
- (expand-file-name "themes/" data-directory))
- (require-theme 'modus-themes t))
- (require 'modus-themes))
-
- (deftheme modus-vivendi-tritanopia
- "Tritanopia-optimized theme with a black background.
-This variant is optimized for users with blue-yellow color
-deficiency (tritanopia). It conforms with the highest
-legibility standard for color contrast between background and
-foreground in any given piece of text, which corresponds to a
-minimum contrast in relative luminance of 7:1 (WCAG AAA
-standard).")
-
- (defconst modus-vivendi-tritanopia-palette
- '(
-;;; Basic values
-
- (bg-main "#000000")
- (bg-dim "#1e1e1e")
- (fg-main "#ffffff")
- (fg-dim "#989898")
- (fg-alt "#c6daff")
- (bg-active "#535353")
- (bg-inactive "#303030")
- (border "#646464")
-
-;;; Common accent foregrounds
-
- (red "#ff5f59")
- (red-warmer "#ff6740")
- (red-cooler "#ff6f9f")
- (red-faint "#ff9070")
- (red-intense "#ff5f5f")
- (green "#44bc44")
- (green-warmer "#70b900")
- (green-cooler "#00c06f")
- (green-faint "#88ca9f")
- (green-intense "#44df44")
- (yellow "#cabf00")
- (yellow-warmer "#ffa00f")
- (yellow-cooler "#d8af7a")
- (yellow-faint "#d2b580")
- (yellow-intense "#efef00")
- (blue "#2fafff")
- (blue-warmer "#79a8ff")
- (blue-cooler "#00bcff")
- (blue-faint "#82b0ec")
- (blue-intense "#338fff")
- (magenta "#feacd0")
- (magenta-warmer "#f78fe7")
- (magenta-cooler "#b6a0ff")
- (magenta-faint "#caa6df")
- (magenta-intense "#ef7fff")
- (cyan "#00d3d0")
- (cyan-warmer "#4ae2ff")
- (cyan-cooler "#6ae4b9")
- (cyan-faint "#7fdbdf")
- (cyan-intense "#00eff0")
-
-;;; Uncommon accent foregrounds
-
- (rust "#db7b5f")
- (gold "#c0965b")
- (olive "#9cbd6f")
- (slate "#76afbf")
- (indigo "#9099d9")
- (maroon "#cf7fa7")
- (pink "#d09dc0")
-
-;;; Common accent backgrounds
-
- (bg-red-intense "#9d1f1f")
- (bg-green-intense "#2f822f")
- (bg-yellow-intense "#7a6100")
- (bg-blue-intense "#1640b0")
- (bg-magenta-intense "#7030af")
- (bg-cyan-intense "#2266ae")
-
- (bg-red-subtle "#620f2a")
- (bg-green-subtle "#00422a")
- (bg-yellow-subtle "#4a4000")
- (bg-blue-subtle "#242679")
- (bg-magenta-subtle "#552f5f")
- (bg-cyan-subtle "#004065")
-
- (bg-red-nuanced "#2c0614")
- (bg-green-nuanced "#001904")
- (bg-yellow-nuanced "#221000")
- (bg-blue-nuanced "#0f0e39")
- (bg-magenta-nuanced "#230631")
- (bg-cyan-nuanced "#041529")
-
-;;; Uncommon accent backgrounds
-
- (bg-ochre "#442c2f")
- (bg-lavender "#38325c")
- (bg-sage "#0f3d30")
-
-;;; Graphs
-
- (bg-graph-red-0 "#b52c2c")
- (bg-graph-red-1 "#702020")
- (bg-graph-green-0 "#afd1c0")
- (bg-graph-green-1 "#607a8f")
- (bg-graph-yellow-0 "#facfd6")
- (bg-graph-yellow-1 "#b57b85")
- (bg-graph-blue-0 "#4f9fdf")
- (bg-graph-blue-1 "#004559")
- (bg-graph-magenta-0 "#b6427f")
- (bg-graph-magenta-1 "#7f506f")
- (bg-graph-cyan-0 "#57dfea")
- (bg-graph-cyan-1 "#00808f")
-
-;;; Special purpose
-
- (bg-completion "#004253")
- (bg-hover "#8e3e3b")
- (bg-hover-secondary "#00405f")
- (bg-hl-line "#2f3849")
- (bg-region "#5a5a5a")
- (fg-region "#ffffff")
-
- (bg-char-0 "#922a00")
- (bg-char-1 "#4f3f7f")
- (bg-char-2 "#00709f")
-
- (bg-mode-line-active "#003c52")
- (fg-mode-line-active "#f0f0f0")
- (border-mode-line-active "#5f8fb4")
- (bg-mode-line-inactive "#2d2d2d")
- (fg-mode-line-inactive "#969696")
- (border-mode-line-inactive "#606060")
-
- (modeline-err "#ff7fbf")
- (modeline-warning "#df9f93")
- (modeline-info "#4fcfef")
-
- (bg-tab-bar "#313131")
- (bg-tab-current "#000000")
- (bg-tab-other "#545454")
-
-;;; Diffs
-
- (bg-added "#004254")
- (bg-added-faint "#003042")
- (bg-added-refine "#004f7f")
- (bg-added-fringe "#008fcf")
- (fg-added "#9fdfdf")
- (fg-added-intense "#50c0ef")
-
- (bg-changed "#2f123f")
- (bg-changed-faint "#1f022f")
- (bg-changed-refine "#3f325f")
- (bg-changed-fringe "#7f55a0")
- (fg-changed "#e3cfff")
- (fg-changed-intense "#cf9fe2")
-
- (bg-removed "#4f1119")
- (bg-removed-faint "#380a0f")
- (bg-removed-refine "#781a1f")
- (bg-removed-fringe "#b81a1f")
- (fg-removed "#ffbfbf")
- (fg-removed-intense "#ff9095")
-
- (bg-diff-context "#1a1a1a")
-
-;;; Paren match
-
- (bg-paren-match "#2f7f9f")
- (bg-paren-expression "#453040")
- (underline-paren-match unspecified)
-
-;;; Mappings
-
-;;;; General mappings
-
- (fringe bg-dim)
- (cursor red-intense)
-
- (keybind red)
- (name red-cooler)
- (identifier red-faint)
-
- (err red-warmer)
- (warning magenta)
- (info cyan)
-
- (underline-err red-intense)
- (underline-warning magenta-intense)
- (underline-note cyan-intense)
-
- (bg-prominent-err bg-red-intense)
- (fg-prominent-err fg-main)
- (bg-prominent-warning bg-magenta-intense)
- (fg-prominent-warning fg-main)
- (bg-prominent-note bg-cyan-intense)
- (fg-prominent-note fg-main)
-
-;;;; Code mappings
-
- (builtin magenta)
- (comment red-faint)
- (constant green-faint)
- (docstring fg-alt)
- (docmarkup magenta-faint)
- (fnname cyan-warmer)
- (keyword red-cooler)
- (preprocessor red-warmer)
- (string cyan)
- (type blue-warmer)
- (variable cyan-cooler)
- (rx-construct red)
- (rx-backslash magenta)
-
-;;;; Accent mappings
-
- (accent-0 cyan)
- (accent-1 red-warmer)
- (accent-2 cyan-cooler)
- (accent-3 magenta)
-
-;;;; Button mappings
-
- (fg-button-active fg-main)
- (fg-button-inactive fg-dim)
- (bg-button-active bg-active)
- (bg-button-inactive bg-dim)
-
-;;;; Completion mappings
-
- (fg-completion-match-0 cyan)
- (fg-completion-match-1 red-warmer)
- (fg-completion-match-2 magenta)
- (fg-completion-match-3 cyan-cooler)
- (bg-completion-match-0 unspecified)
- (bg-completion-match-1 unspecified)
- (bg-completion-match-2 unspecified)
- (bg-completion-match-3 unspecified)
-
-;;;; Date mappings
-
- (date-common cyan-cooler)
- (date-deadline red)
- (date-event fg-alt)
- (date-holiday red-intense)
- (date-now fg-main)
- (date-range fg-alt)
- (date-scheduled magenta)
- (date-weekday cyan)
- (date-weekend red-faint)
-
-;;;; Line number mappings
-
- (fg-line-number-inactive fg-dim)
- (fg-line-number-active fg-main)
- (bg-line-number-inactive bg-dim)
- (bg-line-number-active bg-active)
-
-;;;; Link mappings
-
- (fg-link cyan)
- (bg-link unspecified)
- (underline-link cyan)
-
- (fg-link-symbolic cyan-cooler)
- (bg-link-symbolic unspecified)
- (underline-link-symbolic cyan-cooler)
-
- (fg-link-visited magenta)
- (bg-link-visited unspecified)
- (underline-link-visited magenta)
-
-;;;; Mail mappings
-
- (mail-cite-0 cyan-faint)
- (mail-cite-1 red-faint)
- (mail-cite-2 magenta-warmer)
- (mail-cite-3 cyan-warmer)
- (mail-part cyan-cooler)
- (mail-recipient cyan)
- (mail-subject red-cooler)
- (mail-other cyan)
-
-;;;; Mark mappings
-
- (bg-mark-delete bg-red-subtle)
- (fg-mark-delete red)
- (bg-mark-select bg-cyan-subtle)
- (fg-mark-select cyan)
- (bg-mark-other bg-magenta-subtle)
- (fg-mark-other magenta-warmer)
-
-;;;; Prompt mappings
-
- (fg-prompt cyan-cooler)
- (bg-prompt unspecified)
-
-;;;; Prose mappings
-
- (prose-block fg-dim)
- (prose-code cyan)
- (prose-done cyan)
- (prose-macro red-warmer)
- (prose-metadata fg-dim)
- (prose-metadata-value fg-alt)
- (prose-table fg-alt)
- (prose-tag fg-alt)
- (prose-todo red)
- (prose-verbatim magenta-warmer)
-
-;;;; Rainbow mappings
-
- (rainbow-0 cyan)
- (rainbow-1 red)
- (rainbow-2 cyan-warmer)
- (rainbow-3 red-cooler)
- (rainbow-4 cyan-cooler)
- (rainbow-5 magenta)
- (rainbow-6 cyan-faint)
- (rainbow-7 magenta-faint)
- (rainbow-8 red-faint)
-
-;;;; Space mappings
-
- (bg-space unspecified)
- (fg-space border)
- (bg-space-err bg-red-intense)
-
-;;;; Heading mappings
-
- (fg-heading-0 cyan-cooler)
- (fg-heading-1 fg-main)
- (fg-heading-2 red-faint)
- (fg-heading-3 cyan-faint)
- (fg-heading-4 magenta)
- (fg-heading-5 green-faint)
- (fg-heading-6 magenta-faint)
- (fg-heading-7 cyan-faint)
- (fg-heading-8 fg-dim)
-
- (bg-heading-0 unspecified)
- (bg-heading-1 unspecified)
- (bg-heading-2 unspecified)
- (bg-heading-3 unspecified)
- (bg-heading-4 unspecified)
- (bg-heading-5 unspecified)
- (bg-heading-6 unspecified)
- (bg-heading-7 unspecified)
- (bg-heading-8 unspecified)
-
- (overline-heading-0 unspecified)
- (overline-heading-1 unspecified)
- (overline-heading-2 unspecified)
- (overline-heading-3 unspecified)
- (overline-heading-4 unspecified)
- (overline-heading-5 unspecified)
- (overline-heading-6 unspecified)
- (overline-heading-7 unspecified)
- (overline-heading-8 unspecified))
- "The entire palette of the `modus-vivendi-tritanopia' theme.
-
-Named colors have the form (COLOR-NAME HEX-VALUE) with the former
-as a symbol and the latter as a string.
-
-Semantic color mappings have the form (MAPPING-NAME COLOR-NAME)
-with both as symbols. The latter is a named color that already
-exists in the palette and is associated with a HEX-VALUE.")
-
- (defcustom modus-vivendi-tritanopia-palette-overrides nil
- "Overrides for `modus-vivendi-tritanopia-palette'.
-
-Mirror the elements of the aforementioned palette, overriding
-their value.
-
-For overrides that are shared across all of the Modus themes,
-refer to `modus-themes-common-palette-overrides'.
-
-Theme-specific overrides take precedence over shared overrides.
-The idea of common overrides is to change semantic color
-mappings, such as to make the cursor red. Wherea theme-specific
-overrides can also be used to change the value of a named color,
-such as what hexadecimal RGB value the red-warmer symbol
-represents."
- :group 'modus-themes
- :package-version '(modus-themes . "4.0.0")
- :version "30.1"
- :type '(repeat (list symbol (choice symbol string)))
- :set #'modus-themes--set-option
- :initialize #'custom-initialize-default
- :link '(info-link "(modus-themes) Palette overrides"))
-
- (modus-themes-theme modus-vivendi-tritanopia
- modus-vivendi-tritanopia-palette
- modus-vivendi-tritanopia-palette-overrides)
-
- (provide-theme 'modus-vivendi-tritanopia))
-
-;;;###theme-autoload
-(put 'modus-vivendi-tritanopia 'theme-properties '(:background-mode dark :kind color-scheme :family modus))
-
-;;; modus-vivendi-tritanopia-theme.el ends here
diff --git a/tools/emacs/lisp/shortbrain-light-theme.el b/tools/emacs/lisp/shortbrain-light-theme.el
@@ -1,275 +0,0 @@
-;;; shortbrain-light-theme.el --- A calm, light, almost monochrome color theme based on emacs-shortbrain-theme.
-
-;; Copyright (C) 2020 Vincent Demeester <vincent@sbr.pm>
-
-;; Author: Vincent Demeester <vincent@sbr.pm>
-;; Keywords: themes
-;; URL: https://github.com/vdemeester/emacs-config
-;; Version: 2020.03
-;; Package-Requires: ((emacs "24.1"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; To use the shortbrain-light theme, add the following to your Emacs
-;; configuration file:
-;;
-;; (load-theme 'shortbrain-light)
-;;
-;; Requirements: Emacs 24.
-
-;;; Code:
-
-
-(deftheme shortbrain-light "A calm, light, almost monochrome color theme")
-
-
-(defconst shortbrain-light-theme-colors
- '(;; Basics
- (white . "#ffffff")
-
- ;; Greys
- (default-grey . "#0f1619")
- (grey . "#0f1619")
- (grey-50 . "#fdfdfe")
- (grey-100 . "#f5f8fa")
- (grey-200 . "#d8dcde")
- (grey-300 . "#bcc0c2")
- (grey-400 . "#9fa3a6")
- (grey-500 . "#9fa3a6")
- (grey-600 . "#656b6e")
- (grey-700 . "#494f52")
- (grey-720 . "#474d50")
- (grey-800 . "#2c3236")
- (grey-820 . "#1e2428")
- (grey-850 . "#1d2226")
- (grey-900 . "#0f1619")
-
- ;; Primaries
- (default-primary . "#0be5e5")
- (primary . "#0be5e5")
- (primary-50 . "#f3fefe")
- (primary-100 . "#d4fafa")
- (primary-200 . "#91f3f3")
- (primary-300 . "#4eecec")
- (primary-400 . "#0be5e5")
- (primary-500 . "#09cccc")
- (primary-600 . "#07b3b3")
- (primary-700 . "#059999")
- (primary-800 . "#028080")
- (primary-900 . "#006666")
-
- ;; Greens
- (default-green . "#0be541")
- (green . "#0be441")
- (green-50 . "#e7feec")
- (green-100 . "#b6fcc7")
- (green-200 . "#85f9a2")
- (green-300 . "#3cf66b")
- (green-400 . "#0be441")
- (green-500 . "#0adb3f")
- (green-600 . "#09c338")
- (green-700 . "#08aa31")
- (green-800 . "#07922a")
- (green-900 . "#067a23")
-
- ;; Reds
- (default-red. "#f24965")
- (red . "#f24965")
- (danger . "#f24965")
- (red-50 . "#fff0f2")
- (red-100 . "#ffd9df")
- (red-200 . "#fba9b6")
- (red-300 . "#f6798e")
- (red-400 . "#f24965")
- (red-500 . "#d6455d")
- (red-600 . "#ba4054")
- (red-700 . "#9e3c4c")
- (red-800 . "#823743")
- (red-900 . "#66333b")
-
- ;; Purples
- (purple . "#b965e8")))
-
-
-(defun shortbrain-light-theme-color (name)
- "Return the shortbrain-light theme color with the given NAME."
- (cdr (assoc name shortbrain-light-theme-colors)))
-
-
-(let ((class '((class color) (min-colors 256)))
- (default-fg (shortbrain-light-theme-color 'grey-900))
- (default-bg (shortbrain-light-theme-color 'grey-50))
- (inactive-bg (shortbrain-light-theme-color 'grey-200))
- (minor-fg (shortbrain-light-theme-color 'grey-200))
- (minor-bg (shortbrain-light-theme-color 'grey-50))
- (inactive-fg (shortbrain-light-theme-color 'grey-600))
- (border-fg (shortbrain-light-theme-color 'grey-200))
- (frame-fg (shortbrain-light-theme-color 'grey-500))
- (cursor-fg (shortbrain-light-theme-color 'grey-900))
- (cursor-bg (shortbrain-light-theme-color 'grey-300))
-
- ;; Scrollbars
- (scrollbar-fg (shortbrain-light-theme-color 'grey-600))
- (scrollbar-bg (shortbrain-light-theme-color 'grey-100))
-
- ;; Highlighting
- (highlight-fg (shortbrain-light-theme-color 'white))
- (highlight-bg (shortbrain-light-theme-color 'red))
-
- ;; Current line
- (hl-line-bg (shortbrain-light-theme-color 'grey-100))
-
- ;; Search
- (search-fg (shortbrain-light-theme-color 'white))
- (search-bg (shortbrain-light-theme-color 'primary-600))
- (search-bg-0 (shortbrain-light-theme-color 'primary-500))
- (search-bg-1 (shortbrain-light-theme-color 'primary-400))
- (search-bg-2 (shortbrain-light-theme-color 'primary-300))
- (search-bg-3 (shortbrain-light-theme-color 'primary-100))
-
- ;; Selection
- (selection-bg (shortbrain-light-theme-color 'grey-200))
-
- ;; Auto-completion
- (completion-fg (shortbrain-light-theme-color 'grey-500))
- (completion-bg (shortbrain-light-theme-color 'grey-800))
- (completion-match-fg (shortbrain-light-theme-color 'red-500))
- (completion-mouse-fg (shortbrain-light-theme-color 'white))
- (completion-selection-fg (shortbrain-light-theme-color 'red-500))
- (completion-selection-bg (shortbrain-light-theme-color 'grey-200))
- (completion-annotation-fg (shortbrain-light-theme-color 'red-400))
-
- ;; Warnings & errors
- (warning-fg (shortbrain-light-theme-color 'white))
- (warning-bg (shortbrain-light-theme-color 'red-600))
- (error-fg (shortbrain-light-theme-color 'white))
- (error-bg (shortbrain-light-theme-color 'red))
-
- ;; Org
- (org-color-1 (shortbrain-light-theme-color 'green-900))
- (org-color-2 (shortbrain-light-theme-color 'purple))
- (org-color-3 (shortbrain-light-theme-color 'primary-700))
- (org-color-4 (shortbrain-light-theme-color 'primary-500))
- (org-color-5 (shortbrain-light-theme-color 'primary-400))
- (org-meta-fg (shortbrain-light-theme-color 'primary-900))
-
- ;; Language syntax highlighting
- (variable-fg (shortbrain-light-theme-color 'black))
- (function-fg (shortbrain-light-theme-color 'grey-900))
- (type-fg (shortbrain-light-theme-color 'grey-700))
- (constant-fg (shortbrain-light-theme-color 'grey-600))
- (keyword-fg (shortbrain-light-theme-color 'grey-500))
- (builtin-fg (shortbrain-light-theme-color 'grey-400))
- (string-fg (shortbrain-light-theme-color 'grey-600))
- (doc-fg (shortbrain-light-theme-color 'primary-600))
- (doc-bg (shortbrain-light-theme-color 'grey-50)))
- (custom-theme-set-faces
- 'shortbrain-light
- ;; Regular
- `(cursor ((,class (:foreground ,cursor-fg :background ,cursor-bg))))
- `(default ((,class (:foreground ,default-fg :background ,default-bg))))
- `(default-italic ((,class (:italic t))))
-
- ;; Emacs UI
- `(fringe ((,class (:foreground ,error-fg :background ,default-bg))))
- `(header-line ((,class :background ,default-bg)))
- `(linum ((,class (:inherit shadow :background ,default-bg))))
- `(mode-line ((,class (:foreground ,frame-fg :background ,default-bg
- :box (:line-width -1 :color ,default-bg)))))
- `(mode-line-inactive ((,class (:foreground ,inactive-fg :background ,inactive-bg
- :box (:line-width -1 :color ,inactive-bg)))))
- `(nlinum-relative-current-face ((,class (:foreground ,frame-fg :background ,default-bg))))
- `(vertical-border ((,class (:foreground ,border-fg :background ,default-bg))))
- `(tab-bar ((,class (:background ,default-bg))))
- `(tab-bar-tab ((,class (:background ,default-bg :inherit shadow :weight bold))))
- `(tab-bar-tab-inactive ((,class (:background ,inactive-bg :inherit shadow :weight normal))))
-
- ;; Highlighting
- `(highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg))))
- `(hl-line ((,class (:background ,hl-line-bg))))
-
- ;; Search
- `(isearch ((,class (:foreground ,search-fg :background ,search-bg :weight bold))))
- `(lazy-highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg) :weight normal)))
-
- ;; Selection
- `(region ((,class (:background ,selection-bg))))
-
- ;; Erroneous whitespace
- `(whitespace-line ((,class (:foreground ,error-fg :background ,error-bg))))
- `(whitespace-space ((,class (:foreground ,builtin-fg :background ,hl-line-bg))))
- `(whitespace-tab ((,class (:foreground ,builtin-fg :background ,hl-line-bg))))
-
- ;; Language syntax highlighting
- `(font-lock-builtin-face ((,class (:foreground ,builtin-fg))))
- `(font-lock-comment-face ((,class (:foreground ,doc-fg :background ,doc-bg))))
- `(font-lock-comment-delimiter-face ((,class (:foreground ,minor-fg, :background ,minor-bg))))
- `(font-lock-constant-face ((,class (:foreground ,constant-fg))))
- `(font-lock-doc-face ((,class (:foreground ,doc-fg))))
- `(font-lock-function-name-face ((,class (:foreground ,function-fg))))
- `(font-lock-keyword-face ((,class (:foreground ,keyword-fg))))
- `(font-lock-negation-char-face ((,class (:foreground ,error-fg))))
- `(font-lock-preprocessor-face ((,class (:foreground ,builtin-fg))))
- `(font-lock-string-face ((,class (:foreground ,string-fg))))
- `(font-lock-type-face ((,class (:foreground ,type-fg))))
- `(font-lock-variable-name-face ((,class (:foreground ,variable-fg))))
- `(font-lock-warning-face ((,class (:foreground ,warning-fg :background ,warning-bg))))
-
- ;; Org
- `(org-level-1 ((,class (:foreground ,org-color-1 :bold t :height 1.2))))
- `(org-level-2 ((,class (:foreground ,org-color-2 :bold t :height 1.1))))
- `(org-level-3 ((,class (:foreground ,org-color-3 :bold t :height 1.0))))
- `(org-level-4 ((,class (:foreground ,org-color-4 :bold t :height 1.0))))
- `(org-level-5 ((,class (:foreground ,org-color-5 :bold t :height 1.0))))
- `(org-level-6 ((,class (:foreground ,org-color-5 :bold t :height 1.0))))
- `(org-document-title ((,class (:bold t :foreground ,org-meta-fg :height 1.4))))
- `(org-meta-line ((,class (:foreground ,org-meta-fg :bold t))))
-
- ;; Avy
- `(avy-lead-face ((,class (:background ,search-bg-0 :foreground ,search-fg))))
- `(avy-lead-face-0 ((,class (:background ,search-bg-1 :foreground ,search-fg))))
- `(avy-lead-face-1 ((,class (:background ,search-bg-2 :foreground ,search-fg))))
- `(avy-lead-face-2 ((,class (:background ,search-bg-3 :foreground ,search-fg))))
-
- ;; Company (auto-completion)
- `(company-preview ((,class (:background ,default-bg :foreground ,completion-match-fg))))
- `(company-preview-common ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-preview-search ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-scrollbar-bg ((,class (:background ,scrollbar-bg))))
- `(company-scrollbar-fg ((,class (:background ,scrollbar-fg))))
- `(company-tooltip ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-tooltip-annotation ((,class (:foreground ,completion-annotation-fg))))
- `(company-tooltip-common ((,class (:background nil :foreground ,completion-match-fg))))
- `(company-tooltip-common-selection ((,class (:foreground ,completion-selection-fg
- :background ,completion-selection-bg))))
- `(company-tooltip-mouse ((,class (:background ,selection-bg :foreground ,completion-mouse-fg))))
- `(company-tooltip-search ((,class (:foreground ,completion-match-fg))))
- `(company-tooltip-selection ((,class (:background ,selection-bg :foreground nil))))))
-
-
-;;;###autoload
-(when (and (boundp 'custom-theme-load-path)
- load-file-name)
- ;; add theme folder to `custom-theme-load-path' when installing over MELPA
- (add-to-list 'custom-theme-load-path
- (file-name-as-directory (file-name-directory load-file-name))))
-
-
-(provide-theme 'shortbrain-light)
-(provide 'shortbrain-light-theme)
-
-
-;;; shortbrain-light-theme.el ends here
diff --git a/tools/emacs/lisp/shortbrain-theme.el b/tools/emacs/lisp/shortbrain-theme.el
@@ -1,239 +0,0 @@
-;;; shortbrain-theme.el --- A calm, dark, almost monochrome color theme based on emacs-constant-theme
-
-;; Copyright (C) 2020 Vincent Demeester <vincent@sbr.pm>
-
-;; Author: Vincent Demeester <vincent@sbr.pm>
-;; Keywords: themes
-;; URL: https://github.com/vdemeester/emacs-config
-;; Version: 2020:03
-;; Package-Requires: ((emacs "24.1"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; To use the shortbrain theme, add the following to your Emacs
-;; configuration file:
-;;
-;; (load-theme 'shortbrain)
-;;
-;; Requirements: Emacs 24.
-
-;;; Code:
-
-
-(deftheme shortbrain "A calm, dark, almost monochrome theme")
-
-(defconst shortbrain-theme-colors
- '(;; Basics
- (white . "#ffffff")
-
- ;; Shades of grey
- (default-grey . "#0f1619")
- (grey . "#0f1619")
- (grey-50 . "#fdfdfe")
- (grey-100 . "#f5f8fa")
- (grey-200 . "#d8dcde")
- (grey-300 . "#bcc0c2")
- (grey-400 . "#9fa3a6")
- (grey-500 . "#9fa3a6")
- (grey-600 . "#656b6e")
- (grey-700 . "#494f52")
- (grey-720 . "#474d50")
- (grey-800 . "#2c3236")
- (grey-820 . "#1e2428")
- (grey-850 . "#1d2226")
- (grey-900 . "#0f1619")
-
- ;; Priary color shades
- (default-primary . "#0be5e5")
- (primary . "#0be5e5")
- (primary-50 . "#f3fefe")
- (primary-100 . "#d4fafa")
- (primary-200 . "#91f3f3")
- (primary-300 . "#4eecec")
- (primary-400 . "#0be5e5")
- (primary-500 . "#09cccc")
- (primary-600 . "#07b3b3")
- (primary-700 . "#059999")
- (primary-800 . "#028080")
- (primary-900 . "#006666")
-
- ;; Reds
- (default-red. "#f24965")
- (red . "#f24965")
- (danger . "#f24965")
- (red-50 . "#fff0f2")
- (red-100 . "#ffd9df")
- (red-200 . "#fba9b6")
- (red-300 . "#f6798e")
- (red-400 . "#f24965")
- (red-500 . "#d6455d")
- (red-600 . "#ba4054")
- (red-700 . "#9e3c4c")
- (red-800 . "#823743")
- (red-900 . "#66333b")
-
- ;; Purples
- (purple . "#b965e8")))
-
-
-(defun shortbrain-theme-color (name)
- "Return the shortbrain theme color with the given NAME."
- (cdr (assoc name shortbrain-theme-colors)))
-
-
-(let ((class '((class color) (min-colors 256)))
- (default-fg (shortbrain-theme-color 'grey-100))
- (default-bg (shortbrain-theme-color 'grey-900))
- (minor-fg (shortbrain-theme-color 'grey-700))
- (inactive-fg (shortbrain-theme-color 'grey-600))
- (inactive-bg (shortbrain-theme-color 'grey-800))
- (border-fg (shortbrain-theme-color 'grey-850))
- (frame-fg (shortbrain-theme-color 'grey-500))
- (cursor-fg (shortbrain-theme-color 'grey-500))
- (cursor-bg (shortbrain-theme-color 'grey-500))
-
- ;; Scrollbars
- (scrollbar-fg (shortbrain-theme-color 'grey-800))
- (scrollbar-bg (shortbrain-theme-color 'grey-600))
-
- ;; Highlighting
- (highlight-fg (shortbrain-theme-color 'white))
- (highlight-bg (shortbrain-theme-color 'red))
-
- ;; Current line
- (hl-line-bg (shortbrain-theme-color 'grey-810))
-
- ;; Search
- (search-fg (shortbrain-theme-color 'white))
- (search-bg (shortbrain-theme-color 'primary-700))
- (search-bg-0 (shortbrain-theme-color 'primary-700))
- (search-bg-1 (shortbrain-theme-color 'primary-500))
- (search-bg-2 (shortbrain-theme-color 'primary-300))
- (search-bg-3 (shortbrain-theme-color 'primary-100))
-
- ;; Selection
- (selection-bg (shortbrain-theme-color 'grey-800))
-
- ;; Auto-completion
- (completion-fg (shortbrain-theme-color 'primary))
- (completion-bg (shortbrain-theme-color 'grey-820))
- (completion-match-fg (shortbrain-theme-color 'red-500))
- (completion-mouse-fg (shortbrain-theme-color 'white))
- (completion-selection-fg (shortbrain-theme-color 'white))
- (completion-annotation-fg (shortbrain-theme-color 'purple))
-
- ;; Warnings & errors
- (warning-fg (shortbrain-theme-color 'white))
- (warning-bg (shortbrain-theme-color 'red-600))
- (error-fg (shortbrain-theme-color 'white))
- (error-bg (shortbrain-theme-color 'red))
-
- ;; Language syntax highlighting
- (variable-fg (shortbrain-theme-color 'white))
- (function-fg (shortbrain-theme-color 'grey-200))
- (type-fg (shortbrain-theme-color 'grey-300))
- (constant-fg (shortbrain-theme-color 'grey-500))
- (keyword-fg (shortbrain-theme-color 'grey-600))
- (builtin-fg (shortbrain-theme-color 'grey-700))
- (string-fg (shortbrain-theme-color 'grey-500))
- (doc-fg (shortbrain-theme-color 'primary-600)))
- (custom-theme-set-faces
- 'shortbrain
-
- ;; Regular
- `(cursor ((,class (:foreground ,cursor-fg :background ,cursor-bg))))
- `(default ((,class (:foreground ,default-fg :background ,default-bg))))
- `(default-italic ((,class (:italic t))))
-
- ;; Emacs UI
- `(fringe ((,class (:foreground ,error-fg :background ,default-bg))))
- `(header-line ((,class :background ,default-bg)))
- `(linum ((,class (:inherit shadow :background ,default-bg))))
- `(mode-line ((,class (:foreground ,frame-fg :background ,default-bg
- :box (:line-width -1 :color ,default-bg)))))
- `(mode-line-inactive ((,class (:foreground ,inactive-fg :background ,inactive-bg
- :box (:line-width -1 :color ,default-bg)))))
- `(nlinum-relative-current-face ((,class (:foreground ,frame-fg :background ,default-bg))))
- `(vertical-border ((,class (:foreground ,border-fg :background ,default-bg))))
- `(tab-bar ((,class (:background ,default-bg))))
- `(tab-bar-tab ((,class (:background ,default-bg :inherit shadow :weight bold))))
- `(tab-bar-tab-inactive ((,class (:background ,inactive-bg :inherit shadow :weight normal))))
-
- ;; Highlighting
- `(highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg))))
- `(hl-line ((,class (:background ,hl-line-bg))))
-
- ;; Search
- `(isearch ((,class (:foreground ,search-fg :background ,search-bg :weight bold))))
- `(lazy-highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg) :weight normal)))
-
- ;; Selection
- `(region ((,class (:background ,selection-bg))))
-
- ;; Erroneous whitespace
- `(whitespace-line ((,class (:foreground ,error-fg :background ,error-bg))))
- `(whitespace-space ((,class (:foreground ,builtin-fg :background ,hl-line-bg))))
- `(whitespace-tab ((,class (:foreground ,builtin-fg :background ,hl-line-bg))))
-
- ;; Language syntax highlighting
- `(font-lock-builtin-face ((,class (:foreground ,builtin-fg))))
- `(font-lock-comment-face ((,class (:foreground ,doc-fg))))
- `(font-lock-comment-delimiter-face ((,class (:foreground ,minor-fg))))
- `(font-lock-constant-face ((,class (:foreground ,constant-fg))))
- `(font-lock-doc-face ((,class (:foreground ,doc-fg))))
- `(font-lock-function-name-face ((,class (:foreground ,function-fg))))
- `(font-lock-keyword-face ((,class (:foreground ,keyword-fg))))
- `(font-lock-negation-char-face ((,class (:foreground ,error-fg))))
- `(font-lock-preprocessor-face ((,class (:foreground ,builtin-fg))))
- `(font-lock-string-face ((,class (:foreground ,string-fg))))
- `(font-lock-type-face ((,class (:foreground ,type-fg))))
- `(font-lock-variable-name-face ((,class (:foreground ,variable-fg))))
- `(font-lock-warning-face ((,class (:foreground ,warning-fg :background ,warning-bg))))
-
- ;; Avy
- `(avy-lead-face ((,class (:background ,search-bg-0 :foreground ,search-fg))))
- `(avy-lead-face-0 ((,class (:background ,search-bg-1 :foreground ,search-fg))))
- `(avy-lead-face-1 ((,class (:background ,search-bg-2 :foreground ,search-fg))))
- `(avy-lead-face-2 ((,class (:background ,search-bg-3 :foreground ,search-fg))))
-
- ;; Company (auto-completion)
- `(company-preview ((,class (:background ,default-bg :foreground ,completion-match-fg))))
- `(company-preview-common ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-preview-search ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-scrollbar-bg ((,class (:background ,scrollbar-bg))))
- `(company-scrollbar-fg ((,class (:background ,scrollbar-fg))))
- `(company-tooltip ((,class (:background ,completion-bg :foreground ,completion-fg))))
- `(company-tooltip-annotation ((,class (:foreground ,completion-annotation-fg))))
- `(company-tooltip-common ((,class (:background nil :foreground ,completion-match-fg))))
- `(company-tooltip-common-selection ((,class (:foreground ,completion-selection-fg))))
- `(company-tooltip-mouse ((,class (:background ,selection-bg :foreground ,completion-mouse-fg))))
- `(company-tooltip-search ((,class (:foreground ,completion-match-fg))))
- `(company-tooltip-selection ((,class (:background ,selection-bg :foreground nil))))))
-
-
-;;;###autoload
-(when (and (boundp 'custom-theme-load-path)
- load-file-name)
- ;; add theme folder to `custom-theme-load-path' when installing over MELPA
- (add-to-list 'custom-theme-load-path
- (file-name-as-directory (file-name-directory load-file-name))))
-
-
-(provide-theme 'shortbrain)
-(provide 'shortbrain-theme)
-
-
-;;; shortbrain-theme.el ends here