4229 lines
209 KiB
EmacsLisp
4229 lines
209 KiB
EmacsLisp
;;; 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-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 magenta-faint)
|
||
(prose-metadata-value blue-cooler)
|
||
(prose-table blue)
|
||
(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 green-warmer)
|
||
(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."
|
||
(when-let ((symbol (intern-soft theme))
|
||
(doc-string (get symbol 'theme-documentation)))
|
||
(format " -- %s" (car (split-string doc-string "\\.")))))
|
||
|
||
(defun modus-themes--completion-table (category candidates)
|
||
"Pass appropriate metadata CATEGORY to completion CANDIDATES."
|
||
(lambda (string pred action)
|
||
(if (eq action 'metadata)
|
||
`(metadata (category . ,category))
|
||
(complete-with-action action candidates string pred))))
|
||
|
||
(defun modus-themes--completion-table-candidates ()
|
||
"Render `modus-themes--list-known-themes' as completion with theme category."
|
||
(modus-themes--completion-table 'theme (modus-themes--list-known-themes)))
|
||
|
||
(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--completion-table-candidates)
|
||
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)))
|
||
(modus-themes-load-theme (if (eq (car custom-enabled-themes) one) two 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--completion-table-candidates)
|
||
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 ,bg-term-black :foreground ,fg-term-black)))
|
||
`(ansi-color-blue ((,c :background ,bg-term-blue :foreground ,fg-term-blue)))
|
||
`(ansi-color-bold ((,c :inherit bold)))
|
||
`(ansi-color-bright-black ((,c :background ,bg-term-black-bright :foreground ,fg-term-black-bright)))
|
||
`(ansi-color-bright-blue ((,c :background ,bg-term-blue-bright :foreground ,fg-term-blue-bright)))
|
||
`(ansi-color-bright-cyan ((,c :background ,bg-term-cyan-bright :foreground ,fg-term-cyan-bright)))
|
||
`(ansi-color-bright-green ((,c :background ,bg-term-green-bright :foreground ,fg-term-green-bright)))
|
||
`(ansi-color-bright-magenta ((,c :background ,bg-term-magenta-bright :foreground ,fg-term-magenta-bright)))
|
||
`(ansi-color-bright-red ((,c :background ,bg-term-red-bright :foreground ,fg-term-red-bright)))
|
||
`(ansi-color-bright-white ((,c :background ,bg-term-white-bright :foreground ,fg-term-white-bright)))
|
||
`(ansi-color-bright-yellow ((,c :background ,bg-term-yellow-bright :foreground ,fg-term-yellow-bright)))
|
||
`(ansi-color-cyan ((,c :background ,bg-term-cyan :foreground ,fg-term-cyan)))
|
||
`(ansi-color-green ((,c :background ,bg-term-green :foreground ,fg-term-green)))
|
||
`(ansi-color-magenta ((,c :background ,bg-term-magenta :foreground ,fg-term-magenta)))
|
||
`(ansi-color-red ((,c :background ,bg-term-red :foreground ,fg-term-red)))
|
||
`(ansi-color-white ((,c :background ,bg-term-white :foreground ,fg-term-white)))
|
||
`(ansi-color-yellow ((,c :background ,bg-term-yellow :foreground ,fg-term-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 success)))
|
||
`(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-candidate-overlay
|
||
`(corfu-candidate-overlay-face ((t :inherit shadow)))
|
||
;;;;; 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)))
|
||
;;;;; 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)))
|
||
;;;;; erts-mode
|
||
`(erts-mode-end-test ((,c :inherit error)))
|
||
`(erts-mode-specification-name ((,c :inherit bold)))
|
||
`(erts-mode-specification-value ((,c :foreground ,string)))
|
||
`(erts-mode-start-test ((,c :inherit success)))
|
||
;;;;; 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 success)))
|
||
;;;;; 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)))
|
||
;;;;; japanese-holiday-saturday
|
||
`(japanese-holiday-saturday ((,c :foreground ,date-holiday-other)))
|
||
;;;;; 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 :inherit modus-themes-fixed-pitch :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
|
||
;; NOTE 2023-08-10: `term-color-black' and `term-color-white' use
|
||
;; the "bright" semantic color mappings to make sure they are
|
||
;; distinct from `term'.
|
||
`(term ((,c :background ,bg-main :foreground ,fg-main)))
|
||
`(term-bold ((,c :inherit bold)))
|
||
`(term-color-black ((,c :background ,bg-term-black-bright :foreground ,fg-term-black-bright)))
|
||
`(term-color-blue ((,c :background ,bg-term-blue :foreground ,fg-term-blue)))
|
||
`(term-color-cyan ((,c :background ,bg-term-cyan :foreground ,fg-term-cyan)))
|
||
`(term-color-green ((,c :background ,bg-term-green :foreground ,fg-term-green)))
|
||
`(term-color-magenta ((,c :background ,bg-term-magenta :foreground ,fg-term-magenta)))
|
||
`(term-color-red ((,c :background ,bg-term-red :foreground ,fg-term-red)))
|
||
`(term-color-white ((,c :background ,bg-term-white-bright :foreground ,fg-term-white-bright)))
|
||
`(term-color-yellow ((,c :background ,bg-term-yellow :foreground ,fg-term-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
|
||
;; NOTE 2023-08-10: `vterm-color-black' and `vterm-color-white'
|
||
;; use the "bright" semantic color mappings to make sure they are
|
||
;; distinct from `vterm-color-default'.
|
||
`(vterm-color-black ((,c :background ,bg-term-black :foreground ,fg-term-black)))
|
||
`(vterm-color-blue ((,c :background ,bg-term-blue :foreground ,fg-term-blue)))
|
||
`(vterm-color-cyan ((,c :background ,bg-term-cyan :foreground ,fg-term-cyan)))
|
||
`(vterm-color-default ((,c :background ,bg-main :foreground ,fg-main)))
|
||
`(vterm-color-green ((,c :background ,bg-term-green :foreground ,fg-term-green)))
|
||
`(vterm-color-inverse-video ((,c :background ,bg-main :inverse-video t)))
|
||
`(vterm-color-magenta ((,c :background ,bg-term-magenta :foreground ,fg-term-magenta)))
|
||
`(vterm-color-red ((,c :background ,bg-term-red :foreground ,fg-term-red)))
|
||
`(vterm-color-underline ((,c :underline t)))
|
||
`(vterm-color-white ((,c :background ,bg-term-white :foreground ,fg-term-white)))
|
||
`(vterm-color-yellow ((,c :background ,bg-term-yellow :foreground ,fg-term-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
|