* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)
@ 2020-12-06 12:23 Protesilaos Stavrou
2020-12-08 12:03 ` Basil L. Contovounesios
0 siblings, 1 reply; 83+ messages in thread
From: Protesilaos Stavrou @ 2020-12-06 12:23 UTC (permalink / raw)
To: 45068
[-- Attachment #1: Type: text/plain, Size: 2681 bytes --]
Dear maintainers,
I have made some major changes to the Modus themes and tagged this as
the first major release. I am opening the present bug report because
this change has implications on how the themes are distributed with
Emacs.
Currently Emacs ships 'modus-operandi-theme' and 'modus-vivendi-theme'
version 0.13.0. You can find the files in ../etc/themes/.
Those contained duplicate code and their only real difference was in the
color values they used. However, they were distributed as if they were
standalone items, so all 'defcustom' declarations they had were unique
to each (duplicate code though different names).
Since version 1.0, I derive the two themes from a common source using a
macro and a shared file for data. This has two main advantages:
+ All 'defcustom' are unified and apply to both themes. Users no longer
have to implement ad hoc code to get a unified look between the two
items.
+ Everything is easier to maintain, as I no longer need to copy from one
theme to the other, rename accordingly, and check that there are no
discrepancies between them.
The problem with contributing this new code to Emacs is that it cannot
work if it is placed in ../etc/themes/. Instead, the files need to be
in a path that handles byte-compilation, like ../lisp/modus-themes/.
1. This implies that commands such as 'M-x load-theme' cannot work
without first requiring the appropriate files. Such as:
(require 'modus-themes) ;; common code
(require 'modus-operandi-theme) ;; light theme
(load-theme 'modus-operandi t)
...
(require 'modus-vivendi-theme) ;; dark theme
(load-theme 'modus-vivendi t)
2. Because we do not use ../etc/themes/, neither 'modus-operandi' nor
'modus-vivendi' are marked as safe. They are considered custom.
Hence the non-nil NO-CONFIRM argument to 'load-theme'.
3. This also means that 'M-x customize-themes' and similar will not
present the themes in their list without first requiring the
aforementioned features.
* * *
Those are the issues I could identify. As such, the attached patch
removes the old files and places the new ones in ../lisp/modus-themes/.
The themes' manual is updated to cover the new version. The NEWS entry
is edited accordingly.
I understand you may object to the course of action covered by the
patch. Please inform me of a better way to address this issue. My
intent is to contribute version 1.0 of my themes to Emacs (1.0.2 to be
precise) and am prepared to make the requisite changes based on your
feedback.
Thank you for your time!
Protesilaos
--
Protesilaos Stavrou
protesilaos.com
[-- Attachment #2: 0001-Update-Modus-themes-1.0.2-backward-incompatible.patch --]
[-- Type: text/x-patch, Size: 952152 bytes --]
From 88f64dfdf8c4a91296771288ae5a2254fd28b960 Mon Sep 17 00:00:00 2001
From: Protesilaos Stavrou <info@protesilaos.com>
Date: Sun, 6 Dec 2020 10:30:48 +0200
Subject: [PATCH] Update Modus themes 1.0.2 (backward-incompatible)
* lisp/modus-themes/modus-operandi-theme.el: Add new file for
'modus-operandi'.
* lisp/modus-themes/modus-vivendi-theme.el: Add new file for
'modus-vivendi'.
* lisp/modus-themes/modus-themes.el: Add new file that contains all
common code between the two themes.
* lisp/modus-themes/modus-themes-core.el: Add new file that contains
the macro that is used to expand both themes.
* etc/themes/modus-operandi-theme.el: Delete old version of
'modus-operandi'.
* etc/themes/modus-vivendi-theme.el: Delete old version of
'modus-vivendi'.
* doc/misc/modus-themes.texi: Update manual to version 1.0.2.
* etc/NEWS: Direct users to the manual instead of recommending
commands that do not work out-of-the-box without first requiring the
theme files.
---
doc/misc/modus-themes.texi | 1353 +++---
etc/NEWS | 7 +-
etc/themes/modus-operandi-theme.el | 4666 -------------------
etc/themes/modus-vivendi-theme.el | 4666 -------------------
lisp/modus-themes/modus-operandi-theme.el | 75 +
lisp/modus-themes/modus-themes-core.el | 80 +
lisp/modus-themes/modus-themes.el | 5182 +++++++++++++++++++++
lisp/modus-themes/modus-vivendi-theme.el | 75 +
8 files changed, 6132 insertions(+), 9972 deletions(-)
delete mode 100644 etc/themes/modus-operandi-theme.el
delete mode 100644 etc/themes/modus-vivendi-theme.el
create mode 100644 lisp/modus-themes/modus-operandi-theme.el
create mode 100644 lisp/modus-themes/modus-themes-core.el
create mode 100644 lisp/modus-themes/modus-themes.el
create mode 100644 lisp/modus-themes/modus-vivendi-theme.el
diff --git a/doc/misc/modus-themes.texi b/doc/misc/modus-themes.texi
index de3ccd27c4..0bcc3c1870 100644
--- a/doc/misc/modus-themes.texi
+++ b/doc/misc/modus-themes.texi
@@ -28,8 +28,8 @@ This manual, written by Protesilaos Stavrou, describes the customization
options for the @samp{modus-operandi} and @samp{modus-vivendi} themes, and provides
every other piece of information pertinent to them.
-The documentation furnished herein corresponds to version 0.13.0,
-released on 2020-10-08. Any reference to a newer feature which does
+The documentation furnished herein corresponds to version 1.0.2,
+released on 2020-12-06. Any reference to a newer feature which does
not yet form part of the latest tagged commit, is explicitly marked as
such.
@@ -81,25 +81,26 @@ Install on GNU/Linux
Enable and load
* Load automatically::
-* Load at a given time or at sunset/sunrise::
* Toggle between the themes on demand::
-* Configure options prior to loading::
+* Configure options prior to loading a theme::
+* Sample configuration for use-package::
Customization Options
* Bold constructs:: Toggle bold constructs in code
* Slanted constructs:: Toggle slanted constructs (italics) in code
-* Syntax highlighting:: Toggle subtle coloration in programming modes
+* Syntax styles:: Choose the overall aesthetic of code syntax
* No mixed fonts:: Toggle mixing of font families
-* Link underline:: Toggle underlined text in links
+* Link styles:: Choose link color intensity for the text or underline, or no underline at all
* Command prompts:: Choose among plain, subtle, or intense prompts
-* Mode line:: Choose among plain, three-dimension, or moody-compliant styles
+* Mode line:: Choose among plain, three-dimensional, or Moody-compliant styles
* Completion UIs:: Choose among standard, moderate, or opinionated looks
-* Fringes:: Choose among plain, subtle, or intense fringe visibility
+* Fringes:: Choose among invisible, subtle, or intense fringe visibility
* Line highlighting:: Toggle intense style for current line highlighting
-* Matching parentheses:: Toggle intense style for matching delimiters/parentheses
+* Matching parentheses:: Choose between various styles for matching delimiters/parentheses
+* Active region:: Choose between various styles for the active region
* Diffs:: Choose among intense, desaturated, or text-only diffs
-* Org mode blocks:: Choose among plain, greyscale, or rainbow styles
+* Org mode blocks:: Choose among plain, grayscale, or rainbow styles
* Heading styles:: Choose among several styles, also per heading level
* Scaled headings:: Toggle scaling of headings
* Headings' font:: Toggle proportionately spaced fonts in headings
@@ -110,22 +111,23 @@ Scaled headings
Advanced customization (do-it-yourself)
-* Tweak colors (DIY):: Declare your own palette overrides
+* Tweak faces (DIY):: Declare your own face specs
* Font configs (DIY):: Optimise for mixed typeface buffers
* Org user faces (DIY):: Extend styles for org-mode keywords and priorities
+* WCAG test (DIY):: Apply the WCAG formula to color values of your choosing
+* Load at time (DIY):: Switch between the themes depending on the time of day
Face coverage
* Supported packages:: Full list of covered face groups
-* Covered indirectly::
-* Will NOT be supported::
+* Indirectly covered packages::
Notes for individual packages
* Note on company-mode overlay pop-up::
* Note for ERC escaped color sequences::
* Note for powerline or spaceline::
-* Note on shr colors::
+* Note on SHR colors::
* Note for Helm grep::
* Note on vc-annotate-background-mode::
@@ -159,10 +161,10 @@ and stylistic considerations, we will always opt for the former.
To ensure that users have a consistently accessible experience, the
themes strive to achieve as close to full face coverage as possible
-(see @ref{Face coverage}).
+(see @xref{Face coverage}).
Starting with version 0.12.0 and onwards, the themes are built into GNU
-Emacs (current version is 0.13.0).
+Emacs.
@menu
* How do the themes look like::
@@ -172,8 +174,8 @@ Emacs (current version is 0.13.0).
@node How do the themes look like
@section How do the themes look like
-Check the web page with @uref{https://protesilaos.com/modus-themes-pictures/, the screen shots}. There are lots of scenarios on
-display that draw attention to details and important aspects in the
+Check the web page with @uref{https://protesilaos.com/modus-themes-pictures/, the screen shots}. There are lots of scenarios
+on display that draw attention to details and important aspects in the
design of the themes. They also showcase the numerous customization
options.
@@ -190,11 +192,8 @@ and covers everything that goes into every tagged release of the themes.
The Modus themes are distributed with Emacs starting with version 28.1.
On older versions of Emacs, they can be installed using Emacs' package
-manager or manually from their code repository.
-
-Modus Operandi (light theme) and Modus Vivendi (dark) are normally
-distributed as standalone packages in Emacs-specific archives. There
-also exist packages for GNU/Linux distributions.
+manager or manually from their code repository. There also exist
+packages for distributions of GNU/Linux.
@menu
* Install from the archives::
@@ -204,18 +203,22 @@ also exist packages for GNU/Linux distributions.
@node Install from the archives
@section Install from the archives
-@samp{modus-operandi-theme} and @samp{modus-vivendi-theme} are
-available from the GNU ELPA archive, which is configured by default.
+The @samp{modus-themes} package is available from the GNU ELPA archive, which
+is configured by default.
Prior to querying any package archive, make sure to have updated the
-index, with @samp{M-x package-refresh-contents}. Then all you need to do is
-type @samp{M-x package-install} and specify the theme of your choice.
+index, with @kbd{M-x package-refresh-contents}. Then all you need to do is
+type @kbd{M-x package-install} and specify the @samp{modus-themes}.
+
+Note that older versions of the themes used to be distributed as
+standalone packages. This practice has been discontinued starting with
+version 1.0.0 of this project.
@node Install on GNU/Linux
@section Install on GNU/Linux
-The themes are also available from the archives of some GNU/Linux
-distributions. These should correspond to a tagged release rather than
+The themes are also available from the archives of some distributions of
+GNU/Linux. These should correspond to a tagged release rather than
building directly from the latest Git commit. It all depends on the
distro's packaging policies.
@@ -240,17 +243,10 @@ sudo apt install elpa-modus-themes
@node GNU Guix
@subsection GNU Guix
-Users of either the Guix System (the distro) or just Guix (the package
-manager) can get each theme as a standalone package.
-
-@example
-guix package -i emacs-modus-operandi-theme
-@end example
-
-And/or:
+Users of Guix can get the themes with this command:
@example
-guix package -i emacs-modus-vivendi-theme
+guix package -i emacs-modus-themes
@end example
@node Enable and load
@@ -258,21 +254,30 @@ guix package -i emacs-modus-vivendi-theme
This section documents how to load the theme of your choice and how to
further control its initialization. It also includes some sample code
-snippets that could help you in the task, especially if you intend to
-use both Modus Operandi and Modus Vivendi.
+snippets that could help you in the task.
+
+Before you load a theme, it is necessary to enable the libraries:
+
+@lisp
+(require 'modus-themes) ; common code
+(require 'modus-operandi-theme) ; light theme
+(require 'modus-vivendi-theme) ; dark theme
+@end lisp
+
+@ref{Sample configuration for use-package}.
@menu
* Load automatically::
-* Load at a given time or at sunset/sunrise::
* Toggle between the themes on demand::
-* Configure options prior to loading::
+* Configure options prior to loading a theme::
+* Sample configuration for use-package::
@end menu
@node Load automatically
@section Load automatically
-A simple way to load the theme from your Emacs initialization file is to
-include either of the following expressions:
+Once the libraries that define the themes are enabled, you can load a
+theme with either of the following expressions:
@lisp
(load-theme 'modus-operandi t) ; Light theme
@@ -282,173 +287,190 @@ include either of the following expressions:
Make sure to remove any other theme that is being loaded, otherwise you
might run into unexpected issues.
-Note that you can always @samp{M-x disable-theme} and specify an item. The
+Note that you can always @kbd{M-x disable-theme} and specify an item. The
command does exactly what its name suggests. To deactivate all enabled
themes at once, in case you have multiple of them enabled, you may
-evaluate the expression:
+evaluate the following expression:
@lisp
(mapc #'disable-theme custom-enabled-themes)
@end lisp
-@node Load at a given time or at sunset/sunrise
-@section Load at a given time or at sunset/sunrise
+@node Toggle between the themes on demand
+@section Toggle between the themes on demand
-It is possible to schedule a time during the day at or after which a
-given theme will be loaded.@footnote{Contributed on Reddit by user @samp{b3n}
-@uref{https://www.reddit.com/r/emacs/comments/gdtqov/weekly_tipstricketc_thread/fq9186h/}.}
+The themes provide the @samp{modus-themes-toggle} command that you can bind to
+a key of your preference. For example:
@lisp
-;; Light for the day
-(load-theme 'modus-operandi t t)
-(run-at-time "05:00" (* 60 60 24)
- (lambda ()
- (enable-theme 'modus-operandi)))
-
-;; Dark for the night
-(load-theme 'modus-vivendi t t)
-(run-at-time "21:00" (* 60 60 24)
- (lambda ()
- (enable-theme 'modus-vivendi)))
+(global-set-key (kbd "<f5>") #'modus-themes-toggle)
@end lisp
-A modified version of the above technique is to use the sunrise and
-sunset as references, instead of specifying a fixed hour value.@footnote{Contributed directly by André Alexandre Gomes @uref{https://gitlab.com/aadcg}.}
-If you set @samp{calendar-latitude} and @samp{calendar-longitude} (defined in the
-built-in @samp{solar.el} library---read it with @samp{M-x find-library}), you can
-automatically switch between both themes at the appropriate time-of-day.
-Note that @emph{those calendar variables need to be set before loading the
-themes}.
+What this toggle does is check if either @samp{modus-operandi} or @samp{modus-vivendi}
+is active and proceeds to cycle between them. If none of them are
+active, a minibuffer prompt will ask the user to choose between the two.
+In this latter scenario, all other themes will first be disabled (using
+the @samp{disable-theme} we covered before). Lastly, the toggle calls
+@samp{modus-themes-after-load-theme-hook} which you can use to add your tweaks
+(see @xref{Tweak faces (DIY)}).
+
+@node Configure options prior to loading a theme
+@section Configure options prior to loading a theme
+
+The themes provide a unified customization framework. This is why you
+need @samp{(require 'modus-themes)}. All options must be set before loading
+each theme in order to come into effect. For example:
@lisp
-;; Define coordinates
-(setq calendar-latitude 35.17
- calendar-longitude 33.36)
-
-;; Light at sunrise
-(load-theme 'modus-operandi t t)
-(run-at-time (nth 1 (split-string (sunrise-sunset)))
- (* 60 60 24)
- (lambda ()
- (enable-theme 'modus-operandi)))
-
-;; Dark at sunset
-(load-theme 'modus-vivendi t t)
-(run-at-time (nth 4 (split-string (sunrise-sunset)))
- (* 60 60 24)
- (lambda ()
- (enable-theme 'modus-vivendi)))
+;; Set customization options to values of your choice
+(setq modus-themes-slanted-constructs t
+ modus-themes-bold-constructs nil
+ modus-themes-fringes nil ; @{nil,'subtle,'intense@}
+ modus-themes-mode-line '3d ; @{nil,'3d,'moody@}
+ modus-themes-syntax nil ; Lots of options---continue reading the manual
+ modus-themes-intense-hl-line nil
+ modus-themes-paren-match 'subtle-bold ; @{nil,'subtle-bold,'intense,'intense-bold@}
+ modus-themes-links 'neutral-underline ; Lots of options---continue reading the manual
+ modus-themes-no-mixed-fonts nil
+ modus-themes-prompts nil ; @{nil,'subtle,'intense@}
+ modus-themes-completions nil ; @{nil,'moderate,'opinionated@}
+ modus-themes-region 'bg-only-no-extend ; @{nil,'no-extend,'bg-only,'bg-only-no-extend@}
+ modus-themes-diffs nil ; @{nil,'desaturated,'fg-only,'bg-only@}
+ modus-themes-org-blocks nil ; @{nil,'grayscale,'rainbow@}
+ modus-themes-headings ; Lots of options---continue reading the manual
+ '((1 . section)
+ (2 . section-no-bold)
+ (3 . rainbow-line)
+ (t . rainbow-line-no-bold))
+ modus-themes-variable-pitch-headings nil
+ modus-themes-scale-headings nil
+ modus-themes-scale-1 1.1
+ modus-themes-scale-2 1.15
+ modus-themes-scale-3 1.21
+ modus-themes-scale-4 1.27
+ modus-themes-scale-5 1.33)
+
+;; Load the light theme (`modus-operandi')
+(modus-themes-load-operandi)
+
+;; ;; Or load via a hook
+;; (add-hook 'after-init-hook #'modus-themes-load-operandi)
@end lisp
-For the sake of completeness, the @samp{load-theme} call in these snippets is
-slightly different than the one shown in @ref{Load automatically}, because it
-does not enable the theme directly: the subsequent @samp{enable-theme} does
-that when needed.
+Note that in this example we use @samp{modus-themes-load-operandi}. Here is
+what it does:
-@node Toggle between the themes on demand
-@section Toggle between the themes on demand
+@lisp
+(defun modus-themes-load-operandi ()
+ "Load `modus-operandi' and disable `modus-vivendi'.
+Also run `modus-themes-after-load-theme-hook'."
+ (disable-theme 'modus-vivendi)
+ (load-theme 'modus-operandi t)
+ (run-hooks 'modus-themes-after-load-theme-hook))
+@end lisp
+
+Same principle, inverse effect, for @samp{modus-themes-load-vivendi}.
-With both themes available, it is possible to design a simple command to
-switch between them on demand.
+If you prefer to maintain different customization options between the
+two themes, it is best you write your own functions that first set those
+options and then load the themes. The following code does exactly that
+by simply differentiating the two themes on the choice of bold
+constructs in code syntax (enabled for one, disabled for the other).
@lisp
-(defun modus-themes-toggle ()
- "Toggle between `modus-operandi' and `modus-vivendi' themes."
+(defun my-demo-modus-operandi ()
+ (interactive)
+ (setq modus-themes-bold-constructs t) ; ENABLE bold
+ (modus-themes-load-operandi))
+
+(defun my-demo-modus-vivendi ()
(interactive)
+ (setq modus-themes-bold-constructs nil) ; DISABLE bold
+ (modus-themes-load-vivendi))
+
+(defun my-demo-modus-themes-toggle ()
(if (eq (car custom-enabled-themes) 'modus-operandi)
- (progn
- (disable-theme 'modus-operandi)
- (load-theme 'modus-vivendi t))
- (disable-theme 'modus-vivendi)
- (load-theme 'modus-operandi t)))
+ (my-demo-modus-vivendi)
+ (my-demo-modus-operandi)))
@end lisp
-You could use @samp{(mapc #'disable-theme custom-enabled-themes)} instead of
-disabling a single target, but you get the idea.
+Then assign @samp{my-demo-modus-themes-toggle} to a key instead of the
+equivalent the themes provide.
+
+@node Sample configuration for use-package
+@section Sample configuration for use-package
-@node Configure options prior to loading
-@section Configure options prior to loading
+It is common for Emacs users to rely on @samp{use-package} for declaring
+package configurations in their setup. We use this as an example:
-If you plan to use both themes and wish to apply styles consistently
-(see @ref{Customization Options}), you could define wrapper functions around
-the standard @samp{load-theme} command. These extend the simple function we
-presented in @ref{Toggle between the themes on demand}.
+@lisp
+(use-package modus-themes
+ :ensure
+ :init
+ ;; Add all your customizations prior to loading the themes
+ (setq modus-themes-slanted-constructs t
+ modus-themes-bold-constructs nil)
+ :config
+ ;; Load the theme of your choice
+ (modus-themes-load-operandi)
+ ;; ;; OR
+ ;; (load-theme 'modus-operandi t)
+ :bind ("<f5>" . modus-themes-toggle))
+@end lisp
-Here is a comprehensive setup (the values assigned to the variables are
-just for the sake of this demonstration):@footnote{The @samp{defmacro} and @samp{dolist}
-method were contributed on Reddit by user @samp{b3n},
-@uref{https://www.reddit.com/r/emacs/comments/gqsz8u/weekly_tipstricketc_thread/fsfakhg/}.}
+Note that manual installations expect that the user byte compiles all
+the relevant files and creates autoloads for them. If, for whatever
+reason, users wish to install the theme files manually while not doing
+the requisite packaging work, then this code block must be used instead
+(but please prefer the packaged format that does proper byte compilation
+and autoloading).
+
+The following snippet is for manual installations or those that use the
+themes that are shipped with Emacs:
@lisp
-(defmacro modus-themes-format-sexp (sexp &rest objects)
- `(eval (read (format ,(format "%S" sexp) ,@@objects))))
-
-(dolist (theme '("operandi" "vivendi"))
- (modus-themes-format-sexp
- (defun modus-%1$s-theme-load ()
- (setq modus-%1$s-theme-slanted-constructs t
- modus-%1$s-theme-bold-constructs t
- modus-%1$s-theme-fringes 'subtle ; @{nil,'subtle,'intense@}
- modus-%1$s-theme-mode-line '3d ; @{nil,'3d,'moody@}
- modus-%1$s-theme-faint-syntax nil
- modus-%1$s-theme-intense-hl-line nil
- modus-%1$s-theme-intense-paren-match nil
- modus-%1$s-theme-no-link-underline t
- modus-%1$s-theme-no-mixed-fonts nil
- modus-%1$s-theme-prompts nil ; @{nil,'subtle,'intense@}
- modus-%1$s-theme-completions 'moderate ; @{nil,'moderate,'opinionated@}
- modus-%1$s-theme-diffs nil ; @{nil,'desaturated,'fg-only@}
- modus-%1$s-theme-org-blocks 'greyscale ; @{nil,'greyscale,'rainbow@}
- modus-%1$s-theme-headings ; Read further below in the manual for this one
- '((1 . section)
- (2 . line)
- (t . rainbow-line-no-bold))
- modus-%1$s-theme-variable-pitch-headings nil
- modus-%1$s-theme-scale-headings t
- modus-%1$s-theme-scale-1 1.1
- modus-%1$s-theme-scale-2 1.15
- modus-%1$s-theme-scale-3 1.21
- modus-%1$s-theme-scale-4 1.27
- modus-%1$s-theme-scale-5 1.33)
- (load-theme 'modus-%1$s t))
- theme))
-
-(defun modus-themes-toggle ()
- "Toggle between `modus-operandi' and `modus-vivendi' themes."
- (interactive)
- (if (eq (car custom-enabled-themes) 'modus-operandi)
- (progn
- (disable-theme 'modus-operandi)
- (modus-vivendi-theme-load))
- (disable-theme 'modus-vivendi)
- (modus-operandi-theme-load)))
+(use-package modus-themes
+ :ensure
+ :init
+ ;; Add all your customizations prior to loading the themes
+ (setq modus-themes-slanted-constructs t
+ modus-themes-bold-constructs nil)
+
+ ;; Enable the theme files
+ (use-package modus-operandi-theme)
+ (use-package modus-vivendi-theme)
+
+ :config
+ ;; Load the theme of your choice
+ (modus-themes-load-operandi)
+ :bind ("<f5>" . modus-themes-toggle))
@end lisp
@node Customization Options
@chapter Customization Options
The Modus themes are highly configurable, though they should work well
-without any further tweaks.
+without any further tweaks. By default, all customization options are
+set to @samp{nil}.
-By default, all customization options are set to @samp{nil}.
-
-All customization options need to be evaluated before loading their
-theme (@pxref{Enable and load}).
+Remember that all customization options must be evaluated before loading
+a theme (see @xref{Enable and load}).
@menu
* Bold constructs:: Toggle bold constructs in code
* Slanted constructs:: Toggle slanted constructs (italics) in code
-* Syntax highlighting:: Toggle subtle coloration in programming modes
+* Syntax styles:: Choose the overall aesthetic of code syntax
* No mixed fonts:: Toggle mixing of font families
-* Link underline:: Toggle underlined text in links
+* Link styles:: Choose link color intensity for the text or underline, or no underline at all
* Command prompts:: Choose among plain, subtle, or intense prompts
-* Mode line:: Choose among plain, three-dimension, or moody-compliant styles
+* Mode line:: Choose among plain, three-dimensional, or Moody-compliant styles
* Completion UIs:: Choose among standard, moderate, or opinionated looks
-* Fringes:: Choose among plain, subtle, or intense fringe visibility
+* Fringes:: Choose among invisible, subtle, or intense fringe visibility
* Line highlighting:: Toggle intense style for current line highlighting
-* Matching parentheses:: Toggle intense style for matching delimiters/parentheses
+* Matching parentheses:: Choose between various styles for matching delimiters/parentheses
+* Active region:: Choose between various styles for the active region
* Diffs:: Choose among intense, desaturated, or text-only diffs
-* Org mode blocks:: Choose among plain, greyscale, or rainbow styles
+* Org mode blocks:: Choose among plain, grayscale, or rainbow styles
* Heading styles:: Choose among several styles, also per heading level
* Scaled headings:: Toggle scaling of headings
* Headings' font:: Toggle proportionately spaced fonts in headings
@@ -457,14 +479,7 @@ theme (@pxref{Enable and load}).
@node Bold constructs
@section Option for more bold constructs
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-bold-constructs}
-@item
-@samp{modus-vivendi-theme-bold-constructs}
-@end itemize
+Symbol: @samp{modus-themes-bold-constructs}
Possible values:
@@ -475,37 +490,18 @@ Possible values:
@samp{t}
@end enumerate
-Display several constructs in bold weight. This concerns keywords and
-other important aspects of code syntax. It also affects certain mode
-line indicators and command-line prompts.
+The default is to use a bold typographic weight only when it is
+required.
-The default is to only use a bold weight when it is required.
-
-Additionally, and while not necessary, to define the precise weight for
-bold constructs, you can change the typographic intensity of the @samp{bold}
-face. The standard is a bold weight. It requires no further
-intervention. Assuming though that your typeface of choice supports a
-``semibold'' weight, adding the following snippet to your init file should
-suffice.
-
-@lisp
-(set-face-attribute 'bold nil :weight 'semibold)
-@end lisp
-
-Note that if you are switching themes, you need to re-evaluate this
-expression after the new theme is loaded.
+With a non-nil value (@samp{t}) display several syntactic constructs in bold
+weight. This concerns keywords and other important aspects of code
+syntax. It also affects certain mode line indicators and command-line
+prompts.
@node Slanted constructs
@section Option for more slanted constructs
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-slanted-constructs}
-@item
-@samp{modus-vivendi-theme-slanted-constructs}
-@end itemize
+Symbol: @samp{modus-themes-slanted-constructs}
Possible values:
@@ -516,22 +512,16 @@ Possible values:
@samp{t}
@end enumerate
-Choose to render more faces in slanted text (italics). This typically
-affects documentation strings and code comments.
+The default is to not use slanted text (italics) unless it is absolutely
+necessary.
-The default is to not use italics unless it is absolutely necessary.
+With a non-nil value (@samp{t}) choose to render more faces in slanted text.
+This typically affects documentation strings and code comments.
-@node Syntax highlighting
-@section Option for faint code syntax highlighting
+@node Syntax styles
+@section Option for syntax highlighting
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-faint-syntax}
-@item
-@samp{modus-vivendi-theme-faint-syntax}
-@end itemize
+Symbol: @samp{modus-themes-syntax}
Possible values:
@@ -539,29 +529,48 @@ Possible values:
@item
@samp{nil} (default)
@item
-@samp{t}
+@samp{faint}
+@item
+@samp{yellow-comments}
+@item
+@samp{green-strings}
+@item
+@samp{yellow-comments-green-strings}
+@item
+@samp{alt-syntax}
+@item
+@samp{alt-syntax-yellow-comments}
@end enumerate
-Use less saturated colors in programming modes for highlighting code
-syntax. The default is to use saturated colors.
+The default style (nil) for code syntax highlighting is a balanced
+combination of colors on the cyan-blue-magenta side of the spectrum.
+There is little to no use of greens, yellows, or reds, except when it is
+necessary.
+
+Option @samp{faint} is like the default in terms of the choice of palette but
+applies desaturated color values.
+
+Option @samp{yellow-comments} applies a yellow tint to comments. The rest of
+the syntax is the same as the default.
-This option essentially affects the font-lock faces, so it may also have
-implications in other places that are hard-wired to rely directly on
-them instead of specifying their own faces (which could inherit from
-font-lock if that is the intent). The author is aware of @samp{vc-dir} as a
-case in point.
+Option @samp{green-strings} replaces the blue/cyan/cold color variants in
+strings with greener alternatives. The rest of the syntax remains the
+same.
+
+Option @samp{yellow-comments-green-strings} combines yellow comments with green
+strings and the rest of the default syntax highlighting style.
+
+Option @samp{alt-syntax} expands the active spectrum by applying color
+combinations with more contrasting hues between them. Expect to find
+more red and green variants in addition to cyan, blue, magenta.
+
+Option @samp{alt-syntax-yellow-comments} combines @samp{alt-syntax} with
+@samp{yellow-comments}.
@node No mixed fonts
@section Option for no font mixing
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-no-mixed-fonts}
-@item
-@samp{modus-vivendi-theme-no-mixed-fonts}
-@end itemize
+Symbol: @samp{modus-themes-no-mixed-fonts}
Possible values:
@@ -584,17 +593,12 @@ configurations, rather than letting the theme do it, perhaps because a
purpose-specific package has extra functionality. Two possible options
are @samp{org-variable-pitch} and @samp{mixed-pitch}.
-@node Link underline
-@section Option for no link underline
+@xref{Font configs (DIY)}.
-Symbol names:
+@node Link styles
+@section Option for links
-@itemize
-@item
-@samp{modus-operandi-theme-no-link-underline}
-@item
-@samp{modus-vivendi-theme-no-link-underline}
-@end itemize
+Symbol: @samp{modus-themes-links}
Possible values:
@@ -602,23 +606,35 @@ Possible values:
@item
@samp{nil} (default)
@item
-@samp{t}
+@samp{faint}
+@item
+@samp{neutral-underline}
+@item
+@samp{faint-neutral-underline}
+@item
+@samp{no-underline}
@end enumerate
-Remove the underline effect from links, symbolic links, and buttons.
-The default is to apply an underline.
+The default style (nil) for links is to apply an underline and a
+saturated color to the affected text. The color of the two is the same,
+which makes the link fairly prominent.
+
+Option @samp{faint} follows the same approach as the default, but uses less
+intense colors.
+
+Option @samp{neutral-underline} changes the underline's color to a subtle
+gray, while retaining the default text color.
+
+Option @samp{faint-neutral-underline} combines a desaturated text color with a
+subtle gray underline.
+
+Option @samp{no-underline} removes link underlines altogether, while keeping
+their text color the same as the default.
@node Command prompts
@section Option for command prompt styles
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-prompts}
-@item
-@samp{modus-vivendi-theme-prompts}
-@end itemize
+Symbol: @samp{modus-themes-prompts}
Possible values:
@@ -631,25 +647,18 @@ Possible values:
@samp{intense}
@end enumerate
-The symbols ``subtle'' and ``intense'' will apply a combination of accented
-background and foreground to the minibuffer and other REPL prompts (like
-@samp{M-x shell} and @samp{M-x eshell}). The difference between the two is that the
-latter has a more pronounced/noticeable effect than the former.
+The default does not use any background for minibuffer and command line
+prompts. It relies exclusively on an accented foreground color.
-The default does not use any background for such prompts, while relying
-exclusively on an accented foreground color.
+The options @samp{subtle} and @samp{intense} apply a combination of accented
+background and foreground to such prompts. The difference between the
+two is that the latter has a more pronounced/noticeable effect than the
+former.
@node Mode line
@section Option for mode line presentation
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-mode-line}
-@item
-@samp{modus-vivendi-theme-mode-line}
-@end itemize
+Symbol: @samp{modus-themes-mode-line}
Possible values:
@@ -662,16 +671,16 @@ Possible values:
@samp{moody}
@end enumerate
-The default value (@samp{nil}) produces a two-dimensional effect both for the
-active and inactive modelines. The differences between the two are
-limited to distinct shades of greyscale values, with the active being
-more intense than the inactive.
+The default produces a two-dimensional effect both for the active and
+inactive modelines. The differences between the two are limited to
+distinct shades of grayscale values, with the active being more intense
+than the inactive.
-A @samp{3d} symbol will make the active modeline look like a three-dimensional
+Option @samp{3d} will make the active modeline look like a three-dimensional
rectangle. Inactive modelines remain 2D, though they are slightly toned
-down relative to the default. This aesthetic is the same as what you
-get when you run Emacs without any customizations (@kbd{emacs -Q} on the
-command line).
+down relative to the default. This aesthetic is virtually the same as
+what you get when you run Emacs without any customizations (@kbd{emacs -Q} on
+the command line).
While @samp{moody} removes all box effects from the modelines and applies
underline and overline properties instead. It also tones down a bit the
@@ -687,17 +696,17 @@ against this, we configure a fallback foreground for the @samp{moody} option,
which will come into effect when the background of the modeline changes
to something less accessible, such as Moody ribbons (read the doc string
of @samp{set-face-attribute}, specifically @samp{:distant-foreground}). This fallback
-comes into effect when Emacs determines that the background and
-foreground of the given construct are too close to each other in terms
-of color distance. In effect, users would need to experiment with the
-variable @samp{face-near-same-color-threshold} to trigger the fallback color.
-We find that a value of @samp{45000} would suffice, contrary to the default
-@samp{30000}. Do not set the value too high, because that would have the
-adverse effect of always overriding the default color (which has been
-carefully designed to be highly accessible).
+is activated when Emacs determines that the background and foreground of
+the given construct are too close to each other in terms of color
+distance. In effect, users would need to experiment with the variable
+@samp{face-near-same-color-threshold} to trigger the effect. We find that a
+value of @samp{45000} will suffice, contrary to the default @samp{30000}. Do not set
+the value too high, because that would have the adverse effect of always
+overriding the default color (which has been carefully designed to be
+highly accessible).
Furthermore, because Moody expects an underline and overline instead of
-a box style, it is recommended you also include this in your setup:
+a box style, it is advised you include this in your setup:
@lisp
(setq x-underline-at-descent-line t)
@@ -706,14 +715,7 @@ a box style, it is recommended you also include this in your setup:
@node Completion UIs
@section Option for completion framework aesthetics
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-completions}
-@item
-@samp{modus-vivendi-theme-completions}
-@end itemize
+Symbol: @samp{modus-themes-completions}
Possible values:
@@ -737,18 +739,18 @@ Ivy, and similar.
A value of @samp{nil} will respect the metaphors of each completion framework.
-The symbol @samp{moderate} will apply a combination of background and
-foreground that is fairly subtle. For Icomplete and friends this
-constitutes a departure from their default aesthetics, however the
-difference is small. While Helm et al will appear slightly different
-than their original looks, as they are toned down a bit.
+Option @samp{moderate} applies a combination of background and foreground that
+is fairly subtle. For Icomplete and friends this constitutes a
+departure from their default aesthetics, however the difference is
+small. While Helm, Ivy et al appear slightly different than their
+original looks, as they are toned down a bit.
-The symbol @samp{opinionated} will apply color combinations that refashion the
-completion UI@. For the Icomplete camp this means that intense
-background and foreground combinations are used: in effect their looks
-emulate those of Ivy and co. in their original style. Whereas the other
-group of packages will revert to an even more nuanced aesthetic with
-some additional changes to the choice of hues.
+Option @samp{opinionated} uses color combinations that refashion the completion
+UI@. For the Icomplete camp this means that intense background and
+foreground combinations are used: in effect their looks emulate those of
+Helm, Ivy and co. in their original style. Whereas the other group of
+packages will revert to an even more nuanced aesthetic with some
+additional changes to the choice of hues.
To appreciate the scope of this customization option, you should spend
some time with every one of the @samp{nil} (default), @samp{moderate}, and @samp{opinionated}
@@ -757,14 +759,7 @@ possibilities.
@node Fringes
@section Option for fringe visibility
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-fringes}
-@item
-@samp{modus-vivendi-theme-fringes}
-@end itemize
+Symbol: @samp{modus-themes-fringes}
Possible values:
@@ -777,25 +772,18 @@ Possible values:
@samp{intense}
@end enumerate
-The ``subtle'' symbol will apply a greyscale background that is visible,
-yet close enough to the main background color. While the ``intense''
-symbol will use a more noticeable greyscale background.
-
The default is to use the same color as that of the main background,
meaning that the fringes are not obvious though they still occupy the
space given to them by @samp{fringe-mode}.
+Options @samp{subtle} and @samp{intense} apply a gray background, making the fringes
+visible. The difference between the two is one of degree, as their
+names imply.
+
@node Line highlighting
@section Option for line highlighting (hl-line-mode)
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-intense-hl-line}
-@item
-@samp{modus-vivendi-theme-intense-hl-line}
-@end itemize
+Symbol: @samp{modus-themes-intense-hl-line}
Possible values:
@@ -806,23 +794,50 @@ Possible values:
@samp{t}
@end enumerate
-Draw the current line of @samp{hl-line-mode} or its global equivalent in a more
-prominent background color. This would also affect several packages
-that enable @samp{hl-line-mode}, such as @samp{elfeed} and @samp{mu4e}.
+The default is to use a subtle gray background for @samp{hl-line-mode} and its
+global equivalent.
-The default is to use a more subtle gray.
+With a non-nil value (@samp{t}) use a more prominent background color instead.
+
+This affects several packages that enable @samp{hl-line-mode}, such as @samp{elfeed}
+and @samp{mu4e}.
@node Matching parentheses
@section Option for parenthesis matching (show-paren-mode)
-Symbol names:
+Symbol: @samp{modus-themes-paren-match}
-@itemize
+Possible values:
+
+@enumerate
@item
-@samp{modus-operandi-theme-intense-paren-match}
+@samp{nil} (default)
@item
-@samp{modus-vivendi-theme-intense-paren-match}
-@end itemize
+@samp{subtle-bold}
+@item
+@samp{intense}
+@item
+@samp{intense-bold}
+@end enumerate
+
+Nil means to use a subtle tinted background color for the matching
+delimiters.
+
+Option @samp{intense} applies a saturated background color.
+
+Option @samp{subtle-bold} is the same as the default, but also makes use of
+bold typographic weight (inherits the @samp{bold} face).
+
+Option @samp{intense-bold} is the same as @samp{intense}, while it also uses a bold
+weight.
+
+This customization variable affects tools such as the built-in
+@samp{show-paren-mode} and @samp{smartparens}.
+
+@node Active region
+@section Option for active region
+
+Symbol: @samp{modus-themes-region}
Possible values:
@@ -830,25 +845,31 @@ Possible values:
@item
@samp{nil} (default)
@item
-@samp{t}
+@samp{no-extend}
+@item
+@samp{bg-only}
+@item
+@samp{bg-only-no-extend}
@end enumerate
-Apply a more intense background to the matching parentheses (or
-delimiters). This affects tools such as the built-in @samp{show-paren-mode}.
-The default is to use a subtle warm color for the background of those
-overlays.
+Nil means to only use a prominent gray background with a neutral
+foreground. The foreground overrides all syntax highlighting. The
+region extends to the edge of the window.
+
+Option @samp{no-extend} preserves the default aesthetic but prevents the
+region from extending to the edge of the window.
+
+Option @samp{bg-only} applies a faint tinted background that is distinct from
+all others used in the theme, while it does not override any existing
+colors. It extends to the edge of the window.
+
+Option @samp{bg-only-no-extend} is a combination of the @samp{bg-only} and
+@samp{no-extend} options.
@node Diffs
@section Option for diff buffer looks
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-diffs}
-@item
-@samp{modus-vivendi-theme-diffs}
-@end itemize
+Symbol: @samp{modus-themes-diffs}
Possible values:
@@ -861,42 +882,44 @@ Possible values:
@samp{fg-only}
@end enumerate
-By default the themes will apply richly colored backgrounds to the
-output of diffs, such as those of @samp{diff-mode}, @samp{ediff}, @samp{smerge-mode}, and
-@samp{magit}. These are color combinations of an accented background and
-foreground so that, for example, added lines have a pronounced green
-background with an appropriate shade of green for the affected text.
-Word-wise or ``refined'' changes follow this pattern but use different
-shades of those colors to remain distinct.
+By default the themes apply rich coloration to the output of diffs, such
+as those of @samp{diff-mode}, @samp{ediff}, @samp{smerge-mode}, and @samp{magit}. These are color
+combinations of an accented background and foreground so that, for
+example, added lines have a pronounced green background with an
+appropriate shade of green for the affected text. Word-wise or
+``refined'' changes follow this pattern but use different shades of those
+colors to remain distinct.
-A @samp{desaturated} value tones down all relevant color values. It still
+Option @samp{desaturated} tones down all relevant color values. It still
combines an accented background with an appropriate foreground, yet its
-overall impression is very subtle. Refined changes are a bit more
+overall impression is fairly subtle. Refined changes are a bit more
intense to fulfil their intended function, though still less saturated
than default.
-While @samp{fg-only} will remove all accented backgrounds and instead rely on
-color-coded text to denote changes. For instance, added lines use an
-intense green foreground, while their background is the same as the rest
-of the buffer. Word-wise highlights still use a background value which
-is, nonetheless, more subtle than its default equivalent.
-
-Concerning @samp{magit}, an extra set of tweaks are introduced for the effect
-of highlighting the current diff hunk, so as to remain consistent with
-the overall experience of that mode. Expect changes that are consistent
-with the overall intent of the aforementioned.
+Option @samp{fg-only} will remove most accented backgrounds and instead rely on
+color-coded text to denote changes. For instance, added lines use a
+green foreground, while their background is the same as the rest of the
+buffer. Word-wise highlights still use a background value which is,
+nonetheless, more subtle than its default equivalent.
+
+Option @samp{bg-only} applies color-coded backgrounds but does not override any
+syntax highlighting that may be present. This makes it suitable for use
+with a non-nil value for @samp{diff-font-lock-syntax} (which is the default for
+@samp{diff-mode} buffers in Emacs 27 or higher).
+
+Concerning Magit, an extra set of tweaks are introduced for the effect
+of highlighting the current diff hunk, so as to remain aligned with the
+overall experience of that mode. Expect changes that are consistent
+with the overall intent of the aforementioned. Note, however, that the
+@samp{bg-only} option will not deliver the intended results in Magit diffs
+because no syntax highlighting is used there (last checked with Magit
+version 20201116.1057, though upstream has a plan to eventually support
+such a feature---this entry shall be updated accordingly).
@node Org mode blocks
@section Option for org-mode block styles
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-org-blocks}
-@item
-@samp{modus-vivendi-theme-org-blocks}
-@end itemize
+Symbol: @samp{modus-themes-org-blocks}
Possible values:
@@ -904,7 +927,7 @@ Possible values:
@item
@samp{nil} (default)
@item
-@samp{greyscale}
+@samp{grayscale}
@item
@samp{rainbow}
@end enumerate
@@ -912,18 +935,17 @@ Possible values:
The default is to use the same background as the rest of the buffer for
the contents of the block.
-A value of @samp{greyscale} will apply a subtle neutral gray background to the
-block's contents. It will also extend to the edge of the window the
-background of the ``begin'' and ``end'' block delimiter lines (only relevant
-for Emacs versions >= 27 where the 'extend' keyword is recognised by
-@samp{set-face-attribute}).
+Option @samp{grayscale} applies a subtle neutral gray background to the block's
+contents. It will also extend to the edge of the window the background
+of the ``begin'' and ``end'' block delimiter lines (only relevant for Emacs
+versions >= 27 where the 'extend' keyword is part of the face
+specifications).
-While @samp{rainbow} will instead use an accented background for the contents
-of the block. The exact color will depend on the programming language
-and is controlled by the @samp{org-src-block-faces} variable (refer to the
-theme's source code for the current association list). This is most
-suitable for users who work on literate programming documents that mix
-and match several languages.
+Option @samp{rainbow} uses an accented background for the contents of the
+block. The exact color will depend on the programming language and is
+controlled by the @samp{org-src-block-faces} variable. This is most suitable
+for users who work on literate programming documents that mix and match
+several languages.
Note that the ``rainbow'' blocks may require you to also reload the
major-mode so that the colors are applied properly: use @kbd{M-x org-mode} or
@@ -931,19 +953,12 @@ major-mode so that the colors are applied properly: use @kbd{M-x org-mode} or
code block (inefficient at scale, but it still works).
@node Heading styles
-@section Option for headings' overall style
+@section Option for the headings' overall style
This is defined as an alist and, therefore, uses a different approach
than other customization options documented in this manual.
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-headings}
-@item
-@samp{modus-vivendi-theme-headings}
-@end itemize
+Symbol: @samp{modus-themes-headings}
Possible values, which can be specified for each heading level (examples
further below):
@@ -983,61 +998,61 @@ nil (default fallback option---covers all heading levels)
@samp{rainbow-section-no-bold}
@end itemize
-To control faces per level from 1-8, use something like this (same for
-@samp{modus-vivendi-theme-headings}):
+To control faces per level from 1-8, use something like this:
@lisp
-(setq modus-operandi-theme-headings
+(setq modus-themes-headings
'((1 . section)
- (2 . line)
- (3 . highlight)
- (t . rainbow-no-bold)))
+ (2 . section-no-bold)
+ (3 . rainbow-line)
+ (t . rainbow-line-no-bold)))
@end lisp
-The above uses the @samp{section} value for heading levels 1, the @samp{line} for
-headings 2, @samp{highlight} for 3. All other levels fall back to
+The above uses the @samp{section} value for heading levels 1, @samp{section-no-bold}
+for headings 2, @samp{rainbow-line} for 3. All other levels fall back to
@samp{rainbow-line-no-bold}.
To set a uniform value for all heading levels, use this pattern:
@lisp
;; A given style for every heading
-(setq modus-operandi-theme-headings
- '((t . rainbow-line-no-bold)))
+(setq modus-themes-headings
+ '((t . section)))
;; Default aesthetic for every heading
-(setq modus-operandi-theme-headings
- '((t . nil)))
+(setq modus-themes-headings
+ '())
@end lisp
The default style for headings uses a fairly desaturated foreground
-value in combination with a bold typographic weight. To specify this
-style for a given level N (assuming you wish to have another fallback
-option), just specify the value @samp{t} like this:
+value in combination with bold typographic weight. To specify this
+style for a given level N, assuming you wish to have another fallback
+option, just specify the value @samp{t} like this:
@lisp
-(setq modus-operandi-theme-headings
+(setq modus-themes-headings
'((1 . t)
(2 . line)
(t . rainbow-line-no-bold)))
@end lisp
-A description of all other possible styles:
+A description of all other possible styles beyond the default:
@itemize
@item
-@samp{no-bold} retains the default text color while removing the typographic
-weight.
+@samp{no-bold} retains the default text color while removing the bold
+typographic weight.
@item
-@samp{line} is the same as the default plus an overline over the heading.
+@samp{line} is the same as the default plus an overline across the heading's
+length.
@item
@samp{line-no-bold} is the same as @samp{line} without bold weight.
@item
@samp{rainbow} uses a more colorful foreground in combination with bold
-weight.
+typographic weight.
@item
@samp{rainbow-line} is the same as @samp{rainbow} plus an overline.
@@ -1076,20 +1091,13 @@ foreground.
@item
@samp{rainbow-section-no-bold} is the same as @samp{rainbow-section} without a bold
-weight.``
+weight.
@end itemize
@node Scaled headings
@section Option for scaled headings
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-scale-headings}
-@item
-@samp{modus-vivendi-theme-scale-headings}
-@end itemize
+Symbol: @samp{modus-themes-scale-headings}
Possible values:
@@ -1100,9 +1108,10 @@ Possible values:
@samp{t}
@end enumerate
-Make headings larger in height relative to the main text. This is
-noticeable in modes like Org. The default is to use the same size for
-headings and body copy.
+The default is to use the same size for headings and paragraph text.
+
+With a non-nil value (@samp{t}) make headings larger in height relative to the
+main text. This is noticeable in modes like Org.
@menu
* Scaled heading sizes:: Specify rate of increase for scaled headings
@@ -1125,7 +1134,7 @@ number is basically the point size multiplied by ten. So if you want
it to be @samp{18pt} you must pass @samp{180}. Please understand that setting an
absolute value is discouraged, as it will break the layout when you
try to change font sizes with the built-in @samp{text-scale-adjust} command
-(see @ref{Font configs (DIY), , Font configurations}).
+(see @xref{Font configs (DIY)}).
@end itemize
Below are the variables in their default values, using the floating
@@ -1134,17 +1143,11 @@ change them to your liking, such as @samp{1.2}, @samp{1.4}, @samp{1.6}, @samp{1.
resource for finding a consistent scale:
@lisp
-(setq modus-operandi-theme-scale-1 1.05
- modus-operandi-theme-scale-2 1.1
- modus-operandi-theme-scale-3 1.15
- modus-operandi-theme-scale-4 1.2
- modus-operandi-theme-scale-5 1.3)
-
-(setq modus-vivendi-theme-scale-1 1.05
- modus-vivendi-theme-scale-2 1.1
- modus-vivendi-theme-scale-3 1.15
- modus-vivendi-theme-scale-4 1.2
- modus-vivendi-theme-scale-5 1.3)
+(setq modus-themes-scale-1 1.05
+ modus-themes-scale-2 1.1
+ modus-themes-scale-3 1.15
+ modus-themes-scale-4 1.2
+ modus-themes-scale-5 1.3)
@end lisp
Note that in earlier versions of Org, scaling would only increase the
@@ -1155,14 +1158,7 @@ size of the heading, but not of keywords that were added to it, like
@node Headings' font
@section Option for variable-pitch font in headings
-Symbol names:
-
-@itemize
-@item
-@samp{modus-operandi-theme-variable-pitch-headings}
-@item
-@samp{modus-vivendi-theme-variable-pitch-headings}
-@end itemize
+Symbol: @samp{modus-themes-variable-pitch-headings}
Possible values:
@@ -1173,19 +1169,20 @@ Possible values:
@samp{t}
@end enumerate
-Choose to apply a proportionately spaced, else ``variable-pitch'',
-typeface to headings (such as in Org mode). The default is to use the
-main font family.
+The default is to use the main font family, which typically is monospaced.
+
+With a non-nil value (@samp{t}) apply a proportionately spaced typeface, else
+``variable-pitch'', to headings (such as in Org mode).
-@ref{Font configs (DIY), , Font configurations for Org (and others)}.
+@xref{Font configs (DIY)}.
@node Advanced customization (do-it-yourself)
@chapter Advanced customization (do-it-yourself)
-Unlike the predefined customization options which follow a
-straightforward pattern of allowing the user to quickly specify their
-preference, the themes also provide a more flexible, albeit difficult,
-mechanism to control things with precision (see @ref{Customization Options}).
+Unlike the predefined customization options which follow a clear pattern
+of allowing the user to quickly specify their preference, the themes
+also provide a more flexible, albeit difficult, mechanism to control
+things with precision (see @xref{Customization Options}).
This section is of interest only to users who are prepared to maintain
their own local tweaks and who are willing to deal with any possible
@@ -1193,110 +1190,121 @@ incompatibilities between versioned releases of the themes. As such,
they are labelled as ``do-it-yourself'' or ``DIY''.
@menu
-* Tweak colors (DIY):: Declare your own palette overrides
+* Tweak faces (DIY):: Declare your own face specs
* Font configs (DIY):: Optimise for mixed typeface buffers
* Org user faces (DIY):: Extend styles for org-mode keywords and priorities
+* WCAG test (DIY):: Apply the WCAG formula to color values of your choosing
+* Load at time (DIY):: Switch between the themes depending on the time of day
@end menu
-@node Tweak colors (DIY)
-@section Full access to the themes' palette
+@node Tweak faces (DIY)
+@section Custom face specs using the themes' palette (DIY)
-The variables are:
+We already covered in previous sections how to toggle between the themes
+and how to configure options prior to loading. We also explained that
+some of the functions made available to users will fire up a hook that
+can be used to pass tweaks in the post-theme-load phase.
-@itemize
-@item
-@samp{modus-operandi-theme-override-colors-alist}
-@item
-@samp{modus-vivendi-theme-override-colors-alist}
-@end itemize
+@xref{Toggle between the themes on demand}.
-Users can specify an association list that maps the names of color
-variables to hexadecimal RGB values (in the form of @samp{#RRGGBB}). This
-means that it is possible to override the entire palette or subsets
-thereof (see the source code for the actual names and values).
+@xref{Configure options prior to loading}.
-Example:
+Now assume you wish to change a single face, say, the @samp{cursor}. And you
+would like to get the standard ``blue'' color value of the active Modus
+theme, whether it is Modus Operandi or Modus Vivendi. To do that, you
+can use the @samp{modus-themes-color} function. It accepts a symbol that is
+associated with a color in @samp{modus-themes-colors-operandi} and
+@samp{modus-themes-colors-vivendi}. Like this:
@lisp
-;; Redefine the values of those three variables for the given theme
-(setq modus-vivendi-theme-override-colors-alist
- '(("magenta" . "#ffaabb")
- ("magenta-alt" . "#ee88ff")
- ("magenta-alt-other" . "#bbaaff")))
+(modus-themes-color 'blue)
@end lisp
-If you want to be creative, you can define a minor mode that refashions
-the themes on demand. The following is a minor mode that gets activated
-on demand. We combine it with the function to switch between Modus
-Operandi and Modus Vivendi (@pxref{Toggle between the themes on demand}, for
-a basic command, and/or @pxref{Configure options prior to loading}, for a more
-comprehensive setup).
+The function always extracts the color value of the active Modus theme.
@lisp
-(define-minor-mode modus-themes-alt-mode
- "Override Modus themes' palette variables with custom values.
-
-This is intended as a proof-of-concept. It is, nonetheless, a
-perfectly accessible alternative, conforming with the design
-principles of the Modus themes. It still is not as good as the
-default colors."
- :init-value nil
- :global t
- (if modus-themes-alt-mode
- (setq modus-operandi-theme-override-colors-alist
- '(("bg-main" . "#fefcf4")
- ("bg-dim" . "#faf6ef")
- ("bg-alt" . "#f7efe5")
- ("bg-hl-line" . "#f4f0e3")
- ("bg-active" . "#e8dfd1")
- ("bg-inactive" . "#f6ece5")
- ("bg-region" . "#c6bab1")
- ("bg-header" . "#ede3e0")
- ("bg-tab-bar" . "#dcd3d3")
- ("bg-tab-active" . "#fdf6eb")
- ("bg-tab-inactive" . "#c8bab8")
- ("fg-unfocused" . "#55556f"))
- modus-vivendi-theme-override-colors-alist
- '(("bg-main" . "#100b17")
- ("bg-dim" . "#161129")
- ("bg-alt" . "#181732")
- ("bg-hl-line" . "#191628")
- ("bg-active" . "#282e46")
- ("bg-inactive" . "#1a1e39")
- ("bg-region" . "#393a53")
- ("bg-header" . "#202037")
- ("bg-tab-bar" . "#262b41")
- ("bg-tab-active" . "#120f18")
- ("bg-tab-inactive" . "#3a3a5a")
- ("fg-unfocused" . "#9a9aab")))
- (setq modus-operandi-theme-override-colors-alist nil
- modus-vivendi-theme-override-colors-alist nil)))
-
-(defun modus-themes-toggle (&optional arg)
- "Toggle between `modus-operandi' and `modus-vivendi' themes.
-
-With optional \\[universal-argument] prefix, enable
-`modus-themes-alt-mode' for the loaded theme."
- (interactive "P")
- (if arg
- (modus-themes-alt-mode 1)
- (modus-themes-alt-mode -1))
- (if (eq (car custom-enabled-themes) 'modus-operandi)
- (progn
- (disable-theme 'modus-operandi)
- (load-theme 'modus-vivendi t))
- (disable-theme 'modus-vivendi)
- (load-theme 'modus-operandi t)))
+(progn
+ (load-theme 'modus-operandi t)
+ (modus-themes-color 'blue)) ; "#0031a9" for `modus-operandi'
+
+(progn
+ (load-theme 'modus-vivendi t)
+ (modus-themes-color 'blue)) ; "#2fafff" for `modus-vivendi'
+@end lisp
+
+Do @samp{C-h v} on the aforementioned variables to check all the available
+symbols that can be passed to this function.
+
+With that granted, let us expand the example to actually change the
+@samp{cursor} face's background property. We employ the built-in function of
+@samp{set-face-attribute}:
+
+@lisp
+(set-face-attribute 'cursor nil :background (modus-themes-color 'blue))
+@end lisp
+
+If you evaluate this form, your cursor will become blue. But if you
+change themes, such as with @samp{modus-themes-toggle}, your edits will be
+lost, because the newly loaded theme will override the @samp{:background}
+attribute you had assigned to that face.
+
+For such changes to persist, we need to make them after loading the
+theme. So we rely on @samp{modus-themes-after-load-theme-hook}, which gets
+called from @samp{modus-themes-load-operandi}, @samp{modus-themes-load-vivendi}, as
+well as the command @samp{modus-themes-toggle}. Here is a sample function that
+tweaks two faces and then gets added to the hook:
+
+@lisp
+(defun my-modus-themes-custom-faces ()
+ (set-face-attribute 'cursor nil :background (modus-themes-color 'blue))
+ (set-face-attribute 'font-lock-type-face nil :foreground (modus-themes-color 'magenta-alt)))
+
+(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces)
+@end lisp
+
+Using this principle, it is possible to override the styles of faces
+without having to find color values for each case.
+
+Another application is to control the precise weight for bold
+constructs. This is particularly useful if your typeface has several
+variants such as ``heavy'', ``extrabold'', ``semibold''. All you have to do
+is edit the @samp{bold} face. For example:
+
+@lisp
+(set-face-attribute 'bold nil :weight 'semibold)
+@end lisp
+
+Remember to use the custom function and hook combo we demonstrated
+above. Because the themes do not hard-wire a specific weight, this
+simple form is enough to change the weight of all bold constructs
+throughout the interface.
+
+Finally, there are cases where you want to tweak colors though wish to
+apply different ones to each theme, say, a blue hue for Modus Operandi
+and a shade of red for Modus Vivendi. To this end, we provide
+@samp{modus-themes-color-alts} as a convenience function to save you from the
+trouble of writing separate wrappers for each theme. It still returns a
+single value by querying either of @samp{modus-themes-colors-operandi} and
+@samp{modus-themes-colors-vivendi}, only here you pass the two keys you want,
+first for @samp{modus-operandi} then @samp{modus-vivendi}.
+
+Take the previous example with the @samp{cursor} face:
+
+@lisp
+;; Blue for `modus-operandi' and red for `modus-vivendi'
+(set-face-attribute 'cursor nil :background (modus-themes-color-alts 'blue 'red))
@end lisp
@printindex cp
@node Font configs (DIY)
-@section Font configurations for Org (and others)
+@section Font configurations for Org and others (DIY)
+
+The themes are designed to cope well with mixed font configurations
+(@xref{No mixed fonts}).
-The themes are designed to cope well with mixed font settings (@ref{No mixed fonts, , Option
-for no font mixing}). Currently this applies to @samp{org-mode} and
-@samp{markdown-mode}.
+This mostly concerns @samp{org-mode} and @samp{markdown-mode}, though expect to find
+it elsewhere like in @samp{Info-mode}.
In practice it means that the user can safely opt for a more
prose-friendly proportionately spaced typeface as their default, while
@@ -1311,8 +1319,8 @@ the @samp{variable-pitch} (proportional spacing) and @samp{fixed-pitch} (monospa
faces respectively. It may also be convenient to set your main typeface
by configuring the @samp{default} face the same way.
-Put something like this in your initialization file (make sure to read
-the documentation of @samp{set-face-attribute}, with @kbd{M-x describe-function}):
+Put something like this in your initialization file (also consider
+reading the doc string of @samp{set-face-attribute}):
@lisp
;; Main typeface
@@ -1327,29 +1335,15 @@ the documentation of @samp{set-face-attribute}, with @kbd{M-x describe-function}
Note the differences in the @samp{:height} property. The @samp{default} face must
specify an absolute value, which is the point size × 10. So if you want
-to use a font at point size @samp{11}, you set the height at @samp{110}.@footnote{@samp{:height}
+to use a font at point size @samp{11}, you set the height to @samp{110}.@footnote{@samp{:height}
values do not need to be rounded to multiples of ten: the likes of @samp{115}
are perfectly valid—some typefaces will change to account for those
finer increments.} Whereas every other face must have a value that is
relative to the default, represented as a floating point (if you use an
-integer, say, @samp{15} then that means an absolute height). This is of
-paramount importantance: it ensures that all fonts can scale gracefully
-when using something like the @samp{text-scale-adjust} command which only
-operates on the base font size (i.e. the @samp{default} face's absolute
-height).
-
-An alternative syntax for the @samp{default} face, is to pass all typeface
-parameters directly to a @samp{font} property.@footnote{Has the benefit of
-accepting @samp{fontconfig} parameters (GNU/Linux), such as @samp{"DejaVu Sans
-Mono-11:hintstyle=hintslight:autohint=false"}.
-@uref{https://www.freedesktop.org/software/fontconfig/fontconfig-user.html}}
-Note that here we use a standard point size:
-
-@lisp
-(set-face-attribute 'default nil :font "DejaVu Sans Mono-11")
-@end lisp
-
-Again, remember to only ever specify an absolute height for the @samp{default}.
+integer, then that means an absolute height). This is of paramount
+importance: it ensures that all fonts can scale gracefully when using
+something like the @samp{text-scale-adjust} command which only operates on the
+base font size (i.e. the @samp{default} face's absolute height).
@printindex cp
@@ -1360,16 +1354,15 @@ Users of @samp{org-mode} have the option to configure various keywords and
priority cookies to better match their workflow. User options are
@samp{org-todo-keyword-faces} and @samp{org-priority-faces}.
-As those are meant to be custom faces, it would be futile to have the
-themes try to guess what each user would want to use, which keywords to
-target, and so on. Instead, we can provide guidelines on how to
-customize things to one's liking with the intent of retaining the
-overall aesthetics of the theme.
+As those are meant to be custom faces, it is futile to have the themes
+guess what each user wants to use, which keywords to target, and so on.
+Instead, we can provide guidelines on how to customize things to one's
+liking with the intent of retaining the overall aesthetic of the themes.
Please bear in mind that the end result of those is not controlled by
-the active theme but by how Org maps faces to its constructs. Editing
-those while @samp{org-mode} is active requires @kbd{M-x org-mode-restart} for changes
-to take effect.
+the active Modus theme but by how Org maps faces to its constructs.
+Editing those while @kbd{org-mode} is active requires @kbd{M-x org-mode-restart} for
+changes to take effect.
Let us assume you wish to visually differentiate your keywords. You
have something like this:
@@ -1409,7 +1402,7 @@ If you want back the defaults, try specifying just the @samp{org-todo} face:
When you inherit from multiple faces, you need to quote the list as
shown further above. The order is important: the last item is applied
over the previous ones. If you do not want to blend multiple faces, you
-do not need a quoted list. A pattern of @samp{keyword . face} would suffice.
+do not need a quoted list. A pattern of @samp{keyword . face} will suffice.
Both approaches can be used simultaneously, as illustrated in this
configuration of the priority cookies:
@@ -1426,9 +1419,87 @@ To find all the faces that are loaded in your current Emacs session, use
the name of each of those Org variables demonstrated above. Their
documentation strings will offer you further guidance.
-Furthermore, consider reading the ``Notes for aspiring Emacs theme
-developers'', published on 2020-08-28 by me (Protesilaos Stavrou):
-@uref{https://protesilaos.com/codelog/2020-08-28-notes-emacs-theme-devs/}.
+Recall that the themes let you retrieve a color from their palette. Do
+it if you plan to control face attributes.
+
+@xref{Tweak faces (DIY)}.
+
+@xref{WCAG test (DIY)}.
+
+@printindex cp
+
+@node WCAG test (DIY)
+@section Check color combinations (DIY)
+
+The themes provide the functions @samp{modus-themes-wcag-formula} and
+@samp{modus-themes-contrast}. The former is a direct implementation of the
+WCAG formula: @uref{https://www.w3.org/TR/WCAG20-TECHS/G18.html}. It gives
+you the relative luminance of a color value that is expressed in
+hexadecimal RGB notation. While the latter function is just a
+convenient wrapper for comparing the luminance of two colors.
+
+In practice, you only likely need @samp{modus-themes-contrast}. It accepts two
+color values and returns their contrast ratio. Values range from 1 to
+21 (lowest to highest). The themes are designed to always be equal or
+higher than 7 for each combination of background and foreground that
+they use (this is the WCAG AAA standard---the most demanding of its
+kind).
+
+A couple of examples (rounded numbers):
+
+@lisp
+;; Pure white with pure green
+(modus-themes-contrast "#ffffff" "#00ff00")
+;; => 1.37
+;; That is an outright inaccessible combo
+
+;; Pure black with pure green
+(modus-themes-contrast "#000000" "#00ff00")
+;; => 15.3
+;; That is is a highly accessible combo
+@end lisp
+
+It does not matter which color value comes first. The ratio is always
+the same.
+
+If you do not wish to read all the decimal points, you can try something
+like this:
+
+@lisp
+(format "%0.2f" (modus-themes-contrast "#000000" "#00ff00"))
+@end lisp
+
+Bear in mind that the themes define an expanded palette in large part
+because certain colors are only meant to be used in combination with
+some others. Consult the source code for relevant commentary. And use
+the resources we covered in this section in case you plan to derive your
+own color combinations.
+
+@printindex cp
+
+@node Load at time (DIY)
+@section Load theme depending on time of day
+
+While we do provide @samp{modus-themes-toggle} to manually switch between the
+themes, users may also set up their system to perform such a task
+automatically at sunrise and sunset.
+
+This can be accomplished by specifying the coordinates of one's location
+using the built-in @samp{solar.el} and then configuring the @samp{circadian} library:
+
+@lisp
+(use-package solar ; built-in
+ :config
+ (setq calendar-latitude 35.17
+ calendar-longitude 33.36))
+
+(use-package circadian ; you need to install this
+ :ensure
+ :after solar
+ (setq circadian-themes '((:sunrise . modus-operandi)
+ (:sunset . modus-vivendi)))
+ (circadian-setup))
+@end lisp
@printindex cp
@@ -1437,14 +1508,13 @@ developers'', published on 2020-08-28 by me (Protesilaos Stavrou):
@node Face coverage
@chapter Face coverage
-Modus Operandi and Modus Vivendi try to provide as close to full face
-coverage as possible. This is necessary to ensure a consistently
-accessible reading experience across all possible interfaces.
+The Modus themes try to provide as close to full face coverage as
+possible. This is necessary to ensure a consistently accessible reading
+experience across all available interfaces.
@menu
* Supported packages:: Full list of covered face groups
-* Covered indirectly::
-* Will NOT be supported::
+* Indirectly covered packages::
@end menu
@node Supported packages
@@ -1519,6 +1589,8 @@ compilation-mode
@item
completions
@item
+consult
+@item
counsel*
@item
counsel-css
@@ -1769,10 +1841,14 @@ lsp-mode
@item
lsp-ui
@item
+macrostep
+@item
magit
@item
magit-imerge
@item
+make-mode
+@item
man
@item
markdown-mode
@@ -1851,6 +1927,8 @@ parrot
@item
pass
@item
+pdf-tools
+@item
persp-mode
@item
perspective
@@ -1863,6 +1941,8 @@ pkgbuild-mode
@item
pomidor
@item
+popup
+@item
powerline
@item
powerline-evil
@@ -1903,8 +1983,12 @@ shell-script-mode
@item
show-paren-mode
@item
+shr
+@item
side-notes
@item
+sieve-mode
+@item
skewer-mode
@item
smart-mode-line
@@ -1959,7 +2043,7 @@ undo-tree
@item
vc (built-in mode line status for version control)
@item
-vc-annotate (@kbd{C-x v g})
+vc-annotate (@samp{C-x v g})
@item
vdiff
@item
@@ -2009,18 +2093,24 @@ ztree
Plus many other miscellaneous faces that are provided by the upstream
GNU Emacs distribution.
-@node Covered indirectly
-@section Covered indirectly
+@node Indirectly covered packages
+@section Indirectly covered packages
These do not require any extra styles because they are configured to
inherit from some basic faces. Please confirm.
@itemize
@item
+bbdb
+@item
edit-indirect
@item
evil-owl
@item
+fortran-mode
+@item
+i3wm-config-mode
+@item
perl-mode
@item
php-mode
@@ -2030,19 +2120,6 @@ rjsx-mode
swift-mode
@end itemize
-@node Will NOT be supported
-@section Will NOT be supported
-
-I have thus far identified a single package that does fit into the
-overarching objective of this project: @uref{https://github.com/hlissner/emacs-solaire-mode, solaire}. It basically tries to
-cast a less intense background on the main file-visiting buffers, so
-that secondary elements like sidebars can have the default (pure
-white/black) background.
-
-I will only cover this package if it ever supports the inverse effect:
-less intense colors (but still accessible) for ancillary interfaces
-and the intended styles for the content you are actually working on.
-
@node Notes for individual packages
@chapter Notes for individual packages
@@ -2053,7 +2130,7 @@ individual packages.
* Note on company-mode overlay pop-up::
* Note for ERC escaped color sequences::
* Note for powerline or spaceline::
-* Note on shr colors::
+* Note on SHR colors::
* Note for Helm grep::
* Note on vc-annotate-background-mode::
@end menu
@@ -2067,7 +2144,7 @@ placed above a piece of text that has a different height than the
default.
The solution recommended by the project's maintainer is to use an
-alternative front-end for drawing the pop-up which uses child frames
+alternative front-end for drawing the pop-up which draws child frames
instead of overlays.@footnote{@uref{https://github.com/company-mode/company-mode/issues/1010}}@footnote{@uref{https://github.com/tumashu/company-posframe/}}
@node Note for ERC escaped color sequences
@@ -2087,10 +2164,10 @@ separated by a comma. Like this @samp{^C1,6}. The minimum setup is this:
erc-interpret-mirc-color t)
@end lisp
-As this allows users to make arbitrary combinations, it is impossible to
-guarantee a consistently high contrast ratio. All we can we do is
-provide guidance on the combinations that satisfy the accessibility
-standard of the themes:
+As this allows users the chance to make arbitrary combinations, it is
+impossible to guarantee a consistently high contrast ratio. All we can
+we do is provide guidance on the combinations that satisfy the
+accessibility standard of the themes:
@table @asis
@item Modus Operandi
@@ -2112,12 +2189,12 @@ Both Powerline and Spaceline package users will likely need to use the
command @samp{powerline-reset} whenever they make changes to their themes
and/or modeline setup.
-@node Note on shr colors
-@section Note on shr colors
+@node Note on SHR colors
+@section Note on SHR colors
-Emacs' HTML rendering mechanism (@samp{shr}) may need explicit configuration to
-respect the theme's colors instead of whatever specifications the
-webpage provides. Consult @kbd{C-h v shr-use-colors}.
+Emacs' HTML rendering library (@samp{shr.el}) may need explicit configuration
+to respect the theme's colors instead of whatever specifications the
+webpage provides. Consult @samp{C-h v shr-use-colors}.
@node Note for Helm grep
@section Note for Helm grep
@@ -2128,7 +2205,7 @@ matches of a grep or grep-like command (@samp{ag} or @samp{ripgrep}). It is
not pass @samp{--color=always} as a command-line option for their command.
Here is the docstring for that face, which is defined in the
-@samp{helm-grep.el} library (view a library with @samp{M-x find-library}).
+@samp{helm-grep.el} library (view a library with @kbd{M-x find-library}).
@quotation
Face used to highlight grep matches. Have no effect when grep backend
@@ -2152,7 +2229,7 @@ ANSI color number 1 (red) from the already-supported array of
@node Note on vc-annotate-background-mode
@section Note on vc-annotate-background-mode
-Due to the unique way @samp{vc-annotate} (@kbd{C-x v g}) applies colors, support for
+Due to the unique way @samp{vc-annotate} (@samp{C-x v g}) applies colors, support for
its background mode (@samp{vc-annotate-background-mode}) is disabled at the
theme level.
@@ -2163,7 +2240,7 @@ while still supporting a useful built-in tool.
If there actually is a way to avoid such a course of action, without
prejudice to the accessibility standard of this project, then please
-report as much or send patches (see @ref{Contributing}).
+report as much or send patches (see @xref{Contributing}).
@node Contributing
@chapter Contributing
@@ -2187,7 +2264,7 @@ next development release target.
The source code of the themes is @uref{https://gitlab.com/protesilaos/modus-themes/, available on Gitlab}, for the time
being. A @uref{https://github.com/protesilaos/modus-themes/, mirror on Github} is also on offer.
-An HTML version of this manual is available as an extension to the
+An HTML version of this manual is provided as an extension of the
@uref{https://protesilaos.com/modus-themes/, author's personal website} (does not rely on any non-free code).
@node Issues you can help with
@@ -2212,10 +2289,10 @@ Help expand this document or any other piece of documentation.
Merge requests for code refinements.
@end itemize
-@xref{Merge requests, , Patches require copyright assignment to the FSF}.
+@xref{Merge requests}.
-It would be great if your feedback also includes some screenshots, GIFs,
-or short videos, as well as further instructions to reproduce a given
+It is preferable that your feedback includes some screenshots, GIFs, or
+short videos, as well as further instructions to reproduce a given
setup. Though this is not a requirement.
Whatever you do, bear in mind the overarching objective of the Modus
@@ -2283,47 +2360,51 @@ your changes? Do you attend a school which might make such a claim?]
[Which files have you changed so far, and which new files have you written
so far?]
-Changed a couple of themes that are part of the Emacs source code:
-
-./etc/themes/modus-operandi-theme.el
-./etc/themes/modus-vivendi-theme.el
@end example
@node Acknowledgements
@chapter Acknowledgements
-The Modus themes are a collective effort. Every contribution counts.
+The Modus themes are a collective effort. Every bit of work matters.
@table @asis
@item Author/maintainer
Protesilaos Stavrou.
-@item Code contributions
-Anders Johansson, Basil L@. Contovounesios,
-Markus Beppler, Matthew Stevenson.
+@item Contributions to code or documentation
+Anders Johansson, Basil
+L@. Contovounesios, Eli Zaretskii, Madhavan Krishnan, Markus Beppler,
+Matthew Stevenson, Shreyas Ragavan, Stefan Kangas, Vincent Murphy.
@item Ideas and user feedback
Aaron Jensen, Adam Spiers, Alex Griffin,
-Alex Peitsinis, Alexey Shmalko, Anders Johansson, André Alexandre
-Gomes, Arif Rezai, Basil L@. Contovounesios, Damien Cassou, Dario
-Gjorgjevski, David Edmondson, Davor Rotim, Divan Santana, Gerry
-Agbobada, Gianluca Recchia, Iris Garcia, Len Trigg, Manuel Uberti,
-Mark Burton, Markus Beppler, Michael Goldenberg, Murilo Pereira,
-Nicolas De Jaeghere, Pierre Téchoueyres, Roman Rudakov, Ryan Phillips,
-Shreyas Ragavan, Tassilo Horn, Thibaut Verron, Trey Merkley, Uri
-Sharf, Utkarsh Singh, Vincent Foley. As well as users: Ben,
-Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, dinko, doolio, jixiuf,
-okamsn, tycho garen.
+Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders Johansson, André
+Alexandre Gomes, Arif Rezai, Basil L@. Contovounesios, Damien Cassou,
+Daniel Mendler, Dario Gjorgjevski, David Edmondson, Davor Rotim, Divan
+Santana, Gerry Agbobada, Gianluca Recchia, Hörmetjan Yiltiz, Ilja
+Kocken, Iris Garcia, Jeremy Friesen, John Haman, Len Trigg, Manuel
+Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Murilo
+Pereira, Nicolas De Jaeghere, Paul Poloskov, Pete Kazmier, Pierre
+Téchoueyres, Roman Rudakov, Ryan Phillips, Shreyas Ragavan, Simon
+Pugnet, Tassilo Horn, Thibaut Verron, Trey Merkley, Togan Muftuoglu,
+Uri Sharf, Utkarsh Singh, Vincent Foley. As well as users: Ben, Emacs
+Contrib, Eugene, Fourchaux, Fredrik, Moesasji, Nick, TheBlob42,
+bepolymathe, dinko, doolio, fleimgruber, iSeeU, jixiuf, okamsn, tycho
+garen.
@item Packaging
Dhavan Vaidya (Debian), Stefan Kangas (core Emacs),
Stefan Monnier (GNU Elpa).
@item Inspiration for certain features
-Fabrice Niessen (leuven-theme),
-Bozhidar Batsov (zenburn-theme).
+Bozhidar Batsov (zenburn-theme),
+Fabrice Niessen (leuven-theme).
@end table
+Special thanks, in no particular order, to Manuel Uberti and Omar
+Antolín Camarena for their long time contributions and insightful
+commentary.
+
@node Meta
@chapter Meta
@@ -2348,7 +2429,7 @@ of this sort):
@uref{https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/, Modus themes: review of blue colours} (2020-09-14)
@end itemize
-And here are the canonical sources for this project's documentation:
+And here are the canonical sources of this project's documentation:
@table @asis
@item Manual
@@ -2781,19 +2862,19 @@ public wiki that anybody can edit is an example of such a server. A
"Massive Multiauthor Collaboration" (or "MMC") contained in the site
means any set of copyrightable works thus published on the MMC site.
-"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0
-license published by Creative Commons Corporation, a not-for-profit
-corporation with a principal place of business in San Francisco,
-California, as well as future copyleft versions of that license
+"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0
+license published by Creative Commons Corporation, a not-for-profit
+corporation with a principal place of business in San Francisco,
+California, as well as future copyleft versions of that license
published by that same organization.
-"Incorporate" means to publish or republish a Document, in whole or in
+"Incorporate" means to publish or republish a Document, in whole or in
part, as part of another Document.
-An MMC is "eligible for relicensing" if it is licensed under this
-License, and if all works that were first published under this License
-somewhere other than this MMC, and subsequently incorporated in whole or
-in part into the MMC, (1) had no cover texts or invariant sections, and
+An MMC is "eligible for relicensing" if it is licensed under this
+License, and if all works that were first published under this License
+somewhere other than this MMC, and subsequently incorporated in whole or
+in part into the MMC, (1) had no cover texts or invariant sections, and
(2) were thus incorporated prior to November 1, 2008.
The operator of an MMC Site may republish an MMC contained in the site
diff --git a/etc/NEWS b/etc/NEWS
index 525ed8b36e..3db87cd6e5 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1673,10 +1673,9 @@ It's a library to create, query, navigate and display hierarchy structures.
** New themes 'modus-vivendi' and 'modus-operandi'.
These themes are designed to conform with the highest standard for
-color-contrast accessibility (WCAG AAA). You can load either of them
-using 'M-x customize-themes' or 'load-theme' from your init file.
-Consult the Modus Themes Info manual for more information on the user
-options they provide.
+color-contrast accessibility (WCAG AAA). Consult the Modus Themes
+Info manual for more information on how to enable and load them, as we
+all as how to configure the user options they provide.
\f
* Incompatible Editing Changes in Emacs 28.1
diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el
deleted file mode 100644
index db61c97b76..0000000000
--- a/etc/themes/modus-operandi-theme.el
+++ /dev/null
@@ -1,4666 +0,0 @@
-;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://gitlab.com/protesilaos/modus-themes
-;; Version: 0.13.0
-;; Package-Requires: ((emacs "26.1"))
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This theme is designed for colour-contrast accessibility.
-;;
-;; 1. Provide a consistent minimum contrast ratio between background and
-;; foreground values of 7:1 or higher. This meets the highest such
-;; accessibility criterion per the guidelines of the Worldwide Web
-;; Consortium's Working Group on Accessibility (WCAG AAA standard).
-;;
-;; 2. Offer as close to full face coverage as possible. The list is
-;; already quite long (see further below), with more additions to follow
-;; as part of the ongoing development process.
-;;
-;; The theme provides the following customisation options, all of which
-;; are disabled by default:
-;;
-;; modus-operandi-theme-slanted-constructs (boolean)
-;; modus-operandi-theme-bold-constructs (boolean)
-;; modus-operandi-theme-variable-pitch-headings (boolean)
-;; modus-operandi-theme-no-mixed-fonts (boolean)
-;; modus-operandi-theme-headings (alist)
-;; modus-operandi-theme-scale-headings (boolean)
-;; modus-operandi-theme-fringes (choice)
-;; modus-operandi-theme-org-blocks (choice)
-;; modus-operandi-theme-prompts (choice)
-;; modus-operandi-theme-mode-line (choice)
-;; modus-operandi-theme-diffs (choice)
-;; modus-operandi-theme-faint-syntax (boolean)
-;; modus-operandi-theme-intense-hl-line (boolean)
-;; modus-operandi-theme-intense-paren-match (boolean)
-;; modus-operandi-theme-no-link-underline (boolean)
-;; modus-operandi-theme-completions (choice)
-;; modus-operandi-theme-override-colors-alist (alist)
-;;
-;; The default scale is as follows (it can be customised as well):
-;;
-;; modus-operandi-theme-scale-1 1.05
-;; modus-operandi-theme-scale-2 1.1
-;; modus-operandi-theme-scale-3 1.15
-;; modus-operandi-theme-scale-4 1.2
-;; modus-operandi-theme-scale-5 1.3
-;;
-;; What follows is the list of explicitly supported packages or face
-;; groups (there are implicitly supported packages as well, which
-;; inherit from font-lock or some basic group). You are encouraged to
-;; notify me of any missing package or change you would like to see.
-;;
-;; ace-window
-;; ag
-;; alert
-;; all-the-icons
-;; annotate
-;; anzu
-;; apropos
-;; apt-sources-list
-;; artbollocks-mode
-;; auctex and TeX
-;; auto-dim-other-buffers
-;; avy
-;; awesome-tray
-;; binder
-;; bm
-;; bongo
-;; boon
-;; breakpoint (provided by built-in gdb-mi.el)
-;; buffer-expose
-;; calendar and diary
-;; calfw
-;; centaur-tabs
-;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
-;; cider
-;; circe
-;; color-rg
-;; column-enforce-mode
-;; company-mode
-;; company-posframe
-;; compilation-mode
-;; completions
-;; counsel
-;; counsel-css
-;; counsel-notmuch
-;; counsel-org-capture-string
-;; cov
-;; cperl-mode
-;; csv-mode
-;; ctrlf
-;; custom (M-x customize)
-;; dap-mode
-;; dashboard (emacs-dashboard)
-;; deadgrep
-;; debbugs
-;; define-word
-;; deft
-;; dictionary
-;; diff-hl
-;; diff-mode
-;; dim-autoload
-;; dir-treeview
-;; dired
-;; dired-async
-;; dired-git
-;; dired-git-info
-;; dired-narrow
-;; dired-subtree
-;; diredfl
-;; disk-usage
-;; doom-modeline
-;; dynamic-ruler
-;; easy-jekyll
-;; easy-kill
-;; ebdb
-;; ediff
-;; eglot
-;; el-search
-;; eldoc
-;; eldoc-box
-;; elfeed
-;; elfeed-score
-;; emms
-;; enhanced-ruby-mode
-;; epa
-;; equake
-;; erc
-;; eros
-;; ert
-;; eshell
-;; eshell-fringe-status
-;; eshell-git-prompt
-;; eshell-prompt-extras (epe)
-;; eshell-syntax-highlighting
-;; evil (evil-mode)
-;; evil-goggles
-;; evil-visual-mark-mode
-;; eww
-;; eyebrowse
-;; fancy-dabbrev
-;; flycheck
-;; flycheck-color-mode-line
-;; flycheck-indicator
-;; flycheck-posframe
-;; flymake
-;; flyspell
-;; flyspell-correct
-;; flx
-;; freeze-it
-;; frog-menu
-;; focus
-;; fold-this
-;; font-lock (generic syntax highlighting)
-;; forge
-;; fountain (fountain-mode)
-;; geiser
-;; git-commit
-;; git-gutter (and variants)
-;; git-lens
-;; git-rebase
-;; git-timemachine
-;; git-walktree
-;; gnus
-;; golden-ratio-scroll-screen
-;; helm
-;; helm-ls-git
-;; helm-switch-shell
-;; helm-xref
-;; helpful
-;; highlight-blocks
-;; highlight-defined
-;; highlight-escape-sequences (`hes-mode')
-;; highlight-indentation
-;; highlight-numbers
-;; highlight-symbol
-;; highlight-tail
-;; highlight-thing
-;; hl-defined
-;; hl-fill-column
-;; hl-line-mode
-;; hl-todo
-;; hydra
-;; hyperlist
-;; ibuffer
-;; icomplete
-;; ido-mode
-;; iedit
-;; iflipb
-;; imenu-list
-;; indium
-;; info
-;; info-colors
-;; interaction-log
-;; ioccur
-;; isearch, occur, etc.
-;; ivy
-;; ivy-posframe
-;; jira (org-jira)
-;; journalctl-mode
-;; js2-mode
-;; julia
-;; jupyter
-;; kaocha-runner
-;; keycast
-;; line numbers (`display-line-numbers-mode' and global variant)
-;; lsp-mode
-;; lsp-ui
-;; magit
-;; magit-imerge
-;; man
-;; markdown-mode
-;; markup-faces (`adoc-mode')
-;; mentor
-;; messages
-;; minibuffer-line
-;; minimap
-;; modeline
-;; mood-line
-;; mpdel
-;; mu4e
-;; mu4e-conversation
-;; multiple-cursors
-;; neotree
-;; no-emoji
-;; notmuch
-;; num3-mode
-;; nxml-mode
-;; objed
-;; orderless
-;; org
-;; org-journal
-;; org-noter
-;; org-pomodoro
-;; org-recur
-;; org-roam
-;; org-superstar
-;; org-table-sticky-header
-;; org-treescope
-;; origami
-;; outline-mode
-;; outline-minor-faces
-;; package (M-x list-packages)
-;; page-break-lines
-;; paradox
-;; paren-face
-;; parrot
-;; pass
-;; persp-mode
-;; perspective
-;; phi-grep
-;; phi-search
-;; pkgbuild-mode
-;; pomidor
-;; powerline
-;; powerline-evil
-;; proced
-;; prodigy
-;; racket-mode
-;; rainbow-blocks
-;; rainbow-identifiers
-;; rainbow-delimiters
-;; rcirc
-;; regexp-builder (also known as `re-builder')
-;; rg
-;; ripgrep
-;; rmail
-;; ruler-mode
-;; sallet
-;; selectrum
-;; semantic
-;; sesman
-;; shell-script-mode
-;; show-paren-mode
-;; side-notes
-;; skewer-mode
-;; smart-mode-line
-;; smartparens
-;; smerge
-;; spaceline
-;; speedbar
-;; spell-fu
-;; stripes
-;; suggest
-;; switch-window
-;; swiper
-;; swoop
-;; sx
-;; symbol-overlay
-;; tab-bar-mode
-;; tab-line-mode
-;; syslog-mode
-;; table (built-in table.el)
-;; telephone-line
-;; term
-;; tomatinho
-;; transient (pop-up windows like Magit's)
-;; trashed
-;; treemacs
-;; tty-menu
-;; tuareg
-;; typescript
-;; undo-tree
-;; vc (built-in mode line status for version control)
-;; vc-annotate (C-x v g)
-;; vdiff
-;; vimish-fold
-;; visible-mark
-;; visual-regexp
-;; volatile-highlights
-;; vterm
-;; wcheck-mode
-;; web-mode
-;; wgrep
-;; which-function-mode
-;; which-key
-;; whitespace-mode
-;; window-divider-mode
-;; winum
-;; writegood-mode
-;; woman
-;; xah-elisp-mode
-;; xref
-;; xterm-color (and ansi-colors)
-;; yaml-mode
-;; yasnippet
-;; ztree
-
-;;; Code:
-
-\f
-
-(deftheme modus-operandi
- "Light theme that conforms with the highest accessibility
- standard for colour contrast between background and
- foreground elements (WCAG AAA).")
-
-;;; Custom faces
-
-;; These faces will be inherited by actual constructs. They are meant
-;; for those cases where a face needs to distinguish its output from
-;; the rest of the text, such as `isearch' and `occur'… We define
-;; these separately in order to combine each colour with its
-;; appropriate foreground value. This is to ensure a consistent
-;; contrast ratio of >= 7:1.
-(defgroup modus-theme ()
- "Theme that ensures WCAG AAA accessibility (contrast ratio
-between foreground and background is >= 7:1)."
- :group 'faces
- :prefix "modus-theme-"
- :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes")
- :tag "Modus Operandi")
-
-(defface modus-theme-subtle-red nil nil)
-(defface modus-theme-subtle-green nil nil)
-(defface modus-theme-subtle-yellow nil nil)
-(defface modus-theme-subtle-blue nil nil)
-(defface modus-theme-subtle-magenta nil nil)
-(defface modus-theme-subtle-cyan nil nil)
-(defface modus-theme-subtle-neutral nil nil)
-(defface modus-theme-intense-red nil nil)
-(defface modus-theme-intense-green nil nil)
-(defface modus-theme-intense-yellow nil nil)
-(defface modus-theme-intense-blue nil nil)
-(defface modus-theme-intense-magenta nil nil)
-(defface modus-theme-intense-cyan nil nil)
-(defface modus-theme-intense-neutral nil nil)
-(defface modus-theme-refine-red nil nil)
-(defface modus-theme-refine-green nil nil)
-(defface modus-theme-refine-yellow nil nil)
-(defface modus-theme-refine-blue nil nil)
-(defface modus-theme-refine-magenta nil nil)
-(defface modus-theme-refine-cyan nil nil)
-(defface modus-theme-active-red nil nil)
-(defface modus-theme-active-green nil nil)
-(defface modus-theme-active-yellow nil nil)
-(defface modus-theme-active-blue nil nil)
-(defface modus-theme-active-magenta nil nil)
-(defface modus-theme-active-cyan nil nil)
-(defface modus-theme-fringe-red nil nil)
-(defface modus-theme-fringe-green nil nil)
-(defface modus-theme-fringe-yellow nil nil)
-(defface modus-theme-fringe-blue nil nil)
-(defface modus-theme-fringe-magenta nil nil)
-(defface modus-theme-fringe-cyan nil nil)
-(defface modus-theme-nuanced-red nil nil)
-(defface modus-theme-nuanced-green nil nil)
-(defface modus-theme-nuanced-yellow nil nil)
-(defface modus-theme-nuanced-blue nil nil)
-(defface modus-theme-nuanced-magenta nil nil)
-(defface modus-theme-nuanced-cyan nil nil)
-(defface modus-theme-special-cold nil nil)
-(defface modus-theme-special-mild nil nil)
-(defface modus-theme-special-warm nil nil)
-(defface modus-theme-special-calm nil nil)
-(defface modus-theme-diff-added nil nil)
-(defface modus-theme-diff-changed nil nil)
-(defface modus-theme-diff-removed nil nil)
-(defface modus-theme-diff-refine-added nil nil)
-(defface modus-theme-diff-refine-changed nil nil)
-(defface modus-theme-diff-refine-removed nil nil)
-(defface modus-theme-diff-focus-added nil nil)
-(defface modus-theme-diff-focus-changed nil nil)
-(defface modus-theme-diff-focus-removed nil nil)
-(defface modus-theme-diff-heading nil nil)
-(defface modus-theme-pseudo-header nil nil)
-(defface modus-theme-mark-alt nil nil)
-(defface modus-theme-mark-del nil nil)
-(defface modus-theme-mark-sel nil nil)
-(defface modus-theme-mark-symbol nil nil)
-(defface modus-theme-heading-1 nil nil)
-(defface modus-theme-heading-2 nil nil)
-(defface modus-theme-heading-3 nil nil)
-(defface modus-theme-heading-4 nil nil)
-(defface modus-theme-heading-5 nil nil)
-(defface modus-theme-heading-6 nil nil)
-(defface modus-theme-heading-7 nil nil)
-(defface modus-theme-heading-8 nil nil)
-(defface modus-theme-hl-line nil nil)
-
-;;; Customisation options
-
-;; User-facing customisation options. They are all deactivated by
-;; default (users must opt in).
-(defcustom modus-operandi-theme-slanted-constructs nil
- "Use slanted text in more code constructs (italics or oblique)."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-bold-constructs nil
- "Use bold text in more code constructs."
- :type 'boolean)
-
-(define-obsolete-variable-alias 'modus-operandi-theme-proportional-fonts
- 'modus-operandi-theme-variable-pitch-headings "`modus-operandi-theme' 0.11.0")
-
-(defcustom modus-operandi-theme-proportional-fonts nil
- "Use proportional fonts (variable-pitch) in headings."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-variable-pitch-headings nil
- "Use proportional fonts (variable-pitch) in headings."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-no-mixed-fonts nil
- "Disable inheritance from `fixed-pitch' in some faces.
-
-This is done by default 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'.
-The downside with the default is that users need to explicitly
-configure the font family of `fixed-pitch' in order to get a
-consistent experience. That may be something they do not want to
-do. Hence this option to disable any kind of technique for
-mixing fonts."
- :type 'boolean)
-
-(make-obsolete 'modus-operandi-theme-rainbow-headings
- 'modus-operandi-theme-headings
- "`modus-operandi-theme' 0.13.0")
-
-(defcustom modus-operandi-theme-rainbow-headings nil
- "Use more saturated colours for headings."
- :type 'boolean)
-
-(make-obsolete 'modus-operandi-theme-section-headings
- 'modus-operandi-theme-headings
- "`modus-operandi-theme' 0.13.0")
-
-(defcustom modus-operandi-theme-section-headings nil
- "Use a background and an overline in headings."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-headings
- '((t . nil))
- "Alist of styles for headings, with optional value per level.
-
-To control faces per level from 1-8, use something like this:
-
- (setq modus-operandi-theme-headings
- '((1 . highlight)
- (2 . line)
- (t . rainbow-line-no-bold)))
-
-To set a uniform value for all heading levels, use this pattern:
-
- (setq modus-operandi-theme-headings
- '((t . rainbow-line-no-bold)))
-
-The default uses a fairly desaturated foreground value in
-combination with a bold typographic weight. To specify this
-style for a given level N (assuming you wish to have another
-fallback option), just specify the value t like this:
-
- (setq modus-operandi-theme-headings
- '((1 . t)
- (2 . line)
- (t . rainbow-line-no-bold)))
-
-A description of all possible values:
-
-+ `no-bold' retains the default text colour while removing
- the typographic weight.
-
-+ `line' is the same as the default plus an overline over the
- heading.
-
-+ `line-no-bold' is the same as `line' without bold weight.
-
-+ `rainbow' uses a more colourful foreground in combination
- with bold weight.
-
-+ `rainbow-line' is the same as `rainbow' plus an overline.
-
-+ `rainbow-line-no-bold' is the same as `rainbow-line' without
- the bold weight.
-
-+ `highlight' retains the default style of a fairly desaturated
- foreground combined with a bold weight and add to it a subtle
- accented background.
-
-+ `highlight-no-bold' is the same as `highlight' without a bold
- weight.
-
-+ `rainbow-highlight' is the same as `highlight' but with a more
- colourful foreground.
-
-+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight'
- without a bold weight.
-
-+ `section' retains the default looks and adds to them both an
- overline and a slightly accented background. It is, in effect,
- a combination of the `line' and `highlight' values.
-
-+ `section-no-bold' is the same as `section' without a bold
- weight.
-
-+ `rainbow-section' is the same as `section' but with a more
- colourful foreground.
-
-+ `rainbow-section-no-bold' is the same as `rainbow-section'
- without a bold weight."
- :type
- '(alist
- :key-type symbol
- :value-type
- (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t)
- (const :tag "Like the default without bold weight" no-bold)
- (const :tag "Like the default plus overline" line)
- (const :tag "Like `line' without bold weight" line-no-bold)
- (const :tag "Like the default but with more colourful foreground" rainbow)
- (const :tag "Like `rainbow' plus overline" rainbow-line)
- (const :tag "Like `rainbow' without bold weight" rainbow-no-bold)
- (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold)
- (const :tag "Like the default plus subtle background" highlight)
- (const :tag "Like `highlight' without bold weight" highlight-no-bold)
- (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight)
- (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold)
- (const :tag "Like `highlight' plus overline" section)
- (const :tag "Like `section' without bold weight" section-no-bold)
- (const :tag "Like `section' with more colourful foreground" rainbow-section)
- (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold))))
-
-(defcustom modus-operandi-theme-scale-headings nil
- "Use font scaling for headings."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-scale-1 1.05
- "Font size that is slightly larger than the base value.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-operandi-theme-scale-2 1.1
- "Font size slightly larger than `modus-operandi-theme-scale-1'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-operandi-theme-scale-3 1.15
- "Font size slightly larger than `modus-operandi-theme-scale-2'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-operandi-theme-scale-4 1.2
- "Font size slightly larger than `modus-operandi-theme-scale-3'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-operandi-theme-scale-5 1.3
- "Font size slightly larger than `modus-operandi-theme-scale-4'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(make-obsolete 'modus-operandi-theme-visible-fringes
- 'modus-operandi-theme-fringes
- "`modus-operandi-theme' 0.12.0")
-
-(defcustom modus-operandi-theme-visible-fringes nil
- "Use a visible style for fringes."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-fringes nil
- "Define the visibility of fringes.
-
-Nil means the fringes have no background colour. Option `subtle'
-will apply a greyscale value that is visible yet close to the
-main buffer background colour. Option `intense' will use a more
-pronounced greyscale value."
- :type '(choice
- (const :tag "No visible fringes (default)" nil)
- (const :tag "Subtle greyscale background" subtle)
- (const :tag "Intense greyscale background" intense)))
-
-(make-obsolete 'modus-operandi-theme-distinct-org-blocks
- 'modus-operandi-theme-org-blocks
- "`modus-operandi-theme' 0.11.0")
-
-(defcustom modus-operandi-theme-distinct-org-blocks nil
- "Use a distinct neutral background for `org-mode' blocks."
- :type 'boolean)
-
-(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks
- 'modus-operandi-theme-org-blocks
- "`modus-operandi-theme' 0.11.0")
-
-(defcustom modus-operandi-theme-rainbow-org-src-blocks nil
- "Use colour-coded backgrounds for `org-mode' source blocks.
-The colour in use depends on the language (send feedback to
-include more languages)."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-org-blocks nil
- "Use a subtle grey or colour-coded background for Org blocks.
-
-Nil means that the block will have no background of its own and
-will use the default that applies to the rest of the buffer.
-
-Option `greyscale' will apply a subtle neutral grey background to
-the block's contents. It also affects the begin and end lines of
-the block: their background will be extended to the edge of the
-window for Emacs version >= 27 where the ':extend' keyword is
-recognised by `set-face-attribute'.
-
-Option `rainbow' will use an accented background for the contents
-of the block. The exact colour will depend on the programming
-language and is controlled by the `org-src-block-faces'
-variable (refer to the theme's source code for the current
-association list)."
- :type '(choice
- (const :tag "No Org block background (default)" nil)
- (const :tag "Subtle grey block background" greyscale)
- (const :tag "Colour-coded background per programming language" rainbow)))
-
-(make-obsolete 'modus-operandi-theme-3d-modeline
- 'modus-operandi-theme-mode-line
- "`modus-operandi-theme' 0.13.0")
-
-(defcustom modus-operandi-theme-3d-modeline nil
- "Use a three-dimensional style for the active mode line."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-mode-line nil
- "Adjust the overall style of the mode line.
-
-Nil is a two-dimensional rectangle with a border around it. The
-active and the inactive modelines use different shades of
-greyscale values for the background and foreground.
-
-A `3d' value will apply a three-dimensional effect to the active
-modeline. The inactive modelines remain two-dimensional and are
-toned down a bit, relative to the nil value.
-
-The `moody' option is meant to optimise the modeline for use with
-the library of the same name. This practically means to remove
-the box effect and rely on underline and overline properties
-instead. It also tones down the inactive modelines. Despite its
-intended purpose, this option can also be used without the
-`moody' library."
- :type '(choice
- (const :tag "Two-dimensional box (default)" nil)
- (const :tag "Three-dimensional style for the active mode line" 3d)
- (const :tag "No box effects, which are optimal for use with the `moody' library" moody)))
-
-(make-obsolete 'modus-operandi-theme-subtle-diffs
- 'modus-operandi-theme-diffs
- "`modus-operandi-theme' 0.13.0")
-
-(defcustom modus-operandi-theme-subtle-diffs nil
- "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-diffs nil
- "Adjust the overall styles of diffs.
-
-Nil means to use fairly intense colour combinations for diffs.
-For example, you get a rich green background with a green
-foreground for added lines. Word-wise or 'refined' diffs follow
-the same pattern but use different shades of those colours to
-remain distinct.
-
-A `desaturated' value follows the same principles as with the nil
-option, while it tones down all relevant colours.
-
-Option `fg-only' will remove all accented backgrounds, except
-from word-wise changes. It instead uses colour-coded foreground
-values to differentiate between added/removed/changed lines. If
-a background is necessary, such as with `ediff', then a subtle
-greyscale value is used."
- :type '(choice
- (const :tag "Intensely coloured backgrounds (default)" nil)
- (const :tag "Slightly accented backgrounds with tinted text" desaturated)
- (const :tag "No backgrounds, except for refined diffs" fg-only)))
-
-(make-obsolete 'modus-operandi-theme-intense-standard-completions
- 'modus-operandi-theme-completions
- "`modus-operandi-theme' 0.12.0")
-
-(defcustom modus-operandi-theme-intense-standard-completions nil
- "Use prominent backgrounds for Icomplete, Ido, or similar."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-completions nil
- "Apply special styles to the UI of completion frameworks.
-
-This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as
-any other tool meant to enhance their experience. The effect
-will vary depending on the completion framework.
-
-Nil means to remain faithful to the metaphors that each UI
-establishes. For example, Icomplete and Ido only use foreground
-colours to style their matches, whereas Ivy or Helm rely on an
-aesthetic that combines coloured backgrounds with appropriate
-text colour.
-
-Option `moderate' will apply a combination of background and
-foreground that is fairly subtle. For Icomplete and the like,
-this constitutes a departure from their standard style. While
-Ivy, Helm, and the others, will use less pronounced colours for
-applicable contexts.
-
-Option `opinionated' will apply colour combinations that
-refashion the completion UI. So Icomplete et al will now use
-styles that resemble the defaults of Ivy and co., while the
-latter group will revert to an even more nuanced aesthetic."
- :type '(choice
- (const :tag "Respect the framework's established aesthetic (default)" nil)
- (const :tag "Subtle backgrounds for various elements" moderate)
- (const :tag "Radical alternative to the framework's looks" opinionated)))
-
-(defcustom modus-operandi-theme-prompts nil
- "Use subtle or intense styles for minibuffer and REPL prompts.
-
-Nil means to only use an accented foreground colour.
-
-Options `subtle' and `intense' will change both the background
-and the foreground values. The latter has a more pronounced
-effect than the former."
- :type '(choice
- (const :tag "No prompt background (default)" nil)
- (const :tag "Subtle accented background for the prompt" subtle)
- (const :tag "Intense background and foreground for the prompt" intense)))
-
-(defcustom modus-operandi-theme-intense-hl-line nil
- "Use more prominent background for command `hl-line-mode'."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-intense-paren-match nil
- "Use more prominent colour for parenthesis matching."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-faint-syntax nil
- "Use less saturated colours for code syntax highlighting."
- :type 'boolean)
-
-(defcustom modus-operandi-theme-no-link-underline nil
- "Do not underline links."
- :type 'boolean)
-
-;;; Internal functions
-
-;; Helper functions that are meant to ease the implementation of the
-;; above customisation options.
-(defun modus-operandi-theme-bold-weight ()
- "Conditional use of a heavier text weight."
- (when modus-operandi-theme-bold-constructs
- (list :inherit 'bold)))
-
-(defun modus-operandi-theme-mixed-fonts ()
- "Conditional application of `fixed-pitch' inheritance."
- (unless modus-operandi-theme-no-mixed-fonts
- (list :inherit 'fixed-pitch)))
-
-(defun modus-operandi-theme-fringe (subtlebg intensebg)
- "Conditional use of background colours for fringes.
-SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a
-more pronounced greyscale colour."
- (pcase modus-operandi-theme-fringes
- ('intense (list :background intensebg))
- ('subtle (list :background subtlebg))
- (_ (list :background nil))))
-
-(defun modus-operandi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg)
- "Conditional use of background colours for prompts.
-MAINFG is the prompt's standard foreground. SUBTLEBG should be a
-subtle accented background that works with SUBTLEFG. INTENSEBG
-must be a more pronounced accented colour that should be
-combinable with INTENSEFG."
- (pcase modus-operandi-theme-prompts
- ('intense (list :background intensebg :foreground intensefg))
- ('subtle (list :background subtlebg :foreground subtlefg))
- (_ (list :background nil :foreground mainfg))))
-
-(defun modus-operandi-theme-paren (normalbg intensebg)
- "Conditional use of intense colours for matching parentheses.
-NORMALBG should the special palette colour 'bg-paren-match' or
-something similar. INTENSEBG must be easier to discern next to
-other backgrounds, such as the special palette colour
-'bg-paren-match-intense'."
- (if modus-operandi-theme-intense-paren-match
- (list :background intensebg)
- (list :background normalbg)))
-
-(defun modus-operandi-theme-syntax-foreground (normal faint)
- "Apply foreground value to code syntax.
-NORMAL is the more saturated colour, which should be the default.
-FAINT is the less saturated colour."
- (if modus-operandi-theme-faint-syntax
- (list :foreground faint)
- (list :foreground normal)))
-
-(defun modus-operandi-theme-heading-p (key)
- "Query style of KEY in `modus-operandi-theme-headings'."
- (cdr (assoc key modus-operandi-theme-headings)))
-
-(defun modus-operandi-theme-heading (level fg fg-alt bg border)
- "Conditional styles for `modus-operandi-theme-headings'.
-
-LEVEL is the heading's position in their order. FG is the
-default text colour. FG-ALT is an accented, more saturated value
-than the default. BG is a nuanced, typically accented,
-background that can work well with either of the foreground
-values. BORDER is a colour value that combines well with the
-background and alternative foreground."
- (let* ((key (modus-operandi-theme-heading-p `,level))
- (style (or key (modus-operandi-theme-heading-p t)))
- (var (if modus-operandi-theme-variable-pitch-headings
- 'variable-pitch
- 'default)))
- (pcase style
- ('no-bold
- (list :inherit `,var :foreground fg))
- ('line
- (list :inherit `(bold ,var) :foreground fg :overline border))
- ('line-no-bold
- (list :inherit `,var :foreground fg :overline border))
- ('rainbow
- (list :inherit `(bold ,var) :foreground fg-alt))
- ('rainbow-no-bold
- (list :inherit `,var :foreground fg-alt))
- ('rainbow-line
- (list :inherit `(bold ,var) :foreground fg-alt :overline border))
- ('rainbow-line-no-bold
- (list :inherit `,var :foreground fg-alt :overline border))
- ('highlight
- (list :inherit `(bold ,var) :background bg :foreground fg))
- ('highlight-no-bold
- (list :inherit `,var :background bg :foreground fg))
- ('rainbow-highlight
- (list :inherit `(bold ,var) :background bg :foreground fg-alt))
- ('rainbow-highlight-no-bold
- (list :inherit `,var :background bg :foreground fg-alt))
- ('section
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `(bold ,var) :background bg :foreground fg :overline border)))
- ('section-no-bold
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `,var :background bg :foreground fg :overline border)))
- ('rainbow-section
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border)))
- ('rainbow-section-no-bold
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `,var :background bg :foreground fg-alt :overline border)))
- (_
- (list :inherit `(bold ,var) :foreground fg)))))
-
-(defun modus-operandi-theme-org-block (bgblk)
- "Conditionally set the background of Org blocks.
-BGBLK applies to a distinct neutral background. Else blocks have
-no background of their own (the default), so they look the same
-as the rest of the buffer.
-
-`modus-operandi-theme-org-blocks' also accepts a `rainbow' option
-which is applied conditionally to `org-src-block-faces' (see the
-theme's source code)."
- (if (eq modus-operandi-theme-org-blocks 'greyscale)
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :background bgblk))
- (list :background nil)))
-
-(defun modus-operandi-theme-org-block-delim (bgaccent fgaccent bg fg)
- "Conditionally set the styles of Org block delimiters.
-BG, FG, BGACCENT, FGACCENT apply a background and foreground
-colour respectively.
-
-The former pair is a greyscale combination that should be more
-distinct than the background of the block. It is applied to the
-default styles or when `modus-operandi-theme-org-blocks' is set
-to `greyscale'.
-
-The latter pair should be more subtle than the background of the
-block, as it is used when `modus-operandi-theme-org-blocks' is
-set to `rainbow'."
- (pcase modus-operandi-theme-org-blocks
- ('greyscale (append (and (>= emacs-major-version 27) '(:extend t))
- (list :background bg :foreground fg)))
- ('rainbow (list :background bgaccent :foreground fgaccent))
- (_ (list :background bg :foreground fg))))
-
-(defun modus-operandi-theme-mode-line-attrs
- (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant)
- "Colour combinations for `modus-operandi-theme-mode-line'.
-
-FG and BG are the default colours. FG-ALT and BG-ALT are meant
-to accommodate the options for a 3D modeline or a `moody'
-compliant one. BORDER applies to all permutations of the
-modeline, except the three-dimensional effect, where BORDER-3D is
-used instead.
-
-Optional ALT-STYLE applies an appropriate style to the mode
-line's box property.
-
-Optional BORDER-WIDTH specifies an integer for the width of the
-rectangle that produces the box effect.
-
-Optional FG-DISTANT should be close to the main background
-values. It is intended to be used as a distant-foreground
-property."
- (pcase modus-operandi-theme-mode-line
- ('3d
- `(:background ,bg-alt :foreground ,fg-alt
- :box (:line-width ,(or border-width 1)
- :color ,border-3d
- :style ,(and alt-style 'released-button))))
- ('moody
- `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border
- :distant-foreground ,fg-distant))
- (_
- `(:foreground ,fg :background ,bg :box ,border))))
-
-(defun modus-operandi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg)
- "Colour combinations for `modus-operandi-theme-diffs'.
-
-FG-ONLY-BG should be similar or the same as the main background.
-FG-ONLY-FG should be a saturated accent value that can be
-combined with the former.
-
-MAINBG must be one of the dedicated backgrounds for diffs while
-MAINFG must be the same for the foreground.
-
-ALTBG needs to be a slightly accented background that is meant to
-be combined with ALTFG. Both must be less intense than MAINBG
-and MAINFG respectively."
- (pcase modus-operandi-theme-diffs
- ('fg-only (list :background fg-only-bg :foreground fg-only-fg))
- ('desaturated (list :background altbg :foreground altfg))
- (_ (list :background mainbg :foreground mainfg))))
-
-(defun modus-operandi-theme-standard-completions (mainfg subtlebg intensebg intensefg)
- "Combinations for `modus-operandi-theme-completions'.
-
-MAINFG is an accented foreground value. SUBTLEBG is an accented
-background value that can be combined with MAINFG. INTENSEBG and
-INTENSEFG are accented colours that are designed to be used in
-tandem.
-
-These are intended for Icomplete, Ido, and related."
- (pcase modus-operandi-theme-completions
- ('opinionated (list :background intensebg :foreground intensefg))
- ('moderate (list :background subtlebg :foreground mainfg))
- (_ (list :foreground mainfg))))
-
-(defun modus-operandi-theme-extra-completions (subtleface intenseface altface &optional altfg bold)
- "Combinations for `modus-operandi-theme-completions'.
-
-SUBTLEFACE and INTENSEFACE are custom theme faces that combine a
-background and foreground value. The difference between the two
-is a matter of degree.
-
-ALTFACE is a combination of colours that represents a departure
-from the UI's default aesthetics. Optional ALTFG is meant to be
-used in tandem with it.
-
-Optional BOLD will apply a heavier weight to the text.
-
-These are intended for Helm, Ivy, etc."
- (pcase modus-operandi-theme-completions
- ('opinionated (list :inherit (list altface bold)
- :foreground (or altfg 'unspecified)))
- ('moderate (list :inherit (list subtleface bold)))
- (_ (list :inherit (list intenseface bold)))))
-
-(defun modus-operandi-theme-scale (amount)
- "Scale heading by AMOUNT.
-
-AMOUNT is a customisation option."
- (when modus-operandi-theme-scale-headings
- (list :height amount)))
-
-;;; Colour palette
-
-;; Define colour palette. Each colour must have a >= 7:1 contrast
-;; ratio relative to the foreground/background colour it is rendered
-;; against.
-;;
-;; The design of the colour palette as a macro that maps it to faces is
-;; adapted from zenbern-theme.el, last seen at commit 7dd7968:
-;; https://github.com/bbatsov/zenburn-emacs
-(eval-and-compile
- (defconst modus-operandi-theme-default-colors-alist
- '(;; base values
- ("bg-main" . "#ffffff") ("fg-main" . "#000000")
- ("bg-alt" . "#f0f0f0") ("fg-alt" . "#505050")
- ("bg-dim" . "#f8f8f8") ("fg-dim" . "#282828")
- ;; specifically for on/off states (e.g. `mode-line')
- ;;
- ;; must be combined with themselves
- ("bg-active" . "#d7d7d7") ("fg-active" . "#0a0a0a")
- ("bg-inactive" . "#efefef") ("fg-inactive" . "#404148")
- ;; special base values, used only for cases where the above
- ;; fg-* or bg-* cannot or should not be used (to avoid confusion)
- ;; must be combined with: {fg,bg}-{main,alt,dim}
- ("bg-special-cold" . "#dde3f4") ("fg-special-cold" . "#093060")
- ("bg-special-mild" . "#c4ede0") ("fg-special-mild" . "#184034")
- ("bg-special-warm" . "#f0e0d4") ("fg-special-warm" . "#5d3026")
- ("bg-special-calm" . "#f8ddea") ("fg-special-calm" . "#61284f")
- ;; styles for the main constructs
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red" . "#a60000") ("green" . "#005e00")
- ("yellow" . "#813e00") ("blue" . "#0031a9")
- ("magenta" . "#721045") ("cyan" . "#00538b")
- ;; styles for common, but still specialised constructs
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-alt" . "#972500") ("green-alt" . "#315b00")
- ("yellow-alt" . "#70480f") ("blue-alt" . "#2544bb")
- ("magenta-alt" . "#8f0075") ("cyan-alt" . "#30517f")
- ;; same purpose as above, just slight differences
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-alt-other" . "#a0132f") ("green-alt-other" . "#145c33")
- ("yellow-alt-other" . "#863927") ("blue-alt-other" . "#0000c0")
- ("magenta-alt-other" . "#5317ac") ("cyan-alt-other" . "#005a5f")
- ;; styles for desaturated foreground text, intended for use with
- ;; the `modus-operandi-theme-faint-syntax' option
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-faint" . "#7f1010") ("green-faint" . "#104410")
- ("yellow-faint" . "#5f4400") ("blue-faint" . "#002f88")
- ("magenta-faint" . "#752f50") ("cyan-faint" . "#12506f")
-
- ("red-alt-faint" . "#702f00") ("green-alt-faint" . "#30440f")
- ("yellow-alt-faint" . "#5d5000") ("blue-alt-faint" . "#003f78")
- ("magenta-alt-faint" . "#702565") ("cyan-alt-faint" . "#354f6f")
-
- ("red-alt-other-faint" . "#7f002f") ("green-alt-other-faint" . "#0f443f")
- ("yellow-alt-other-faint" . "#5e3a20") ("blue-alt-other-faint" . "#1f2f6f")
- ("magenta-alt-other-faint" . "#5f3f7f") ("cyan-alt-other-faint" . "#2e584f")
- ;; styles for elements that should be very subtle, yet accented
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of
- ;; the "nuanced" backgrounds
- ("red-nuanced" . "#5f0000") ("green-nuanced" . "#004000")
- ("yellow-nuanced" . "#3f3000") ("blue-nuanced" . "#201f55")
- ("magenta-nuanced" . "#541f4f") ("cyan-nuanced" . "#0f3360")
- ;; styles for slightly accented background
- ;;
- ;; must be combined with any of the above foreground values
- ("red-nuanced-bg" . "#fff1f0") ("green-nuanced-bg" . "#ecf7ed")
- ("yellow-nuanced-bg" . "#fff3da") ("blue-nuanced-bg" . "#f3f3ff")
- ("magenta-nuanced-bg" . "#fdf0ff") ("cyan-nuanced-bg" . "#ebf6fa")
- ;; styles for elements that should draw attention to themselves
- ;;
- ;; must be combined with: `bg-main'
- ("red-intense" . "#b60000") ("green-intense" . "#006800")
- ("yellow-intense" . "#904200") ("blue-intense" . "#1111ee")
- ("magenta-intense" . "#7000e0") ("cyan-intense" . "#205b93")
- ;; styles for background elements that should be visible yet
- ;; subtle
- ;;
- ;; must be combined with: `fg-dim'
- ("red-subtle-bg" . "#f2b0a2") ("green-subtle-bg" . "#aecf90")
- ("yellow-subtle-bg" . "#e4c340") ("blue-subtle-bg" . "#b5d0ff")
- ("magenta-subtle-bg" . "#f0d3ff") ("cyan-subtle-bg" . "#c0efff")
- ;; styles for background elements that should be visible and
- ;; distinguishable
- ;;
- ;; must be combined with: `fg-main'
- ("red-intense-bg" . "#ff8892") ("green-intense-bg" . "#5ada88")
- ("yellow-intense-bg" . "#f5df23") ("blue-intense-bg" . "#6aaeff")
- ("magenta-intense-bg" . "#d5baff") ("cyan-intense-bg" . "#42cbd4")
- ;; styles for refined contexts where both the foreground and the
- ;; background need to have the same/similar hue
- ;;
- ;; must be combined with themselves OR the foregrounds can be
- ;; combined with any of the base backgrounds
- ("red-refine-bg" . "#ffcccc") ("red-refine-fg" . "#780000")
- ("green-refine-bg" . "#aceaac") ("green-refine-fg" . "#004c00")
- ("yellow-refine-bg" . "#fff29a") ("yellow-refine-fg" . "#604000")
- ("blue-refine-bg" . "#8ac7ff") ("blue-refine-fg" . "#002288")
- ("magenta-refine-bg" . "#ffccff") ("magenta-refine-fg" . "#770077")
- ("cyan-refine-bg" . "#8eecf4") ("cyan-refine-fg" . "#004850")
- ;; styles that are meant exclusively for the mode line
- ;;
- ;; must be combined with: `bg-active', `bg-inactive'
- ("red-active" . "#8a0000") ("green-active" . "#004c2e")
- ("yellow-active" . "#702d1f") ("blue-active" . "#0030b4")
- ("magenta-active" . "#5c2092") ("cyan-active" . "#003f8a")
- ;; styles that are meant exclusively for the fringes
- ;;
- ;; must be combined with `fg-main'
- ("red-fringe-bg" . "#f08290") ("green-fringe-bg" . "#62c86a")
- ("yellow-fringe-bg" . "#dbba3f") ("blue-fringe-bg" . "#82afff")
- ("magenta-fringe-bg" . "#e0a3ff") ("cyan-fringe-bg" . "#2fcddf")
- ;; styles reserved for specific faces
- ;;
- ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should
- ;; work with all accents that cover those two, plus `bg-main'
- ;;
- ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no
- ;; other greyscale or fairly neutral background is available to
- ;; properly draw attention to a given construct
- ;;
- ;; `bg-header' is between `bg-active' and `bg-inactive', so it
- ;; can be combined with any of the "active" values, plus the
- ;; "special" and base foreground colours
- ;;
- ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and
- ;; `bg-tab-active' must be combined with `fg-main', while
- ;; `bg-tab-inactive' should be combined with `fg-dim'
- ;;
- ;; `bg-tab-bar' is only intended for the bar that holds the tabs and
- ;; can only be combined with `fg-main'
- ;;
- ;; `fg-tab-active' is meant to be combined with `bg-tab-active',
- ;; though only for styling special elements, such as underlining
- ;; the current tab
- ;;
- ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can
- ;; be combined `bg-main', `bg-dim', `bg-alt'
- ;;
- ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be
- ;; combined with `bg-main', `bg-dim', `bg-alt'
- ;;
- ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined
- ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line'
- ;;
- ;; `fg-unfocused' must be combined with `fg-main'
- ;;
- ;; the window divider colours apply to faces with just an fg value
- ;;
- ;; all pairs are combinable with themselves
- ("bg-hl-line" . "#f2eff3")
- ("bg-hl-line-intense" . "#e0e0e0")
- ("bg-hl-alt" . "#fbeee0")
- ("bg-hl-alt-intense" . "#e8dfd1")
- ("bg-paren-match" . "#e0af82")
- ("bg-paren-match-intense" . "#c488ff")
- ("bg-region" . "#bcbcbc")
-
- ("bg-tab-bar" . "#d5d5d5")
- ("bg-tab-active" . "#f6f6f6")
- ("bg-tab-inactive" . "#bdbdbd")
- ("fg-tab-active" . "#30169e")
-
- ("fg-escape-char-construct" . "#8b1030")
- ("fg-escape-char-backslash" . "#654d0f")
-
- ("fg-lang-error" . "#9f004f")
- ("fg-lang-warning" . "#604f0f")
- ("fg-lang-note" . "#4040ae")
-
- ("fg-window-divider-inner" . "#888888")
- ("fg-window-divider-outer" . "#585858")
-
- ("fg-unfocused" . "#56576d")
-
- ("bg-header" . "#e5e5e5") ("fg-header" . "#2a2a2a")
-
- ("bg-whitespace" . "#fff8fc") ("fg-whitespace" . "#645060")
-
- ("bg-diff-heading" . "#b7c2dd") ("fg-diff-heading" . "#043355")
- ("bg-diff-added" . "#d4fad4") ("fg-diff-added" . "#004500")
- ("bg-diff-changed" . "#fcefcf") ("fg-diff-changed" . "#524200")
- ("bg-diff-removed" . "#ffe8ef") ("fg-diff-removed" . "#691616")
-
- ("bg-diff-refine-added" . "#94cf94") ("fg-diff-refine-added" . "#002a00")
- ("bg-diff-refine-changed" . "#cccf8f") ("fg-diff-refine-changed" . "#302010")
- ("bg-diff-refine-removed" . "#daa2b0") ("fg-diff-refine-removed" . "#400000")
-
- ("bg-diff-focus-added" . "#bbeabb") ("fg-diff-focus-added" . "#002c00")
- ("bg-diff-focus-changed" . "#ecdfbf") ("fg-diff-focus-changed" . "#392900")
- ("bg-diff-focus-removed" . "#efcbcf") ("fg-diff-focus-removed" . "#4a0000")
-
- ("bg-diff-neutral-0" . "#979797") ("fg-diff-neutral-0" . "#040404")
- ("bg-diff-neutral-1" . "#b0b0b0") ("fg-diff-neutral-1" . "#252525")
- ("bg-diff-neutral-2" . "#cccccc") ("fg-diff-neutral-2" . "#3a3a3a")
-
- ("bg-mark-sel" . "#a0f0cf") ("fg-mark-sel" . "#005040")
- ("bg-mark-del" . "#ffccbb") ("fg-mark-del" . "#840040")
- ("bg-mark-alt" . "#f5d88f") ("fg-mark-alt" . "#782900"))
- "The entire palette of `modus-operandi-theme'.
-Each element has the form (NAME . HEX).")
-
- (defcustom modus-operandi-theme-override-colors-alist '()
- "Association list of palette colour overrides.
-Values can be mapped to variables, using the same syntax as the
-one present in `modus-operandi-theme-default-colors-alist'.
-
-This is only meant for do-it-yourself usage, with the
-understanding that the user is responsible for the resulting
-contrast ratio between new and existing colours."
- :type '(alist
- :key-type (string :tag "Name")
- :value-type (string :tag " Hex")))
-
- (defmacro modus-operandi-theme-with-color-variables (&rest body)
- "`let' bind all colours around BODY.
-Also bind `class' to ((class color) (min-colors 89))."
- (declare (indent 0))
- `(let ((class '((class color) (min-colors 89)))
- ,@(mapcar (lambda (cons)
- (list (intern (car cons)) (cdr cons)))
- (append modus-operandi-theme-default-colors-alist
- modus-operandi-theme-override-colors-alist))
- ;; simple conditional styles that evaluate user-facing
- ;; customisation options
- (modus-theme-slant
- (if modus-operandi-theme-slanted-constructs 'italic 'normal))
- (modus-theme-variable-pitch
- (if modus-operandi-theme-variable-pitch-headings 'variable-pitch 'default)))
- ,@body)))
-
-\f
-
-;;; Faces
-
-(modus-operandi-theme-with-color-variables
- (custom-theme-set-faces
- 'modus-operandi
-;;;; custom faces
- ;; these bespoke faces are inherited by other constructs below
-;;;;; subtle coloured backgrounds
- `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; intense coloured backgrounds
- `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main)))
-;;;;; refined background and foreground combinations
- ;; general purpose styles that use an accented foreground against an
- ;; accented background
- `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg)))
- `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg)))
- `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg)))
- `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg)))
- `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg)))
- `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg)))
-;;;;; "active" combinations, mostly for use on the mode line
- `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active)))
- `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active)))
- `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active)))
- `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active)))
- `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active)))
- `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active)))
-;;;;; nuanced backgrounds
- ;; useful for adding an accented background that is suitable for all
- ;; main foreground colours (intended for use in Org source blocks)
- `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
-;;;;; fringe-specific combinations
- `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main)))
-;;;;; special base values
- ;; these are closer to the grayscale than the accents defined above
- ;; and should only be used when the next closest alternative would be
- ;; a greyscale value than an accented one
- `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild)))
- `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm)))
- `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm)))
-;;;;; diff-specific combinations
- ;; intended for `diff-mode' or equivalent
- `(modus-theme-diff-added
- ((,class ,@(modus-operandi-theme-diff
- bg-main green
- bg-diff-focus-added fg-diff-focus-added
- green-nuanced-bg fg-diff-added))))
- `(modus-theme-diff-changed
- ((,class ,@(modus-operandi-theme-diff
- bg-main yellow
- bg-diff-focus-changed fg-diff-focus-changed
- yellow-nuanced-bg fg-diff-changed))))
- `(modus-theme-diff-removed
- ((,class ,@(modus-operandi-theme-diff
- bg-main red
- bg-diff-focus-removed fg-diff-focus-removed
- red-nuanced-bg fg-diff-removed))))
- `(modus-theme-diff-refine-added
- ((,class ,@(modus-operandi-theme-diff
- bg-diff-added fg-diff-added
- bg-diff-refine-added fg-diff-refine-added
- bg-diff-focus-added fg-diff-focus-added))))
- `(modus-theme-diff-refine-changed
- ((,class ,@(modus-operandi-theme-diff
- bg-diff-changed fg-diff-changed
- bg-diff-refine-changed fg-diff-refine-changed
- bg-diff-focus-changed fg-diff-focus-changed))))
- `(modus-theme-diff-refine-removed
- ((,class ,@(modus-operandi-theme-diff
- bg-diff-removed fg-diff-removed
- bg-diff-refine-removed fg-diff-refine-removed
- bg-diff-focus-removed fg-diff-focus-removed))))
- `(modus-theme-diff-focus-added
- ((,class ,@(modus-operandi-theme-diff
- bg-dim green
- bg-diff-focus-added fg-diff-focus-added
- bg-diff-added fg-diff-added))))
- `(modus-theme-diff-focus-changed
- ((,class ,@(modus-operandi-theme-diff
- bg-dim yellow
- bg-diff-focus-changed fg-diff-focus-changed
- bg-diff-changed fg-diff-changed))))
- `(modus-theme-diff-focus-removed
- ((,class ,@(modus-operandi-theme-diff
- bg-dim red
- bg-diff-focus-removed fg-diff-focus-removed
- bg-diff-removed fg-diff-removed))))
- `(modus-theme-diff-heading
- ((,class ,@(modus-operandi-theme-diff
- bg-alt blue-alt
- bg-diff-heading fg-diff-heading
- blue-nuanced-bg blue))))
-;;;;; mark indicators
- ;; colour combinations intended for Dired, Ibuffer, or equivalent
- `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main)))
- `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt)))
- `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del)))
- `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel)))
- `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt)))
-;;;;; heading levels
- ;; styles for regular headings used in Org, Markdown, Info, etc.
- `(modus-theme-heading-1
- ((,class ,@(modus-operandi-theme-heading
- 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region)
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(modus-theme-heading-2
- ((,class ,@(modus-operandi-theme-heading
- 2 fg-special-warm magenta-alt red-nuanced-bg bg-region)
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3))))
- `(modus-theme-heading-3
- ((,class ,@(modus-operandi-theme-heading
- 3 fg-special-cold blue blue-nuanced-bg bg-region)
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2))))
- `(modus-theme-heading-4
- ((,class ,@(modus-operandi-theme-heading
- 4 fg-special-mild cyan cyan-nuanced-bg bg-region)
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1))))
- `(modus-theme-heading-5
- ((,class ,@(modus-operandi-theme-heading
- 5 fg-special-calm green-alt-other green-nuanced-bg bg-region))))
- `(modus-theme-heading-6
- ((,class ,@(modus-operandi-theme-heading
- 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region))))
- `(modus-theme-heading-7
- ((,class ,@(modus-operandi-theme-heading
- 7 red-nuanced red-alt red-nuanced-bg bg-region))))
- `(modus-theme-heading-8
- ((,class ,@(modus-operandi-theme-heading
- 8 fg-dim magenta bg-alt bg-region))))
-;;;;; other custom faces
- `(modus-theme-hl-line ((,class :background ,(if modus-operandi-theme-intense-hl-line
- bg-hl-line-intense bg-hl-line)
- (and (>= emacs-major-version 27) '(:extend t)))))
-;;;; standard faces
-;;;;; absolute essentials
- `(default ((,class :background ,bg-main :foreground ,fg-main)))
- `(cursor ((,class :background ,fg-main)))
- `(fringe ((,class ,@(modus-operandi-theme-fringe bg-inactive bg-active)
- :foreground ,fg-main)))
- `(vertical-border ((,class :foreground ,fg-window-divider-inner)))
-;;;;; basic and/or ungrouped styles
- ;; Modify the `bold' face to change the weight of all "bold" elements
- ;; defined by the theme. You need a typeface that supports a
- ;; multitude of heavier weights than the regular one and then you
- ;; must specify the exact name of the one you wish to apply. Example
- ;; for your init.el:
- ;;
- ;; (set-face-attribute 'bold nil :weight 'semibold)
- `(bold ((,class :weight bold)))
- `(comint-highlight-input ((,class :inherit bold)))
- `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight)
- ,@(modus-operandi-theme-prompt
- cyan
- blue-nuanced-bg blue-alt
- blue-refine-bg fg-main))))
- `(error ((,class :inherit bold :foreground ,red)))
- `(escape-glyph ((,class :foreground ,fg-escape-char-construct)))
- `(file-name-shadow ((,class :foreground ,fg-unfocused)))
- `(header-line ((,class :background ,bg-header :foreground ,fg-header)))
- `(header-line-highlight ((,class :inherit modus-theme-active-blue)))
- `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant)))
- `(homoglyph ((,class :foreground ,fg-escape-char-construct)))
- `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other)))
- `(italic ((,class :slant italic)))
- `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct)))
- `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t)))
- `(minibuffer-prompt ((,class ,@(modus-operandi-theme-prompt
- cyan-alt-other
- cyan-nuanced-bg cyan
- cyan-refine-bg fg-main))))
- `(mm-command-output ((,class :foreground ,red-alt-other)))
- `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(next-error ((,class :inherit modus-theme-subtle-red)))
- `(rectangle-preview ((,class :inherit modus-theme-special-mild)))
- `(region ((,class :background ,bg-region :foreground ,fg-main)))
- `(secondary-selection ((,class :inherit modus-theme-special-cold)))
- `(shadow ((,class :foreground ,fg-alt)))
- `(success ((,class :inherit bold :foreground ,green)))
- `(trailing-whitespace ((,class :background ,red-intense-bg)))
- `(warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; buttons, links, widgets
- `(button ((,class :foreground ,blue-alt-other
- ,@(unless modus-operandi-theme-no-link-underline
- (list :underline t)))))
- `(link ((,class :inherit button)))
- `(link-visited ((,class :inherit link :foreground ,magenta-alt-other)))
- `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main)))
- `(widget-button ((,class :inherit button)))
- `(widget-button-pressed ((,class :inherit button :foreground ,magenta)))
- `(widget-documentation ((,class :foreground ,green)))
- `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim)))
- `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(widget-single-line-field ((,class :inherit widget-field)))
-;;;;; ag
- `(ag-hit-face ((,class :foreground ,fg-special-cold)))
- `(ag-match-face ((,class :inherit modus-theme-special-calm)))
-;;;;; alert
- `(alert-high-face ((,class :inherit bold :foreground ,red-alt)))
- `(alert-low-face ((,class :foreground ,fg-special-mild)))
- `(alert-moderate-face ((,class :inherit bold :foreground ,yellow)))
- `(alert-trivial-face ((,class :foreground ,fg-special-calm)))
- `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense)))
-;;;;; all-the-icons
- `(all-the-icons-blue ((,class :foreground ,blue)))
- `(all-the-icons-blue-alt ((,class :foreground ,blue-alt)))
- `(all-the-icons-cyan ((,class :foreground ,cyan)))
- `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt)))
- `(all-the-icons-dblue ((,class :foreground ,blue-alt-other)))
- `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other)))
- `(all-the-icons-dgreen ((,class :foreground ,green-alt-other)))
- `(all-the-icons-dired-dir-face ((,class :foreground ,blue)))
- `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other)))
- `(all-the-icons-dorange ((,class :foreground ,red-alt-other)))
- `(all-the-icons-dpink ((,class :foreground ,magenta)))
- `(all-the-icons-dpurple ((,class :foreground ,magenta-alt)))
- `(all-the-icons-dred ((,class :foreground ,red)))
- `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-dyellow ((,class :foreground ,yellow)))
- `(all-the-icons-green ((,class :foreground ,green)))
- `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg)))
- `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg)))
- `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg)))
- `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lorange ((,class :foreground ,red-refine-fg)))
- `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lred ((,class :foreground ,red-refine-fg)))
- `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg)))
- `(all-the-icons-maroon ((,class :foreground ,magenta)))
- `(all-the-icons-orange ((,class :foreground ,red-alt)))
- `(all-the-icons-pink ((,class :foreground ,magenta)))
- `(all-the-icons-purple ((,class :foreground ,magenta-alt)))
- `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other)))
- `(all-the-icons-red ((,class :foreground ,red)))
- `(all-the-icons-red-alt ((,class :foreground ,red-alt)))
- `(all-the-icons-silver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-yellow ((,class :foreground ,yellow)))
-;;;;; annotate
- `(annotate-annotation ((,class :inherit modus-theme-subtle-blue)))
- `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green)))
- `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense)))
- `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense)))
-;;;;; anzu
- `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan)))
- `(anzu-match-2 ((,class :inherit modus-theme-subtle-green)))
- `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow)))
- `(anzu-mode-line ((,class :inherit bold :foreground ,green-active)))
- `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active)))
- `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t)))
- `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; apropos
- `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other)))
- `(apropos-keybinding ((,class :inherit bold :foreground ,cyan)))
- `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other)))
- `(apropos-property ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt)))
- `(apropos-symbol ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other)))
- `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other)))
- `(apropos-variable-button ((,class :inherit button :foreground ,blue)))
-;;;;; apt-sources-list
- `(apt-sources-list-components ((,class :foreground ,cyan)))
- `(apt-sources-list-options ((,class :foreground ,yellow)))
- `(apt-sources-list-suite ((,class :foreground ,green)))
- `(apt-sources-list-type ((,class :foreground ,magenta)))
- `(apt-sources-list-uri ((,class :foreground ,blue)))
-;;;;; artbollocks-mode
- `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note)))
- `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
- `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning)))
- `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error)))
-;;;;; auctex and Tex
- `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm)))
- `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(font-latex-doctex-preprocessor-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-alt-other)))
- `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic)))
- `(font-latex-math-face ((,class :foreground ,cyan-alt-other)))
- `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other)))
- `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced)))
- `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced)))
- `(font-latex-sedate-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(font-latex-string-face ((,class :foreground ,blue-alt)))
- `(font-latex-subscript-face ((,class :height 0.95)))
- `(font-latex-superscript-face ((,class :height 0.95)))
- `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(font-latex-warning-face ((,class :foreground ,yellow-alt-other)))
- `(tex-match ((,class :foreground ,blue-alt-other)))
- `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(texinfo-heading ((,class :foreground ,magenta)))
- `(TeX-error-description-error ((,class :inherit bold :foreground ,red)))
- `(TeX-error-description-help ((,class :foreground ,blue)))
- `(TeX-error-description-tex-said ((,class :foreground ,blue)))
- `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; auto-dim-other-buffers
- `(auto-dim-other-buffers-face ((,class :background ,bg-alt)))
-;;;;; avy
- `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold))))
- `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold))))
- `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold))))
- `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold))))
- `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; aw (ace-window)
- `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(aw-key-face ((,class :inherit bold :foreground ,blue-intense)))
- `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense)))
- `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active)))
- `(aw-mode-line-face ((,class :inherit bold)))
-;;;;; awesome-tray
- `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other)))
- `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt)))
- `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim)))
- `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt)))
- `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta)))
- `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow)))
- `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green)))
- `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan)))
- `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; binder
- `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan)))
- `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel)))
- `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red)))
- `(binder-sidebar-tags ((,class :foreground ,cyan)))
-;;;;; bm
- `(bm-face ((,class :inherit modus-theme-subtle-yellow
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow)))
- `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue)))
- `(bm-persistent-face ((,class :inherit modus-theme-intense-blue
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
-;;;;; bongo
- `(bongo-album-title ((,class :foreground ,cyan-active)))
- `(bongo-artist ((,class :foreground ,magenta-active)))
- `(bongo-currently-playing-track ((,class :inherit bold)))
- `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t)))
- `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
- `(bongo-marked-track ((,class :foreground ,fg-mark-alt)))
- `(bongo-marked-track-line ((,class :background ,bg-mark-alt)))
- `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t)))
- `(bongo-track-length ((,class :foreground ,blue-alt-other)))
- `(bongo-track-title ((,class :foreground ,blue-active)))
- `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main)))
-;;;;; boon
- `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue)))
- `(boon-modeline-ins ((,class :inherit modus-theme-active-red)))
- `(boon-modeline-off ((,class :inherit modus-theme-active-yellow)))
- `(boon-modeline-spc ((,class :inherit modus-theme-active-green)))
-;;;;; breakpoint (built-in gdb-mi.el)
- `(breakpoint-disabled ((,class :foreground ,fg-alt)))
- `(breakpoint-enabled ((,class :inherit bold :foreground ,red)))
-;;;;; buffer-expose
- `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active)))
- `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active)))
- `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild)))
-;;;;; calendar and diary
- `(calendar-month-header ((,class :inherit bold :foreground ,fg-main)))
- `(calendar-today ((,class :underline t)))
- `(calendar-weekday-header ((,class :foreground ,fg-dim)))
- `(calendar-weekend-header ((,class :foreground ,fg-alt)))
- `(diary ((,class :foreground ,cyan-alt-other)))
- `(diary-anniversary ((,class :foreground ,red-alt-other)))
- `(diary-time ((,class :foreground ,blue-alt)))
- `(holiday ((,class :foreground ,magenta-alt)))
-;;;;; calfw
- `(cfw:face-annotation ((,class :foreground ,fg-special-warm)))
- `(cfw:face-day-title ((,class :foreground ,fg-main)))
- `(cfw:face-default-content ((,class :foreground ,green-alt)))
- `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold))))
- `(cfw:face-disable ((,class :foreground ,fg-unfocused)))
- `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer)))
- `(cfw:face-header ((,class :inherit bold :foreground ,fg-main)))
- `(cfw:face-holiday ((,class :foreground ,magenta-alt-other)))
- `(cfw:face-periods ((,class :foreground ,cyan-alt-other)))
- `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(cfw:face-select ((,class :inherit modus-theme-intense-blue)))
- `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch
- :foreground ,fg-special-cold
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5))))
- `(cfw:face-today ((,class :background ,bg-inactive)))
- `(cfw:face-today-title ((,class :background ,bg-active)))
- `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt)))
- `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt)))
- `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg
- :foreground ,blue-alt)))
-;;;;; centaur-tabs
- `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active)))
- `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t)))
- `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected)))
- `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected)))
- `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected)))
- `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected)))
- `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main)))
- `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main)))
- `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic)))
- `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim)))
- `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic)))
-;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
- `(change-log-acknowledgment ((,class :foreground ,fg-alt)))
- `(change-log-conditionals ((,class :foreground ,magenta-alt)))
- `(change-log-date ((,class :foreground ,cyan-alt-other)))
- `(change-log-email ((,class :foreground ,cyan)))
- `(change-log-file ((,class :foreground ,blue)))
- `(change-log-function ((,class :foreground ,green-alt-other)))
- `(change-log-list ((,class :foreground ,magenta-alt-other)))
- `(change-log-name ((,class :foreground ,cyan)))
- `(log-edit-header ((,class :foreground ,fg-special-warm)))
- `(log-edit-summary ((,class :inherit bold :foreground ,cyan)))
- `(log-edit-unknown-header ((,class :foreground ,fg-alt)))
- `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(log-view-message ((,class :foreground ,fg-alt)))
-;;;;; cider
- `(cider-debug-code-overlay-face ((,class :background ,bg-alt)))
- `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t)))
- `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow)))
- `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(cider-docview-literal-face ((,class :foreground ,blue-alt)))
- `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(cider-docview-table-border-face ((,class :foreground ,fg-alt)))
- `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim)))
- `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(cider-error-highlight-face ((,class :foreground ,red :underline t)))
- `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow)))
- `(cider-fringe-good-face ((,class :foreground ,green-active)))
- `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim)))
- `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic)))
- `(cider-repl-input-face ((,class :inherit bold)))
- `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
- `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red)))
- `(cider-repl-stdout-face ((,class :foreground ,blue)))
- `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim)))
- `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red)))
- `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic)))
- `(cider-stacktrace-face ((,class :foreground ,fg-main)))
- `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t)))
- `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt)))
- `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main)))
- `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic)))
- `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red)))
- `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button)
- :background ,bg-alt :foreground ,fg-alt)))
- `(cider-test-error-face ((,class :inherit modus-theme-subtle-red)))
- `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold))))
- `(cider-test-success-face ((,class :inherit modus-theme-intense-green)))
- `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim)))
- `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t)))
-;;;;; circe (and lui)
- `(circe-fool-face ((,class :foreground ,fg-alt)))
- `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue)))
- `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(circe-server-face ((,class :foreground ,fg-unfocused)))
- `(lui-button-face ((,class :inherit button :foreground ,blue)))
- `(lui-highlight-face ((,class :foreground ,magenta-alt)))
- `(lui-time-stamp-face ((,class :foreground ,blue-nuanced)))
-;;;;; color-rg
- `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other)))
- `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main)))
- `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue)))
- `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm)))
- `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active)))
- `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active)))
- `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active)))
- `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active)))
- `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm)))
- `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue)))
- `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red)))
- `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm)))
- `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt)))
-;;;;; column-enforce-mode
- `(column-enforce-face ((,class :inherit modus-theme-refine-yellow)))
-;;;;; company-mode
- `(company-echo-common ((,class :foreground ,magenta-alt-other)))
- `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(company-preview-common ((,class :foreground ,blue-alt)))
- `(company-preview-search ((,class :inherit modus-theme-special-calm)))
- `(company-scrollbar-bg ((,class :background ,bg-active)))
- `(company-scrollbar-fg ((,class :background ,fg-active)))
- `(company-template-field ((,class :inherit modus-theme-intense-magenta)))
- `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main)))
- `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt)))
- `(company-tooltip-common-selection ((,class :foreground ,fg-main)))
- `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue)))
- `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold))))
- `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t)))
- `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold))))
-;;;;; company-posframe
- `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active)))
- `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active)))
- `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; compilation feedback
- `(compilation-column-number ((,class :foreground ,magenta-alt-other)))
- `(compilation-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red)))
- `(compilation-info ((,class :foreground ,fg-special-cold)))
- `(compilation-line-number ((,class :foreground ,fg-special-warm)))
- `(compilation-mode-line-exit ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active)))
- `(compilation-mode-line-fail ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active)))
- `(compilation-mode-line-run ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active)))
- `(compilation-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow)))
-;;;;; completions
- `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(completions-common-part ((,class ,@(modus-operandi-theme-standard-completions
- blue-alt blue-nuanced-bg
- cyan-refine-bg cyan-refine-fg))))
- `(completions-first-difference ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- magenta-alt blue-nuanced-bg
- magenta-intense-bg fg-main))))
-;;;;; counsel
- `(counsel-active-mode ((,class :foreground ,magenta-alt-other)))
- `(counsel-application-name ((,class :foreground ,red-alt-other)))
- `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other)))
- `(counsel-outline-1 ((,class :inherit outline-1)))
- `(counsel-outline-2 ((,class :inherit outline-2)))
- `(counsel-outline-3 ((,class :inherit outline-3)))
- `(counsel-outline-4 ((,class :inherit outline-4)))
- `(counsel-outline-5 ((,class :inherit outline-5)))
- `(counsel-outline-6 ((,class :inherit outline-6)))
- `(counsel-outline-7 ((,class :inherit outline-7)))
- `(counsel-outline-8 ((,class :inherit outline-8)))
- `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other)))
- `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant)))
-;;;;; counsel-css
- `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue)))
- `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan)))
- `(counsel-css-selector-depth-face-3 ((,class :foreground ,green)))
- `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow)))
- `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta)))
- `(counsel-css-selector-depth-face-6 ((,class :foreground ,red)))
-;;;;; counsel-notmuch
- `(counsel-notmuch-count-face ((,class :foreground ,cyan)))
- `(counsel-notmuch-date-face ((,class :foreground ,blue)))
- `(counsel-notmuch-people-face ((,class :foreground ,magenta)))
- `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other)))
-;;;;; counsel-org-capture-string
- `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold)))
-;;;;; cov
- `(cov-coverage-not-run-face ((,class :foreground ,red-intense)))
- `(cov-coverage-run-face ((,class :foreground ,green-intense)))
- `(cov-heavy-face ((,class :foreground ,magenta-intense)))
- `(cov-light-face ((,class :foreground ,blue-intense)))
- `(cov-med-face ((,class :foreground ,yellow-intense)))
- `(cov-none-face ((,class :foreground ,cyan-intense)))
-;;;;; cperl-mode
- `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other)))
- `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt)))
- `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant)))
-;;;;; csv-mode
- `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
-;;;;; ctrlf
- `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold))))
- `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line)))
- `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan)))
-;;;;; custom (M-x customize)
- `(custom-button ((,class :box (:line-width 2 :color nil :style released-button)
- :background ,bg-active :foreground ,fg-main)))
- `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button)
- :background ,bg-active :foreground ,fg-active)))
- `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button)
- :background ,bg-active :foreground ,fg-main)))
- `(custom-changed ((,class :inherit modus-theme-subtle-cyan)))
- `(custom-comment ((,class :foreground ,fg-alt)))
- `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other)))
- `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense)))
- `(custom-group-tag ((,class :inherit bold :foreground ,green-intense)))
- `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm)))
- `(custom-invalid ((,class :inherit (modus-theme-intense-red bold))))
- `(custom-modified ((,class :inherit modus-theme-subtle-cyan)))
- `(custom-rogue ((,class :inherit modus-theme-refine-magenta)))
- `(custom-set ((,class :foreground ,blue-alt)))
- `(custom-state ((,class :foreground ,cyan-alt-other)))
- `(custom-themed ((,class :inherit modus-theme-subtle-blue)))
- `(custom-variable-tag ((,class :inherit bold :foreground ,cyan)))
-;;;;; dap-mode
- `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil)
- :background ,bg-active :foreground ,fg-main)))
- `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil)
- :background ,bg-active :foreground ,fg-main)))
- `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active)))
- `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense)))
- `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t)))
- `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan)))
- `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic)))
- `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue)))
- `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt)))
- `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt)))
-;;;;; dashboard (emacs-dashboard)
- `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold)))
- `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild)))
- `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm)))
- `(dashboard-navigator ((,class :foreground ,cyan-alt-other)))
- `(dashboard-text-banner ((,class :foreground ,fg-dim)))
-;;;;; deadgrep
- `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(deadgrep-match-face ((,class :inherit modus-theme-special-calm)))
- `(deadgrep-meta-face ((,class :foreground ,fg-alt)))
- `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense)))
- `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense)))
-;;;;; debbugs
- `(debbugs-gnu-archived ((,class :inverse-video t)))
- `(debbugs-gnu-done ((,class :foreground ,fg-alt)))
- `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm)))
- `(debbugs-gnu-handled ((,class :foreground ,green)))
- `(debbugs-gnu-new ((,class :foreground ,red)))
- `(debbugs-gnu-pending ((,class :foreground ,cyan)))
- `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced)))
- `(debbugs-gnu-stale-2 ((,class :foreground ,yellow)))
- `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt)))
- `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other)))
- `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt)))
- `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt)))
-;;;;; define-word
- `(define-word-face-1 ((,class :foreground ,yellow)))
- `(define-word-face-2 ((,class :foreground ,fg-main)))
-;;;;; deft
- `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red)))
- `(deft-filter-string-face ((,class :foreground ,green-intense)))
- `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(deft-separator-face ((,class :foreground ,fg-alt)))
- `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(deft-time-face ((,class :foreground ,fg-special-cold)))
- `(deft-title-face ((,class :inherit bold :foreground ,fg-main)))
-;;;;; dictionary
- `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(dictionary-reference-face ((,class :inherit :foreground ,blue-alt-other)))
- `(dictionary-word-definition-face ((,class :foreground ,fg-main)))
- `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
-;;;;; diff-hl
- `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow)))
- `(diff-hl-delete ((,class :inherit modus-theme-fringe-red)))
- `(diff-hl-dired-change ((,class :inherit diff-hl-change)))
- `(diff-hl-dired-delete ((,class :inherit diff-hl-delete)))
- `(diff-hl-dired-ignored ((,class :inherit dired-ignored)))
- `(diff-hl-dired-insert ((,class :inherit diff-hl-insert)))
- `(diff-hl-dired-unknown ((,class :inherit dired-ignored)))
- `(diff-hl-insert ((,class :inherit modus-theme-fringe-green)))
- `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold))))
-;;;;; diff-mode
- `(diff-added ((,class :inherit modus-theme-diff-added)))
- `(diff-changed ((,class :inherit modus-theme-diff-changed)))
- `(diff-context ((,class :foreground ,fg-unfocused)))
- `(diff-file-header ((,class :inherit bold :foreground ,blue)))
- `(diff-function ((,class :foreground ,fg-special-cold)))
- `(diff-header ((,class :foreground ,blue-nuanced)))
- `(diff-hunk-header ((,class :inherit modus-theme-diff-heading)))
- `(diff-index ((,class :inherit bold :foreground ,blue-alt)))
- `(diff-indicator-added ((,class :inherit diff-added)))
- `(diff-indicator-changed ((,class :inherit diff-changed)))
- `(diff-indicator-removed ((,class :inherit diff-removed)))
- `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold))))
- `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
- `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
- `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed)))
- `(diff-removed ((,class :inherit modus-theme-diff-removed)))
-;;;;; dim-autoload
- `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
-;;;;; dir-treeview
- `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm)))
- `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow)))
- `(dir-treeview-audio-face ((,class :foreground ,magenta)))
- `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt)))
- `(dir-treeview-control-face ((,class :foreground ,fg-alt)))
- `(dir-treeview-control-mouse-face ((,class :inherit highlight)))
- `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt)))
- `(dir-treeview-default-filename-face ((,class :foreground ,fg-main)))
- `(dir-treeview-directory-face ((,class :foreground ,blue)))
- `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt)))
- `(dir-treeview-executable-face ((,class :foreground ,red-alt)))
- `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other)))
- `(dir-treeview-image-face ((,class :foreground ,green-alt-other)))
- `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt)))
- `(dir-treeview-indent-face ((,class :foreground ,fg-alt)))
- `(dir-treeview-label-mouse-face ((,class :inherit highlight)))
- `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header)))
- `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan)))
- `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other)))
- `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other)))
-;;;;; dired
- `(dired-directory ((,class :foreground ,blue)))
- `(dired-flagged ((,class :inherit modus-theme-mark-del)))
- `(dired-header ((,class :inherit modus-theme-pseudo-header)))
- `(dired-ignored ((,class :foreground ,fg-alt)))
- `(dired-mark ((,class :inherit modus-theme-mark-symbol)))
- `(dired-marked ((,class :inherit modus-theme-mark-sel)))
- `(dired-perm-write ((,class :foreground ,fg-special-warm)))
- `(dired-symlink ((,class :inherit button :foreground ,cyan-alt)))
- `(dired-warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; dired-async
- `(dired-async-failures ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active)))
- `(dired-async-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active)))
- `(dired-async-mode-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active)))
-;;;;; dired-git
- `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt)))
- `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; dired-git-info
- `(dgi-commit-message-face ((,class :foreground ,fg-special-mild)))
-;;;;; dired-narrow
- `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold))))
-;;;;; dired-subtree
- ;; remove background from dired-subtree, else it breaks
- ;; dired-{flagged,marked} and any other face that sets a background
- ;; such as hl-line
- `(dired-subtree-depth-1-face ((,class :background nil)))
- `(dired-subtree-depth-2-face ((,class :background nil)))
- `(dired-subtree-depth-3-face ((,class :background nil)))
- `(dired-subtree-depth-4-face ((,class :background nil)))
- `(dired-subtree-depth-5-face ((,class :background nil)))
- `(dired-subtree-depth-6-face ((,class :background nil)))
-;;;;; diredfl
- `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold)))
- `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm)))
- `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt)))
- `(diredfl-date-time ((,class :foreground ,cyan-alt-other)))
- `(diredfl-deletion ((,class :inherit modus-theme-mark-del)))
- `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del)))
- `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header)))
- `(diredfl-dir-name ((,class :inherit dired-directory)))
- `(diredfl-dir-priv ((,class :foreground ,blue-alt)))
- `(diredfl-exec-priv ((,class :foreground ,magenta)))
- `(diredfl-executable-tag ((,class :foreground ,magenta-alt)))
- `(diredfl-file-name ((,class :foreground ,fg-main)))
- `(diredfl-file-suffix ((,class :foreground ,cyan)))
- `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel)))
- `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel)))
- `(diredfl-ignored-file-name ((,class :foreground ,fg-alt)))
- `(diredfl-link-priv ((,class :foreground ,blue-alt-other)))
- `(diredfl-no-priv ((,class :foreground ,fg-alt)))
- `(diredfl-number ((,class :foreground ,cyan-alt)))
- `(diredfl-other-priv ((,class :foreground ,yellow)))
- `(diredfl-rare-priv ((,class :foreground ,red-alt)))
- `(diredfl-read-priv ((,class :foreground ,fg-main)))
- `(diredfl-symlink ((,class :inherit dired-symlink)))
- `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta)))
- `(diredfl-write-priv ((,class :foreground ,cyan)))
-;;;;; disk-usage
- `(disk-usage-children ((,class :foreground ,yellow)))
- `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red)))
- `(disk-usage-percent ((,class :foreground ,green)))
- `(disk-usage-size ((,class :foreground ,cyan)))
- `(disk-usage-symlink ((,class :inherit button :foreground ,blue)))
- `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt)))
-;;;;; doom-modeline
- `(doom-modeline-bar ((,class :inherit modus-theme-active-blue)))
- `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main)))
- `(doom-modeline-battery-charging ((,class :foreground ,green-active)))
- `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2)
- :foreground ,red-active)))
- `(doom-modeline-battery-full ((,class :foreground ,blue-active)))
- `(doom-modeline-battery-normal ((,class :foreground ,fg-active)))
- `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active)))
- `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive)))
- `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active)))
- `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active)))
- `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active)))
- `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive)))
- `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active)))
- `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-host ((,class :slant italic)))
- `(doom-modeline-info ((,class :foreground ,green-active)))
- `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active)))
- `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-panel ((,class :inherit modus-theme-active-blue)))
- `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic)))
- `(doom-modeline-persp-name ((,class :foreground ,fg-active)))
- `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active)))
- `(doom-modeline-project-root-dir ((,class :foreground ,fg-active)))
- `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic)))
- `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; dynamic-ruler
- `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral)))
- `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow)))
-;;;;; easy-jekyll
- `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other)))
-;;;;; easy-kill
- `(easy-kill-origin ((,class :inherit modus-theme-subtle-red)))
- `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow)))
-;;;;; ebdb
- `(ebdb-address-default ((,class :foreground ,fg-main)))
- `(ebdb-db-char ((,class :foreground ,fg-special-cold)))
- `(ebdb-defunct ((,class :foreground ,fg-alt)))
- `(ebdb-field-hidden ((,class :foreground ,magenta)))
- `(ebdb-field-url ((,class :foreground ,blue)))
- `(ebdb-label ((,class :foreground ,cyan-alt-other)))
- `(ebdb-mail-default ((,class :foreground ,fg-main)))
- `(ebdb-mail-primary ((,class :foreground ,blue-alt)))
- `(ebdb-marked ((,class :background ,cyan-intense-bg)))
- `(ebdb-organization-name ((,class :foreground ,fg-special-calm)))
- `(ebdb-person-name ((,class :foreground ,magenta-alt-other)))
- `(ebdb-phone-default ((,class :foreground ,fg-special-warm)))
- `(ebdb-role-defunct ((,class :foreground ,fg-alt)))
- `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt)))
-;;;;; ediff
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces.
- `(ediff-current-diff-A ((,class ,@(modus-operandi-theme-diff
- bg-dim red
- bg-diff-removed fg-diff-removed
- red-nuanced-bg red-faint))))
- `(ediff-current-diff-Ancestor ((,class ,@(modus-operandi-theme-diff
- bg-dim fg-special-cold
- bg-special-cold fg-special-cold
- blue-nuanced-bg blue))))
- `(ediff-current-diff-B ((,class ,@(modus-operandi-theme-diff
- bg-dim green
- bg-diff-added fg-diff-added
- green-nuanced-bg green-faint))))
- `(ediff-current-diff-C ((,class ,@(modus-operandi-theme-diff
- bg-dim yellow
- bg-diff-changed fg-diff-changed
- yellow-nuanced-bg yellow-faint))))
- `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed)))
- `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan)))
- `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added)))
- `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed)))
- `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0)))
- `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
-;;;;; eglot
- `(eglot-mode-line ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active)))
-;;;;; el-search
- `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(el-search-match ((,class :inherit modus-theme-intense-green)))
- `(el-search-other-match ((,class :inherit modus-theme-special-mild)))
- `(el-search-occur-match ((,class :inherit modus-theme-special-calm)))
-;;;;; eldoc
- ;; NOTE: see https://github.com/purcell/package-lint/issues/187
- (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other)))
-;;;;; eldoc-box
- `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main)))
- `(eldoc-box-border ((,class :background ,fg-alt)))
-;;;;; elfeed
- `(elfeed-log-date-face ((,class :foreground ,cyan-alt)))
- `(elfeed-log-debug-level-face ((,class :foreground ,magenta)))
- `(elfeed-log-error-level-face ((,class :foreground ,red)))
- `(elfeed-log-info-level-face ((,class :foreground ,green)))
- `(elfeed-log-warn-level-face ((,class :foreground ,yellow)))
- `(elfeed-search-date-face ((,class :foreground ,blue-nuanced)))
- `(elfeed-search-feed-face ((,class :foreground ,cyan)))
- `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active)))
- `(elfeed-search-last-update-face ((,class :foreground ,cyan-active)))
- `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced)))
- `(elfeed-search-title-face ((,class :foreground ,fg-dim)))
- `(elfeed-search-unread-count-face ((,class :foreground ,green-active)))
- `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main)))
-;;;;; elfeed-score
- `(elfeed-score-date-face ((,class :foreground ,blue)))
- `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other)))
- `(elfeed-score-error-level-face ((,class :foreground ,red)))
- `(elfeed-score-info-level-face ((,class :foreground ,cyan)))
- `(elfeed-score-warn-level-face ((,class :foreground ,yellow)))
-;;;;; emms
- `(emms-playlist-track-face ((,class :foreground ,blue)))
- `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta)))
-;;;;; enhanced-ruby-mode
- `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other)))
- `(enh-ruby-op-face ((,class :foreground ,fg-main)))
- `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green)))
- `(enh-ruby-regexp-face ((,class :foreground ,magenta)))
- `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt)))
- `(erm-syn-errline ((,class :foreground ,red :underline t)))
- `(erm-syn-warnline ((,class :foreground ,yellow :underline t)))
-;;;;; epa
- `(epa-field-body ((,class :foreground ,fg-main)))
- `(epa-field-name ((,class :inherit bold :foreground ,fg-dim)))
- `(epa-mark ((,class :inherit bold :foreground ,magenta)))
- `(epa-string ((,class :foreground ,blue-alt)))
- `(epa-validity-disabled ((,class :inherit modus-theme-refine-red)))
- `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other)))
- `(epa-validity-low ((,class :foreground ,fg-alt)))
- `(epa-validity-medium ((,class :foreground ,green-alt)))
-;;;;; equake
- `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main)))
- `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active)))
- `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active)))
- `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active)))
- `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active)))
- `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active)))
- `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt)))
- `(equake-tab-inactive ((,class :foreground ,fg-inactive)))
-;;;;; erc
- `(erc-action-face ((,class :inherit bold :foreground ,cyan)))
- `(erc-bold-face ((,class :inherit bold)))
- `(erc-button ((,class :inherit button)))
- `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(erc-current-nick-face ((,class :foreground ,magenta-alt-other)))
- `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red)))
- `(erc-direct-msg-face ((,class :foreground ,magenta)))
- `(erc-error-face ((,class :inherit bold :foreground ,red)))
- `(erc-fool-face ((,class :foreground ,fg-inactive)))
- `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header)))
- `(erc-input-face ((,class :foreground ,fg-special-calm)))
- `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t)))
- `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta)))
- `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face)))
- `(erc-nick-default-face ((,class :inherit bold :foreground ,blue)))
- `(erc-nick-msg-face ((,class :inherit bold :foreground ,green)))
- `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face)))
- `(erc-notice-face ((,class :foreground ,fg-unfocused)))
- `(erc-pal-face ((,class :inherit bold :foreground ,red-alt)))
- `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(erc-timestamp-face ((,class :foreground ,blue-nuanced)))
- `(erc-underline-face ((,class :underline t)))
- `(bg:erc-color-face0 ((,class :background "white")))
- `(bg:erc-color-face1 ((,class :background "black")))
- `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg)))
- `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg)))
- `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg)))
- `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg)))
- `(bg:erc-color-face14 ((,class :background "gray60")))
- `(bg:erc-color-face15 ((,class :background "gray80")))
- `(bg:erc-color-face2 ((,class :background ,blue-intense-bg)))
- `(bg:erc-color-face3 ((,class :background ,green-intense-bg)))
- `(bg:erc-color-face4 ((,class :background ,red-subtle-bg)))
- `(bg:erc-color-face5 ((,class :background ,red-intense-bg)))
- `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg)))
- `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg)))
- `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg)))
- `(bg:erc-color-face9 ((,class :background ,green-subtle-bg)))
- `(fg:erc-color-face0 ((,class :foreground "white")))
- `(fg:erc-color-face1 ((,class :foreground "black")))
- `(fg:erc-color-face10 ((,class :foreground ,cyan)))
- `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other)))
- `(fg:erc-color-face12 ((,class :foreground ,blue)))
- `(fg:erc-color-face13 ((,class :foreground ,magenta-alt)))
- `(fg:erc-color-face14 ((,class :foreground "gray60")))
- `(fg:erc-color-face15 ((,class :foreground "gray80")))
- `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other)))
- `(fg:erc-color-face3 ((,class :foreground ,green)))
- `(fg:erc-color-face4 ((,class :foreground ,red)))
- `(fg:erc-color-face5 ((,class :foreground ,red-alt)))
- `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other)))
- `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other)))
- `(fg:erc-color-face8 ((,class :foreground ,yellow-alt)))
- `(fg:erc-color-face9 ((,class :foreground ,green-alt-other)))
-;;;;; eros
- `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue)
- :background ,bg-dim :foreground ,fg-dim)))
-;;;;; ert
- `(ert-test-result-expected ((,class :inherit modus-theme-intense-green)))
- `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red)))
-;;;;; eshell
- `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt)))
- `(eshell-ls-backup ((,class :foreground ,yellow-alt)))
- `(eshell-ls-clutter ((,class :foreground ,red-alt)))
- `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt)))
- `(eshell-ls-executable ((,class :foreground ,magenta-alt)))
- `(eshell-ls-missing ((,class :inherit modus-theme-intense-red)))
- `(eshell-ls-product ((,class :foreground ,fg-special-warm)))
- `(eshell-ls-readonly ((,class :foreground ,fg-special-cold)))
- `(eshell-ls-special ((,class :inherit bold :foreground ,magenta)))
- `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan)))
- `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(eshell-prompt ((,class ,@(modus-operandi-theme-bold-weight)
- ,@(modus-operandi-theme-prompt
- green-alt-other
- green-nuanced-bg green-alt
- green-refine-bg fg-main))))
-;;;;; eshell-fringe-status
- `(eshell-fringe-status-failure ((,class :foreground ,red)))
- `(eshell-fringe-status-success ((,class :foreground ,green)))
-;;;;; eshell-git-prompt
- `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt)))
- `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt)))
- `(eshell-git-prompt-directory-face ((,class :foreground ,cyan)))
- `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red)))
- `(eshell-git-prompt-exit-success-face ((,class :foreground ,green)))
- `(eshell-git-prompt-modified-face ((,class :foreground ,yellow)))
- `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg)))
- `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg)))
- `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg)))
- `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red)))
- `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow)))
- `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue)))
-;;;;; eshell-prompt-extras (epe)
- `(epe-dir-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue)))
- `(epe-git-dir-face ((,class :foreground ,red-alt-other)))
- `(epe-git-face ((,class :foreground ,cyan-alt)))
- `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt)))
- `(epe-pipeline-host-face ((,class :foreground ,blue)))
- `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm)))
- `(epe-pipeline-user-face ((,class :foreground ,magenta)))
- `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(epe-status-face ((,class :foreground ,magenta-alt-other)))
- `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
-;;;;; eshell-syntax-highlighting
- `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan)))
- `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt)))
- `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue)))
- `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt)))
- `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red)))
- `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta)))
- `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other)))
- `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt)))
-;;;;; evil-mode
- `(evil-ex-commands ((,class :foreground ,magenta-alt-other)))
- `(evil-ex-info ((,class :foreground ,cyan-alt-other)))
- `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
- `(evil-ex-search ((,class :inherit modus-theme-intense-green)))
- `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t)))
- `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; evil-goggles
- `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow)))
- `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant)))
- `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral)))
- `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red)))
- `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green)))
- `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face)))
- `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan)))
- `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold)))
- `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta)))
- `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta)))
- `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue)))
-;;;;; evil-visual-mark-mode
- `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta)))
-;;;;; eww
- `(eww-invalid-certificate ((,class :foreground ,red-active)))
- `(eww-valid-certificate ((,class :foreground ,green-active)))
- `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main)))
- `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main)))
- `(eww-form-select ((,class :inherit eww-form-checkbox)))
- `(eww-form-submit ((,class :inherit eww-form-file)))
- `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active)))
- `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main)))
-;;;;; eyebrowse
- `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active)))
-;;;;; fancy-dabbrev
- `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t)))
- `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold))))
-;;;;; flycheck
- `(flycheck-error
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
- `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active)))
- `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold)))
- `(flycheck-error-list-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red)))
- `(flycheck-error-list-filename ((,class :foreground ,blue)))
- `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line)))
- `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other)))
- `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t)))
- `(flycheck-error-list-info ((,class :foreground ,cyan)))
- `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm)))
- `(flycheck-error-list-warning ((,class :foreground ,yellow)))
- `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red)))
- `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan)))
- `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow)))
- `(flycheck-info
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-note :style wave))
- (,class :foreground ,fg-lang-note :underline t)))
- `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button))))
- `(flycheck-warning
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
-;;;;; flycheck-color-mode-line
- `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error)))
- `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info)))
- `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic)))
- `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning)))
-;;;;; flycheck-indicator
- `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant)))
- `(flycheck-indicator-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active)))
- `(flycheck-indicator-info ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active)))
- `(flycheck-indicator-running ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active)))
- `(flycheck-indicator-success ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active)))
- `(flycheck-indicator-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow-active)))
-;;;;; flycheck-posframe
- `(flycheck-posframe-background-face ((,class :background ,bg-alt)))
- `(flycheck-posframe-border-face ((,class :foreground ,fg-alt)))
- `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red)))
- `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant)))
- `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan)))
- `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; flymake
- `(flymake-error
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
- `(flymake-note
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-note :style wave))
- (,class :foreground ,fg-lang-note :underline t)))
- `(flymake-warning
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
-;;;;; flyspell
- `(flyspell-duplicate
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
- `(flyspell-incorrect
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; flyspell-correct
- `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green)))
-;;;;; flx
- `(flx-highlight-face ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-intense-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt
- 'bold))))
-;;;;; freeze-it
- `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm)))
-;;;;; frog-menu
- `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other)))
- `(frog-menu-actions-face ((,class :foreground ,magenta)))
- `(frog-menu-border ((,class :background ,bg-active)))
- `(frog-menu-candidates-face ((,class :foreground ,fg-main)))
- `(frog-menu-posframe-background-face ((,class :background ,bg-dim)))
- `(frog-menu-prompt-face ((,class :foreground ,cyan)))
-;;;;; focus
- `(focus-unfocused ((,class :foreground ,fg-unfocused)))
-;;;;; fold-this
- `(fold-this-overlay ((,class :inherit modus-theme-special-mild)))
-;;;;; font-lock
- `(font-lock-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(font-lock-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(font-lock-doc-face ((,class ,@(modus-operandi-theme-syntax-foreground
- fg-special-cold cyan-alt-other-faint)
- :slant ,modus-theme-slant)))
- `(font-lock-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(font-lock-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(font-lock-negation-char-face ((,class ,@(modus-operandi-theme-syntax-foreground
- yellow yellow-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(font-lock-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
- `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
- `(font-lock-string-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt blue-alt-faint))))
- `(font-lock-type-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(font-lock-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(font-lock-warning-face ((,class ,@(modus-operandi-theme-syntax-foreground
- yellow-active yellow-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
-;;;;; forge
- `(forge-post-author ((,class :inherit bold :foreground ,fg-main)))
- `(forge-post-date ((,class :foreground ,fg-special-cold)))
- `(forge-topic-closed ((,class :foreground ,fg-alt)))
- `(forge-topic-merged ((,class :foreground ,fg-alt)))
- `(forge-topic-open ((,class :foreground ,fg-special-mild)))
- `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main)))
-;;;;; fountain-mode
- `(fountain-character ((,class :foreground ,blue-alt-other)))
- `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(fountain-dialog ((,class :foreground ,blue-alt)))
- `(fountain-metadata-key ((,class :foreground ,green-alt-other)))
- `(fountain-metadata-value ((,class :foreground ,blue)))
- `(fountain-non-printing ((,class :foreground ,fg-alt)))
- `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(fountain-page-break ((,class :inherit bold :foreground ,red-alt)))
- `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other)))
- `(fountain-paren ((,class :foreground ,cyan)))
- `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced)))
- `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3))))
- `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2))))
- `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1))))
- `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm)))
- `(fountain-synopsis ((,class :foreground ,cyan-alt)))
- `(fountain-trans ((,class :foreground ,yellow-alt-other)))
-;;;;; geiser
- `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-operandi-theme-syntax-foreground
- blue blue-faint))))
- `(geiser-font-lock-doc-button ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt cyan-alt-faint)
- :underline t)))
- `(geiser-font-lock-doc-link ((,class :inherit link)))
- `(geiser-font-lock-error-link ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint)
- :underline t)))
- `(geiser-font-lock-image-button ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt green-alt-faint)
- :underline t)))
- `(geiser-font-lock-repl-input ((,class :inherit bold)))
- `(geiser-font-lock-repl-output ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint))))
- `(geiser-font-lock-repl-prompt ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(geiser-font-lock-xref-header ((,class :inherit bold)))
- `(geiser-font-lock-xref-link ((,class :inherit link)))
-;;;;; git-commit
- `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant)))
- `(git-commit-keyword ((,class :foreground ,magenta)))
- `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other)))
- `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow)))
- `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow)))
- `(git-commit-pseudo-header ((,class :foreground ,blue)))
- `(git-commit-summary ((,class :inherit bold :foreground ,cyan)))
-;;;;; git-gutter
- `(git-gutter:added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow)))
- `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan)))
- `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta)))
-;;;;; git-gutter-fr
- `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow)))
-;;;;; git-{gutter,fringe}+
- `(git-gutter+-added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow)))
- `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan)))
- `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta)))
- `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow)))
-;;;;; git-lens
- `(git-lens-added ((,class :inherit bold :foreground ,green)))
- `(git-lens-deleted ((,class :inherit bold :foreground ,red)))
- `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan)))
- `(git-lens-modified ((,class :inherit bold :foreground ,yellow)))
- `(git-lens-renamed ((,class :inherit bold :foreground ,magenta)))
-;;;;; git-rebase
- `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant)))
- `(git-rebase-description ((,class :foreground ,fg-main)))
- `(git-rebase-hash ((,class :foreground ,cyan-alt-other)))
-;;;;; git-timemachine
- `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active)))
- `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm)))
- `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt)))
-;;;;; git-walktree
- `(git-walktree-commit-face ((,class :foreground ,yellow)))
- `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan)))
- `(git-walktree-tree-face ((,class :foreground ,magenta)))
-;;;;; gnus
- `(gnus-button ((,class :inherit button)))
- `(gnus-cite-1 ((,class :foreground ,blue-alt)))
- `(gnus-cite-10 ((,class :foreground ,magenta-alt-other)))
- `(gnus-cite-11 ((,class :foreground ,yellow-alt-other)))
- `(gnus-cite-2 ((,class :foreground ,red-alt)))
- `(gnus-cite-3 ((,class :foreground ,green-alt)))
- `(gnus-cite-4 ((,class :foreground ,magenta-alt)))
- `(gnus-cite-5 ((,class :foreground ,yellow-alt)))
- `(gnus-cite-6 ((,class :foreground ,cyan-alt)))
- `(gnus-cite-7 ((,class :foreground ,blue-alt-other)))
- `(gnus-cite-8 ((,class :foreground ,red-alt-other)))
- `(gnus-cite-9 ((,class :foreground ,green-alt-other)))
- `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic)))
- `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow)))
- `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt)))
- `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt)))
- `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta)))
- `(gnus-group-mail-2-empty ((,class :foreground ,magenta)))
- `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other)))
- `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced)))
- `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced)))
- `(gnus-group-news-1 ((,class :inherit bold :foreground ,green)))
- `(gnus-group-news-1-empty ((,class :foreground ,green)))
- `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan)))
- `(gnus-group-news-2-empty ((,class :foreground ,cyan)))
- `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced)))
- `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced)))
- `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced)))
- `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced)))
- `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced)))
- `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced)))
- `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt)))
- `(gnus-group-news-6-empty ((,class :foreground ,fg-alt)))
- `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced)))
- `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced)))
- `(gnus-header-content ((,class :foreground ,cyan)))
- `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil)))
- `(gnus-header-name ((,class :foreground ,green)))
- `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt)))
- `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(gnus-server-agent ((,class :inherit bold :foreground ,cyan)))
- `(gnus-server-closed ((,class :inherit bold :foreground ,magenta)))
- `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt)))
- `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan)))
- `(gnus-server-denied ((,class :inherit bold :foreground ,red)))
- `(gnus-server-offline ((,class :inherit bold :foreground ,yellow)))
- `(gnus-server-opened ((,class :inherit bold :foreground ,green)))
- `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic)))
- `(gnus-splash ((,class :foreground ,fg-alt)))
- `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt)))
- `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt)))
- `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold)))
- `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other)))
- `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow)))
- `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main)))
- `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic)))
- `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic)))
- `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic)))
- `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic)))
- `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold)))
- `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm)))
- `(gnus-summary-normal-read ((,class :foreground ,fg-alt)))
- `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other)))
- `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow)))
- `(gnus-summary-normal-unread ((,class :foreground ,fg-main)))
- `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue)))
-;;;;; golden-ratio-scroll-screen
- `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
-;;;;; helm
- `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(helm-action ((,class :underline t)))
- `(helm-bookmark-addressbook ((,class :foreground ,green-alt)))
- `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue)))
- `(helm-bookmark-file ((,class :foreground ,fg-main)))
- `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(helm-bookmark-gnus ((,class :foreground ,magenta)))
- `(helm-bookmark-info ((,class :foreground ,cyan-alt)))
- `(helm-bookmark-man ((,class :foreground ,yellow-alt)))
- `(helm-bookmark-w3m ((,class :foreground ,blue-alt)))
- `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan)))
- `(helm-buffer-directory ((,class :inherit bold :foreground ,blue)))
- `(helm-buffer-file ((,class :foreground ,fg-main)))
- `(helm-buffer-modified ((,class :foreground ,yellow-alt)))
- `(helm-buffer-not-saved ((,class :foreground ,red-alt)))
- `(helm-buffer-process ((,class :foreground ,magenta)))
- `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red)))
- `(helm-buffer-size ((,class :foreground ,fg-alt)))
- `(helm-candidate-number ((,class :foreground ,cyan-active)))
- `(helm-candidate-number-suspended ((,class :foreground ,yellow-active)))
- `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active)))
- `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active)))
- `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active)))
- `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main)))
- `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active)))
- `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active)))
- `(helm-etags-file ((,class :foreground ,fg-dim :underline t)))
- `(helm-ff-backup-file ((,class :foreground ,fg-alt)))
- `(helm-ff-denied ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-intense-red
- 'modus-theme-nuanced-red
- red))))
- `(helm-ff-directory ((,class :inherit helm-buffer-directory)))
- `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other)))
- `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt)))
- `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory))))
- `(helm-ff-executable ((,class :foreground ,magenta-alt)))
- `(helm-ff-file ((,class :foreground ,fg-main)))
- `(helm-ff-file-extension ((,class :foreground ,fg-special-warm)))
- `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red)))
- `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-refine-magenta
- 'modus-theme-subtle-magenta
- 'modus-theme-nuanced-magenta
- magenta))))
- `(helm-ff-prefix ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-refine-yellow
- 'modus-theme-subtle-yellow
- 'modus-theme-nuanced-yellow
- yellow-alt-other))))
- `(helm-ff-socket ((,class :foreground ,red-alt-other)))
- `(helm-ff-suid ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-refine-red
- 'modus-theme-nuanced-yellow
- red-alt))))
- `(helm-ff-symlink ((,class :inherit button :foreground ,cyan)))
- `(helm-ff-truename ((,class :foreground ,blue-alt-other)))
- `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other)))
- `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-grep-finish ((,class :foreground ,green-active)))
- `(helm-grep-lineno ((,class :foreground ,fg-special-warm)))
- `(helm-grep-match ((,class :inherit modus-theme-special-calm)))
- `(helm-header ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense)))
- `(helm-history-deleted ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-intense-red
- 'modus-theme-nuanced-red
- red
- 'bold))))
- `(helm-history-remote ((,class :foreground ,red-alt-other)))
- `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm)))
- `(helm-lisp-show-completion ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-yellow
- 'modus-theme-refine-yellow
- 'modus-theme-nuanced-yellow
- yellow
- 'bold))))
- `(helm-locate-finish ((,class :foreground ,green-active)))
- `(helm-match ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan
- 'bold))))
- `(helm-match-item ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-neutral
- 'modus-theme-subtle-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other))))
- `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt)))
- `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other)))
- `(helm-mode-prefix ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-intense-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt
- 'bold))))
- `(helm-non-file-buffer ((,class :foreground ,fg-alt)))
- `(helm-prefarg ((,class :foreground ,red-active)))
- `(helm-resume-need-update ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other))))
- `(helm-selection ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-special-cold
- nil
- 'bold))))
- `(helm-selection-line ((,class :inherit modus-theme-special-cold)))
- `(helm-separator ((,class :foreground ,fg-special-mild)))
- `(helm-time-zone-current ((,class :foreground ,green)))
- `(helm-time-zone-home ((,class :foreground ,magenta)))
- `(helm-source-header ((,class :inherit bold :foreground ,red-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(helm-top-columns ((,class :inherit helm-header)))
- `(helm-ucs-char ((,class :foreground ,yellow-alt-other)))
- `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan)))
-;;;;; helm-ls-git
- `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense)))
- `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense)))
- `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense)))
- `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced)))
- `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red)))
- `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced)))
- `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow)))
- `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta)))
- `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold)))
-;;;;; helm-switch-shell
- `(helm-switch-shell-new-shell-face ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other
- 'bold))))
-;;;;; helm-xref
- `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-xref-file-name ((,class :foreground ,fg-special-warm)))
-;;;;; helpful
- `(helpful-heading ((,class :inherit modus-theme-heading-1)))
-;;;;; highlight region or ad-hoc regexp
- `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main)))
- `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t)))
- `(hi-blue-b ((,class :inherit modus-theme-intense-blue)))
- `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t)))
- `(hi-green-b ((,class :inherit modus-theme-intense-green)))
- `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t)))
- `(hi-red-b ((,class :inherit modus-theme-intense-red)))
- `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t)))
- `(highlight ((,class :inherit modus-theme-subtle-blue)))
- `(highlight-changes ((,class :foreground ,yellow-alt-other)))
- `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t)))
- `(hl-line ((,class :inherit modus-theme-hl-line)))
-;;;;; highlight-blocks
- `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main)))
- `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main)))
- `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
- `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main)))
- `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main)))
- `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main)))
- `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main)))
- `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main)))
- `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
-;;;;; highlight-defined
- `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta)))
- `(highlight-defined-face-name-face ((,class :foreground ,fg-main)))
- `(highlight-defined-function-name-face ((,class :foreground ,magenta)))
- `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt)))
- `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other)))
- `(highlight-defined-variable-name-face ((,class :foreground ,cyan)))
-;;;;; highlight-escape-sequences (`hes-mode')
- `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct)))
- `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
-;;;;; highlight-indentation
- `(highlight-indentation-face ((,class :inherit modus-theme-hl-line)))
- `(highlight-indentation-current-column-face ((,class :background ,bg-active)))
-;;;;; highlight-numbers
- `(highlight-numbers-number ((,class :foreground ,blue-alt-other)))
-;;;;; highlight-symbol
- `(highlight-symbol-face ((,class :inherit modus-theme-special-mild)))
-;;;;; highlight-thing
- `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan)))
-;;;;; hl-defined
- `(hdefd-functions ((,class :foreground ,blue)))
- `(hdefd-undefined ((,class :foreground ,red-alt)))
- `(hdefd-variables ((,class :foreground ,cyan-alt)))
-;;;;; hl-fill-column
- `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active)))
-;;;;; hl-todo
- `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant)))
-;;;;; hydra
- `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow)))
- `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt)))
- `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt)))
- `(hydra-face-red ((,class :inherit bold :foreground ,red)))
- `(hydra-face-teal ((,class :inherit bold :foreground ,cyan)))
-;;;;; hyperlist
- `(hyperlist-condition ((,class :foreground ,green)))
- `(hyperlist-hashtag ((,class :foreground ,yellow)))
- `(hyperlist-operator ((,class :foreground ,blue-alt)))
- `(hyperlist-paren ((,class :foreground ,cyan-alt-other)))
- `(hyperlist-quote ((,class :foreground ,cyan-alt)))
- `(hyperlist-ref ((,class :foreground ,magenta-alt-other)))
- `(hyperlist-stars ((,class :foreground ,fg-alt)))
- `(hyperlist-tag ((,class :foreground ,red)))
- `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main)))
-;;;;; icomplete
- `(icomplete-first-match ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- magenta bg-alt
- bg-active fg-main))))
-;;;;; icomplete-vertical
- `(icomplete-vertical-separator ((,class :foreground ,fg-alt)))
-;;;;; ido-mode
- `(ido-first-match ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- magenta bg-alt
- bg-active fg-main))))
- `(ido-incomplete-regexp ((,class :inherit error)))
- `(ido-indicator ((,class :inherit modus-theme-subtle-yellow)))
- `(ido-only-match ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- green green-nuanced-bg
- green-intense-bg fg-main))))
- `(ido-subdir ((,class :foreground ,blue)))
- `(ido-virtual ((,class :foreground ,fg-special-warm)))
-;;;;; iedit
- `(iedit-occurrence ((,class :inherit modus-theme-refine-blue)))
- `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow)))
-;;;;; iflipb
- `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(iflipb-other-buffer-face ((,class :foreground ,fg-alt)))
-;;;;; imenu-list
- `(imenu-list-entry-face-0 ((,class :foreground ,cyan)))
- `(imenu-list-entry-face-1 ((,class :foreground ,blue)))
- `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other)))
- `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt)))
- `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t)))
- `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t)))
- `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t)))
- `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t)))
-;;;;; indium
- `(indium-breakpoint-face ((,class :foreground ,red-active)))
- `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt)))
- `(indium-keyword-face ((,class :foreground ,magenta-alt-other)))
- `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant)))
- `(indium-repl-error-face ((,class :inherit bold :foreground ,red)))
- `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
- `(indium-repl-stdout-face ((,class :foreground ,fg-main)))
-;;;;; info
- `(Info-quoted ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,magenta))) ; the capitalisation is canonical
- `(info-header-node ((,class :inherit bold :foreground ,fg-alt)))
- `(info-header-xref ((,class :foreground ,blue-active)))
- `(info-index-match ((,class :inherit match)))
- `(info-menu-header ((,class :inherit modus-theme-heading-3)))
- `(info-menu-star ((,class :foreground ,red)))
- `(info-node ((,class :inherit bold)))
- `(info-title-1 ((,class :inherit modus-theme-heading-1)))
- `(info-title-2 ((,class :inherit modus-theme-heading-2)))
- `(info-title-3 ((,class :inherit modus-theme-heading-3)))
- `(info-title-4 ((,class :inherit modus-theme-heading-4)))
-;;;;; info-colors
- `(info-colors-lisp-code-block ((,class :inherit fixed-pitch)))
- `(info-colors-ref-item-command ((,class :foreground ,magenta)))
- `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other)))
- `(info-colors-ref-item-function ((,class :foreground ,magenta)))
- `(info-colors-ref-item-macro ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(info-colors-ref-item-other ((,class :foreground ,cyan)))
- `(info-colors-ref-item-special-form ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta)))
- `(info-colors-ref-item-type ((,class :foreground ,magenta-alt)))
- `(info-colors-ref-item-user-option ((,class :foreground ,cyan)))
- `(info-colors-ref-item-variable ((,class :foreground ,cyan)))
-;;;;; interaction-log
- `(ilog-buffer-face ((,class :foreground ,magenta-alt-other)))
- `(ilog-change-face ((,class :foreground ,magenta-alt)))
- `(ilog-echo-face ((,class :foreground ,yellow-alt-other)))
- `(ilog-load-face ((,class :foreground ,green)))
- `(ilog-message-face ((,class :foreground ,fg-alt)))
- `(ilog-non-change-face ((,class :foreground ,blue)))
-;;;;; ioccur
- `(ioccur-cursor ((,class :foreground ,fg-main)))
- `(ioccur-invalid-regexp ((,class :foreground ,red)))
- `(ioccur-match-face ((,class :inherit modus-theme-special-calm)))
- `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-special-cold)))
- `(ioccur-num-line-face ((,class :foreground ,fg-special-warm)))
- `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-refine-blue)))
- `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold))))
- `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
-;;;;; isearch, occur, and the like
- `(isearch ((,class :inherit (modus-theme-intense-green bold))))
- `(isearch-fail ((,class :inherit modus-theme-refine-red)))
- `(lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
- `(match ((,class :inherit modus-theme-special-calm)))
- `(query-replace ((,class :inherit (modus-theme-intense-yellow bold))))
-;;;;; ivy
- `(ivy-action ((,class :inherit bold :foreground ,red-alt)))
- `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(ivy-confirm-face ((,class :foreground ,cyan)))
- `(ivy-current-match ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-refine-cyan
- 'modus-theme-intense-cyan
- 'modus-theme-special-warm
- nil
- 'bold))))
- `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main)))
- `(ivy-grep-info ((,class :foreground ,cyan-alt)))
- `(ivy-grep-line-number ((,class :foreground ,fg-special-warm)))
- `(ivy-highlight-face ((,class :foreground ,magenta)))
- `(ivy-match-required-face ((,class :inherit error)))
- `(ivy-minibuffer-match-face-1 ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-neutral
- 'modus-theme-intense-neutral
- 'modus-theme-subtle-neutral
- fg-alt))))
- `(ivy-minibuffer-match-face-2 ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-green
- 'modus-theme-refine-green
- 'modus-theme-nuanced-green
- green-alt-other
- 'bold))))
- `(ivy-minibuffer-match-face-3 ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other
- 'bold))))
- `(ivy-minibuffer-match-face-4 ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other
- 'bold))))
- `(ivy-minibuffer-match-highlight ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-intense-blue
- 'modus-theme-nuanced-blue
- blue-alt-other
- 'bold))))
- `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant)))
- `(ivy-org ((,class :foreground ,cyan-alt-other)))
- `(ivy-prompt-match ((,class :inherit ivy-current-match)))
- `(ivy-remote ((,class :foreground ,magenta)))
- `(ivy-separator ((,class :foreground ,fg-alt)))
- `(ivy-subdir ((,class :foreground ,blue-alt-other)))
- `(ivy-virtual ((,class :foreground ,magenta-alt-other)))
- `(ivy-yanked-word ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-nuanced-blue
- blue-alt))))
-;;;;; ivy-posframe
- `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main)))
- `(ivy-posframe-border ((,class :background ,bg-active)))
- `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main)))
-;;;;; jira (org-jira)
- `(jiralib-comment-face ((,class :background ,bg-alt)))
- `(jiralib-comment-header-face ((,class :inherit bold)))
- `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm)))
- `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold))))
- `(jiralib-issue-summary-face ((,class :inherit bold)))
- `(jiralib-link-filter-face ((,class :underline t)))
- `(jiralib-link-issue-face ((,class :underline t)))
- `(jiralib-link-project-face ((,class :underline t)))
-;;;;; journalctl-mode
- `(journalctl-error-face ((,class :inherit bold :foreground ,red)))
- `(journalctl-finished-face ((,class :inherit bold :foreground ,green)))
- `(journalctl-host-face ((,class :foreground ,blue)))
- `(journalctl-process-face ((,class :foreground ,cyan-alt-other)))
- `(journalctl-starting-face ((,class :foreground ,green)))
- `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold)))
- `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; js2-mode
- `(js2-error ((,class :foreground ,red)))
- `(js2-external-variable ((,class :foreground ,cyan-alt-other)))
- `(js2-function-call ((,class :foreground ,magenta)))
- `(js2-function-param ((,class :foreground ,blue)))
- `(js2-instance-member ((,class :foreground ,magenta-alt-other)))
- `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main)))
- `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan)))
- `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm)))
- `(js2-jsdoc-type ((,class :foreground ,fg-special-cold)))
- `(js2-jsdoc-value ((,class :foreground ,fg-special-warm)))
- `(js2-object-property ((,class :foreground ,fg-main)))
- `(js2-object-property-access ((,class :foreground ,fg-main)))
- `(js2-private-function-call ((,class :foreground ,green-alt-other)))
- `(js2-private-member ((,class :foreground ,fg-special-mild)))
- `(js2-warning ((,class :foreground ,yellow-alt :underline t)))
-;;;;; julia
- `(julia-macro-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta)))
- `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other)))
-;;;;; jupyter
- `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue)))
- `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other)))
- `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other)))
- `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red)))
-;;;;; kaocha-runner
- `(kaocha-runner-error-face ((,class :foreground ,red)))
- `(kaocha-runner-success-face ((,class :foreground ,green)))
- `(kaocha-runner-warning-face ((,class :foreground ,yellow)))
-;;;;; keycast
- `(keycast-command ((,class :inherit bold :foreground ,blue-active)))
- `(keycast-key ((,class ,@(modus-operandi-theme-mode-line-attrs
- bg-main blue-active
- bg-main blue-active
- blue-active blue-intense
- 'alt-style -3))))
-;;;;; line numbers (display-line-numbers-mode and global variant)
- `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt)))
- `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main)))
-;;;;; lsp-mode
- `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t)))
- `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue)))
- `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold))))
- `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other)))
- `(lsp-face-semhl-deprecated
- ((,(append '((supports :underline (:style wave))) class)
- :foreground ,yellow :underline (:style wave))
- (,class :foreground ,yellow :underline t)))
- `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other)))
- `(lsp-face-semhl-field ((,class :foreground ,cyan-alt)))
- `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-function ((,class :foreground ,magenta)))
- `(lsp-face-semhl-method ((,class :foreground ,magenta)))
- `(lsp-face-semhl-namespace ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt)))
- `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other)))
- `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt)))
- `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt)))
- `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-variable ((,class :foreground ,cyan)))
- `(lsp-face-semhl-variable-local ((,class :foreground ,cyan)))
- `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other)))
- `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt)))
- `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t)))
- `(lsp-ui-doc-background ((,class :background ,bg-alt)))
- `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other)))
- `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm)))
- `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue)))
- `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt)))
- `(lsp-ui-peek-list ((,class :background ,bg-dim)))
- `(lsp-ui-peek-peek ((,class :background ,bg-alt)))
- `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan)))
- `(lsp-ui-sideline-code-action ((,class :foreground ,yellow)))
- `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main)))
- `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt)))
- `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic)))
-;;;;; magit
- `(magit-bisect-bad ((,class :foreground ,red-alt-other)))
- `(magit-bisect-good ((,class :foreground ,green-alt-other)))
- `(magit-bisect-skip ((,class :foreground ,yellow-alt-other)))
- `(magit-blame-date ((,class :foreground ,blue)))
- `(magit-blame-dimmed ((,class :foreground ,fg-alt)))
- `(magit-blame-hash ((,class :foreground ,fg-special-warm)))
- `(magit-blame-heading ((,class :background ,bg-alt)))
- `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan)))
- `(magit-blame-margin ((,class :inherit magit-blame-highlight)))
- `(magit-blame-name ((,class :foreground ,magenta-alt-other)))
- `(magit-blame-summary ((,class :foreground ,cyan-alt-other)))
- `(magit-branch-current ((,class :foreground ,blue-alt-other :box t)))
- `(magit-branch-local ((,class :foreground ,blue-alt)))
- `(magit-branch-remote ((,class :foreground ,magenta-alt)))
- `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t)))
- `(magit-branch-upstream ((,class :slant italic)))
- `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense)))
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces, though only for the standard actions,
- ;; not the highlighted ones. This is because Magit's interaction
- ;; model relies on highlighting the current diff hunk.
- `(magit-diff-added ((,class ,@(modus-operandi-theme-diff
- bg-main green
- bg-diff-added fg-diff-added
- green-nuanced-bg fg-diff-added))))
- `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added)))
- `(magit-diff-base ((,class ,@(modus-operandi-theme-diff
- bg-main yellow
- bg-diff-changed fg-diff-changed
- yellow-nuanced-bg fg-diff-changed))))
- `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed)))
- `(magit-diff-context ((,class :foreground ,fg-unfocused)))
- `(magit-diff-context-highlight ((,class ,@(modus-operandi-theme-diff
- bg-dim fg-dim
- bg-inactive fg-inactive
- bg-dim fg-alt))))
- `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold)))
- `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold))))
- `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan)))
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces.
- `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active
- :foreground ,fg-inactive)))
- `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading
- :foreground ,fg-diff-heading)))
- `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue)))
- `(magit-diff-hunk-region ((,class :inherit bold)))
- `(magit-diff-lines-boundary ((,class :background ,fg-main)))
- `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta)))
- `(magit-diff-removed ((,class ,@(modus-operandi-theme-diff
- bg-main red
- bg-diff-removed fg-diff-removed
- red-nuanced-bg fg-diff-removed))))
- `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed)))
- `(magit-diffstat-added ((,class :foreground ,green)))
- `(magit-diffstat-removed ((,class :foreground ,red)))
- `(magit-dimmed ((,class :foreground ,fg-unfocused)))
- `(magit-filename ((,class :foreground ,fg-special-cold)))
- `(magit-hash ((,class :foreground ,fg-alt)))
- `(magit-head ((,class :inherit magit-branch-local)))
- `(magit-header-line ((,class :inherit bold :foreground ,magenta-active)))
- `(magit-header-line-key ((,class :inherit bold :foreground ,red-active)))
- `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main)))
- `(magit-keyword ((,class :foreground ,magenta)))
- `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(magit-log-author ((,class :foreground ,cyan)))
- `(magit-log-date ((,class :foreground ,fg-alt)))
- `(magit-log-graph ((,class :foreground ,fg-dim)))
- `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active)))
- `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active)))
- `(magit-process-ng ((,class :inherit error)))
- `(magit-process-ok ((,class :inherit success)))
- `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense)))
- `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense)))
- `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense)))
- `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense)))
- `(magit-refname ((,class :foreground ,fg-alt)))
- `(magit-refname-pullreq ((,class :foreground ,fg-alt)))
- `(magit-refname-stash ((,class :foreground ,fg-alt)))
- `(magit-refname-wip ((,class :foreground ,fg-alt)))
- `(magit-section ((,class :background ,bg-dim :foreground ,fg-main)))
- `(magit-section-heading ((,class :inherit bold :foreground ,cyan)))
- `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold))))
- `(magit-section-highlight ((,class :background ,bg-alt)))
- `(magit-sequence-done ((,class :foreground ,green-alt)))
- `(magit-sequence-drop ((,class :foreground ,red-alt)))
- `(magit-sequence-exec ((,class :foreground ,magenta-alt)))
- `(magit-sequence-head ((,class :foreground ,cyan-alt)))
- `(magit-sequence-onto ((,class :foreground ,fg-alt)))
- `(magit-sequence-part ((,class :foreground ,yellow-alt)))
- `(magit-sequence-pick ((,class :foreground ,blue-alt)))
- `(magit-sequence-stop ((,class :foreground ,red)))
- `(magit-signature-bad ((,class :inherit bold :foreground ,red)))
- `(magit-signature-error ((,class :foreground ,red-alt)))
- `(magit-signature-expired ((,class :foreground ,yellow)))
- `(magit-signature-expired-key ((,class :foreground ,yellow)))
- `(magit-signature-good ((,class :foreground ,green)))
- `(magit-signature-revoked ((,class :foreground ,magenta)))
- `(magit-signature-untrusted ((,class :foreground ,cyan)))
- `(magit-tag ((,class :foreground ,yellow-alt-other)))
-;;;;; magit-imerge
- `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt)))
-;;;;; man
- `(Man-overstrike ((,class :inherit bold :foreground ,magenta)))
- `(Man-reverse ((,class :inherit modus-theme-subtle-magenta)))
- `(Man-underline ((,class :foreground ,cyan :underline t)))
-;;;;; markdown-mode
- `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(markdown-bold-face ((,class :inherit bold)))
- `(markdown-code-face ((,class ,@(modus-operandi-theme-mixed-fonts))))
- `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant)))
- `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other)))
- `(markdown-header-delimiter-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,fg-dim)))
- `(markdown-header-face ((t nil)))
- `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1)))
- `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2)))
- `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3)))
- `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4)))
- `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5)))
- `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6)))
- `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(markdown-html-attr-name-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(markdown-html-attr-value-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,blue)))
- `(markdown-html-entity-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(markdown-html-tag-delimiter-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,fg-special-mild)))
- `(markdown-html-tag-name-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,magenta-alt)))
- `(markdown-inline-code-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,magenta)))
- `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markdown-language-info-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(markdown-language-keyword-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,green-alt-other)))
- `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t)))
- `(markdown-link-face ((,class :inherit link)))
- `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(markdown-list-face ((,class :foreground ,fg-dim)))
- `(markdown-markup-face ((,class :foreground ,fg-alt)))
- `(markdown-math-face ((,class :foreground ,magenta-alt-other)))
- `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other)))
- `(markdown-metadata-value-face ((,class :foreground ,blue-alt)))
- `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow)))
- `(markdown-plain-url-face ((,class :inherit markdown-link-face)))
- `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- ,@(modus-operandi-theme-mixed-fonts)
- :background ,bg-dim
- :foreground ,fg-special-mild)))
- `(markdown-reference-face ((,class :inherit markdown-markup-face)))
- `(markdown-strike-through-face ((,class :strike-through t)))
- `(markdown-table-face ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(markdown-url-face ((,class :foreground ,blue-alt)))
-;;;;; markup-faces (`adoc-mode')
- `(markup-anchor-face ((,class :foreground ,fg-inactive)))
- `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic)))
- `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced)))
- `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced)))
- `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta)))
- `(markup-command-face ((,class :foreground ,fg-inactive)))
- `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button)
- :inherit modus-theme-refine-magenta)))
- `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markup-error-face ((,class :inherit bold :foreground ,red)))
- `(markup-gen-face ((,class :foreground ,magenta-alt)))
- `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive)))
- `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markup-list-face ((,class :inherit modus-theme-special-calm)))
- `(markup-meta-face ((,class :foreground ,fg-inactive)))
- `(markup-meta-hide-face ((,class :foreground ,fg-alt)))
- `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan)))
- `(markup-preprocessor-face ((,class :foreground ,red-alt-other)))
- `(markup-replacement-face ((,class :foreground ,yellow-alt-other)))
- `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced)))
- `(markup-small-face ((,class :height 0.8 :foreground ,fg-main)))
- `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced)))
- `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
- `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
- `(markup-table-cell-face ((,class :inherit modus-theme-special-cold)))
- `(markup-table-face ((,class :inherit modus-theme-subtle-cyan)))
- `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan)))
- `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced)))
- `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced)))
- `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced)))
- `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced)))
- `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced)))
- `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t)))
- `(markup-value-face ((,class :foreground ,fg-inactive)))
- `(markup-verbatim-face ((,class :inherit modus-theme-special-mild)))
-;;;;; mentor
- `(mentor-download-message ((,class :foreground ,fg-special-warm)))
- `(mentor-download-name ((,class :foreground ,fg-special-cold)))
- `(mentor-download-progress ((,class :foreground ,blue-alt-other)))
- `(mentor-download-size ((,class :foreground ,magenta-alt-other)))
- `(mentor-download-speed-down ((,class :foreground ,cyan-alt)))
- `(mentor-download-speed-up ((,class :foreground ,red-alt)))
- `(mentor-download-state ((,class :foreground ,yellow-alt)))
- `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue)))
- `(mentor-tracker-name ((,class :foreground ,magenta-alt)))
-;;;;; messages
- `(message-cited-text-1 ((,class :foreground ,blue-alt)))
- `(message-cited-text-2 ((,class :foreground ,red-alt)))
- `(message-cited-text-3 ((,class :foreground ,green-alt)))
- `(message-cited-text-4 ((,class :foreground ,magenta-alt)))
- `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt)))
- `(message-header-name ((,class :foreground ,green-alt-other)))
- `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt)))
- `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(message-header-to ((,class :inherit bold :foreground ,blue)))
- `(message-header-xheader ((,class :foreground ,cyan)))
- `(message-mml ((,class :foreground ,fg-special-warm)))
- `(message-separator ((,class :inherit modus-theme-intense-neutral)))
-;;;;; minibuffer-line
- `(minibuffer-line ((,class :foreground ,fg-main)))
-;;;;; minimap
- `(minimap-active-region-background ((,class :background ,bg-active)))
- `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
-;;;;; modeline
- `(mode-line ((,class ,@(modus-operandi-theme-mode-line-attrs
- fg-active bg-active fg-dim bg-active
- fg-alt bg-active 'alt-style nil bg-main))))
- `(mode-line-buffer-id ((,class :inherit bold)))
- `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active)))
- `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button))))
- `(mode-line-inactive ((,class ,@(modus-operandi-theme-mode-line-attrs
- fg-inactive bg-inactive fg-alt bg-dim
- bg-region bg-active))))
-;;;;; mood-line
- `(mood-line-modified ((,class :foreground ,magenta-active)))
- `(mood-line-status-error ((,class :inherit bold :foreground ,red-active)))
- `(mood-line-status-info ((,class :foreground ,cyan-active)))
- `(mood-line-status-neutral ((,class :foreground ,blue-active)))
- `(mood-line-status-success ((,class :foreground ,green-active)))
- `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(mood-line-unimportant ((,class :foreground ,fg-inactive)))
-;;;;; mpdel
- `(mpdel-browser-directory-face ((,class :foreground ,blue)))
- `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other)))
-;;;;; mu4e
- `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(mu4e-cited-1-face ((,class :foreground ,blue-alt)))
- `(mu4e-cited-2-face ((,class :foreground ,red-alt)))
- `(mu4e-cited-3-face ((,class :foreground ,green-alt)))
- `(mu4e-cited-4-face ((,class :foreground ,magenta-alt)))
- `(mu4e-cited-5-face ((,class :foreground ,yellow-alt)))
- `(mu4e-cited-6-face ((,class :foreground ,cyan-alt)))
- `(mu4e-cited-7-face ((,class :foreground ,magenta)))
- `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face)))
- `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral)))
- `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(mu4e-context-face ((,class :foreground ,blue-active)))
- `(mu4e-draft-face ((,class :foreground ,magenta-alt)))
- `(mu4e-flagged-face ((,class :foreground ,red-alt)))
- `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other)))
- `(mu4e-header-face ((,class :foreground ,fg-alt)))
- `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line)))
- `(mu4e-header-key-face ((,class :foreground ,cyan)))
- `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(mu4e-header-title-face ((,class :foreground ,fg-special-mild)))
- `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(mu4e-link-face ((,class :inherit link)))
- `(mu4e-modeline-face ((,class :foreground ,magenta-active)))
- `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(mu4e-ok-face ((,class :inherit bold :foreground ,green)))
- `(mu4e-region-code ((,class :inherit modus-theme-special-calm)))
- `(mu4e-replied-face ((,class :foreground ,blue-faint)))
- `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant)))
- `(mu4e-title-face ((,class :foreground ,fg-main)))
- `(mu4e-trashed-face ((,class :foreground ,red)))
- `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main)))
- `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(mu4e-view-body-face ((,class :foreground ,fg-main)))
- `(mu4e-warning-face ((,class :inherit warning)))
-;;;;; mu4e-conversation
- `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold)))
- `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm)))
- `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold)))
- `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild)))
- `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt)))
- `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg)))
- `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg)))
- `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg)))
- `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg)))
- `(mu4e-conversation-sender-me ((,class :foreground ,fg-main)))
- `(mu4e-conversation-unread ((,class :inherit bold)))
-;;;;; multiple-cursors
- `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main)))
- `(mc/cursor-face ((,class :inverse-video t)))
- `(mc/region-face ((,class :inherit region)))
-;;;;; neotree
- `(neo-banner-face ((,class :foreground ,magenta)))
- `(neo-button-face ((,class :inherit button)))
- `(neo-dir-link-face ((,class :inherit bold :foreground ,blue)))
- `(neo-expand-btn-face ((,class :foreground ,cyan)))
- `(neo-file-link-face ((,class :foreground ,fg-main)))
- `(neo-header-face ((,class :inherit bold :foreground ,fg-main)))
- `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(neo-vc-added-face ((,class :foreground ,green)))
- `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red)))
- `(neo-vc-default-face ((,class :foreground ,fg-main)))
- `(neo-vc-edited-face ((,class :foreground ,yellow)))
- `(neo-vc-ignored-face ((,class :foreground ,fg-inactive)))
- `(neo-vc-missing-face ((,class :foreground ,red-alt)))
- `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt)))
- `(neo-vc-needs-update-face ((,class :underline t)))
- `(neo-vc-removed-face ((,class :strike-through t)))
- `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue)))
- `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt)))
- `(neo-vc-user-face ((,class :foreground ,magenta)))
-;;;;; no-emoji
- `(no-emoji ((,class :foreground ,cyan)))
-;;;;; notmuch
- `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta)))
- `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other)))
- `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red)))
- `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green)))
- `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow)))
- `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red)))
- `(notmuch-hello-logo-background ((,class :background ,bg-main)))
- `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan)))
- `(notmuch-search-flagged-face ((,class :foreground ,red-alt)))
- `(notmuch-search-matching-authors ((,class :foreground ,fg-main)))
- `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt)))
- `(notmuch-search-unread-face ((,class :inherit bold)))
- `(notmuch-tag-added
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,green :style wave))
- (,class :foreground ,green :underline t)))
- `(notmuch-tag-deleted
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,red :style wave))
- (,class :foreground ,red :underline t)))
- `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt)))
- `(notmuch-tag-flagged ((,class :foreground ,red-alt)))
- `(notmuch-tag-unread ((,class :foreground ,magenta-alt)))
- `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold)))
- `(notmuch-tree-match-face ((,class :foreground ,fg-main)))
- `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt)))
- `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt)))
- `(notmuch-wash-cited-text ((,class :foreground ,cyan)))
- `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt)))
-;;;;; num3-mode
- `(num3-face-even ((,class :inherit bold :background ,bg-alt)))
-;;;;; nxml-mode
- `(nxml-attribute-colon ((,class :foreground ,fg-main)))
- `(nxml-attribute-local-name ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt cyan-alt-faint))))
- `(nxml-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-attribute-value ((,class ,@(modus-operandi-theme-syntax-foreground
- blue blue-faint))))
- `(nxml-cdata-section-CDATA ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-cdata-section-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(nxml-char-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt-other green-alt-other-faint))))
- `(nxml-char-ref-number ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(nxml-delimiter ((,class :foreground ,fg-dim)))
- `(nxml-element-colon ((,class :foreground ,fg-main)))
- `(nxml-element-local-name ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(nxml-element-prefix ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-entity-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt-other green-alt-other-faint))))
- `(nxml-entity-ref-name ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-glyph ((,class :inherit modus-theme-intense-neutral)))
- `(nxml-hash ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt blue-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-heading ((,class :inherit bold)))
- `(nxml-name ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main)))
- `(nxml-namespace-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(nxml-processing-instruction-target ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-prolog-keyword ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(nxml-ref ((,class ,@(modus-operandi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
-;;;;; objed
- `(objed-hl ((,class :background ,(if modus-operandi-theme-intense-hl-line
- bg-hl-alt-intense bg-hl-alt))))
- `(objed-mark ((,class :background ,bg-active)))
- `(objed-mode-line ((,class :foreground ,cyan-active)))
-;;;;; orderless
- `(orderless-match-face-0 ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- blue-alt-other blue-nuanced-bg
- blue-refine-bg blue-refine-fg))))
- `(orderless-match-face-1 ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- magenta-alt magenta-nuanced-bg
- magenta-refine-bg magenta-refine-fg))))
- `(orderless-match-face-2 ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- green green-nuanced-bg
- green-refine-bg green-refine-fg))))
- `(orderless-match-face-3 ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- yellow yellow-nuanced-bg
- yellow-refine-bg yellow-refine-fg))))
-;;;;; org
- `(org-agenda-calendar-event ((,class :foreground ,fg-main)))
- `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt)))
- `(org-agenda-clocking ((,class :inherit modus-theme-special-cold
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(org-agenda-column-dateline ((,class :background ,bg-alt)))
- `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other)))
- `(org-agenda-date ((,class :foreground ,cyan)))
- `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t)))
- `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other)))
- `(org-agenda-diary ((,class :foreground ,fg-main)))
- `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt)))
- `(org-agenda-done ((,class :foreground ,green-alt)))
- `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(org-agenda-structure ((,class :foreground ,blue-alt)))
- `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(org-block ((,class ,@(modus-operandi-theme-mixed-fonts)
- ,@(modus-operandi-theme-org-block bg-dim)
- :foreground ,fg-main)))
- `(org-block-begin-line ((,class ,@(modus-operandi-theme-mixed-fonts)
- ,@(modus-operandi-theme-org-block-delim
- bg-dim fg-special-cold
- bg-alt fg-special-mild))))
- `(org-block-end-line ((,class :inherit org-block-begin-line)))
- `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active)
- :background ,bg-inactive :foreground ,fg-active)))
- `(org-checkbox-statistics-done ((,class :inherit org-done)))
- `(org-checkbox-statistics-todo ((,class :inherit org-todo)))
- `(org-clock-overlay ((,class :inherit modus-theme-special-cold)))
- `(org-code ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,magenta)))
- `(org-column ((,class :background ,bg-alt)))
- `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt)))
- `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other)))
- `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t)))
- `(org-document-info ((,class :foreground ,fg-special-cold)))
- `(org-document-info-keyword ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,fg-alt)))
- `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5))))
- `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green)))
- `(org-drawer ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour
- `(org-footnote ((,class :inherit button :foreground ,blue-alt)))
- `(org-formula ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,red-alt)))
- `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow)))
- `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow)))
- `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta)))
- `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta)))
- `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red)))
- `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red)))
- `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue)))
- `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue)))
- `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced)))
- `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced)))
- `(org-hide ((,class :foreground ,bg-main)))
- `(org-indent ((,class :inherit (fixed-pitch org-hide))))
- `(org-latex-and-related ((,class :foreground ,magenta-refine-fg)))
- `(org-level-1 ((,class :inherit modus-theme-heading-1)))
- `(org-level-2 ((,class :inherit modus-theme-heading-2)))
- `(org-level-3 ((,class :inherit modus-theme-heading-3)))
- `(org-level-4 ((,class :inherit modus-theme-heading-4)))
- `(org-level-5 ((,class :inherit modus-theme-heading-5)))
- `(org-level-6 ((,class :inherit modus-theme-heading-6)))
- `(org-level-7 ((,class :inherit modus-theme-heading-7)))
- `(org-level-8 ((,class :inherit modus-theme-heading-8)))
- `(org-link ((,class :inherit link)))
- `(org-list-dt ((,class :inherit bold)))
- `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other)))
- `(org-meta-line ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,fg-alt)))
- `(org-mode-line-clock ((,class :foreground ,fg-main)))
- `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red)))
- `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta)))
- `(org-property-value ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,cyan-alt-other)))
- `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim)
- :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(org-scheduled ((,class :foreground ,fg-special-warm)))
- `(org-scheduled-previously ((,class :foreground ,yellow-alt-other)))
- `(org-scheduled-today ((,class :foreground ,magenta-alt-other)))
- `(org-sexp-date ((,class :inherit org-date)))
- `(org-special-keyword ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,blue-nuanced)))
- `(org-table ((,class ,@(modus-operandi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral))))
- `(org-tag ((,class :foreground ,magenta-nuanced)))
- `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced)))
- `(org-target ((,class :underline t)))
- `(org-time-grid ((,class :foreground ,fg-unfocused)))
- `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt)))
- `(org-upcoming-deadline ((,class :foreground ,red-alt-other)))
- `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced)))
- `(org-verbatim ((,class ,@(modus-operandi-theme-mixed-fonts)
- :background ,bg-alt :foreground ,fg-special-calm)))
- `(org-verse ((,class :inherit org-quote)))
- `(org-warning ((,class :inherit bold :foreground ,red-alt-other)))
-;;;;; org-journal
- `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant)))
- `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant)))
- `(org-journal-highlight ((,class :foreground ,magenta-alt)))
-;;;;; org-noter
- `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active)))
- `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active)))
-;;;;; org-pomodoro
- `(org-pomodoro-mode-line ((,class :foreground ,red-active)))
- `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active)))
- `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active)))
-;;;;; org-recur
- `(org-recur ((,class :foreground ,magenta-active)))
-;;;;; org-roam
- `(org-roam-link ((,class :inherit button :foreground ,green)))
- `(org-roam-link-current ((,class :inherit button :foreground ,green-alt)))
- `(org-roam-link-invalid ((,class :inherit button :foreground ,red)))
- `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow)))
- `(org-roam-tag ((,class :foreground ,fg-alt :slant italic)))
-;;;;; org-superstar
- `(org-superstar-item ((,class :foreground ,fg-main)))
- `(org-superstar-leading ((,class :foreground ,fg-whitespace)))
-;;;;; org-table-sticky-header
- `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral)))
-;;;;; org-treescope
- `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue)))
- `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild)))
-;;;;; origami
- `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t)))
- `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt)))
-;;;;; outline-mode
- `(outline-1 ((,class :inherit modus-theme-heading-1)))
- `(outline-2 ((,class :inherit modus-theme-heading-2)))
- `(outline-3 ((,class :inherit modus-theme-heading-3)))
- `(outline-4 ((,class :inherit modus-theme-heading-4)))
- `(outline-5 ((,class :inherit modus-theme-heading-5)))
- `(outline-6 ((,class :inherit modus-theme-heading-6)))
- `(outline-7 ((,class :inherit modus-theme-heading-7)))
- `(outline-8 ((,class :inherit modus-theme-heading-8)))
-;;;;; outline-minor-faces
- `(outline-minor-0 ((,class nil)))
-;;;;; package (M-x list-packages)
- `(package-description ((,class :foreground ,fg-special-cold)))
- `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(package-name ((,class :inherit link)))
- `(package-status-avail-obso ((,class :inherit bold :foreground ,red)))
- `(package-status-available ((,class :foreground ,fg-special-mild)))
- `(package-status-built-in ((,class :foreground ,magenta)))
- `(package-status-dependency ((,class :foreground ,magenta-alt-other)))
- `(package-status-disabled ((,class :inherit modus-theme-subtle-red)))
- `(package-status-external ((,class :foreground ,cyan-alt-other)))
- `(package-status-held ((,class :foreground ,yellow-alt)))
- `(package-status-incompat ((,class :inherit bold :foreground ,yellow)))
- `(package-status-installed ((,class :foreground ,fg-special-warm)))
- `(package-status-new ((,class :inherit bold :foreground ,green)))
- `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt)))
-;;;;; page-break-lines
- `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer)))
-;;;;; paradox
- `(paradox-archive-face ((,class :foreground ,fg-special-mild)))
- `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t)))
- `(paradox-description-face ((,class :foreground ,fg-special-cold)))
- `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold)))
- `(paradox-download-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other)))
- `(paradox-highlight-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-alt-other)))
- `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t)))
- `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active)))
- `(paradox-name-face ((,class :foreground ,blue :underline t)))
- `(paradox-star-face ((,class :foreground ,magenta)))
- `(paradox-starred-face ((,class :foreground ,magenta-alt)))
-;;;;; paren-face
- `(parenthesis ((,class :foreground ,fg-unfocused)))
-;;;;; parrot
- `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta)))
-;;;;; pass
- `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main)))
- `(pass-mode-header-face ((,class :foreground ,fg-special-warm)))
-;;;;; persp-mode
- `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red)))
- `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active)))
- `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active)))
-;;;;; perspective
- `(persp-selected-face ((,class :inherit bold :foreground ,blue-active)))
-;;;;; phi-grep
- `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm)))
- `(phi-grep-match-face ((,class :inherit modus-theme-special-calm)))
- `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow)))
- `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue)))
-;;;;; phi-search
- `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta)))
- `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red)))
- `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan)))
- `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; pkgbuild-mode
- `(pkgbuild-error-face ((,class :underline ,fg-lang-error)))
-;;;;; pomidor
- `(pomidor-break-face ((,class :foreground ,blue-alt-other)))
- `(pomidor-overwork-face ((,class :foreground ,red-alt-other)))
- `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(pomidor-work-face ((,class :foreground ,green-alt-other)))
-;;;;; powerline
- `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t)))
- `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced)))
- `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active)))
- `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive)))
- `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; powerline-evil
- `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main)))
- `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta)))
- `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green)))
- `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue)))
- `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main)))
- `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow)))
- `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red)))
- `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan)))
-;;;;; proced
- `(proced-mark ((,class :inherit modus-theme-mark-symbol)))
- `(proced-marked ((,class :inherit modus-theme-mark-alt)))
- `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t)))
-;;;;; prodigy
- `(prodigy-green-face ((,class :foreground ,green)))
- `(prodigy-red-face ((,class :foreground ,red)))
- `(prodigy-yellow-face ((,class :foreground ,yellow)))
-;;;;; racket-mode
- `(racket-debug-break-face ((,class :inherit modus-theme-intense-red)))
- `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil)
- :foreground ,green-alt-other)))
- `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil)
- :foreground ,green)))
- `(racket-here-string-face ((,class :foreground ,blue-alt)))
- `(racket-keyword-argument-face ((,class :foreground ,red-alt)))
- `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(racket-logger-debug-face ((,class :foreground ,blue-alt-other)))
- `(racket-logger-info-face ((,class :foreground ,fg-lang-note)))
- `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(racket-selfeval-face ((,class :foreground ,green-alt)))
- `(racket-xp-error-face
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; rainbow-blocks
- `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other)))
- `(rainbow-blocks-depth-2-face ((,class :foreground ,blue)))
- `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt)))
- `(rainbow-blocks-depth-4-face ((,class :foreground ,green)))
- `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta)))
- `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan)))
- `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow)))
- `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt)))
- `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt)))
- `(rainbow-blocks-unmatched-face ((,class :foreground ,red)))
-;;;;; rainbow-identifiers
- `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other)))
- `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other)))
- `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other)))
- `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other)))
- `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other)))
- `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt)))
- `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt)))
- `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt)))
- `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt)))
- `(rainbow-identifiers-identifier-10 ((,class :foreground ,green)))
- `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta)))
- `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan)))
- `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow)))
- `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt)))
- `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt)))
-;;;;; rainbow-delimiters
- `(rainbow-delimiters-base-face-error ((,class :foreground ,red)))
- `(rainbow-delimiters-base-face ((,class :foreground ,fg-main)))
- `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other)))
- `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other)))
- `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other)))
- `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other)))
- `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other)))
- `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt)))
- `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt)))
- `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt)))
- `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt)))
- `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt)))
- `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red)))
-;;;;; rcirc
- `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt)))
- `(rcirc-dim-nick ((,class :foreground ,fg-alt)))
- `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta)))
- `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other)))
- `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild)))
- `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold)))
- `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(rcirc-server ((,class :foreground ,fg-unfocused)))
- `(rcirc-timestamp ((,class :foreground ,blue-nuanced)))
- `(rcirc-url ((,class :foreground ,blue :underline t)))
-;;;;; regexp-builder (re-builder)
- `(reb-match-0 ((,class :inherit modus-theme-intense-blue)))
- `(reb-match-1 ((,class :inherit modus-theme-intense-magenta)))
- `(reb-match-2 ((,class :inherit modus-theme-intense-green)))
- `(reb-match-3 ((,class :inherit modus-theme-intense-red)))
- `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
- `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
-;;;;; rg (rg.el)
- `(rg-column-number-face ((,class :foreground ,magenta-alt-other)))
- `(rg-context-face ((,class :foreground ,fg-unfocused)))
- `(rg-error-face ((,class :inherit bold :foreground ,red)))
- `(rg-file-tag-face ((,class :foreground ,fg-special-cold)))
- `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(rg-line-number-face ((,class :foreground ,fg-special-warm)))
- `(rg-literal-face ((,class :foreground ,blue-alt)))
- `(rg-match-face ((,class :inherit modus-theme-special-calm)))
- `(rg-regexp-face ((,class :foreground ,magenta-active)))
- `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive)))
- `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active)))
- `(rg-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; ripgrep
- `(ripgrep-context-face ((,class :foreground ,fg-unfocused)))
- `(ripgrep-error-face ((,class :inherit bold :foreground ,red)))
- `(ripgrep-hit-face ((,class :foreground ,cyan)))
- `(ripgrep-match-face ((,class :inherit modus-theme-special-calm)))
-;;;;; rmail
- `(rmail-header-name ((,class :foreground ,cyan-alt-other)))
- `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt)))
-;;;;; ruler-mode
- `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main)))
- `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active)))
- `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t)))
- `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active)))
- `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active)))
- `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active)))
- `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main)))
- `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive)))
- `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active)))
-;;;;; sallet
- `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic)))
- `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced)))
- `(sallet-buffer-directory ((,class :foreground ,blue-nuanced)))
- `(sallet-buffer-help ((,class :foreground ,fg-special-cold)))
- `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic)))
- `(sallet-buffer-ordinary ((,class :foreground ,fg-main)))
- `(sallet-buffer-read-only ((,class :foreground ,yellow-alt)))
- `(sallet-buffer-size ((,class :foreground ,fg-special-calm)))
- `(sallet-buffer-special ((,class :foreground ,magenta-alt-other)))
- `(sallet-flx-match ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other))))
- `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced)))
- `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild)))
- `(sallet-regexp-match ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other))))
- `(sallet-source-header ((,class :inherit bold :foreground ,red-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(sallet-substring-match ((,class ,@(modus-operandi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-nuanced-blue
- blue-alt-other))))
-;;;;; selectrum
- `(selectrum-current-candidate
- ((,class :inherit bold :foreground ,fg-main :underline ,fg-main
- :background ,@(pcase modus-operandi-theme-completions
- ('opinionated (list bg-active))
- (_ (list bg-inactive))))))
- `(selectrum-primary-highlight ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- magenta-alt magenta-nuanced-bg
- magenta-refine-bg magenta-refine-fg))))
- `(selectrum-secondary-highlight ((,class :inherit bold
- ,@(modus-operandi-theme-standard-completions
- cyan-alt-other cyan-nuanced-bg
- cyan-refine-bg cyan-refine-fg))))
-;;;;; semantic
- `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t)))
- `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan)))
- `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim)))
- `(semantic-highlight-edits-face ((,class :background ,bg-alt)))
- `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt)))
- `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild)))
- `(semantic-tag-boundary-face ((,class :overline ,blue-intense)))
- `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error)))
-;;;;; sesman
- `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t)))
- `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue)))
- `(sesman-buffer-face ((,class :foreground ,magenta)))
- `(sesman-directory-face ((,class :inherit bold :foreground ,blue)))
- `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; shell-script-mode
- `(sh-heredoc ((,class :foreground ,blue-alt)))
- `(sh-quoted-exec ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt)))
-;;;;; show-paren-mode
- `(show-paren-match ((,class ,@(modus-operandi-theme-paren bg-paren-match
- bg-paren-match-intense)
- :foreground ,fg-main)))
- `(show-paren-match-expression ((,class :inherit modus-theme-special-calm)))
- `(show-paren-mismatch ((,class :inherit modus-theme-intense-red)))
-;;;;; side-notes
- `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim)))
-;;;;; skewer-mode
- `(skewer-error-face ((,class :foreground ,red :underline t)))
-;;;;; smart-mode-line
- `(sml/charging ((,class :foreground ,green-active)))
- `(sml/discharging ((,class :foreground ,red-active)))
- `(sml/filename ((,class :inherit bold :foreground ,blue-active)))
- `(sml/folder ((,class :foreground ,fg-active)))
- `(sml/git ((,class :inherit bold :foreground ,green-active)))
- `(sml/global ((,class :foreground ,fg-active)))
- `(sml/line-number ((,class :inherit sml/global)))
- `(sml/minor-modes ((,class :inherit sml/global)))
- `(sml/modes ((,class :inherit bold :foreground ,fg-active)))
- `(sml/modified ((,class :inherit bold :foreground ,magenta-active)))
- `(sml/mule-info ((,class :inherit sml/global)))
- `(sml/name-filling ((,class :foreground ,yellow-active)))
- `(sml/not-modified ((,class :inherit sml/global)))
- `(sml/numbers-separator ((,class :inherit sml/global)))
- `(sml/outside-modified ((,class :inherit modus-theme-intense-red)))
- `(sml/position-percentage ((,class :inherit sml/global)))
- `(sml/prefix ((,class :foreground ,green-active)))
- `(sml/process ((,class :inherit sml/prefix)))
- `(sml/projectile ((,class :inherit sml/git)))
- `(sml/read-only ((,class :inherit bold :foreground ,cyan-active)))
- `(sml/remote ((,class :inherit sml/global)))
- `(sml/sudo ((,class :inherit modus-theme-subtle-red)))
- `(sml/time ((,class :inherit sml/global)))
- `(sml/vc ((,class :inherit sml/git)))
- `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; smartparens
- `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm)))
- `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild)))
- `(sp-show-pair-match-face ((,class ,@(modus-operandi-theme-paren bg-paren-match
- bg-paren-match-intense)
- :foreground ,fg-main)))
- `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red)))
- `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face)))
-;;;;; smerge
- `(smerge-base ((,class :inherit modus-theme-diff-changed)))
- `(smerge-lower ((,class :inherit modus-theme-diff-added)))
- `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added)))
- `(smerge-refined-changed ((,class)))
- `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed)))
- `(smerge-upper ((,class :inherit modus-theme-diff-removed)))
-;;;;; spaceline
- `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta)))
- `(spaceline-evil-insert ((,class :inherit modus-theme-active-green)))
- `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue)))
- `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt)))
- `(spaceline-evil-replace ((,class :inherit modus-theme-active-red)))
- `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan)))
- `(spaceline-flycheck-error ((,class :foreground ,red-active)))
- `(spaceline-flycheck-info ((,class :foreground ,cyan-active)))
- `(spaceline-flycheck-warning ((,class :foreground ,yellow-active)))
- `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue)))
- `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta)))
- `(spaceline-python-venv ((,class :foreground ,magenta-active)))
- `(spaceline-read-only ((,class :inherit modus-theme-fringe-red)))
- `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan)))
-;;;;; speedbar
- `(speedbar-button-face ((,class :inherit link)))
- `(speedbar-directory-face ((,class :inherit bold :foreground ,blue)))
- `(speedbar-file-face ((,class :foreground ,fg-main)))
- `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue)))
- `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan)))
- `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral)))
- `(speedbar-tag-face ((,class :foreground ,yellow-alt-other)))
-;;;;; spell-fu
- `(spell-fu-incorrect-face
- ((,(append '((supports :underline (:style wave))) class)
- :foreground ,fg-lang-error :underline (:style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; stripes
- `(stripes ((,class :inherit modus-theme-hl-line)))
-;;;;; success
- `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other)))
-;;;;; switch-window
- `(switch-window-background ((,class :background ,bg-dim)))
- `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense)))
-;;;;; swiper
- `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral)))
- `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan)))
- `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta)))
- `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green)))
- `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-special-cold)))
- `(swiper-match-face-1 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-2 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-3 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-4 ((,class :inherit swiper-line-face)))
-;;;;; swoop
- `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3))))
- `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt
- ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4))))
- `(swoop-face-line-number ((,class :foreground ,fg-special-warm)))
- `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan)))
-;;;;; sx
- `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other)))
- `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold))))
- `(sx-question-list-answers ((,class :foreground ,green)))
- `(sx-question-list-answers-accepted ((,class :box t :foreground ,green)))
- `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow)))
- `(sx-question-list-date ((,class :foreground ,fg-special-cold)))
- `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm)))
- `(sx-question-list-parent ((,class :foreground ,fg-main)))
- `(sx-question-list-read-question ((,class :foreground ,fg-alt)))
- `(sx-question-list-score ((,class :foreground ,fg-special-mild)))
- `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold))))
- `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main)))
- `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green)))
- `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil))))
- `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main)))
- `(sx-question-mode-content-face ((,class :background ,bg-dim)))
- `(sx-question-mode-date ((,class :foreground ,blue)))
- `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan)))
- `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main)))
- `(sx-question-mode-score ((,class :foreground ,fg-dim)))
- `(sx-question-mode-score-downvoted ((,class :foreground ,yellow)))
- `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta)))
- `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main)))
- `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt)))
- `(sx-tag ((,class :foreground ,magenta-alt)))
- `(sx-user-name ((,class :foreground ,blue-alt)))
- `(sx-user-reputation ((,class :foreground ,fg-alt)))
-;;;;; symbol-overlay
- `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm)))
- `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue)))
- `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta)))
- `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow)))
- `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta)))
- `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red)))
- `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red)))
- `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan)))
- `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan)))
-;;;;; syslog-mode
- `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(syslog-error ((,class :inherit bold :foreground ,red)))
- `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main)))
- `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other)))
- `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t)))
- `(syslog-su ((,class :inherit bold :foreground ,red-alt)))
- `(syslog-warn ((,class :inherit bold :foreground ,yellow)))
-;;;;; table (built-in table.el)
- `(table-cell ((,class :background ,blue-nuanced-bg)))
-;;;;; telephone-line
- `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive)))
- `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active)))
- `(telephone-line-error ((,class :inherit bold :foreground ,red-active)))
- `(telephone-line-evil ((,class :foreground ,fg-main)))
- `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg)))
- `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg)))
- `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg)))
- `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt)))
- `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg)))
- `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg)))
- `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg)))
- `(telephone-line-projectile ((,class :foreground ,cyan-active)))
- `(telephone-line-unimportant ((,class :foreground ,fg-inactive)))
- `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; term
- `(term ((,class :background ,bg-main :foreground ,fg-main)))
- `(term-bold ((,class :inherit bold)))
- `(term-color-blue ((,class :background ,blue :foreground ,blue)))
- `(term-color-cyan ((,class :background ,cyan :foreground ,cyan)))
- `(term-color-green ((,class :background ,green :foreground ,green)))
- `(term-color-magenta ((,class :background ,magenta :foreground ,magenta)))
- `(term-color-red ((,class :background ,red :foreground ,red)))
- `(term-color-yellow ((,class :background ,yellow :foreground ,yellow)))
- `(term-underline ((,class :underline t)))
-;;;;; tomatinho
- `(tomatinho-ok-face ((,class :foreground ,blue-intense)))
- `(tomatinho-pause-face ((,class :foreground ,yellow-intense)))
- `(tomatinho-reset-face ((,class :foreground ,fg-alt)))
-;;;;; transient
- `(transient-active-infix ((,class :inherit modus-theme-special-mild)))
- `(transient-amaranth ((,class :inherit bold :foreground ,yellow)))
- `(transient-argument ((,class :inherit bold :foreground ,red-alt)))
- `(transient-blue ((,class :inherit bold :foreground ,blue)))
- `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red)))
- `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green)))
- `(transient-heading ((,class :inherit bold :foreground ,fg-main)))
- `(transient-inactive-argument ((,class :foreground ,fg-alt)))
- `(transient-inactive-value ((,class :foreground ,fg-alt)))
- `(transient-key ((,class :inherit bold :foreground ,blue)))
- `(transient-mismatched-key ((,class :underline t)))
- `(transient-nonstandard-key ((,class :underline t)))
- `(transient-pink ((,class :inherit bold :foreground ,magenta)))
- `(transient-red ((,class :inherit bold :foreground ,red-intense)))
- `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(transient-unreachable ((,class :foreground ,fg-unfocused)))
- `(transient-unreachable-key ((,class :foreground ,fg-unfocused)))
- `(transient-value ((,class :foreground ,magenta-alt)))
-;;;;; trashed
- `(trashed-deleted ((,class :inherit modus-theme-mark-del)))
- `(trashed-directory ((,class :foreground ,blue)))
- `(trashed-mark ((,class :inherit modus-theme-mark-symbol)))
- `(trashed-marked ((,class :inherit modus-theme-mark-alt)))
- `(trashed-restored ((,class :inherit modus-theme-mark-sel)))
- `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt)))
-;;;;; treemacs
- `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt)))
- `(treemacs-directory-face ((,class :inherit dired-directory)))
- `(treemacs-file-face ((,class :foreground ,fg-main)))
- `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main)))
- `(treemacs-git-added-face ((,class :foreground ,green-intense)))
- `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold))))
- `(treemacs-git-ignored-face ((,class :foreground ,fg-alt)))
- `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other)))
- `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other)))
- `(treemacs-git-unmodified-face ((,class :foreground ,fg-main)))
- `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other)))
- `(treemacs-help-column-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other :underline t)))
- `(treemacs-help-title-face ((,class :foreground ,blue-alt-other)))
- `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red)))
- `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green)))
- `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t)))
- `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow)))
- `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta)))
- `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face)))
- `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t)))
- `(treemacs-tags-face ((,class :foreground ,blue-alt)))
- `(treemacs-tags-face ((,class :foreground ,magenta-alt)))
-;;;;; tty-menu
- `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main)))
- `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue)))
-;;;;; tuareg
- `(caml-types-def-face ((,class :inherit modus-theme-subtle-red)))
- `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green)))
- `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green)))
- `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue)))
- `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta)))
- `(tuareg-font-double-semicolon-face ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(tuareg-font-lock-attribute-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main)))
- `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold))))
- `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta)))
- `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main)))
- `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold)))
- `(tuareg-font-lock-interactive-error-face ((,class :inherit bold
- ,@(modus-operandi-theme-syntax-foreground
- red red-faint))))
- `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(tuareg-font-lock-label-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm)))
- `(tuareg-font-lock-module-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt
- ,@(modus-operandi-theme-syntax-foreground
- blue blue-faint))))
- `(tuareg-font-lock-operator-face ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(tuareg-opam-error-face ((,class :inherit bold
- ,@(modus-operandi-theme-syntax-foreground
- red red-faint))))
- `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint)
- :slant ,modus-theme-slant)))
-;;;;; typescript
- `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant)))
- `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant)))
- `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
-;;;;; undo-tree
- `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main)))
- `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense)))
- `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt)))
- `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense)))
- `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense)))
-;;;;; vc (vc-hooks.el)
- `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant)))
- `(vc-edited-state ((,class :foreground ,yellow-active)))
- `(vc-locally-added-state ((,class :foreground ,cyan-active)))
- `(vc-locked-state ((,class :foreground ,blue-active)))
- `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant)))
- `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant)))
- `(vc-removed-state ((,class :foreground ,red-active)))
- `(vc-state-base ((,class :foreground ,fg-active)))
- `(vc-up-to-date-state ((,class :foreground ,fg-special-cold)))
-;;;;; vdiff
- `(vdiff-addition-face ((,class :inherit modus-theme-diff-added)))
- `(vdiff-change-face ((,class :inherit modus-theme-diff-changed)))
- `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
- `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
- `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed)))
- `(vdiff-target-face ((,class :inherit modus-theme-intense-blue)))
-;;;;; vimish-fold
- `(vimish-fold-fringe ((,class :foreground ,cyan-active)))
- `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue)))
- `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold)))
-;;;;; visible-mark
- `(visible-mark-active ((,class :background ,blue-intense-bg)))
- `(visible-mark-face1 ((,class :background ,cyan-intense-bg)))
- `(visible-mark-face2 ((,class :background ,yellow-intense-bg)))
- `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg)))
- `(visible-mark-forward-face2 ((,class :background ,green-intense-bg)))
-;;;;; visual-regexp
- `(vr/group-0 ((,class :inherit modus-theme-intense-blue)))
- `(vr/group-1 ((,class :inherit modus-theme-intense-magenta)))
- `(vr/group-2 ((,class :inherit modus-theme-intense-green)))
- `(vr/match-0 ((,class :inherit modus-theme-refine-yellow)))
- `(vr/match-1 ((,class :inherit modus-theme-refine-yellow)))
- `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold))))
-;;;;; volatile-highlights
- `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :background ,bg-alt :foreground ,blue-nuanced)))
-;;;;; vterm
- `(vterm-color-black ((,class :background "gray35" :foreground "gray35")))
- `(vterm-color-blue ((,class :background ,blue :foreground ,blue)))
- `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan)))
- `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main)))
- `(vterm-color-green ((,class :background ,green :foreground ,green)))
- `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t)))
- `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta)))
- `(vterm-color-red ((,class :background ,red :foreground ,red)))
- `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t)))
- `(vterm-color-white ((,class :background "gray65" :foreground "gray65")))
- `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow)))
-;;;;; wcheck-mode
- `(wcheck-default-face ((,class :foreground ,red :underline t)))
-;;;;; web-mode
- `(web-mode-annotation-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t)))
- `(web-mode-block-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue blue-faint))))
- `(web-mode-block-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-block-control-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-block-delimiter-face ((,class :foreground ,fg-main)))
- `(web-mode-block-face ((,class :background ,bg-dim)))
- `(web-mode-block-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-bold-face ((,class :inherit bold)))
- `(web-mode-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim
- ,@(modus-operandi-theme-syntax-foreground
- yellow yellow-faint))))
- `(web-mode-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-css-at-rule-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-css-color-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-css-function-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-css-priority-face ((,class ,@(modus-operandi-theme-syntax-foreground
- yellow-alt yellow-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-css-property-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-css-pseudo-class-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(web-mode-css-selector-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-css-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm)))
- `(web-mode-current-column-highlight-face ((,class :background ,bg-alt)))
- `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild)))
- `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(web-mode-error-face ((,class :inherit modus-theme-intense-red)))
- `(web-mode-filter-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-folded-face ((,class :underline t)))
- `(web-mode-function-call-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-attr-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main)))
- `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main)))
- `(web-mode-html-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-html-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-html-entity-face ((,class ,@(modus-operandi-theme-syntax-foreground
- yellow-alt-other yellow-alt-other-faint)
- :slant ,modus-theme-slant)))
- `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim)))
- `(web-mode-html-tag-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-tag-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-tag-namespaced-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-html-tag-unclosed-face ((,class ,@(modus-operandi-theme-syntax-foreground
- red red-faint)
- :underline t)))
- `(web-mode-inlay-face ((,class :background ,bg-alt)))
- `(web-mode-italic-face ((,class :slant italic)))
- `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-json-context-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(web-mode-json-key-face ((,class :foreground ,blue-nuanced)))
- `(web-mode-json-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main)))
- `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
- `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg)))
- `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced)))
- `(web-mode-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-operandi-theme-bold-weight))))
- `(web-mode-param-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-part-face ((,class :inherit web-mode-block-face)))
- `(web-mode-part-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(web-mode-script-face ((,class :inherit web-mode-part-face)))
- `(web-mode-sql-keyword-face ((,class :inherit bold
- ,@(modus-operandi-theme-syntax-foreground
- yellow yellow-faint))))
- `(web-mode-string-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt blue-alt-faint))))
- `(web-mode-style-face ((,class :inherit web-mode-part-face)))
- `(web-mode-symbol-face ((,class ,@(modus-operandi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-type-face ((,class ,@(modus-operandi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(web-mode-underline-face ((,class :underline t)))
- `(web-mode-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt
- ,@(modus-operandi-theme-syntax-foreground
- yellow-alt-other yellow-alt-other-faint))))
- `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
-;;;;; wgrep
- `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow)))
- `(wgrep-done-face ((,class :inherit modus-theme-refine-blue)))
- `(wgrep-face ((,class :inherit modus-theme-refine-green)))
- `(wgrep-file-face ((,class :foreground ,fg-special-warm)))
- `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold))))
-;;;;; which-function-mode
- `(which-func ((,class :foreground ,magenta-active)))
-;;;;; which-key
- `(which-key-command-description-face ((,class :foreground ,cyan)))
- `(which-key-group-description-face ((,class :foreground ,magenta-alt)))
- `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t)))
- `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense)))
- `(which-key-local-map-description-face ((,class :foreground ,fg-main)))
- `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(which-key-separator-face ((,class :foreground ,fg-alt)))
- `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense)))
-;;;;; whitespace-mode
- `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red)))
- `(whitespace-empty ((,class :inherit modus-theme-intense-magenta)))
- `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-line ((,class :inherit modus-theme-special-warm)))
- `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta)))
- `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan)))
- `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-trailing ((,class :inherit modus-theme-intense-red)))
-;;;;; window-divider-mode
- `(window-divider ((,class :foreground ,fg-window-divider-inner)))
- `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer)))
- `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer)))
-;;;;; winum
- `(winum-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active)))
-;;;;; writegood-mode
- `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
- `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning)))
- `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error)))
-;;;;; woman
- `(woman-addition ((,class :foreground ,magenta-alt-other)))
- `(woman-bold ((,class :inherit bold :foreground ,magenta)))
- `(woman-italic ((,class :foreground ,cyan :slant italic)))
- `(woman-unknown ((,class :foreground ,yellow :slant italic)))
-;;;;; xah-elisp-mode
- `(xah-elisp-at-symbol ((,class :inherit bold
- ,@(modus-operandi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(xah-elisp-cap-variable ((,class ,@(modus-operandi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(xah-elisp-command-face ((,class ,@(modus-operandi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(xah-elisp-dollar-symbol ((,class ,@(modus-operandi-theme-syntax-foreground
- green green-faint))))
-;;;;; xref
- `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold)))
- `(xref-line-number ((,class :foreground ,fg-alt)))
- `(xref-match ((,class :inherit match)))
-;;;;; yaml-mode
- `(yaml-tab-face ((,class :inherit modus-theme-intense-red)))
-;;;;; yasnippet
- `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main)))
-;;;;; ztree
- `(ztreep-arrow-face ((,class :foreground ,fg-inactive)))
- `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
- `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild)))
- `(ztreep-diff-model-add-face ((,class :foreground ,green)))
- `(ztreep-diff-model-diff-face ((,class :foreground ,red)))
- `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t)))
- `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt)))
- `(ztreep-expand-sign-face ((,class :foreground ,blue)))
- `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
- `(ztreep-leaf-face ((,class :foreground ,cyan)))
- `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm)))
- `(ztreep-node-face ((,class :foreground ,fg-main))))
-;;;; Emacs 27+
- (when (>= emacs-major-version 27)
- (custom-theme-set-faces
- 'modus-operandi
-;;;;; line numbers (`display-line-numbers-mode' and global variant)
- ;; NOTE that this is specifically for the faces that were
- ;; introduced in Emacs 27, as the other faces are already
- ;; supported.
- `(line-number-major-tick ((,class :inherit (bold default)
- :background ,yellow-nuanced-bg
- :foreground ,yellow-nuanced)))
- `(line-number-minor-tick ((,class :inherit (bold default)
- :background ,bg-inactive
- :foreground ,fg-inactive)))
-;;;;; tab-bar-mode
- `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main)))
- `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
- :background ,bg-tab-active :foreground ,fg-main)))
- `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
- :background ,bg-tab-inactive :foreground ,fg-dim)))
-;;;;; tab-line-mode
- `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main)))
- `(tab-line-close-highlight ((,class :foreground ,red)))
- `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
- `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
- :background ,bg-tab-active :foreground ,fg-main)))
- `(tab-line-tab-current ((,class :inherit tab-line-tab)))
- `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
- :background ,bg-tab-inactive :foreground ,fg-dim)))))
-;;;; Emacs 28+
- (when (>= emacs-major-version 28)
- (custom-theme-set-faces
- 'modus-operandi
-;;;;; isearch regexp groups
- `(isearch-group-1 ((,class :inherit modus-theme-intense-blue)))
- `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta)))))
-;;; variables
- (custom-theme-set-variables
- 'modus-operandi
-;;;; ansi-colors
- `(ansi-color-faces-vector [default bold shadow italic underline success warning error])
- `(ansi-color-names-vector [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-main])
-;;;; awesome-tray
- `(awesome-tray-mode-line-active-color ,blue)
- `(awesome-tray-mode-line-inactive-color ,bg-active)
-;;;; flymake fringe indicators
- `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red))
- `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow))
- `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan))
-;;;; ibuffer
- `(ibuffer-deletion-face 'modus-theme-mark-del)
- `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol)
- `(ibuffer-marked-face 'modus-theme-mark-sel)
- `(ibuffer-title-face 'modus-theme-pseudo-header)
-;;;; highlight-tail
- `(highlight-tail-colors
- '((,green-subtle-bg . 0)
- (,cyan-subtle-bg . 20)))
-;;;; hl-todo
- `(hl-todo-keyword-faces
- '(("HOLD" . ,yellow-alt)
- ("TODO" . ,magenta)
- ("NEXT" . ,magenta-alt-other)
- ("THEM" . ,magenta-alt)
- ("PROG" . ,cyan)
- ("OKAY" . ,cyan-alt)
- ("DONT" . ,green-alt)
- ("FAIL" . ,red)
- ("BUG" . ,red)
- ("DONE" . ,green)
- ("NOTE" . ,yellow-alt-other)
- ("KLUDGE" . ,yellow)
- ("HACK" . ,yellow)
- ("TEMP" . ,red-nuanced)
- ("FIXME" . ,red-alt-other)
- ("XXX+" . ,red-alt)
- ("REVIEW" . ,cyan-alt-other)
- ("DEPRECATED" . ,blue-nuanced)))
-;;;; vc-annotate (C-x v g)
- `(vc-annotate-background nil)
- `(vc-annotate-background-mode nil)
- `(vc-annotate-color-map
- '((20 . ,red)
- (40 . ,magenta)
- (60 . ,magenta-alt)
- (80 . ,red-alt)
- (100 . ,yellow)
- (120 . ,yellow-alt)
- (140 . ,fg-special-warm)
- (160 . ,fg-special-mild)
- (180 . ,green)
- (200 . ,green-alt)
- (220 . ,cyan-alt-other)
- (240 . ,cyan-alt)
- (260 . ,cyan)
- (280 . ,fg-special-cold)
- (300 . ,blue)
- (320 . ,blue-alt)
- (340 . ,blue-alt-other)
- (360 . ,magenta-alt-other)))
- `(vc-annotate-very-old-color nil)
-;;;; xterm-color
- `(xterm-color-names [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-alt])
- `(xterm-color-names-bright [,fg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,bg-main]))
-;;; Conditional theme variables
-;;;; org-src-block-faces
- ;; this is a user option to add a colour-coded background to source
- ;; blocks for various programming languages
- (when (eq modus-operandi-theme-org-blocks 'rainbow)
- (custom-theme-set-variables
- 'modus-operandi
- `(org-src-block-faces ; TODO this list should be expanded
- `(("emacs-lisp" modus-theme-nuanced-magenta)
- ("elisp" modus-theme-nuanced-magenta)
- ("clojure" modus-theme-nuanced-magenta)
- ("clojurescript" modus-theme-nuanced-magenta)
- ("c" modus-theme-nuanced-blue)
- ("c++" modus-theme-nuanced-blue)
- ("sh" modus-theme-nuanced-green)
- ("shell" modus-theme-nuanced-green)
- ("html" modus-theme-nuanced-yellow)
- ("xml" modus-theme-nuanced-yellow)
- ("css" modus-theme-nuanced-red)
- ("scss" modus-theme-nuanced-red)
- ("python" modus-theme-nuanced-green)
- ("ipython" modus-theme-nuanced-magenta)
- ("r" modus-theme-nuanced-cyan)
- ("yaml" modus-theme-nuanced-cyan)
- ("conf" modus-theme-nuanced-cyan)
- ("docker" modus-theme-nuanced-cyan)
- ("json" modus-theme-nuanced-cyan))))))
-
-;;; library provides
-;;;###autoload
-(when load-file-name
- (add-to-list 'custom-theme-load-path
- (file-name-as-directory (file-name-directory load-file-name))))
-
-(provide-theme 'modus-operandi)
-
-(provide 'modus-operandi-theme)
-
-;;; modus-operandi-theme.el ends here
diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el
deleted file mode 100644
index d45c3ca2ee..0000000000
--- a/etc/themes/modus-vivendi-theme.el
+++ /dev/null
@@ -1,4666 +0,0 @@
-;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*-
-
-;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
-
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; URL: https://gitlab.com/protesilaos/modus-themes
-;; Version: 0.13.0
-;; Package-Requires: ((emacs "26.1"))
-;; Keywords: faces, theme, accessibility
-
-;; This file is part of GNU Emacs.
-
-;; This program is free software; you can redistribute it and/or
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-;;
-;; This theme is designed for colour-contrast accessibility.
-;;
-;; 1. Provide a consistent minimum contrast ratio between background and
-;; foreground values of 7:1 or higher. This meets the highest such
-;; accessibility criterion per the guidelines of the Worldwide Web
-;; Consortium's Working Group on Accessibility (WCAG AAA standard).
-;;
-;; 2. Offer as close to full face coverage as possible. The list is
-;; already quite long (see further below), with more additions to follow
-;; as part of the ongoing development process.
-;;
-;; The theme provides the following customisation options, all of which
-;; are disabled by default:
-;;
-;; modus-vivendi-theme-slanted-constructs (boolean)
-;; modus-vivendi-theme-bold-constructs (boolean)
-;; modus-vivendi-theme-variable-pitch-headings (boolean)
-;; modus-vivendi-theme-no-mixed-fonts (boolean)
-;; modus-vivendi-theme-headings (alist)
-;; modus-vivendi-theme-scale-headings (boolean)
-;; modus-vivendi-theme-fringes (choice)
-;; modus-vivendi-theme-org-blocks (choice)
-;; modus-vivendi-theme-prompts (choice)
-;; modus-vivendi-theme-mode-line (choice)
-;; modus-vivendi-theme-diffs (choice)
-;; modus-vivendi-theme-faint-syntax (boolean)
-;; modus-vivendi-theme-intense-hl-line (boolean)
-;; modus-vivendi-theme-intense-paren-match (boolean)
-;; modus-vivendi-theme-no-link-underline (boolean)
-;; modus-vivendi-theme-completions (choice)
-;; modus-vivendi-theme-override-colors-alist (alist)
-;;
-;; The default scale is as follows (it can be customised as well):
-;;
-;; modus-vivendi-theme-scale-1 1.05
-;; modus-vivendi-theme-scale-2 1.1
-;; modus-vivendi-theme-scale-3 1.15
-;; modus-vivendi-theme-scale-4 1.2
-;; modus-vivendi-theme-scale-5 1.3
-;;
-;; What follows is the list of explicitly supported packages or face
-;; groups (there are implicitly supported packages as well, which
-;; inherit from font-lock or some basic group). You are encouraged to
-;; notify me of any missing package or change you would like to see.
-;;
-;; ace-window
-;; ag
-;; alert
-;; all-the-icons
-;; annotate
-;; anzu
-;; apropos
-;; apt-sources-list
-;; artbollocks-mode
-;; auctex and TeX
-;; auto-dim-other-buffers
-;; avy
-;; awesome-tray
-;; binder
-;; bm
-;; bongo
-;; boon
-;; breakpoint (provided by built-in gdb-mi.el)
-;; buffer-expose
-;; calendar and diary
-;; calfw
-;; centaur-tabs
-;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
-;; cider
-;; circe
-;; color-rg
-;; column-enforce-mode
-;; company-mode
-;; company-posframe
-;; compilation-mode
-;; completions
-;; counsel
-;; counsel-css
-;; counsel-notmuch
-;; counsel-org-capture-string
-;; cov
-;; cperl-mode
-;; csv-mode
-;; ctrlf
-;; custom (M-x customize)
-;; dap-mode
-;; dashboard (emacs-dashboard)
-;; deadgrep
-;; debbugs
-;; define-word
-;; deft
-;; dictionary
-;; diff-hl
-;; diff-mode
-;; dim-autoload
-;; dir-treeview
-;; dired
-;; dired-async
-;; dired-git
-;; dired-git-info
-;; dired-narrow
-;; dired-subtree
-;; diredfl
-;; disk-usage
-;; doom-modeline
-;; dynamic-ruler
-;; easy-jekyll
-;; easy-kill
-;; ebdb
-;; ediff
-;; eglot
-;; el-search
-;; eldoc
-;; eldoc-box
-;; elfeed
-;; elfeed-score
-;; emms
-;; enhanced-ruby-mode
-;; epa
-;; equake
-;; erc
-;; eros
-;; ert
-;; eshell
-;; eshell-fringe-status
-;; eshell-git-prompt
-;; eshell-prompt-extras (epe)
-;; eshell-syntax-highlighting
-;; evil (evil-mode)
-;; evil-goggles
-;; evil-visual-mark-mode
-;; eww
-;; eyebrowse
-;; fancy-dabbrev
-;; flycheck
-;; flycheck-color-mode-line
-;; flycheck-indicator
-;; flycheck-posframe
-;; flymake
-;; flyspell
-;; flyspell-correct
-;; flx
-;; freeze-it
-;; frog-menu
-;; focus
-;; fold-this
-;; font-lock (generic syntax highlighting)
-;; forge
-;; fountain (fountain-mode)
-;; geiser
-;; git-commit
-;; git-gutter (and variants)
-;; git-lens
-;; git-rebase
-;; git-timemachine
-;; git-walktree
-;; gnus
-;; golden-ratio-scroll-screen
-;; helm
-;; helm-ls-git
-;; helm-switch-shell
-;; helm-xref
-;; helpful
-;; highlight-blocks
-;; highlight-defined
-;; highlight-escape-sequences (`hes-mode')
-;; highlight-indentation
-;; highlight-numbers
-;; highlight-symbol
-;; highlight-tail
-;; highlight-thing
-;; hl-defined
-;; hl-fill-column
-;; hl-line-mode
-;; hl-todo
-;; hydra
-;; hyperlist
-;; ibuffer
-;; icomplete
-;; ido-mode
-;; iedit
-;; iflipb
-;; imenu-list
-;; indium
-;; info
-;; info-colors
-;; interaction-log
-;; ioccur
-;; isearch, occur, etc.
-;; ivy
-;; ivy-posframe
-;; jira (org-jira)
-;; journalctl-mode
-;; js2-mode
-;; julia
-;; jupyter
-;; kaocha-runner
-;; keycast
-;; line numbers (`display-line-numbers-mode' and global variant)
-;; lsp-mode
-;; lsp-ui
-;; magit
-;; magit-imerge
-;; man
-;; markdown-mode
-;; markup-faces (`adoc-mode')
-;; mentor
-;; messages
-;; minibuffer-line
-;; minimap
-;; modeline
-;; mood-line
-;; mpdel
-;; mu4e
-;; mu4e-conversation
-;; multiple-cursors
-;; neotree
-;; no-emoji
-;; notmuch
-;; num3-mode
-;; nxml-mode
-;; objed
-;; orderless
-;; org
-;; org-journal
-;; org-noter
-;; org-pomodoro
-;; org-recur
-;; org-roam
-;; org-superstar
-;; org-table-sticky-header
-;; org-treescope
-;; origami
-;; outline-mode
-;; outline-minor-faces
-;; package (M-x list-packages)
-;; page-break-lines
-;; paradox
-;; paren-face
-;; parrot
-;; pass
-;; persp-mode
-;; perspective
-;; phi-grep
-;; phi-search
-;; pkgbuild-mode
-;; pomidor
-;; powerline
-;; powerline-evil
-;; proced
-;; prodigy
-;; racket-mode
-;; rainbow-blocks
-;; rainbow-identifiers
-;; rainbow-delimiters
-;; rcirc
-;; regexp-builder (also known as `re-builder')
-;; rg
-;; ripgrep
-;; rmail
-;; ruler-mode
-;; sallet
-;; selectrum
-;; semantic
-;; sesman
-;; shell-script-mode
-;; show-paren-mode
-;; side-notes
-;; skewer-mode
-;; smart-mode-line
-;; smartparens
-;; smerge
-;; spaceline
-;; speedbar
-;; spell-fu
-;; stripes
-;; suggest
-;; switch-window
-;; swiper
-;; swoop
-;; sx
-;; symbol-overlay
-;; tab-bar-mode
-;; tab-line-mode
-;; syslog-mode
-;; table (built-in table.el)
-;; telephone-line
-;; term
-;; tomatinho
-;; transient (pop-up windows like Magit's)
-;; trashed
-;; treemacs
-;; tty-menu
-;; tuareg
-;; typescript
-;; undo-tree
-;; vc (built-in mode line status for version control)
-;; vc-annotate (C-x v g)
-;; vdiff
-;; vimish-fold
-;; visible-mark
-;; visual-regexp
-;; volatile-highlights
-;; vterm
-;; wcheck-mode
-;; web-mode
-;; wgrep
-;; which-function-mode
-;; which-key
-;; whitespace-mode
-;; window-divider-mode
-;; winum
-;; writegood-mode
-;; woman
-;; xah-elisp-mode
-;; xref
-;; xterm-color (and ansi-colors)
-;; yaml-mode
-;; yasnippet
-;; ztree
-
-;;; Code:
-
-\f
-
-(deftheme modus-vivendi
- "Dark theme that conforms with the highest accessibility
- standard for colour contrast between background and
- foreground elements (WCAG AAA).")
-
-;;; Custom faces
-
-;; These faces will be inherited by actual constructs. They are meant
-;; for those cases where a face needs to distinguish its output from
-;; the rest of the text, such as `isearch' and `occur'… We define
-;; these separately in order to combine each colour with its
-;; appropriate foreground value. This is to ensure a consistent
-;; contrast ratio of >= 7:1.
-(defgroup modus-theme ()
- "Theme that ensures WCAG AAA accessibility (contrast ratio
-between foreground and background is >= 7:1)."
- :group 'faces
- :prefix "modus-theme-"
- :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes")
- :tag "Modus Vivendi")
-
-(defface modus-theme-subtle-red nil nil)
-(defface modus-theme-subtle-green nil nil)
-(defface modus-theme-subtle-yellow nil nil)
-(defface modus-theme-subtle-blue nil nil)
-(defface modus-theme-subtle-magenta nil nil)
-(defface modus-theme-subtle-cyan nil nil)
-(defface modus-theme-subtle-neutral nil nil)
-(defface modus-theme-intense-red nil nil)
-(defface modus-theme-intense-green nil nil)
-(defface modus-theme-intense-yellow nil nil)
-(defface modus-theme-intense-blue nil nil)
-(defface modus-theme-intense-magenta nil nil)
-(defface modus-theme-intense-cyan nil nil)
-(defface modus-theme-intense-neutral nil nil)
-(defface modus-theme-refine-red nil nil)
-(defface modus-theme-refine-green nil nil)
-(defface modus-theme-refine-yellow nil nil)
-(defface modus-theme-refine-blue nil nil)
-(defface modus-theme-refine-magenta nil nil)
-(defface modus-theme-refine-cyan nil nil)
-(defface modus-theme-active-red nil nil)
-(defface modus-theme-active-green nil nil)
-(defface modus-theme-active-yellow nil nil)
-(defface modus-theme-active-blue nil nil)
-(defface modus-theme-active-magenta nil nil)
-(defface modus-theme-active-cyan nil nil)
-(defface modus-theme-fringe-red nil nil)
-(defface modus-theme-fringe-green nil nil)
-(defface modus-theme-fringe-yellow nil nil)
-(defface modus-theme-fringe-blue nil nil)
-(defface modus-theme-fringe-magenta nil nil)
-(defface modus-theme-fringe-cyan nil nil)
-(defface modus-theme-nuanced-red nil nil)
-(defface modus-theme-nuanced-green nil nil)
-(defface modus-theme-nuanced-yellow nil nil)
-(defface modus-theme-nuanced-blue nil nil)
-(defface modus-theme-nuanced-magenta nil nil)
-(defface modus-theme-nuanced-cyan nil nil)
-(defface modus-theme-special-cold nil nil)
-(defface modus-theme-special-mild nil nil)
-(defface modus-theme-special-warm nil nil)
-(defface modus-theme-special-calm nil nil)
-(defface modus-theme-diff-added nil nil)
-(defface modus-theme-diff-changed nil nil)
-(defface modus-theme-diff-removed nil nil)
-(defface modus-theme-diff-refine-added nil nil)
-(defface modus-theme-diff-refine-changed nil nil)
-(defface modus-theme-diff-refine-removed nil nil)
-(defface modus-theme-diff-focus-added nil nil)
-(defface modus-theme-diff-focus-changed nil nil)
-(defface modus-theme-diff-focus-removed nil nil)
-(defface modus-theme-diff-heading nil nil)
-(defface modus-theme-pseudo-header nil nil)
-(defface modus-theme-mark-alt nil nil)
-(defface modus-theme-mark-del nil nil)
-(defface modus-theme-mark-sel nil nil)
-(defface modus-theme-mark-symbol nil nil)
-(defface modus-theme-heading-1 nil nil)
-(defface modus-theme-heading-2 nil nil)
-(defface modus-theme-heading-3 nil nil)
-(defface modus-theme-heading-4 nil nil)
-(defface modus-theme-heading-5 nil nil)
-(defface modus-theme-heading-6 nil nil)
-(defface modus-theme-heading-7 nil nil)
-(defface modus-theme-heading-8 nil nil)
-(defface modus-theme-hl-line nil nil)
-
-;;; Customisation options
-
-;; User-facing customisation options. They are all deactivated by
-;; default (users must opt in).
-(defcustom modus-vivendi-theme-slanted-constructs nil
- "Use slanted text in more code constructs (italics or oblique)."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-bold-constructs nil
- "Use bold text in more code constructs."
- :type 'boolean)
-
-(define-obsolete-variable-alias 'modus-vivendi-theme-proportional-fonts
- 'modus-vivendi-theme-variable-pitch-headings "`modus-vivendi-theme' 0.11.0")
-
-(defcustom modus-vivendi-theme-proportional-fonts nil
- "Use proportional fonts (variable-pitch) in headings."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-variable-pitch-headings nil
- "Use proportional fonts (variable-pitch) in headings."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-no-mixed-fonts nil
- "Disable inheritance from `fixed-pitch' in some faces.
-
-This is done by default 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'.
-The downside with the default is that users need to explicitly
-configure the font family of `fixed-pitch' in order to get a
-consistent experience. That may be something they do not want to
-do. Hence this option to disable any kind of technique for
-mixing fonts."
- :type 'boolean)
-
-(make-obsolete 'modus-vivendi-theme-rainbow-headings
- 'modus-vivendi-theme-headings
- "`modus-vivendi-theme' 0.13.0")
-
-(defcustom modus-vivendi-theme-rainbow-headings nil
- "Use more saturated colours for headings."
- :type 'boolean)
-
-(make-obsolete 'modus-vivendi-theme-section-headings
- 'modus-vivendi-theme-headings
- "`modus-vivendi-theme' 0.13.0")
-
-(defcustom modus-vivendi-theme-section-headings nil
- "Use a background and an overline in headings."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-headings
- '((t . nil))
- "Alist of styles for headings, with optional value per level.
-
-To control faces per level from 1-8, use something like this:
-
- (setq modus-vivendi-theme-headings
- '((1 . highlight)
- (2 . line)
- (t . rainbow-line-no-bold)))
-
-To set a uniform value for all heading levels, use this pattern:
-
- (setq modus-vivendi-theme-headings
- '((t . rainbow-line-no-bold)))
-
-The default uses a fairly desaturated foreground value in
-combination with a bold typographic weight. To specify this
-style for a given level N (assuming you wish to have another
-fallback option), just specify the value t like this:
-
- (setq modus-vivendi-theme-headings
- '((1 . t)
- (2 . line)
- (t . rainbow-line-no-bold)))
-
-A description of all possible values:
-
-+ `no-bold' retains the default text colour while removing
- the typographic weight.
-
-+ `line' is the same as the default plus an overline over the
- heading.
-
-+ `line-no-bold' is the same as `line' without bold weight.
-
-+ `rainbow' uses a more colourful foreground in combination
- with bold weight.
-
-+ `rainbow-line' is the same as `rainbow' plus an overline.
-
-+ `rainbow-line-no-bold' is the same as `rainbow-line' without
- the bold weight.
-
-+ `highlight' retains the default style of a fairly desaturated
- foreground combined with a bold weight and add to it a subtle
- accented background.
-
-+ `highlight-no-bold' is the same as `highlight' without a bold
- weight.
-
-+ `rainbow-highlight' is the same as `highlight' but with a more
- colourful foreground.
-
-+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight'
- without a bold weight.
-
-+ `section' retains the default looks and adds to them both an
- overline and a slightly accented background. It is, in effect,
- a combination of the `line' and `highlight' values.
-
-+ `section-no-bold' is the same as `section' without a bold
- weight.
-
-+ `rainbow-section' is the same as `section' but with a more
- colourful foreground.
-
-+ `rainbow-section-no-bold' is the same as `rainbow-section'
- without a bold weight."
- :type
- '(alist
- :key-type symbol
- :value-type
- (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t)
- (const :tag "Like the default without bold weight" no-bold)
- (const :tag "Like the default plus overline" line)
- (const :tag "Like `line' without bold weight" line-no-bold)
- (const :tag "Like the default but with more colourful foreground" rainbow)
- (const :tag "Like `rainbow' plus overline" rainbow-line)
- (const :tag "Like `rainbow' without bold weight" rainbow-no-bold)
- (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold)
- (const :tag "Like the default plus subtle background" highlight)
- (const :tag "Like `highlight' without bold weight" highlight-no-bold)
- (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight)
- (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold)
- (const :tag "Like `highlight' plus overline" section)
- (const :tag "Like `section' without bold weight" section-no-bold)
- (const :tag "Like `section' with more colourful foreground" rainbow-section)
- (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold))))
-
-(defcustom modus-vivendi-theme-scale-headings nil
- "Use font scaling for headings."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-scale-1 1.05
- "Font size that is slightly larger than the base value.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-vivendi-theme-scale-2 1.1
- "Font size slightly larger than `modus-vivendi-theme-scale-1'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-vivendi-theme-scale-3 1.15
- "Font size slightly larger than `modus-vivendi-theme-scale-2'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-vivendi-theme-scale-4 1.2
- "Font size slightly larger than `modus-vivendi-theme-scale-3'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(defcustom modus-vivendi-theme-scale-5 1.3
- "Font size slightly larger than `modus-vivendi-theme-scale-4'.
-The default is a floating point that is interpreted as a multiple
-of the base font size. However, the variable also accepts an
-integer, understood as an absolute height (e.g. a value of 140 is
-the same as setting the font at 14 point size).
-
-For more on the matter, read the documentation of
-`set-face-attribute', specifically the ':height' section."
- :type 'number)
-
-(make-obsolete 'modus-vivendi-theme-visible-fringes
- 'modus-vivendi-theme-fringes
- "`modus-vivendi-theme' 0.12.0")
-
-(defcustom modus-vivendi-theme-visible-fringes nil
- "Use a visible style for fringes."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-fringes nil
- "Define the visibility of fringes.
-
-Nil means the fringes have no background colour. Option `subtle'
-will apply a greyscale value that is visible yet close to the
-main buffer background colour. Option `intense' will use a more
-pronounced greyscale value."
- :type '(choice
- (const :tag "No visible fringes (default)" nil)
- (const :tag "Subtle greyscale background" subtle)
- (const :tag "Intense greyscale background" intense)))
-
-(make-obsolete 'modus-vivendi-theme-distinct-org-blocks
- 'modus-vivendi-theme-org-blocks
- "`modus-vivendi-theme' 0.11.0")
-
-(defcustom modus-vivendi-theme-distinct-org-blocks nil
- "Use a distinct neutral background for `org-mode' blocks."
- :type 'boolean)
-
-(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks
- 'modus-vivendi-theme-org-blocks
- "`modus-vivendi-theme' 0.11.0")
-
-(defcustom modus-vivendi-theme-rainbow-org-src-blocks nil
- "Use colour-coded backgrounds for `org-mode' source blocks.
-The colour in use depends on the language (send feedback to
-include more languages)."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-org-blocks nil
- "Use a subtle grey or colour-coded background for Org blocks.
-
-Nil means that the block will have no background of its own and
-will use the default that applies to the rest of the buffer.
-
-Option `greyscale' will apply a subtle neutral grey background to
-the block's contents. It also affects the begin and end lines of
-the block: their background will be extended to the edge of the
-window for Emacs version >= 27 where the ':extend' keyword is
-recognised by `set-face-attribute'.
-
-Option `rainbow' will use an accented background for the contents
-of the block. The exact colour will depend on the programming
-language and is controlled by the `org-src-block-faces'
-variable (refer to the theme's source code for the current
-association list)."
- :type '(choice
- (const :tag "No Org block background (default)" nil)
- (const :tag "Subtle grey block background" greyscale)
- (const :tag "Colour-coded background per programming language" rainbow)))
-
-(make-obsolete 'modus-vivendi-theme-3d-modeline
- 'modus-vivendi-theme-mode-line
- "`modus-vivendi-theme' 0.13.0")
-
-(defcustom modus-vivendi-theme-3d-modeline nil
- "Use a three-dimensional style for the active mode line."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-mode-line nil
- "Adjust the overall style of the mode line.
-
-Nil is a two-dimensional rectangle with a border around it. The
-active and the inactive modelines use different shades of
-greyscale values for the background and foreground.
-
-A `3d' value will apply a three-dimensional effect to the active
-modeline. The inactive modelines remain two-dimensional and are
-toned down a bit, relative to the nil value.
-
-The `moody' option is meant to optimise the modeline for use with
-the library of the same name. This practically means to remove
-the box effect and rely on underline and overline properties
-instead. It also tones down the inactive modelines. Despite its
-intended purpose, this option can also be used without the
-`moody' library."
- :type '(choice
- (const :tag "Two-dimensional box (default)" nil)
- (const :tag "Three-dimensional style for the active mode line" 3d)
- (const :tag "No box effects, which are optimal for use with the `moody' library" moody)))
-
-(make-obsolete 'modus-vivendi-theme-subtle-diffs
- 'modus-vivendi-theme-diffs
- "`modus-vivendi-theme' 0.13.0")
-
-(defcustom modus-vivendi-theme-subtle-diffs nil
- "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-diffs nil
- "Adjust the overall styles of diffs.
-
-Nil means to use fairly intense colour combinations for diffs.
-For example, you get a rich green background with a green
-foreground for added lines. Word-wise or 'refined' diffs follow
-the same pattern but use different shades of those colours to
-remain distinct.
-
-A `desaturated' value follows the same principles as with the nil
-option, while it tones down all relevant colours.
-
-Option `fg-only' will remove all accented backgrounds, except
-from word-wise changes. It instead uses colour-coded foreground
-values to differentiate between added/removed/changed lines. If
-a background is necessary, such as with `ediff', then a subtle
-greyscale value is used."
- :type '(choice
- (const :tag "Intensely coloured backgrounds (default)" nil)
- (const :tag "Slightly accented backgrounds with tinted text" desaturated)
- (const :tag "No backgrounds, except for refined diffs" fg-only)))
-
-(make-obsolete 'modus-vivendi-theme-intense-standard-completions
- 'modus-vivendi-theme-completions
- "`modus-vivendi-theme' 0.12.0")
-
-(defcustom modus-vivendi-theme-intense-standard-completions nil
- "Use prominent backgrounds for Icomplete, Ido, or similar."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-completions nil
- "Apply special styles to the UI of completion frameworks.
-
-This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as
-any other tool meant to enhance their experience. The effect
-will vary depending on the completion framework.
-
-Nil means to remain faithful to the metaphors that each UI
-establishes. For example, Icomplete and Ido only use foreground
-colours to style their matches, whereas Ivy or Helm rely on an
-aesthetic that combines coloured backgrounds with appropriate
-text colour.
-
-Option `moderate' will apply a combination of background and
-foreground that is fairly subtle. For Icomplete and the like,
-this constitutes a departure from their standard style. While
-Ivy, Helm, and the others, will use less pronounced colours for
-applicable contexts.
-
-Option `opinionated' will apply colour combinations that
-refashion the completion UI. So Icomplete et al will now use
-styles that resemble the defaults of Ivy and co., while the
-latter group will revert to an even more nuanced aesthetic."
- :type '(choice
- (const :tag "Respect the framework's established aesthetic (default)" nil)
- (const :tag "Subtle backgrounds for various elements" moderate)
- (const :tag "Radical alternative to the framework's looks" opinionated)))
-
-(defcustom modus-vivendi-theme-prompts nil
- "Use subtle or intense styles for minibuffer and REPL prompts.
-
-Nil means to only use an accented foreground colour.
-
-Options `subtle' and `intense' will change both the background
-and the foreground values. The latter has a more pronounced
-effect than the former."
- :type '(choice
- (const :tag "No prompt background (default)" nil)
- (const :tag "Subtle accented background for the prompt" subtle)
- (const :tag "Intense background and foreground for the prompt" intense)))
-
-(defcustom modus-vivendi-theme-intense-hl-line nil
- "Use more prominent background for command `hl-line-mode'."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-intense-paren-match nil
- "Use more prominent colour for parenthesis matching."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-faint-syntax nil
- "Use less saturated colours for code syntax highlighting."
- :type 'boolean)
-
-(defcustom modus-vivendi-theme-no-link-underline nil
- "Do not underline links."
- :type 'boolean)
-
-;;; Internal functions
-
-;; Helper functions that are meant to ease the implementation of the
-;; above customisation options.
-(defun modus-vivendi-theme-bold-weight ()
- "Conditional use of a heavier text weight."
- (when modus-vivendi-theme-bold-constructs
- (list :inherit 'bold)))
-
-(defun modus-vivendi-theme-mixed-fonts ()
- "Conditional application of `fixed-pitch' inheritance."
- (unless modus-vivendi-theme-no-mixed-fonts
- (list :inherit 'fixed-pitch)))
-
-(defun modus-vivendi-theme-fringe (subtlebg intensebg)
- "Conditional use of background colours for fringes.
-SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a
-more pronounced greyscale colour."
- (pcase modus-vivendi-theme-fringes
- ('intense (list :background intensebg))
- ('subtle (list :background subtlebg))
- (_ (list :background nil))))
-
-(defun modus-vivendi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg)
- "Conditional use of background colours for prompts.
-MAINFG is the prompt's standard foreground. SUBTLEBG should be a
-subtle accented background that works with SUBTLEFG. INTENSEBG
-must be a more pronounced accented colour that should be
-combinable with INTENSEFG."
- (pcase modus-vivendi-theme-prompts
- ('intense (list :background intensebg :foreground intensefg))
- ('subtle (list :background subtlebg :foreground subtlefg))
- (_ (list :background nil :foreground mainfg))))
-
-(defun modus-vivendi-theme-paren (normalbg intensebg)
- "Conditional use of intense colours for matching parentheses.
-NORMALBG should the special palette colour 'bg-paren-match' or
-something similar. INTENSEBG must be easier to discern next to
-other backgrounds, such as the special palette colour
-'bg-paren-match-intense'."
- (if modus-vivendi-theme-intense-paren-match
- (list :background intensebg)
- (list :background normalbg)))
-
-(defun modus-vivendi-theme-syntax-foreground (normal faint)
- "Apply foreground value to code syntax.
-NORMAL is the more saturated colour, which should be the default.
-FAINT is the less saturated colour."
- (if modus-vivendi-theme-faint-syntax
- (list :foreground faint)
- (list :foreground normal)))
-
-(defun modus-vivendi-theme-heading-p (key)
- "Query style of KEY in `modus-vivendi-theme-headings'."
- (cdr (assoc key modus-vivendi-theme-headings)))
-
-(defun modus-vivendi-theme-heading (level fg fg-alt bg border)
- "Conditional styles for `modus-vivendi-theme-headings'.
-
-LEVEL is the heading's position in their order. FG is the
-default text colour. FG-ALT is an accented, more saturated value
-than the default. BG is a nuanced, typically accented,
-background that can work well with either of the foreground
-values. BORDER is a colour value that combines well with the
-background and alternative foreground."
- (let* ((key (modus-vivendi-theme-heading-p `,level))
- (style (or key (modus-vivendi-theme-heading-p t)))
- (var (if modus-vivendi-theme-variable-pitch-headings
- 'variable-pitch
- 'default)))
- (pcase style
- ('no-bold
- (list :inherit `,var :foreground fg))
- ('line
- (list :inherit `(bold ,var) :foreground fg :overline border))
- ('line-no-bold
- (list :inherit `,var :foreground fg :overline border))
- ('rainbow
- (list :inherit `(bold ,var) :foreground fg-alt))
- ('rainbow-no-bold
- (list :inherit `,var :foreground fg-alt))
- ('rainbow-line
- (list :inherit `(bold ,var) :foreground fg-alt :overline border))
- ('rainbow-line-no-bold
- (list :inherit `,var :foreground fg-alt :overline border))
- ('highlight
- (list :inherit `(bold ,var) :background bg :foreground fg))
- ('highlight-no-bold
- (list :inherit `,var :background bg :foreground fg))
- ('rainbow-highlight
- (list :inherit `(bold ,var) :background bg :foreground fg-alt))
- ('rainbow-highlight-no-bold
- (list :inherit `,var :background bg :foreground fg-alt))
- ('section
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `(bold ,var) :background bg :foreground fg :overline border)))
- ('section-no-bold
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `,var :background bg :foreground fg :overline border)))
- ('rainbow-section
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border)))
- ('rainbow-section-no-bold
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :inherit `,var :background bg :foreground fg-alt :overline border)))
- (_
- (list :inherit `(bold ,var) :foreground fg)))))
-
-(defun modus-vivendi-theme-org-block (bgblk)
- "Conditionally set the background of Org blocks.
-BGBLK applies to a distinct neutral background. Else blocks have
-no background of their own (the default), so they look the same
-as the rest of the buffer.
-
-`modus-vivendi-theme-org-blocks' also accepts a `rainbow' option
-which is applied conditionally to `org-src-block-faces' (see the
-theme's source code)."
- (if (eq modus-vivendi-theme-org-blocks 'greyscale)
- (append
- (and (>= emacs-major-version 27) '(:extend t))
- (list :background bgblk))
- (list :background nil)))
-
-(defun modus-vivendi-theme-org-block-delim (bgaccent fgaccent bg fg)
- "Conditionally set the styles of Org block delimiters.
-BG, FG, BGACCENT, FGACCENT apply a background and foreground
-colour respectively.
-
-The former pair is a greyscale combination that should be more
-distinct than the background of the block. It is applied to the
-default styles or when `modus-vivendi-theme-org-blocks' is set
-to `greyscale'.
-
-The latter pair should be more subtle than the background of the
-block, as it is used when `modus-vivendi-theme-org-blocks' is
-set to `rainbow'."
- (pcase modus-vivendi-theme-org-blocks
- ('greyscale (append (and (>= emacs-major-version 27) '(:extend t))
- (list :background bg :foreground fg)))
- ('rainbow (list :background bgaccent :foreground fgaccent))
- (_ (list :background bg :foreground fg))))
-
-(defun modus-vivendi-theme-mode-line-attrs
- (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant)
- "Colour combinations for `modus-vivendi-theme-mode-line'.
-
-FG and BG are the default colours. FG-ALT and BG-ALT are meant
-to accommodate the options for a 3D modeline or a `moody'
-compliant one. BORDER applies to all permutations of the
-modeline, except the three-dimensional effect, where BORDER-3D is
-used instead.
-
-Optional ALT-STYLE applies an appropriate style to the mode
-line's box property.
-
-Optional BORDER-WIDTH specifies an integer for the width of the
-rectangle that produces the box effect.
-
-Optional FG-DISTANT should be close to the main background
-values. It is intended to be used as a distant-foreground
-property."
- (pcase modus-vivendi-theme-mode-line
- ('3d
- `(:background ,bg-alt :foreground ,fg-alt
- :box (:line-width ,(or border-width 1)
- :color ,border-3d
- :style ,(and alt-style 'released-button))))
- ('moody
- `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border
- :distant-foreground ,fg-distant))
- (_
- `(:foreground ,fg :background ,bg :box ,border))))
-
-(defun modus-vivendi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg)
- "Colour combinations for `modus-vivendi-theme-diffs'.
-
-FG-ONLY-BG should be similar or the same as the main background.
-FG-ONLY-FG should be a saturated accent value that can be
-combined with the former.
-
-MAINBG must be one of the dedicated backgrounds for diffs while
-MAINFG must be the same for the foreground.
-
-ALTBG needs to be a slightly accented background that is meant to
-be combined with ALTFG. Both must be less intense than MAINBG
-and MAINFG respectively."
- (pcase modus-vivendi-theme-diffs
- ('fg-only (list :background fg-only-bg :foreground fg-only-fg))
- ('desaturated (list :background altbg :foreground altfg))
- (_ (list :background mainbg :foreground mainfg))))
-
-(defun modus-vivendi-theme-standard-completions (mainfg subtlebg intensebg intensefg)
- "Combinations for `modus-vivendi-theme-completions'.
-
-MAINFG is an accented foreground value. SUBTLEBG is an accented
-background value that can be combined with MAINFG. INTENSEBG and
-INTENSEFG are accented colours that are designed to be used in
-tandem.
-
-These are intended for Icomplete, Ido, and related."
- (pcase modus-vivendi-theme-completions
- ('opinionated (list :background intensebg :foreground intensefg))
- ('moderate (list :background subtlebg :foreground mainfg))
- (_ (list :foreground mainfg))))
-
-(defun modus-vivendi-theme-extra-completions (subtleface intenseface altface &optional altfg bold)
- "Combinations for `modus-vivendi-theme-completions'.
-
-SUBTLEFACE and INTENSEFACE are custom theme faces that combine a
-background and foreground value. The difference between the two
-is a matter of degree.
-
-ALTFACE is a combination of colours that represents a departure
-from the UI's default aesthetics. Optional ALTFG is meant to be
-used in tandem with it.
-
-Optional BOLD will apply a heavier weight to the text.
-
-These are intended for Helm, Ivy, etc."
- (pcase modus-vivendi-theme-completions
- ('opinionated (list :inherit (list altface bold)
- :foreground (or altfg 'unspecified)))
- ('moderate (list :inherit (list subtleface bold)))
- (_ (list :inherit (list intenseface bold)))))
-
-(defun modus-vivendi-theme-scale (amount)
- "Scale heading by AMOUNT.
-
-AMOUNT is a customisation option."
- (when modus-vivendi-theme-scale-headings
- (list :height amount)))
-
-;;; Colour palette
-
-;; Define colour palette. Each colour must have a >= 7:1 contrast
-;; ratio relative to the foreground/background colour it is rendered
-;; against.
-;;
-;; The design of the colour palette as a macro that maps it to faces is
-;; adapted from zenbern-theme.el, last seen at commit 7dd7968:
-;; https://github.com/bbatsov/zenburn-emacs
-(eval-and-compile
- (defconst modus-vivendi-theme-default-colors-alist
- '(;; base values
- ("bg-main" . "#000000") ("fg-main" . "#ffffff")
- ("bg-alt" . "#181a20") ("fg-alt" . "#a8a8a8")
- ("bg-dim" . "#110b11") ("fg-dim" . "#e0e6f0")
- ;; specifically for on/off states (e.g. `mode-line')
- ;;
- ;; must be combined with themselves
- ("bg-active" . "#323232") ("fg-active" . "#f4f4f4")
- ("bg-inactive" . "#1e1e1e") ("fg-inactive" . "#bfc0c4")
- ;; special base values, used only for cases where the above
- ;; fg-* or bg-* cannot or should not be used (to avoid confusion)
- ;; must be combined with: {fg,bg}-{main,alt,dim}
- ("bg-special-cold" . "#203448") ("fg-special-cold" . "#c6eaff")
- ("bg-special-mild" . "#00322e") ("fg-special-mild" . "#bfebe0")
- ("bg-special-warm" . "#382f27") ("fg-special-warm" . "#f8dec0")
- ("bg-special-calm" . "#392a48") ("fg-special-calm" . "#fbd6f4")
- ;; styles for the main constructs
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red" . "#ff8059") ("green" . "#44bc44")
- ("yellow" . "#eecc00") ("blue" . "#2fafff")
- ("magenta" . "#feacd0") ("cyan" . "#00d3d0")
- ;; styles for common, but still specialised constructs
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-alt" . "#f4923b") ("green-alt" . "#80d200")
- ("yellow-alt" . "#cfdf30") ("blue-alt" . "#79a8ff")
- ("magenta-alt" . "#f78fe7") ("cyan-alt" . "#4ae8fc")
- ;; same purpose as above, just slight differences
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-alt-other" . "#ff9977") ("green-alt-other" . "#00cd68")
- ("yellow-alt-other" . "#f0ce43") ("blue-alt-other" . "#00bcff")
- ("magenta-alt-other" . "#b6a0ff") ("cyan-alt-other" . "#6ae4b9")
- ;; styles for desaturated foreground text, intended for use with
- ;; the `modus-vivendi-theme-faint-syntax' option
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim'
- ("red-faint" . "#ffa0a0") ("green-faint" . "#88cf88")
- ("yellow-faint" . "#d2b580") ("blue-faint" . "#92baff")
- ("magenta-faint" . "#e0b2d6") ("cyan-faint" . "#a0bfdf")
-
- ("red-alt-faint" . "#f5aa80") ("green-alt-faint" . "#a8cf88")
- ("yellow-alt-faint" . "#cabf77") ("blue-alt-faint" . "#a4b0ff")
- ("magenta-alt-faint" . "#ef9fe4") ("cyan-alt-faint" . "#90c4ed")
-
- ("red-alt-other-faint" . "#ff9fbf") ("green-alt-other-faint" . "#88cfaf")
- ("yellow-alt-other-faint" . "#d0ba95") ("blue-alt-other-faint" . "#8fc5ff")
- ("magenta-alt-other-faint" . "#d0b4ff") ("cyan-alt-other-faint" . "#a4d0bb")
- ;; styles for elements that should be very subtle, yet accented
- ;;
- ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of
- ;; the "nuanced" backgrounds
- ("red-nuanced" . "#ffcccc") ("green-nuanced" . "#b8e2b8")
- ("yellow-nuanced" . "#dfdfb0") ("blue-nuanced" . "#bfd9ff")
- ("magenta-nuanced" . "#e5cfef") ("cyan-nuanced" . "#a8e5e5")
- ;; styles for slightly accented background
- ;;
- ;; must be combined with any of the above foreground values
- ("red-nuanced-bg" . "#2c0614") ("green-nuanced-bg" . "#001904")
- ("yellow-nuanced-bg" . "#221000") ("blue-nuanced-bg" . "#0f0e39")
- ("magenta-nuanced-bg" . "#230631") ("cyan-nuanced-bg" . "#041529")
- ;; styles for elements that should draw attention to themselves
- ;;
- ;; must be combined with: `bg-main'
- ("red-intense" . "#fb6859") ("green-intense" . "#00fc50")
- ("yellow-intense" . "#ffdd00") ("blue-intense" . "#00a2ff")
- ("magenta-intense" . "#ff8bd4") ("cyan-intense" . "#30ffc0")
- ;; styles for background elements that should be visible yet
- ;; subtle
- ;;
- ;; must be combined with: `fg-dim'
- ("red-subtle-bg" . "#762422") ("green-subtle-bg" . "#2f4a00")
- ("yellow-subtle-bg" . "#604200") ("blue-subtle-bg" . "#10387c")
- ("magenta-subtle-bg" . "#49366e") ("cyan-subtle-bg" . "#00415e")
- ;; styles for background elements that should be visible and
- ;; distinguishable
- ;;
- ;; must be combined with: `fg-main'
- ("red-intense-bg" . "#a4202a") ("green-intense-bg" . "#006800")
- ("yellow-intense-bg" . "#874900") ("blue-intense-bg" . "#2a40b8")
- ("magenta-intense-bg" . "#7042a2") ("cyan-intense-bg" . "#005f88")
- ;; styles for refined contexts where both the foreground and the
- ;; background need to have the same/similar hue
- ;;
- ;; must be combined with themselves OR the foregrounds can be
- ;; combined with any of the base backgrounds
- ("red-refine-bg" . "#77002a") ("red-refine-fg" . "#ffb9ab")
- ("green-refine-bg" . "#00422a") ("green-refine-fg" . "#9ff0cf")
- ("yellow-refine-bg" . "#693200") ("yellow-refine-fg" . "#e2d980")
- ("blue-refine-bg" . "#242679") ("blue-refine-fg" . "#8ec6ff")
- ("magenta-refine-bg" . "#71206a") ("magenta-refine-fg" . "#ffcaf0")
- ("cyan-refine-bg" . "#004065") ("cyan-refine-fg" . "#8ae4f2")
- ;; styles that are meant exclusively for the mode line
- ;;
- ;; must be combined with: `bg-active', `bg-inactive'
- ("red-active" . "#ffa7ba") ("green-active" . "#70d73f")
- ("yellow-active" . "#dbbe5f") ("blue-active" . "#34cfff")
- ("magenta-active" . "#d5b1ff") ("cyan-active" . "#00d8b4")
- ;; styles that are meant exclusively for the fringes
- ;;
- ;; must be combined with `fg-main'
- ("red-fringe-bg" . "#8f1f4b") ("green-fringe-bg" . "#006700")
- ("yellow-fringe-bg" . "#6f4f00") ("blue-fringe-bg" . "#3f33af")
- ("magenta-fringe-bg" . "#6f2f89") ("cyan-fringe-bg" . "#004f8f")
- ;; styles reserved for specific faces
- ;;
- ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should
- ;; work with all accents that cover those two, plus `bg-main'
- ;;
- ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no
- ;; other greyscale or fairly neutral background is available to
- ;; properly draw attention to a given construct
- ;;
- ;; `bg-header' is between `bg-active' and `bg-inactive', so it
- ;; can be combined with any of the "active" values, plus the
- ;; "special" and base foreground colours
- ;;
- ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and
- ;; `bg-tab-active' must be combined with `fg-main', while
- ;; `bg-tab-inactive' should be combined with `fg-dim'
- ;;
- ;; `bg-tab-bar' is only intended for the bar that holds the tabs and
- ;; can only be combined with `fg-main'
- ;;
- ;; `fg-tab-active' is meant to be combined with `bg-tab-active',
- ;; though only for styling special elements, such as underlining
- ;; the current tab
- ;;
- ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can
- ;; be combined `bg-main', `bg-dim', `bg-alt'
- ;;
- ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be
- ;; combined with `bg-main', `bg-dim', `bg-alt'
- ;;
- ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined
- ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line'
- ;;
- ;; `fg-unfocused' must be combined with `fg-main'
- ;;
- ;; the window divider colours apply to faces with just an fg value
- ;;
- ;; all pairs are combinable with themselves
- ("bg-hl-line" . "#151823")
- ("bg-hl-line-intense" . "#2f2f2f")
- ("bg-hl-alt" . "#181732")
- ("bg-hl-alt-intense" . "#282e46")
- ("bg-paren-match" . "#5f362f")
- ("bg-paren-match-intense" . "#7416b5")
- ("bg-region" . "#3c3c3c")
-
- ("bg-tab-bar" . "#2c2c2c")
- ("bg-tab-active" . "#0e0e0e")
- ("bg-tab-inactive" . "#3d3d3d")
- ("fg-tab-active" . "#5ac3cf")
-
- ("fg-escape-char-construct" . "#e7a59a")
- ("fg-escape-char-backslash" . "#abab00")
-
- ("fg-lang-error" . "#ef8690")
- ("fg-lang-warning" . "#b0aa00")
- ("fg-lang-note" . "#9d9def")
-
- ("fg-window-divider-inner" . "#646464")
- ("fg-window-divider-outer" . "#969696")
-
- ("fg-unfocused" . "#93959b")
-
- ("bg-header" . "#212121") ("fg-header" . "#dddddd")
-
- ("bg-whitespace" . "#170016") ("fg-whitespace" . "#a4959f")
-
- ("bg-diff-heading" . "#304466") ("fg-diff-heading" . "#dadffe")
- ("bg-diff-added" . "#0a280a") ("fg-diff-added" . "#94ba94")
- ("bg-diff-changed" . "#2a2000") ("fg-diff-changed" . "#b0ba9f")
- ("bg-diff-removed" . "#40160f") ("fg-diff-removed" . "#c6adaa")
-
- ("bg-diff-refine-added" . "#005a36") ("fg-diff-refine-added" . "#e0f6e0")
- ("bg-diff-refine-changed" . "#585800") ("fg-diff-refine-changed" . "#ffffcc")
- ("bg-diff-refine-removed" . "#852828") ("fg-diff-refine-removed" . "#ffd9eb")
-
- ("bg-diff-focus-added" . "#203d20") ("fg-diff-focus-added" . "#b4ddb4")
- ("bg-diff-focus-changed" . "#4a3a10") ("fg-diff-focus-changed" . "#d0daaf")
- ("bg-diff-focus-removed" . "#5e2526") ("fg-diff-focus-removed" . "#eebdba")
-
- ("bg-diff-neutral-0" . "#575757") ("fg-diff-neutral-0" . "#fcfcfc")
- ("bg-diff-neutral-1" . "#454545") ("fg-diff-neutral-1" . "#dddddd")
- ("bg-diff-neutral-2" . "#313131") ("fg-diff-neutral-2" . "#bfbfbf")
-
- ("bg-mark-sel" . "#002f2f") ("fg-mark-sel" . "#60cfa2")
- ("bg-mark-del" . "#5a0000") ("fg-mark-del" . "#ff99aa")
- ("bg-mark-alt" . "#3f2210") ("fg-mark-alt" . "#f0aa20"))
- "The entire palette of `modus-vivendi-theme'.
-Each element has the form (NAME . HEX).")
-
- (defcustom modus-vivendi-theme-override-colors-alist '()
- "Association list of palette colour overrides.
-Values can be mapped to variables, using the same syntax as the
-one present in `modus-vivendi-theme-default-colors-alist'.
-
-This is only meant for do-it-yourself usage, with the
-understanding that the user is responsible for the resulting
-contrast ratio between new and existing colours."
- :type '(alist
- :key-type (string :tag "Name")
- :value-type (string :tag " Hex")))
-
- (defmacro modus-vivendi-theme-with-color-variables (&rest body)
- "`let' bind all colours around BODY.
-Also bind `class' to ((class color) (min-colors 89))."
- (declare (indent 0))
- `(let ((class '((class color) (min-colors 89)))
- ,@(mapcar (lambda (cons)
- (list (intern (car cons)) (cdr cons)))
- (append modus-vivendi-theme-default-colors-alist
- modus-vivendi-theme-override-colors-alist))
- ;; simple conditional styles that evaluate user-facing
- ;; customisation options
- (modus-theme-slant
- (if modus-vivendi-theme-slanted-constructs 'italic 'normal))
- (modus-theme-variable-pitch
- (if modus-vivendi-theme-variable-pitch-headings 'variable-pitch 'default)))
- ,@body)))
-
-\f
-
-;;; Faces
-
-(modus-vivendi-theme-with-color-variables
- (custom-theme-set-faces
- 'modus-vivendi
-;;;; custom faces
- ;; these bespoke faces are inherited by other constructs below
-;;;;; subtle coloured backgrounds
- `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim)))
- `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; intense coloured backgrounds
- `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
- `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main)))
-;;;;; refined background and foreground combinations
- ;; general purpose styles that use an accented foreground against an
- ;; accented background
- `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg)))
- `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg)))
- `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg)))
- `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg)))
- `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg)))
- `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg)))
-;;;;; "active" combinations, mostly for use on the mode line
- `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active)))
- `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active)))
- `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active)))
- `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active)))
- `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active)))
- `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active)))
-;;;;; nuanced backgrounds
- ;; useful for adding an accented background that is suitable for all
- ;; main foreground colours (intended for use in Org source blocks)
- `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
-;;;;; fringe-specific combinations
- `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main)))
- `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main)))
-;;;;; special base values
- ;; these are closer to the grayscale than the accents defined above
- ;; and should only be used when the next closest alternative would be
- ;; a greyscale value than an accented one
- `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild)))
- `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm)))
- `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm)))
-;;;;; diff-specific combinations
- ;; intended for `diff-mode' or equivalent
- `(modus-theme-diff-added
- ((,class ,@(modus-vivendi-theme-diff
- bg-main green
- bg-diff-focus-added fg-diff-focus-added
- green-nuanced-bg fg-diff-added))))
- `(modus-theme-diff-changed
- ((,class ,@(modus-vivendi-theme-diff
- bg-main yellow
- bg-diff-focus-changed fg-diff-focus-changed
- yellow-nuanced-bg fg-diff-changed))))
- `(modus-theme-diff-removed
- ((,class ,@(modus-vivendi-theme-diff
- bg-main red
- bg-diff-focus-removed fg-diff-focus-removed
- red-nuanced-bg fg-diff-removed))))
- `(modus-theme-diff-refine-added
- ((,class ,@(modus-vivendi-theme-diff
- bg-diff-added fg-diff-added
- bg-diff-refine-added fg-diff-refine-added
- bg-diff-focus-added fg-diff-focus-added))))
- `(modus-theme-diff-refine-changed
- ((,class ,@(modus-vivendi-theme-diff
- bg-diff-changed fg-diff-changed
- bg-diff-refine-changed fg-diff-refine-changed
- bg-diff-focus-changed fg-diff-focus-changed))))
- `(modus-theme-diff-refine-removed
- ((,class ,@(modus-vivendi-theme-diff
- bg-diff-removed fg-diff-removed
- bg-diff-refine-removed fg-diff-refine-removed
- bg-diff-focus-removed fg-diff-focus-removed))))
- `(modus-theme-diff-focus-added
- ((,class ,@(modus-vivendi-theme-diff
- bg-dim green
- bg-diff-focus-added fg-diff-focus-added
- bg-diff-added fg-diff-added))))
- `(modus-theme-diff-focus-changed
- ((,class ,@(modus-vivendi-theme-diff
- bg-dim yellow
- bg-diff-focus-changed fg-diff-focus-changed
- bg-diff-changed fg-diff-changed))))
- `(modus-theme-diff-focus-removed
- ((,class ,@(modus-vivendi-theme-diff
- bg-dim red
- bg-diff-focus-removed fg-diff-focus-removed
- bg-diff-removed fg-diff-removed))))
- `(modus-theme-diff-heading
- ((,class ,@(modus-vivendi-theme-diff
- bg-alt blue-alt
- bg-diff-heading fg-diff-heading
- blue-nuanced-bg blue))))
-;;;;; mark indicators
- ;; colour combinations intended for Dired, Ibuffer, or equivalent
- `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main)))
- `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt)))
- `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del)))
- `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel)))
- `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt)))
-;;;;; heading levels
- ;; styles for regular headings used in Org, Markdown, Info, etc.
- `(modus-theme-heading-1
- ((,class ,@(modus-vivendi-theme-heading
- 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region)
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(modus-theme-heading-2
- ((,class ,@(modus-vivendi-theme-heading
- 2 fg-special-warm magenta-alt red-nuanced-bg bg-region)
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3))))
- `(modus-theme-heading-3
- ((,class ,@(modus-vivendi-theme-heading
- 3 fg-special-cold blue blue-nuanced-bg bg-region)
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2))))
- `(modus-theme-heading-4
- ((,class ,@(modus-vivendi-theme-heading
- 4 fg-special-mild cyan cyan-nuanced-bg bg-region)
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1))))
- `(modus-theme-heading-5
- ((,class ,@(modus-vivendi-theme-heading
- 5 fg-special-calm green-alt-other green-nuanced-bg bg-region))))
- `(modus-theme-heading-6
- ((,class ,@(modus-vivendi-theme-heading
- 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region))))
- `(modus-theme-heading-7
- ((,class ,@(modus-vivendi-theme-heading
- 7 red-nuanced red-alt red-nuanced-bg bg-region))))
- `(modus-theme-heading-8
- ((,class ,@(modus-vivendi-theme-heading
- 8 fg-dim magenta bg-alt bg-region))))
-;;;;; other custom faces
- `(modus-theme-hl-line ((,class :background ,(if modus-vivendi-theme-intense-hl-line
- bg-hl-line-intense bg-hl-line)
- (and (>= emacs-major-version 27) '(:extend t)))))
-;;;; standard faces
-;;;;; absolute essentials
- `(default ((,class :background ,bg-main :foreground ,fg-main)))
- `(cursor ((,class :background ,fg-main)))
- `(fringe ((,class ,@(modus-vivendi-theme-fringe bg-inactive bg-active)
- :foreground ,fg-main)))
- `(vertical-border ((,class :foreground ,fg-window-divider-inner)))
-;;;;; basic and/or ungrouped styles
- ;; Modify the `bold' face to change the weight of all "bold" elements
- ;; defined by the theme. You need a typeface that supports a
- ;; multitude of heavier weights than the regular one and then you
- ;; must specify the exact name of the one you wish to apply. Example
- ;; for your init.el:
- ;;
- ;; (set-face-attribute 'bold nil :weight 'semibold)
- `(bold ((,class :weight bold)))
- `(comint-highlight-input ((,class :inherit bold)))
- `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight)
- ,@(modus-vivendi-theme-prompt
- cyan
- blue-nuanced-bg blue-alt
- blue-refine-bg fg-main))))
- `(error ((,class :inherit bold :foreground ,red)))
- `(escape-glyph ((,class :foreground ,fg-escape-char-construct)))
- `(file-name-shadow ((,class :foreground ,fg-unfocused)))
- `(header-line ((,class :background ,bg-header :foreground ,fg-header)))
- `(header-line-highlight ((,class :inherit modus-theme-active-blue)))
- `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant)))
- `(homoglyph ((,class :foreground ,fg-escape-char-construct)))
- `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other)))
- `(italic ((,class :slant italic)))
- `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct)))
- `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t)))
- `(minibuffer-prompt ((,class ,@(modus-vivendi-theme-prompt
- cyan-alt-other
- cyan-nuanced-bg cyan
- cyan-refine-bg fg-main))))
- `(mm-command-output ((,class :foreground ,red-alt-other)))
- `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(next-error ((,class :inherit modus-theme-subtle-red)))
- `(rectangle-preview ((,class :inherit modus-theme-special-mild)))
- `(region ((,class :background ,bg-region :foreground ,fg-main)))
- `(secondary-selection ((,class :inherit modus-theme-special-cold)))
- `(shadow ((,class :foreground ,fg-alt)))
- `(success ((,class :inherit bold :foreground ,green)))
- `(trailing-whitespace ((,class :background ,red-intense-bg)))
- `(warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; buttons, links, widgets
- `(button ((,class :foreground ,blue-alt-other
- ,@(unless modus-vivendi-theme-no-link-underline
- (list :underline t)))))
- `(link ((,class :inherit button)))
- `(link-visited ((,class :inherit link :foreground ,magenta-alt-other)))
- `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main)))
- `(widget-button ((,class :inherit button)))
- `(widget-button-pressed ((,class :inherit button :foreground ,magenta)))
- `(widget-documentation ((,class :foreground ,green)))
- `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim)))
- `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(widget-single-line-field ((,class :inherit widget-field)))
-;;;;; ag
- `(ag-hit-face ((,class :foreground ,fg-special-cold)))
- `(ag-match-face ((,class :inherit modus-theme-special-calm)))
-;;;;; alert
- `(alert-high-face ((,class :inherit bold :foreground ,red-alt)))
- `(alert-low-face ((,class :foreground ,fg-special-mild)))
- `(alert-moderate-face ((,class :inherit bold :foreground ,yellow)))
- `(alert-trivial-face ((,class :foreground ,fg-special-calm)))
- `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense)))
-;;;;; all-the-icons
- `(all-the-icons-blue ((,class :foreground ,blue)))
- `(all-the-icons-blue-alt ((,class :foreground ,blue-alt)))
- `(all-the-icons-cyan ((,class :foreground ,cyan)))
- `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt)))
- `(all-the-icons-dblue ((,class :foreground ,blue-alt-other)))
- `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other)))
- `(all-the-icons-dgreen ((,class :foreground ,green-alt-other)))
- `(all-the-icons-dired-dir-face ((,class :foreground ,blue)))
- `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other)))
- `(all-the-icons-dorange ((,class :foreground ,red-alt-other)))
- `(all-the-icons-dpink ((,class :foreground ,magenta)))
- `(all-the-icons-dpurple ((,class :foreground ,magenta-alt)))
- `(all-the-icons-dred ((,class :foreground ,red)))
- `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-dyellow ((,class :foreground ,yellow)))
- `(all-the-icons-green ((,class :foreground ,green)))
- `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg)))
- `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg)))
- `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg)))
- `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lorange ((,class :foreground ,red-refine-fg)))
- `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg)))
- `(all-the-icons-lred ((,class :foreground ,red-refine-fg)))
- `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg)))
- `(all-the-icons-maroon ((,class :foreground ,magenta)))
- `(all-the-icons-orange ((,class :foreground ,red-alt)))
- `(all-the-icons-pink ((,class :foreground ,magenta)))
- `(all-the-icons-purple ((,class :foreground ,magenta-alt)))
- `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other)))
- `(all-the-icons-red ((,class :foreground ,red)))
- `(all-the-icons-red-alt ((,class :foreground ,red-alt)))
- `(all-the-icons-silver ((,class :foreground ,fg-special-cold)))
- `(all-the-icons-yellow ((,class :foreground ,yellow)))
-;;;;; annotate
- `(annotate-annotation ((,class :inherit modus-theme-subtle-blue)))
- `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green)))
- `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense)))
- `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense)))
-;;;;; anzu
- `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan)))
- `(anzu-match-2 ((,class :inherit modus-theme-subtle-green)))
- `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow)))
- `(anzu-mode-line ((,class :inherit bold :foreground ,green-active)))
- `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active)))
- `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t)))
- `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; apropos
- `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other)))
- `(apropos-keybinding ((,class :inherit bold :foreground ,cyan)))
- `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other)))
- `(apropos-property ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt)))
- `(apropos-symbol ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other)))
- `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other)))
- `(apropos-variable-button ((,class :inherit button :foreground ,blue)))
-;;;;; apt-sources-list
- `(apt-sources-list-components ((,class :foreground ,cyan)))
- `(apt-sources-list-options ((,class :foreground ,yellow)))
- `(apt-sources-list-suite ((,class :foreground ,green)))
- `(apt-sources-list-type ((,class :foreground ,magenta)))
- `(apt-sources-list-uri ((,class :foreground ,blue)))
-;;;;; artbollocks-mode
- `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note)))
- `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
- `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning)))
- `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error)))
-;;;;; auctex and Tex
- `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm)))
- `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(font-latex-doctex-preprocessor-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-alt-other)))
- `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic)))
- `(font-latex-math-face ((,class :foreground ,cyan-alt-other)))
- `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other)))
- `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced)))
- `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced)))
- `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced)))
- `(font-latex-sedate-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(font-latex-string-face ((,class :foreground ,blue-alt)))
- `(font-latex-subscript-face ((,class :height 0.95)))
- `(font-latex-superscript-face ((,class :height 0.95)))
- `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(font-latex-warning-face ((,class :foreground ,yellow-alt-other)))
- `(tex-match ((,class :foreground ,blue-alt-other)))
- `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(texinfo-heading ((,class :foreground ,magenta)))
- `(TeX-error-description-error ((,class :inherit bold :foreground ,red)))
- `(TeX-error-description-help ((,class :foreground ,blue)))
- `(TeX-error-description-tex-said ((,class :foreground ,blue)))
- `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; auto-dim-other-buffers
- `(auto-dim-other-buffers-face ((,class :background ,bg-alt)))
-;;;;; avy
- `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold))))
- `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold))))
- `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold))))
- `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold))))
- `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; aw (ace-window)
- `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(aw-key-face ((,class :inherit bold :foreground ,blue-intense)))
- `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense)))
- `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active)))
- `(aw-mode-line-face ((,class :inherit bold)))
-;;;;; awesome-tray
- `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other)))
- `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt)))
- `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim)))
- `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt)))
- `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta)))
- `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow)))
- `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green)))
- `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan)))
- `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; binder
- `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan)))
- `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel)))
- `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red)))
- `(binder-sidebar-tags ((,class :foreground ,cyan)))
-;;;;; bm
- `(bm-face ((,class :inherit modus-theme-subtle-yellow
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow)))
- `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue)))
- `(bm-persistent-face ((,class :inherit modus-theme-intense-blue
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
-;;;;; bongo
- `(bongo-album-title ((,class :foreground ,cyan-active)))
- `(bongo-artist ((,class :foreground ,magenta-active)))
- `(bongo-currently-playing-track ((,class :inherit bold)))
- `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t)))
- `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
- `(bongo-marked-track ((,class :foreground ,fg-mark-alt)))
- `(bongo-marked-track-line ((,class :background ,bg-mark-alt)))
- `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t)))
- `(bongo-track-length ((,class :foreground ,blue-alt-other)))
- `(bongo-track-title ((,class :foreground ,blue-active)))
- `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main)))
-;;;;; boon
- `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue)))
- `(boon-modeline-ins ((,class :inherit modus-theme-active-red)))
- `(boon-modeline-off ((,class :inherit modus-theme-active-yellow)))
- `(boon-modeline-spc ((,class :inherit modus-theme-active-green)))
-;;;;; breakpoint (built-in gdb-mi.el)
- `(breakpoint-disabled ((,class :foreground ,fg-alt)))
- `(breakpoint-enabled ((,class :inherit bold :foreground ,red)))
-;;;;; buffer-expose
- `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active)))
- `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active)))
- `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild)))
-;;;;; calendar and diary
- `(calendar-month-header ((,class :inherit bold :foreground ,fg-main)))
- `(calendar-today ((,class :underline t)))
- `(calendar-weekday-header ((,class :foreground ,fg-dim)))
- `(calendar-weekend-header ((,class :foreground ,fg-alt)))
- `(diary ((,class :foreground ,cyan-alt-other)))
- `(diary-anniversary ((,class :foreground ,red-alt-other)))
- `(diary-time ((,class :foreground ,blue-alt)))
- `(holiday ((,class :foreground ,magenta-alt)))
-;;;;; calfw
- `(cfw:face-annotation ((,class :foreground ,fg-special-warm)))
- `(cfw:face-day-title ((,class :foreground ,fg-main)))
- `(cfw:face-default-content ((,class :foreground ,green-alt)))
- `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold))))
- `(cfw:face-disable ((,class :foreground ,fg-unfocused)))
- `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer)))
- `(cfw:face-header ((,class :inherit bold :foreground ,fg-main)))
- `(cfw:face-holiday ((,class :foreground ,magenta-alt-other)))
- `(cfw:face-periods ((,class :foreground ,cyan-alt-other)))
- `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(cfw:face-select ((,class :inherit modus-theme-intense-blue)))
- `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch
- :foreground ,fg-special-cold
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5))))
- `(cfw:face-today ((,class :background ,bg-inactive)))
- `(cfw:face-today-title ((,class :background ,bg-active)))
- `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt)))
- `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt)))
- `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg
- :foreground ,blue-alt)))
-;;;;; centaur-tabs
- `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active)))
- `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t)))
- `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected)))
- `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected)))
- `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected)))
- `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected)))
- `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main)))
- `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main)))
- `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic)))
- `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim)))
- `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic)))
-;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
- `(change-log-acknowledgment ((,class :foreground ,fg-alt)))
- `(change-log-conditionals ((,class :foreground ,magenta-alt)))
- `(change-log-date ((,class :foreground ,cyan-alt-other)))
- `(change-log-email ((,class :foreground ,cyan)))
- `(change-log-file ((,class :foreground ,blue)))
- `(change-log-function ((,class :foreground ,green-alt-other)))
- `(change-log-list ((,class :foreground ,magenta-alt-other)))
- `(change-log-name ((,class :foreground ,cyan)))
- `(log-edit-header ((,class :foreground ,fg-special-warm)))
- `(log-edit-summary ((,class :inherit bold :foreground ,cyan)))
- `(log-edit-unknown-header ((,class :foreground ,fg-alt)))
- `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(log-view-message ((,class :foreground ,fg-alt)))
-;;;;; cider
- `(cider-debug-code-overlay-face ((,class :background ,bg-alt)))
- `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t)))
- `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow)))
- `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(cider-docview-literal-face ((,class :foreground ,blue-alt)))
- `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(cider-docview-table-border-face ((,class :foreground ,fg-alt)))
- `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim)))
- `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(cider-error-highlight-face ((,class :foreground ,red :underline t)))
- `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow)))
- `(cider-fringe-good-face ((,class :foreground ,green-active)))
- `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim)))
- `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic)))
- `(cider-repl-input-face ((,class :inherit bold)))
- `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
- `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red)))
- `(cider-repl-stdout-face ((,class :foreground ,blue)))
- `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim)))
- `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red)))
- `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic)))
- `(cider-stacktrace-face ((,class :foreground ,fg-main)))
- `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t)))
- `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt)))
- `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main)))
- `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic)))
- `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red)))
- `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button)
- :background ,bg-alt :foreground ,fg-alt)))
- `(cider-test-error-face ((,class :inherit modus-theme-subtle-red)))
- `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold))))
- `(cider-test-success-face ((,class :inherit modus-theme-intense-green)))
- `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim)))
- `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t)))
-;;;;; circe (and lui)
- `(circe-fool-face ((,class :foreground ,fg-alt)))
- `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue)))
- `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(circe-server-face ((,class :foreground ,fg-unfocused)))
- `(lui-button-face ((,class :inherit button :foreground ,blue)))
- `(lui-highlight-face ((,class :foreground ,magenta-alt)))
- `(lui-time-stamp-face ((,class :foreground ,blue-nuanced)))
-;;;;; color-rg
- `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other)))
- `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main)))
- `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue)))
- `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm)))
- `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active)))
- `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active)))
- `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active)))
- `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active)))
- `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm)))
- `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue)))
- `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red)))
- `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm)))
- `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt)))
-;;;;; column-enforce-mode
- `(column-enforce-face ((,class :inherit modus-theme-refine-yellow)))
-;;;;; company-mode
- `(company-echo-common ((,class :foreground ,magenta-alt-other)))
- `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(company-preview-common ((,class :foreground ,blue-alt)))
- `(company-preview-search ((,class :inherit modus-theme-special-calm)))
- `(company-scrollbar-bg ((,class :background ,bg-active)))
- `(company-scrollbar-fg ((,class :background ,fg-active)))
- `(company-template-field ((,class :inherit modus-theme-intense-magenta)))
- `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main)))
- `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt)))
- `(company-tooltip-common-selection ((,class :foreground ,fg-main)))
- `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue)))
- `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold))))
- `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t)))
- `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold))))
-;;;;; company-posframe
- `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active)))
- `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active)))
- `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; compilation feedback
- `(compilation-column-number ((,class :foreground ,magenta-alt-other)))
- `(compilation-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red)))
- `(compilation-info ((,class :foreground ,fg-special-cold)))
- `(compilation-line-number ((,class :foreground ,fg-special-warm)))
- `(compilation-mode-line-exit ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active)))
- `(compilation-mode-line-fail ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active)))
- `(compilation-mode-line-run ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active)))
- `(compilation-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow)))
-;;;;; completions
- `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(completions-common-part ((,class ,@(modus-vivendi-theme-standard-completions
- blue-alt blue-nuanced-bg
- cyan-refine-bg cyan-refine-fg))))
- `(completions-first-difference ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- magenta-alt blue-nuanced-bg
- magenta-intense-bg fg-main))))
-;;;;; counsel
- `(counsel-active-mode ((,class :foreground ,magenta-alt-other)))
- `(counsel-application-name ((,class :foreground ,red-alt-other)))
- `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other)))
- `(counsel-outline-1 ((,class :inherit outline-1)))
- `(counsel-outline-2 ((,class :inherit outline-2)))
- `(counsel-outline-3 ((,class :inherit outline-3)))
- `(counsel-outline-4 ((,class :inherit outline-4)))
- `(counsel-outline-5 ((,class :inherit outline-5)))
- `(counsel-outline-6 ((,class :inherit outline-6)))
- `(counsel-outline-7 ((,class :inherit outline-7)))
- `(counsel-outline-8 ((,class :inherit outline-8)))
- `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other)))
- `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant)))
-;;;;; counsel-css
- `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue)))
- `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan)))
- `(counsel-css-selector-depth-face-3 ((,class :foreground ,green)))
- `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow)))
- `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta)))
- `(counsel-css-selector-depth-face-6 ((,class :foreground ,red)))
-;;;;; counsel-notmuch
- `(counsel-notmuch-count-face ((,class :foreground ,cyan)))
- `(counsel-notmuch-date-face ((,class :foreground ,blue)))
- `(counsel-notmuch-people-face ((,class :foreground ,magenta)))
- `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other)))
-;;;;; counsel-org-capture-string
- `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold)))
-;;;;; cov
- `(cov-coverage-not-run-face ((,class :foreground ,red-intense)))
- `(cov-coverage-run-face ((,class :foreground ,green-intense)))
- `(cov-heavy-face ((,class :foreground ,magenta-intense)))
- `(cov-light-face ((,class :foreground ,blue-intense)))
- `(cov-med-face ((,class :foreground ,yellow-intense)))
- `(cov-none-face ((,class :foreground ,cyan-intense)))
-;;;;; cperl-mode
- `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other)))
- `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt)))
- `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant)))
-;;;;; csv-mode
- `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
-;;;;; ctrlf
- `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold))))
- `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line)))
- `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan)))
-;;;;; custom (M-x customize)
- `(custom-button ((,class :box (:line-width 2 :color nil :style released-button)
- :background ,bg-active :foreground ,fg-main)))
- `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button)
- :background ,bg-active :foreground ,fg-active)))
- `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button)
- :background ,bg-active :foreground ,fg-main)))
- `(custom-changed ((,class :inherit modus-theme-subtle-cyan)))
- `(custom-comment ((,class :foreground ,fg-alt)))
- `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other)))
- `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense)))
- `(custom-group-tag ((,class :inherit bold :foreground ,green-intense)))
- `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm)))
- `(custom-invalid ((,class :inherit (modus-theme-intense-red bold))))
- `(custom-modified ((,class :inherit modus-theme-subtle-cyan)))
- `(custom-rogue ((,class :inherit modus-theme-refine-magenta)))
- `(custom-set ((,class :foreground ,blue-alt)))
- `(custom-state ((,class :foreground ,cyan-alt-other)))
- `(custom-themed ((,class :inherit modus-theme-subtle-blue)))
- `(custom-variable-tag ((,class :inherit bold :foreground ,cyan)))
-;;;;; dap-mode
- `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil)
- :background ,bg-active :foreground ,fg-main)))
- `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil)
- :background ,bg-active :foreground ,fg-main)))
- `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active)))
- `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense)))
- `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t)))
- `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan)))
- `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic)))
- `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue)))
- `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt)))
- `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt)))
-;;;;; dashboard (emacs-dashboard)
- `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold)))
- `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild)))
- `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm)))
- `(dashboard-navigator ((,class :foreground ,cyan-alt-other)))
- `(dashboard-text-banner ((,class :foreground ,fg-dim)))
-;;;;; deadgrep
- `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(deadgrep-match-face ((,class :inherit modus-theme-special-calm)))
- `(deadgrep-meta-face ((,class :foreground ,fg-alt)))
- `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense)))
- `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense)))
-;;;;; debbugs
- `(debbugs-gnu-archived ((,class :inverse-video t)))
- `(debbugs-gnu-done ((,class :foreground ,fg-alt)))
- `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm)))
- `(debbugs-gnu-handled ((,class :foreground ,green)))
- `(debbugs-gnu-new ((,class :foreground ,red)))
- `(debbugs-gnu-pending ((,class :foreground ,cyan)))
- `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced)))
- `(debbugs-gnu-stale-2 ((,class :foreground ,yellow)))
- `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt)))
- `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other)))
- `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt)))
- `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt)))
-;;;;; define-word
- `(define-word-face-1 ((,class :foreground ,yellow)))
- `(define-word-face-2 ((,class :foreground ,fg-main)))
-;;;;; deft
- `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red)))
- `(deft-filter-string-face ((,class :foreground ,green-intense)))
- `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(deft-separator-face ((,class :foreground ,fg-alt)))
- `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(deft-time-face ((,class :foreground ,fg-special-cold)))
- `(deft-title-face ((,class :inherit bold :foreground ,fg-main)))
-;;;;; dictionary
- `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other)))
- `(dictionary-word-definition-face ((,class :foreground ,fg-main)))
- `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
-;;;;; diff-hl
- `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow)))
- `(diff-hl-delete ((,class :inherit modus-theme-fringe-red)))
- `(diff-hl-dired-change ((,class :inherit diff-hl-change)))
- `(diff-hl-dired-delete ((,class :inherit diff-hl-delete)))
- `(diff-hl-dired-ignored ((,class :inherit dired-ignored)))
- `(diff-hl-dired-insert ((,class :inherit diff-hl-insert)))
- `(diff-hl-dired-unknown ((,class :inherit dired-ignored)))
- `(diff-hl-insert ((,class :inherit modus-theme-fringe-green)))
- `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold))))
-;;;;; diff-mode
- `(diff-added ((,class :inherit modus-theme-diff-added)))
- `(diff-changed ((,class :inherit modus-theme-diff-changed)))
- `(diff-context ((,class :foreground ,fg-unfocused)))
- `(diff-file-header ((,class :inherit bold :foreground ,blue)))
- `(diff-function ((,class :foreground ,fg-special-cold)))
- `(diff-header ((,class :foreground ,blue-nuanced)))
- `(diff-hunk-header ((,class :inherit modus-theme-diff-heading)))
- `(diff-index ((,class :inherit bold :foreground ,blue-alt)))
- `(diff-indicator-added ((,class :inherit diff-added)))
- `(diff-indicator-changed ((,class :inherit diff-changed)))
- `(diff-indicator-removed ((,class :inherit diff-removed)))
- `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold))))
- `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
- `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
- `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed)))
- `(diff-removed ((,class :inherit modus-theme-diff-removed)))
-;;;;; dim-autoload
- `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
-;;;;; dir-treeview
- `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm)))
- `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow)))
- `(dir-treeview-audio-face ((,class :foreground ,magenta)))
- `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt)))
- `(dir-treeview-control-face ((,class :foreground ,fg-alt)))
- `(dir-treeview-control-mouse-face ((,class :inherit highlight)))
- `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt)))
- `(dir-treeview-default-filename-face ((,class :foreground ,fg-main)))
- `(dir-treeview-directory-face ((,class :foreground ,blue)))
- `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt)))
- `(dir-treeview-executable-face ((,class :foreground ,red-alt)))
- `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other)))
- `(dir-treeview-image-face ((,class :foreground ,green-alt-other)))
- `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt)))
- `(dir-treeview-indent-face ((,class :foreground ,fg-alt)))
- `(dir-treeview-label-mouse-face ((,class :inherit highlight)))
- `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header)))
- `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan)))
- `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other)))
- `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other)))
-;;;;; dired
- `(dired-directory ((,class :foreground ,blue)))
- `(dired-flagged ((,class :inherit modus-theme-mark-del)))
- `(dired-header ((,class :inherit modus-theme-pseudo-header)))
- `(dired-ignored ((,class :foreground ,fg-alt)))
- `(dired-mark ((,class :inherit modus-theme-mark-symbol)))
- `(dired-marked ((,class :inherit modus-theme-mark-sel)))
- `(dired-perm-write ((,class :foreground ,fg-special-warm)))
- `(dired-symlink ((,class :inherit button :foreground ,cyan-alt)))
- `(dired-warning ((,class :inherit bold :foreground ,yellow)))
-;;;;; dired-async
- `(dired-async-failures ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active)))
- `(dired-async-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active)))
- `(dired-async-mode-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active)))
-;;;;; dired-git
- `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt)))
- `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; dired-git-info
- `(dgi-commit-message-face ((,class :foreground ,fg-special-mild)))
-;;;;; dired-narrow
- `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold))))
-;;;;; dired-subtree
- ;; remove background from dired-subtree, else it breaks
- ;; dired-{flagged,marked} and any other face that sets a background
- ;; such as hl-line
- `(dired-subtree-depth-1-face ((,class :background nil)))
- `(dired-subtree-depth-2-face ((,class :background nil)))
- `(dired-subtree-depth-3-face ((,class :background nil)))
- `(dired-subtree-depth-4-face ((,class :background nil)))
- `(dired-subtree-depth-5-face ((,class :background nil)))
- `(dired-subtree-depth-6-face ((,class :background nil)))
-;;;;; diredfl
- `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold)))
- `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm)))
- `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt)))
- `(diredfl-date-time ((,class :foreground ,cyan-alt-other)))
- `(diredfl-deletion ((,class :inherit modus-theme-mark-del)))
- `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del)))
- `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header)))
- `(diredfl-dir-name ((,class :inherit dired-directory)))
- `(diredfl-dir-priv ((,class :foreground ,blue-alt)))
- `(diredfl-exec-priv ((,class :foreground ,magenta)))
- `(diredfl-executable-tag ((,class :foreground ,magenta-alt)))
- `(diredfl-file-name ((,class :foreground ,fg-main)))
- `(diredfl-file-suffix ((,class :foreground ,cyan)))
- `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel)))
- `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel)))
- `(diredfl-ignored-file-name ((,class :foreground ,fg-alt)))
- `(diredfl-link-priv ((,class :foreground ,blue-alt-other)))
- `(diredfl-no-priv ((,class :foreground ,fg-alt)))
- `(diredfl-number ((,class :foreground ,cyan-alt)))
- `(diredfl-other-priv ((,class :foreground ,yellow)))
- `(diredfl-rare-priv ((,class :foreground ,red-alt)))
- `(diredfl-read-priv ((,class :foreground ,fg-main)))
- `(diredfl-symlink ((,class :inherit dired-symlink)))
- `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta)))
- `(diredfl-write-priv ((,class :foreground ,cyan)))
-;;;;; disk-usage
- `(disk-usage-children ((,class :foreground ,yellow)))
- `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red)))
- `(disk-usage-percent ((,class :foreground ,green)))
- `(disk-usage-size ((,class :foreground ,cyan)))
- `(disk-usage-symlink ((,class :inherit button :foreground ,blue)))
- `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt)))
-;;;;; doom-modeline
- `(doom-modeline-bar ((,class :inherit modus-theme-active-blue)))
- `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main)))
- `(doom-modeline-battery-charging ((,class :foreground ,green-active)))
- `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2)
- :foreground ,red-active)))
- `(doom-modeline-battery-full ((,class :foreground ,blue-active)))
- `(doom-modeline-battery-normal ((,class :foreground ,fg-active)))
- `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active)))
- `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive)))
- `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active)))
- `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active)))
- `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active)))
- `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive)))
- `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active)))
- `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active)))
- `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-host ((,class :slant italic)))
- `(doom-modeline-info ((,class :foreground ,green-active)))
- `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active)))
- `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(doom-modeline-panel ((,class :inherit modus-theme-active-blue)))
- `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic)))
- `(doom-modeline-persp-name ((,class :foreground ,fg-active)))
- `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active)))
- `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active)))
- `(doom-modeline-project-root-dir ((,class :foreground ,fg-active)))
- `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic)))
- `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active)))
- `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; dynamic-ruler
- `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral)))
- `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow)))
-;;;;; easy-jekyll
- `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other)))
-;;;;; easy-kill
- `(easy-kill-origin ((,class :inherit modus-theme-subtle-red)))
- `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow)))
-;;;;; ebdb
- `(ebdb-address-default ((,class :foreground ,fg-main)))
- `(ebdb-db-char ((,class :foreground ,fg-special-cold)))
- `(ebdb-defunct ((,class :foreground ,fg-alt)))
- `(ebdb-field-hidden ((,class :foreground ,magenta)))
- `(ebdb-field-url ((,class :foreground ,blue)))
- `(ebdb-label ((,class :foreground ,cyan-alt-other)))
- `(ebdb-mail-default ((,class :foreground ,fg-main)))
- `(ebdb-mail-primary ((,class :foreground ,blue-alt)))
- `(ebdb-marked ((,class :background ,cyan-intense-bg)))
- `(ebdb-organization-name ((,class :foreground ,fg-special-calm)))
- `(ebdb-person-name ((,class :foreground ,magenta-alt-other)))
- `(ebdb-phone-default ((,class :foreground ,fg-special-warm)))
- `(ebdb-role-defunct ((,class :foreground ,fg-alt)))
- `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt)))
-;;;;; ediff
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces.
- `(ediff-current-diff-A ((,class ,@(modus-vivendi-theme-diff
- bg-dim red
- bg-diff-removed fg-diff-removed
- red-nuanced-bg red-faint))))
- `(ediff-current-diff-Ancestor ((,class ,@(modus-vivendi-theme-diff
- bg-dim fg-special-cold
- bg-special-cold fg-special-cold
- blue-nuanced-bg blue))))
- `(ediff-current-diff-B ((,class ,@(modus-vivendi-theme-diff
- bg-dim green
- bg-diff-added fg-diff-added
- green-nuanced-bg green-faint))))
- `(ediff-current-diff-C ((,class ,@(modus-vivendi-theme-diff
- bg-dim yellow
- bg-diff-changed fg-diff-changed
- yellow-nuanced-bg yellow-faint))))
- `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed)))
- `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan)))
- `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added)))
- `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed)))
- `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0)))
- `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
-;;;;; eglot
- `(eglot-mode-line ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active)))
-;;;;; el-search
- `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(el-search-match ((,class :inherit modus-theme-intense-green)))
- `(el-search-other-match ((,class :inherit modus-theme-special-mild)))
- `(el-search-occur-match ((,class :inherit modus-theme-special-calm)))
-;;;;; eldoc
- ;; NOTE: see https://github.com/purcell/package-lint/issues/187
- (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other)))
-;;;;; eldoc-box
- `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main)))
- `(eldoc-box-border ((,class :background ,fg-alt)))
-;;;;; elfeed
- `(elfeed-log-date-face ((,class :foreground ,cyan-alt)))
- `(elfeed-log-debug-level-face ((,class :foreground ,magenta)))
- `(elfeed-log-error-level-face ((,class :foreground ,red)))
- `(elfeed-log-info-level-face ((,class :foreground ,green)))
- `(elfeed-log-warn-level-face ((,class :foreground ,yellow)))
- `(elfeed-search-date-face ((,class :foreground ,blue-nuanced)))
- `(elfeed-search-feed-face ((,class :foreground ,cyan)))
- `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active)))
- `(elfeed-search-last-update-face ((,class :foreground ,cyan-active)))
- `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced)))
- `(elfeed-search-title-face ((,class :foreground ,fg-dim)))
- `(elfeed-search-unread-count-face ((,class :foreground ,green-active)))
- `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main)))
-;;;;; elfeed-score
- `(elfeed-score-date-face ((,class :foreground ,blue)))
- `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other)))
- `(elfeed-score-error-level-face ((,class :foreground ,red)))
- `(elfeed-score-info-level-face ((,class :foreground ,cyan)))
- `(elfeed-score-warn-level-face ((,class :foreground ,yellow)))
-;;;;; emms
- `(emms-playlist-track-face ((,class :foreground ,blue)))
- `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta)))
-;;;;; enhanced-ruby-mode
- `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other)))
- `(enh-ruby-op-face ((,class :foreground ,fg-main)))
- `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green)))
- `(enh-ruby-regexp-face ((,class :foreground ,magenta)))
- `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt)))
- `(erm-syn-errline ((,class :foreground ,red :underline t)))
- `(erm-syn-warnline ((,class :foreground ,yellow :underline t)))
-;;;;; epa
- `(epa-field-body ((,class :foreground ,fg-main)))
- `(epa-field-name ((,class :inherit bold :foreground ,fg-dim)))
- `(epa-mark ((,class :inherit bold :foreground ,magenta)))
- `(epa-string ((,class :foreground ,blue-alt)))
- `(epa-validity-disabled ((,class :inherit modus-theme-refine-red)))
- `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other)))
- `(epa-validity-low ((,class :foreground ,fg-alt)))
- `(epa-validity-medium ((,class :foreground ,green-alt)))
-;;;;; equake
- `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main)))
- `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active)))
- `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active)))
- `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active)))
- `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active)))
- `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active)))
- `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt)))
- `(equake-tab-inactive ((,class :foreground ,fg-inactive)))
-;;;;; erc
- `(erc-action-face ((,class :inherit bold :foreground ,cyan)))
- `(erc-bold-face ((,class :inherit bold)))
- `(erc-button ((,class :inherit button)))
- `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(erc-current-nick-face ((,class :foreground ,magenta-alt-other)))
- `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red)))
- `(erc-direct-msg-face ((,class :foreground ,magenta)))
- `(erc-error-face ((,class :inherit bold :foreground ,red)))
- `(erc-fool-face ((,class :foreground ,fg-inactive)))
- `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header)))
- `(erc-input-face ((,class :foreground ,fg-special-calm)))
- `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t)))
- `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta)))
- `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face)))
- `(erc-nick-default-face ((,class :inherit bold :foreground ,blue)))
- `(erc-nick-msg-face ((,class :inherit bold :foreground ,green)))
- `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face)))
- `(erc-notice-face ((,class :foreground ,fg-unfocused)))
- `(erc-pal-face ((,class :inherit bold :foreground ,red-alt)))
- `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(erc-timestamp-face ((,class :foreground ,blue-nuanced)))
- `(erc-underline-face ((,class :underline t)))
- `(bg:erc-color-face0 ((,class :background "white")))
- `(bg:erc-color-face1 ((,class :background "black")))
- `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg)))
- `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg)))
- `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg)))
- `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg)))
- `(bg:erc-color-face14 ((,class :background "gray60")))
- `(bg:erc-color-face15 ((,class :background "gray80")))
- `(bg:erc-color-face2 ((,class :background ,blue-intense-bg)))
- `(bg:erc-color-face3 ((,class :background ,green-intense-bg)))
- `(bg:erc-color-face4 ((,class :background ,red-subtle-bg)))
- `(bg:erc-color-face5 ((,class :background ,red-intense-bg)))
- `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg)))
- `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg)))
- `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg)))
- `(bg:erc-color-face9 ((,class :background ,green-subtle-bg)))
- `(fg:erc-color-face0 ((,class :foreground "white")))
- `(fg:erc-color-face1 ((,class :foreground "black")))
- `(fg:erc-color-face10 ((,class :foreground ,cyan)))
- `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other)))
- `(fg:erc-color-face12 ((,class :foreground ,blue)))
- `(fg:erc-color-face13 ((,class :foreground ,magenta-alt)))
- `(fg:erc-color-face14 ((,class :foreground "gray60")))
- `(fg:erc-color-face15 ((,class :foreground "gray80")))
- `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other)))
- `(fg:erc-color-face3 ((,class :foreground ,green)))
- `(fg:erc-color-face4 ((,class :foreground ,red)))
- `(fg:erc-color-face5 ((,class :foreground ,red-alt)))
- `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other)))
- `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other)))
- `(fg:erc-color-face8 ((,class :foreground ,yellow-alt)))
- `(fg:erc-color-face9 ((,class :foreground ,green-alt-other)))
-;;;;; eros
- `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue)
- :background ,bg-dim :foreground ,fg-dim)))
-;;;;; ert
- `(ert-test-result-expected ((,class :inherit modus-theme-intense-green)))
- `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red)))
-;;;;; eshell
- `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt)))
- `(eshell-ls-backup ((,class :foreground ,yellow-alt)))
- `(eshell-ls-clutter ((,class :foreground ,red-alt)))
- `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt)))
- `(eshell-ls-executable ((,class :foreground ,magenta-alt)))
- `(eshell-ls-missing ((,class :inherit modus-theme-intense-red)))
- `(eshell-ls-product ((,class :foreground ,fg-special-warm)))
- `(eshell-ls-readonly ((,class :foreground ,fg-special-cold)))
- `(eshell-ls-special ((,class :inherit bold :foreground ,magenta)))
- `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan)))
- `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(eshell-prompt ((,class ,@(modus-vivendi-theme-bold-weight)
- ,@(modus-vivendi-theme-prompt
- green-alt-other
- green-nuanced-bg green-alt
- green-refine-bg fg-main))))
-;;;;; eshell-fringe-status
- `(eshell-fringe-status-failure ((,class :foreground ,red)))
- `(eshell-fringe-status-success ((,class :foreground ,green)))
-;;;;; eshell-git-prompt
- `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt)))
- `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt)))
- `(eshell-git-prompt-directory-face ((,class :foreground ,cyan)))
- `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red)))
- `(eshell-git-prompt-exit-success-face ((,class :foreground ,green)))
- `(eshell-git-prompt-modified-face ((,class :foreground ,yellow)))
- `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg)))
- `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg)))
- `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg)))
- `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red)))
- `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow)))
- `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue)))
-;;;;; eshell-prompt-extras (epe)
- `(epe-dir-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue)))
- `(epe-git-dir-face ((,class :foreground ,red-alt-other)))
- `(epe-git-face ((,class :foreground ,cyan-alt)))
- `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt)))
- `(epe-pipeline-host-face ((,class :foreground ,blue)))
- `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm)))
- `(epe-pipeline-user-face ((,class :foreground ,magenta)))
- `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(epe-status-face ((,class :foreground ,magenta-alt-other)))
- `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
-;;;;; eshell-syntax-highlighting
- `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan)))
- `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt)))
- `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue)))
- `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt)))
- `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red)))
- `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta)))
- `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other)))
- `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt)))
-;;;;; evil-mode
- `(evil-ex-commands ((,class :foreground ,magenta-alt-other)))
- `(evil-ex-info ((,class :foreground ,cyan-alt-other)))
- `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
- `(evil-ex-search ((,class :inherit modus-theme-intense-green)))
- `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t)))
- `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; evil-goggles
- `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow)))
- `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant)))
- `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral)))
- `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red)))
- `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green)))
- `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face)))
- `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan)))
- `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold)))
- `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta)))
- `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta)))
- `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face)))
- `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue)))
-;;;;; evil-visual-mark-mode
- `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta)))
-;;;;; eww
- `(eww-invalid-certificate ((,class :foreground ,red-active)))
- `(eww-valid-certificate ((,class :foreground ,green-active)))
- `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main)))
- `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main)))
- `(eww-form-select ((,class :inherit eww-form-checkbox)))
- `(eww-form-submit ((,class :inherit eww-form-file)))
- `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active)))
- `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main)))
-;;;;; eyebrowse
- `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active)))
-;;;;; fancy-dabbrev
- `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t)))
- `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold))))
-;;;;; flycheck
- `(flycheck-error
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
- `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active)))
- `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold)))
- `(flycheck-error-list-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red)))
- `(flycheck-error-list-filename ((,class :foreground ,blue)))
- `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line)))
- `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other)))
- `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t)))
- `(flycheck-error-list-info ((,class :foreground ,cyan)))
- `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm)))
- `(flycheck-error-list-warning ((,class :foreground ,yellow)))
- `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red)))
- `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan)))
- `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow)))
- `(flycheck-info
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-note :style wave))
- (,class :foreground ,fg-lang-note :underline t)))
- `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button))))
- `(flycheck-warning
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
-;;;;; flycheck-color-mode-line
- `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error)))
- `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info)))
- `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic)))
- `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning)))
-;;;;; flycheck-indicator
- `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant)))
- `(flycheck-indicator-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active)))
- `(flycheck-indicator-info ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active)))
- `(flycheck-indicator-running ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active)))
- `(flycheck-indicator-success ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active)))
- `(flycheck-indicator-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow-active)))
-;;;;; flycheck-posframe
- `(flycheck-posframe-background-face ((,class :background ,bg-alt)))
- `(flycheck-posframe-border-face ((,class :foreground ,fg-alt)))
- `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red)))
- `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant)))
- `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan)))
- `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; flymake
- `(flymake-error
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
- `(flymake-note
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-note :style wave))
- (,class :foreground ,fg-lang-note :underline t)))
- `(flymake-warning
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
-;;;;; flyspell
- `(flyspell-duplicate
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-warning :style wave))
- (,class :foreground ,fg-lang-warning :underline t)))
- `(flyspell-incorrect
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; flyspell-correct
- `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green)))
-;;;;; flx
- `(flx-highlight-face ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-intense-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt
- 'bold))))
-;;;;; freeze-it
- `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm)))
-;;;;; frog-menu
- `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other)))
- `(frog-menu-actions-face ((,class :foreground ,magenta)))
- `(frog-menu-border ((,class :background ,bg-active)))
- `(frog-menu-candidates-face ((,class :foreground ,fg-main)))
- `(frog-menu-posframe-background-face ((,class :background ,bg-dim)))
- `(frog-menu-prompt-face ((,class :foreground ,cyan)))
-;;;;; focus
- `(focus-unfocused ((,class :foreground ,fg-unfocused)))
-;;;;; fold-this
- `(fold-this-overlay ((,class :inherit modus-theme-special-mild)))
-;;;;; font-lock
- `(font-lock-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(font-lock-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(font-lock-doc-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- fg-special-cold cyan-alt-other-faint)
- :slant ,modus-theme-slant)))
- `(font-lock-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(font-lock-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(font-lock-negation-char-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- yellow yellow-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(font-lock-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
- `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
- `(font-lock-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt blue-alt-faint))))
- `(font-lock-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(font-lock-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(font-lock-warning-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- yellow-active yellow-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
-;;;;; forge
- `(forge-post-author ((,class :inherit bold :foreground ,fg-main)))
- `(forge-post-date ((,class :foreground ,fg-special-cold)))
- `(forge-topic-closed ((,class :foreground ,fg-alt)))
- `(forge-topic-merged ((,class :foreground ,fg-alt)))
- `(forge-topic-open ((,class :foreground ,fg-special-mild)))
- `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main)))
-;;;;; fountain-mode
- `(fountain-character ((,class :foreground ,blue-alt-other)))
- `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(fountain-dialog ((,class :foreground ,blue-alt)))
- `(fountain-metadata-key ((,class :foreground ,green-alt-other)))
- `(fountain-metadata-value ((,class :foreground ,blue)))
- `(fountain-non-printing ((,class :foreground ,fg-alt)))
- `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(fountain-page-break ((,class :inherit bold :foreground ,red-alt)))
- `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other)))
- `(fountain-paren ((,class :foreground ,cyan)))
- `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced)))
- `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3))))
- `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2))))
- `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1))))
- `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm)))
- `(fountain-synopsis ((,class :foreground ,cyan-alt)))
- `(fountain-trans ((,class :foreground ,yellow-alt-other)))
-;;;;; geiser
- `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue blue-faint))))
- `(geiser-font-lock-doc-button ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt cyan-alt-faint)
- :underline t)))
- `(geiser-font-lock-doc-link ((,class :inherit link)))
- `(geiser-font-lock-error-link ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint)
- :underline t)))
- `(geiser-font-lock-image-button ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt green-alt-faint)
- :underline t)))
- `(geiser-font-lock-repl-input ((,class :inherit bold)))
- `(geiser-font-lock-repl-output ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint))))
- `(geiser-font-lock-repl-prompt ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(geiser-font-lock-xref-header ((,class :inherit bold)))
- `(geiser-font-lock-xref-link ((,class :inherit link)))
-;;;;; git-commit
- `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant)))
- `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant)))
- `(git-commit-keyword ((,class :foreground ,magenta)))
- `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other)))
- `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow)))
- `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow)))
- `(git-commit-pseudo-header ((,class :foreground ,blue)))
- `(git-commit-summary ((,class :inherit bold :foreground ,cyan)))
-;;;;; git-gutter
- `(git-gutter:added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow)))
- `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan)))
- `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta)))
-;;;;; git-gutter-fr
- `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow)))
-;;;;; git-{gutter,fringe}+
- `(git-gutter+-added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow)))
- `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan)))
- `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta)))
- `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green)))
- `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red)))
- `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow)))
-;;;;; git-lens
- `(git-lens-added ((,class :inherit bold :foreground ,green)))
- `(git-lens-deleted ((,class :inherit bold :foreground ,red)))
- `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan)))
- `(git-lens-modified ((,class :inherit bold :foreground ,yellow)))
- `(git-lens-renamed ((,class :inherit bold :foreground ,magenta)))
-;;;;; git-rebase
- `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant)))
- `(git-rebase-description ((,class :foreground ,fg-main)))
- `(git-rebase-hash ((,class :foreground ,cyan-alt-other)))
-;;;;; git-timemachine
- `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active)))
- `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm)))
- `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt)))
-;;;;; git-walktree
- `(git-walktree-commit-face ((,class :foreground ,yellow)))
- `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan)))
- `(git-walktree-tree-face ((,class :foreground ,magenta)))
-;;;;; gnus
- `(gnus-button ((,class :inherit button)))
- `(gnus-cite-1 ((,class :foreground ,blue-alt)))
- `(gnus-cite-10 ((,class :foreground ,magenta-alt-other)))
- `(gnus-cite-11 ((,class :foreground ,yellow-alt-other)))
- `(gnus-cite-2 ((,class :foreground ,red-alt)))
- `(gnus-cite-3 ((,class :foreground ,green-alt)))
- `(gnus-cite-4 ((,class :foreground ,magenta-alt)))
- `(gnus-cite-5 ((,class :foreground ,yellow-alt)))
- `(gnus-cite-6 ((,class :foreground ,cyan-alt)))
- `(gnus-cite-7 ((,class :foreground ,blue-alt-other)))
- `(gnus-cite-8 ((,class :foreground ,red-alt-other)))
- `(gnus-cite-9 ((,class :foreground ,green-alt-other)))
- `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic)))
- `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow)))
- `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt)))
- `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt)))
- `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta)))
- `(gnus-group-mail-2-empty ((,class :foreground ,magenta)))
- `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other)))
- `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced)))
- `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced)))
- `(gnus-group-news-1 ((,class :inherit bold :foreground ,green)))
- `(gnus-group-news-1-empty ((,class :foreground ,green)))
- `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan)))
- `(gnus-group-news-2-empty ((,class :foreground ,cyan)))
- `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced)))
- `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced)))
- `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced)))
- `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced)))
- `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced)))
- `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced)))
- `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt)))
- `(gnus-group-news-6-empty ((,class :foreground ,fg-alt)))
- `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced)))
- `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced)))
- `(gnus-header-content ((,class :foreground ,cyan)))
- `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil)))
- `(gnus-header-name ((,class :foreground ,green)))
- `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt)))
- `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(gnus-server-agent ((,class :inherit bold :foreground ,cyan)))
- `(gnus-server-closed ((,class :inherit bold :foreground ,magenta)))
- `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt)))
- `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan)))
- `(gnus-server-denied ((,class :inherit bold :foreground ,red)))
- `(gnus-server-offline ((,class :inherit bold :foreground ,yellow)))
- `(gnus-server-opened ((,class :inherit bold :foreground ,green)))
- `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic)))
- `(gnus-splash ((,class :foreground ,fg-alt)))
- `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt)))
- `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt)))
- `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold)))
- `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other)))
- `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow)))
- `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main)))
- `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic)))
- `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic)))
- `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic)))
- `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic)))
- `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold)))
- `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm)))
- `(gnus-summary-normal-read ((,class :foreground ,fg-alt)))
- `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other)))
- `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow)))
- `(gnus-summary-normal-unread ((,class :foreground ,fg-main)))
- `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue)))
-;;;;; golden-ratio-scroll-screen
- `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
-;;;;; helm
- `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(helm-action ((,class :underline t)))
- `(helm-bookmark-addressbook ((,class :foreground ,green-alt)))
- `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue)))
- `(helm-bookmark-file ((,class :foreground ,fg-main)))
- `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(helm-bookmark-gnus ((,class :foreground ,magenta)))
- `(helm-bookmark-info ((,class :foreground ,cyan-alt)))
- `(helm-bookmark-man ((,class :foreground ,yellow-alt)))
- `(helm-bookmark-w3m ((,class :foreground ,blue-alt)))
- `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan)))
- `(helm-buffer-directory ((,class :inherit bold :foreground ,blue)))
- `(helm-buffer-file ((,class :foreground ,fg-main)))
- `(helm-buffer-modified ((,class :foreground ,yellow-alt)))
- `(helm-buffer-not-saved ((,class :foreground ,red-alt)))
- `(helm-buffer-process ((,class :foreground ,magenta)))
- `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red)))
- `(helm-buffer-size ((,class :foreground ,fg-alt)))
- `(helm-candidate-number ((,class :foreground ,cyan-active)))
- `(helm-candidate-number-suspended ((,class :foreground ,yellow-active)))
- `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active)))
- `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active)))
- `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active)))
- `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main)))
- `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active)))
- `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active)))
- `(helm-etags-file ((,class :foreground ,fg-dim :underline t)))
- `(helm-ff-backup-file ((,class :foreground ,fg-alt)))
- `(helm-ff-denied ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-intense-red
- 'modus-theme-nuanced-red
- red))))
- `(helm-ff-directory ((,class :inherit helm-buffer-directory)))
- `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other)))
- `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt)))
- `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory))))
- `(helm-ff-executable ((,class :foreground ,magenta-alt)))
- `(helm-ff-file ((,class :foreground ,fg-main)))
- `(helm-ff-file-extension ((,class :foreground ,fg-special-warm)))
- `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red)))
- `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-refine-magenta
- 'modus-theme-subtle-magenta
- 'modus-theme-nuanced-magenta
- magenta))))
- `(helm-ff-prefix ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-refine-yellow
- 'modus-theme-subtle-yellow
- 'modus-theme-nuanced-yellow
- yellow-alt-other))))
- `(helm-ff-socket ((,class :foreground ,red-alt-other)))
- `(helm-ff-suid ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-refine-red
- 'modus-theme-nuanced-yellow
- red-alt))))
- `(helm-ff-symlink ((,class :inherit button :foreground ,cyan)))
- `(helm-ff-truename ((,class :foreground ,blue-alt-other)))
- `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other)))
- `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-grep-finish ((,class :foreground ,green-active)))
- `(helm-grep-lineno ((,class :foreground ,fg-special-warm)))
- `(helm-grep-match ((,class :inherit modus-theme-special-calm)))
- `(helm-header ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense)))
- `(helm-history-deleted ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-red
- 'modus-theme-intense-red
- 'modus-theme-nuanced-red
- red
- 'bold))))
- `(helm-history-remote ((,class :foreground ,red-alt-other)))
- `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm)))
- `(helm-lisp-show-completion ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-yellow
- 'modus-theme-refine-yellow
- 'modus-theme-nuanced-yellow
- yellow
- 'bold))))
- `(helm-locate-finish ((,class :foreground ,green-active)))
- `(helm-match ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan
- 'bold))))
- `(helm-match-item ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-neutral
- 'modus-theme-subtle-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other))))
- `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt)))
- `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other)))
- `(helm-mode-prefix ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-intense-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt
- 'bold))))
- `(helm-non-file-buffer ((,class :foreground ,fg-alt)))
- `(helm-prefarg ((,class :foreground ,red-active)))
- `(helm-resume-need-update ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other))))
- `(helm-selection ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-special-cold
- nil
- 'bold))))
- `(helm-selection-line ((,class :inherit modus-theme-special-cold)))
- `(helm-separator ((,class :foreground ,fg-special-mild)))
- `(helm-time-zone-current ((,class :foreground ,green)))
- `(helm-time-zone-home ((,class :foreground ,magenta)))
- `(helm-source-header ((,class :inherit bold :foreground ,red-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(helm-top-columns ((,class :inherit helm-header)))
- `(helm-ucs-char ((,class :foreground ,yellow-alt-other)))
- `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan)))
-;;;;; helm-ls-git
- `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense)))
- `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense)))
- `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense)))
- `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced)))
- `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red)))
- `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced)))
- `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow)))
- `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta)))
- `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold)))
-;;;;; helm-switch-shell
- `(helm-switch-shell-new-shell-face ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other
- 'bold))))
-;;;;; helm-xref
- `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold)))
- `(helm-xref-file-name ((,class :foreground ,fg-special-warm)))
-;;;;; helpful
- `(helpful-heading ((,class :inherit modus-theme-heading-1)))
-;;;;; highlight region or ad-hoc regexp
- `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main)))
- `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t)))
- `(hi-blue-b ((,class :inherit modus-theme-intense-blue)))
- `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t)))
- `(hi-green-b ((,class :inherit modus-theme-intense-green)))
- `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t)))
- `(hi-red-b ((,class :inherit modus-theme-intense-red)))
- `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t)))
- `(highlight ((,class :inherit modus-theme-subtle-blue)))
- `(highlight-changes ((,class :foreground ,yellow-alt-other)))
- `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t)))
- `(hl-line ((,class :inherit modus-theme-hl-line)))
-;;;;; highlight-blocks
- `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main)))
- `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main)))
- `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
- `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main)))
- `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main)))
- `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main)))
- `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main)))
- `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main)))
- `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
-;;;;; highlight-defined
- `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta)))
- `(highlight-defined-face-name-face ((,class :foreground ,fg-main)))
- `(highlight-defined-function-name-face ((,class :foreground ,magenta)))
- `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt)))
- `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other)))
- `(highlight-defined-variable-name-face ((,class :foreground ,cyan)))
-;;;;; highlight-escape-sequences (`hes-mode')
- `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct)))
- `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
-;;;;; highlight-indentation
- `(highlight-indentation-face ((,class :inherit modus-theme-hl-line)))
- `(highlight-indentation-current-column-face ((,class :background ,bg-active)))
-;;;;; highlight-numbers
- `(highlight-numbers-number ((,class :foreground ,blue-alt-other)))
-;;;;; highlight-symbol
- `(highlight-symbol-face ((,class :inherit modus-theme-special-mild)))
-;;;;; highlight-thing
- `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan)))
-;;;;; hl-defined
- `(hdefd-functions ((,class :foreground ,blue)))
- `(hdefd-undefined ((,class :foreground ,red-alt)))
- `(hdefd-variables ((,class :foreground ,cyan-alt)))
-;;;;; hl-fill-column
- `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active)))
-;;;;; hl-todo
- `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant)))
-;;;;; hydra
- `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow)))
- `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt)))
- `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt)))
- `(hydra-face-red ((,class :inherit bold :foreground ,red)))
- `(hydra-face-teal ((,class :inherit bold :foreground ,cyan)))
-;;;;; hyperlist
- `(hyperlist-condition ((,class :foreground ,green)))
- `(hyperlist-hashtag ((,class :foreground ,yellow)))
- `(hyperlist-operator ((,class :foreground ,blue-alt)))
- `(hyperlist-paren ((,class :foreground ,cyan-alt-other)))
- `(hyperlist-quote ((,class :foreground ,cyan-alt)))
- `(hyperlist-ref ((,class :foreground ,magenta-alt-other)))
- `(hyperlist-stars ((,class :foreground ,fg-alt)))
- `(hyperlist-tag ((,class :foreground ,red)))
- `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main)))
-;;;;; icomplete
- `(icomplete-first-match ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- magenta bg-alt
- bg-active fg-main))))
-;;;;; icomplete-vertical
- `(icomplete-vertical-separator ((,class :foreground ,fg-alt)))
-;;;;; ido-mode
- `(ido-first-match ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- magenta bg-alt
- bg-active fg-main))))
- `(ido-incomplete-regexp ((,class :inherit error)))
- `(ido-indicator ((,class :inherit modus-theme-subtle-yellow)))
- `(ido-only-match ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- green green-nuanced-bg
- green-intense-bg fg-main))))
- `(ido-subdir ((,class :foreground ,blue)))
- `(ido-virtual ((,class :foreground ,fg-special-warm)))
-;;;;; iedit
- `(iedit-occurrence ((,class :inherit modus-theme-refine-blue)))
- `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow)))
-;;;;; iflipb
- `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(iflipb-other-buffer-face ((,class :foreground ,fg-alt)))
-;;;;; imenu-list
- `(imenu-list-entry-face-0 ((,class :foreground ,cyan)))
- `(imenu-list-entry-face-1 ((,class :foreground ,blue)))
- `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other)))
- `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt)))
- `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t)))
- `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t)))
- `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t)))
- `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t)))
-;;;;; indium
- `(indium-breakpoint-face ((,class :foreground ,red-active)))
- `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt)))
- `(indium-keyword-face ((,class :foreground ,magenta-alt-other)))
- `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant)))
- `(indium-repl-error-face ((,class :inherit bold :foreground ,red)))
- `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
- `(indium-repl-stdout-face ((,class :foreground ,fg-main)))
-;;;;; info
- `(Info-quoted ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,magenta))) ; the capitalisation is canonical
- `(info-header-node ((,class :inherit bold :foreground ,fg-alt)))
- `(info-header-xref ((,class :foreground ,blue-active)))
- `(info-index-match ((,class :inherit match)))
- `(info-menu-header ((,class :inherit modus-theme-heading-3)))
- `(info-menu-star ((,class :foreground ,red)))
- `(info-node ((,class :inherit bold)))
- `(info-title-1 ((,class :inherit modus-theme-heading-1)))
- `(info-title-2 ((,class :inherit modus-theme-heading-2)))
- `(info-title-3 ((,class :inherit modus-theme-heading-3)))
- `(info-title-4 ((,class :inherit modus-theme-heading-4)))
-;;;;; info-colors
- `(info-colors-lisp-code-block ((,class :inherit fixed-pitch)))
- `(info-colors-ref-item-command ((,class :foreground ,magenta)))
- `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other)))
- `(info-colors-ref-item-function ((,class :foreground ,magenta)))
- `(info-colors-ref-item-macro ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(info-colors-ref-item-other ((,class :foreground ,cyan)))
- `(info-colors-ref-item-special-form ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other)))
- `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta)))
- `(info-colors-ref-item-type ((,class :foreground ,magenta-alt)))
- `(info-colors-ref-item-user-option ((,class :foreground ,cyan)))
- `(info-colors-ref-item-variable ((,class :foreground ,cyan)))
-;;;;; interaction-log
- `(ilog-buffer-face ((,class :foreground ,magenta-alt-other)))
- `(ilog-change-face ((,class :foreground ,magenta-alt)))
- `(ilog-echo-face ((,class :foreground ,yellow-alt-other)))
- `(ilog-load-face ((,class :foreground ,green)))
- `(ilog-message-face ((,class :foreground ,fg-alt)))
- `(ilog-non-change-face ((,class :foreground ,blue)))
-;;;;; ioccur
- `(ioccur-cursor ((,class :foreground ,fg-main)))
- `(ioccur-invalid-regexp ((,class :foreground ,red)))
- `(ioccur-match-face ((,class :inherit modus-theme-special-calm)))
- `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-special-cold)))
- `(ioccur-num-line-face ((,class :foreground ,fg-special-warm)))
- `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-refine-blue)))
- `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold))))
- `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
-;;;;; isearch, occur, and the like
- `(isearch ((,class :inherit (modus-theme-intense-green bold))))
- `(isearch-fail ((,class :inherit modus-theme-refine-red)))
- `(lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
- `(match ((,class :inherit modus-theme-special-calm)))
- `(query-replace ((,class :inherit (modus-theme-intense-yellow bold))))
-;;;;; ivy
- `(ivy-action ((,class :inherit bold :foreground ,red-alt)))
- `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(ivy-confirm-face ((,class :foreground ,cyan)))
- `(ivy-current-match ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-refine-cyan
- 'modus-theme-intense-cyan
- 'modus-theme-special-warm
- nil
- 'bold))))
- `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main)))
- `(ivy-grep-info ((,class :foreground ,cyan-alt)))
- `(ivy-grep-line-number ((,class :foreground ,fg-special-warm)))
- `(ivy-highlight-face ((,class :foreground ,magenta)))
- `(ivy-match-required-face ((,class :inherit error)))
- `(ivy-minibuffer-match-face-1 ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-neutral
- 'modus-theme-intense-neutral
- 'modus-theme-subtle-neutral
- fg-alt))))
- `(ivy-minibuffer-match-face-2 ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-green
- 'modus-theme-refine-green
- 'modus-theme-nuanced-green
- green-alt-other
- 'bold))))
- `(ivy-minibuffer-match-face-3 ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other
- 'bold))))
- `(ivy-minibuffer-match-face-4 ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other
- 'bold))))
- `(ivy-minibuffer-match-highlight ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-intense-blue
- 'modus-theme-nuanced-blue
- blue-alt-other
- 'bold))))
- `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant)))
- `(ivy-org ((,class :foreground ,cyan-alt-other)))
- `(ivy-prompt-match ((,class :inherit ivy-current-match)))
- `(ivy-remote ((,class :foreground ,magenta)))
- `(ivy-separator ((,class :foreground ,fg-alt)))
- `(ivy-subdir ((,class :foreground ,blue-alt-other)))
- `(ivy-virtual ((,class :foreground ,magenta-alt-other)))
- `(ivy-yanked-word ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-nuanced-blue
- blue-alt))))
-;;;;; ivy-posframe
- `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main)))
- `(ivy-posframe-border ((,class :background ,bg-active)))
- `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main)))
-;;;;; jira (org-jira)
- `(jiralib-comment-face ((,class :background ,bg-alt)))
- `(jiralib-comment-header-face ((,class :inherit bold)))
- `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm)))
- `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold))))
- `(jiralib-issue-summary-face ((,class :inherit bold)))
- `(jiralib-link-filter-face ((,class :underline t)))
- `(jiralib-link-issue-face ((,class :underline t)))
- `(jiralib-link-project-face ((,class :underline t)))
-;;;;; journalctl-mode
- `(journalctl-error-face ((,class :inherit bold :foreground ,red)))
- `(journalctl-finished-face ((,class :inherit bold :foreground ,green)))
- `(journalctl-host-face ((,class :foreground ,blue)))
- `(journalctl-process-face ((,class :foreground ,cyan-alt-other)))
- `(journalctl-starting-face ((,class :foreground ,green)))
- `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold)))
- `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; js2-mode
- `(js2-error ((,class :foreground ,red)))
- `(js2-external-variable ((,class :foreground ,cyan-alt-other)))
- `(js2-function-call ((,class :foreground ,magenta)))
- `(js2-function-param ((,class :foreground ,blue)))
- `(js2-instance-member ((,class :foreground ,magenta-alt-other)))
- `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main)))
- `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan)))
- `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm)))
- `(js2-jsdoc-type ((,class :foreground ,fg-special-cold)))
- `(js2-jsdoc-value ((,class :foreground ,fg-special-warm)))
- `(js2-object-property ((,class :foreground ,fg-main)))
- `(js2-object-property-access ((,class :foreground ,fg-main)))
- `(js2-private-function-call ((,class :foreground ,green-alt-other)))
- `(js2-private-member ((,class :foreground ,fg-special-mild)))
- `(js2-warning ((,class :foreground ,yellow-alt :underline t)))
-;;;;; julia
- `(julia-macro-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta)))
- `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other)))
-;;;;; jupyter
- `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue)))
- `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other)))
- `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other)))
- `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red)))
-;;;;; kaocha-runner
- `(kaocha-runner-error-face ((,class :foreground ,red)))
- `(kaocha-runner-success-face ((,class :foreground ,green)))
- `(kaocha-runner-warning-face ((,class :foreground ,yellow)))
-;;;;; keycast
- `(keycast-command ((,class :inherit bold :foreground ,blue-active)))
- `(keycast-key ((,class ,@(modus-vivendi-theme-mode-line-attrs
- bg-main blue-active
- bg-main blue-active
- blue-active blue-intense
- 'alt-style -3))))
-;;;;; line numbers (display-line-numbers-mode and global variant)
- `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt)))
- `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main)))
-;;;;; lsp-mode
- `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t)))
- `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue)))
- `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold))))
- `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other)))
- `(lsp-face-semhl-deprecated
- ((,(append '((supports :underline (:style wave))) class)
- :foreground ,yellow :underline (:style wave))
- (,class :foreground ,yellow :underline t)))
- `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other)))
- `(lsp-face-semhl-field ((,class :foreground ,cyan-alt)))
- `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-function ((,class :foreground ,magenta)))
- `(lsp-face-semhl-method ((,class :foreground ,magenta)))
- `(lsp-face-semhl-namespace ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt)))
- `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other)))
- `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt)))
- `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt)))
- `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant)))
- `(lsp-face-semhl-variable ((,class :foreground ,cyan)))
- `(lsp-face-semhl-variable-local ((,class :foreground ,cyan)))
- `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other)))
- `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt)))
- `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t)))
- `(lsp-ui-doc-background ((,class :background ,bg-alt)))
- `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other)))
- `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm)))
- `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header)))
- `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue)))
- `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt)))
- `(lsp-ui-peek-list ((,class :background ,bg-dim)))
- `(lsp-ui-peek-peek ((,class :background ,bg-alt)))
- `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan)))
- `(lsp-ui-sideline-code-action ((,class :foreground ,yellow)))
- `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main)))
- `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt)))
- `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic)))
-;;;;; magit
- `(magit-bisect-bad ((,class :foreground ,red-alt-other)))
- `(magit-bisect-good ((,class :foreground ,green-alt-other)))
- `(magit-bisect-skip ((,class :foreground ,yellow-alt-other)))
- `(magit-blame-date ((,class :foreground ,blue)))
- `(magit-blame-dimmed ((,class :foreground ,fg-alt)))
- `(magit-blame-hash ((,class :foreground ,fg-special-warm)))
- `(magit-blame-heading ((,class :background ,bg-alt)))
- `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan)))
- `(magit-blame-margin ((,class :inherit magit-blame-highlight)))
- `(magit-blame-name ((,class :foreground ,magenta-alt-other)))
- `(magit-blame-summary ((,class :foreground ,cyan-alt-other)))
- `(magit-branch-current ((,class :foreground ,blue-alt-other :box t)))
- `(magit-branch-local ((,class :foreground ,blue-alt)))
- `(magit-branch-remote ((,class :foreground ,magenta-alt)))
- `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t)))
- `(magit-branch-upstream ((,class :slant italic)))
- `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense)))
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces, though only for the standard actions,
- ;; not the highlighted ones. This is because Magit's interaction
- ;; model relies on highlighting the current diff hunk.
- `(magit-diff-added ((,class ,@(modus-vivendi-theme-diff
- bg-main green
- bg-diff-added fg-diff-added
- green-nuanced-bg fg-diff-added))))
- `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added)))
- `(magit-diff-base ((,class ,@(modus-vivendi-theme-diff
- bg-main yellow
- bg-diff-changed fg-diff-changed
- yellow-nuanced-bg fg-diff-changed))))
- `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed)))
- `(magit-diff-context ((,class :foreground ,fg-unfocused)))
- `(magit-diff-context-highlight ((,class ,@(modus-vivendi-theme-diff
- bg-dim fg-dim
- bg-inactive fg-inactive
- bg-dim fg-alt))))
- `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold)))
- `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold))))
- `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan)))
- ;; NOTE: here we break from the pattern of inheriting from the
- ;; modus-theme-diff-* faces.
- `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active
- :foreground ,fg-inactive)))
- `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading
- :foreground ,fg-diff-heading)))
- `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue)))
- `(magit-diff-hunk-region ((,class :inherit bold)))
- `(magit-diff-lines-boundary ((,class :background ,fg-main)))
- `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta)))
- `(magit-diff-removed ((,class ,@(modus-vivendi-theme-diff
- bg-main red
- bg-diff-removed fg-diff-removed
- red-nuanced-bg fg-diff-removed))))
- `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed)))
- `(magit-diffstat-added ((,class :foreground ,green)))
- `(magit-diffstat-removed ((,class :foreground ,red)))
- `(magit-dimmed ((,class :foreground ,fg-unfocused)))
- `(magit-filename ((,class :foreground ,fg-special-cold)))
- `(magit-hash ((,class :foreground ,fg-alt)))
- `(magit-head ((,class :inherit magit-branch-local)))
- `(magit-header-line ((,class :inherit bold :foreground ,magenta-active)))
- `(magit-header-line-key ((,class :inherit bold :foreground ,red-active)))
- `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main)))
- `(magit-keyword ((,class :foreground ,magenta)))
- `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other)))
- `(magit-log-author ((,class :foreground ,cyan)))
- `(magit-log-date ((,class :foreground ,fg-alt)))
- `(magit-log-graph ((,class :foreground ,fg-dim)))
- `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active)))
- `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active)))
- `(magit-process-ng ((,class :inherit error)))
- `(magit-process-ok ((,class :inherit success)))
- `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense)))
- `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense)))
- `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense)))
- `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense)))
- `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense)))
- `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense)))
- `(magit-refname ((,class :foreground ,fg-alt)))
- `(magit-refname-pullreq ((,class :foreground ,fg-alt)))
- `(magit-refname-stash ((,class :foreground ,fg-alt)))
- `(magit-refname-wip ((,class :foreground ,fg-alt)))
- `(magit-section ((,class :background ,bg-dim :foreground ,fg-main)))
- `(magit-section-heading ((,class :inherit bold :foreground ,cyan)))
- `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold))))
- `(magit-section-highlight ((,class :background ,bg-alt)))
- `(magit-sequence-done ((,class :foreground ,green-alt)))
- `(magit-sequence-drop ((,class :foreground ,red-alt)))
- `(magit-sequence-exec ((,class :foreground ,magenta-alt)))
- `(magit-sequence-head ((,class :foreground ,cyan-alt)))
- `(magit-sequence-onto ((,class :foreground ,fg-alt)))
- `(magit-sequence-part ((,class :foreground ,yellow-alt)))
- `(magit-sequence-pick ((,class :foreground ,blue-alt)))
- `(magit-sequence-stop ((,class :foreground ,red)))
- `(magit-signature-bad ((,class :inherit bold :foreground ,red)))
- `(magit-signature-error ((,class :foreground ,red-alt)))
- `(magit-signature-expired ((,class :foreground ,yellow)))
- `(magit-signature-expired-key ((,class :foreground ,yellow)))
- `(magit-signature-good ((,class :foreground ,green)))
- `(magit-signature-revoked ((,class :foreground ,magenta)))
- `(magit-signature-untrusted ((,class :foreground ,cyan)))
- `(magit-tag ((,class :foreground ,yellow-alt-other)))
-;;;;; magit-imerge
- `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt)))
-;;;;; man
- `(Man-overstrike ((,class :inherit bold :foreground ,magenta)))
- `(Man-reverse ((,class :inherit modus-theme-subtle-magenta)))
- `(Man-underline ((,class :foreground ,cyan :underline t)))
-;;;;; markdown-mode
- `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(markdown-bold-face ((,class :inherit bold)))
- `(markdown-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts))))
- `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant)))
- `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other)))
- `(markdown-header-delimiter-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,fg-dim)))
- `(markdown-header-face ((t nil)))
- `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1)))
- `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2)))
- `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3)))
- `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4)))
- `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5)))
- `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6)))
- `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm)))
- `(markdown-html-attr-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(markdown-html-attr-value-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,blue)))
- `(markdown-html-entity-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(markdown-html-tag-delimiter-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,fg-special-mild)))
- `(markdown-html-tag-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,magenta-alt)))
- `(markdown-inline-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,magenta)))
- `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markdown-language-info-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(markdown-language-keyword-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,green-alt-other)))
- `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t)))
- `(markdown-link-face ((,class :inherit link)))
- `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(markdown-list-face ((,class :foreground ,fg-dim)))
- `(markdown-markup-face ((,class :foreground ,fg-alt)))
- `(markdown-math-face ((,class :foreground ,magenta-alt-other)))
- `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other)))
- `(markdown-metadata-value-face ((,class :foreground ,blue-alt)))
- `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow)))
- `(markdown-plain-url-face ((,class :inherit markdown-link-face)))
- `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- ,@(modus-vivendi-theme-mixed-fonts)
- :background ,bg-dim
- :foreground ,fg-special-mild)))
- `(markdown-reference-face ((,class :inherit markdown-markup-face)))
- `(markdown-strike-through-face ((,class :strike-through t)))
- `(markdown-table-face ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(markdown-url-face ((,class :foreground ,blue-alt)))
-;;;;; markup-faces (`adoc-mode')
- `(markup-anchor-face ((,class :foreground ,fg-inactive)))
- `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic)))
- `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced)))
- `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced)))
- `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta)))
- `(markup-command-face ((,class :foreground ,fg-inactive)))
- `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button)
- :inherit modus-theme-refine-magenta)))
- `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markup-error-face ((,class :inherit bold :foreground ,red)))
- `(markup-gen-face ((,class :foreground ,magenta-alt)))
- `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive)))
- `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic)))
- `(markup-list-face ((,class :inherit modus-theme-special-calm)))
- `(markup-meta-face ((,class :foreground ,fg-inactive)))
- `(markup-meta-hide-face ((,class :foreground ,fg-alt)))
- `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan)))
- `(markup-preprocessor-face ((,class :foreground ,red-alt-other)))
- `(markup-replacement-face ((,class :foreground ,yellow-alt-other)))
- `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced)))
- `(markup-small-face ((,class :height 0.8 :foreground ,fg-main)))
- `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced)))
- `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
- `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
- `(markup-table-cell-face ((,class :inherit modus-theme-special-cold)))
- `(markup-table-face ((,class :inherit modus-theme-subtle-cyan)))
- `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan)))
- `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced)))
- `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced)))
- `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced)))
- `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced)))
- `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced)))
- `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t)))
- `(markup-value-face ((,class :foreground ,fg-inactive)))
- `(markup-verbatim-face ((,class :inherit modus-theme-special-mild)))
-;;;;; mentor
- `(mentor-download-message ((,class :foreground ,fg-special-warm)))
- `(mentor-download-name ((,class :foreground ,fg-special-cold)))
- `(mentor-download-progress ((,class :foreground ,blue-alt-other)))
- `(mentor-download-size ((,class :foreground ,magenta-alt-other)))
- `(mentor-download-speed-down ((,class :foreground ,cyan-alt)))
- `(mentor-download-speed-up ((,class :foreground ,red-alt)))
- `(mentor-download-state ((,class :foreground ,yellow-alt)))
- `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue)))
- `(mentor-tracker-name ((,class :foreground ,magenta-alt)))
-;;;;; messages
- `(message-cited-text-1 ((,class :foreground ,blue-alt)))
- `(message-cited-text-2 ((,class :foreground ,red-alt)))
- `(message-cited-text-3 ((,class :foreground ,green-alt)))
- `(message-cited-text-4 ((,class :foreground ,magenta-alt)))
- `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt)))
- `(message-header-name ((,class :foreground ,green-alt-other)))
- `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt)))
- `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(message-header-to ((,class :inherit bold :foreground ,blue)))
- `(message-header-xheader ((,class :foreground ,cyan)))
- `(message-mml ((,class :foreground ,fg-special-warm)))
- `(message-separator ((,class :inherit modus-theme-intense-neutral)))
-;;;;; minibuffer-line
- `(minibuffer-line ((,class :foreground ,fg-main)))
-;;;;; minimap
- `(minimap-active-region-background ((,class :background ,bg-active)))
- `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
-;;;;; modeline
- `(mode-line ((,class ,@(modus-vivendi-theme-mode-line-attrs
- fg-active bg-active fg-dim bg-active
- fg-alt bg-active 'alt-style nil bg-main))))
- `(mode-line-buffer-id ((,class :inherit bold)))
- `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active)))
- `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button))))
- `(mode-line-inactive ((,class ,@(modus-vivendi-theme-mode-line-attrs
- fg-inactive bg-inactive fg-alt bg-dim
- bg-region bg-active))))
-;;;;; mood-line
- `(mood-line-modified ((,class :foreground ,magenta-active)))
- `(mood-line-status-error ((,class :inherit bold :foreground ,red-active)))
- `(mood-line-status-info ((,class :foreground ,cyan-active)))
- `(mood-line-status-neutral ((,class :foreground ,blue-active)))
- `(mood-line-status-success ((,class :foreground ,green-active)))
- `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active)))
- `(mood-line-unimportant ((,class :foreground ,fg-inactive)))
-;;;;; mpdel
- `(mpdel-browser-directory-face ((,class :foreground ,blue)))
- `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other)))
-;;;;; mu4e
- `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(mu4e-cited-1-face ((,class :foreground ,blue-alt)))
- `(mu4e-cited-2-face ((,class :foreground ,red-alt)))
- `(mu4e-cited-3-face ((,class :foreground ,green-alt)))
- `(mu4e-cited-4-face ((,class :foreground ,magenta-alt)))
- `(mu4e-cited-5-face ((,class :foreground ,yellow-alt)))
- `(mu4e-cited-6-face ((,class :foreground ,cyan-alt)))
- `(mu4e-cited-7-face ((,class :foreground ,magenta)))
- `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face)))
- `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral)))
- `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(mu4e-context-face ((,class :foreground ,blue-active)))
- `(mu4e-draft-face ((,class :foreground ,magenta-alt)))
- `(mu4e-flagged-face ((,class :foreground ,red-alt)))
- `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other)))
- `(mu4e-header-face ((,class :foreground ,fg-alt)))
- `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line)))
- `(mu4e-header-key-face ((,class :foreground ,cyan)))
- `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt)))
- `(mu4e-header-title-face ((,class :foreground ,fg-special-mild)))
- `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(mu4e-link-face ((,class :inherit link)))
- `(mu4e-modeline-face ((,class :foreground ,magenta-active)))
- `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant)))
- `(mu4e-ok-face ((,class :inherit bold :foreground ,green)))
- `(mu4e-region-code ((,class :inherit modus-theme-special-calm)))
- `(mu4e-replied-face ((,class :foreground ,blue-faint)))
- `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other)))
- `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant)))
- `(mu4e-title-face ((,class :foreground ,fg-main)))
- `(mu4e-trashed-face ((,class :foreground ,red)))
- `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main)))
- `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(mu4e-view-body-face ((,class :foreground ,fg-main)))
- `(mu4e-warning-face ((,class :inherit warning)))
-;;;;; mu4e-conversation
- `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold)))
- `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm)))
- `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold)))
- `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild)))
- `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt)))
- `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg)))
- `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg)))
- `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg)))
- `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg)))
- `(mu4e-conversation-sender-me ((,class :foreground ,fg-main)))
- `(mu4e-conversation-unread ((,class :inherit bold)))
-;;;;; multiple-cursors
- `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main)))
- `(mc/cursor-face ((,class :inverse-video t)))
- `(mc/region-face ((,class :inherit region)))
-;;;;; neotree
- `(neo-banner-face ((,class :foreground ,magenta)))
- `(neo-button-face ((,class :inherit button)))
- `(neo-dir-link-face ((,class :inherit bold :foreground ,blue)))
- `(neo-expand-btn-face ((,class :foreground ,cyan)))
- `(neo-file-link-face ((,class :foreground ,fg-main)))
- `(neo-header-face ((,class :inherit bold :foreground ,fg-main)))
- `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt)))
- `(neo-vc-added-face ((,class :foreground ,green)))
- `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red)))
- `(neo-vc-default-face ((,class :foreground ,fg-main)))
- `(neo-vc-edited-face ((,class :foreground ,yellow)))
- `(neo-vc-ignored-face ((,class :foreground ,fg-inactive)))
- `(neo-vc-missing-face ((,class :foreground ,red-alt)))
- `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt)))
- `(neo-vc-needs-update-face ((,class :underline t)))
- `(neo-vc-removed-face ((,class :strike-through t)))
- `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue)))
- `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt)))
- `(neo-vc-user-face ((,class :foreground ,magenta)))
-;;;;; no-emoji
- `(no-emoji ((,class :foreground ,cyan)))
-;;;;; notmuch
- `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta)))
- `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other)))
- `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red)))
- `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green)))
- `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow)))
- `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red)))
- `(notmuch-hello-logo-background ((,class :background ,bg-main)))
- `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan)))
- `(notmuch-search-flagged-face ((,class :foreground ,red-alt)))
- `(notmuch-search-matching-authors ((,class :foreground ,fg-main)))
- `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt)))
- `(notmuch-search-unread-face ((,class :inherit bold)))
- `(notmuch-tag-added
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,green :style wave))
- (,class :foreground ,green :underline t)))
- `(notmuch-tag-deleted
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,red :style wave))
- (,class :foreground ,red :underline t)))
- `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt)))
- `(notmuch-tag-flagged ((,class :foreground ,red-alt)))
- `(notmuch-tag-unread ((,class :foreground ,magenta-alt)))
- `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold)))
- `(notmuch-tree-match-face ((,class :foreground ,fg-main)))
- `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt)))
- `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt)))
- `(notmuch-wash-cited-text ((,class :foreground ,cyan)))
- `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt)))
-;;;;; num3-mode
- `(num3-face-even ((,class :inherit bold :background ,bg-alt)))
-;;;;; nxml-mode
- `(nxml-attribute-colon ((,class :foreground ,fg-main)))
- `(nxml-attribute-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt cyan-alt-faint))))
- `(nxml-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-attribute-value ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue blue-faint))))
- `(nxml-cdata-section-CDATA ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-cdata-section-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(nxml-char-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt-other green-alt-other-faint))))
- `(nxml-char-ref-number ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(nxml-delimiter ((,class :foreground ,fg-dim)))
- `(nxml-element-colon ((,class :foreground ,fg-main)))
- `(nxml-element-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(nxml-element-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-entity-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt-other green-alt-other-faint))))
- `(nxml-entity-ref-name ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-glyph ((,class :inherit modus-theme-intense-neutral)))
- `(nxml-hash ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt blue-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-heading ((,class :inherit bold)))
- `(nxml-name ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main)))
- `(nxml-namespace-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(nxml-processing-instruction-target ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-prolog-keyword ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(nxml-ref ((,class ,@(modus-vivendi-theme-syntax-foreground
- green-alt-other green-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
-;;;;; objed
- `(objed-hl ((,class :background ,(if modus-vivendi-theme-intense-hl-line
- bg-hl-alt-intense bg-hl-alt))))
- `(objed-mark ((,class :background ,bg-active)))
- `(objed-mode-line ((,class :foreground ,cyan-active)))
-;;;;; orderless
- `(orderless-match-face-0 ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- blue-alt-other blue-nuanced-bg
- blue-refine-bg blue-refine-fg))))
- `(orderless-match-face-1 ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- magenta-alt magenta-nuanced-bg
- magenta-refine-bg magenta-refine-fg))))
- `(orderless-match-face-2 ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- green green-nuanced-bg
- green-refine-bg green-refine-fg))))
- `(orderless-match-face-3 ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- yellow yellow-nuanced-bg
- yellow-refine-bg yellow-refine-fg))))
-;;;;; org
- `(org-agenda-calendar-event ((,class :foreground ,fg-main)))
- `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt)))
- `(org-agenda-clocking ((,class :inherit modus-theme-special-cold
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(org-agenda-column-dateline ((,class :background ,bg-alt)))
- `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other)))
- `(org-agenda-date ((,class :foreground ,cyan)))
- `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t)))
- `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other)))
- `(org-agenda-diary ((,class :foreground ,fg-main)))
- `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt)))
- `(org-agenda-done ((,class :foreground ,green-alt)))
- `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active)))
- `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim)))
- `(org-agenda-structure ((,class :foreground ,blue-alt)))
- `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(org-block ((,class ,@(modus-vivendi-theme-mixed-fonts)
- ,@(modus-vivendi-theme-org-block bg-dim)
- :foreground ,fg-main)))
- `(org-block-begin-line ((,class ,@(modus-vivendi-theme-mixed-fonts)
- ,@(modus-vivendi-theme-org-block-delim
- bg-dim fg-special-cold
- bg-alt fg-special-mild))))
- `(org-block-end-line ((,class :inherit org-block-begin-line)))
- `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active)
- :background ,bg-inactive :foreground ,fg-active)))
- `(org-checkbox-statistics-done ((,class :inherit org-done)))
- `(org-checkbox-statistics-todo ((,class :inherit org-todo)))
- `(org-clock-overlay ((,class :inherit modus-theme-special-cold)))
- `(org-code ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,magenta)))
- `(org-column ((,class :background ,bg-alt)))
- `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt)))
- `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other)))
- `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t)))
- `(org-document-info ((,class :foreground ,fg-special-cold)))
- `(org-document-info-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,fg-alt)))
- `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5))))
- `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green)))
- `(org-drawer ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,cyan)))
- `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour
- `(org-footnote ((,class :inherit button :foreground ,blue-alt)))
- `(org-formula ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,red-alt)))
- `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow)))
- `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow)))
- `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta)))
- `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta)))
- `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red)))
- `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red)))
- `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue)))
- `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue)))
- `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced)))
- `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced)))
- `(org-hide ((,class :foreground ,bg-main)))
- `(org-indent ((,class :inherit (fixed-pitch org-hide))))
- `(org-latex-and-related ((,class :foreground ,magenta-refine-fg)))
- `(org-level-1 ((,class :inherit modus-theme-heading-1)))
- `(org-level-2 ((,class :inherit modus-theme-heading-2)))
- `(org-level-3 ((,class :inherit modus-theme-heading-3)))
- `(org-level-4 ((,class :inherit modus-theme-heading-4)))
- `(org-level-5 ((,class :inherit modus-theme-heading-5)))
- `(org-level-6 ((,class :inherit modus-theme-heading-6)))
- `(org-level-7 ((,class :inherit modus-theme-heading-7)))
- `(org-level-8 ((,class :inherit modus-theme-heading-8)))
- `(org-link ((,class :inherit link)))
- `(org-list-dt ((,class :inherit bold)))
- `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other)))
- `(org-meta-line ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,fg-alt)))
- `(org-mode-line-clock ((,class :foreground ,fg-main)))
- `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red)))
- `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta)))
- `(org-property-value ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,cyan-alt-other)))
- `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim)
- :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(org-scheduled ((,class :foreground ,fg-special-warm)))
- `(org-scheduled-previously ((,class :foreground ,yellow-alt-other)))
- `(org-scheduled-today ((,class :foreground ,magenta-alt-other)))
- `(org-sexp-date ((,class :inherit org-date)))
- `(org-special-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,blue-nuanced)))
- `(org-table ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :foreground ,fg-special-cold)))
- `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral))))
- `(org-tag ((,class :foreground ,magenta-nuanced)))
- `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced)))
- `(org-target ((,class :underline t)))
- `(org-time-grid ((,class :foreground ,fg-unfocused)))
- `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt)))
- `(org-upcoming-deadline ((,class :foreground ,red-alt-other)))
- `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced)))
- `(org-verbatim ((,class ,@(modus-vivendi-theme-mixed-fonts)
- :background ,bg-alt :foreground ,fg-special-calm)))
- `(org-verse ((,class :inherit org-quote)))
- `(org-warning ((,class :inherit bold :foreground ,red-alt-other)))
-;;;;; org-journal
- `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant)))
- `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant)))
- `(org-journal-highlight ((,class :foreground ,magenta-alt)))
-;;;;; org-noter
- `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active)))
- `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active)))
-;;;;; org-pomodoro
- `(org-pomodoro-mode-line ((,class :foreground ,red-active)))
- `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active)))
- `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active)))
-;;;;; org-recur
- `(org-recur ((,class :foreground ,magenta-active)))
-;;;;; org-roam
- `(org-roam-link ((,class :inherit button :foreground ,green)))
- `(org-roam-link-current ((,class :inherit button :foreground ,green-alt)))
- `(org-roam-link-invalid ((,class :inherit button :foreground ,red)))
- `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow)))
- `(org-roam-tag ((,class :foreground ,fg-alt :slant italic)))
-;;;;; org-superstar
- `(org-superstar-item ((,class :foreground ,fg-main)))
- `(org-superstar-leading ((,class :foreground ,fg-whitespace)))
-;;;;; org-table-sticky-header
- `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral)))
-;;;;; org-treescope
- `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue)))
- `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild)))
-;;;;; origami
- `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t)))
- `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt)))
-;;;;; outline-mode
- `(outline-1 ((,class :inherit modus-theme-heading-1)))
- `(outline-2 ((,class :inherit modus-theme-heading-2)))
- `(outline-3 ((,class :inherit modus-theme-heading-3)))
- `(outline-4 ((,class :inherit modus-theme-heading-4)))
- `(outline-5 ((,class :inherit modus-theme-heading-5)))
- `(outline-6 ((,class :inherit modus-theme-heading-6)))
- `(outline-7 ((,class :inherit modus-theme-heading-7)))
- `(outline-8 ((,class :inherit modus-theme-heading-8)))
-;;;;; outline-minor-faces
- `(outline-minor-0 ((,class nil)))
-;;;;; package (M-x list-packages)
- `(package-description ((,class :foreground ,fg-special-cold)))
- `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(package-name ((,class :inherit link)))
- `(package-status-avail-obso ((,class :inherit bold :foreground ,red)))
- `(package-status-available ((,class :foreground ,fg-special-mild)))
- `(package-status-built-in ((,class :foreground ,magenta)))
- `(package-status-dependency ((,class :foreground ,magenta-alt-other)))
- `(package-status-disabled ((,class :inherit modus-theme-subtle-red)))
- `(package-status-external ((,class :foreground ,cyan-alt-other)))
- `(package-status-held ((,class :foreground ,yellow-alt)))
- `(package-status-incompat ((,class :inherit bold :foreground ,yellow)))
- `(package-status-installed ((,class :foreground ,fg-special-warm)))
- `(package-status-new ((,class :inherit bold :foreground ,green)))
- `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt)))
-;;;;; page-break-lines
- `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer)))
-;;;;; paradox
- `(paradox-archive-face ((,class :foreground ,fg-special-mild)))
- `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t)))
- `(paradox-description-face ((,class :foreground ,fg-special-cold)))
- `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold)))
- `(paradox-download-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other)))
- `(paradox-highlight-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-alt-other)))
- `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t)))
- `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active)))
- `(paradox-name-face ((,class :foreground ,blue :underline t)))
- `(paradox-star-face ((,class :foreground ,magenta)))
- `(paradox-starred-face ((,class :foreground ,magenta-alt)))
-;;;;; paren-face
- `(parenthesis ((,class :foreground ,fg-unfocused)))
-;;;;; parrot
- `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta)))
-;;;;; pass
- `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main)))
- `(pass-mode-header-face ((,class :foreground ,fg-special-warm)))
-;;;;; persp-mode
- `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red)))
- `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active)))
- `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active)))
-;;;;; perspective
- `(persp-selected-face ((,class :inherit bold :foreground ,blue-active)))
-;;;;; phi-grep
- `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm)))
- `(phi-grep-match-face ((,class :inherit modus-theme-special-calm)))
- `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow)))
- `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue)))
-;;;;; phi-search
- `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta)))
- `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red)))
- `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan)))
- `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold))))
-;;;;; pkgbuild-mode
- `(pkgbuild-error-face ((,class :underline ,fg-lang-error)))
-;;;;; pomidor
- `(pomidor-break-face ((,class :foreground ,blue-alt-other)))
- `(pomidor-overwork-face ((,class :foreground ,red-alt-other)))
- `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(pomidor-work-face ((,class :foreground ,green-alt-other)))
-;;;;; powerline
- `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t)))
- `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced)))
- `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active)))
- `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive)))
- `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive)))
-;;;;; powerline-evil
- `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main)))
- `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta)))
- `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green)))
- `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue)))
- `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main)))
- `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow)))
- `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red)))
- `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan)))
-;;;;; proced
- `(proced-mark ((,class :inherit modus-theme-mark-symbol)))
- `(proced-marked ((,class :inherit modus-theme-mark-alt)))
- `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t)))
-;;;;; prodigy
- `(prodigy-green-face ((,class :foreground ,green)))
- `(prodigy-red-face ((,class :foreground ,red)))
- `(prodigy-yellow-face ((,class :foreground ,yellow)))
-;;;;; racket-mode
- `(racket-debug-break-face ((,class :inherit modus-theme-intense-red)))
- `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil)
- :foreground ,green-alt-other)))
- `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil)
- :foreground ,green)))
- `(racket-here-string-face ((,class :foreground ,blue-alt)))
- `(racket-keyword-argument-face ((,class :foreground ,red-alt)))
- `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(racket-logger-debug-face ((,class :foreground ,blue-alt-other)))
- `(racket-logger-info-face ((,class :foreground ,fg-lang-note)))
- `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant)))
- `(racket-selfeval-face ((,class :foreground ,green-alt)))
- `(racket-xp-error-face
- ((,(append '((supports :underline (:style wave))) class)
- :underline (:color ,fg-lang-error :style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; rainbow-blocks
- `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other)))
- `(rainbow-blocks-depth-2-face ((,class :foreground ,blue)))
- `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt)))
- `(rainbow-blocks-depth-4-face ((,class :foreground ,green)))
- `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta)))
- `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan)))
- `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow)))
- `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt)))
- `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt)))
- `(rainbow-blocks-unmatched-face ((,class :foreground ,red)))
-;;;;; rainbow-identifiers
- `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other)))
- `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other)))
- `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other)))
- `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other)))
- `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other)))
- `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt)))
- `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt)))
- `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt)))
- `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt)))
- `(rainbow-identifiers-identifier-10 ((,class :foreground ,green)))
- `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta)))
- `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan)))
- `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow)))
- `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt)))
- `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt)))
-;;;;; rainbow-delimiters
- `(rainbow-delimiters-base-face-error ((,class :foreground ,red)))
- `(rainbow-delimiters-base-face ((,class :foreground ,fg-main)))
- `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other)))
- `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other)))
- `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other)))
- `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other)))
- `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other)))
- `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt)))
- `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt)))
- `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt)))
- `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt)))
- `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt)))
- `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red)))
-;;;;; rcirc
- `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt)))
- `(rcirc-dim-nick ((,class :foreground ,fg-alt)))
- `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta)))
- `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other)))
- `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild)))
- `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold)))
- `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(rcirc-server ((,class :foreground ,fg-unfocused)))
- `(rcirc-timestamp ((,class :foreground ,blue-nuanced)))
- `(rcirc-url ((,class :foreground ,blue :underline t)))
-;;;;; regexp-builder (re-builder)
- `(reb-match-0 ((,class :inherit modus-theme-intense-blue)))
- `(reb-match-1 ((,class :inherit modus-theme-intense-magenta)))
- `(reb-match-2 ((,class :inherit modus-theme-intense-green)))
- `(reb-match-3 ((,class :inherit modus-theme-intense-red)))
- `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
- `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
-;;;;; rg (rg.el)
- `(rg-column-number-face ((,class :foreground ,magenta-alt-other)))
- `(rg-context-face ((,class :foreground ,fg-unfocused)))
- `(rg-error-face ((,class :inherit bold :foreground ,red)))
- `(rg-file-tag-face ((,class :foreground ,fg-special-cold)))
- `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
- `(rg-line-number-face ((,class :foreground ,fg-special-warm)))
- `(rg-literal-face ((,class :foreground ,blue-alt)))
- `(rg-match-face ((,class :inherit modus-theme-special-calm)))
- `(rg-regexp-face ((,class :foreground ,magenta-active)))
- `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive)))
- `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active)))
- `(rg-warning-face ((,class :inherit bold :foreground ,yellow)))
-;;;;; ripgrep
- `(ripgrep-context-face ((,class :foreground ,fg-unfocused)))
- `(ripgrep-error-face ((,class :inherit bold :foreground ,red)))
- `(ripgrep-hit-face ((,class :foreground ,cyan)))
- `(ripgrep-match-face ((,class :inherit modus-theme-special-calm)))
-;;;;; rmail
- `(rmail-header-name ((,class :foreground ,cyan-alt-other)))
- `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt)))
-;;;;; ruler-mode
- `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main)))
- `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active)))
- `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t)))
- `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive)))
- `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active)))
- `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active)))
- `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active)))
- `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main)))
- `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive)))
- `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active)))
-;;;;; sallet
- `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic)))
- `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced)))
- `(sallet-buffer-directory ((,class :foreground ,blue-nuanced)))
- `(sallet-buffer-help ((,class :foreground ,fg-special-cold)))
- `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic)))
- `(sallet-buffer-ordinary ((,class :foreground ,fg-main)))
- `(sallet-buffer-read-only ((,class :foreground ,yellow-alt)))
- `(sallet-buffer-size ((,class :foreground ,fg-special-calm)))
- `(sallet-buffer-special ((,class :foreground ,magenta-alt-other)))
- `(sallet-flx-match ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-cyan
- 'modus-theme-refine-cyan
- 'modus-theme-nuanced-cyan
- cyan-alt-other))))
- `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced)))
- `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild)))
- `(sallet-regexp-match ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-magenta
- 'modus-theme-refine-magenta
- 'modus-theme-nuanced-magenta
- magenta-alt-other))))
- `(sallet-source-header ((,class :inherit bold :foreground ,red-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(sallet-substring-match ((,class ,@(modus-vivendi-theme-extra-completions
- 'modus-theme-subtle-blue
- 'modus-theme-refine-blue
- 'modus-theme-nuanced-blue
- blue-alt-other))))
-;;;;; selectrum
- `(selectrum-current-candidate
- ((,class :inherit bold :foreground ,fg-main :underline ,fg-main
- :background ,@(pcase modus-vivendi-theme-completions
- ('opinionated (list bg-active))
- (_ (list bg-inactive))))))
- `(selectrum-primary-highlight ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- magenta-alt magenta-nuanced-bg
- magenta-refine-bg magenta-refine-fg))))
- `(selectrum-secondary-highlight ((,class :inherit bold
- ,@(modus-vivendi-theme-standard-completions
- cyan-alt-other cyan-nuanced-bg
- cyan-refine-bg cyan-refine-fg))))
-;;;;; semantic
- `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t)))
- `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan)))
- `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim)))
- `(semantic-highlight-edits-face ((,class :background ,bg-alt)))
- `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt)))
- `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild)))
- `(semantic-tag-boundary-face ((,class :overline ,blue-intense)))
- `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error)))
-;;;;; sesman
- `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t)))
- `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue)))
- `(sesman-buffer-face ((,class :foreground ,magenta)))
- `(sesman-directory-face ((,class :inherit bold :foreground ,blue)))
- `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other)))
-;;;;; shell-script-mode
- `(sh-heredoc ((,class :foreground ,blue-alt)))
- `(sh-quoted-exec ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt)))
-;;;;; show-paren-mode
- `(show-paren-match ((,class ,@(modus-vivendi-theme-paren bg-paren-match
- bg-paren-match-intense)
- :foreground ,fg-main)))
- `(show-paren-match-expression ((,class :inherit modus-theme-special-calm)))
- `(show-paren-mismatch ((,class :inherit modus-theme-intense-red)))
-;;;;; side-notes
- `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim)))
-;;;;; skewer-mode
- `(skewer-error-face ((,class :foreground ,red :underline t)))
-;;;;; smart-mode-line
- `(sml/charging ((,class :foreground ,green-active)))
- `(sml/discharging ((,class :foreground ,red-active)))
- `(sml/filename ((,class :inherit bold :foreground ,blue-active)))
- `(sml/folder ((,class :foreground ,fg-active)))
- `(sml/git ((,class :inherit bold :foreground ,green-active)))
- `(sml/global ((,class :foreground ,fg-active)))
- `(sml/line-number ((,class :inherit sml/global)))
- `(sml/minor-modes ((,class :inherit sml/global)))
- `(sml/modes ((,class :inherit bold :foreground ,fg-active)))
- `(sml/modified ((,class :inherit bold :foreground ,magenta-active)))
- `(sml/mule-info ((,class :inherit sml/global)))
- `(sml/name-filling ((,class :foreground ,yellow-active)))
- `(sml/not-modified ((,class :inherit sml/global)))
- `(sml/numbers-separator ((,class :inherit sml/global)))
- `(sml/outside-modified ((,class :inherit modus-theme-intense-red)))
- `(sml/position-percentage ((,class :inherit sml/global)))
- `(sml/prefix ((,class :foreground ,green-active)))
- `(sml/process ((,class :inherit sml/prefix)))
- `(sml/projectile ((,class :inherit sml/git)))
- `(sml/read-only ((,class :inherit bold :foreground ,cyan-active)))
- `(sml/remote ((,class :inherit sml/global)))
- `(sml/sudo ((,class :inherit modus-theme-subtle-red)))
- `(sml/time ((,class :inherit sml/global)))
- `(sml/vc ((,class :inherit sml/git)))
- `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; smartparens
- `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm)))
- `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild)))
- `(sp-show-pair-match-face ((,class ,@(modus-vivendi-theme-paren bg-paren-match
- bg-paren-match-intense)
- :foreground ,fg-main)))
- `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red)))
- `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face)))
- `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face)))
-;;;;; smerge
- `(smerge-base ((,class :inherit modus-theme-diff-changed)))
- `(smerge-lower ((,class :inherit modus-theme-diff-added)))
- `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
- `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added)))
- `(smerge-refined-changed ((,class)))
- `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed)))
- `(smerge-upper ((,class :inherit modus-theme-diff-removed)))
-;;;;; spaceline
- `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta)))
- `(spaceline-evil-insert ((,class :inherit modus-theme-active-green)))
- `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue)))
- `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt)))
- `(spaceline-evil-replace ((,class :inherit modus-theme-active-red)))
- `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan)))
- `(spaceline-flycheck-error ((,class :foreground ,red-active)))
- `(spaceline-flycheck-info ((,class :foreground ,cyan-active)))
- `(spaceline-flycheck-warning ((,class :foreground ,yellow-active)))
- `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue)))
- `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta)))
- `(spaceline-python-venv ((,class :foreground ,magenta-active)))
- `(spaceline-read-only ((,class :inherit modus-theme-fringe-red)))
- `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan)))
-;;;;; speedbar
- `(speedbar-button-face ((,class :inherit link)))
- `(speedbar-directory-face ((,class :inherit bold :foreground ,blue)))
- `(speedbar-file-face ((,class :foreground ,fg-main)))
- `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue)))
- `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan)))
- `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral)))
- `(speedbar-tag-face ((,class :foreground ,yellow-alt-other)))
-;;;;; spell-fu
- `(spell-fu-incorrect-face
- ((,(append '((supports :underline (:style wave))) class)
- :foreground ,fg-lang-error :underline (:style wave))
- (,class :foreground ,fg-lang-error :underline t)))
-;;;;; stripes
- `(stripes ((,class :inherit modus-theme-hl-line)))
-;;;;; success
- `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other)))
-;;;;; switch-window
- `(switch-window-background ((,class :background ,bg-dim)))
- `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense)))
-;;;;; swiper
- `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral)))
- `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan)))
- `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta)))
- `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green)))
- `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :inherit modus-theme-special-cold)))
- `(swiper-match-face-1 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-2 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-3 ((,class :inherit swiper-line-face)))
- `(swiper-match-face-4 ((,class :inherit swiper-line-face)))
-;;;;; swoop
- `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3))))
- `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt
- ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4))))
- `(swoop-face-line-number ((,class :foreground ,fg-special-warm)))
- `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue
- ,@(and (>= emacs-major-version 27) '(:extend t)))))
- `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan)))
-;;;;; sx
- `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other)))
- `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold))))
- `(sx-question-list-answers ((,class :foreground ,green)))
- `(sx-question-list-answers-accepted ((,class :box t :foreground ,green)))
- `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow)))
- `(sx-question-list-date ((,class :foreground ,fg-special-cold)))
- `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm)))
- `(sx-question-list-parent ((,class :foreground ,fg-main)))
- `(sx-question-list-read-question ((,class :foreground ,fg-alt)))
- `(sx-question-list-score ((,class :foreground ,fg-special-mild)))
- `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold))))
- `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main)))
- `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green)))
- `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil))))
- `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main)))
- `(sx-question-mode-content-face ((,class :background ,bg-dim)))
- `(sx-question-mode-date ((,class :foreground ,blue)))
- `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan)))
- `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main)))
- `(sx-question-mode-score ((,class :foreground ,fg-dim)))
- `(sx-question-mode-score-downvoted ((,class :foreground ,yellow)))
- `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta)))
- `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main)))
- `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt)))
- `(sx-tag ((,class :foreground ,magenta-alt)))
- `(sx-user-name ((,class :foreground ,blue-alt)))
- `(sx-user-reputation ((,class :foreground ,fg-alt)))
-;;;;; symbol-overlay
- `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm)))
- `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue)))
- `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta)))
- `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow)))
- `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta)))
- `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red)))
- `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red)))
- `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan)))
- `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan)))
-;;;;; syslog-mode
- `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(syslog-error ((,class :inherit bold :foreground ,red)))
- `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold)))
- `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main)))
- `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other)))
- `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other)))
- `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t)))
- `(syslog-su ((,class :inherit bold :foreground ,red-alt)))
- `(syslog-warn ((,class :inherit bold :foreground ,yellow)))
-;;;;; table (built-in table.el)
- `(table-cell ((,class :background ,blue-nuanced-bg)))
-;;;;; telephone-line
- `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive)))
- `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active)))
- `(telephone-line-error ((,class :inherit bold :foreground ,red-active)))
- `(telephone-line-evil ((,class :foreground ,fg-main)))
- `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg)))
- `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg)))
- `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg)))
- `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt)))
- `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg)))
- `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg)))
- `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg)))
- `(telephone-line-projectile ((,class :foreground ,cyan-active)))
- `(telephone-line-unimportant ((,class :foreground ,fg-inactive)))
- `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active)))
-;;;;; term
- `(term ((,class :background ,bg-main :foreground ,fg-main)))
- `(term-bold ((,class :inherit bold)))
- `(term-color-blue ((,class :background ,blue :foreground ,blue)))
- `(term-color-cyan ((,class :background ,cyan :foreground ,cyan)))
- `(term-color-green ((,class :background ,green :foreground ,green)))
- `(term-color-magenta ((,class :background ,magenta :foreground ,magenta)))
- `(term-color-red ((,class :background ,red :foreground ,red)))
- `(term-color-yellow ((,class :background ,yellow :foreground ,yellow)))
- `(term-underline ((,class :underline t)))
-;;;;; tomatinho
- `(tomatinho-ok-face ((,class :foreground ,blue-intense)))
- `(tomatinho-pause-face ((,class :foreground ,yellow-intense)))
- `(tomatinho-reset-face ((,class :foreground ,fg-alt)))
-;;;;; transient
- `(transient-active-infix ((,class :inherit modus-theme-special-mild)))
- `(transient-amaranth ((,class :inherit bold :foreground ,yellow)))
- `(transient-argument ((,class :inherit bold :foreground ,red-alt)))
- `(transient-blue ((,class :inherit bold :foreground ,blue)))
- `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red)))
- `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green)))
- `(transient-heading ((,class :inherit bold :foreground ,fg-main)))
- `(transient-inactive-argument ((,class :foreground ,fg-alt)))
- `(transient-inactive-value ((,class :foreground ,fg-alt)))
- `(transient-key ((,class :inherit bold :foreground ,blue)))
- `(transient-mismatched-key ((,class :underline t)))
- `(transient-nonstandard-key ((,class :underline t)))
- `(transient-pink ((,class :inherit bold :foreground ,magenta)))
- `(transient-red ((,class :inherit bold :foreground ,red-intense)))
- `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other)))
- `(transient-unreachable ((,class :foreground ,fg-unfocused)))
- `(transient-unreachable-key ((,class :foreground ,fg-unfocused)))
- `(transient-value ((,class :foreground ,magenta-alt)))
-;;;;; trashed
- `(trashed-deleted ((,class :inherit modus-theme-mark-del)))
- `(trashed-directory ((,class :foreground ,blue)))
- `(trashed-mark ((,class :inherit modus-theme-mark-symbol)))
- `(trashed-marked ((,class :inherit modus-theme-mark-alt)))
- `(trashed-restored ((,class :inherit modus-theme-mark-sel)))
- `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt)))
-;;;;; treemacs
- `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt)))
- `(treemacs-directory-face ((,class :inherit dired-directory)))
- `(treemacs-file-face ((,class :foreground ,fg-main)))
- `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main)))
- `(treemacs-git-added-face ((,class :foreground ,green-intense)))
- `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold))))
- `(treemacs-git-ignored-face ((,class :foreground ,fg-alt)))
- `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other)))
- `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other)))
- `(treemacs-git-unmodified-face ((,class :foreground ,fg-main)))
- `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other)))
- `(treemacs-help-column-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other :underline t)))
- `(treemacs-help-title-face ((,class :foreground ,blue-alt-other)))
- `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red)))
- `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green)))
- `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t)))
- `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow)))
- `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta)))
- `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face)))
- `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t)))
- `(treemacs-tags-face ((,class :foreground ,blue-alt)))
- `(treemacs-tags-face ((,class :foreground ,magenta-alt)))
-;;;;; tty-menu
- `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt)))
- `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main)))
- `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue)))
-;;;;; tuareg
- `(caml-types-def-face ((,class :inherit modus-theme-subtle-red)))
- `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green)))
- `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green)))
- `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue)))
- `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta)))
- `(tuareg-font-double-semicolon-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(tuareg-font-lock-attribute-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main)))
- `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold))))
- `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta)))
- `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main)))
- `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold)))
- `(tuareg-font-lock-interactive-error-face ((,class :inherit bold
- ,@(modus-vivendi-theme-syntax-foreground
- red red-faint))))
- `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(tuareg-font-lock-label-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm)))
- `(tuareg-font-lock-module-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt
- ,@(modus-vivendi-theme-syntax-foreground
- blue blue-faint))))
- `(tuareg-font-lock-operator-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(tuareg-opam-error-face ((,class :inherit bold
- ,@(modus-vivendi-theme-syntax-foreground
- red red-faint))))
- `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint)
- :slant ,modus-theme-slant)))
-;;;;; typescript
- `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant)))
- `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant)))
- `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
-;;;;; undo-tree
- `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main)))
- `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense)))
- `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt)))
- `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense)))
- `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense)))
-;;;;; vc (vc-hooks.el)
- `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant)))
- `(vc-edited-state ((,class :foreground ,yellow-active)))
- `(vc-locally-added-state ((,class :foreground ,cyan-active)))
- `(vc-locked-state ((,class :foreground ,blue-active)))
- `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant)))
- `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant)))
- `(vc-removed-state ((,class :foreground ,red-active)))
- `(vc-state-base ((,class :foreground ,fg-active)))
- `(vc-up-to-date-state ((,class :foreground ,fg-special-cold)))
-;;;;; vdiff
- `(vdiff-addition-face ((,class :inherit modus-theme-diff-added)))
- `(vdiff-change-face ((,class :inherit modus-theme-diff-changed)))
- `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
- `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
- `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
- `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed)))
- `(vdiff-target-face ((,class :inherit modus-theme-intense-blue)))
-;;;;; vimish-fold
- `(vimish-fold-fringe ((,class :foreground ,cyan-active)))
- `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue)))
- `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold)))
-;;;;; visible-mark
- `(visible-mark-active ((,class :background ,blue-intense-bg)))
- `(visible-mark-face1 ((,class :background ,cyan-intense-bg)))
- `(visible-mark-face2 ((,class :background ,yellow-intense-bg)))
- `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg)))
- `(visible-mark-forward-face2 ((,class :background ,green-intense-bg)))
-;;;;; visual-regexp
- `(vr/group-0 ((,class :inherit modus-theme-intense-blue)))
- `(vr/group-1 ((,class :inherit modus-theme-intense-magenta)))
- `(vr/group-2 ((,class :inherit modus-theme-intense-green)))
- `(vr/match-0 ((,class :inherit modus-theme-refine-yellow)))
- `(vr/match-1 ((,class :inherit modus-theme-refine-yellow)))
- `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold))))
-;;;;; volatile-highlights
- `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
- :background ,bg-alt :foreground ,blue-nuanced)))
-;;;;; vterm
- `(vterm-color-black ((,class :background "gray35" :foreground "gray35")))
- `(vterm-color-blue ((,class :background ,blue :foreground ,blue)))
- `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan)))
- `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main)))
- `(vterm-color-green ((,class :background ,green :foreground ,green)))
- `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t)))
- `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta)))
- `(vterm-color-red ((,class :background ,red :foreground ,red)))
- `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t)))
- `(vterm-color-white ((,class :background "gray65" :foreground "gray65")))
- `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow)))
-;;;;; wcheck-mode
- `(wcheck-default-face ((,class :foreground ,red :underline t)))
-;;;;; web-mode
- `(web-mode-annotation-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t)))
- `(web-mode-block-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue blue-faint))))
- `(web-mode-block-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-block-control-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-block-delimiter-face ((,class :foreground ,fg-main)))
- `(web-mode-block-face ((,class :background ,bg-dim)))
- `(web-mode-block-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-bold-face ((,class :inherit bold)))
- `(web-mode-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant)))
- `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim
- ,@(modus-vivendi-theme-syntax-foreground
- yellow yellow-faint))))
- `(web-mode-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-css-at-rule-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-css-color-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-css-function-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-css-priority-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- yellow-alt yellow-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-css-property-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-css-pseudo-class-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(web-mode-css-selector-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-css-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm)))
- `(web-mode-current-column-highlight-face ((,class :background ,bg-alt)))
- `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild)))
- `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant)))
- `(web-mode-error-face ((,class :inherit modus-theme-intense-red)))
- `(web-mode-filter-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-folded-face ((,class :underline t)))
- `(web-mode-function-call-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-attr-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main)))
- `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main)))
- `(web-mode-html-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-html-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-html-entity-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- yellow-alt-other yellow-alt-other-faint)
- :slant ,modus-theme-slant)))
- `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim)))
- `(web-mode-html-tag-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-tag-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-html-tag-namespaced-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-html-tag-unclosed-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- red red-faint)
- :underline t)))
- `(web-mode-inlay-face ((,class :background ,bg-alt)))
- `(web-mode-italic-face ((,class :slant italic)))
- `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-json-context-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(web-mode-json-key-face ((,class :foreground ,blue-nuanced)))
- `(web-mode-json-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main)))
- `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
- `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
- `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg)))
- `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced)))
- `(web-mode-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt-other magenta-alt-other-faint)
- ,@(modus-vivendi-theme-bold-weight))))
- `(web-mode-param-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta magenta-faint))))
- `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face)))
- `(web-mode-part-face ((,class :inherit web-mode-block-face)))
- `(web-mode-part-string-face ((,class :inherit web-mode-string-face)))
- `(web-mode-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(web-mode-script-face ((,class :inherit web-mode-part-face)))
- `(web-mode-sql-keyword-face ((,class :inherit bold
- ,@(modus-vivendi-theme-syntax-foreground
- yellow yellow-faint))))
- `(web-mode-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt blue-alt-faint))))
- `(web-mode-style-face ((,class :inherit web-mode-part-face)))
- `(web-mode-symbol-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- blue-alt-other blue-alt-other-faint))))
- `(web-mode-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- magenta-alt magenta-alt-faint))))
- `(web-mode-underline-face ((,class :underline t)))
- `(web-mode-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan cyan-faint))))
- `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt
- ,@(modus-vivendi-theme-syntax-foreground
- yellow-alt-other yellow-alt-other-faint))))
- `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
-;;;;; wgrep
- `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow)))
- `(wgrep-done-face ((,class :inherit modus-theme-refine-blue)))
- `(wgrep-face ((,class :inherit modus-theme-refine-green)))
- `(wgrep-file-face ((,class :foreground ,fg-special-warm)))
- `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold))))
-;;;;; which-function-mode
- `(which-func ((,class :foreground ,magenta-active)))
-;;;;; which-key
- `(which-key-command-description-face ((,class :foreground ,cyan)))
- `(which-key-group-description-face ((,class :foreground ,magenta-alt)))
- `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t)))
- `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense)))
- `(which-key-local-map-description-face ((,class :foreground ,fg-main)))
- `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
- `(which-key-separator-face ((,class :foreground ,fg-alt)))
- `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense)))
-;;;;; whitespace-mode
- `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red)))
- `(whitespace-empty ((,class :inherit modus-theme-intense-magenta)))
- `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-line ((,class :inherit modus-theme-special-warm)))
- `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta)))
- `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan)))
- `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
- `(whitespace-trailing ((,class :inherit modus-theme-intense-red)))
-;;;;; window-divider-mode
- `(window-divider ((,class :foreground ,fg-window-divider-inner)))
- `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer)))
- `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer)))
-;;;;; winum
- `(winum-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active)))
-;;;;; writegood-mode
- `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
- `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning)))
- `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error)))
-;;;;; woman
- `(woman-addition ((,class :foreground ,magenta-alt-other)))
- `(woman-bold ((,class :inherit bold :foreground ,magenta)))
- `(woman-italic ((,class :foreground ,cyan :slant italic)))
- `(woman-unknown ((,class :foreground ,yellow :slant italic)))
-;;;;; xah-elisp-mode
- `(xah-elisp-at-symbol ((,class :inherit bold
- ,@(modus-vivendi-theme-syntax-foreground
- red-alt red-alt-faint))))
- `(xah-elisp-cap-variable ((,class ,@(modus-vivendi-theme-syntax-foreground
- red-alt-other red-alt-other-faint))))
- `(xah-elisp-command-face ((,class ,@(modus-vivendi-theme-syntax-foreground
- cyan-alt-other cyan-alt-other-faint))))
- `(xah-elisp-dollar-symbol ((,class ,@(modus-vivendi-theme-syntax-foreground
- green green-faint))))
-;;;;; xref
- `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold)))
- `(xref-line-number ((,class :foreground ,fg-alt)))
- `(xref-match ((,class :inherit match)))
-;;;;; yaml-mode
- `(yaml-tab-face ((,class :inherit modus-theme-intense-red)))
-;;;;; yasnippet
- `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main)))
-;;;;; ztree
- `(ztreep-arrow-face ((,class :foreground ,fg-inactive)))
- `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
- `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild)))
- `(ztreep-diff-model-add-face ((,class :foreground ,green)))
- `(ztreep-diff-model-diff-face ((,class :foreground ,red)))
- `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t)))
- `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt)))
- `(ztreep-expand-sign-face ((,class :foreground ,blue)))
- `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
- `(ztreep-leaf-face ((,class :foreground ,cyan)))
- `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm)))
- `(ztreep-node-face ((,class :foreground ,fg-main))))
-;;;; Emacs 27+
- (when (>= emacs-major-version 27)
- (custom-theme-set-faces
- 'modus-vivendi
-;;;;; line numbers (`display-line-numbers-mode' and global variant)
- ;; NOTE that this is specifically for the faces that were
- ;; introduced in Emacs 27, as the other faces are already
- ;; supported.
- `(line-number-major-tick ((,class :inherit (bold default)
- :background ,yellow-nuanced-bg
- :foreground ,yellow-nuanced)))
- `(line-number-minor-tick ((,class :inherit (bold default)
- :background ,bg-inactive
- :foreground ,fg-inactive)))
-;;;;; tab-bar-mode
- `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main)))
- `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
- :background ,bg-tab-active :foreground ,fg-main)))
- `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
- :background ,bg-tab-inactive :foreground ,fg-dim)))
-;;;;; tab-line-mode
- `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main)))
- `(tab-line-close-highlight ((,class :foreground ,red)))
- `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
- `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
- :background ,bg-tab-active :foreground ,fg-main)))
- `(tab-line-tab-current ((,class :inherit tab-line-tab)))
- `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
- :background ,bg-tab-inactive :foreground ,fg-dim)))))
-;;;; Emacs 28+
- (when (>= emacs-major-version 28)
- (custom-theme-set-faces
- 'modus-vivendi
-;;;;; isearch regexp groups
- `(isearch-group-1 ((,class :inherit modus-theme-intense-blue)))
- `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta)))))
-;;; variables
- (custom-theme-set-variables
- 'modus-vivendi
-;;;; ansi-colors
- `(ansi-color-faces-vector [default bold shadow italic underline success warning error])
- `(ansi-color-names-vector [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-main])
-;;;; awesome-tray
- `(awesome-tray-mode-line-active-color ,blue)
- `(awesome-tray-mode-line-inactive-color ,bg-active)
-;;;; flymake fringe indicators
- `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red))
- `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow))
- `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan))
-;;;; ibuffer
- `(ibuffer-deletion-face 'modus-theme-mark-del)
- `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol)
- `(ibuffer-marked-face 'modus-theme-mark-sel)
- `(ibuffer-title-face 'modus-theme-pseudo-header)
-;;;; highlight-tail
- `(highlight-tail-colors
- '((,green-subtle-bg . 0)
- (,cyan-subtle-bg . 20)))
-;;;; hl-todo
- `(hl-todo-keyword-faces
- '(("HOLD" . ,yellow-alt)
- ("TODO" . ,magenta)
- ("NEXT" . ,magenta-alt-other)
- ("THEM" . ,magenta-alt)
- ("PROG" . ,cyan)
- ("OKAY" . ,cyan-alt)
- ("DONT" . ,green-alt)
- ("FAIL" . ,red)
- ("BUG" . ,red)
- ("DONE" . ,green)
- ("NOTE" . ,yellow-alt-other)
- ("KLUDGE" . ,yellow)
- ("HACK" . ,yellow)
- ("TEMP" . ,red-nuanced)
- ("FIXME" . ,red-alt-other)
- ("XXX+" . ,red-alt)
- ("REVIEW" . ,cyan-alt-other)
- ("DEPRECATED" . ,blue-nuanced)))
-;;;; vc-annotate (C-x v g)
- `(vc-annotate-background nil)
- `(vc-annotate-background-mode nil)
- `(vc-annotate-color-map
- '((20 . ,red)
- (40 . ,magenta)
- (60 . ,magenta-alt)
- (80 . ,red-alt)
- (100 . ,yellow)
- (120 . ,yellow-alt)
- (140 . ,fg-special-warm)
- (160 . ,fg-special-mild)
- (180 . ,green)
- (200 . ,green-alt)
- (220 . ,cyan-alt-other)
- (240 . ,cyan-alt)
- (260 . ,cyan)
- (280 . ,fg-special-cold)
- (300 . ,blue)
- (320 . ,blue-alt)
- (340 . ,blue-alt-other)
- (360 . ,magenta-alt-other)))
- `(vc-annotate-very-old-color nil)
-;;;; xterm-color
- `(xterm-color-names [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-alt])
- `(xterm-color-names-bright [,bg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,fg-main]))
-;;; Conditional theme variables
-;;;; org-src-block-faces
- ;; this is a user option to add a colour-coded background to source
- ;; blocks for various programming languages
- (when (eq modus-vivendi-theme-org-blocks 'rainbow)
- (custom-theme-set-variables
- 'modus-vivendi
- `(org-src-block-faces ; TODO this list should be expanded
- `(("emacs-lisp" modus-theme-nuanced-magenta)
- ("elisp" modus-theme-nuanced-magenta)
- ("clojure" modus-theme-nuanced-magenta)
- ("clojurescript" modus-theme-nuanced-magenta)
- ("c" modus-theme-nuanced-blue)
- ("c++" modus-theme-nuanced-blue)
- ("sh" modus-theme-nuanced-green)
- ("shell" modus-theme-nuanced-green)
- ("html" modus-theme-nuanced-yellow)
- ("xml" modus-theme-nuanced-yellow)
- ("css" modus-theme-nuanced-red)
- ("scss" modus-theme-nuanced-red)
- ("python" modus-theme-nuanced-green)
- ("ipython" modus-theme-nuanced-magenta)
- ("r" modus-theme-nuanced-cyan)
- ("yaml" modus-theme-nuanced-cyan)
- ("conf" modus-theme-nuanced-cyan)
- ("docker" modus-theme-nuanced-cyan)
- ("json" modus-theme-nuanced-cyan))))))
-
-;;; library provides
-;;;###autoload
-(when load-file-name
- (add-to-list 'custom-theme-load-path
- (file-name-as-directory (file-name-directory load-file-name))))
-
-(provide-theme 'modus-vivendi)
-
-(provide 'modus-vivendi-theme)
-
-;;; modus-vivendi-theme.el ends here
diff --git a/lisp/modus-themes/modus-operandi-theme.el b/lisp/modus-themes/modus-operandi-theme.el
new file mode 100644
index 0000000000..7de2f15602
--- /dev/null
+++ b/lisp/modus-themes/modus-operandi-theme.el
@@ -0,0 +1,75 @@
+;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*-
+
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; URL: https://gitlab.com/protesilaos/modus-themes
+;; Version: 1.0.2
+;; Package-Requires: ((emacs "26.1"))
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or (at
+;; your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Modus Operandi is the light variant of the Modus themes (Modus
+;; Vivendi is the dark one). The themes are designed for color-contrast
+;; accessibility. More specifically:
+;;
+;; 1. Provide a consistent minimum contrast ratio between background
+;; and foreground values of 7:1 or higher. This meets the highest
+;; such accessibility criterion per the guidelines of the Worldwide
+;; Web Consortium's Working Group on Accessibility (WCAG AAA
+;; standard).
+;;
+;; 2. Offer as close to full face coverage as possible. The list is
+;; already quite long, with more additions to follow as part of the
+;; ongoing development process.
+;;
+;; For a complete view of the project, also refer to the following files
+;; (should be distributed in the same repository/directory as the
+;; current item):
+;;
+;; - modus-themes.el (Main code shared between the themes)
+;; - modus-themes-core.el (Code used to produce the themes)
+;; - modus-vivendi-theme.el (Dark theme)
+
+;;; Code:
+
+\f
+
+(require 'modus-themes)
+(eval-when-compile
+ (require 'modus-themes-core))
+
+(deftheme modus-operandi
+ "Light theme that conforms with the highest accessibility
+ standard for color contrast between background and foreground
+ elements (WCAG AAA).")
+
+(modus-themes-core-theme
+ 'modus-operandi)
+
+;;;###autoload
+(when (and (boundp 'custom-theme-load-path) load-file-name)
+ (add-to-list 'custom-theme-load-path
+ (file-name-as-directory (file-name-directory load-file-name))))
+
+(provide-theme 'modus-operandi)
+
+(provide 'modus-operandi-theme)
+
+;;; modus-operandi-theme.el ends here
diff --git a/lisp/modus-themes/modus-themes-core.el b/lisp/modus-themes/modus-themes-core.el
new file mode 100644
index 0000000000..88279cf75a
--- /dev/null
+++ b/lisp/modus-themes/modus-themes-core.el
@@ -0,0 +1,80 @@
+;;; modus-themes-core.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*-
+
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; URL: https://gitlab.com/protesilaos/modus-themes
+;; Version: 1.0.2
+;; Package-Requires: ((emacs "26.1"))
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or (at
+;; your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <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).
+;; This file contains all customisation options, helper functions,
+;; interactive commands, and face specifications.
+;;
+;; For a complete view of the project, also refer to the following files
+;; (should be distributed in the same repository/directory as the
+;; current item):
+;;
+;; - modus-themes.el (Main code shared between the themes)
+;; - modus-operandi-theme.el (Light theme)
+;; - modus-vivendi-theme.el (Dark theme)
+
+;;; Code:
+
+\f
+
+(defvar modus-themes-colors-operandi)
+(defvar modus-themes-colors-vivendi)
+(defvar modus-themes-faces)
+(defvar modus-themes-custom-variables)
+
+(defun modus-themes-core-theme-variables (name)
+ "Return correct variable for Modus theme NAME."
+ (pcase name
+ (''modus-operandi modus-themes-colors-operandi)
+ (''modus-vivendi modus-themes-colors-vivendi)
+ (_ (user-error "<< %s >> is not a valid Modus theme" name))))
+
+(defmacro modus-themes-core-theme (name)
+ "Bind NAME's color palette around face specifications.
+
+NAME should be the proper name of a Modus theme, either
+'modus-operandi or 'modus-vivendi.
+
+Face specifications are those passed to `custom-theme-set-faces'.
+They are extracted directly from variables defined in the
+`modus-themes' library. For example, `modus-themes-faces'."
+ (let ((faces modus-themes-faces)
+ (cus modus-themes-custom-variables))
+ `(let ((class '((class color) (min-colors 89)))
+ ,@(mapcar (lambda (cons)
+ `(,(car cons) ,(cdr cons)))
+ (modus-themes-core-theme-variables name)))
+ (custom-theme-set-faces
+ ,name
+ ,@faces)
+ (custom-theme-set-variables
+ ,name
+ ,@cus))))
+
+(provide 'modus-themes-core)
+;;; modus-themes-core.el ends here
diff --git a/lisp/modus-themes/modus-themes.el b/lisp/modus-themes/modus-themes.el
new file mode 100644
index 0000000000..3d8b9c7f7a
--- /dev/null
+++ b/lisp/modus-themes/modus-themes.el
@@ -0,0 +1,5182 @@
+;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*-
+
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; URL: https://gitlab.com/protesilaos/modus-themes
+;; Version: 1.0.2
+;; Package-Requires: ((emacs "26.1"))
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or (at
+;; your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <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).
+;; This file contains all customisation options, helper functions,
+;; interactive commands, and face specifications. Please refer to the
+;; official Info manual for further documentation (distributed with the
+;; themes, or available at: <https://protesilaos.com/modus-themes>).
+;;
+;; The themes share the following customization options, all of which
+;; are disabled by default (nil):
+;;
+;; modus-themes-slanted-constructs (boolean)
+;; modus-themes-bold-constructs (boolean)
+;; modus-themes-variable-pitch-headings (boolean)
+;; modus-themes-no-mixed-fonts (boolean)
+;; modus-themes-headings (alist)
+;; modus-themes-scale-headings (boolean)
+;; modus-themes-fringes (choice)
+;; modus-themes-org-blocks (choice)
+;; modus-themes-prompts (choice)
+;; modus-themes-mode-line (choice)
+;; modus-themes-diffs (choice)
+;; modus-themes-syntax (choice)
+;; modus-themes-intense-hl-line (boolean)
+;; modus-themes-paren-match (choice)
+;; modus-themes-region (choice)
+;; modus-themes-links (choice)
+;; modus-themes-completions (choice)
+;;
+;; The default scale for headings is as follows (it can be customized as
+;; well---remember, no scaling takes place by default):
+;;
+;; modus-themes-scale-1 1.05
+;; modus-themes-scale-2 1.1
+;; modus-themes-scale-3 1.15
+;; modus-themes-scale-4 1.2
+;; modus-themes-scale-5 1.3
+;;
+;; Below is the list of explicitly supported packages or face groups
+;; (there are implicitly supported packages as well, which inherit from
+;; font-lock or some basic group). You are encouraged to report of any
+;; missing package or change you would like to see.
+;;
+;; ace-window
+;; ag
+;; alert
+;; all-the-icons
+;; annotate
+;; anzu
+;; apropos
+;; apt-sources-list
+;; artbollocks-mode
+;; auctex and TeX
+;; auto-dim-other-buffers
+;; avy
+;; awesome-tray
+;; binder
+;; bm
+;; bongo
+;; boon
+;; breakpoint (provided by built-in gdb-mi.el)
+;; buffer-expose
+;; calendar and diary
+;; calfw
+;; centaur-tabs
+;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
+;; cider
+;; circe
+;; color-rg
+;; column-enforce-mode
+;; company-mode
+;; company-posframe
+;; compilation-mode
+;; completions
+;; consult
+;; counsel
+;; counsel-css
+;; counsel-notmuch
+;; counsel-org-capture-string
+;; cov
+;; cperl-mode
+;; csv-mode
+;; ctrlf
+;; custom (M-x customize)
+;; dap-mode
+;; dashboard (emacs-dashboard)
+;; deadgrep
+;; debbugs
+;; define-word
+;; deft
+;; dictionary
+;; diff-hl
+;; diff-mode
+;; dim-autoload
+;; dir-treeview
+;; dired
+;; dired-async
+;; dired-git
+;; dired-git-info
+;; dired-narrow
+;; dired-subtree
+;; diredfl
+;; disk-usage
+;; doom-modeline
+;; dynamic-ruler
+;; easy-jekyll
+;; easy-kill
+;; ebdb
+;; ediff
+;; eglot
+;; el-search
+;; eldoc
+;; eldoc-box
+;; elfeed
+;; elfeed-score
+;; emms
+;; enhanced-ruby-mode
+;; epa
+;; equake
+;; erc
+;; eros
+;; ert
+;; eshell
+;; eshell-fringe-status
+;; eshell-git-prompt
+;; eshell-prompt-extras (epe)
+;; eshell-syntax-highlighting
+;; evil (evil-mode)
+;; evil-goggles
+;; evil-visual-mark-mode
+;; eww
+;; eyebrowse
+;; fancy-dabbrev
+;; flycheck
+;; flycheck-color-mode-line
+;; flycheck-indicator
+;; flycheck-posframe
+;; flymake
+;; flyspell
+;; flyspell-correct
+;; flx
+;; freeze-it
+;; frog-menu
+;; focus
+;; fold-this
+;; font-lock (generic syntax highlighting)
+;; forge
+;; fountain (fountain-mode)
+;; geiser
+;; git-commit
+;; git-gutter (and variants)
+;; git-lens
+;; git-rebase
+;; git-timemachine
+;; git-walktree
+;; gnus
+;; golden-ratio-scroll-screen
+;; helm
+;; helm-ls-git
+;; helm-switch-shell
+;; helm-xref
+;; helpful
+;; highlight-blocks
+;; highlight-defined
+;; highlight-escape-sequences (`hes-mode')
+;; highlight-indentation
+;; highlight-numbers
+;; highlight-symbol
+;; highlight-tail
+;; highlight-thing
+;; hl-defined
+;; hl-fill-column
+;; hl-line-mode
+;; hl-todo
+;; hydra
+;; hyperlist
+;; ibuffer
+;; icomplete
+;; ido-mode
+;; iedit
+;; iflipb
+;; imenu-list
+;; indium
+;; info
+;; info-colors
+;; interaction-log
+;; ioccur
+;; isearch, occur, etc.
+;; ivy
+;; ivy-posframe
+;; jira (org-jira)
+;; journalctl-mode
+;; js2-mode
+;; julia
+;; jupyter
+;; kaocha-runner
+;; keycast
+;; line numbers (`display-line-numbers-mode' and global variant)
+;; lsp-mode
+;; lsp-ui
+;; macrostep
+;; magit
+;; magit-imerge
+;; make-mode
+;; man
+;; markdown-mode
+;; markup-faces (`adoc-mode')
+;; mentor
+;; messages
+;; minibuffer-line
+;; minimap
+;; modeline
+;; mood-line
+;; mpdel
+;; mu4e
+;; mu4e-conversation
+;; multiple-cursors
+;; neotree
+;; no-emoji
+;; notmuch
+;; num3-mode
+;; nxml-mode
+;; objed
+;; orderless
+;; org
+;; org-journal
+;; org-noter
+;; org-pomodoro
+;; org-recur
+;; org-roam
+;; org-superstar
+;; org-table-sticky-header
+;; org-treescope
+;; origami
+;; outline-mode
+;; outline-minor-faces
+;; package (M-x list-packages)
+;; page-break-lines
+;; paradox
+;; paren-face
+;; parrot
+;; pass
+;; pdf-tools
+;; persp-mode
+;; perspective
+;; phi-grep
+;; phi-search
+;; pkgbuild-mode
+;; pomidor
+;; popup
+;; powerline
+;; powerline-evil
+;; proced
+;; prodigy
+;; racket-mode
+;; rainbow-blocks
+;; rainbow-identifiers
+;; rainbow-delimiters
+;; rcirc
+;; regexp-builder (also known as `re-builder')
+;; rg
+;; ripgrep
+;; rmail
+;; ruler-mode
+;; sallet
+;; selectrum
+;; semantic
+;; sesman
+;; shell-script-mode
+;; show-paren-mode
+;; shr
+;; side-notes
+;; sieve-mode
+;; skewer-mode
+;; smart-mode-line
+;; smartparens
+;; smerge
+;; spaceline
+;; speedbar
+;; spell-fu
+;; stripes
+;; suggest
+;; switch-window
+;; swiper
+;; swoop
+;; sx
+;; symbol-overlay
+;; tab-bar-mode
+;; tab-line-mode
+;; syslog-mode
+;; table (built-in table.el)
+;; telephone-line
+;; term
+;; tomatinho
+;; transient (pop-up windows like Magit's)
+;; trashed
+;; treemacs
+;; tty-menu
+;; tuareg
+;; typescript
+;; undo-tree
+;; vc (built-in mode line status for version control)
+;; vc-annotate (C-x v g)
+;; vdiff
+;; vimish-fold
+;; visible-mark
+;; visual-regexp
+;; volatile-highlights
+;; vterm
+;; wcheck-mode
+;; web-mode
+;; wgrep
+;; which-function-mode
+;; which-key
+;; whitespace-mode
+;; window-divider-mode
+;; winum
+;; writegood-mode
+;; woman
+;; xah-elisp-mode
+;; xref
+;; xterm-color (and ansi-colors)
+;; yaml-mode
+;; yasnippet
+;; ztree
+;;
+;; For a complete view of the project, also refer to the following files
+;; (should be distributed in the same repository/directory as the
+;; current item):
+;;
+;; - modus-themes-core.el (Code used to produce the themes)
+;; - modus-operandi-theme.el (Light theme)
+;; - modus-vivendi-theme.el (Dark theme)
+
+;;; Code:
+
+\f
+
+(require 'cl-lib)
+
+;;; Custom faces
+
+(defgroup modus-theme ()
+ "Custom faces for the Modus themes."
+ :group 'faces
+ :prefix "modus-theme-"
+ :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes")
+ :tag "Modus Operandi")
+
+(defface modus-theme-subtle-red nil nil)
+(defface modus-theme-subtle-green nil nil)
+(defface modus-theme-subtle-yellow nil nil)
+(defface modus-theme-subtle-blue nil nil)
+(defface modus-theme-subtle-magenta nil nil)
+(defface modus-theme-subtle-cyan nil nil)
+(defface modus-theme-subtle-neutral nil nil)
+(defface modus-theme-intense-red nil nil)
+(defface modus-theme-intense-green nil nil)
+(defface modus-theme-intense-yellow nil nil)
+(defface modus-theme-intense-blue nil nil)
+(defface modus-theme-intense-magenta nil nil)
+(defface modus-theme-intense-cyan nil nil)
+(defface modus-theme-intense-neutral nil nil)
+(defface modus-theme-refine-red nil nil)
+(defface modus-theme-refine-green nil nil)
+(defface modus-theme-refine-yellow nil nil)
+(defface modus-theme-refine-blue nil nil)
+(defface modus-theme-refine-magenta nil nil)
+(defface modus-theme-refine-cyan nil nil)
+(defface modus-theme-active-red nil nil)
+(defface modus-theme-active-green nil nil)
+(defface modus-theme-active-yellow nil nil)
+(defface modus-theme-active-blue nil nil)
+(defface modus-theme-active-magenta nil nil)
+(defface modus-theme-active-cyan nil nil)
+(defface modus-theme-fringe-red nil nil)
+(defface modus-theme-fringe-green nil nil)
+(defface modus-theme-fringe-yellow nil nil)
+(defface modus-theme-fringe-blue nil nil)
+(defface modus-theme-fringe-magenta nil nil)
+(defface modus-theme-fringe-cyan nil nil)
+(defface modus-theme-nuanced-red nil nil)
+(defface modus-theme-nuanced-green nil nil)
+(defface modus-theme-nuanced-yellow nil nil)
+(defface modus-theme-nuanced-blue nil nil)
+(defface modus-theme-nuanced-magenta nil nil)
+(defface modus-theme-nuanced-cyan nil nil)
+(defface modus-theme-special-cold nil nil)
+(defface modus-theme-special-mild nil nil)
+(defface modus-theme-special-warm nil nil)
+(defface modus-theme-special-calm nil nil)
+(defface modus-theme-diff-added nil nil)
+(defface modus-theme-diff-changed nil nil)
+(defface modus-theme-diff-removed nil nil)
+(defface modus-theme-diff-refine-added nil nil)
+(defface modus-theme-diff-refine-changed nil nil)
+(defface modus-theme-diff-refine-removed nil nil)
+(defface modus-theme-diff-focus-added nil nil)
+(defface modus-theme-diff-focus-changed nil nil)
+(defface modus-theme-diff-focus-removed nil nil)
+(defface modus-theme-diff-heading nil nil)
+(defface modus-theme-pseudo-header nil nil)
+(defface modus-theme-mark-alt nil nil)
+(defface modus-theme-mark-del nil nil)
+(defface modus-theme-mark-sel nil nil)
+(defface modus-theme-mark-symbol nil nil)
+(defface modus-theme-heading-1 nil nil)
+(defface modus-theme-heading-2 nil nil)
+(defface modus-theme-heading-3 nil nil)
+(defface modus-theme-heading-4 nil nil)
+(defface modus-theme-heading-5 nil nil)
+(defface modus-theme-heading-6 nil nil)
+(defface modus-theme-heading-7 nil nil)
+(defface modus-theme-heading-8 nil nil)
+(defface modus-theme-hl-line nil nil)
+(defface modus-theme-bold nil nil)
+(defface modus-theme-slant nil nil)
+(defface modus-theme-variable-pitch nil nil)
+
+\f
+
+;;; Customization options
+
+;;;; Current customisation options (>= 1.0.0)
+
+(defcustom modus-themes-slanted-constructs nil
+ "Use slanted text in more code constructs (italics or oblique)."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-bold-constructs nil
+ "Use bold text in more code constructs."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-variable-pitch-headings nil
+ "Use proportional fonts (variable-pitch) in headings."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-no-mixed-fonts nil
+ "Disable inheritance from `fixed-pitch' in some faces.
+
+This is done by default 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'.
+The downside with the default is that users need to explicitly
+configure the font family of `fixed-pitch' in order to get a
+consistent experience. That may be something they do not want to
+do. Hence this option to disable any kind of technique for
+mixing fonts."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-headings
+ '((t . nil))
+ "Alist of styles for headings, with optional value per level.
+
+To control faces per level from 1-8, use something like this:
+
+ (setq modus-themes-headings
+ '((1 . highlight)
+ (2 . line)
+ (t . rainbow-line-no-bold)))
+
+To set a uniform value for all heading levels, use this pattern:
+
+ (setq modus-themes-headings
+ '((t . rainbow-line-no-bold)))
+
+The default uses a fairly desaturated foreground value in
+combination with a bold typographic weight. To specify this
+style for a given level N (assuming you wish to have another
+fallback option), just specify the value t like this:
+
+ (setq modus-themes-headings
+ '((1 . t)
+ (2 . line)
+ (t . rainbow-line-no-bold)))
+
+A description of all possible values:
+
++ `no-bold' retains the default text color while removing the
+ typographic weight.
+
++ `line' is the same as the default plus an overline over the
+ heading.
+
++ `line-no-bold' is the same as `line' without bold weight.
+
++ `rainbow' uses a more colorful foreground in combination with
+ bold weight.
+
++ `rainbow-line' is the same as `rainbow' plus an overline.
+
++ `rainbow-line-no-bold' is the same as `rainbow-line' without
+ the bold weight.
+
++ `highlight' retains the default style of a fairly desaturated
+ foreground combined with a bold weight and add to it a subtle
+ accented background.
+
++ `highlight-no-bold' is the same as `highlight' without a bold
+ weight.
+
++ `rainbow-highlight' is the same as `highlight' but with a more
+ colorful foreground.
+
++ `rainbow-highlight-no-bold' is the same as `rainbow-highlight'
+ without a bold weight.
+
++ `section' retains the default looks and adds to them both an
+ overline and a slightly accented background. It is, in effect,
+ a combination of the `line' and `highlight' values.
+
++ `section-no-bold' is the same as `section' without a bold
+ weight.
+
++ `rainbow-section' is the same as `section' but with a more
+ colorful foreground.
+
++ `rainbow-section-no-bold' is the same as `rainbow-section'
+ without a bold weight."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type
+ '(alist
+ :key-type symbol
+ :value-type
+ (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t)
+ (const :tag "Like the default without bold weight" no-bold)
+ (const :tag "Like the default plus overline" line)
+ (const :tag "Like `line' without bold weight" line-no-bold)
+ (const :tag "Like the default but with more colorful foreground" rainbow)
+ (const :tag "Like `rainbow' plus overline" rainbow-line)
+ (const :tag "Like `rainbow' without bold weight" rainbow-no-bold)
+ (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold)
+ (const :tag "Like the default plus subtle background" highlight)
+ (const :tag "Like `highlight' without bold weight" highlight-no-bold)
+ (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight)
+ (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold)
+ (const :tag "Like `highlight' plus overline" section)
+ (const :tag "Like `section' without bold weight" section-no-bold)
+ (const :tag "Like `section' with more colorful foreground" rainbow-section)
+ (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold))))
+
+(defcustom modus-themes-scale-headings nil
+ "Use font scaling for headings."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-scale-1 1.05
+ "Font size that is slightly larger than the base value.
+The default is a floating point that is interpreted as a multiple
+of the base font size. However, the variable also accepts an
+integer, understood as an absolute height (e.g. a value of 140 is
+the same as setting the font at 14 point size).
+
+For more on the matter, read the documentation of
+`set-face-attribute', specifically the ':height' section."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'number)
+
+(defcustom modus-themes-scale-2 1.1
+ "Font size slightly larger than `modus-themes-scale-1'.
+The default is a floating point that is interpreted as a multiple
+of the base font size. However, the variable also accepts an
+integer, understood as an absolute height (e.g. a value of 140 is
+the same as setting the font at 14 point size).
+
+For more on the matter, read the documentation of
+`set-face-attribute', specifically the ':height' section."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'number)
+
+(defcustom modus-themes-scale-3 1.15
+ "Font size slightly larger than `modus-themes-scale-2'.
+The default is a floating point that is interpreted as a multiple
+of the base font size. However, the variable also accepts an
+integer, understood as an absolute height (e.g. a value of 140 is
+the same as setting the font at 14 point size).
+
+For more on the matter, read the documentation of
+`set-face-attribute', specifically the ':height' section."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'number)
+
+(defcustom modus-themes-scale-4 1.2
+ "Font size slightly larger than `modus-themes-scale-3'.
+The default is a floating point that is interpreted as a multiple
+of the base font size. However, the variable also accepts an
+integer, understood as an absolute height (e.g. a value of 140 is
+the same as setting the font at 14 point size).
+
+For more on the matter, read the documentation of
+`set-face-attribute', specifically the ':height' section."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'number)
+
+(defcustom modus-themes-scale-5 1.3
+ "Font size slightly larger than `modus-themes-scale-4'.
+The default is a floating point that is interpreted as a multiple
+of the base font size. However, the variable also accepts an
+integer, understood as an absolute height (e.g. a value of 140 is
+the same as setting the font at 14 point size).
+
+For more on the matter, read the documentation of
+`set-face-attribute', specifically the ':height' section."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'number)
+
+(defcustom modus-themes-fringes nil
+ "Define the visibility of fringes.
+
+Nil means the fringes have no background color. Option `subtle'
+will apply a greyscale value that is visible yet close to the
+main buffer background color. Option `intense' will use a more
+pronounced greyscale value."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "No visible fringes (default)" nil)
+ (const :tag "Subtle greyscale background" subtle)
+ (const :tag "Intense greyscale background" intense)))
+
+(defcustom modus-themes-org-blocks nil
+ "Use a subtle gray or color-coded background for Org blocks.
+
+Nil means that the block will have no background of its own and
+will use the default that applies to the rest of the buffer.
+
+Option `grayscale' (or `greyscale') will apply a subtle neutral
+gray background to the block's contents. It also affects the
+begin and end lines of the block: their background will be
+extended to the edge of the window for Emacs version >= 27 where
+the ':extend' keyword is recognized by `set-face-attribute'.
+
+Option `rainbow' will use an accented background for the contents
+of the block. The exact color will depend on the programming
+language and is controlled by the `org-src-block-faces'
+variable (refer to the theme's source code for the current
+association list)."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "No Org block background (default)" nil)
+ (const :tag "Subtle gray block background" grayscale)
+ (const :tag "Subtle gray block background (alt spelling)" greyscale)
+ (const :tag "Color-coded background per programming language" rainbow)))
+
+(defcustom modus-themes-mode-line nil
+ "Adjust the overall style of the mode line.
+
+Nil is a two-dimensional rectangle with a border around it. The
+active and the inactive modelines use different shades of
+greyscale values for the background and foreground.
+
+A `3d' value will apply a three-dimensional effect to the active
+modeline. The inactive modelines remain two-dimensional and are
+toned down a bit, relative to the nil value.
+
+The `moody' option is meant to optimize the modeline for use with
+the library of the same name. This practically means to remove
+the box effect and rely on underline and overline properties
+instead. It also tones down the inactive modelines. Despite its
+intended purpose, this option can also be used without the
+`moody' library."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Two-dimensional box (default)" nil)
+ (const :tag "Three-dimensional style for the active mode line" 3d)
+ (const :tag "No box effects, which are optimal for use with the `moody' library" moody)))
+
+(defcustom modus-themes-diffs nil
+ "Adjust the overall styles of diffs.
+
+Nil means to use fairly intense color combinations for diffs.
+For example, you get a rich green background with a green
+foreground for added lines. Word-wise or 'refined' diffs follow
+the same pattern but use different shades of those colors to
+remain distinct.
+
+A `desaturated' value follows the same principles as with the nil
+option, while it tones down all relevant colors.
+
+Option `fg-only' will remove all accented backgrounds, except
+from word-wise changes. It instead uses color-coded foreground
+values to differentiate between added/removed/changed lines. If
+a background is necessary, such as with `ediff', then a subtle
+greyscale value is used.
+
+Option `bg-only' applies a background but does not override the
+text's foreground. This makes it suitable for a non-nil value
+passed to `diff-font-lock-syntax' (note: Magit does not support
+syntax highlighting in diffs as of 2020-11-25, version
+20201116.1057)."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Intensely colored backgrounds (default)" nil)
+ (const :tag "Slightly accented backgrounds with tinted text" desaturated)
+ (const :tag "No backgrounds, except for refined diffs" fg-only)
+ (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only)))
+
+(defcustom modus-themes-completions nil
+ "Apply special styles to the UI of completion frameworks.
+
+This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as
+any other tool meant to enhance their experience. The effect
+will vary depending on the completion framework.
+
+Nil means to remain faithful to the metaphors that each UI
+establishes. For example, Icomplete and Ido only use foreground
+colors to style their matches, whereas Ivy or Helm rely on an
+aesthetic that combines colored backgrounds with appropriate text
+color.
+
+Option `moderate' will apply a combination of background and
+foreground that is fairly subtle. For Icomplete and the like,
+this constitutes a departure from their standard style. While
+Ivy, Helm, and the others, will use less pronounced colors for
+applicable contexts.
+
+Option `opinionated' will apply color combinations that refashion
+the completion UI. So Icomplete et al will now use styles that
+resemble the defaults of Ivy and co., while the latter group will
+revert to an even more nuanced aesthetic."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Respect the framework's established aesthetic (default)" nil)
+ (const :tag "Subtle backgrounds for various elements" moderate)
+ (const :tag "Radical alternative to the framework's looks" opinionated)))
+
+(defcustom modus-themes-prompts nil
+ "Use subtle or intense styles for minibuffer and REPL prompts.
+
+Nil means to only use an accented foreground color.
+
+Options `subtle' and `intense' will change both the background
+and the foreground values. The latter has a more pronounced
+effect than the former."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "No prompt background (default)" nil)
+ (const :tag "Subtle accented background for the prompt" subtle)
+ (const :tag "Intense background and foreground for the prompt" intense)))
+
+(defcustom modus-themes-intense-hl-line nil
+ "Use a more prominent background for command `hl-line-mode'."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type 'boolean)
+
+(defcustom modus-themes-paren-match nil
+ "Choose the style of matching parentheses or delimiters.
+
+Nil means to use a subtle tinted background color (the default).
+
+Option `intense' applies a saturated background color.
+
+Option `subtle-bold' is the same as the default, but also makes
+use of bold typographic weight (inherits the `bold' face).
+
+Option `intense-bold' is the same as `intense', while it also
+uses a bold weight."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Sublte tinted background (default)" nil)
+ (const :tag "Like the default, but also use bold typographic weight" subtle-bold)
+ (const :tag "Intense saturated background" intense)
+ (const :tag "Like `intense' but with bold weight" intense-bold)))
+
+(defcustom modus-themes-syntax nil
+ "Control the overall style of code syntax highlighting.
+
+Nil (the default) means to use colors on the cyan-blue-magenta
+side of the spectrum. There is little to no use of greens,
+yellows, and reds.
+
+Option `faint' is like the default in terms of the choice of
+palette but applies desaturated color values.
+
+Option `yellow-comments' applies a yellow tint to comments. The
+rest of the syntax is the same as the default.
+
+Option `green-strings' replaces the blue/cyan/cold color variants
+in strings with greener alternatives. The rest of the syntax
+remains the same.
+
+Option `yellow-comments-green-strings' combines yellow comments
+with green strings and the rest of the default syntax
+highlighting style.
+
+Option `alt-syntax' expands the color palette and applies new
+color combinations. Strings are green. Doc strings are magenta
+tinted. Comments are gray.
+
+Option `alt-syntax-yellow-comments' combines `alt-syntax' with
+`yellow-comments'."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil)
+ (const :tag "Like the default, but with desaturated color values" faint)
+ (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments)
+ (const :tag "Use green for strings, keep the default style for the rest" green-strings)
+ (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings)
+ (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax)
+ (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments)))
+
+(defcustom modus-themes-links nil
+ "Set the style of links.
+
+Nil means to use an underline that is the same color as the
+foreground.
+
+Option `faint' applies desaturated colors to the link's text and
+underline.
+
+Option `neutral-underline' applies a subtle grey underline, while
+retaining the link's foreground.
+
+Option `faint-neutral-underline' combines a desaturated text
+color with a subtle grey underline.
+
+Option `no-underline' removes link underlines altogether."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Undeline link using the same color as the text (default)" nil)
+ (const :tag "Like the default, but apply less intense colors to links" faint)
+ (const :tag "Change the color of link underlines to a neutral grey" neutral-underline)
+ (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline)
+ (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline)))
+
+(defcustom modus-themes-region nil
+ "Change the overall appearance of the active region.
+
+Nil (the default) means to only use a prominent gray background
+with a neutral foreground. The foreground overrides all syntax
+highlighting. The region extends to the edge of the window.
+
+Option `no-extend' preserves the default aesthetic but prevents
+the region from extending to the edge of the window.
+
+Option `bg-only' applies a faint tinted background that is
+distinct from all others used in the theme, while it does not
+override any existing colors. It extends to the edge of the
+window.
+
+Option `bg-only-no-extend' is a combination of the `bg-only' and
+`no-extend' options."
+ :package-version '(modus-themes . "1.0.0")
+ :version "28.1"
+ :type '(choice
+ (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil)
+ (const :tag "As with the default, but does not extend" no-extend)
+ (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only)
+ (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)))
+
+\f
+
+;;; Variables for each variant
+
+;;;; Modus Operandi
+
+(define-obsolete-variable-alias
+ 'modus-operandi-theme-default-colors-alist
+ 'modus-themes-colors-operandi
+ "1.0.0")
+
+(defconst modus-themes-colors-operandi
+ '(;; base values
+ (bg-main . "#ffffff") (fg-main . "#000000")
+ (bg-dim . "#f8f8f8") (fg-dim . "#282828")
+ (bg-alt . "#f0f0f0") (fg-alt . "#505050")
+ ;; specifically for on/off states and must be combined with
+ ;; themselves, though the backgrounds are also meant to be used with
+ ;; other "active" values, defined further below
+ (bg-active . "#d7d7d7") (fg-active . "#0a0a0a")
+ (bg-inactive . "#efefef") (fg-inactive . "#404148")
+ ;; these special values are intended as alternatives to the base
+ ;; values for cases where we need to avoid confusion between the
+ ;; highlighted constructs; they must either be used as pairs based
+ ;; on their name or each can be combined with {fg,bg}-{main,alt,dim}
+ ;; always in accordance with their role as background or foreground
+ (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060")
+ (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034")
+ (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026")
+ (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f")
+ ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt
+ (red . "#a60000")
+ (red-alt . "#972500")
+ (red-alt-other . "#a0132f")
+ (red-faint . "#7f1010")
+ (red-alt-faint . "#702f00")
+ (red-alt-other-faint . "#7f002f")
+ (green . "#005e00")
+ (green-alt . "#315b00")
+ (green-alt-other . "#145c33")
+ (green-faint . "#104410")
+ (green-alt-faint . "#30440f")
+ (green-alt-other-faint . "#0f443f")
+ (yellow . "#813e00")
+ (yellow-alt . "#70480f")
+ (yellow-alt-other . "#863927")
+ (yellow-faint . "#5f4400")
+ (yellow-alt-faint . "#5d5000")
+ (yellow-alt-other-faint . "#5e3a20")
+ (blue . "#0031a9")
+ (blue-alt . "#2544bb")
+ (blue-alt-other . "#0000c0")
+ (blue-faint . "#002f88")
+ (blue-alt-faint . "#003f78")
+ (blue-alt-other-faint . "#1f0f6f")
+ (magenta . "#721045")
+ (magenta-alt . "#8f0075")
+ (magenta-alt-other . "#5317ac")
+ (magenta-faint . "#752f50")
+ (magenta-alt-faint . "#702565")
+ (magenta-alt-other-faint . "#5f3f7f")
+ (cyan . "#00538b")
+ (cyan-alt . "#30517f")
+ (cyan-alt-other . "#005a5f")
+ (cyan-faint . "#12506f")
+ (cyan-alt-faint . "#354f6f")
+ (cyan-alt-other-faint . "#2e584f")
+ ;; these foreground values can only be combined with bg-main and are
+ ;; thus not suitable for general purpose highlighting
+ (red-intense . "#b60000")
+ (green-intense . "#006800")
+ (yellow-intense . "#904200")
+ (blue-intense . "#1111ee")
+ (magenta-intense . "#7000e0")
+ (cyan-intense . "#205b93")
+ ;; those foregrounds are meant exclusively for bg-active, bg-inactive
+ (red-active . "#8a0000")
+ (green-active . "#004c2e")
+ (yellow-active . "#702d1f")
+ (blue-active . "#0030b4")
+ (magenta-active . "#5c2092")
+ (cyan-active . "#003f8a")
+ ;; the "subtle" values below be combined with fg-dim, while the
+ ;; "intense" should be paired with fg-main
+ (red-subtle-bg . "#f2b0a2")
+ (red-intense-bg . "#ff8892")
+ (green-subtle-bg . "#aecf90")
+ (green-intense-bg . "#5ada88")
+ (yellow-subtle-bg . "#e4c340")
+ (yellow-intense-bg . "#f5df23")
+ (blue-subtle-bg . "#b5d0ff")
+ (blue-intense-bg . "#6aaeff")
+ (magenta-subtle-bg . "#f0d3ff")
+ (magenta-intense-bg . "#d5baff")
+ (cyan-subtle-bg . "#c0efff")
+ (cyan-intense-bg . "#42cbd4")
+ ;; those background values must be combined with fg-main and should
+ ;; only be used for indicators that are placed on the fringes
+ (red-fringe-bg . "#f08290")
+ (green-fringe-bg . "#62c86a")
+ (yellow-fringe-bg . "#dbba3f")
+ (blue-fringe-bg . "#82afff")
+ (magenta-fringe-bg . "#e0a3ff")
+ (cyan-fringe-bg . "#2fcddf")
+ ;; the following are for cases where both the foreground and the
+ ;; background need to have a similar hue and so must be combined
+ ;; with themselves, even though the foregrounds can be paired with
+ ;; any of the base backgrounds
+ (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000")
+ (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00")
+ (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000")
+ (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288")
+ (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077")
+ (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850")
+ ;; the "nuanced" backgrounds can be combined with all of the above
+ ;; foregrounds, as well as those included here, while the "nuanced"
+ ;; foregrounds can in turn also be combined with bg-main, bg-dim,
+ ;; bg-alt
+ (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000")
+ (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000")
+ (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000")
+ (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55")
+ (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f")
+ (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360")
+ ;; the following are reserved for specific cases
+ ;;
+ ;; bg-hl-line is between bg-dim and bg-alt, so it should
+ ;; work with all accents that cover those two, plus bg-main
+ ;;
+ ;; bg-hl-alt and bg-hl-alt-intense should only be used when no
+ ;; other greyscale or fairly neutral background is available to
+ ;; properly draw attention to a given construct
+ ;;
+ ;; bg-header is between bg-active and bg-inactive, so it
+ ;; can be combined with any of the "active" values, plus the
+ ;; "special" and base foreground colors
+ ;;
+ ;; bg-paren-match, bg-paren-match-intense, bg-region and
+ ;; bg-tab-active must be combined with fg-main, while
+ ;; bg-tab-inactive should be combined with fg-dim
+ ;;
+ ;; bg-tab-bar is only intended for the bar that holds the tabs and
+ ;; can only be combined with fg-main
+ ;;
+ ;; fg-tab-active is meant to be combined with bg-tab-active,
+ ;; though only for styling special elements, such as underlining
+ ;; the current tab
+ ;;
+ ;; fg-escape-char-construct and fg-escape-char-backslash can
+ ;; be combined bg-main, bg-dim, bg-alt
+ ;;
+ ;; fg-lang-error, fg-lang-warning, fg-lang-note can be
+ ;; combined with bg-main, bg-dim, bg-alt
+ ;;
+ ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined
+ ;; with bg-main, bg-dim, bg-alt, bg-hl-line
+ ;;
+ ;; fg-unfocused must be combined with fg-main
+ ;;
+ ;; fg-docstring, fg-comment-yellow can be combined with
+ ;; bg-main, bg-dim, bg-alt
+ ;;
+ ;; the window divider colors apply to faces with just an fg value
+ ;;
+ ;; all pairs are combinable with themselves
+ (bg-hl-line . "#f2eff3")
+ (bg-hl-line-intense . "#e0e0e0")
+ (bg-hl-alt . "#fbeee0")
+ (bg-hl-alt-intense . "#e8dfd1")
+ (bg-paren-match . "#e0af82")
+ (bg-paren-match-intense . "#c488ff")
+ (bg-region . "#bcbcbc")
+
+ (bg-tab-bar . "#d5d5d5")
+ (bg-tab-active . "#f6f6f6")
+ (bg-tab-inactive . "#bdbdbd")
+ (fg-tab-active . "#30169e")
+
+ (fg-escape-char-construct . "#8b1030")
+ (fg-escape-char-backslash . "#654d0f")
+
+ (fg-lang-error . "#9f004f")
+ (fg-lang-warning . "#604f0f")
+ (fg-lang-note . "#4040ae")
+
+ (fg-window-divider-inner . "#888888")
+ (fg-window-divider-outer . "#585858")
+
+ (fg-unfocused . "#56576d")
+
+ (fg-docstring . "#2a486a")
+ (fg-comment-yellow . "#5f4400")
+
+ (bg-header . "#e5e5e5") (fg-header . "#2a2a2a")
+
+ (bg-whitespace . "#fff8fc") (fg-whitespace . "#645060")
+
+ (bg-diff-heading . "#b7c2dd") (fg-diff-heading . "#043355")
+ (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500")
+ (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200")
+ (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616")
+
+ (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00")
+ (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010")
+ (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000")
+
+ (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00")
+ (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900")
+ (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000")
+
+ (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404")
+ (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525")
+ (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a")
+
+ (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040")
+ (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040")
+ (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900"))
+ "The entire palette of `modus-themes'.
+Each element has the form (NAME . HEX) with the former as a
+symbol and the latter as a string.")
+
+;;;; Modus Vivendi
+
+(define-obsolete-variable-alias
+ 'modus-vivendi-theme-default-colors-alist
+ 'modus-themes-colors-vivendi
+ "1.0.0")
+
+(defconst modus-themes-colors-vivendi
+ '(;; base values
+ (bg-main . "#000000") (fg-main . "#ffffff")
+ (bg-dim . "#110b11") (fg-dim . "#e0e6f0")
+ (bg-alt . "#181a20") (fg-alt . "#a8a8a8")
+ ;; specifically for on/off states and must be combined with
+ ;; themselves, though the backgrounds are also meant to be used with
+ ;; other "active" values, defined further below
+ (bg-active . "#323232") (fg-active . "#f4f4f4")
+ (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4")
+ ;; these special values are intended as alternatives to the base
+ ;; values for cases where we need to avoid confusion between the
+ ;; highlighted constructs; they must either be used as pairs based
+ ;; on their name or each can be combined with {fg,bg}-{main,alt,dim}
+ ;; always in accordance with their role as background or foreground
+ (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff")
+ (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0")
+ (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0")
+ (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4")
+ ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt
+ (red . "#ff8059")
+ (red-alt . "#f4923b")
+ (red-alt-other . "#ff9977")
+ (red-faint . "#ffa0a0")
+ (red-alt-faint . "#f5aa80")
+ (red-alt-other-faint . "#ff9fbf")
+ (green . "#44bc44")
+ (green-alt . "#80d200")
+ (green-alt-other . "#00cd68")
+ (green-faint . "#88cf88")
+ (green-alt-faint . "#a8cf88")
+ (green-alt-other-faint . "#88cfaf")
+ (yellow . "#eecc00")
+ (yellow-alt . "#cfdf30")
+ (yellow-alt-other . "#f0ce43")
+ (yellow-faint . "#d2b580")
+ (yellow-alt-faint . "#cabf77")
+ (yellow-alt-other-faint . "#d0ba95")
+ (blue . "#2fafff")
+ (blue-alt . "#79a8ff" )
+ (blue-alt-other . "#00bcff")
+ (blue-faint . "#92baff")
+ (blue-alt-faint . "#a4b0ff")
+ (blue-alt-other-faint . "#8fc5ff")
+ (magenta . "#feacd0")
+ (magenta-alt . "#f78fe7")
+ (magenta-alt-other . "#b6a0ff")
+ (magenta-faint . "#e0b2d6")
+ (magenta-alt-faint . "#ef9fe4")
+ (magenta-alt-other-faint . "#d0b4ff")
+ (cyan . "#00d3d0")
+ (cyan-alt . "#4ae8fc")
+ (cyan-alt-other . "#6ae4b9")
+ (cyan-faint . "#a0bfdf")
+ (cyan-alt-faint . "#90c4ed")
+ (cyan-alt-other-faint . "#a4d0bb")
+ ;; these foreground values can only be combined with bg-main and are
+ ;; thus not suitable for general purpose highlighting
+ (red-intense . "#fb6859")
+ (green-intense . "#00fc50")
+ (yellow-intense . "#ffdd00")
+ (blue-intense . "#00a2ff")
+ (magenta-intense . "#ff8bd4")
+ (cyan-intense . "#30ffc0")
+ ;; those foregrounds are meant exclusively for bg-active, bg-inactive
+ (red-active . "#ffa7ba")
+ (green-active . "#70d73f")
+ (yellow-active . "#dbbe5f")
+ (blue-active . "#34cfff")
+ (magenta-active . "#d5b1ff")
+ (cyan-active . "#00d8b4")
+ ;; the "subtle" values below be combined with fg-dim, while the
+ ;; "intense" should be paired with fg-main
+ (red-subtle-bg . "#762422")
+ (red-intense-bg . "#a4202a")
+ (green-subtle-bg . "#2f4a00")
+ (green-intense-bg . "#006800")
+ (yellow-subtle-bg . "#604200")
+ (yellow-intense-bg . "#874900")
+ (blue-subtle-bg . "#10387c")
+ (blue-intense-bg . "#2a40b8")
+ (magenta-subtle-bg . "#49366e")
+ (magenta-intense-bg . "#7042a2")
+ (cyan-subtle-bg . "#00415e")
+ (cyan-intense-bg . "#005f88")
+ ;; those background values must be combined with fg-main and should
+ ;; only be used for indicators that are placed on the fringes
+ (red-fringe-bg . "#8f1f4b")
+ (green-fringe-bg . "#006700")
+ (yellow-fringe-bg . "#6f4f00")
+ (blue-fringe-bg . "#3f33af")
+ (magenta-fringe-bg . "#6f2f89")
+ (cyan-fringe-bg . "#004f8f")
+ ;; the following are for cases where both the foreground and the
+ ;; background need to have a similar hue and so must be combined
+ ;; with themselves, even though the foregrounds can be paired with
+ ;; any of the base backgrounds
+ (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab")
+ (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf")
+ (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980")
+ (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff")
+ (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0")
+ (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2")
+ ;; the "nuanced" backgrounds can be combined with all of the above
+ ;; foregrounds, as well as those included here, while the "nuanced"
+ ;; foregrounds can in turn also be combined with bg-main, bg-dim,
+ ;; bg-alt
+ (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc")
+ (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8")
+ (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0")
+ (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff")
+ (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef")
+ (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5")
+ ;; the following are reserved for specific cases
+ ;;
+ ;; bg-hl-line is between bg-dim and bg-alt, so it should
+ ;; work with all accents that cover those two, plus bg-main
+ ;;
+ ;; bg-hl-alt and bg-hl-alt-intense should only be used when no
+ ;; other greyscale or fairly neutral background is available to
+ ;; properly draw attention to a given construct
+ ;;
+ ;; bg-header is between bg-active and bg-inactive, so it
+ ;; can be combined with any of the "active" values, plus the
+ ;; "special" and base foreground colors
+ ;;
+ ;; bg-paren-match, bg-paren-match-intense, bg-region and
+ ;; bg-tab-active must be combined with fg-main, while
+ ;; bg-tab-inactive should be combined with fg-dim
+ ;;
+ ;; bg-tab-bar is only intended for the bar that holds the tabs and
+ ;; can only be combined with fg-main
+ ;;
+ ;; fg-tab-active is meant to be combined with bg-tab-active,
+ ;; though only for styling special elements, such as underlining
+ ;; the current tab
+ ;;
+ ;; fg-escape-char-construct and fg-escape-char-backslash can
+ ;; be combined bg-main, bg-dim, bg-alt
+ ;;
+ ;; fg-lang-error, fg-lang-warning, fg-lang-note can be
+ ;; combined with bg-main, bg-dim, bg-alt
+ ;;
+ ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined
+ ;; with bg-main, bg-dim, bg-alt, bg-hl-line
+ ;;
+ ;; fg-unfocused must be combined with fg-main
+ ;;
+ ;; fg-docstring, fg-comment-yellow can be combined with
+ ;; bg-main, bg-dim, bg-alt
+ ;;
+ ;; the window divider colors apply to faces with just an fg value
+ ;;
+ ;; all pairs are combinable with themselves
+ (bg-hl-line . "#151823")
+ (bg-hl-line-intense . "#2f2f2f")
+ (bg-hl-alt . "#181732")
+ (bg-hl-alt-intense . "#282e46")
+ (bg-paren-match . "#5f362f")
+ (bg-paren-match-intense . "#7416b5")
+ (bg-region . "#3c3c3c")
+
+ (bg-tab-bar . "#2c2c2c")
+ (bg-tab-active . "#0e0e0e")
+ (bg-tab-inactive . "#3d3d3d")
+ (fg-tab-active . "#5ac3cf")
+
+ (fg-escape-char-construct . "#e7a59a")
+ (fg-escape-char-backslash . "#abab00")
+
+ (fg-lang-error . "#ef8690")
+ (fg-lang-warning . "#b0aa00")
+ (fg-lang-note . "#9d9def")
+
+ (fg-window-divider-inner . "#646464")
+ (fg-window-divider-outer . "#969696")
+
+ (fg-unfocused . "#93959b")
+
+ (fg-docstring . "#b0d6f5")
+ (fg-comment-yellow . "#cab98f")
+
+ (bg-header . "#212121") (fg-header . "#dddddd")
+
+ (bg-whitespace . "#170016") (fg-whitespace . "#a4959f")
+
+ (bg-diff-heading . "#304466") (fg-diff-heading . "#dadffe")
+ (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94")
+ (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f")
+ (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa")
+
+ (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0")
+ (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc")
+ (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb")
+
+ (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4")
+ (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf")
+ (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba")
+
+ (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc")
+ (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd")
+ (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf")
+
+ (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2")
+ (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa")
+ (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20"))
+ "The entire palette of `modus-vivendi-theme'.
+Each element has the form (NAME . HEX) with the former as a
+symbol and the latter as a string.")
+
+;;;; Deprecated customisation options (prior to 1.0.0)
+
+;;;;; Modus Operandi obsolete options
+
+(make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0")
+(make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0")
+(make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0")
+(make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0")
+(make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0")
+(make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0")
+(make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0")
+(make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0")
+(make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0")
+(make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0")
+(make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0")
+(make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0")
+(make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0")
+(make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0")
+(make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0")
+(make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0")
+(make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0")
+(make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0")
+(make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0")
+
+;;;;; Modus Vivendi obsolete options
+
+(make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0")
+(make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0")
+(make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0")
+(make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0")
+(make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0")
+(make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0")
+(make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0")
+(make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0")
+(make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0")
+(make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0")
+(make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0")
+(make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0")
+(make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0")
+(make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0")
+(make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0")
+(make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0")
+(make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0")
+(make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0")
+(make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0")
+(make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0")
+(make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0")
+
+\f
+
+;;; Internal functions
+
+;; Helper functions that are meant to ease the implementation of the
+;; above customization options.
+(defun modus-themes--bold-weight ()
+ "Conditional use of a heavier text weight."
+ (when modus-themes-bold-constructs
+ (list :inherit 'bold)))
+
+(defun modus-themes--mixed-fonts ()
+ "Conditional application of `fixed-pitch' inheritance."
+ (unless modus-themes-no-mixed-fonts
+ (list :inherit 'fixed-pitch)))
+
+(defun modus-themes--slant ()
+ "Conditional use of italics for slant attribute."
+ (if modus-themes-slanted-constructs
+ (list 'italic)
+ (list 'normal)))
+
+(defun modus-themes--variable-pitch ()
+ "Conditional use of `variable-pitch' in headings."
+ (when modus-themes-variable-pitch-headings
+ (list :inherit 'variable-pitch)))
+
+(defun modus-themes--fringe (mainbg subtlebg intensebg)
+ "Conditional use of background colors for fringes.
+MAINBG is the default. SUBTLEBG should be a subtle greyscale
+value. INTENSEBG must be a more pronounced greyscale color."
+ (pcase modus-themes-fringes
+ ('intense (list :background intensebg))
+ ('subtle (list :background subtlebg))
+ (_ (list :background mainbg))))
+
+(defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg)
+ "Conditional use of background colors for prompts.
+MAINFG is the prompt's standard foreground. SUBTLEBG should be a
+subtle accented background that works with SUBTLEFG. INTENSEBG
+must be a more pronounced accented color that should be
+combinable with INTENSEFG."
+ (pcase modus-themes-prompts
+ ('intense (list :background intensebg :foreground intensefg))
+ ('subtle (list :background subtlebg :foreground subtlefg))
+ (_ (list :background nil :foreground mainfg))))
+
+(defun modus-themes--paren (normalbg intensebg)
+ "Conditional use of intense colors for matching parentheses.
+NORMALBG should be the special palette color 'bg-paren-match' or
+something similar. INTENSEBG must be easier to discern next to
+other backgrounds, such as the special palette color
+'bg-paren-match-intense'."
+ (pcase modus-themes-paren-match
+ ('subtle-bold (list :inherit 'bold :background normalbg))
+ ('intense-bold (list :inherit 'bold :background intensebg))
+ ('intense (list :background intensebg))
+ (_ (list :background normalbg))))
+
+(defun modus-themes--syntax-foreground (fg faint)
+ "Apply foreground value to code syntax.
+FG is the default. FAINT is typically the same color in its
+desaturated version."
+ (pcase modus-themes-syntax
+ ('faint (list :foreground faint))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--syntax-extra (fg faint alt)
+ "Apply foreground value to code syntax.
+FG is the default. FAINT is typically the same color in its
+desaturated version. ALT is another hue."
+ (pcase modus-themes-syntax
+ ('faint (list :foreground faint))
+ ('alt-syntax (list :foreground alt))
+ ('alt-syntax-yellow-comments (list :foreground alt))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--syntax-string (fg faint green alt)
+ "Apply foreground value to strings in code syntax.
+FG is the default. FAINT is typically the same color in its
+desaturated version. GREEN is a color variant in that side of
+the spectrum. ALT is another hue."
+ (pcase modus-themes-syntax
+ ('faint (list :foreground faint))
+ ('green-strings (list :foreground green))
+ ('yellow-comments-green-strings (list :foreground alt))
+ ('alt-syntax (list :foreground alt))
+ ('alt-syntax-yellow-comments (list :foreground alt))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--syntax-docstring (fg faint green alt)
+ "Apply foreground value to strings in code syntax.
+FG is the default. FAINT is typically the same color in its
+desaturated version. GREEN is a color variant in that side of
+the spectrum. ALT is another hue."
+ (pcase modus-themes-syntax
+ ('faint (list :foreground faint))
+ ('green-strings (list :foreground green))
+ ('yellow-comments-green-strings (list :foreground green))
+ ('alt-syntax (list :foreground alt))
+ ('alt-syntax-yellow-comments (list :foreground alt))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--syntax-comment (fg yellow)
+ "Apply foreground value to strings in code syntax.
+FG is the default. YELLOW is a color variant of that name."
+ (pcase modus-themes-syntax
+ ('yellow-comments (list :foreground yellow))
+ ('yellow-comments-green-strings (list :foreground yellow))
+ ('alt-syntax-yellow-comments (list :foreground yellow))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--heading-p (key)
+ "Query style of KEY in `modus-themes-headings'."
+ (cdr (assoc key modus-themes-headings)))
+
+(defun modus-themes--heading (level fg fg-alt bg border)
+ "Conditional styles for `modus-themes-headings'.
+
+LEVEL is the heading's position in their order. FG is the
+default text color. FG-ALT is an accented, more saturated value
+than the default. BG is a nuanced, typically accented,
+background that can work well with either of the foreground
+values. BORDER is a color value that combines well with the
+background and alternative foreground."
+ (let* ((key (modus-themes--heading-p `,level))
+ (style (or key (modus-themes--heading-p t)))
+ (var (if modus-themes-variable-pitch-headings
+ 'variable-pitch
+ 'default)))
+ (pcase style
+ ('no-bold
+ (list :inherit `,var :foreground fg))
+ ('line
+ (list :inherit `(bold ,var) :foreground fg :overline border))
+ ('line-no-bold
+ (list :inherit `,var :foreground fg :overline border))
+ ('rainbow
+ (list :inherit `(bold ,var) :foreground fg-alt))
+ ('rainbow-no-bold
+ (list :inherit `,var :foreground fg-alt))
+ ('rainbow-line
+ (list :inherit `(bold ,var) :foreground fg-alt :overline border))
+ ('rainbow-line-no-bold
+ (list :inherit `,var :foreground fg-alt :overline border))
+ ('highlight
+ (list :inherit `(bold ,var) :background bg :foreground fg))
+ ('highlight-no-bold
+ (list :inherit `,var :background bg :foreground fg))
+ ('rainbow-highlight
+ (list :inherit `(bold ,var) :background bg :foreground fg-alt))
+ ('rainbow-highlight-no-bold
+ (list :inherit `,var :background bg :foreground fg-alt))
+ ('section
+ (append
+ (and (>= emacs-major-version 27) '(:extend t))
+ (list :inherit `(bold ,var) :background bg :foreground fg :overline border)))
+ ('section-no-bold
+ (append
+ (and (>= emacs-major-version 27) '(:extend t))
+ (list :inherit `,var :background bg :foreground fg :overline border)))
+ ('rainbow-section
+ (append
+ (and (>= emacs-major-version 27) '(:extend t))
+ (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border)))
+ ('rainbow-section-no-bold
+ (append
+ (and (>= emacs-major-version 27) '(:extend t))
+ (list :inherit `,var :background bg :foreground fg-alt :overline border)))
+ (_
+ (list :inherit `(bold ,var) :foreground fg)))))
+
+(defun modus-themes--org-block (bgblk)
+ "Conditionally set the background of Org blocks.
+BGBLK applies to a distinct neutral background. Else blocks have
+no background of their own (the default), so they look the same
+as the rest of the buffer.
+
+`modus-themes-org-blocks' also accepts a `rainbow' option
+which is applied conditionally to `org-src-block-faces' (see the
+theme's source code)."
+ (if (or (eq modus-themes-org-blocks 'grayscale)
+ (eq modus-themes-org-blocks 'greyscale))
+ (append
+ (and (>= emacs-major-version 27) '(:extend t))
+ (list :background bgblk))
+ (list :background nil)))
+
+(defun modus-themes--org-block-delim (bgaccent fgaccent bg fg)
+ "Conditionally set the styles of Org block delimiters.
+BG, FG, BGACCENT, FGACCENT apply a background and foreground
+color respectively.
+
+The former pair is a greyscale combination that should be more
+distinct than the background of the block. It is applied to the
+default styles or when `modus-themes-org-blocks' is set
+to `greyscale'.
+
+The latter pair should be more subtle than the background of the
+block, as it is used when `modus-themes-org-blocks' is
+set to `rainbow'."
+ (pcase modus-themes-org-blocks
+ ('grayscale (append (and (>= emacs-major-version 27) '(:extend t))
+ (list :background bg :foreground fg)))
+ ('greyscale (append (and (>= emacs-major-version 27) '(:extend t))
+ (list :background bg :foreground fg)))
+ ('rainbow (list :background bgaccent :foreground fgaccent))
+ (_ (list :background bg :foreground fg))))
+
+(defun modus-themes--mode-line-attrs
+ (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant)
+ "Color combinations for `modus-themes-mode-line'.
+
+FG and BG are the default colors. FG-ALT and BG-ALT are meant to
+accommodate the options for a 3D modeline or a `moody' compliant
+one. BORDER applies to all permutations of the modeline, except
+the three-dimensional effect, where BORDER-3D is used instead.
+
+Optional ALT-STYLE applies an appropriate style to the mode
+line's box property.
+
+Optional BORDER-WIDTH specifies an integer for the width of the
+rectangle that produces the box effect.
+
+Optional FG-DISTANT should be close to the main background
+values. It is intended to be used as a distant-foreground
+property."
+ (pcase modus-themes-mode-line
+ ('3d
+ `(:background ,bg-alt :foreground ,fg-alt
+ :box (:line-width ,(or border-width 1)
+ :color ,border-3d
+ :style ,(and alt-style 'released-button))))
+ ('moody
+ `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border
+ :distant-foreground ,fg-distant))
+ (_
+ `(:foreground ,fg :background ,bg :box ,border))))
+
+(defun modus-themes--diff
+ (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional bg-only-fg)
+ "Color combinations for `modus-themes-diffs'.
+
+FG-ONLY-BG should be similar or the same as the main background.
+FG-ONLY-FG should be a saturated accent value that can be
+combined with the former.
+
+MAINBG must be one of the dedicated backgrounds for diffs while
+MAINFG must be the same for the foreground.
+
+ALTBG needs to be a slightly accented background that is meant to
+be combined with ALTFG. Both must be less intense than MAINBG
+and MAINFG respectively.
+
+Optional BG-ONLY-FG applies ALTFG else leaves the foreground
+unspecified."
+ (pcase modus-themes-diffs
+ ('fg-only (list :background fg-only-bg :foreground fg-only-fg))
+ ('desaturated (list :background altbg :foreground altfg))
+ ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified)))
+ (_ (list :background mainbg :foreground mainfg))))
+
+(defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg)
+ "Combinations for `modus-themes-completions'.
+
+MAINFG is an accented foreground value. SUBTLEBG is an accented
+background value that can be combined with MAINFG. INTENSEBG and
+INTENSEFG are accented colors that are designed to be used in
+tandem.
+
+These are intended for Icomplete, Ido, and related."
+ (pcase modus-themes-completions
+ ('opinionated (list :background intensebg :foreground intensefg))
+ ('moderate (list :background subtlebg :foreground mainfg))
+ (_ (list :foreground mainfg))))
+
+(defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold)
+ "Combinations for `modus-themes-completions'.
+
+SUBTLEFACE and INTENSEFACE are custom theme faces that combine a
+background and foreground value. The difference between the two
+is a matter of degree.
+
+ALTFACE is a combination of colors that represents a departure
+from the UI's default aesthetics. Optional ALTFG is meant to be
+used in tandem with it.
+
+Optional BOLD will apply a heavier weight to the text.
+
+These are intended for Helm, Ivy, etc."
+ (pcase modus-themes-completions
+ ('opinionated (list :inherit (list altface bold)
+ :foreground (or altfg 'unspecified)))
+ ('moderate (list :inherit (list subtleface bold)))
+ (_ (list :inherit (list intenseface bold)))))
+
+(defun modus-themes--link (fg fgfaint underline)
+ "Conditional application of link styles.
+FG is the link's default color for its text and underline
+property. FGFAINT is a desaturated color for the text and
+underline. UNDERLINE is a grey color only for the undeline."
+ (pcase modus-themes-links
+ ('faint (list :foreground fgfaint :underline t))
+ ('neutral-underline (list :foreground fg :underline underline))
+ ('faint-neutral-underline (list :foreground fgfaint :underline underline))
+ ('no-underline (list :foreground fg :underline nil))
+ (_ (list :foreground fg :underline t))))
+
+(defun modus-themes--link-color (fg fgfaint)
+ "Extends `modus-themes--link'.
+FG is the main foreground. FGFAINT is the desaturated one."
+ (pcase modus-themes-links
+ ('faint (list :foreground fgfaint))
+ ('faint-neutral-underline (list :foreground fgfaint))
+ (_ (list :foreground fg))))
+
+(defun modus-themes--scale (amount)
+ "Scale heading by AMOUNT.
+AMOUNT is a customization option."
+ (when modus-themes-scale-headings
+ (list :height amount)))
+
+(defun modus-themes--region (bg fg bgsubtle)
+ "Apply `modus-themes-region' styles.
+
+BG and FG are the main values that are used by default. BGSUBTLE
+is a subtle background value that can be combined with all colors
+used to fontify text and code syntax."
+ (pcase modus-themes-region
+ ('bg-only (list :background bgsubtle))
+ ('bg-only-no-extend (list :background bgsubtle :extend nil))
+ ('no-extend (list :background bg :foreground fg :extend nil))
+ (_ (list :background bg :foreground fg))))
+
+\f
+
+;;;; Utilities for DIY users
+
+;; 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 as those in
+`modus-themes-colors-operandi' and `modus-themes-colors-vivendi'."
+ (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))))
+
+(defun modus-themes--active-theme ()
+ "Return appropriate alist of color values for active theme."
+ (let ((theme (car custom-enabled-themes)))
+ (pcase theme
+ ('modus-operandi modus-themes-colors-operandi)
+ ('modus-vivendi modus-themes-colors-vivendi)
+ (_ (user-error "'%s' not a Modus theme; check `custom-enabled-themes'" theme)))))
+
+;;;###autoload
+(defun modus-themes-color (key)
+ "Return color value for KEY.
+The KEY is the car of each cons cell in the alists
+`modus-themes-colors-operandi', `modus-themes-colors-vivendi'."
+ (let ((alist (modus-themes--active-theme)))
+ (cdr (assoc `,key alist))))
+
+;;;###autoload
+(defun modus-themes-color-alts (key-light key-dark)
+ "Return color value for KEY-LIGHT and KEY-DARK.
+Both arguments must reference the car of a cons cell in
+`modus-themes-colors-operandi', `modus-themes-colors-vivendi'."
+ (let ((theme (car custom-enabled-themes)))
+ (pcase theme
+ ('modus-operandi (cdr (assoc `,key-light modus-themes-colors-operandi)))
+ ('modus-vivendi (cdr (assoc `,key-dark modus-themes-colors-vivendi)))
+ (_ (user-error "'%s' not a Modus theme; check `custom-enabled-themes'" theme)))))
+
+;;;; Commands
+
+(defvar modus-themes-after-load-theme-hook nil
+ "Hook that runs after the `modus-themes-toggle' routines.")
+
+;;;###autoload
+(defun modus-themes-load-operandi ()
+ "Load `modus-operandi' and disable `modus-vivendi'.
+Also run `modus-themes-after-load-theme-hook'."
+ (disable-theme 'modus-vivendi)
+ (load-theme 'modus-operandi t)
+ (run-hooks 'modus-themes-after-load-theme-hook))
+
+;;;###autoload
+(defun modus-themes-load-vivendi ()
+ "Load `modus-vivendi' and disable `modus-operandi'.
+Also run `modus-themes-after-load-theme-hook'."
+ (disable-theme 'modus-operandi)
+ (load-theme 'modus-vivendi t)
+ (run-hooks 'modus-themes-after-load-theme-hook))
+
+(defun modus-themes--load-prompt ()
+ "Helper for `modus-themes-toggle'."
+ (let ((theme
+ (intern
+ (completing-read "Load Modus theme (will disable all others): "
+ '(modus-operandi modus-vivendi) nil t))))
+ (mapc #'disable-theme custom-enabled-themes)
+ (pcase theme
+ ('modus-operandi (modus-themes-load-operandi))
+ ('modus-vivendi (modus-themes-load-vivendi)))))
+
+;;;###autoload
+(defun modus-themes-toggle ()
+ "Toggle between `modus-operandi' and `modus-vivendi' themes.
+Also runs `modus-themes-after-load-theme-hook' by virtue of
+calling the internal `modus-themes-load-operandi' and
+`modus-themes-load-vivendi' functions."
+ (interactive)
+ (pcase (car custom-enabled-themes)
+ ('modus-operandi (modus-themes-load-vivendi))
+ ('modus-vivendi (modus-themes-load-operandi))
+ (_ (modus-themes--load-prompt))))
+
+\f
+
+;;;; Face specifications
+
+(defconst modus-themes-faces
+ '(
+;;;; custom faces
+ ;; these bespoke faces are inherited by other constructs below
+;;;;; subtle colored backgrounds
+ `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim)))
+ `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+;;;;; intense colored backgrounds
+ `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
+ `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main)))
+;;;;; refined background and foreground combinations
+ ;; general purpose styles that use an accented foreground against an
+ ;; accented background
+ `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg)))
+ `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg)))
+ `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg)))
+ `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg)))
+ `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg)))
+ `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg)))
+;;;;; "active" combinations, mostly for use on the mode line
+ `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active)))
+ `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active)))
+ `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active)))
+ `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active)))
+ `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active)))
+ `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active)))
+;;;;; nuanced backgrounds
+ ;; useful for adding an accented background that is suitable for all
+ ;; main foreground colors (intended for use in Org source blocks)
+ `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+;;;;; fringe-specific combinations
+ `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main)))
+ `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main)))
+ `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main)))
+ `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main)))
+ `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main)))
+ `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main)))
+;;;;; special base values
+ ;; these are closer to the grayscale than the accents defined above
+ ;; and should only be used when the next closest alternative would be
+ ;; a greyscale value than an accented one
+ `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
+ `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild)))
+ `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm)))
+ `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm)))
+;;;;; diff-specific combinations
+ ;; intended for `diff-mode' or equivalent
+ `(modus-theme-diff-added
+ ((,class ,@(modus-themes--diff
+ bg-main green
+ bg-diff-focus-added fg-diff-focus-added
+ green-nuanced-bg fg-diff-added))))
+ `(modus-theme-diff-changed
+ ((,class ,@(modus-themes--diff
+ bg-main yellow
+ bg-diff-focus-changed fg-diff-focus-changed
+ yellow-nuanced-bg fg-diff-changed))))
+ `(modus-theme-diff-removed
+ ((,class ,@(modus-themes--diff
+ bg-main red
+ bg-diff-focus-removed fg-diff-focus-removed
+ red-nuanced-bg fg-diff-removed))))
+ `(modus-theme-diff-refine-added
+ ((,class ,@(modus-themes--diff
+ bg-diff-added fg-diff-added
+ bg-diff-refine-added fg-diff-refine-added
+ bg-diff-focus-added fg-diff-focus-added))))
+ `(modus-theme-diff-refine-changed
+ ((,class ,@(modus-themes--diff
+ bg-diff-changed fg-diff-changed
+ bg-diff-refine-changed fg-diff-refine-changed
+ bg-diff-focus-changed fg-diff-focus-changed))))
+ `(modus-theme-diff-refine-removed
+ ((,class ,@(modus-themes--diff
+ bg-diff-removed fg-diff-removed
+ bg-diff-refine-removed fg-diff-refine-removed
+ bg-diff-focus-removed fg-diff-focus-removed))))
+ `(modus-theme-diff-focus-added
+ ((,class ,@(modus-themes--diff
+ bg-dim green
+ bg-diff-focus-added fg-diff-focus-added
+ bg-diff-added fg-diff-added))))
+ `(modus-theme-diff-focus-changed
+ ((,class ,@(modus-themes--diff
+ bg-dim yellow
+ bg-diff-focus-changed fg-diff-focus-changed
+ bg-diff-changed fg-diff-changed))))
+ `(modus-theme-diff-focus-removed
+ ((,class ,@(modus-themes--diff
+ bg-dim red
+ bg-diff-focus-removed fg-diff-focus-removed
+ bg-diff-removed fg-diff-removed))))
+ `(modus-theme-diff-heading
+ ((,class ,@(modus-themes--diff
+ bg-alt blue-alt
+ bg-diff-heading fg-diff-heading
+ blue-nuanced-bg blue t))))
+;;;;; mark indicators
+ ;; color combinations intended for Dired, Ibuffer, or equivalent
+ `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main)))
+ `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt)))
+ `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del)))
+ `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel)))
+ `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt)))
+;;;;; heading levels
+ ;; styles for regular headings used in Org, Markdown, Info, etc.
+ `(modus-theme-heading-1
+ ((,class ,@(modus-themes--heading
+ 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region)
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(modus-theme-heading-2
+ ((,class ,@(modus-themes--heading
+ 2 fg-special-warm magenta-alt red-nuanced-bg bg-region)
+ ,@(modus-themes--scale modus-themes-scale-3))))
+ `(modus-theme-heading-3
+ ((,class ,@(modus-themes--heading
+ 3 fg-special-cold blue blue-nuanced-bg bg-region)
+ ,@(modus-themes--scale modus-themes-scale-2))))
+ `(modus-theme-heading-4
+ ((,class ,@(modus-themes--heading
+ 4 fg-special-mild cyan cyan-nuanced-bg bg-region)
+ ,@(modus-themes--scale modus-themes-scale-1))))
+ `(modus-theme-heading-5
+ ((,class ,@(modus-themes--heading
+ 5 fg-special-calm green-alt-other green-nuanced-bg bg-region))))
+ `(modus-theme-heading-6
+ ((,class ,@(modus-themes--heading
+ 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region))))
+ `(modus-theme-heading-7
+ ((,class ,@(modus-themes--heading
+ 7 red-nuanced-fg red-alt red-nuanced-bg bg-region))))
+ `(modus-theme-heading-8
+ ((,class ,@(modus-themes--heading
+ 8 fg-dim magenta bg-alt bg-region))))
+;;;;; other custom faces
+ `(modus-theme-bold ((,class ,@(modus-themes--bold-weight))))
+ `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line
+ bg-hl-line-intense bg-hl-line)
+ (and (>= emacs-major-version 27) '(:extend t)))))
+ `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant))))
+ `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch))))
+;;;; standard faces
+;;;;; absolute essentials
+ `(default ((,class :background ,bg-main :foreground ,fg-main)))
+ `(cursor ((,class :background ,fg-main)))
+ `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active)
+ :foreground ,fg-main)))
+ `(vertical-border ((,class :foreground ,fg-window-divider-inner)))
+;;;;; basic and/or ungrouped styles
+ `(bold ((,class :weight bold)))
+ `(bold-italic ((,class :inherit (bold italic))))
+ `(buffer-menu-buffer ((,class :inherit bold)))
+ `(comint-highlight-input ((,class :inherit bold)))
+ `(comint-highlight-prompt ((,class :inherit modus-theme-bold
+ ,@(modus-themes--prompt
+ cyan
+ blue-nuanced-bg blue-alt
+ blue-refine-bg fg-main))))
+ `(error ((,class :inherit bold :foreground ,red)))
+ `(escape-glyph ((,class :foreground ,fg-escape-char-construct)))
+ `(file-name-shadow ((,class :foreground ,fg-unfocused)))
+ `(header-line ((,class :background ,bg-header :foreground ,fg-header)))
+ `(header-line-highlight ((,class :inherit modus-theme-active-blue)))
+ `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan)))
+ `(homoglyph ((,class :foreground ,red-alt-faint)))
+ `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint)))
+ `(italic ((,class :slant italic)))
+ `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct)))
+ `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t)))
+ `(minibuffer-prompt ((,class ,@(modus-themes--prompt
+ cyan-alt-other
+ cyan-nuanced-bg cyan
+ cyan-refine-bg fg-main))))
+ `(mm-command-output ((,class :foreground ,red-alt-other)))
+ `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild)))
+ `(next-error ((,class :inherit modus-theme-subtle-red)))
+ `(rectangle-preview ((,class :inherit modus-theme-special-mild)))
+ `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense))))
+ `(secondary-selection ((,class :inherit modus-theme-special-cold)))
+ `(shadow ((,class :foreground ,fg-alt)))
+ `(success ((,class :inherit bold :foreground ,green)))
+ `(trailing-whitespace ((,class :background ,red-intense-bg)))
+ `(warning ((,class :inherit bold :foreground ,yellow)))
+;;;;; buttons, links, widgets
+ `(button ((,class ,@(modus-themes--link
+ blue-alt-other blue-alt-other-faint bg-region))))
+ `(link ((,class :inherit button)))
+ `(link-visited ((,class :inherit button
+ ,@(modus-themes--link-color
+ magenta-alt-other magenta-alt-other-faint))))
+ `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main)))
+ `(widget-button ((,class :inherit button)))
+ `(widget-button-pressed ((,class :inherit button
+ ,@(modus-themes--link-color
+ magenta magenta-faint))))
+ `(widget-documentation ((,class :foreground ,green)))
+ `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim)))
+ `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+ `(widget-single-line-field ((,class :inherit widget-field)))
+;;;;; ag
+ `(ag-hit-face ((,class :foreground ,fg-special-cold)))
+ `(ag-match-face ((,class :inherit modus-theme-special-calm)))
+;;;;; alert
+ `(alert-high-face ((,class :inherit bold :foreground ,red-alt)))
+ `(alert-low-face ((,class :foreground ,fg-special-mild)))
+ `(alert-moderate-face ((,class :inherit bold :foreground ,yellow)))
+ `(alert-trivial-face ((,class :foreground ,fg-special-calm)))
+ `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense)))
+;;;;; all-the-icons
+ `(all-the-icons-blue ((,class :foreground ,blue)))
+ `(all-the-icons-blue-alt ((,class :foreground ,blue-alt)))
+ `(all-the-icons-cyan ((,class :foreground ,cyan)))
+ `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt)))
+ `(all-the-icons-dblue ((,class :foreground ,blue-alt-other)))
+ `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other)))
+ `(all-the-icons-dgreen ((,class :foreground ,green-alt-other)))
+ `(all-the-icons-dired-dir-face ((,class :foreground ,blue)))
+ `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other)))
+ `(all-the-icons-dorange ((,class :foreground ,red-alt-other)))
+ `(all-the-icons-dpink ((,class :foreground ,magenta)))
+ `(all-the-icons-dpurple ((,class :foreground ,magenta-alt)))
+ `(all-the-icons-dred ((,class :foreground ,red)))
+ `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold)))
+ `(all-the-icons-dyellow ((,class :foreground ,yellow)))
+ `(all-the-icons-green ((,class :foreground ,green)))
+ `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg)))
+ `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg)))
+ `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg)))
+ `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg)))
+ `(all-the-icons-lorange ((,class :foreground ,red-refine-fg)))
+ `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg)))
+ `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg)))
+ `(all-the-icons-lred ((,class :foreground ,red-refine-fg)))
+ `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold)))
+ `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg)))
+ `(all-the-icons-maroon ((,class :foreground ,magenta)))
+ `(all-the-icons-orange ((,class :foreground ,red-alt)))
+ `(all-the-icons-pink ((,class :foreground ,magenta)))
+ `(all-the-icons-purple ((,class :foreground ,magenta-alt)))
+ `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other)))
+ `(all-the-icons-red ((,class :foreground ,red)))
+ `(all-the-icons-red-alt ((,class :foreground ,red-alt)))
+ `(all-the-icons-silver ((,class :foreground ,fg-special-cold)))
+ `(all-the-icons-yellow ((,class :foreground ,yellow)))
+;;;;; annotate
+ `(annotate-annotation ((,class :inherit modus-theme-subtle-blue)))
+ `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green)))
+ `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense)))
+ `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense)))
+;;;;; anzu
+ `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan)))
+ `(anzu-match-2 ((,class :inherit modus-theme-subtle-green)))
+ `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow)))
+ `(anzu-mode-line ((,class :inherit bold :foreground ,green-active)))
+ `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active)))
+ `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t)))
+ `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold))))
+;;;;; apropos
+ `(apropos-function-button ((,class :inherit button
+ ,@(modus-themes--link-color
+ magenta-alt-other magenta-alt-other-faint))))
+ `(apropos-keybinding ((,class :inherit bold :foreground ,cyan)))
+ `(apropos-misc-button ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan-alt-other cyan-alt-other-faint))))
+ `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt)))
+ `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other)))
+ `(apropos-user-option-button ((,class :inherit button
+ ,@(modus-themes--link-color
+ green-alt-other green-alt-other-faint))))
+ `(apropos-variable-button ((,class :inherit button
+ ,@(modus-themes--link-color
+ blue blue-faint))))
+;;;;; apt-sources-list
+ `(apt-sources-list-components ((,class :foreground ,cyan)))
+ `(apt-sources-list-options ((,class :foreground ,yellow)))
+ `(apt-sources-list-suite ((,class :foreground ,green)))
+ `(apt-sources-list-type ((,class :foreground ,magenta)))
+ `(apt-sources-list-uri ((,class :foreground ,blue)))
+;;;;; artbollocks-mode
+ `(artbollocks-face ((,class :foreground ,cyan-nuanced-fg :underline ,fg-lang-note)))
+ `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
+ `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced-fg :underline ,fg-lang-warning)))
+ `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced-fg :underline ,fg-lang-error)))
+;;;;; auctex and Tex
+ `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm)))
+ `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other)))
+ `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm)))
+ `(font-latex-math-face ((,class :foreground ,cyan-alt-other)))
+ `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other)))
+ `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg)))
+ `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg)))
+ `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg)))
+ `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg)))
+ `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg)))
+ `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg)))
+ `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other)))
+ `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(font-latex-string-face ((,class :inherit font-lock-string-face)))
+ `(font-latex-subscript-face ((,class :height 0.95)))
+ `(font-latex-superscript-face ((,class :height 0.95)))
+ `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
+ `(font-latex-warning-face ((,class :inherit font-lock-warning-face)))
+ `(tex-match ((,class :foreground ,blue-alt-other)))
+ `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild)))
+ `(texinfo-heading ((,class :foreground ,magenta)))
+ `(TeX-error-description-error ((,class :inherit error)))
+ `(TeX-error-description-help ((,class :foreground ,blue)))
+ `(TeX-error-description-tex-said ((,class :foreground ,blue)))
+ `(TeX-error-description-warning ((,class :inherit warning)))
+;;;;; auto-dim-other-buffers
+ `(auto-dim-other-buffers-face ((,class :background ,bg-alt)))
+;;;;; avy
+ `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
+ `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold))))
+ `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold))))
+ `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold))))
+ `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold))))
+ `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold))))
+;;;;; aw (ace-window)
+ `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim)))
+ `(aw-key-face ((,class :inherit bold :foreground ,blue-intense)))
+ `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense)))
+ `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active)))
+ `(aw-mode-line-face ((,class :inherit bold)))
+;;;;; awesome-tray
+ `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other)))
+ `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other)))
+ `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt)))
+ `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim)))
+ `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt)))
+ `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta)))
+ `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow)))
+ `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green)))
+ `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan)))
+ `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other)))
+;;;;; binder
+ `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan)))
+ `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel)))
+ `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red)))
+ `(binder-sidebar-tags ((,class :foreground ,cyan)))
+;;;;; bm
+ `(bm-face ((,class :inherit modus-theme-subtle-yellow
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow)))
+ `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue)))
+ `(bm-persistent-face ((,class :inherit modus-theme-intense-blue
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+;;;;; bongo
+ `(bongo-album-title ((,class :foreground ,cyan-active)))
+ `(bongo-artist ((,class :foreground ,magenta-active)))
+ `(bongo-currently-playing-track ((,class :inherit bold)))
+ `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t)))
+ `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
+ `(bongo-marked-track ((,class :foreground ,fg-mark-alt)))
+ `(bongo-marked-track-line ((,class :background ,bg-mark-alt)))
+ `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t)))
+ `(bongo-track-length ((,class :foreground ,blue-alt-other)))
+ `(bongo-track-title ((,class :foreground ,blue-active)))
+ `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main)))
+;;;;; boon
+ `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue)))
+ `(boon-modeline-ins ((,class :inherit modus-theme-active-red)))
+ `(boon-modeline-off ((,class :inherit modus-theme-active-yellow)))
+ `(boon-modeline-spc ((,class :inherit modus-theme-active-green)))
+;;;;; breakpoint (built-in gdb-mi.el)
+ `(breakpoint-disabled ((,class :foreground ,fg-alt)))
+ `(breakpoint-enabled ((,class :inherit bold :foreground ,red)))
+;;;;; buffer-expose
+ `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active)))
+ `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active)))
+ `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild)))
+;;;;; calendar and diary
+ `(calendar-month-header ((,class :inherit bold :foreground ,fg-main)))
+ `(calendar-today ((,class :underline t)))
+ `(calendar-weekday-header ((,class :foreground ,fg-dim)))
+ `(calendar-weekend-header ((,class :foreground ,fg-alt)))
+ `(diary ((,class :background ,green-nuanced-bg :foreground ,cyan-alt-other)))
+ `(diary-anniversary ((,class :foreground ,red-alt-other)))
+ `(diary-time ((,class :foreground ,blue-alt)))
+ `(holiday ((,class :inherit bold :background ,red-nuanced-bg :foreground ,yellow)))
+;;;;; calfw
+ `(cfw:face-annotation ((,class :foreground ,fg-special-warm)))
+ `(cfw:face-day-title ((,class :foreground ,fg-main)))
+ `(cfw:face-default-content ((,class :foreground ,green-alt)))
+ `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold))))
+ `(cfw:face-disable ((,class :foreground ,fg-unfocused)))
+ `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer)))
+ `(cfw:face-header ((,class :inherit bold :foreground ,fg-main)))
+ `(cfw:face-holiday ((,class :foreground ,magenta-alt-other)))
+ `(cfw:face-periods ((,class :foreground ,cyan-alt-other)))
+ `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(cfw:face-select ((,class :inherit modus-theme-intense-blue)))
+ `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(cfw:face-title ((,class :inherit modus-theme-variable-pitch
+ :foreground ,fg-special-cold
+ ,@(modus-themes--scale modus-themes-scale-5))))
+ `(cfw:face-today ((,class :background ,bg-inactive)))
+ `(cfw:face-today-title ((,class :background ,bg-active)))
+ `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt)))
+ `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt)))
+ `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg
+ :foreground ,blue-alt)))
+;;;;; centaur-tabs
+ `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active)))
+ `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t)))
+ `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected)))
+ `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected)))
+ `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected)))
+ `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected)))
+ `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main)))
+ `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main)))
+ `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main)))
+ `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim)))
+ `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim)))
+;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
+ `(change-log-acknowledgment ((,class :foreground ,green-alt-other-faint)))
+ `(change-log-conditionals ((,class :foreground ,magenta-alt)))
+ `(change-log-date ((,class :foreground ,magenta-faint)))
+ `(change-log-email ((,class :foreground ,blue)))
+ `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(change-log-function ((,class :foreground ,green-alt-other)))
+ `(change-log-list ((,class :foreground ,magenta-alt-other)))
+ `(change-log-name ((,class :foreground ,cyan)))
+ `(log-edit-header ((,class :foreground ,fg-special-warm)))
+ `(log-edit-summary ((,class :inherit bold :foreground ,blue)))
+ `(log-edit-unknown-header ((,class :foreground ,fg-alt)))
+ `(log-view-commit-body ((,class :background ,bg-dim :foreground ,fg-main :extend t)))
+ `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(log-view-message ((,class :foreground ,green-alt-other-faint)))
+;;;;; cider
+ `(cider-debug-code-overlay-face ((,class :background ,bg-alt)))
+ `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t)))
+ `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow)))
+ `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold)))
+ `(cider-docview-literal-face ((,class :foreground ,blue-alt)))
+ `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(cider-docview-table-border-face ((,class :foreground ,fg-alt)))
+ `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim)))
+ `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other)))
+ `(cider-error-highlight-face ((,class :foreground ,red :underline t)))
+ `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow)))
+ `(cider-fringe-good-face ((,class :foreground ,green-active)))
+ `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim)))
+ `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm)))
+ `(cider-repl-input-face ((,class :inherit bold)))
+ `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
+ `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red)))
+ `(cider-repl-stdout-face ((,class :foreground ,blue)))
+ `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim)))
+ `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red)))
+ `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other)))
+ `(cider-stacktrace-face ((,class :foreground ,fg-main)))
+ `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t)))
+ `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt)))
+ `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main)))
+ `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt)))
+ `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red)))
+ `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button)
+ :background ,bg-alt :foreground ,fg-alt)))
+ `(cider-test-error-face ((,class :inherit modus-theme-subtle-red)))
+ `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold))))
+ `(cider-test-success-face ((,class :inherit modus-theme-intense-green)))
+ `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim)))
+ `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t)))
+;;;;; circe (and lui)
+ `(circe-fool-face ((,class :foreground ,fg-alt)))
+ `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue)))
+ `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(circe-server-face ((,class :foreground ,fg-unfocused)))
+ `(lui-button-face ((,class :inherit button)))
+ `(lui-highlight-face ((,class :foreground ,magenta-alt)))
+ `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg)))
+;;;;; color-rg
+ `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other)))
+ `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main)))
+ `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue)))
+ `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm)))
+ `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active)))
+ `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active)))
+ `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active)))
+ `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active)))
+ `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm)))
+ `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue)))
+ `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red)))
+ `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm)))
+ `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt)))
+;;;;; column-enforce-mode
+ `(column-enforce-face ((,class :inherit modus-theme-refine-yellow)))
+;;;;; company-mode
+ `(company-echo-common ((,class :foreground ,magenta-alt-other)))
+ `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim)))
+ `(company-preview-common ((,class :foreground ,blue-alt)))
+ `(company-preview-search ((,class :inherit modus-theme-special-calm)))
+ `(company-scrollbar-bg ((,class :background ,bg-active)))
+ `(company-scrollbar-fg ((,class :background ,fg-active)))
+ `(company-template-field ((,class :inherit modus-theme-intense-magenta)))
+ `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt)))
+ `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main)))
+ `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt)))
+ `(company-tooltip-common-selection ((,class :foreground ,fg-main)))
+ `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue)))
+ `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold))))
+ `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t)))
+ `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold))))
+;;;;; company-posframe
+ `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active)))
+ `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active)))
+ `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+;;;;; compilation feedback
+ `(compilation-column-number ((,class :foreground ,magenta-alt-other)))
+ `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red)))
+ `(compilation-info ((,class :foreground ,fg-special-cold)))
+ `(compilation-line-number ((,class :foreground ,fg-special-warm)))
+ `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active)))
+ `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active)))
+ `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active)))
+ `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow)))
+;;;;; completions
+ `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint)))
+ `(completions-common-part ((,class ,@(modus-themes--standard-completions
+ blue-alt blue-nuanced-bg
+ cyan-refine-bg cyan-refine-fg))))
+ `(completions-first-difference ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ magenta-alt blue-nuanced-bg
+ magenta-intense-bg fg-main))))
+;;;;; consult
+ `(consult-bookmark ((,class :foreground ,blue)))
+ `(consult-file ((,class :foreground ,magenta-alt-other)))
+ `(consult-lighter ((,class :foreground ,fg-alt)))
+ `(consult-off ((,class :inherit error)))
+ `(consult-on ((,class :inherit success)))
+ `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue)))
+ `(consult-preview-line ((,class :inherit modus-theme-special-mild)))
+ `(consult-view ((,class :inherit bold :foreground ,fg-special-warm)))
+;;;;; counsel
+ `(counsel-active-mode ((,class :foreground ,magenta-alt-other)))
+ `(counsel-application-name ((,class :foreground ,red-alt-other)))
+ `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(counsel-outline-1 ((,class :inherit outline-1)))
+ `(counsel-outline-2 ((,class :inherit outline-2)))
+ `(counsel-outline-3 ((,class :inherit outline-3)))
+ `(counsel-outline-4 ((,class :inherit outline-4)))
+ `(counsel-outline-5 ((,class :inherit outline-5)))
+ `(counsel-outline-6 ((,class :inherit outline-6)))
+ `(counsel-outline-7 ((,class :inherit outline-7)))
+ `(counsel-outline-8 ((,class :inherit outline-8)))
+ `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other)))
+ `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other)))
+;;;;; counsel-css
+ `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue)))
+ `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan)))
+ `(counsel-css-selector-depth-face-3 ((,class :foreground ,green)))
+ `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow)))
+ `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta)))
+ `(counsel-css-selector-depth-face-6 ((,class :foreground ,red)))
+;;;;; counsel-notmuch
+ `(counsel-notmuch-count-face ((,class :foreground ,cyan)))
+ `(counsel-notmuch-date-face ((,class :foreground ,blue)))
+ `(counsel-notmuch-people-face ((,class :foreground ,magenta)))
+ `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other)))
+;;;;; counsel-org-capture-string
+ `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold)))
+;;;;; cov
+ `(cov-coverage-not-run-face ((,class :foreground ,red-intense)))
+ `(cov-coverage-run-face ((,class :foreground ,green-intense)))
+ `(cov-heavy-face ((,class :foreground ,magenta-intense)))
+ `(cov-light-face ((,class :foreground ,blue-intense)))
+ `(cov-med-face ((,class :foreground ,yellow-intense)))
+ `(cov-none-face ((,class :foreground ,cyan-intense)))
+;;;;; cperl-mode
+ `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other)))
+ `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt)))
+ `(cperl-hash-face ((,class :inherit (bold modus-theme-slant) :background ,bg-alt :foreground ,red-alt)))
+;;;;; csv-mode
+ `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
+;;;;; ctrlf
+ `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold))))
+ `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line)))
+ `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan)))
+;;;;; custom (M-x customize)
+ `(custom-button ((,class :box (:line-width 2 :color nil :style released-button)
+ :background ,bg-active :foreground ,fg-main)))
+ `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button)
+ :background ,bg-active :foreground ,fg-active)))
+ `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button)
+ :background ,bg-active :foreground ,fg-main)))
+ `(custom-changed ((,class :inherit modus-theme-subtle-cyan)))
+ `(custom-comment ((,class :foreground ,fg-alt)))
+ `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other)))
+ `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense)))
+ `(custom-group-tag ((,class :inherit bold :foreground ,green-intense)))
+ `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm)))
+ `(custom-invalid ((,class :inherit (modus-theme-intense-red bold))))
+ `(custom-modified ((,class :inherit modus-theme-subtle-cyan)))
+ `(custom-rogue ((,class :inherit modus-theme-refine-magenta)))
+ `(custom-set ((,class :foreground ,blue-alt)))
+ `(custom-state ((,class :foreground ,cyan-alt-other)))
+ `(custom-themed ((,class :inherit modus-theme-subtle-blue)))
+ `(custom-variable-tag ((,class :inherit bold :foreground ,cyan)))
+;;;;; dap-mode
+ `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil)
+ :background ,bg-active :foreground ,fg-main)))
+ `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil)
+ :background ,bg-active :foreground ,fg-main)))
+ `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active)))
+ `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense)))
+ `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t)))
+ `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan)))
+ `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other)))
+ `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue)))
+ `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt)))
+ `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt)))
+ `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt)))
+;;;;; dashboard (emacs-dashboard)
+ `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild)))
+ `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm)))
+ `(dashboard-navigator ((,class :foreground ,cyan-alt-other)))
+ `(dashboard-text-banner ((,class :foreground ,fg-dim)))
+;;;;; deadgrep
+ `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(deadgrep-match-face ((,class :inherit modus-theme-special-calm)))
+ `(deadgrep-meta-face ((,class :foreground ,fg-alt)))
+ `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense)))
+ `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense)))
+;;;;; debbugs
+ `(debbugs-gnu-archived ((,class :inverse-video t)))
+ `(debbugs-gnu-done ((,class :foreground ,fg-alt)))
+ `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm)))
+ `(debbugs-gnu-handled ((,class :foreground ,green)))
+ `(debbugs-gnu-new ((,class :foreground ,red)))
+ `(debbugs-gnu-pending ((,class :foreground ,cyan)))
+ `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg)))
+ `(debbugs-gnu-stale-2 ((,class :foreground ,yellow)))
+ `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt)))
+ `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other)))
+ `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt)))
+ `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt)))
+;;;;; define-word
+ `(define-word-face-1 ((,class :foreground ,yellow)))
+ `(define-word-face-2 ((,class :foreground ,fg-main)))
+;;;;; deft
+ `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red)))
+ `(deft-filter-string-face ((,class :foreground ,green-intense)))
+ `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm)))
+ `(deft-separator-face ((,class :foreground ,fg-alt)))
+ `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+ `(deft-time-face ((,class :foreground ,fg-special-cold)))
+ `(deft-title-face ((,class :inherit bold :foreground ,fg-main)))
+;;;;; dictionary
+ `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other)))
+ `(dictionary-word-definition-face ((,class :foreground ,fg-main)))
+ `(dictionary-word-entry-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+;;;;; diff-hl
+ `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow)))
+ `(diff-hl-delete ((,class :inherit modus-theme-fringe-red)))
+ `(diff-hl-dired-change ((,class :inherit diff-hl-change)))
+ `(diff-hl-dired-delete ((,class :inherit diff-hl-delete)))
+ `(diff-hl-dired-ignored ((,class :inherit dired-ignored)))
+ `(diff-hl-dired-insert ((,class :inherit diff-hl-insert)))
+ `(diff-hl-dired-unknown ((,class :inherit dired-ignored)))
+ `(diff-hl-insert ((,class :inherit modus-theme-fringe-green)))
+ `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold))))
+;;;;; diff-mode
+ `(diff-added ((,class :inherit modus-theme-diff-added)))
+ `(diff-changed ((,class :inherit modus-theme-diff-changed)))
+ `(diff-context ((,class :foreground ,fg-unfocused)))
+ `(diff-error ((,class :inherit modus-theme-intense-red)))
+ `(diff-file-header ((,class :inherit bold :foreground ,fg-main)))
+ `(diff-function ((,class :foreground ,blue)))
+ `(diff-header ((,class :background ,bg-dim :foreground ,fg-main)))
+ `(diff-hunk-header ((,class :inherit modus-theme-diff-heading)))
+ `(diff-index ((,class :inherit bold :foreground ,blue-alt)))
+ `(diff-indicator-added ((,class :inherit (diff-added bold) :foreground ,green)))
+ `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow)))
+ `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red)))
+ `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold))))
+ `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
+ `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
+ `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed)))
+ `(diff-removed ((,class :inherit modus-theme-diff-removed)))
+;;;;; dim-autoload
+ `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face)))
+;;;;; dir-treeview
+ `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm)))
+ `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow)))
+ `(dir-treeview-audio-face ((,class :foreground ,magenta)))
+ `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt)))
+ `(dir-treeview-control-face ((,class :foreground ,fg-alt)))
+ `(dir-treeview-control-mouse-face ((,class :inherit highlight)))
+ `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt)))
+ `(dir-treeview-default-filename-face ((,class :foreground ,fg-main)))
+ `(dir-treeview-directory-face ((,class :foreground ,blue)))
+ `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt)))
+ `(dir-treeview-executable-face ((,class :foreground ,red-alt)))
+ `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other)))
+ `(dir-treeview-image-face ((,class :foreground ,green-alt-other)))
+ `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt)))
+ `(dir-treeview-indent-face ((,class :foreground ,fg-alt)))
+ `(dir-treeview-label-mouse-face ((,class :inherit highlight)))
+ `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header)))
+ `(dir-treeview-symlink-face ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan cyan-faint))))
+ `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other)))
+ `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other)))
+;;;;; dired
+ `(dired-broken-symlink ((,class :inherit button :foreground ,red)))
+ `(dired-directory ((,class :foreground ,blue)))
+ `(dired-flagged ((,class :inherit modus-theme-mark-del)))
+ `(dired-header ((,class :inherit modus-theme-pseudo-header)))
+ `(dired-ignored ((,class :foreground ,fg-alt)))
+ `(dired-mark ((,class :inherit modus-theme-mark-symbol)))
+ `(dired-marked ((,class :inherit modus-theme-mark-sel)))
+ `(dired-perm-write ((,class :foreground ,fg-special-warm)))
+ `(dired-symlink ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan-alt cyan-alt-faint))))
+ `(dired-warning ((,class :inherit bold :foreground ,yellow)))
+;;;;; dired-async
+ `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active)))
+ `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active)))
+ `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active)))
+;;;;; dired-git
+ `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt)))
+ `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other)))
+;;;;; dired-git-info
+ `(dgi-commit-message-face ((,class :foreground ,fg-special-mild)))
+;;;;; dired-narrow
+ `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold))))
+;;;;; dired-subtree
+ ;; remove background from dired-subtree, else it breaks
+ ;; dired-{flagged,marked} and any other face that sets a background
+ ;; such as hl-line
+ `(dired-subtree-depth-1-face ((,class :background nil)))
+ `(dired-subtree-depth-2-face ((,class :background nil)))
+ `(dired-subtree-depth-3-face ((,class :background nil)))
+ `(dired-subtree-depth-4-face ((,class :background nil)))
+ `(dired-subtree-depth-5-face ((,class :background nil)))
+ `(dired-subtree-depth-6-face ((,class :background nil)))
+;;;;; diredfl
+ `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold)))
+ `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm)))
+ `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt)))
+ `(diredfl-date-time ((,class :foreground ,cyan-alt-other)))
+ `(diredfl-deletion ((,class :inherit modus-theme-mark-del)))
+ `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del)))
+ `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header)))
+ `(diredfl-dir-name ((,class :inherit dired-directory)))
+ `(diredfl-dir-priv ((,class :foreground ,blue-alt)))
+ `(diredfl-exec-priv ((,class :foreground ,magenta)))
+ `(diredfl-executable-tag ((,class :foreground ,magenta-alt)))
+ `(diredfl-file-name ((,class :foreground ,fg-main)))
+ `(diredfl-file-suffix ((,class :foreground ,cyan)))
+ `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel)))
+ `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel)))
+ `(diredfl-ignored-file-name ((,class :foreground ,fg-alt)))
+ `(diredfl-link-priv ((,class :foreground ,blue-alt-other)))
+ `(diredfl-no-priv ((,class :foreground ,fg-alt)))
+ `(diredfl-number ((,class :foreground ,cyan-alt)))
+ `(diredfl-other-priv ((,class :foreground ,yellow)))
+ `(diredfl-rare-priv ((,class :foreground ,red-alt)))
+ `(diredfl-read-priv ((,class :foreground ,fg-main)))
+ `(diredfl-symlink ((,class :inherit dired-symlink)))
+ `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta)))
+ `(diredfl-write-priv ((,class :foreground ,cyan)))
+;;;;; disk-usage
+ `(disk-usage-children ((,class :foreground ,yellow)))
+ `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red)))
+ `(disk-usage-percent ((,class :foreground ,green)))
+ `(disk-usage-size ((,class :foreground ,cyan)))
+ `(disk-usage-symlink ((,class :inherit button)))
+ `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt)))
+;;;;; doom-modeline
+ `(doom-modeline-bar ((,class :inherit modus-theme-active-blue)))
+ `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main)))
+ `(doom-modeline-battery-charging ((,class :foreground ,green-active)))
+ `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active)))
+ `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2)
+ :foreground ,red-active)))
+ `(doom-modeline-battery-full ((,class :foreground ,blue-active)))
+ `(doom-modeline-battery-normal ((,class :foreground ,fg-active)))
+ `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active)))
+ `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active)))
+ `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active)))
+ `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive)))
+ `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active)))
+ `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active)))
+ `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active)))
+ `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active)))
+ `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active)))
+ `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active)))
+ `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive)))
+ `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active)))
+ `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active)))
+ `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active)))
+ `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active)))
+ `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active)))
+ `(doom-modeline-host ((,class :inherit italic)))
+ `(doom-modeline-info ((,class :foreground ,green-active)))
+ `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active)))
+ `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active)))
+ `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active)))
+ `(doom-modeline-panel ((,class :inherit modus-theme-active-blue)))
+ `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active)))
+ `(doom-modeline-persp-name ((,class :foreground ,fg-active)))
+ `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active)))
+ `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active)))
+ `(doom-modeline-project-root-dir ((,class :foreground ,fg-active)))
+ `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active)))
+ `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active)))
+ `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active)))
+;;;;; dynamic-ruler
+ `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral)))
+ `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow)))
+;;;;; easy-jekyll
+ `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other)))
+;;;;; easy-kill
+ `(easy-kill-origin ((,class :inherit modus-theme-subtle-red)))
+ `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow)))
+;;;;; ebdb
+ `(ebdb-address-default ((,class :foreground ,fg-main)))
+ `(ebdb-db-char ((,class :foreground ,fg-special-cold)))
+ `(ebdb-defunct ((,class :foreground ,fg-alt)))
+ `(ebdb-field-hidden ((,class :foreground ,magenta)))
+ `(ebdb-field-url ((,class :foreground ,blue)))
+ `(ebdb-label ((,class :foreground ,cyan-alt-other)))
+ `(ebdb-mail-default ((,class :foreground ,fg-main)))
+ `(ebdb-mail-primary ((,class :foreground ,blue-alt)))
+ `(ebdb-marked ((,class :background ,cyan-intense-bg)))
+ `(ebdb-organization-name ((,class :foreground ,fg-special-calm)))
+ `(ebdb-person-name ((,class :foreground ,magenta-alt-other)))
+ `(ebdb-phone-default ((,class :foreground ,fg-special-warm)))
+ `(ebdb-role-defunct ((,class :foreground ,fg-alt)))
+ `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt)))
+;;;;; ediff
+ ;; NOTE: here we break from the pattern of inheriting from the
+ ;; modus-theme-diff-* faces.
+ `(ediff-current-diff-A ((,class ,@(modus-themes--diff
+ bg-dim red
+ bg-diff-removed fg-diff-removed
+ red-nuanced-bg red-faint))))
+ `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff
+ bg-dim fg-special-cold
+ bg-special-cold fg-special-cold
+ blue-nuanced-bg blue))))
+ `(ediff-current-diff-B ((,class ,@(modus-themes--diff
+ bg-dim green
+ bg-diff-added fg-diff-added
+ green-nuanced-bg green-faint))))
+ `(ediff-current-diff-C ((,class ,@(modus-themes--diff
+ bg-dim yellow
+ bg-diff-changed fg-diff-changed
+ yellow-nuanced-bg yellow-faint))))
+ `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
+ `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1)))
+ `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
+ `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
+ `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed)))
+ `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan)))
+ `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added)))
+ `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed)))
+ `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
+ `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0)))
+ `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
+ `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
+;;;;; eglot
+ `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active)))
+;;;;; el-search
+ `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt)))
+ `(el-search-match ((,class :inherit modus-theme-intense-green)))
+ `(el-search-other-match ((,class :inherit modus-theme-special-mild)))
+ `(el-search-occur-match ((,class :inherit modus-theme-special-calm)))
+;;;;; eldoc
+ ;; NOTE: see https://github.com/purcell/package-lint/issues/187
+ (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other)))
+;;;;; eldoc-box
+ `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main)))
+ `(eldoc-box-border ((,class :background ,fg-alt)))
+;;;;; elfeed
+ `(elfeed-log-date-face ((,class :foreground ,cyan-alt)))
+ `(elfeed-log-debug-level-face ((,class :foreground ,magenta)))
+ `(elfeed-log-error-level-face ((,class :foreground ,red)))
+ `(elfeed-log-info-level-face ((,class :foreground ,green)))
+ `(elfeed-log-warn-level-face ((,class :foreground ,yellow)))
+ `(elfeed-search-date-face ((,class :foreground ,blue-nuanced-fg)))
+ `(elfeed-search-feed-face ((,class :foreground ,cyan)))
+ `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active)))
+ `(elfeed-search-last-update-face ((,class :foreground ,cyan-active)))
+ `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced-fg)))
+ `(elfeed-search-title-face ((,class :foreground ,fg-dim)))
+ `(elfeed-search-unread-count-face ((,class :foreground ,green-active)))
+ `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main)))
+;;;;; elfeed-score
+ `(elfeed-score-date-face ((,class :foreground ,blue)))
+ `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other)))
+ `(elfeed-score-error-level-face ((,class :foreground ,red)))
+ `(elfeed-score-info-level-face ((,class :foreground ,cyan)))
+ `(elfeed-score-warn-level-face ((,class :foreground ,yellow)))
+;;;;; emms
+ `(emms-playlist-track-face ((,class :foreground ,blue)))
+ `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta)))
+;;;;; enhanced-ruby-mode
+ `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other)))
+ `(enh-ruby-op-face ((,class :foreground ,fg-main)))
+ `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green)))
+ `(enh-ruby-regexp-face ((,class :foreground ,magenta)))
+ `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt)))
+ `(erm-syn-errline ((,class :foreground ,red :underline t)))
+ `(erm-syn-warnline ((,class :foreground ,yellow :underline t)))
+;;;;; epa
+ `(epa-field-body ((,class :foreground ,fg-main)))
+ `(epa-field-name ((,class :inherit bold :foreground ,fg-dim)))
+ `(epa-mark ((,class :inherit bold :foreground ,magenta)))
+ `(epa-string ((,class :foreground ,blue-alt)))
+ `(epa-validity-disabled ((,class :inherit modus-theme-refine-red)))
+ `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other)))
+ `(epa-validity-low ((,class :foreground ,fg-alt)))
+ `(epa-validity-medium ((,class :foreground ,green-alt)))
+;;;;; equake
+ `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main)))
+ `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active)))
+ `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active)))
+ `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active)))
+ `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active)))
+ `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active)))
+ `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt)))
+ `(equake-tab-inactive ((,class :foreground ,fg-inactive)))
+;;;;; erc
+ `(erc-action-face ((,class :inherit bold :foreground ,cyan)))
+ `(erc-bold-face ((,class :inherit bold)))
+ `(erc-button ((,class :inherit button)))
+ `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt)))
+ `(erc-current-nick-face ((,class :foreground ,magenta-alt-other)))
+ `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red)))
+ `(erc-direct-msg-face ((,class :foreground ,magenta)))
+ `(erc-error-face ((,class :inherit bold :foreground ,red)))
+ `(erc-fool-face ((,class :foreground ,fg-inactive)))
+ `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header)))
+ `(erc-input-face ((,class :foreground ,fg-special-calm)))
+ `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t)))
+ `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt)))
+ `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta)))
+ `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face)))
+ `(erc-nick-default-face ((,class :inherit bold :foreground ,blue)))
+ `(erc-nick-msg-face ((,class :inherit bold :foreground ,green)))
+ `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face)))
+ `(erc-notice-face ((,class :foreground ,fg-unfocused)))
+ `(erc-pal-face ((,class :inherit bold :foreground ,red-alt)))
+ `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg)))
+ `(erc-underline-face ((,class :underline t)))
+ `(bg:erc-color-face0 ((,class :background "white")))
+ `(bg:erc-color-face1 ((,class :background "black")))
+ `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg)))
+ `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg)))
+ `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg)))
+ `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg)))
+ `(bg:erc-color-face14 ((,class :background "gray60")))
+ `(bg:erc-color-face15 ((,class :background "gray80")))
+ `(bg:erc-color-face2 ((,class :background ,blue-intense-bg)))
+ `(bg:erc-color-face3 ((,class :background ,green-intense-bg)))
+ `(bg:erc-color-face4 ((,class :background ,red-subtle-bg)))
+ `(bg:erc-color-face5 ((,class :background ,red-intense-bg)))
+ `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg)))
+ `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg)))
+ `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg)))
+ `(bg:erc-color-face9 ((,class :background ,green-subtle-bg)))
+ `(fg:erc-color-face0 ((,class :foreground "white")))
+ `(fg:erc-color-face1 ((,class :foreground "black")))
+ `(fg:erc-color-face10 ((,class :foreground ,cyan)))
+ `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other)))
+ `(fg:erc-color-face12 ((,class :foreground ,blue)))
+ `(fg:erc-color-face13 ((,class :foreground ,magenta-alt)))
+ `(fg:erc-color-face14 ((,class :foreground "gray60")))
+ `(fg:erc-color-face15 ((,class :foreground "gray80")))
+ `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other)))
+ `(fg:erc-color-face3 ((,class :foreground ,green)))
+ `(fg:erc-color-face4 ((,class :foreground ,red)))
+ `(fg:erc-color-face5 ((,class :foreground ,red-alt)))
+ `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other)))
+ `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other)))
+ `(fg:erc-color-face8 ((,class :foreground ,yellow-alt)))
+ `(fg:erc-color-face9 ((,class :foreground ,green-alt-other)))
+;;;;; eros
+ `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue)
+ :background ,bg-dim :foreground ,fg-dim)))
+;;;;; ert
+ `(ert-test-result-expected ((,class :inherit modus-theme-intense-green)))
+ `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red)))
+;;;;; eshell
+ `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt)))
+ `(eshell-ls-backup ((,class :foreground ,yellow-alt)))
+ `(eshell-ls-clutter ((,class :foreground ,red-alt)))
+ `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt)))
+ `(eshell-ls-executable ((,class :foreground ,magenta-alt)))
+ `(eshell-ls-missing ((,class :inherit modus-theme-intense-red)))
+ `(eshell-ls-product ((,class :foreground ,fg-special-warm)))
+ `(eshell-ls-readonly ((,class :foreground ,fg-special-cold)))
+ `(eshell-ls-special ((,class :inherit bold :foreground ,magenta)))
+ `(eshell-ls-symlink ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan cyan-faint))))
+ `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+ `(eshell-prompt ((,class :inherit modus-theme-bold
+ ,@(modus-themes--prompt
+ green-alt-other
+ green-nuanced-bg green-alt
+ green-refine-bg fg-main))))
+;;;;; eshell-fringe-status
+ `(eshell-fringe-status-failure ((,class :foreground ,red)))
+ `(eshell-fringe-status-success ((,class :foreground ,green)))
+;;;;; eshell-git-prompt
+ `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt)))
+ `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt)))
+ `(eshell-git-prompt-directory-face ((,class :foreground ,cyan)))
+ `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red)))
+ `(eshell-git-prompt-exit-success-face ((,class :foreground ,green)))
+ `(eshell-git-prompt-modified-face ((,class :foreground ,yellow)))
+ `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg)))
+ `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg)))
+ `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg)))
+ `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red)))
+ `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow)))
+ `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue)))
+;;;;; eshell-prompt-extras (epe)
+ `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue)))
+ `(epe-git-dir-face ((,class :foreground ,red-alt-other)))
+ `(epe-git-face ((,class :foreground ,cyan-alt)))
+ `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt)))
+ `(epe-pipeline-host-face ((,class :foreground ,blue)))
+ `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm)))
+ `(epe-pipeline-user-face ((,class :foreground ,magenta)))
+ `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+ `(epe-status-face ((,class :foreground ,magenta-alt-other)))
+ `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+;;;;; eshell-syntax-highlighting
+ `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan)))
+ `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt)))
+ `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue)))
+ `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt)))
+ `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red)))
+ `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta)))
+ `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other)))
+ `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt)))
+;;;;; evil-mode
+ `(evil-ex-commands ((,class :foreground ,magenta-alt-other)))
+ `(evil-ex-info ((,class :foreground ,cyan-alt-other)))
+ `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
+ `(evil-ex-search ((,class :inherit modus-theme-intense-green)))
+ `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t)))
+ `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold))))
+;;;;; evil-goggles
+ `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow)))
+ `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant))))
+ `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral)))
+ `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red)))
+ `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face)))
+ `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face)))
+ `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green)))
+ `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face)))
+ `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan)))
+ `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold)))
+ `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta)))
+ `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta)))
+ `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face)))
+ `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face)))
+ `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue)))
+;;;;; evil-visual-mark-mode
+ `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta)))
+;;;;; eww
+ `(eww-invalid-certificate ((,class :foreground ,red-active)))
+ `(eww-valid-certificate ((,class :foreground ,green-active)))
+ `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main)))
+ `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main)))
+ `(eww-form-select ((,class :inherit eww-form-checkbox)))
+ `(eww-form-submit ((,class :inherit eww-form-file)))
+ `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active)))
+ `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main)))
+;;;;; eyebrowse
+ `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active)))
+;;;;; fancy-dabbrev
+ `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt)))
+ `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t)))
+ `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold))))
+;;;;; flycheck
+ `(flycheck-error
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-error :style wave))
+ (,class :foreground ,fg-lang-error :underline t)))
+ `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active)))
+ `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold)))
+ `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red)))
+ `(flycheck-error-list-filename ((,class :foreground ,blue)))
+ `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line)))
+ `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other)))
+ `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t)))
+ `(flycheck-error-list-info ((,class :foreground ,cyan)))
+ `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm)))
+ `(flycheck-error-list-warning ((,class :foreground ,yellow)))
+ `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red)))
+ `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan)))
+ `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow)))
+ `(flycheck-info
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-note :style wave))
+ (,class :foreground ,fg-lang-note :underline t)))
+ `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button))))
+ `(flycheck-warning
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-warning :style wave))
+ (,class :foreground ,fg-lang-warning :underline t)))
+;;;;; flycheck-color-mode-line
+ `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error)))
+ `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info)))
+ `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive)))
+ `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning)))
+;;;;; flycheck-indicator
+ `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive)))
+ `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active)))
+ `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active)))
+ `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active)))
+ `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active)))
+ `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active)))
+;;;;; flycheck-posframe
+ `(flycheck-posframe-background-face ((,class :background ,bg-alt)))
+ `(flycheck-posframe-border-face ((,class :foreground ,fg-alt)))
+ `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red)))
+ `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main)))
+ `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan)))
+ `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow)))
+;;;;; flymake
+ `(flymake-error
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-error :style wave))
+ (,class :foreground ,fg-lang-error :underline t)))
+ `(flymake-note
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-note :style wave))
+ (,class :foreground ,fg-lang-note :underline t)))
+ `(flymake-warning
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-warning :style wave))
+ (,class :foreground ,fg-lang-warning :underline t)))
+;;;;; flyspell
+ `(flyspell-duplicate
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-warning :style wave))
+ (,class :foreground ,fg-lang-warning :underline t)))
+ `(flyspell-incorrect
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-error :style wave))
+ (,class :foreground ,fg-lang-error :underline t)))
+;;;;; flyspell-correct
+ `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green)))
+;;;;; flx
+ `(flx-highlight-face ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-intense-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt
+ 'bold))))
+;;;;; freeze-it
+ `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm)))
+;;;;; frog-menu
+ `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other)))
+ `(frog-menu-actions-face ((,class :foreground ,magenta)))
+ `(frog-menu-border ((,class :background ,bg-active)))
+ `(frog-menu-candidates-face ((,class :foreground ,fg-main)))
+ `(frog-menu-posframe-background-face ((,class :background ,bg-dim)))
+ `(frog-menu-prompt-face ((,class :foreground ,cyan)))
+;;;;; focus
+ `(focus-unfocused ((,class :foreground ,fg-unfocused)))
+;;;;; fold-this
+ `(fold-this-overlay ((,class :inherit modus-theme-special-mild)))
+;;;;; font-lock
+ `(font-lock-builtin-face ((,class :inherit modus-theme-bold
+ ,@(modus-themes--syntax-extra
+ magenta-alt magenta-alt-faint magenta-alt-other))))
+ `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face)))
+ `(font-lock-comment-face ((,class :inherit modus-theme-slant
+ ,@(modus-themes--syntax-comment
+ fg-alt fg-comment-yellow))))
+ `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra
+ blue-alt-other blue-alt-other-faint magenta-alt))))
+ `(font-lock-doc-face ((,class :inherit modus-theme-slant
+ ,@(modus-themes--syntax-docstring
+ fg-docstring cyan-alt-other-faint green-alt-faint blue-alt-other-faint))))
+ `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra
+ magenta magenta-faint red-alt-other))))
+ `(font-lock-keyword-face ((,class :inherit modus-theme-bold
+ ,@(modus-themes--syntax-extra
+ magenta-alt-other magenta-alt-other-faint cyan-alt-other))))
+ `(font-lock-negation-char-face ((,class :inherit modus-theme-bold
+ ,@(modus-themes--syntax-foreground
+ yellow yellow-faint))))
+ `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground
+ red-alt-other red-alt-other-faint))))
+ `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
+ `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
+ `(font-lock-string-face ((,class ,@(modus-themes--syntax-string
+ blue-alt blue-alt-faint green green))))
+ `(font-lock-type-face ((,class :inherit modus-theme-bold
+ ,@(modus-themes--syntax-extra
+ cyan-alt-other magenta-alt-faint magenta-alt))))
+ `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra
+ cyan cyan-faint blue))))
+ `(font-lock-warning-face ((,class :inherit modus-theme-bold
+ ,@(modus-themes--syntax-foreground
+ yellow-active yellow-alt-faint))))
+;;;;; forge
+ `(forge-post-author ((,class :inherit bold :foreground ,fg-main)))
+ `(forge-post-date ((,class :foreground ,fg-special-cold)))
+ `(forge-topic-closed ((,class :foreground ,fg-alt)))
+ `(forge-topic-merged ((,class :foreground ,fg-alt)))
+ `(forge-topic-open ((,class :foreground ,fg-special-mild)))
+ `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta)))
+ `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main)))
+;;;;; fountain-mode
+ `(fountain-character ((,class :foreground ,blue-alt-other)))
+ `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+ `(fountain-dialog ((,class :foreground ,blue-alt)))
+ `(fountain-metadata-key ((,class :foreground ,green-alt-other)))
+ `(fountain-metadata-value ((,class :foreground ,blue)))
+ `(fountain-non-printing ((,class :foreground ,fg-alt)))
+ `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow)))
+ `(fountain-page-break ((,class :inherit bold :foreground ,red-alt)))
+ `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other)))
+ `(fountain-paren ((,class :foreground ,cyan)))
+ `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg)))
+ `(fountain-section-heading ((,class :inherit modus-theme-heading-1)))
+ `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1)))
+ `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2)))
+ `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3)))
+ `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4)))
+ `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5)))
+ `(fountain-synopsis ((,class :foreground ,cyan-alt)))
+ `(fountain-trans ((,class :foreground ,yellow-alt-other)))
+;;;;; geiser
+ `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face)))
+ `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face)))
+ `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring)))
+ `(geiser-font-lock-doc-link ((,class :inherit button)))
+ `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red)))
+ `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt)))
+ `(geiser-font-lock-repl-input ((,class :inherit bold)))
+ `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face)))
+ `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt)))
+ `(geiser-font-lock-xref-header ((,class :inherit bold)))
+ `(geiser-font-lock-xref-link ((,class :inherit button)))
+;;;;; git-commit
+ `(git-commit-comment-action ((,class :inherit font-lock-comment-face)))
+ `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt)))
+ `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt)))
+ `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt)))
+ `(git-commit-comment-file ((,class :inherit modus-theme-slant
+ ,@(modus-themes--syntax-comment
+ fg-special-cold red-nuanced-fg))))
+ `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant)
+ ,@(modus-themes--syntax-comment
+ fg-dim fg-special-warm))))
+ `(git-commit-keyword ((,class :foreground ,magenta)))
+ `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other)))
+ `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow)))
+ `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow)))
+ `(git-commit-pseudo-header ((,class :foreground ,blue)))
+ `(git-commit-summary ((,class :inherit bold :foreground ,cyan)))
+;;;;; git-gutter
+ `(git-gutter:added ((,class :inherit modus-theme-fringe-green)))
+ `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red)))
+ `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow)))
+ `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan)))
+ `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta)))
+;;;;; git-gutter-fr
+ `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green)))
+ `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red)))
+ `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow)))
+;;;;; git-{gutter,fringe}+
+ `(git-gutter+-added ((,class :inherit modus-theme-fringe-green)))
+ `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red)))
+ `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow)))
+ `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan)))
+ `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta)))
+ `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green)))
+ `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red)))
+ `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow)))
+;;;;; git-lens
+ `(git-lens-added ((,class :inherit bold :foreground ,green)))
+ `(git-lens-deleted ((,class :inherit bold :foreground ,red)))
+ `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan)))
+ `(git-lens-modified ((,class :inherit bold :foreground ,yellow)))
+ `(git-lens-renamed ((,class :inherit bold :foreground ,magenta)))
+;;;;; git-rebase
+ `(git-rebase-comment-hash ((,class :inherit modus-theme-slant
+ ,@(modus-themes--syntax-comment
+ fg-special-cold red-nuanced-fg))))
+ `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant)
+ ,@(modus-themes--syntax-comment
+ fg-dim fg-special-warm))))
+ `(git-rebase-description ((,class :foreground ,fg-main)))
+ `(git-rebase-hash ((,class :foreground ,cyan-alt-other)))
+;;;;; git-timemachine
+ `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active)))
+ `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm)))
+ `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt)))
+;;;;; git-walktree
+ `(git-walktree-commit-face ((,class :foreground ,yellow)))
+ `(git-walktree-symlink-face ((,class :inherit button)))
+ `(git-walktree-tree-face ((,class :foreground ,magenta)))
+;;;;; gnus
+ `(gnus-button ((,class :inherit button)))
+ `(gnus-cite-1 ((,class :foreground ,blue-alt)))
+ `(gnus-cite-10 ((,class :foreground ,magenta-alt-other)))
+ `(gnus-cite-11 ((,class :foreground ,yellow-alt-other)))
+ `(gnus-cite-2 ((,class :foreground ,red-alt)))
+ `(gnus-cite-3 ((,class :foreground ,green-alt)))
+ `(gnus-cite-4 ((,class :foreground ,magenta-alt)))
+ `(gnus-cite-5 ((,class :foreground ,yellow-alt)))
+ `(gnus-cite-6 ((,class :foreground ,cyan-alt)))
+ `(gnus-cite-7 ((,class :foreground ,blue-alt-other)))
+ `(gnus-cite-8 ((,class :foreground ,red-alt-other)))
+ `(gnus-cite-9 ((,class :foreground ,green-alt-other)))
+ `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main)))
+ `(gnus-emphasis-bold ((,class :inherit bold)))
+ `(gnus-emphasis-bold-italic ((,class :inherit bold-italic)))
+ `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow)))
+ `(gnus-emphasis-italic ((,class :inherit italic)))
+ `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t)))
+ `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t)))
+ `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t)))
+ `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt)))
+ `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt)))
+ `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta)))
+ `(gnus-group-mail-2-empty ((,class :foreground ,magenta)))
+ `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other)))
+ `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg)))
+ `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg)))
+ `(gnus-group-news-1 ((,class :inherit bold :foreground ,green)))
+ `(gnus-group-news-1-empty ((,class :foreground ,green)))
+ `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan)))
+ `(gnus-group-news-2-empty ((,class :foreground ,cyan)))
+ `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg)))
+ `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg)))
+ `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg)))
+ `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg)))
+ `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg)))
+ `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg)))
+ `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt)))
+ `(gnus-group-news-6-empty ((,class :foreground ,fg-alt)))
+ `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg)))
+ `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg)))
+ `(gnus-header-content ((,class :foreground ,cyan)))
+ `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil)))
+ `(gnus-header-name ((,class :foreground ,green)))
+ `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt)))
+ `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(gnus-server-agent ((,class :inherit bold :foreground ,cyan)))
+ `(gnus-server-closed ((,class :inherit bold :foreground ,magenta)))
+ `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt)))
+ `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan)))
+ `(gnus-server-denied ((,class :inherit bold :foreground ,red)))
+ `(gnus-server-offline ((,class :inherit bold :foreground ,yellow)))
+ `(gnus-server-opened ((,class :inherit bold :foreground ,green)))
+ `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold)))
+ `(gnus-splash ((,class :foreground ,fg-alt)))
+ `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt)))
+ `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt)))
+ `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other)))
+ `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow)))
+ `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main)))
+ `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt)))
+ `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt)))
+ `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg)))
+ `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg)))
+ `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm)))
+ `(gnus-summary-normal-read ((,class :foreground ,fg-alt)))
+ `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other)))
+ `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow)))
+ `(gnus-summary-normal-unread ((,class :foreground ,fg-main)))
+ `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue)))
+;;;;; golden-ratio-scroll-screen
+ `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
+;;;;; helm
+ `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(helm-action ((,class :underline t)))
+ `(helm-bookmark-addressbook ((,class :foreground ,green-alt)))
+ `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue)))
+ `(helm-bookmark-file ((,class :foreground ,fg-main)))
+ `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt)))
+ `(helm-bookmark-gnus ((,class :foreground ,magenta)))
+ `(helm-bookmark-info ((,class :foreground ,cyan-alt)))
+ `(helm-bookmark-man ((,class :foreground ,yellow-alt)))
+ `(helm-bookmark-w3m ((,class :foreground ,blue-alt)))
+ `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan)))
+ `(helm-buffer-directory ((,class :inherit bold :foreground ,blue)))
+ `(helm-buffer-file ((,class :foreground ,fg-main)))
+ `(helm-buffer-modified ((,class :foreground ,yellow-alt)))
+ `(helm-buffer-not-saved ((,class :foreground ,red-alt)))
+ `(helm-buffer-process ((,class :foreground ,magenta)))
+ `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red)))
+ `(helm-buffer-size ((,class :foreground ,fg-alt)))
+ `(helm-candidate-number ((,class :foreground ,cyan-active)))
+ `(helm-candidate-number-suspended ((,class :foreground ,yellow-active)))
+ `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active)))
+ `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active)))
+ `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active)))
+ `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main)))
+ `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active)))
+ `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active)))
+ `(helm-etags-file ((,class :foreground ,fg-dim :underline t)))
+ `(helm-ff-backup-file ((,class :foreground ,fg-alt)))
+ `(helm-ff-denied ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-red
+ 'modus-theme-intense-red
+ 'modus-theme-nuanced-red
+ red))))
+ `(helm-ff-directory ((,class :inherit helm-buffer-directory)))
+ `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt)))
+ `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory))))
+ `(helm-ff-executable ((,class :foreground ,magenta-alt)))
+ `(helm-ff-file ((,class :foreground ,fg-main)))
+ `(helm-ff-file-extension ((,class :foreground ,fg-special-warm)))
+ `(helm-ff-invalid-symlink ((,class :inherit button
+ ,@(modus-themes--link-color
+ red red-faint))))
+ `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-refine-magenta
+ 'modus-theme-subtle-magenta
+ 'modus-theme-nuanced-magenta
+ magenta))))
+ `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-refine-yellow
+ 'modus-theme-subtle-yellow
+ 'modus-theme-nuanced-yellow
+ yellow-alt-other))))
+ `(helm-ff-socket ((,class :foreground ,red-alt-other)))
+ `(helm-ff-suid ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-red
+ 'modus-theme-refine-red
+ 'modus-theme-nuanced-yellow
+ red-alt))))
+ `(helm-ff-symlink ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan cyan-faint))))
+ `(helm-ff-truename ((,class :foreground ,blue-alt-other)))
+ `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other)))
+ `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(helm-grep-finish ((,class :foreground ,green-active)))
+ `(helm-grep-lineno ((,class :foreground ,fg-special-warm)))
+ `(helm-grep-match ((,class :inherit modus-theme-special-calm)))
+ `(helm-header ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense)))
+ `(helm-history-deleted ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-red
+ 'modus-theme-intense-red
+ 'modus-theme-nuanced-red
+ red
+ 'bold))))
+ `(helm-history-remote ((,class :foreground ,red-alt-other)))
+ `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm)))
+ `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-yellow
+ 'modus-theme-refine-yellow
+ 'modus-theme-nuanced-yellow
+ yellow
+ 'bold))))
+ `(helm-locate-finish ((,class :foreground ,green-active)))
+ `(helm-match ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-cyan
+ 'modus-theme-refine-cyan
+ 'modus-theme-nuanced-cyan
+ cyan
+ 'bold))))
+ `(helm-match-item ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-neutral
+ 'modus-theme-subtle-cyan
+ 'modus-theme-nuanced-cyan
+ cyan-alt-other))))
+ `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt)))
+ `(helm-moccur-buffer ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan-alt-other cyan-alt-other-faint))))
+ `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-intense-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt
+ 'bold))))
+ `(helm-non-file-buffer ((,class :foreground ,fg-alt)))
+ `(helm-prefarg ((,class :foreground ,red-active)))
+ `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-refine-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt-other))))
+ `(helm-selection ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-blue
+ 'modus-theme-refine-blue
+ 'modus-theme-special-cold
+ nil
+ 'bold))))
+ `(helm-selection-line ((,class :inherit modus-theme-special-cold)))
+ `(helm-separator ((,class :foreground ,fg-special-mild)))
+ `(helm-time-zone-current ((,class :foreground ,green)))
+ `(helm-time-zone-home ((,class :foreground ,magenta)))
+ `(helm-source-header ((,class :inherit bold :foreground ,red-alt
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(helm-top-columns ((,class :inherit helm-header)))
+ `(helm-ucs-char ((,class :foreground ,yellow-alt-other)))
+ `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan)))
+;;;;; helm-ls-git
+ `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense)))
+ `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense)))
+ `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense)))
+ `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg)))
+ `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red)))
+ `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg)))
+ `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow)))
+ `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta)))
+ `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold)))
+;;;;; helm-switch-shell
+ `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-refine-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt-other
+ 'bold))))
+;;;;; helm-xref
+ `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(helm-xref-file-name ((,class :foreground ,fg-special-warm)))
+;;;;; helpful
+ `(helpful-heading ((,class :inherit modus-theme-heading-1)))
+;;;;; highlight region or ad-hoc regexp
+ `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main)))
+ `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t)))
+ `(hi-blue-b ((,class :inherit modus-theme-intense-blue)))
+ `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t)))
+ `(hi-green-b ((,class :inherit modus-theme-intense-green)))
+ `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t)))
+ `(hi-red-b ((,class :inherit modus-theme-intense-red)))
+ `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t)))
+ `(highlight ((,class :inherit modus-theme-subtle-blue)))
+ `(highlight-changes ((,class :foreground ,yellow-alt-other)))
+ `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t)))
+ `(hl-line ((,class :inherit modus-theme-hl-line)))
+;;;;; highlight-blocks
+ `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main)))
+ `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main)))
+ `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main)))
+ `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main)))
+ `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main)))
+ `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main)))
+ `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main)))
+ `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main)))
+ `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main)))
+;;;;; highlight-defined
+ `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta)))
+ `(highlight-defined-face-name-face ((,class :foreground ,fg-main)))
+ `(highlight-defined-function-name-face ((,class :foreground ,magenta)))
+ `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt)))
+ `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other)))
+ `(highlight-defined-variable-name-face ((,class :foreground ,cyan)))
+;;;;; highlight-escape-sequences (`hes-mode')
+ `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct)))
+ `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
+;;;;; highlight-indentation
+ `(highlight-indentation-face ((,class :inherit modus-theme-hl-line)))
+ `(highlight-indentation-current-column-face ((,class :background ,bg-active)))
+;;;;; highlight-numbers
+ `(highlight-numbers-number ((,class :foreground ,blue-alt-other)))
+;;;;; highlight-symbol
+ `(highlight-symbol-face ((,class :inherit modus-theme-special-mild)))
+;;;;; highlight-thing
+ `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan)))
+;;;;; hl-defined
+ `(hdefd-functions ((,class :foreground ,blue)))
+ `(hdefd-undefined ((,class :foreground ,red-alt)))
+ `(hdefd-variables ((,class :foreground ,cyan-alt)))
+;;;;; hl-fill-column
+ `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active)))
+;;;;; hl-todo
+ `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other)))
+;;;;; hydra
+ `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow)))
+ `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt)))
+ `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt)))
+ `(hydra-face-red ((,class :inherit bold :foreground ,red)))
+ `(hydra-face-teal ((,class :inherit bold :foreground ,cyan)))
+;;;;; hyperlist
+ `(hyperlist-condition ((,class :foreground ,green)))
+ `(hyperlist-hashtag ((,class :foreground ,yellow)))
+ `(hyperlist-operator ((,class :foreground ,blue-alt)))
+ `(hyperlist-paren ((,class :foreground ,cyan-alt-other)))
+ `(hyperlist-quote ((,class :foreground ,cyan-alt)))
+ `(hyperlist-ref ((,class :foreground ,magenta-alt-other)))
+ `(hyperlist-stars ((,class :foreground ,fg-alt)))
+ `(hyperlist-tag ((,class :foreground ,red)))
+ `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main)))
+;;;;; icomplete
+ `(icomplete-first-match ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ magenta bg-alt
+ bg-active fg-main))))
+;;;;; icomplete-vertical
+ `(icomplete-vertical-separator ((,class :foreground ,fg-alt)))
+;;;;; ido-mode
+ `(ido-first-match ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ magenta bg-alt
+ bg-active fg-main))))
+ `(ido-incomplete-regexp ((,class :inherit error)))
+ `(ido-indicator ((,class :inherit modus-theme-subtle-yellow)))
+ `(ido-only-match ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ green green-nuanced-bg
+ green-intense-bg fg-main))))
+ `(ido-subdir ((,class :foreground ,blue)))
+ `(ido-virtual ((,class :foreground ,fg-special-warm)))
+;;;;; iedit
+ `(iedit-occurrence ((,class :inherit modus-theme-refine-blue)))
+ `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow)))
+;;;;; iflipb
+ `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt)))
+ `(iflipb-other-buffer-face ((,class :foreground ,fg-alt)))
+;;;;; imenu-list
+ `(imenu-list-entry-face-0 ((,class :foreground ,cyan)))
+ `(imenu-list-entry-face-1 ((,class :foreground ,blue)))
+ `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other)))
+ `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt)))
+ `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t)))
+ `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t)))
+ `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t)))
+ `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t)))
+;;;;; indium
+ `(indium-breakpoint-face ((,class :foreground ,red-active)))
+ `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt)))
+ `(indium-keyword-face ((,class :foreground ,magenta-alt-other)))
+ `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm)))
+ `(indium-repl-error-face ((,class :inherit bold :foreground ,red)))
+ `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other)))
+ `(indium-repl-stdout-face ((,class :foreground ,fg-main)))
+;;;;; info
+ `(Info-quoted ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,magenta))) ; the capitalization is canonical
+ `(info-header-node ((,class :inherit bold :foreground ,fg-alt)))
+ `(info-header-xref ((,class :foreground ,blue-active)))
+ `(info-index-match ((,class :inherit match)))
+ `(info-menu-header ((,class :inherit modus-theme-heading-3)))
+ `(info-menu-star ((,class :foreground ,red)))
+ `(info-node ((,class :inherit bold)))
+ `(info-title-1 ((,class :inherit modus-theme-heading-1)))
+ `(info-title-2 ((,class :inherit modus-theme-heading-2)))
+ `(info-title-3 ((,class :inherit modus-theme-heading-3)))
+ `(info-title-4 ((,class :inherit modus-theme-heading-4)))
+;;;;; info-colors
+ `(info-colors-lisp-code-block ((,class :inherit fixed-pitch)))
+ `(info-colors-ref-item-command ((,class :foreground ,magenta)))
+ `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other)))
+ `(info-colors-ref-item-function ((,class :foreground ,magenta)))
+ `(info-colors-ref-item-macro ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other)))
+ `(info-colors-ref-item-other ((,class :foreground ,cyan)))
+ `(info-colors-ref-item-special-form ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other)))
+ `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta)))
+ `(info-colors-ref-item-type ((,class :foreground ,magenta-alt)))
+ `(info-colors-ref-item-user-option ((,class :foreground ,cyan)))
+ `(info-colors-ref-item-variable ((,class :foreground ,cyan)))
+;;;;; interaction-log
+ `(ilog-buffer-face ((,class :foreground ,magenta-alt-other)))
+ `(ilog-change-face ((,class :foreground ,magenta-alt)))
+ `(ilog-echo-face ((,class :foreground ,yellow-alt-other)))
+ `(ilog-load-face ((,class :foreground ,green)))
+ `(ilog-message-face ((,class :foreground ,fg-alt)))
+ `(ilog-non-change-face ((,class :foreground ,blue)))
+;;;;; ioccur
+ `(ioccur-cursor ((,class :foreground ,fg-main)))
+ `(ioccur-invalid-regexp ((,class :foreground ,red)))
+ `(ioccur-match-face ((,class :inherit modus-theme-special-calm)))
+ `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
+ :inherit modus-theme-special-cold)))
+ `(ioccur-num-line-face ((,class :foreground ,fg-special-warm)))
+ `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
+ :inherit modus-theme-refine-blue)))
+ `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold))))
+ `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt
+ ,@(modus-themes--scale modus-themes-scale-4))))
+;;;;; isearch, occur, and the like
+ `(isearch ((,class :inherit (modus-theme-intense-green bold))))
+ `(isearch-fail ((,class :inherit modus-theme-refine-red)))
+ `(isearch-group-1 ((,class :inherit modus-theme-intense-blue)))
+ `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta)))
+ `(lazy-highlight ((,class :inherit modus-theme-refine-cyan)))
+ `(match ((,class :inherit modus-theme-special-calm)))
+ `(query-replace ((,class :inherit (modus-theme-intense-yellow bold))))
+;;;;; ivy
+ `(ivy-action ((,class :inherit bold :foreground ,red-alt)))
+ `(ivy-completions-annotations ((,class :inherit completions-annotations)))
+ `(ivy-confirm-face ((,class :foreground ,cyan)))
+ `(ivy-current-match ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-refine-cyan
+ 'modus-theme-intense-cyan
+ 'modus-theme-special-cold
+ nil
+ 'bold))))
+ `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main)))
+ `(ivy-grep-info ((,class :foreground ,cyan-alt)))
+ `(ivy-grep-line-number ((,class :foreground ,fg-special-warm)))
+ `(ivy-highlight-face ((,class :foreground ,magenta)))
+ `(ivy-match-required-face ((,class :inherit error)))
+ `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-neutral
+ 'modus-theme-intense-neutral
+ 'modus-theme-nuanced-cyan
+ fg-alt))))
+ `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-green
+ 'modus-theme-refine-green
+ 'modus-theme-nuanced-green
+ green-alt-other
+ 'bold))))
+ `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-blue
+ 'modus-theme-refine-blue
+ 'modus-theme-nuanced-blue
+ blue-alt-other
+ 'bold))))
+ `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-refine-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt-other
+ 'bold))))
+ `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-cyan
+ 'modus-theme-intense-cyan
+ 'modus-theme-nuanced-cyan
+ cyan-alt-other
+ 'bold))))
+ `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow)))
+ `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt)))
+ `(ivy-org ((,class :foreground ,cyan-alt-other)))
+ `(ivy-prompt-match ((,class :inherit ivy-current-match)))
+ `(ivy-remote ((,class :foreground ,magenta)))
+ `(ivy-separator ((,class :foreground ,fg-alt)))
+ `(ivy-subdir ((,class :foreground ,blue-alt-other)))
+ `(ivy-virtual ((,class :foreground ,magenta-alt-other)))
+ `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-blue
+ 'modus-theme-refine-blue
+ 'modus-theme-nuanced-blue
+ blue-alt))))
+;;;;; ivy-posframe
+ `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main)))
+ `(ivy-posframe-border ((,class :background ,fg-window-divider-inner)))
+ `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main)))
+;;;;; jira (org-jira)
+ `(jiralib-comment-face ((,class :background ,bg-alt)))
+ `(jiralib-comment-header-face ((,class :inherit bold)))
+ `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm)))
+ `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold))))
+ `(jiralib-issue-summary-face ((,class :inherit bold)))
+ `(jiralib-link-filter-face ((,class :underline t)))
+ `(jiralib-link-issue-face ((,class :underline t)))
+ `(jiralib-link-project-face ((,class :underline t)))
+;;;;; journalctl-mode
+ `(journalctl-error-face ((,class :inherit bold :foreground ,red)))
+ `(journalctl-finished-face ((,class :inherit bold :foreground ,green)))
+ `(journalctl-host-face ((,class :foreground ,blue)))
+ `(journalctl-process-face ((,class :foreground ,cyan-alt-other)))
+ `(journalctl-starting-face ((,class :foreground ,green)))
+ `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold)))
+ `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow)))
+;;;;; js2-mode
+ `(js2-error ((,class :foreground ,red)))
+ `(js2-external-variable ((,class :foreground ,cyan-alt-other)))
+ `(js2-function-call ((,class :foreground ,magenta)))
+ `(js2-function-param ((,class :foreground ,blue)))
+ `(js2-instance-member ((,class :foreground ,magenta-alt-other)))
+ `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main)))
+ `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan)))
+ `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm)))
+ `(js2-jsdoc-type ((,class :foreground ,fg-special-cold)))
+ `(js2-jsdoc-value ((,class :foreground ,fg-special-warm)))
+ `(js2-object-property ((,class :foreground ,fg-main)))
+ `(js2-object-property-access ((,class :foreground ,fg-main)))
+ `(js2-private-function-call ((,class :foreground ,green-alt-other)))
+ `(js2-private-member ((,class :foreground ,fg-special-mild)))
+ `(js2-warning ((,class :foreground ,yellow-alt :underline t)))
+;;;;; julia
+ `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta)))
+ `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other)))
+;;;;; jupyter
+ `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue)))
+ `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other)))
+ `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other)))
+ `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red)))
+;;;;; kaocha-runner
+ `(kaocha-runner-error-face ((,class :foreground ,red)))
+ `(kaocha-runner-success-face ((,class :foreground ,green)))
+ `(kaocha-runner-warning-face ((,class :foreground ,yellow)))
+;;;;; keycast
+ `(keycast-command ((,class :inherit bold :foreground ,blue-active)))
+ `(keycast-key ((,class ,@(modus-themes--mode-line-attrs
+ bg-main blue-active
+ bg-main blue-active
+ blue-active blue-intense
+ 'alt-style -3))))
+;;;;; line numbers (display-line-numbers-mode and global variant)
+ `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt)))
+ `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main)))
+ `(line-number-major-tick ((,class :inherit (bold default)
+ :background ,yellow-nuanced-bg
+ :foreground ,yellow-nuanced-fg)))
+ `(line-number-minor-tick ((,class :inherit (bold default)
+ :background ,bg-inactive
+ :foreground ,fg-inactive)))
+;;;;; lsp-mode
+ `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t)))
+ `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue)))
+ `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold))))
+ `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other)))
+ `(lsp-face-semhl-deprecated
+ ((,(append '((supports :underline (:style wave))) class)
+ :foreground ,yellow :underline (:style wave))
+ (,class :foreground ,yellow :underline t)))
+ `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other)))
+ `(lsp-face-semhl-field ((,class :foreground ,cyan-alt)))
+ `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt)))
+ `(lsp-face-semhl-function ((,class :foreground ,magenta)))
+ `(lsp-face-semhl-method ((,class :foreground ,magenta)))
+ `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt)))
+ `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other)))
+ `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta)))
+ `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt)))
+ `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt)))
+ `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt)))
+ `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt)))
+ `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt)))
+ `(lsp-face-semhl-variable ((,class :foreground ,cyan)))
+ `(lsp-face-semhl-variable-local ((,class :foreground ,cyan)))
+ `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other)))
+ `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt)))
+ `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t)))
+ `(lsp-ui-doc-background ((,class :background ,bg-alt)))
+ `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header)))
+ `(lsp-ui-doc-url ((,class :inherit button)))
+ `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm)))
+ `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header)))
+ `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header)))
+ `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue)))
+ `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt)))
+ `(lsp-ui-peek-list ((,class :background ,bg-dim)))
+ `(lsp-ui-peek-peek ((,class :background ,bg-alt)))
+ `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan)))
+ `(lsp-ui-sideline-code-action ((,class :foreground ,yellow)))
+ `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main)))
+ `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt)))
+ `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99)))
+;;;;; macrostep
+ `(macrostep-compiler-macro-face ((,class :inherit italic)))
+ `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg)))
+ `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t)))
+ `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t)))
+ `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t)))
+ `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t)))
+ `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t)))
+ `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt)))
+;;;;; magit
+ `(magit-bisect-bad ((,class :foreground ,red-alt-other)))
+ `(magit-bisect-good ((,class :foreground ,green-alt-other)))
+ `(magit-bisect-skip ((,class :foreground ,yellow-alt-other)))
+ `(magit-blame-date ((,class :foreground ,blue)))
+ `(magit-blame-dimmed ((,class :foreground ,fg-alt)))
+ `(magit-blame-hash ((,class :foreground ,fg-special-warm)))
+ `(magit-blame-heading ((,class :background ,bg-alt)))
+ `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan)))
+ `(magit-blame-margin ((,class :inherit magit-blame-highlight)))
+ `(magit-blame-name ((,class :foreground ,magenta-alt-other)))
+ `(magit-blame-summary ((,class :foreground ,cyan-alt-other)))
+ `(magit-branch-current ((,class :foreground ,blue-alt-other :box t)))
+ `(magit-branch-local ((,class :foreground ,blue-alt)))
+ `(magit-branch-remote ((,class :foreground ,magenta-alt)))
+ `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t)))
+ `(magit-branch-upstream ((,class :inherit italic)))
+ `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense)))
+ `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense)))
+ ;; NOTE: here we break from the pattern of inheriting from the
+ ;; modus-theme-diff-* faces, though only for the standard actions,
+ ;; not the highlighted ones. This is because Magit's interaction
+ ;; model relies on highlighting the current diff hunk.
+ `(magit-diff-added ((,class ,@(modus-themes--diff
+ bg-main green
+ bg-diff-added fg-diff-added
+ green-nuanced-bg fg-diff-added))))
+ `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added)))
+ `(magit-diff-base ((,class ,@(modus-themes--diff
+ bg-main yellow
+ bg-diff-changed fg-diff-changed
+ yellow-nuanced-bg fg-diff-changed))))
+ `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed)))
+ `(magit-diff-context ((,class :foreground ,fg-unfocused)))
+ `(magit-diff-context-highlight ((,class ,@(modus-themes--diff
+ bg-dim fg-dim
+ bg-inactive fg-inactive
+ bg-dim fg-alt))))
+ `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold))))
+ `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan)))
+ ;; NOTE: here we break from the pattern of inheriting from the
+ ;; modus-theme-diff-* faces.
+ `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active
+ :foreground ,fg-inactive)))
+ `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading
+ :foreground ,fg-diff-heading)))
+ `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue)))
+ `(magit-diff-hunk-region ((,class :inherit bold)))
+ `(magit-diff-lines-boundary ((,class :background ,fg-main)))
+ `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta)))
+ `(magit-diff-removed ((,class ,@(modus-themes--diff
+ bg-main red
+ bg-diff-removed fg-diff-removed
+ red-nuanced-bg fg-diff-removed))))
+ `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed)))
+ `(magit-diffstat-added ((,class :foreground ,green)))
+ `(magit-diffstat-removed ((,class :foreground ,red)))
+ `(magit-dimmed ((,class :foreground ,fg-unfocused)))
+ `(magit-filename ((,class :foreground ,fg-special-cold)))
+ `(magit-hash ((,class :foreground ,fg-alt)))
+ `(magit-head ((,class :inherit magit-branch-local)))
+ `(magit-header-line ((,class :inherit bold :foreground ,magenta-active)))
+ `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active)))
+ `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main)))
+ `(magit-keyword ((,class :foreground ,magenta)))
+ `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other)))
+ `(magit-log-author ((,class :foreground ,cyan)))
+ `(magit-log-date ((,class :foreground ,fg-alt)))
+ `(magit-log-graph ((,class :foreground ,fg-dim)))
+ `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active)))
+ `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active)))
+ `(magit-process-ng ((,class :inherit error)))
+ `(magit-process-ok ((,class :inherit success)))
+ `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense)))
+ `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense)))
+ `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense)))
+ `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense)))
+ `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense)))
+ `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense)))
+ `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense)))
+ `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense)))
+ `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense)))
+ `(magit-refname ((,class :foreground ,fg-alt)))
+ `(magit-refname-pullreq ((,class :foreground ,fg-alt)))
+ `(magit-refname-stash ((,class :foreground ,fg-alt)))
+ `(magit-refname-wip ((,class :foreground ,fg-alt)))
+ `(magit-section ((,class :background ,bg-dim :foreground ,fg-main)))
+ `(magit-section-heading ((,class :inherit bold :foreground ,cyan)))
+ `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold))))
+ `(magit-section-highlight ((,class :background ,bg-alt)))
+ `(magit-sequence-done ((,class :foreground ,green-alt)))
+ `(magit-sequence-drop ((,class :foreground ,red-alt)))
+ `(magit-sequence-exec ((,class :foreground ,magenta-alt)))
+ `(magit-sequence-head ((,class :foreground ,cyan-alt)))
+ `(magit-sequence-onto ((,class :foreground ,fg-alt)))
+ `(magit-sequence-part ((,class :foreground ,yellow-alt)))
+ `(magit-sequence-pick ((,class :foreground ,blue-alt)))
+ `(magit-sequence-stop ((,class :foreground ,red)))
+ `(magit-signature-bad ((,class :inherit bold :foreground ,red)))
+ `(magit-signature-error ((,class :foreground ,red-alt)))
+ `(magit-signature-expired ((,class :foreground ,yellow)))
+ `(magit-signature-expired-key ((,class :foreground ,yellow)))
+ `(magit-signature-good ((,class :foreground ,green)))
+ `(magit-signature-revoked ((,class :foreground ,magenta)))
+ `(magit-signature-untrusted ((,class :foreground ,cyan)))
+ `(magit-tag ((,class :foreground ,yellow-alt-other)))
+;;;;; magit-imerge
+ `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt)))
+;;;;; make-mode (makefiles)
+ `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg)))
+ `(makefile-space ((,class :background ,magenta-nuanced-bg)))
+;;;;; man
+ `(Man-overstrike ((,class :inherit bold :foreground ,magenta)))
+ `(Man-reverse ((,class :inherit modus-theme-subtle-magenta)))
+ `(Man-underline ((,class :foreground ,cyan :underline t)))
+;;;;; markdown-mode
+ `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(markdown-bold-face ((,class :inherit bold)))
+ `(markdown-code-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
+ ,@(modus-themes--mixed-fonts)
+ :background ,bg-dim)))
+ `(markdown-comment-face ((,class :inherit font-lock-comment-face)))
+ `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt)))
+ `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main)))
+ `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other)))
+ `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim)))
+ `(markdown-header-face ((t nil)))
+ `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1)))
+ `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2)))
+ `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3)))
+ `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4)))
+ `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5)))
+ `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6)))
+ `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm)))
+ `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm)))
+ `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,cyan)))
+ `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,blue)))
+ `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,cyan)))
+ `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-special-mild)))
+ `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,magenta-alt)))
+ `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts)
+ :background ,bg-alt :foreground ,fg-special-calm)))
+ `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold)))
+ `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-special-cold)))
+ `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,green-alt-other)))
+ `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t)))
+ `(markdown-link-face ((,class :inherit button)))
+ `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(markdown-list-face ((,class :foreground ,fg-dim)))
+ `(markdown-markup-face ((,class :foreground ,fg-alt)))
+ `(markdown-math-face ((,class :foreground ,magenta-alt-other)))
+ `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other)))
+ `(markdown-metadata-value-face ((,class :foreground ,blue-alt)))
+ `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow)))
+ `(markdown-plain-url-face ((,class :inherit markdown-link-face)))
+ `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild)))
+ `(markdown-reference-face ((,class :inherit markdown-markup-face)))
+ `(markdown-strike-through-face ((,class :strike-through t)))
+ `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-special-cold)))
+ `(markdown-url-face ((,class :foreground ,blue-alt)))
+;;;;; markup-faces (`adoc-mode')
+ `(markup-anchor-face ((,class :foreground ,fg-inactive)))
+ `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive)))
+ `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg)))
+ `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg)))
+ `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta)))
+ `(markup-command-face ((,class :foreground ,fg-inactive)))
+ `(markup-comment-face ((,class :inherit font-lock-comment-face)))
+ `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button)
+ :inherit modus-theme-refine-magenta)))
+ `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold)))
+ `(markup-error-face ((,class :inherit bold :foreground ,red)))
+ `(markup-gen-face ((,class :foreground ,magenta-alt)))
+ `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt)))
+ `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold)))
+ `(markup-list-face ((,class :inherit modus-theme-special-calm)))
+ `(markup-meta-face ((,class :foreground ,fg-inactive)))
+ `(markup-meta-hide-face ((,class :foreground ,fg-alt)))
+ `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan)))
+ `(markup-preprocessor-face ((,class :foreground ,red-alt-other)))
+ `(markup-replacement-face ((,class :foreground ,yellow-alt-other)))
+ `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg)))
+ `(markup-small-face ((,class :height 0.8 :foreground ,fg-main)))
+ `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg)))
+ `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
+ `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold)))
+ `(markup-table-cell-face ((,class :inherit modus-theme-special-cold)))
+ `(markup-table-face ((,class :inherit modus-theme-subtle-cyan)))
+ `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan)))
+ `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg)))
+ `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg)))
+ `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg)))
+ `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg)))
+ `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg)))
+ `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t)))
+ `(markup-value-face ((,class :foreground ,fg-inactive)))
+ `(markup-verbatim-face ((,class :inherit modus-theme-special-mild)))
+;;;;; mentor
+ `(mentor-download-message ((,class :foreground ,fg-special-warm)))
+ `(mentor-download-name ((,class :foreground ,fg-special-cold)))
+ `(mentor-download-progress ((,class :foreground ,blue-alt-other)))
+ `(mentor-download-size ((,class :foreground ,magenta-alt-other)))
+ `(mentor-download-speed-down ((,class :foreground ,cyan-alt)))
+ `(mentor-download-speed-up ((,class :foreground ,red-alt)))
+ `(mentor-download-state ((,class :foreground ,yellow-alt)))
+ `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue)))
+ `(mentor-tracker-name ((,class :foreground ,magenta-alt)))
+;;;;; messages
+ `(message-cited-text-1 ((,class :foreground ,blue-alt)))
+ `(message-cited-text-2 ((,class :foreground ,red-alt)))
+ `(message-cited-text-3 ((,class :foreground ,green-alt)))
+ `(message-cited-text-4 ((,class :foreground ,magenta-alt)))
+ `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt)))
+ `(message-header-name ((,class :foreground ,green-alt-other)))
+ `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt)))
+ `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(message-header-to ((,class :inherit bold :foreground ,blue)))
+ `(message-header-xheader ((,class :foreground ,cyan)))
+ `(message-mml ((,class :foreground ,fg-special-warm)))
+ `(message-separator ((,class :inherit modus-theme-intense-neutral)))
+;;;;; minibuffer-line
+ `(minibuffer-line ((,class :foreground ,fg-main)))
+;;;;; minimap
+ `(minimap-active-region-background ((,class :background ,bg-active)))
+ `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main)))
+;;;;; modeline
+ `(mode-line ((,class ,@(modus-themes--mode-line-attrs
+ fg-active bg-active fg-dim bg-active
+ fg-alt bg-active 'alt-style nil bg-main))))
+ `(mode-line-buffer-id ((,class :inherit bold)))
+ `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active)))
+ `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button))))
+ `(mode-line-inactive ((,class ,@(modus-themes--mode-line-attrs
+ fg-inactive bg-inactive fg-alt bg-dim
+ bg-region bg-active))))
+;;;;; mood-line
+ `(mood-line-modified ((,class :foreground ,magenta-active)))
+ `(mood-line-status-error ((,class :inherit bold :foreground ,red-active)))
+ `(mood-line-status-info ((,class :foreground ,cyan-active)))
+ `(mood-line-status-neutral ((,class :foreground ,blue-active)))
+ `(mood-line-status-success ((,class :foreground ,green-active)))
+ `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active)))
+ `(mood-line-unimportant ((,class :foreground ,fg-inactive)))
+;;;;; mpdel
+ `(mpdel-browser-directory-face ((,class :foreground ,blue)))
+ `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other)))
+;;;;; mu4e
+ `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt)))
+ `(mu4e-cited-1-face ((,class :foreground ,blue-alt)))
+ `(mu4e-cited-2-face ((,class :foreground ,red-alt)))
+ `(mu4e-cited-3-face ((,class :foreground ,green-alt)))
+ `(mu4e-cited-4-face ((,class :foreground ,magenta-alt)))
+ `(mu4e-cited-5-face ((,class :foreground ,yellow-alt)))
+ `(mu4e-cited-6-face ((,class :foreground ,cyan-alt)))
+ `(mu4e-cited-7-face ((,class :foreground ,magenta)))
+ `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face)))
+ `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral)))
+ `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(mu4e-context-face ((,class :foreground ,blue-active)))
+ `(mu4e-draft-face ((,class :foreground ,magenta-alt)))
+ `(mu4e-flagged-face ((,class :foreground ,red-alt)))
+ `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other)))
+ `(mu4e-header-face ((,class :foreground ,fg-alt)))
+ `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line)))
+ `(mu4e-header-key-face ((,class :foreground ,cyan)))
+ `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt)))
+ `(mu4e-header-title-face ((,class :foreground ,fg-special-mild)))
+ `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(mu4e-link-face ((,class :inherit button)))
+ `(mu4e-modeline-face ((,class :foreground ,magenta-active)))
+ `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow)))
+ `(mu4e-ok-face ((,class :inherit bold :foreground ,green)))
+ `(mu4e-region-code ((,class :inherit modus-theme-special-calm)))
+ `(mu4e-replied-face ((,class :foreground ,blue-faint)))
+ `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del)))
+ `(mu4e-title-face ((,class :foreground ,fg-main)))
+ `(mu4e-trashed-face ((,class :foreground ,red)))
+ `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main)))
+ `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(mu4e-view-body-face ((,class :foreground ,fg-main)))
+ `(mu4e-warning-face ((,class :inherit warning)))
+;;;;; mu4e-conversation
+ `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold)))
+ `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm)))
+ `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold)))
+ `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild)))
+ `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt)))
+ `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg)))
+ `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg)))
+ `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg)))
+ `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg)))
+ `(mu4e-conversation-sender-me ((,class :foreground ,fg-main)))
+ `(mu4e-conversation-unread ((,class :inherit bold)))
+;;;;; multiple-cursors
+ `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main)))
+ `(mc/cursor-face ((,class :inverse-video t)))
+ `(mc/region-face ((,class :inherit region)))
+;;;;; neotree
+ `(neo-banner-face ((,class :foreground ,magenta)))
+ `(neo-button-face ((,class :inherit button)))
+ `(neo-dir-link-face ((,class :inherit bold :foreground ,blue)))
+ `(neo-expand-btn-face ((,class :foreground ,cyan)))
+ `(neo-file-link-face ((,class :foreground ,fg-main)))
+ `(neo-header-face ((,class :inherit bold :foreground ,fg-main)))
+ `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt)))
+ `(neo-vc-added-face ((,class :foreground ,green)))
+ `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red)))
+ `(neo-vc-default-face ((,class :foreground ,fg-main)))
+ `(neo-vc-edited-face ((,class :foreground ,yellow)))
+ `(neo-vc-ignored-face ((,class :foreground ,fg-inactive)))
+ `(neo-vc-missing-face ((,class :foreground ,red-alt)))
+ `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt)))
+ `(neo-vc-needs-update-face ((,class :underline t)))
+ `(neo-vc-removed-face ((,class :strike-through t)))
+ `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue)))
+ `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt)))
+ `(neo-vc-user-face ((,class :foreground ,magenta)))
+;;;;; no-emoji
+ `(no-emoji ((,class :foreground ,cyan)))
+;;;;; notmuch
+ `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta)))
+ `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other)))
+ `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red)))
+ `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green)))
+ `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow)))
+ `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red)))
+ `(notmuch-hello-logo-background ((,class :background ,bg-main)))
+ `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan)))
+ `(notmuch-search-flagged-face ((,class :foreground ,red-alt)))
+ `(notmuch-search-matching-authors ((,class :foreground ,fg-main)))
+ `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt)))
+ `(notmuch-search-unread-face ((,class :inherit bold)))
+ `(notmuch-tag-added
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,green :style wave))
+ (,class :foreground ,green :underline t)))
+ `(notmuch-tag-deleted
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,red :style wave))
+ (,class :foreground ,red :underline t)))
+ `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt)))
+ `(notmuch-tag-flagged ((,class :foreground ,red-alt)))
+ `(notmuch-tag-unread ((,class :foreground ,magenta-alt)))
+ `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold)))
+ `(notmuch-tree-match-face ((,class :foreground ,fg-main)))
+ `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt)))
+ `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt)))
+ `(notmuch-wash-cited-text ((,class :foreground ,cyan)))
+ `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt)))
+;;;;; num3-mode
+ `(num3-face-even ((,class :inherit bold :background ,bg-alt)))
+;;;;; nxml-mode
+ `(nxml-attribute-colon ((,class :foreground ,fg-main)))
+ `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face)))
+ `(nxml-attribute-prefix ((,class :inherit font-lock-type-face)))
+ `(nxml-attribute-value ((,class :inherit font-lock-constant-face)))
+ `(nxml-cdata-section-CDATA ((,class :inherit error)))
+ `(nxml-cdata-section-delimiter ((,class :inherit error)))
+ `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild)))
+ `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild)))
+ `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(nxml-delimiter ((,class :foreground ,fg-dim)))
+ `(nxml-element-colon ((,class :foreground ,fg-main)))
+ `(nxml-element-local-name ((,class :inherit font-lock-function-name-face)))
+ `(nxml-element-prefix ((,class :inherit font-lock-builtin-face)))
+ `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild)))
+ `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild)))
+ `(nxml-glyph ((,class :inherit modus-theme-intense-neutral)))
+ `(nxml-hash ((,class :inherit (bold font-lock-string-face))))
+ `(nxml-heading ((,class :inherit bold)))
+ `(nxml-name ((,class :inherit font-lock-builtin-face)))
+ `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main)))
+ `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face)))
+ `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face)))
+ `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face)))
+ `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild)))
+ `(rng-error ((,class :inherit error)))
+;;;;; objed
+ `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line
+ bg-hl-alt-intense bg-hl-alt))))
+ `(objed-mark ((,class :background ,bg-active)))
+ `(objed-mode-line ((,class :foreground ,cyan-active)))
+;;;;; orderless
+ `(orderless-match-face-0 ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ blue-alt-other blue-nuanced-bg
+ blue-refine-bg blue-refine-fg))))
+ `(orderless-match-face-1 ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ magenta-alt magenta-nuanced-bg
+ magenta-refine-bg magenta-refine-fg))))
+ `(orderless-match-face-2 ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ green green-nuanced-bg
+ green-refine-bg green-refine-fg))))
+ `(orderless-match-face-3 ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ yellow yellow-nuanced-bg
+ yellow-refine-bg yellow-refine-fg))))
+;;;;; org
+ `(org-agenda-calendar-event ((,class :foreground ,fg-main)))
+ `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt)))
+ `(org-agenda-clocking ((,class :inherit modus-theme-special-cold
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(org-agenda-column-dateline ((,class :background ,bg-alt)))
+ `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(org-agenda-date ((,class :foreground ,cyan)))
+ `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t)))
+ `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other)))
+ `(org-agenda-diary ((,class :foreground ,fg-main)))
+ `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt)))
+ `(org-agenda-done ((,class :foreground ,green-alt)))
+ `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active)))
+ `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active)))
+ `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active)))
+ `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active)))
+ `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim)))
+ `(org-agenda-structure ((,class :foreground ,blue-alt)))
+ `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt)))
+ `(org-block ((,class ,@(modus-themes--mixed-fonts)
+ ,@(modus-themes--org-block bg-dim)
+ :foreground ,fg-main)))
+ `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts)
+ ,@(modus-themes--org-block-delim
+ bg-dim fg-special-cold
+ bg-alt fg-special-mild))))
+ `(org-block-end-line ((,class :inherit org-block-begin-line)))
+ `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active)
+ :background ,bg-inactive :foreground ,fg-active)))
+ `(org-checkbox-statistics-done ((,class :inherit org-done)))
+ `(org-checkbox-statistics-todo ((,class :inherit org-todo)))
+ `(org-clock-overlay ((,class :inherit modus-theme-special-cold)))
+ `(org-code ((,class ,@(modus-themes--mixed-fonts) :foreground ,magenta)))
+ `(org-column ((,class :background ,bg-alt)))
+ `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt)))
+ `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts
+ 'button
+ '(button fixed-pitch))
+ ,@(modus-themes--link-color
+ cyan cyan-faint))))
+ `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t)))
+ `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt))))
+ `(org-document-info ((,class :foreground ,fg-special-cold)))
+ `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-alt)))
+ `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold
+ ,@(modus-themes--scale modus-themes-scale-5))))
+ `(org-done ((,class :foreground ,green)))
+ `(org-drawer ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-alt)))
+ `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's color
+ `(org-footnote ((,class :inherit button
+ ,@(modus-themes--link-color
+ blue-alt blue-alt-faint))))
+ `(org-formula ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,red-alt)))
+ `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow)))
+ `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow)))
+ `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta)))
+ `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta)))
+ `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red)))
+ `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red)))
+ `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue)))
+ `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue)))
+ `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg)))
+ `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg)))
+ `(org-hide ((,class :foreground ,bg-main)))
+ `(org-indent ((,class :inherit (fixed-pitch org-hide))))
+ `(org-latex-and-related ((,class :foreground ,magenta-refine-fg)))
+ `(org-level-1 ((,class :inherit modus-theme-heading-1)))
+ `(org-level-2 ((,class :inherit modus-theme-heading-2)))
+ `(org-level-3 ((,class :inherit modus-theme-heading-3)))
+ `(org-level-4 ((,class :inherit modus-theme-heading-4)))
+ `(org-level-5 ((,class :inherit modus-theme-heading-5)))
+ `(org-level-6 ((,class :inherit modus-theme-heading-6)))
+ `(org-level-7 ((,class :inherit modus-theme-heading-7)))
+ `(org-level-8 ((,class :inherit modus-theme-heading-8)))
+ `(org-link ((,class :inherit button)))
+ `(org-list-dt ((,class :inherit bold)))
+ `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other)))
+ `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt)))
+ `(org-mode-line-clock ((,class :foreground ,fg-main)))
+ `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red)))
+ `(org-priority ((,class :foreground ,magenta)))
+ `(org-property-value ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-special-cold)))
+ `(org-quote ((,class :inherit modus-theme-slant
+ ,@(modus-themes--org-block bg-dim)
+ :foreground ,fg-special-cold)))
+ `(org-scheduled ((,class :foreground ,fg-special-warm)))
+ `(org-scheduled-previously ((,class :foreground ,yellow-alt-other)))
+ `(org-scheduled-today ((,class :foreground ,magenta-alt-other)))
+ `(org-sexp-date ((,class :inherit org-date)))
+ `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-alt)))
+ `(org-table ((,class ,@(modus-themes--mixed-fonts)
+ :foreground ,fg-special-cold)))
+ `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral))))
+ `(org-tag ((,class :foreground ,magenta-nuanced-fg)))
+ `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg)))
+ `(org-target ((,class :underline t)))
+ `(org-time-grid ((,class :foreground ,fg-unfocused)))
+ `(org-todo ((,class :foreground ,red)))
+ `(org-upcoming-deadline ((,class :foreground ,red-alt-other)))
+ `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg)))
+ `(org-verbatim ((,class ,@(modus-themes--mixed-fonts)
+ :background ,bg-alt :foreground ,fg-special-calm)))
+ `(org-verse ((,class :inherit org-quote)))
+ `(org-warning ((,class :inherit bold :foreground ,red-alt-other)))
+;;;;; org-journal
+ `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other)))
+ `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other)))
+ `(org-journal-highlight ((,class :foreground ,magenta-alt)))
+;;;;; org-noter
+ `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active)))
+ `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active)))
+;;;;; org-pomodoro
+ `(org-pomodoro-mode-line ((,class :foreground ,red-active)))
+ `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active)))
+ `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active)))
+;;;;; org-recur
+ `(org-recur ((,class :foreground ,magenta-active)))
+;;;;; org-roam
+ `(org-roam-link ((,class :inherit button
+ ,@(modus-themes--link-color
+ green green-faint))))
+ `(org-roam-link-current ((,class :inherit button
+ ,@(modus-themes--link-color
+ green-alt green-alt-faint))))
+ `(org-roam-link-invalid ((,class :inherit button
+ ,@(modus-themes--link-color
+ red red-faint))))
+ `(org-roam-link-shielded ((,class :inherit button
+ ,@(modus-themes--link-color
+ yellow yellow-faint))))
+ `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt)))
+;;;;; org-superstar
+ `(org-superstar-item ((,class :foreground ,fg-main)))
+ `(org-superstar-leading ((,class :foreground ,fg-whitespace)))
+;;;;; org-table-sticky-header
+ `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral)))
+;;;;; org-treescope
+ `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue)))
+ `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild)))
+;;;;; origami
+ `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t)))
+ `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt)))
+;;;;; outline-mode
+ `(outline-1 ((,class :inherit modus-theme-heading-1)))
+ `(outline-2 ((,class :inherit modus-theme-heading-2)))
+ `(outline-3 ((,class :inherit modus-theme-heading-3)))
+ `(outline-4 ((,class :inherit modus-theme-heading-4)))
+ `(outline-5 ((,class :inherit modus-theme-heading-5)))
+ `(outline-6 ((,class :inherit modus-theme-heading-6)))
+ `(outline-7 ((,class :inherit modus-theme-heading-7)))
+ `(outline-8 ((,class :inherit modus-theme-heading-8)))
+;;;;; outline-minor-faces
+ `(outline-minor-0 ((,class nil)))
+;;;;; package (M-x list-packages)
+ `(package-description ((,class :foreground ,fg-special-cold)))
+ `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(package-name ((,class :inherit button)))
+ `(package-status-avail-obso ((,class :inherit bold :foreground ,red)))
+ `(package-status-available ((,class :foreground ,fg-special-mild)))
+ `(package-status-built-in ((,class :foreground ,magenta)))
+ `(package-status-dependency ((,class :foreground ,magenta-alt-other)))
+ `(package-status-disabled ((,class :inherit modus-theme-subtle-red)))
+ `(package-status-external ((,class :foreground ,cyan-alt-other)))
+ `(package-status-held ((,class :foreground ,yellow-alt)))
+ `(package-status-incompat ((,class :inherit bold :foreground ,yellow)))
+ `(package-status-installed ((,class :foreground ,fg-special-warm)))
+ `(package-status-new ((,class :inherit bold :foreground ,green)))
+ `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt)))
+;;;;; page-break-lines
+ `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer)))
+;;;;; paradox
+ `(paradox-archive-face ((,class :foreground ,fg-special-mild)))
+ `(paradox-comment-face ((,class :inherit font-lock-comment-face)))
+ `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t)))
+ `(paradox-description-face ((,class :foreground ,fg-special-cold)))
+ `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold)))
+ `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other)))
+ `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other)))
+ `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t)))
+ `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active)))
+ `(paradox-name-face ((,class :foreground ,blue :underline t)))
+ `(paradox-star-face ((,class :foreground ,magenta)))
+ `(paradox-starred-face ((,class :foreground ,magenta-alt)))
+;;;;; paren-face
+ `(parenthesis ((,class :foreground ,fg-unfocused)))
+;;;;; parrot
+ `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta)))
+;;;;; pass
+ `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main)))
+ `(pass-mode-header-face ((,class :foreground ,fg-special-warm)))
+;;;;; persp-mode
+ `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red)))
+ `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active)))
+ `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active)))
+;;;;; perspective
+ `(persp-selected-face ((,class :inherit bold :foreground ,blue-active)))
+;;;;; phi-grep
+ `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm)))
+ `(phi-grep-match-face ((,class :inherit modus-theme-special-calm)))
+ `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow)))
+ `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue)))
+;;;;; phi-search
+ `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta)))
+ `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red)))
+ `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan)))
+ `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold))))
+;;;;; pkgbuild-mode
+ `(pkgbuild-error-face ((,class :underline ,fg-lang-error)))
+;;;;; pomidor
+ `(pomidor-break-face ((,class :foreground ,blue-alt-other)))
+ `(pomidor-overwork-face ((,class :foreground ,red-alt-other)))
+ `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+ `(pomidor-work-face ((,class :foreground ,green-alt-other)))
+;;;;; popup
+ `(popup-face ((,class :background ,bg-alt :foreground ,fg-main)))
+ `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold))))
+ `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue)))
+ `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold))))
+ `(popup-scroll-bar-background-face ((,class :background ,bg-active)))
+ `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active)))
+ `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive)))
+ `(popup-tip-face ((,class :inherit modus-theme-refine-yellow)))
+;;;;; powerline
+ `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t)))
+ `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg)))
+ `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active)))
+ `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
+ `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive)))
+ `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+;;;;; powerline-evil
+ `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main)))
+ `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta)))
+ `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green)))
+ `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue)))
+ `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main)))
+ `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow)))
+ `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red)))
+ `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan)))
+;;;;; proced
+ `(proced-mark ((,class :inherit modus-theme-mark-symbol)))
+ `(proced-marked ((,class :inherit modus-theme-mark-alt)))
+ `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t)))
+;;;;; prodigy
+ `(prodigy-green-face ((,class :foreground ,green)))
+ `(prodigy-red-face ((,class :foreground ,red)))
+ `(prodigy-yellow-face ((,class :foreground ,yellow)))
+;;;;; racket-mode
+ `(racket-debug-break-face ((,class :inherit modus-theme-intense-red)))
+ `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil)
+ :foreground ,green-alt-other)))
+ `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil)
+ :foreground ,green)))
+ `(racket-here-string-face ((,class :foreground ,blue-alt)))
+ `(racket-keyword-argument-face ((,class :foreground ,red-alt)))
+ `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt)))
+ `(racket-logger-debug-face ((,class :foreground ,blue-alt-other)))
+ `(racket-logger-info-face ((,class :foreground ,fg-lang-note)))
+ `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta)))
+ `(racket-selfeval-face ((,class :foreground ,green-alt)))
+ `(racket-xp-error-face
+ ((,(append '((supports :underline (:style wave))) class)
+ :underline (:color ,fg-lang-error :style wave))
+ (,class :foreground ,fg-lang-error :underline t)))
+;;;;; rainbow-blocks
+ `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other)))
+ `(rainbow-blocks-depth-2-face ((,class :foreground ,blue)))
+ `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt)))
+ `(rainbow-blocks-depth-4-face ((,class :foreground ,green)))
+ `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta)))
+ `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan)))
+ `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow)))
+ `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt)))
+ `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt)))
+ `(rainbow-blocks-unmatched-face ((,class :foreground ,red)))
+;;;;; rainbow-identifiers
+ `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other)))
+ `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other)))
+ `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other)))
+ `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other)))
+ `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other)))
+ `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt)))
+ `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt)))
+ `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt)))
+ `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt)))
+ `(rainbow-identifiers-identifier-10 ((,class :foreground ,green)))
+ `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta)))
+ `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan)))
+ `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow)))
+ `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt)))
+ `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt)))
+;;;;; rainbow-delimiters
+ `(rainbow-delimiters-base-face-error ((,class :foreground ,red)))
+ `(rainbow-delimiters-base-face ((,class :foreground ,fg-main)))
+ `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other)))
+ `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other)))
+ `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other)))
+ `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other)))
+ `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other)))
+ `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt)))
+ `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt)))
+ `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt)))
+ `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt)))
+ `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt)))
+ `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red)))
+;;;;; rcirc
+ `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt)))
+ `(rcirc-dim-nick ((,class :foreground ,fg-alt)))
+ `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta)))
+ `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other)))
+ `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild)))
+ `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(rcirc-server ((,class :foreground ,fg-unfocused)))
+ `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg)))
+ `(rcirc-url ((,class :foreground ,blue :underline t)))
+;;;;; regexp-builder (re-builder)
+ `(reb-match-0 ((,class :inherit modus-theme-refine-blue)))
+ `(reb-match-1 ((,class :inherit modus-theme-refine-magenta)))
+ `(reb-match-2 ((,class :inherit modus-theme-refine-green)))
+ `(reb-match-3 ((,class :inherit modus-theme-special-calm)))
+ `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash)))
+ `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct)))
+;;;;; rg (rg.el)
+ `(rg-column-number-face ((,class :foreground ,magenta-alt-other)))
+ `(rg-context-face ((,class :foreground ,fg-unfocused)))
+ `(rg-error-face ((,class :inherit bold :foreground ,red)))
+ `(rg-file-tag-face ((,class :foreground ,fg-special-cold)))
+ `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(rg-line-number-face ((,class :foreground ,fg-special-warm)))
+ `(rg-literal-face ((,class :foreground ,blue-alt)))
+ `(rg-match-face ((,class :inherit modus-theme-special-calm)))
+ `(rg-regexp-face ((,class :foreground ,magenta-active)))
+ `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive)))
+ `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active)))
+ `(rg-warning-face ((,class :inherit bold :foreground ,yellow)))
+;;;;; ripgrep
+ `(ripgrep-context-face ((,class :foreground ,fg-unfocused)))
+ `(ripgrep-error-face ((,class :inherit bold :foreground ,red)))
+ `(ripgrep-hit-face ((,class :foreground ,cyan)))
+ `(ripgrep-match-face ((,class :inherit modus-theme-special-calm)))
+;;;;; rmail
+ `(rmail-header-name ((,class :foreground ,cyan-alt-other)))
+ `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt)))
+;;;;; ruler-mode
+ `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main)))
+ `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active)))
+ `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t)))
+ `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive)))
+ `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active)))
+ `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active)))
+ `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active)))
+ `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main)))
+ `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive)))
+ `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active)))
+;;;;; sallet
+ `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg)))
+ `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg)))
+ `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg)))
+ `(sallet-buffer-help ((,class :foreground ,fg-special-cold)))
+ `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other)))
+ `(sallet-buffer-ordinary ((,class :foreground ,fg-main)))
+ `(sallet-buffer-read-only ((,class :foreground ,yellow-alt)))
+ `(sallet-buffer-size ((,class :foreground ,fg-special-calm)))
+ `(sallet-buffer-special ((,class :foreground ,magenta-alt-other)))
+ `(sallet-flx-match ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-cyan
+ 'modus-theme-refine-cyan
+ 'modus-theme-nuanced-cyan
+ cyan-alt-other))))
+ `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg)))
+ `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild)))
+ `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-magenta
+ 'modus-theme-refine-magenta
+ 'modus-theme-nuanced-magenta
+ magenta-alt-other))))
+ `(sallet-source-header ((,class :inherit bold :foreground ,red-alt
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(sallet-substring-match ((,class ,@(modus-themes--extra-completions
+ 'modus-theme-subtle-blue
+ 'modus-theme-refine-blue
+ 'modus-theme-nuanced-blue
+ blue-alt-other))))
+;;;;; selectrum
+ `(selectrum-current-candidate
+ ((,class :inherit bold :foreground ,fg-main :underline ,fg-main
+ :background ,@(pcase modus-themes-completions
+ ('opinionated (list bg-active))
+ (_ (list bg-inactive))))))
+ `(selectrum-primary-highlight ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ magenta-alt magenta-nuanced-bg
+ magenta-refine-bg magenta-refine-fg))))
+ `(selectrum-secondary-highlight ((,class :inherit bold
+ ,@(modus-themes--standard-completions
+ cyan-alt-other cyan-nuanced-bg
+ cyan-refine-bg cyan-refine-fg))))
+;;;;; semantic
+ `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t)))
+ `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green)))
+ `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan)))
+ `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim)))
+ `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red)))
+ `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow)))
+ `(semantic-highlight-edits-face ((,class :background ,bg-alt)))
+ `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt)))
+ `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild)))
+ `(semantic-tag-boundary-face ((,class :overline ,blue-intense)))
+ `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error)))
+;;;;; sesman
+ `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t)))
+ `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue)))
+ `(sesman-buffer-face ((,class :foreground ,magenta)))
+ `(sesman-directory-face ((,class :inherit bold :foreground ,blue)))
+ `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other)))
+;;;;; shell-script-mode
+ `(sh-heredoc ((,class :foreground ,blue-alt)))
+ `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt)))
+;;;;; show-paren-mode
+ `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match
+ bg-paren-match-intense)
+ :foreground ,fg-main)))
+ `(show-paren-match-expression ((,class :inherit modus-theme-special-calm)))
+ `(show-paren-mismatch ((,class :inherit modus-theme-intense-red)))
+;;;;; shr
+ `(shr-abbreviation
+ ((,(append '((supports :underline (:style wave))) class)
+ :foreground ,fg-docstring :underline (:color ,fg-alt :style wave))
+ (,class :foreground ,fg-docstring :underline t)))
+ `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan)))
+;;;;; side-notes
+ `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim)))
+;;;;; sieve-mode
+ `(sieve-action-commands ((,class :inherit font-lock-builtin-face)))
+ `(sieve-control-commands ((,class :inherit font-lock-keyword-face)))
+ `(sieve-tagged-arguments ((,class :inherit font-lock-type-face)))
+ `(sieve-test-commands ((,class :inherit font-lock-function-name-face)))
+;;;;; skewer-mode
+ `(skewer-error-face ((,class :foreground ,red :underline t)))
+;;;;; smart-mode-line
+ `(sml/charging ((,class :foreground ,green-active)))
+ `(sml/discharging ((,class :foreground ,red-active)))
+ `(sml/filename ((,class :inherit bold :foreground ,blue-active)))
+ `(sml/folder ((,class :foreground ,fg-active)))
+ `(sml/git ((,class :inherit bold :foreground ,green-active)))
+ `(sml/global ((,class :foreground ,fg-active)))
+ `(sml/line-number ((,class :inherit sml/global)))
+ `(sml/minor-modes ((,class :inherit sml/global)))
+ `(sml/modes ((,class :inherit bold :foreground ,fg-active)))
+ `(sml/modified ((,class :inherit bold :foreground ,magenta-active)))
+ `(sml/mule-info ((,class :inherit sml/global)))
+ `(sml/name-filling ((,class :foreground ,yellow-active)))
+ `(sml/not-modified ((,class :inherit sml/global)))
+ `(sml/numbers-separator ((,class :inherit sml/global)))
+ `(sml/outside-modified ((,class :inherit modus-theme-intense-red)))
+ `(sml/position-percentage ((,class :inherit sml/global)))
+ `(sml/prefix ((,class :foreground ,green-active)))
+ `(sml/process ((,class :inherit sml/prefix)))
+ `(sml/projectile ((,class :inherit sml/git)))
+ `(sml/read-only ((,class :inherit bold :foreground ,cyan-active)))
+ `(sml/remote ((,class :inherit sml/global)))
+ `(sml/sudo ((,class :inherit modus-theme-subtle-red)))
+ `(sml/time ((,class :inherit sml/global)))
+ `(sml/vc ((,class :inherit sml/git)))
+ `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active)))
+;;;;; smartparens
+ `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm)))
+ `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild)))
+ `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match
+ bg-paren-match-intense)
+ :foreground ,fg-main)))
+ `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red)))
+ `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face)))
+ `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face)))
+ `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face)))
+ `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face)))
+;;;;; smerge
+ `(smerge-base ((,class :inherit modus-theme-diff-changed)))
+ `(smerge-lower ((,class :inherit modus-theme-diff-added)))
+ `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2)))
+ `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added)))
+ `(smerge-refined-changed ((,class)))
+ `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed)))
+ `(smerge-upper ((,class :inherit modus-theme-diff-removed)))
+;;;;; spaceline
+ `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta)))
+ `(spaceline-evil-insert ((,class :inherit modus-theme-active-green)))
+ `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue)))
+ `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt)))
+ `(spaceline-evil-replace ((,class :inherit modus-theme-active-red)))
+ `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan)))
+ `(spaceline-flycheck-error ((,class :foreground ,red-active)))
+ `(spaceline-flycheck-info ((,class :foreground ,cyan-active)))
+ `(spaceline-flycheck-warning ((,class :foreground ,yellow-active)))
+ `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue)))
+ `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta)))
+ `(spaceline-python-venv ((,class :foreground ,magenta-active)))
+ `(spaceline-read-only ((,class :inherit modus-theme-fringe-red)))
+ `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan)))
+;;;;; speedbar
+ `(speedbar-button-face ((,class :inherit button)))
+ `(speedbar-directory-face ((,class :inherit bold :foreground ,blue)))
+ `(speedbar-file-face ((,class :foreground ,fg-main)))
+ `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue)))
+ `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan)))
+ `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral)))
+ `(speedbar-tag-face ((,class :foreground ,yellow-alt-other)))
+;;;;; spell-fu
+ `(spell-fu-incorrect-face
+ ((,(append '((supports :underline (:style wave))) class)
+ :foreground ,fg-lang-error :underline (:style wave))
+ (,class :foreground ,fg-lang-error :underline t)))
+;;;;; stripes
+ `(stripes ((,class :inherit modus-theme-hl-line)))
+;;;;; success
+ `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other)))
+;;;;; switch-window
+ `(switch-window-background ((,class :background ,bg-dim)))
+ `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense)))
+;;;;; swiper
+ `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral)))
+ `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan)))
+ `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta)))
+ `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow)))
+ `(swiper-line-face ((,class :inherit modus-theme-special-cold)))
+ `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral))))
+ `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green))))
+ `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue))))
+ `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red))))
+;;;;; swoop
+ `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt
+ ,@(modus-themes--scale modus-themes-scale-3))))
+ `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt
+ ,@(modus-themes--scale modus-themes-scale-4))))
+ `(swoop-face-line-number ((,class :foreground ,fg-special-warm)))
+ `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue
+ ,@(and (>= emacs-major-version 27) '(:extend t)))))
+ `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan)))
+;;;;; sx
+ `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other)))
+ `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold))))
+ `(sx-question-list-answers ((,class :foreground ,green)))
+ `(sx-question-list-answers-accepted ((,class :box t :foreground ,green)))
+ `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow)))
+ `(sx-question-list-date ((,class :foreground ,fg-special-cold)))
+ `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm)))
+ `(sx-question-list-parent ((,class :foreground ,fg-main)))
+ `(sx-question-list-read-question ((,class :foreground ,fg-alt)))
+ `(sx-question-list-score ((,class :foreground ,fg-special-mild)))
+ `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold))))
+ `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main)))
+ `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green)))
+ `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil))))
+ `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main)))
+ `(sx-question-mode-content-face ((,class :background ,bg-dim)))
+ `(sx-question-mode-date ((,class :foreground ,blue)))
+ `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan)))
+ `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main)))
+ `(sx-question-mode-score ((,class :foreground ,fg-dim)))
+ `(sx-question-mode-score-downvoted ((,class :foreground ,yellow)))
+ `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta)))
+ `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main)))
+ `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt)))
+ `(sx-tag ((,class :foreground ,magenta-alt)))
+ `(sx-user-name ((,class :foreground ,blue-alt)))
+ `(sx-user-reputation ((,class :foreground ,fg-alt)))
+;;;;; symbol-overlay
+ `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm)))
+ `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue)))
+ `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta)))
+ `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow)))
+ `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta)))
+ `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red)))
+ `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red)))
+ `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan)))
+ `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan)))
+;;;;; syslog-mode
+ `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(syslog-error ((,class :inherit bold :foreground ,red)))
+ `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main)))
+ `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other)))
+ `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other)))
+ `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t)))
+ `(syslog-su ((,class :inherit bold :foreground ,red-alt)))
+ `(syslog-warn ((,class :inherit bold :foreground ,yellow)))
+;;;;; tab-bar-mode
+ `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main)))
+ `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
+ :background ,bg-tab-active :foreground ,fg-main)))
+ `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
+ :background ,bg-tab-inactive :foreground ,fg-dim)))
+;;;;; tab-line-mode
+ `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main)))
+ `(tab-line-close-highlight ((,class :foreground ,red)))
+ `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
+ `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
+ :background ,bg-tab-active :foreground ,fg-main)))
+ `(tab-line-tab-current ((,class :inherit tab-line-tab)))
+ `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
+ :background ,bg-tab-inactive :foreground ,fg-dim)))
+;;;;; table (built-in table.el)
+ `(table-cell ((,class :background ,blue-nuanced-bg)))
+;;;;; telephone-line
+ `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive)))
+ `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active)))
+ `(telephone-line-error ((,class :inherit bold :foreground ,red-active)))
+ `(telephone-line-evil ((,class :foreground ,fg-main)))
+ `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg)))
+ `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg)))
+ `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg)))
+ `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt)))
+ `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg)))
+ `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg)))
+ `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg)))
+ `(telephone-line-projectile ((,class :foreground ,cyan-active)))
+ `(telephone-line-unimportant ((,class :foreground ,fg-inactive)))
+ `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active)))
+;;;;; term
+ `(term ((,class :background ,bg-main :foreground ,fg-main)))
+ `(term-bold ((,class :inherit bold)))
+ `(term-color-black ((,class :background "gray35" :foreground "gray35")))
+ `(term-color-blue ((,class :background ,blue :foreground ,blue)))
+ `(term-color-cyan ((,class :background ,cyan :foreground ,cyan)))
+ `(term-color-green ((,class :background ,green :foreground ,green)))
+ `(term-color-magenta ((,class :background ,magenta :foreground ,magenta)))
+ `(term-color-red ((,class :background ,red :foreground ,red)))
+ `(term-color-white ((,class :background "gray65" :foreground "gray65")))
+ `(term-color-yellow ((,class :background ,yellow :foreground ,yellow)))
+ `(term-underline ((,class :underline t)))
+;;;;; tomatinho
+ `(tomatinho-ok-face ((,class :foreground ,blue-intense)))
+ `(tomatinho-pause-face ((,class :foreground ,yellow-intense)))
+ `(tomatinho-reset-face ((,class :foreground ,fg-alt)))
+;;;;; transient
+ `(transient-active-infix ((,class :inherit modus-theme-special-mild)))
+ `(transient-amaranth ((,class :inherit bold :foreground ,yellow)))
+ `(transient-argument ((,class :inherit bold :foreground ,red-alt)))
+ `(transient-blue ((,class :inherit bold :foreground ,blue)))
+ `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red)))
+ `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green)))
+ `(transient-heading ((,class :inherit bold :foreground ,fg-main)))
+ `(transient-inactive-argument ((,class :foreground ,fg-alt)))
+ `(transient-inactive-value ((,class :foreground ,fg-alt)))
+ `(transient-key ((,class :inherit bold :foreground ,blue)))
+ `(transient-mismatched-key ((,class :underline t)))
+ `(transient-nonstandard-key ((,class :underline t)))
+ `(transient-pink ((,class :inherit bold :foreground ,magenta)))
+ `(transient-red ((,class :inherit bold :foreground ,red-intense)))
+ `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other)))
+ `(transient-unreachable ((,class :foreground ,fg-unfocused)))
+ `(transient-unreachable-key ((,class :foreground ,fg-unfocused)))
+ `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other)))
+;;;;; trashed
+ `(trashed-deleted ((,class :inherit modus-theme-mark-del)))
+ `(trashed-directory ((,class :foreground ,blue)))
+ `(trashed-mark ((,class :inherit modus-theme-mark-symbol)))
+ `(trashed-marked ((,class :inherit modus-theme-mark-alt)))
+ `(trashed-restored ((,class :inherit modus-theme-mark-sel)))
+ `(trashed-symlink ((,class :inherit button
+ ,@(modus-themes--link-color
+ cyan-alt cyan-alt-faint))))
+;;;;; treemacs
+ `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt)))
+ `(treemacs-directory-face ((,class :inherit dired-directory)))
+ `(treemacs-file-face ((,class :foreground ,fg-main)))
+ `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main)))
+ `(treemacs-git-added-face ((,class :foreground ,green-intense)))
+ `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold))))
+ `(treemacs-git-ignored-face ((,class :foreground ,fg-alt)))
+ `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other)))
+ `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other)))
+ `(treemacs-git-unmodified-face ((,class :foreground ,fg-main)))
+ `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other)))
+ `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t)))
+ `(treemacs-help-title-face ((,class :foreground ,blue-alt-other)))
+ `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red)))
+ `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green)))
+ `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t)))
+ `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow)))
+ `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta)))
+ `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face)))
+ `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t)))
+ `(treemacs-tags-face ((,class :foreground ,blue-alt)))
+ `(treemacs-tags-face ((,class :foreground ,magenta-alt)))
+;;;;; tty-menu
+ `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt)))
+ `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main)))
+ `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue)))
+;;;;; tuareg
+ `(caml-types-def-face ((,class :inherit modus-theme-subtle-red)))
+ `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green)))
+ `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green)))
+ `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue)))
+ `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta)))
+ `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face)))
+ `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face)))
+ `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main)))
+ `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold))))
+ `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta)))
+ `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main)))
+ `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face)))
+ `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold)))
+ `(tuareg-font-lock-interactive-error-face ((,class :inherit error)))
+ `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face)))
+ `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face)))
+ `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm)))
+ `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face)))
+ `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground blue)))
+ `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face)))
+ `(tuareg-opam-error-face ((,class :inherit error)))
+ `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face)))
+;;;;; typescript
+ `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild)))
+ `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm)))
+ `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+;;;;; undo-tree
+ `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main)))
+ `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense)))
+ `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt)))
+ `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense)))
+ `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense)))
+;;;;; vc (vc-hooks.el)
+ `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active)))
+ `(vc-edited-state ((,class :foreground ,yellow-active)))
+ `(vc-locally-added-state ((,class :foreground ,cyan-active)))
+ `(vc-locked-state ((,class :foreground ,blue-active)))
+ `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active)))
+ `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active)))
+ `(vc-removed-state ((,class :foreground ,red-active)))
+ `(vc-state-base ((,class :foreground ,fg-active)))
+ `(vc-up-to-date-state ((,class :foreground ,fg-special-cold)))
+;;;;; vdiff
+ `(vdiff-addition-face ((,class :inherit modus-theme-diff-added)))
+ `(vdiff-change-face ((,class :inherit modus-theme-diff-changed)))
+ `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1)))
+ `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added)))
+ `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed)))
+ `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed)))
+ `(vdiff-target-face ((,class :inherit modus-theme-intense-blue)))
+;;;;; vimish-fold
+ `(vimish-fold-fringe ((,class :foreground ,cyan-active)))
+ `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue)))
+ `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold)))
+;;;;; visible-mark
+ `(visible-mark-active ((,class :background ,blue-intense-bg)))
+ `(visible-mark-face1 ((,class :background ,cyan-intense-bg)))
+ `(visible-mark-face2 ((,class :background ,yellow-intense-bg)))
+ `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg)))
+ `(visible-mark-forward-face2 ((,class :background ,green-intense-bg)))
+;;;;; visual-regexp
+ `(vr/group-0 ((,class :inherit modus-theme-intense-blue)))
+ `(vr/group-1 ((,class :inherit modus-theme-intense-magenta)))
+ `(vr/group-2 ((,class :inherit modus-theme-intense-green)))
+ `(vr/match-0 ((,class :inherit modus-theme-refine-yellow)))
+ `(vr/match-1 ((,class :inherit modus-theme-refine-yellow)))
+ `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold))))
+;;;;; volatile-highlights
+ `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t))
+ :background ,bg-alt :foreground ,blue-nuanced-fg)))
+;;;;; vterm
+ `(vterm-color-black ((,class :background "gray35" :foreground "gray35")))
+ `(vterm-color-blue ((,class :background ,blue :foreground ,blue)))
+ `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan)))
+ `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main)))
+ `(vterm-color-green ((,class :background ,green :foreground ,green)))
+ `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t)))
+ `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta)))
+ `(vterm-color-red ((,class :background ,red :foreground ,red)))
+ `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t)))
+ `(vterm-color-white ((,class :background "gray65" :foreground "gray65")))
+ `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow)))
+;;;;; wcheck-mode
+ `(wcheck-default-face ((,class :foreground ,red :underline t)))
+;;;;; web-mode
+ `(web-mode-annotation-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t)))
+ `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face)))
+ `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face)))
+ `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-block-delimiter-face ((,class :foreground ,fg-main)))
+ `(web-mode-block-face ((,class :background ,bg-dim)))
+ `(web-mode-block-string-face ((,class :inherit web-mode-string-face)))
+ `(web-mode-bold-face ((,class :inherit bold)))
+ `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-comment-face ((,class :inherit font-lock-comment-face)))
+ `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face)))
+ `(web-mode-constant-face ((,class :inherit font-lock-constant-face)))
+ `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face)))
+ `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face)))
+ `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face)))
+ `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face)))
+ `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face)))
+ `(web-mode-css-string-face ((,class :inherit web-mode-string-face)))
+ `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm)))
+ `(web-mode-current-column-highlight-face ((,class :background ,bg-alt)))
+ `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild)))
+ `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold)))
+ `(web-mode-error-face ((,class :inherit modus-theme-intense-red)))
+ `(web-mode-filter-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-folded-face ((,class :underline t)))
+ `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face)))
+ `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main)))
+ `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main)))
+ `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face)))
+ `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face)))
+ `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face)))
+ `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim)))
+ `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t)))
+ `(web-mode-inlay-face ((,class :background ,bg-alt)))
+ `(web-mode-italic-face ((,class :inherit italic)))
+ `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face)))
+ `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg)))
+ `(web-mode-json-string-face ((,class :inherit web-mode-string-face)))
+ `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main)))
+ `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main)))
+ `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold)))
+ `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg)))
+ `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg)))
+ `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face)))
+ `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face)))
+ `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face)))
+ `(web-mode-part-face ((,class :inherit web-mode-block-face)))
+ `(web-mode-part-string-face ((,class :inherit web-mode-string-face)))
+ `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face)))
+ `(web-mode-script-face ((,class :inherit web-mode-part-face)))
+ `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face)))
+ `(web-mode-string-face ((,class :inherit font-lock-string-face)))
+ `(web-mode-style-face ((,class :inherit web-mode-part-face)))
+ `(web-mode-symbol-face ((,class :inherit font-lock-constant-face)))
+ `(web-mode-type-face ((,class :inherit font-lock-builtin-face)))
+ `(web-mode-underline-face ((,class :underline t)))
+ `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face)))
+ `(web-mode-warning-face ((,class :inherit font-lock-warning-face)))
+ `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+;;;;; wgrep
+ `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow)))
+ `(wgrep-done-face ((,class :inherit modus-theme-refine-blue)))
+ `(wgrep-face ((,class :inherit modus-theme-refine-green)))
+ `(wgrep-file-face ((,class :foreground ,fg-special-warm)))
+ `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold))))
+;;;;; which-function-mode
+ `(which-func ((,class :foreground ,magenta-active)))
+;;;;; which-key
+ `(which-key-command-description-face ((,class :foreground ,cyan)))
+ `(which-key-group-description-face ((,class :foreground ,magenta-alt)))
+ `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t)))
+ `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense)))
+ `(which-key-local-map-description-face ((,class :foreground ,fg-main)))
+ `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild)))
+ `(which-key-separator-face ((,class :foreground ,fg-alt)))
+ `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense)))
+;;;;; whitespace-mode
+ `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red)))
+ `(whitespace-empty ((,class :inherit modus-theme-intense-magenta)))
+ `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+ `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+ `(whitespace-line ((,class :inherit modus-theme-special-warm)))
+ `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+ `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+ `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta)))
+ `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan)))
+ `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace)))
+ `(whitespace-trailing ((,class :inherit modus-theme-intense-red)))
+;;;;; window-divider-mode
+ `(window-divider ((,class :foreground ,fg-window-divider-inner)))
+ `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer)))
+ `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer)))
+;;;;; winum
+ `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active)))
+;;;;; writegood-mode
+ `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t)))
+ `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced-fg :underline ,fg-lang-warning)))
+ `(writegood-weasels-face ((,class :foreground ,red-nuanced-fg :underline ,fg-lang-error)))
+;;;;; woman
+ `(woman-addition ((,class :foreground ,magenta-alt-other)))
+ `(woman-bold ((,class :inherit bold :foreground ,magenta)))
+ `(woman-italic ((,class :inherit italic :foreground ,cyan)))
+ `(woman-unknown ((,class :inherit italic :foreground ,yellow)))
+;;;;; xah-elisp-mode
+ `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face)))
+ `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face)))
+ `(xah-elisp-command-face ((,class :inherit font-lock-type-face)))
+ `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face)))
+;;;;; xref
+ `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold)))
+ `(xref-line-number ((,class :foreground ,fg-alt)))
+ `(xref-match ((,class :inherit match)))
+;;;;; yaml-mode
+ `(yaml-tab-face ((,class :inherit modus-theme-intense-red)))
+;;;;; yasnippet
+ `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense)))
+;;;;; ztree
+ `(ztreep-arrow-face ((,class :foreground ,fg-inactive)))
+ `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
+ `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild)))
+ `(ztreep-diff-model-add-face ((,class :foreground ,green)))
+ `(ztreep-diff-model-diff-face ((,class :foreground ,red)))
+ `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t)))
+ `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt)))
+ `(ztreep-expand-sign-face ((,class :foreground ,blue)))
+ `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold)))
+ `(ztreep-leaf-face ((,class :foreground ,cyan)))
+ `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm)))
+ `(ztreep-node-face ((,class :foreground ,fg-main))))
+ "Face specs for use with `modus-themes-core-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"])
+;;;; awesome-tray
+ `(awesome-tray-mode-line-active-color ,blue)
+ `(awesome-tray-mode-line-inactive-color ,bg-active)
+;;;; flymake fringe indicators
+ `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red))
+ `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow))
+ `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan))
+;;;; ibuffer
+ `(ibuffer-deletion-face 'modus-theme-mark-del)
+ `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol)
+ `(ibuffer-marked-face 'modus-theme-mark-sel)
+ `(ibuffer-title-face 'modus-theme-pseudo-header)
+;;;; highlight-tail
+ `(highlight-tail-colors
+ '((,green-subtle-bg . 0)
+ (,cyan-subtle-bg . 20)))
+;;;; hl-todo
+ `(hl-todo-keyword-faces
+ '(("HOLD" . ,yellow-alt)
+ ("TODO" . ,magenta)
+ ("NEXT" . ,magenta-alt-other)
+ ("THEM" . ,magenta-alt)
+ ("PROG" . ,cyan)
+ ("OKAY" . ,cyan-alt)
+ ("DONT" . ,green-alt)
+ ("FAIL" . ,red)
+ ("BUG" . ,red)
+ ("DONE" . ,green)
+ ("NOTE" . ,yellow-alt-other)
+ ("KLUDGE" . ,yellow)
+ ("HACK" . ,yellow)
+ ("TEMP" . ,red-nuanced-fg)
+ ("FIXME" . ,red-alt-other)
+ ("XXX+" . ,red-alt)
+ ("REVIEW" . ,cyan-alt-other)
+ ("DEPRECATED" . ,blue-nuanced-fg)))
+;;;; pdf-tools
+ `(pdf-view-midnight-colors
+ '(,fg-main . ,bg-dim))
+;;;; vc-annotate (C-x v g)
+ `(vc-annotate-background nil)
+ `(vc-annotate-background-mode nil)
+ `(vc-annotate-color-map
+ '((20 . ,red)
+ (40 . ,magenta)
+ (60 . ,magenta-alt)
+ (80 . ,red-alt)
+ (100 . ,yellow)
+ (120 . ,yellow-alt)
+ (140 . ,fg-special-warm)
+ (160 . ,fg-special-mild)
+ (180 . ,green)
+ (200 . ,green-alt)
+ (220 . ,cyan-alt-other)
+ (240 . ,cyan-alt)
+ (260 . ,cyan)
+ (280 . ,fg-special-cold)
+ (300 . ,blue)
+ (320 . ,blue-alt)
+ (340 . ,blue-alt-other)
+ (360 . ,magenta-alt-other)))
+ `(vc-annotate-very-old-color nil)
+;;;; xterm-color
+ `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"])
+ `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"])
+ (if (eq modus-themes-org-blocks 'rainbow)
+ `(org-src-block-faces ; TODO this list should be expanded
+ `(("emacs-lisp" modus-theme-nuanced-magenta)
+ ("elisp" modus-theme-nuanced-magenta)
+ ("clojure" modus-theme-nuanced-magenta)
+ ("clojurescript" modus-theme-nuanced-magenta)
+ ("c" modus-theme-nuanced-blue)
+ ("c++" modus-theme-nuanced-blue)
+ ("sh" modus-theme-nuanced-green)
+ ("shell" modus-theme-nuanced-green)
+ ("html" modus-theme-nuanced-yellow)
+ ("xml" modus-theme-nuanced-yellow)
+ ("css" modus-theme-nuanced-red)
+ ("scss" modus-theme-nuanced-red)
+ ("python" modus-theme-nuanced-green)
+ ("ipython" modus-theme-nuanced-magenta)
+ ("r" modus-theme-nuanced-cyan)
+ ("yaml" modus-theme-nuanced-cyan)
+ ("conf" modus-theme-nuanced-cyan)
+ ("docker" modus-theme-nuanced-cyan)))
+ `(org-src-block-faces '())))
+ "Custom variables for `modus-themes-core-theme'.")
+
+(provide 'modus-themes)
+;;; modus-themes.el ends here
diff --git a/lisp/modus-themes/modus-vivendi-theme.el b/lisp/modus-themes/modus-vivendi-theme.el
new file mode 100644
index 0000000000..d10f539e65
--- /dev/null
+++ b/lisp/modus-themes/modus-vivendi-theme.el
@@ -0,0 +1,75 @@
+;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*-
+
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; URL: https://gitlab.com/protesilaos/modus-themes
+;; Version: 1.0.2
+;; Package-Requires: ((emacs "26.1"))
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or (at
+;; your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi
+;; is the light one). The themes are designed for color-contrast
+;; accessibility. More specifically:
+;;
+;; 1. Provide a consistent minimum contrast ratio between background
+;; and foreground values of 7:1 or higher. This meets the highest
+;; such accessibility criterion per the guidelines of the Worldwide
+;; Web Consortium's Working Group on Accessibility (WCAG AAA
+;; standard).
+;;
+;; 2. Offer as close to full face coverage as possible. The list is
+;; already quite long, with more additions to follow as part of the
+;; ongoing development process.
+;;
+;; For a complete view of the project, also refer to the following files
+;; (should be distributed in the same repository/directory as the
+;; current item):
+;;
+;; - modus-themes.el (Main code shared between the themes)
+;; - modus-themes-core.el (Code used to produce the themes)
+;; - modus-operandi-theme.el (Light theme)
+
+;;; Code:
+
+\f
+
+(require 'modus-themes)
+(eval-when-compile
+ (require 'modus-themes-core))
+
+(deftheme modus-vivendi
+ "Dark theme that conforms with the highest accessibility
+ standard for color contrast between background and foreground
+ elements (WCAG AAA).")
+
+(modus-themes-core-theme
+ 'modus-vivendi)
+
+;;;###autoload
+(when (and (boundp 'custom-theme-load-path) load-file-name)
+ (add-to-list 'custom-theme-load-path
+ (file-name-as-directory (file-name-directory load-file-name))))
+
+(provide-theme 'modus-vivendi)
+
+(provide 'modus-vivendi-theme)
+
+;;; modus-vivendi-theme.el ends here
--
2.29.2
^ permalink raw reply related [flat|nested] 83+ messages in thread* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-06 12:23 bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Protesilaos Stavrou @ 2020-12-08 12:03 ` Basil L. Contovounesios 2020-12-09 21:58 ` Stefan Kangas 0 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2020-12-08 12:03 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > I have made some major changes to the Modus themes and tagged this as > the first major release. I am opening the present bug report because > this change has implications on how the themes are distributed with > Emacs. Thanks for your work on these themes! [...] > Those are the issues I could identify. As such, the attached patch > removes the old files and places the new ones in ../lisp/modus-themes/. > The themes' manual is updated to cover the new version. The NEWS entry > is edited accordingly. > > I understand you may object to the course of action covered by the > patch. Please inform me of a better way to address this issue. My > intent is to contribute version 1.0 of my themes to Emacs (1.0.2 to be > precise) and am prepared to make the requisite changes based on your > feedback. FWIW, I'd sooner make the infrastructure changes needed to make themes under etc/themes/ more modular and package-like, than start moving them out of etc/themes/. Otherwise, I'd expect themes under lisp/ to behave exactly like those under etc/themes/, which would make the etc/themes/ directory redundant. (Maybe we need a lisp/themes/ directory?) -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-08 12:03 ` Basil L. Contovounesios @ 2020-12-09 21:58 ` Stefan Kangas 2020-12-10 7:57 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Stefan Kangas @ 2020-12-09 21:58 UTC (permalink / raw) To: Basil L. Contovounesios, Protesilaos Stavrou; +Cc: 45068 "Basil L. Contovounesios" <contovob@tcd.ie> writes: >> Those are the issues I could identify. As such, the attached patch >> removes the old files and places the new ones in ../lisp/modus-themes/. >> The themes' manual is updated to cover the new version. The NEWS entry >> is edited accordingly. >> >> I understand you may object to the course of action covered by the >> patch. Please inform me of a better way to address this issue. My >> intent is to contribute version 1.0 of my themes to Emacs (1.0.2 to be >> precise) and am prepared to make the requisite changes based on your >> feedback. > > FWIW, I'd sooner make the infrastructure changes needed to make themes > under etc/themes/ more modular and package-like, than start moving them > out of etc/themes/. > > Otherwise, I'd expect themes under lisp/ to behave exactly like those > under etc/themes/, which would make the etc/themes/ directory redundant. > (Maybe we need a lisp/themes/ directory?) Yes, I think if we start adding a number of these themes under "lisp/<foo>-theme/" it risks getting messy over time. Would it make sense to just add a "lisp/themes" directory, as Basil suggests, containing the new files modus-themes-core.el and modus-themes.el? That way, I assume that we can just keep the themes in "etc/themes" for now, while any theme that needs it can put its support libraries in "lisp/themes". Does that make sense? Would it work without any changes to load-theme? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-09 21:58 ` Stefan Kangas @ 2020-12-10 7:57 ` Protesilaos Stavrou 2020-12-10 8:25 ` Stefan Kangas 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2020-12-10 7:57 UTC (permalink / raw) To: Stefan Kangas; +Cc: Basil L. Contovounesios, 45068 On 2020-12-09, 15:58 -0600, Stefan Kangas <stefankangas@gmail.com> wrote: > "Basil L. Contovounesios" <contovob@tcd.ie> writes: > >>> Those are the issues I could identify. As such, the attached patch >>> removes the old files and places the new ones in ../lisp/modus-themes/. >>> The themes' manual is updated to cover the new version. The NEWS entry >>> is edited accordingly. >>> >>> I understand you may object to the course of action covered by the >>> patch. Please inform me of a better way to address this issue. My >>> intent is to contribute version 1.0 of my themes to Emacs (1.0.2 to be >>> precise) and am prepared to make the requisite changes based on your >>> feedback. >> >> FWIW, I'd sooner make the infrastructure changes needed to make themes >> under etc/themes/ more modular and package-like, than start moving them >> out of etc/themes/. >> >> Otherwise, I'd expect themes under lisp/ to behave exactly like those >> under etc/themes/, which would make the etc/themes/ directory redundant. >> (Maybe we need a lisp/themes/ directory?) > > Yes, I think if we start adding a number of these themes under > "lisp/<foo>-theme/" it risks getting messy over time. > > Would it make sense to just add a "lisp/themes" directory, as Basil > suggests, containing the new files modus-themes-core.el and > modus-themes.el? > > That way, I assume that we can just keep the themes in "etc/themes" for > now, while any theme that needs it can put its support libraries in > "lisp/themes". Does that make sense? Would it work without any changes > to load-theme? Thank you Stefan and Basil! I agree that putting them all under lisp/ is not the right way to go right now. Today I will experiment with placing the libraries in lisp/themes and the derivatives in etc/themes. This will obfuscate the source code though, but I will try nonetheless and report back to you (without prejudice to any other ideas you or someone else may have). -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-10 7:57 ` Protesilaos Stavrou @ 2020-12-10 8:25 ` Stefan Kangas 2020-12-10 11:46 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Stefan Kangas @ 2020-12-10 8:25 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > I agree that putting them all under lisp/ is not the right way to go > right now. Today I will experiment with placing the libraries in > lisp/themes and the derivatives in etc/themes. This will obfuscate the > source code though, but I will try nonetheless and report back to you > (without prejudice to any other ideas you or someone else may have). Thanks! Looking forward to seeing the new version in Emacs. Could you explain how it would obfuscate the source code? I'm not sure I understand that part. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-10 8:25 ` Stefan Kangas @ 2020-12-10 11:46 ` Protesilaos Stavrou 2020-12-11 9:37 ` Juri Linkov 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2020-12-10 11:46 UTC (permalink / raw) To: Stefan Kangas; +Cc: Basil L. Contovounesios, 45068 [-- Attachment #1: Type: text/plain, Size: 1780 bytes --] On 2020-12-10, 02:25 -0600, Stefan Kangas <stefankangas@gmail.com> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> I agree that putting them all under lisp/ is not the right way to go >> right now. Today I will experiment with placing the libraries in >> lisp/themes and the derivatives in etc/themes. This will obfuscate the >> source code though, but I will try nonetheless and report back to you >> (without prejudice to any other ideas you or someone else may have). > > Thanks! Looking forward to seeing the new version in Emacs. > > Could you explain how it would obfuscate the source code? I'm not sure > I understand that part. I followed your advice in reviewing my patch. Please find it attached. In short: + The 'modus-operandi-theme' and 'modus-vivendi-theme' are in etc/themes. - Standard commands like 'load-theme' and 'enable-theme' work as intended. - Theme-level functions/commands, such as 'modus-themes-toggle' work as expected. + The other two files, 'modus-themes-core.el' and 'modus-themes.el' are placed under lisp/themes. Note I tried to edit the texi file in light of bug#45141 and I think I did everything right, but I cannot run that command locally---it is slow and my hardware's temparature rises considerably. Perhaps the texi file needs to be edited further, in which case I am prepared to do whatever is necessary (and apologies in advance for taking too much out of your time). * * * On the "obfuscation" point I mentioned before: I expressed myself poorly. What I thought was that it would be difficult to study the theme's code, but one upside (I think) of the aforementioned changes is that M-x find-library now lists the files I placed in lisp/themes. -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: 0001-Update-Modus-themes-1.0.2-backward-incompatible.patch --] [-- Type: text/x-patch, Size: 968434 bytes --] From 6f0f6f536b14e168e46472a272a1466a91486f04 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou <info@protesilaos.com> Date: Thu, 10 Dec 2020 12:51:02 +0200 Subject: [PATCH] Update Modus themes 1.0.2 (backward-incompatible) * etc/themes/modus-operandi-theme.el: Add new 'modus-operandi' file. Delete old version. * etc/themes/modus-vivendi-theme.el: Add new 'modus-vivendi' file. Delete old version. * lisp/themes/modus-themes.el: Add new file that contains all common code between the two themes. * lisp/themes/modus-themes-core.el: Add new file that contains the macro that is used to expand both themes. * doc/misc/modus-themes.texi: Update manual to version 1.0.2. * etc/NEWS: Direct users to the manual. --- doc/misc/modus-themes.texi | 1793 ++++------ etc/NEWS | 7 +- etc/themes/modus-operandi-theme.el | 4662 +------------------------ etc/themes/modus-vivendi-theme.el | 4662 +------------------------ lisp/themes/modus-themes-core.el | 80 + lisp/themes/modus-themes.el | 5164 ++++++++++++++++++++++++++++ 6 files changed, 6025 insertions(+), 10343 deletions(-) create mode 100644 lisp/themes/modus-themes-core.el create mode 100644 lisp/themes/modus-themes.el diff --git a/doc/misc/modus-themes.texi b/doc/misc/modus-themes.texi index de3ccd27c4..70f2e08d91 100644 --- a/doc/misc/modus-themes.texi +++ b/doc/misc/modus-themes.texi @@ -24,16 +24,17 @@ @node Top @top Modus themes for GNU Emacs +@copying This manual, written by Protesilaos Stavrou, describes the customization options for the @samp{modus-operandi} and @samp{modus-vivendi} themes, and provides every other piece of information pertinent to them. -The documentation furnished herein corresponds to version 0.13.0, -released on 2020-10-08. Any reference to a newer feature which does +The documentation furnished herein corresponds to version 1.0.2, +released on 2020-12-06. Any reference to a newer feature which does not yet form part of the latest tagged commit, is explicitly marked as such. -Copyright (C) 2020 Free Software Foundation, Inc. +Copyright @copyright{} 2020 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this @@ -43,6 +44,7 @@ Top and with no Back-Cover Texts. @end quotation +@end copying @end ifnottex @@ -81,25 +83,26 @@ Top Enable and load * Load automatically:: -* Load at a given time or at sunset/sunrise:: * Toggle between the themes on demand:: -* Configure options prior to loading:: +* Configure options prior to loading a theme:: +* Sample configuration for use-package:: Customization Options * Bold constructs:: Toggle bold constructs in code * Slanted constructs:: Toggle slanted constructs (italics) in code -* Syntax highlighting:: Toggle subtle coloration in programming modes +* Syntax styles:: Choose the overall aesthetic of code syntax * No mixed fonts:: Toggle mixing of font families -* Link underline:: Toggle underlined text in links +* Link styles:: Choose link color intensity for the text or underline, or no underline at all * Command prompts:: Choose among plain, subtle, or intense prompts -* Mode line:: Choose among plain, three-dimension, or moody-compliant styles +* Mode line:: Choose among plain, three-dimensional, or Moody-compliant styles * Completion UIs:: Choose among standard, moderate, or opinionated looks -* Fringes:: Choose among plain, subtle, or intense fringe visibility +* Fringes:: Choose among invisible, subtle, or intense fringe visibility * Line highlighting:: Toggle intense style for current line highlighting -* Matching parentheses:: Toggle intense style for matching delimiters/parentheses +* Matching parentheses:: Choose between various styles for matching delimiters/parentheses +* Active region:: Choose between various styles for the active region * Diffs:: Choose among intense, desaturated, or text-only diffs -* Org mode blocks:: Choose among plain, greyscale, or rainbow styles +* Org mode blocks:: Choose among plain, grayscale, or rainbow styles * Heading styles:: Choose among several styles, also per heading level * Scaled headings:: Toggle scaling of headings * Headings' font:: Toggle proportionately spaced fonts in headings @@ -110,22 +113,23 @@ Top Advanced customization (do-it-yourself) -* Tweak colors (DIY):: Declare your own palette overrides +* Tweak faces (DIY):: Declare your own face specs * Font configs (DIY):: Optimise for mixed typeface buffers * Org user faces (DIY):: Extend styles for org-mode keywords and priorities +* WCAG test (DIY):: Apply the WCAG formula to color values of your choosing +* Load at time (DIY):: Switch between the themes depending on the time of day Face coverage * Supported packages:: Full list of covered face groups -* Covered indirectly:: -* Will NOT be supported:: +* Indirectly covered packages:: Notes for individual packages * Note on company-mode overlay pop-up:: * Note for ERC escaped color sequences:: * Note for powerline or spaceline:: -* Note on shr colors:: +* Note on SHR colors:: * Note for Helm grep:: * Note on vc-annotate-background-mode:: @@ -159,10 +163,10 @@ Overview To ensure that users have a consistently accessible experience, the themes strive to achieve as close to full face coverage as possible -(see @ref{Face coverage}). +(see @xref{Face coverage}). Starting with version 0.12.0 and onwards, the themes are built into GNU -Emacs (current version is 0.13.0). +Emacs. @menu * How do the themes look like:: @@ -172,8 +176,8 @@ Overview @node How do the themes look like @section How do the themes look like -Check the web page with @uref{https://protesilaos.com/modus-themes-pictures/, the screen shots}. There are lots of scenarios on -display that draw attention to details and important aspects in the +Check the web page with @uref{https://protesilaos.com/modus-themes-pictures/, the screen shots}. There are lots of scenarios +on display that draw attention to details and important aspects in the design of the themes. They also showcase the numerous customization options. @@ -190,11 +194,8 @@ Installation The Modus themes are distributed with Emacs starting with version 28.1. On older versions of Emacs, they can be installed using Emacs' package -manager or manually from their code repository. - -Modus Operandi (light theme) and Modus Vivendi (dark) are normally -distributed as standalone packages in Emacs-specific archives. There -also exist packages for GNU/Linux distributions. +manager or manually from their code repository. There also exist +packages for distributions of GNU/Linux. @menu * Install from the archives:: @@ -204,18 +205,22 @@ Installation @node Install from the archives @section Install from the archives -@samp{modus-operandi-theme} and @samp{modus-vivendi-theme} are -available from the GNU ELPA archive, which is configured by default. +The @samp{modus-themes} package is available from the GNU ELPA archive, which +is configured by default. Prior to querying any package archive, make sure to have updated the -index, with @samp{M-x package-refresh-contents}. Then all you need to do is -type @samp{M-x package-install} and specify the theme of your choice. +index, with @kbd{M-x package-refresh-contents}. Then all you need to do is +type @kbd{M-x package-install} and specify the @samp{modus-themes}. + +Note that older versions of the themes used to be distributed as +standalone packages. This practice has been discontinued starting with +version 1.0.0 of this project. @node Install on GNU/Linux @section Install on GNU/Linux -The themes are also available from the archives of some GNU/Linux -distributions. These should correspond to a tagged release rather than +The themes are also available from the archives of some distributions of +GNU/Linux. These should correspond to a tagged release rather than building directly from the latest Git commit. It all depends on the distro's packaging policies. @@ -240,17 +245,10 @@ Debian 11 Bullseye @node GNU Guix @subsection GNU Guix -Users of either the Guix System (the distro) or just Guix (the package -manager) can get each theme as a standalone package. - -@example -guix package -i emacs-modus-operandi-theme -@end example - -And/or: +Users of Guix can get the themes with this command: @example -guix package -i emacs-modus-vivendi-theme +guix package -i emacs-modus-themes @end example @node Enable and load @@ -258,21 +256,30 @@ Enable and load This section documents how to load the theme of your choice and how to further control its initialization. It also includes some sample code -snippets that could help you in the task, especially if you intend to -use both Modus Operandi and Modus Vivendi. +snippets that could help you in the task. + +Before you load a theme, it is necessary to enable the libraries: + +@lisp +(require 'modus-themes) ; common code +(require 'modus-operandi-theme) ; light theme +(require 'modus-vivendi-theme) ; dark theme +@end lisp + +@ref{Sample configuration for use-package}. @menu * Load automatically:: -* Load at a given time or at sunset/sunrise:: * Toggle between the themes on demand:: -* Configure options prior to loading:: +* Configure options prior to loading a theme:: +* Sample configuration for use-package:: @end menu @node Load automatically @section Load automatically -A simple way to load the theme from your Emacs initialization file is to -include either of the following expressions: +Once the libraries that define the themes are enabled, you can load a +theme with either of the following expressions: @lisp (load-theme 'modus-operandi t) ; Light theme @@ -282,173 +289,190 @@ Load automatically Make sure to remove any other theme that is being loaded, otherwise you might run into unexpected issues. -Note that you can always @samp{M-x disable-theme} and specify an item. The +Note that you can always @kbd{M-x disable-theme} and specify an item. The command does exactly what its name suggests. To deactivate all enabled themes at once, in case you have multiple of them enabled, you may -evaluate the expression: +evaluate the following expression: @lisp (mapc #'disable-theme custom-enabled-themes) @end lisp -@node Load at a given time or at sunset/sunrise -@section Load at a given time or at sunset/sunrise +@node Toggle between the themes on demand +@section Toggle between the themes on demand -It is possible to schedule a time during the day at or after which a -given theme will be loaded.@footnote{Contributed on Reddit by user @samp{b3n} -@uref{https://www.reddit.com/r/emacs/comments/gdtqov/weekly_tipstricketc_thread/fq9186h/}.} +The themes provide the @samp{modus-themes-toggle} command that you can bind to +a key of your preference. For example: @lisp -;; Light for the day -(load-theme 'modus-operandi t t) -(run-at-time "05:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark for the night -(load-theme 'modus-vivendi t t) -(run-at-time "21:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +(global-set-key (kbd "<f5>") #'modus-themes-toggle) @end lisp -A modified version of the above technique is to use the sunrise and -sunset as references, instead of specifying a fixed hour value.@footnote{Contributed directly by André Alexandre Gomes @uref{https://gitlab.com/aadcg}.} -If you set @samp{calendar-latitude} and @samp{calendar-longitude} (defined in the -built-in @samp{solar.el} library---read it with @samp{M-x find-library}), you can -automatically switch between both themes at the appropriate time-of-day. -Note that @emph{those calendar variables need to be set before loading the -themes}. +What this toggle does is check if either @samp{modus-operandi} or @samp{modus-vivendi} +is active and proceeds to cycle between them. If none of them are +active, a minibuffer prompt will ask the user to choose between the two. +In this latter scenario, all other themes will first be disabled (using +the @samp{disable-theme} we covered before). Lastly, the toggle calls +@samp{modus-themes-after-load-theme-hook} which you can use to add your tweaks +(see @xref{Tweak faces (DIY)}). + +@node Configure options prior to loading a theme +@section Configure options prior to loading a theme + +The themes provide a unified customization framework. This is why you +need @samp{(require 'modus-themes)}. All options must be set before loading +each theme in order to come into effect. For example: @lisp -;; Define coordinates -(setq calendar-latitude 35.17 - calendar-longitude 33.36) - -;; Light at sunrise -(load-theme 'modus-operandi t t) -(run-at-time (nth 1 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark at sunset -(load-theme 'modus-vivendi t t) -(run-at-time (nth 4 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +;; Set customization options to values of your choice +(setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil + modus-themes-fringes nil ; @{nil,'subtle,'intense@} + modus-themes-mode-line '3d ; @{nil,'3d,'moody@} + modus-themes-syntax nil ; Lots of options---continue reading the manual + modus-themes-intense-hl-line nil + modus-themes-paren-match 'subtle-bold ; @{nil,'subtle-bold,'intense,'intense-bold@} + modus-themes-links 'neutral-underline ; Lots of options---continue reading the manual + modus-themes-no-mixed-fonts nil + modus-themes-prompts nil ; @{nil,'subtle,'intense@} + modus-themes-completions nil ; @{nil,'moderate,'opinionated@} + modus-themes-region 'bg-only-no-extend ; @{nil,'no-extend,'bg-only,'bg-only-no-extend@} + modus-themes-diffs nil ; @{nil,'desaturated,'fg-only,'bg-only@} + modus-themes-org-blocks nil ; @{nil,'grayscale,'rainbow@} + modus-themes-headings ; Lots of options---continue reading the manual + '((1 . section) + (2 . section-no-bold) + (3 . rainbow-line) + (t . rainbow-line-no-bold)) + modus-themes-variable-pitch-headings nil + modus-themes-scale-headings nil + modus-themes-scale-1 1.1 + modus-themes-scale-2 1.15 + modus-themes-scale-3 1.21 + modus-themes-scale-4 1.27 + modus-themes-scale-5 1.33) + +;; Load the light theme (`modus-operandi') +(modus-themes-load-operandi) + +;; ;; Or load via a hook +;; (add-hook 'after-init-hook #'modus-themes-load-operandi) @end lisp -For the sake of completeness, the @samp{load-theme} call in these snippets is -slightly different than the one shown in @ref{Load automatically}, because it -does not enable the theme directly: the subsequent @samp{enable-theme} does -that when needed. +Note that in this example we use @samp{modus-themes-load-operandi}. Here is +what it does: -@node Toggle between the themes on demand -@section Toggle between the themes on demand +@lisp +(defun modus-themes-load-operandi () + "Load `modus-operandi' and disable `modus-vivendi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-vivendi) + (load-theme 'modus-operandi t) + (run-hooks 'modus-themes-after-load-theme-hook)) +@end lisp -With both themes available, it is possible to design a simple command to -switch between them on demand. +Same principle, inverse effect, for @samp{modus-themes-load-vivendi}. + +If you prefer to maintain different customization options between the +two themes, it is best you write your own functions that first set those +options and then load the themes. The following code does exactly that +by simply differentiating the two themes on the choice of bold +constructs in code syntax (enabled for one, disabled for the other). @lisp -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." +(defun my-demo-modus-operandi () + (interactive) + (setq modus-themes-bold-constructs t) ; ENABLE bold + (modus-themes-load-operandi)) + +(defun my-demo-modus-vivendi () (interactive) + (setq modus-themes-bold-constructs nil) ; DISABLE bold + (modus-themes-load-vivendi)) + +(defun my-demo-modus-themes-toggle () (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) + (my-demo-modus-vivendi) + (my-demo-modus-operandi))) @end lisp -You could use @samp{(mapc #'disable-theme custom-enabled-themes)} instead of -disabling a single target, but you get the idea. +Then assign @samp{my-demo-modus-themes-toggle} to a key instead of the +equivalent the themes provide. -@node Configure options prior to loading -@section Configure options prior to loading +@node Sample configuration for use-package +@section Sample configuration for use-package -If you plan to use both themes and wish to apply styles consistently -(see @ref{Customization Options}), you could define wrapper functions around -the standard @samp{load-theme} command. These extend the simple function we -presented in @ref{Toggle between the themes on demand}. +It is common for Emacs users to rely on @samp{use-package} for declaring +package configurations in their setup. We use this as an example: -Here is a comprehensive setup (the values assigned to the variables are -just for the sake of this demonstration):@footnote{The @samp{defmacro} and @samp{dolist} -method were contributed on Reddit by user @samp{b3n}, -@uref{https://www.reddit.com/r/emacs/comments/gqsz8u/weekly_tipstricketc_thread/fsfakhg/}.} +@lisp +(use-package modus-themes + :ensure + :init + ;; Add all your customizations prior to loading the themes + (setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil) + :config + ;; Load the theme of your choice + (modus-themes-load-operandi) + ;; ;; OR + ;; (load-theme 'modus-operandi t) + :bind ("<f5>" . modus-themes-toggle)) +@end lisp + +Note that manual installations expect that the user byte compiles all +the relevant files and creates autoloads for them. If, for whatever +reason, users wish to install the theme files manually while not doing +the requisite packaging work, then this code block must be used instead +(but please prefer the packaged format that does proper byte compilation +and autoloading). + +The following snippet is for manual installations or those that use the +themes that are shipped with Emacs: @lisp -(defmacro modus-themes-format-sexp (sexp &rest objects) - `(eval (read (format ,(format "%S" sexp) ,@@objects)))) - -(dolist (theme '("operandi" "vivendi")) - (modus-themes-format-sexp - (defun modus-%1$s-theme-load () - (setq modus-%1$s-theme-slanted-constructs t - modus-%1$s-theme-bold-constructs t - modus-%1$s-theme-fringes 'subtle ; @{nil,'subtle,'intense@} - modus-%1$s-theme-mode-line '3d ; @{nil,'3d,'moody@} - modus-%1$s-theme-faint-syntax nil - modus-%1$s-theme-intense-hl-line nil - modus-%1$s-theme-intense-paren-match nil - modus-%1$s-theme-no-link-underline t - modus-%1$s-theme-no-mixed-fonts nil - modus-%1$s-theme-prompts nil ; @{nil,'subtle,'intense@} - modus-%1$s-theme-completions 'moderate ; @{nil,'moderate,'opinionated@} - modus-%1$s-theme-diffs nil ; @{nil,'desaturated,'fg-only@} - modus-%1$s-theme-org-blocks 'greyscale ; @{nil,'greyscale,'rainbow@} - modus-%1$s-theme-headings ; Read further below in the manual for this one - '((1 . section) - (2 . line) - (t . rainbow-line-no-bold)) - modus-%1$s-theme-variable-pitch-headings nil - modus-%1$s-theme-scale-headings t - modus-%1$s-theme-scale-1 1.1 - modus-%1$s-theme-scale-2 1.15 - modus-%1$s-theme-scale-3 1.21 - modus-%1$s-theme-scale-4 1.27 - modus-%1$s-theme-scale-5 1.33) - (load-theme 'modus-%1$s t)) - theme)) - -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (modus-vivendi-theme-load)) - (disable-theme 'modus-vivendi) - (modus-operandi-theme-load))) +(use-package modus-themes + :ensure + :init + ;; Add all your customizations prior to loading the themes + (setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil) + + ;; Enable the theme files + (use-package modus-operandi-theme) + (use-package modus-vivendi-theme) + + :config + ;; Load the theme of your choice + (modus-themes-load-operandi) + :bind ("<f5>" . modus-themes-toggle)) @end lisp @node Customization Options @chapter Customization Options The Modus themes are highly configurable, though they should work well -without any further tweaks. - -By default, all customization options are set to @samp{nil}. +without any further tweaks. By default, all customization options are +set to @samp{nil}. -All customization options need to be evaluated before loading their -theme (@pxref{Enable and load}). +Remember that all customization options must be evaluated before loading +a theme (see @xref{Enable and load}). @menu * Bold constructs:: Toggle bold constructs in code * Slanted constructs:: Toggle slanted constructs (italics) in code -* Syntax highlighting:: Toggle subtle coloration in programming modes +* Syntax styles:: Choose the overall aesthetic of code syntax * No mixed fonts:: Toggle mixing of font families -* Link underline:: Toggle underlined text in links +* Link styles:: Choose link color intensity for the text or underline, or no underline at all * Command prompts:: Choose among plain, subtle, or intense prompts -* Mode line:: Choose among plain, three-dimension, or moody-compliant styles +* Mode line:: Choose among plain, three-dimensional, or Moody-compliant styles * Completion UIs:: Choose among standard, moderate, or opinionated looks -* Fringes:: Choose among plain, subtle, or intense fringe visibility +* Fringes:: Choose among invisible, subtle, or intense fringe visibility * Line highlighting:: Toggle intense style for current line highlighting -* Matching parentheses:: Toggle intense style for matching delimiters/parentheses +* Matching parentheses:: Choose between various styles for matching delimiters/parentheses +* Active region:: Choose between various styles for the active region * Diffs:: Choose among intense, desaturated, or text-only diffs -* Org mode blocks:: Choose among plain, greyscale, or rainbow styles +* Org mode blocks:: Choose among plain, grayscale, or rainbow styles * Heading styles:: Choose among several styles, also per heading level * Scaled headings:: Toggle scaling of headings * Headings' font:: Toggle proportionately spaced fonts in headings @@ -457,14 +481,7 @@ Customization Options @node Bold constructs @section Option for more bold constructs -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-bold-constructs} -@item -@samp{modus-vivendi-theme-bold-constructs} -@end itemize +Symbol: @samp{modus-themes-bold-constructs} Possible values: @@ -475,37 +492,18 @@ Bold constructs @samp{t} @end enumerate -Display several constructs in bold weight. This concerns keywords and -other important aspects of code syntax. It also affects certain mode -line indicators and command-line prompts. - -The default is to only use a bold weight when it is required. +The default is to use a bold typographic weight only when it is +required. -Additionally, and while not necessary, to define the precise weight for -bold constructs, you can change the typographic intensity of the @samp{bold} -face. The standard is a bold weight. It requires no further -intervention. Assuming though that your typeface of choice supports a -``semibold'' weight, adding the following snippet to your init file should -suffice. - -@lisp -(set-face-attribute 'bold nil :weight 'semibold) -@end lisp - -Note that if you are switching themes, you need to re-evaluate this -expression after the new theme is loaded. +With a non-nil value (@samp{t}) display several syntactic constructs in bold +weight. This concerns keywords and other important aspects of code +syntax. It also affects certain mode line indicators and command-line +prompts. @node Slanted constructs @section Option for more slanted constructs -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-slanted-constructs} -@item -@samp{modus-vivendi-theme-slanted-constructs} -@end itemize +Symbol: @samp{modus-themes-slanted-constructs} Possible values: @@ -516,22 +514,16 @@ Slanted constructs @samp{t} @end enumerate -Choose to render more faces in slanted text (italics). This typically -affects documentation strings and code comments. - -The default is to not use italics unless it is absolutely necessary. +The default is to not use slanted text (italics) unless it is absolutely +necessary. -@node Syntax highlighting -@section Option for faint code syntax highlighting +With a non-nil value (@samp{t}) choose to render more faces in slanted text. +This typically affects documentation strings and code comments. -Symbol names: +@node Syntax styles +@section Option for syntax highlighting -@itemize -@item -@samp{modus-operandi-theme-faint-syntax} -@item -@samp{modus-vivendi-theme-faint-syntax} -@end itemize +Symbol: @samp{modus-themes-syntax} Possible values: @@ -539,29 +531,48 @@ Syntax highlighting @item @samp{nil} (default) @item -@samp{t} +@samp{faint} +@item +@samp{yellow-comments} +@item +@samp{green-strings} +@item +@samp{yellow-comments-green-strings} +@item +@samp{alt-syntax} +@item +@samp{alt-syntax-yellow-comments} @end enumerate -Use less saturated colors in programming modes for highlighting code -syntax. The default is to use saturated colors. +The default style (nil) for code syntax highlighting is a balanced +combination of colors on the cyan-blue-magenta side of the spectrum. +There is little to no use of greens, yellows, or reds, except when it is +necessary. + +Option @samp{faint} is like the default in terms of the choice of palette but +applies desaturated color values. + +Option @samp{yellow-comments} applies a yellow tint to comments. The rest of +the syntax is the same as the default. + +Option @samp{green-strings} replaces the blue/cyan/cold color variants in +strings with greener alternatives. The rest of the syntax remains the +same. -This option essentially affects the font-lock faces, so it may also have -implications in other places that are hard-wired to rely directly on -them instead of specifying their own faces (which could inherit from -font-lock if that is the intent). The author is aware of @samp{vc-dir} as a -case in point. +Option @samp{yellow-comments-green-strings} combines yellow comments with green +strings and the rest of the default syntax highlighting style. + +Option @samp{alt-syntax} expands the active spectrum by applying color +combinations with more contrasting hues between them. Expect to find +more red and green variants in addition to cyan, blue, magenta. + +Option @samp{alt-syntax-yellow-comments} combines @samp{alt-syntax} with +@samp{yellow-comments}. @node No mixed fonts @section Option for no font mixing -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-no-mixed-fonts} -@item -@samp{modus-vivendi-theme-no-mixed-fonts} -@end itemize +Symbol: @samp{modus-themes-no-mixed-fonts} Possible values: @@ -584,17 +595,12 @@ No mixed fonts purpose-specific package has extra functionality. Two possible options are @samp{org-variable-pitch} and @samp{mixed-pitch}. -@node Link underline -@section Option for no link underline +@xref{Font configs (DIY)}. -Symbol names: +@node Link styles +@section Option for links -@itemize -@item -@samp{modus-operandi-theme-no-link-underline} -@item -@samp{modus-vivendi-theme-no-link-underline} -@end itemize +Symbol: @samp{modus-themes-links} Possible values: @@ -602,23 +608,35 @@ Link underline @item @samp{nil} (default) @item -@samp{t} +@samp{faint} +@item +@samp{neutral-underline} +@item +@samp{faint-neutral-underline} +@item +@samp{no-underline} @end enumerate -Remove the underline effect from links, symbolic links, and buttons. -The default is to apply an underline. +The default style (nil) for links is to apply an underline and a +saturated color to the affected text. The color of the two is the same, +which makes the link fairly prominent. + +Option @samp{faint} follows the same approach as the default, but uses less +intense colors. + +Option @samp{neutral-underline} changes the underline's color to a subtle +gray, while retaining the default text color. + +Option @samp{faint-neutral-underline} combines a desaturated text color with a +subtle gray underline. + +Option @samp{no-underline} removes link underlines altogether, while keeping +their text color the same as the default. @node Command prompts @section Option for command prompt styles -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-prompts} -@item -@samp{modus-vivendi-theme-prompts} -@end itemize +Symbol: @samp{modus-themes-prompts} Possible values: @@ -631,25 +649,18 @@ Command prompts @samp{intense} @end enumerate -The symbols ``subtle'' and ``intense'' will apply a combination of accented -background and foreground to the minibuffer and other REPL prompts (like -@samp{M-x shell} and @samp{M-x eshell}). The difference between the two is that the -latter has a more pronounced/noticeable effect than the former. +The default does not use any background for minibuffer and command line +prompts. It relies exclusively on an accented foreground color. -The default does not use any background for such prompts, while relying -exclusively on an accented foreground color. +The options @samp{subtle} and @samp{intense} apply a combination of accented +background and foreground to such prompts. The difference between the +two is that the latter has a more pronounced/noticeable effect than the +former. @node Mode line @section Option for mode line presentation -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-mode-line} -@item -@samp{modus-vivendi-theme-mode-line} -@end itemize +Symbol: @samp{modus-themes-mode-line} Possible values: @@ -662,16 +673,16 @@ Mode line @samp{moody} @end enumerate -The default value (@samp{nil}) produces a two-dimensional effect both for the -active and inactive modelines. The differences between the two are -limited to distinct shades of greyscale values, with the active being -more intense than the inactive. +The default produces a two-dimensional effect both for the active and +inactive modelines. The differences between the two are limited to +distinct shades of grayscale values, with the active being more intense +than the inactive. -A @samp{3d} symbol will make the active modeline look like a three-dimensional +Option @samp{3d} will make the active modeline look like a three-dimensional rectangle. Inactive modelines remain 2D, though they are slightly toned -down relative to the default. This aesthetic is the same as what you -get when you run Emacs without any customizations (@kbd{emacs -Q} on the -command line). +down relative to the default. This aesthetic is virtually the same as +what you get when you run Emacs without any customizations (@kbd{emacs -Q} on +the command line). While @samp{moody} removes all box effects from the modelines and applies underline and overline properties instead. It also tones down a bit the @@ -687,17 +698,17 @@ Mode line which will come into effect when the background of the modeline changes to something less accessible, such as Moody ribbons (read the doc string of @samp{set-face-attribute}, specifically @samp{:distant-foreground}). This fallback -comes into effect when Emacs determines that the background and -foreground of the given construct are too close to each other in terms -of color distance. In effect, users would need to experiment with the -variable @samp{face-near-same-color-threshold} to trigger the fallback color. -We find that a value of @samp{45000} would suffice, contrary to the default -@samp{30000}. Do not set the value too high, because that would have the -adverse effect of always overriding the default color (which has been -carefully designed to be highly accessible). +is activated when Emacs determines that the background and foreground of +the given construct are too close to each other in terms of color +distance. In effect, users would need to experiment with the variable +@samp{face-near-same-color-threshold} to trigger the effect. We find that a +value of @samp{45000} will suffice, contrary to the default @samp{30000}. Do not set +the value too high, because that would have the adverse effect of always +overriding the default color (which has been carefully designed to be +highly accessible). Furthermore, because Moody expects an underline and overline instead of -a box style, it is recommended you also include this in your setup: +a box style, it is advised you include this in your setup: @lisp (setq x-underline-at-descent-line t) @@ -706,14 +717,7 @@ Mode line @node Completion UIs @section Option for completion framework aesthetics -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-completions} -@item -@samp{modus-vivendi-theme-completions} -@end itemize +Symbol: @samp{modus-themes-completions} Possible values: @@ -737,18 +741,18 @@ Completion UIs A value of @samp{nil} will respect the metaphors of each completion framework. -The symbol @samp{moderate} will apply a combination of background and -foreground that is fairly subtle. For Icomplete and friends this -constitutes a departure from their default aesthetics, however the -difference is small. While Helm et al will appear slightly different -than their original looks, as they are toned down a bit. +Option @samp{moderate} applies a combination of background and foreground that +is fairly subtle. For Icomplete and friends this constitutes a +departure from their default aesthetics, however the difference is +small. While Helm, Ivy et al appear slightly different than their +original looks, as they are toned down a bit. -The symbol @samp{opinionated} will apply color combinations that refashion the -completion UI@. For the Icomplete camp this means that intense -background and foreground combinations are used: in effect their looks -emulate those of Ivy and co. in their original style. Whereas the other -group of packages will revert to an even more nuanced aesthetic with -some additional changes to the choice of hues. +Option @samp{opinionated} uses color combinations that refashion the completion +UI@. For the Icomplete camp this means that intense background and +foreground combinations are used: in effect their looks emulate those of +Helm, Ivy and co. in their original style. Whereas the other group of +packages will revert to an even more nuanced aesthetic with some +additional changes to the choice of hues. To appreciate the scope of this customization option, you should spend some time with every one of the @samp{nil} (default), @samp{moderate}, and @samp{opinionated} @@ -757,14 +761,7 @@ Completion UIs @node Fringes @section Option for fringe visibility -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-fringes} -@item -@samp{modus-vivendi-theme-fringes} -@end itemize +Symbol: @samp{modus-themes-fringes} Possible values: @@ -777,25 +774,18 @@ Fringes @samp{intense} @end enumerate -The ``subtle'' symbol will apply a greyscale background that is visible, -yet close enough to the main background color. While the ``intense'' -symbol will use a more noticeable greyscale background. - The default is to use the same color as that of the main background, meaning that the fringes are not obvious though they still occupy the space given to them by @samp{fringe-mode}. +Options @samp{subtle} and @samp{intense} apply a gray background, making the fringes +visible. The difference between the two is one of degree, as their +names imply. + @node Line highlighting @section Option for line highlighting (hl-line-mode) -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-intense-hl-line} -@item -@samp{modus-vivendi-theme-intense-hl-line} -@end itemize +Symbol: @samp{modus-themes-intense-hl-line} Possible values: @@ -806,23 +796,50 @@ Line highlighting @samp{t} @end enumerate -Draw the current line of @samp{hl-line-mode} or its global equivalent in a more -prominent background color. This would also affect several packages -that enable @samp{hl-line-mode}, such as @samp{elfeed} and @samp{mu4e}. +The default is to use a subtle gray background for @samp{hl-line-mode} and its +global equivalent. + +With a non-nil value (@samp{t}) use a more prominent background color instead. -The default is to use a more subtle gray. +This affects several packages that enable @samp{hl-line-mode}, such as @samp{elfeed} +and @samp{mu4e}. @node Matching parentheses @section Option for parenthesis matching (show-paren-mode) -Symbol names: +Symbol: @samp{modus-themes-paren-match} -@itemize +Possible values: + +@enumerate @item -@samp{modus-operandi-theme-intense-paren-match} +@samp{nil} (default) @item -@samp{modus-vivendi-theme-intense-paren-match} -@end itemize +@samp{subtle-bold} +@item +@samp{intense} +@item +@samp{intense-bold} +@end enumerate + +Nil means to use a subtle tinted background color for the matching +delimiters. + +Option @samp{intense} applies a saturated background color. + +Option @samp{subtle-bold} is the same as the default, but also makes use of +bold typographic weight (inherits the @samp{bold} face). + +Option @samp{intense-bold} is the same as @samp{intense}, while it also uses a bold +weight. + +This customization variable affects tools such as the built-in +@samp{show-paren-mode} and @samp{smartparens}. + +@node Active region +@section Option for active region + +Symbol: @samp{modus-themes-region} Possible values: @@ -830,25 +847,31 @@ Matching parentheses @item @samp{nil} (default) @item -@samp{t} +@samp{no-extend} +@item +@samp{bg-only} +@item +@samp{bg-only-no-extend} @end enumerate -Apply a more intense background to the matching parentheses (or -delimiters). This affects tools such as the built-in @samp{show-paren-mode}. -The default is to use a subtle warm color for the background of those -overlays. +Nil means to only use a prominent gray background with a neutral +foreground. The foreground overrides all syntax highlighting. The +region extends to the edge of the window. + +Option @samp{no-extend} preserves the default aesthetic but prevents the +region from extending to the edge of the window. + +Option @samp{bg-only} applies a faint tinted background that is distinct from +all others used in the theme, while it does not override any existing +colors. It extends to the edge of the window. + +Option @samp{bg-only-no-extend} is a combination of the @samp{bg-only} and +@samp{no-extend} options. @node Diffs @section Option for diff buffer looks -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-diffs} -@item -@samp{modus-vivendi-theme-diffs} -@end itemize +Symbol: @samp{modus-themes-diffs} Possible values: @@ -861,42 +884,44 @@ Diffs @samp{fg-only} @end enumerate -By default the themes will apply richly colored backgrounds to the -output of diffs, such as those of @samp{diff-mode}, @samp{ediff}, @samp{smerge-mode}, and -@samp{magit}. These are color combinations of an accented background and -foreground so that, for example, added lines have a pronounced green -background with an appropriate shade of green for the affected text. -Word-wise or ``refined'' changes follow this pattern but use different -shades of those colors to remain distinct. +By default the themes apply rich coloration to the output of diffs, such +as those of @samp{diff-mode}, @samp{ediff}, @samp{smerge-mode}, and @samp{magit}. These are color +combinations of an accented background and foreground so that, for +example, added lines have a pronounced green background with an +appropriate shade of green for the affected text. Word-wise or +``refined'' changes follow this pattern but use different shades of those +colors to remain distinct. -A @samp{desaturated} value tones down all relevant color values. It still +Option @samp{desaturated} tones down all relevant color values. It still combines an accented background with an appropriate foreground, yet its -overall impression is very subtle. Refined changes are a bit more +overall impression is fairly subtle. Refined changes are a bit more intense to fulfil their intended function, though still less saturated than default. -While @samp{fg-only} will remove all accented backgrounds and instead rely on -color-coded text to denote changes. For instance, added lines use an -intense green foreground, while their background is the same as the rest -of the buffer. Word-wise highlights still use a background value which -is, nonetheless, more subtle than its default equivalent. - -Concerning @samp{magit}, an extra set of tweaks are introduced for the effect -of highlighting the current diff hunk, so as to remain consistent with -the overall experience of that mode. Expect changes that are consistent -with the overall intent of the aforementioned. +Option @samp{fg-only} will remove most accented backgrounds and instead rely on +color-coded text to denote changes. For instance, added lines use a +green foreground, while their background is the same as the rest of the +buffer. Word-wise highlights still use a background value which is, +nonetheless, more subtle than its default equivalent. + +Option @samp{bg-only} applies color-coded backgrounds but does not override any +syntax highlighting that may be present. This makes it suitable for use +with a non-nil value for @samp{diff-font-lock-syntax} (which is the default for +@samp{diff-mode} buffers in Emacs 27 or higher). + +Concerning Magit, an extra set of tweaks are introduced for the effect +of highlighting the current diff hunk, so as to remain aligned with the +overall experience of that mode. Expect changes that are consistent +with the overall intent of the aforementioned. Note, however, that the +@samp{bg-only} option will not deliver the intended results in Magit diffs +because no syntax highlighting is used there (last checked with Magit +version 20201116.1057, though upstream has a plan to eventually support +such a feature---this entry shall be updated accordingly). @node Org mode blocks @section Option for org-mode block styles -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-org-blocks} -@item -@samp{modus-vivendi-theme-org-blocks} -@end itemize +Symbol: @samp{modus-themes-org-blocks} Possible values: @@ -904,7 +929,7 @@ Org mode blocks @item @samp{nil} (default) @item -@samp{greyscale} +@samp{grayscale} @item @samp{rainbow} @end enumerate @@ -912,18 +937,17 @@ Org mode blocks The default is to use the same background as the rest of the buffer for the contents of the block. -A value of @samp{greyscale} will apply a subtle neutral gray background to the -block's contents. It will also extend to the edge of the window the -background of the ``begin'' and ``end'' block delimiter lines (only relevant -for Emacs versions >= 27 where the 'extend' keyword is recognised by -@samp{set-face-attribute}). +Option @samp{grayscale} applies a subtle neutral gray background to the block's +contents. It will also extend to the edge of the window the background +of the ``begin'' and ``end'' block delimiter lines (only relevant for Emacs +versions >= 27 where the 'extend' keyword is part of the face +specifications). -While @samp{rainbow} will instead use an accented background for the contents -of the block. The exact color will depend on the programming language -and is controlled by the @samp{org-src-block-faces} variable (refer to the -theme's source code for the current association list). This is most -suitable for users who work on literate programming documents that mix -and match several languages. +Option @samp{rainbow} uses an accented background for the contents of the +block. The exact color will depend on the programming language and is +controlled by the @samp{org-src-block-faces} variable. This is most suitable +for users who work on literate programming documents that mix and match +several languages. Note that the ``rainbow'' blocks may require you to also reload the major-mode so that the colors are applied properly: use @kbd{M-x org-mode} or @@ -931,19 +955,12 @@ Org mode blocks code block (inefficient at scale, but it still works). @node Heading styles -@section Option for headings' overall style +@section Option for the headings' overall style This is defined as an alist and, therefore, uses a different approach than other customization options documented in this manual. -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-headings} -@item -@samp{modus-vivendi-theme-headings} -@end itemize +Symbol: @samp{modus-themes-headings} Possible values, which can be specified for each heading level (examples further below): @@ -983,61 +1000,61 @@ Heading styles @samp{rainbow-section-no-bold} @end itemize -To control faces per level from 1-8, use something like this (same for -@samp{modus-vivendi-theme-headings}): +To control faces per level from 1-8, use something like this: @lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . section) - (2 . line) - (3 . highlight) - (t . rainbow-no-bold))) + (2 . section-no-bold) + (3 . rainbow-line) + (t . rainbow-line-no-bold))) @end lisp -The above uses the @samp{section} value for heading levels 1, the @samp{line} for -headings 2, @samp{highlight} for 3. All other levels fall back to +The above uses the @samp{section} value for heading levels 1, @samp{section-no-bold} +for headings 2, @samp{rainbow-line} for 3. All other levels fall back to @samp{rainbow-line-no-bold}. To set a uniform value for all heading levels, use this pattern: @lisp ;; A given style for every heading -(setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) +(setq modus-themes-headings + '((t . section))) ;; Default aesthetic for every heading -(setq modus-operandi-theme-headings - '((t . nil))) +(setq modus-themes-headings + '()) @end lisp The default style for headings uses a fairly desaturated foreground -value in combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another fallback -option), just specify the value @samp{t} like this: +value in combination with bold typographic weight. To specify this +style for a given level N, assuming you wish to have another fallback +option, just specify the value @samp{t} like this: @lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) @end lisp -A description of all other possible styles: +A description of all other possible styles beyond the default: @itemize @item -@samp{no-bold} retains the default text color while removing the typographic -weight. +@samp{no-bold} retains the default text color while removing the bold +typographic weight. @item -@samp{line} is the same as the default plus an overline over the heading. +@samp{line} is the same as the default plus an overline across the heading's +length. @item @samp{line-no-bold} is the same as @samp{line} without bold weight. @item @samp{rainbow} uses a more colorful foreground in combination with bold -weight. +typographic weight. @item @samp{rainbow-line} is the same as @samp{rainbow} plus an overline. @@ -1076,20 +1093,13 @@ Heading styles @item @samp{rainbow-section-no-bold} is the same as @samp{rainbow-section} without a bold -weight.`` +weight. @end itemize @node Scaled headings @section Option for scaled headings -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-scale-headings} -@item -@samp{modus-vivendi-theme-scale-headings} -@end itemize +Symbol: @samp{modus-themes-scale-headings} Possible values: @@ -1100,9 +1110,10 @@ Scaled headings @samp{t} @end enumerate -Make headings larger in height relative to the main text. This is -noticeable in modes like Org. The default is to use the same size for -headings and body copy. +The default is to use the same size for headings and paragraph text. + +With a non-nil value (@samp{t}) make headings larger in height relative to the +main text. This is noticeable in modes like Org. @menu * Scaled heading sizes:: Specify rate of increase for scaled headings @@ -1125,7 +1136,7 @@ Scaled heading sizes it to be @samp{18pt} you must pass @samp{180}. Please understand that setting an absolute value is discouraged, as it will break the layout when you try to change font sizes with the built-in @samp{text-scale-adjust} command -(see @ref{Font configs (DIY), , Font configurations}). +(see @xref{Font configs (DIY)}). @end itemize Below are the variables in their default values, using the floating @@ -1134,17 +1145,11 @@ Scaled heading sizes resource for finding a consistent scale: @lisp -(setq modus-operandi-theme-scale-1 1.05 - modus-operandi-theme-scale-2 1.1 - modus-operandi-theme-scale-3 1.15 - modus-operandi-theme-scale-4 1.2 - modus-operandi-theme-scale-5 1.3) - -(setq modus-vivendi-theme-scale-1 1.05 - modus-vivendi-theme-scale-2 1.1 - modus-vivendi-theme-scale-3 1.15 - modus-vivendi-theme-scale-4 1.2 - modus-vivendi-theme-scale-5 1.3) +(setq modus-themes-scale-1 1.05 + modus-themes-scale-2 1.1 + modus-themes-scale-3 1.15 + modus-themes-scale-4 1.2 + modus-themes-scale-5 1.3) @end lisp Note that in earlier versions of Org, scaling would only increase the @@ -1155,14 +1160,7 @@ Scaled heading sizes @node Headings' font @section Option for variable-pitch font in headings -Symbol names: - -@itemize -@item -@samp{modus-operandi-theme-variable-pitch-headings} -@item -@samp{modus-vivendi-theme-variable-pitch-headings} -@end itemize +Symbol: @samp{modus-themes-variable-pitch-headings} Possible values: @@ -1173,19 +1171,20 @@ Headings' font @samp{t} @end enumerate -Choose to apply a proportionately spaced, else ``variable-pitch'', -typeface to headings (such as in Org mode). The default is to use the -main font family. +The default is to use the main font family, which typically is monospaced. -@ref{Font configs (DIY), , Font configurations for Org (and others)}. +With a non-nil value (@samp{t}) apply a proportionately spaced typeface, else +``variable-pitch'', to headings (such as in Org mode). + +@xref{Font configs (DIY)}. @node Advanced customization (do-it-yourself) @chapter Advanced customization (do-it-yourself) -Unlike the predefined customization options which follow a -straightforward pattern of allowing the user to quickly specify their -preference, the themes also provide a more flexible, albeit difficult, -mechanism to control things with precision (see @ref{Customization Options}). +Unlike the predefined customization options which follow a clear pattern +of allowing the user to quickly specify their preference, the themes +also provide a more flexible, albeit difficult, mechanism to control +things with precision (see @xref{Customization Options}). This section is of interest only to users who are prepared to maintain their own local tweaks and who are willing to deal with any possible @@ -1193,110 +1192,121 @@ Advanced customization (do-it-yourself) they are labelled as ``do-it-yourself'' or ``DIY''. @menu -* Tweak colors (DIY):: Declare your own palette overrides +* Tweak faces (DIY):: Declare your own face specs * Font configs (DIY):: Optimise for mixed typeface buffers * Org user faces (DIY):: Extend styles for org-mode keywords and priorities +* WCAG test (DIY):: Apply the WCAG formula to color values of your choosing +* Load at time (DIY):: Switch between the themes depending on the time of day @end menu -@node Tweak colors (DIY) -@section Full access to the themes' palette +@node Tweak faces (DIY) +@section Custom face specs using the themes' palette (DIY) -The variables are: +We already covered in previous sections how to toggle between the themes +and how to configure options prior to loading. We also explained that +some of the functions made available to users will fire up a hook that +can be used to pass tweaks in the post-theme-load phase. -@itemize -@item -@samp{modus-operandi-theme-override-colors-alist} -@item -@samp{modus-vivendi-theme-override-colors-alist} -@end itemize +@xref{Toggle between the themes on demand}. -Users can specify an association list that maps the names of color -variables to hexadecimal RGB values (in the form of @samp{#RRGGBB}). This -means that it is possible to override the entire palette or subsets -thereof (see the source code for the actual names and values). +@xref{Configure options prior to loading}. -Example: +Now assume you wish to change a single face, say, the @samp{cursor}. And you +would like to get the standard ``blue'' color value of the active Modus +theme, whether it is Modus Operandi or Modus Vivendi. To do that, you +can use the @samp{modus-themes-color} function. It accepts a symbol that is +associated with a color in @samp{modus-themes-colors-operandi} and +@samp{modus-themes-colors-vivendi}. Like this: @lisp -;; Redefine the values of those three variables for the given theme -(setq modus-vivendi-theme-override-colors-alist - '(("magenta" . "#ffaabb") - ("magenta-alt" . "#ee88ff") - ("magenta-alt-other" . "#bbaaff"))) +(modus-themes-color 'blue) @end lisp -If you want to be creative, you can define a minor mode that refashions -the themes on demand. The following is a minor mode that gets activated -on demand. We combine it with the function to switch between Modus -Operandi and Modus Vivendi (@pxref{Toggle between the themes on demand}, for -a basic command, and/or @pxref{Configure options prior to loading}, for a more -comprehensive setup). +The function always extracts the color value of the active Modus theme. @lisp -(define-minor-mode modus-themes-alt-mode - "Override Modus themes' palette variables with custom values. - -This is intended as a proof-of-concept. It is, nonetheless, a -perfectly accessible alternative, conforming with the design -principles of the Modus themes. It still is not as good as the -default colors." - :init-value nil - :global t - (if modus-themes-alt-mode - (setq modus-operandi-theme-override-colors-alist - '(("bg-main" . "#fefcf4") - ("bg-dim" . "#faf6ef") - ("bg-alt" . "#f7efe5") - ("bg-hl-line" . "#f4f0e3") - ("bg-active" . "#e8dfd1") - ("bg-inactive" . "#f6ece5") - ("bg-region" . "#c6bab1") - ("bg-header" . "#ede3e0") - ("bg-tab-bar" . "#dcd3d3") - ("bg-tab-active" . "#fdf6eb") - ("bg-tab-inactive" . "#c8bab8") - ("fg-unfocused" . "#55556f")) - modus-vivendi-theme-override-colors-alist - '(("bg-main" . "#100b17") - ("bg-dim" . "#161129") - ("bg-alt" . "#181732") - ("bg-hl-line" . "#191628") - ("bg-active" . "#282e46") - ("bg-inactive" . "#1a1e39") - ("bg-region" . "#393a53") - ("bg-header" . "#202037") - ("bg-tab-bar" . "#262b41") - ("bg-tab-active" . "#120f18") - ("bg-tab-inactive" . "#3a3a5a") - ("fg-unfocused" . "#9a9aab"))) - (setq modus-operandi-theme-override-colors-alist nil - modus-vivendi-theme-override-colors-alist nil))) - -(defun modus-themes-toggle (&optional arg) - "Toggle between `modus-operandi' and `modus-vivendi' themes. - -With optional \\[universal-argument] prefix, enable -`modus-themes-alt-mode' for the loaded theme." - (interactive "P") - (if arg - (modus-themes-alt-mode 1) - (modus-themes-alt-mode -1)) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) +(progn + (load-theme 'modus-operandi t) + (modus-themes-color 'blue)) ; "#0031a9" for `modus-operandi' + +(progn + (load-theme 'modus-vivendi t) + (modus-themes-color 'blue)) ; "#2fafff" for `modus-vivendi' +@end lisp + +Do @samp{C-h v} on the aforementioned variables to check all the available +symbols that can be passed to this function. + +With that granted, let us expand the example to actually change the +@samp{cursor} face's background property. We employ the built-in function of +@samp{set-face-attribute}: + +@lisp +(set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) +@end lisp + +If you evaluate this form, your cursor will become blue. But if you +change themes, such as with @samp{modus-themes-toggle}, your edits will be +lost, because the newly loaded theme will override the @samp{:background} +attribute you had assigned to that face. + +For such changes to persist, we need to make them after loading the +theme. So we rely on @samp{modus-themes-after-load-theme-hook}, which gets +called from @samp{modus-themes-load-operandi}, @samp{modus-themes-load-vivendi}, as +well as the command @samp{modus-themes-toggle}. Here is a sample function that +tweaks two faces and then gets added to the hook: + +@lisp +(defun my-modus-themes-custom-faces () + (set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) + (set-face-attribute 'font-lock-type-face nil :foreground (modus-themes-color 'magenta-alt))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +@end lisp + +Using this principle, it is possible to override the styles of faces +without having to find color values for each case. + +Another application is to control the precise weight for bold +constructs. This is particularly useful if your typeface has several +variants such as ``heavy'', ``extrabold'', ``semibold''. All you have to do +is edit the @samp{bold} face. For example: + +@lisp +(set-face-attribute 'bold nil :weight 'semibold) +@end lisp + +Remember to use the custom function and hook combo we demonstrated +above. Because the themes do not hard-wire a specific weight, this +simple form is enough to change the weight of all bold constructs +throughout the interface. + +Finally, there are cases where you want to tweak colors though wish to +apply different ones to each theme, say, a blue hue for Modus Operandi +and a shade of red for Modus Vivendi. To this end, we provide +@samp{modus-themes-color-alts} as a convenience function to save you from the +trouble of writing separate wrappers for each theme. It still returns a +single value by querying either of @samp{modus-themes-colors-operandi} and +@samp{modus-themes-colors-vivendi}, only here you pass the two keys you want, +first for @samp{modus-operandi} then @samp{modus-vivendi}. + +Take the previous example with the @samp{cursor} face: + +@lisp +;; Blue for `modus-operandi' and red for `modus-vivendi' +(set-face-attribute 'cursor nil :background (modus-themes-color-alts 'blue 'red)) @end lisp @printindex cp @node Font configs (DIY) -@section Font configurations for Org (and others) +@section Font configurations for Org and others (DIY) -The themes are designed to cope well with mixed font settings (@ref{No mixed fonts, , Option -for no font mixing}). Currently this applies to @samp{org-mode} and -@samp{markdown-mode}. +The themes are designed to cope well with mixed font configurations +(@xref{No mixed fonts}). + +This mostly concerns @samp{org-mode} and @samp{markdown-mode}, though expect to find +it elsewhere like in @samp{Info-mode}. In practice it means that the user can safely opt for a more prose-friendly proportionately spaced typeface as their default, while @@ -1311,8 +1321,8 @@ Font configs (DIY) faces respectively. It may also be convenient to set your main typeface by configuring the @samp{default} face the same way. -Put something like this in your initialization file (make sure to read -the documentation of @samp{set-face-attribute}, with @kbd{M-x describe-function}): +Put something like this in your initialization file (also consider +reading the doc string of @samp{set-face-attribute}): @lisp ;; Main typeface @@ -1327,29 +1337,15 @@ Font configs (DIY) Note the differences in the @samp{:height} property. The @samp{default} face must specify an absolute value, which is the point size × 10. So if you want -to use a font at point size @samp{11}, you set the height at @samp{110}.@footnote{@samp{:height} +to use a font at point size @samp{11}, you set the height to @samp{110}.@footnote{@samp{:height} values do not need to be rounded to multiples of ten: the likes of @samp{115} are perfectly valid—some typefaces will change to account for those finer increments.} Whereas every other face must have a value that is relative to the default, represented as a floating point (if you use an -integer, say, @samp{15} then that means an absolute height). This is of -paramount importantance: it ensures that all fonts can scale gracefully -when using something like the @samp{text-scale-adjust} command which only -operates on the base font size (i.e. the @samp{default} face's absolute -height). - -An alternative syntax for the @samp{default} face, is to pass all typeface -parameters directly to a @samp{font} property.@footnote{Has the benefit of -accepting @samp{fontconfig} parameters (GNU/Linux), such as @samp{"DejaVu Sans -Mono-11:hintstyle=hintslight:autohint=false"}. -@uref{https://www.freedesktop.org/software/fontconfig/fontconfig-user.html}} -Note that here we use a standard point size: - -@lisp -(set-face-attribute 'default nil :font "DejaVu Sans Mono-11") -@end lisp - -Again, remember to only ever specify an absolute height for the @samp{default}. +integer, then that means an absolute height). This is of paramount +importance: it ensures that all fonts can scale gracefully when using +something like the @samp{text-scale-adjust} command which only operates on the +base font size (i.e. the @samp{default} face's absolute height). @printindex cp @@ -1360,16 +1356,15 @@ Org user faces (DIY) priority cookies to better match their workflow. User options are @samp{org-todo-keyword-faces} and @samp{org-priority-faces}. -As those are meant to be custom faces, it would be futile to have the -themes try to guess what each user would want to use, which keywords to -target, and so on. Instead, we can provide guidelines on how to -customize things to one's liking with the intent of retaining the -overall aesthetics of the theme. +As those are meant to be custom faces, it is futile to have the themes +guess what each user wants to use, which keywords to target, and so on. +Instead, we can provide guidelines on how to customize things to one's +liking with the intent of retaining the overall aesthetic of the themes. Please bear in mind that the end result of those is not controlled by -the active theme but by how Org maps faces to its constructs. Editing -those while @samp{org-mode} is active requires @kbd{M-x org-mode-restart} for changes -to take effect. +the active Modus theme but by how Org maps faces to its constructs. +Editing those while @kbd{org-mode} is active requires @kbd{M-x org-mode-restart} for +changes to take effect. Let us assume you wish to visually differentiate your keywords. You have something like this: @@ -1409,7 +1404,7 @@ Org user faces (DIY) When you inherit from multiple faces, you need to quote the list as shown further above. The order is important: the last item is applied over the previous ones. If you do not want to blend multiple faces, you -do not need a quoted list. A pattern of @samp{keyword . face} would suffice. +do not need a quoted list. A pattern of @samp{keyword . face} will suffice. Both approaches can be used simultaneously, as illustrated in this configuration of the priority cookies: @@ -1426,9 +1421,87 @@ Org user faces (DIY) the name of each of those Org variables demonstrated above. Their documentation strings will offer you further guidance. -Furthermore, consider reading the ``Notes for aspiring Emacs theme -developers'', published on 2020-08-28 by me (Protesilaos Stavrou): -@uref{https://protesilaos.com/codelog/2020-08-28-notes-emacs-theme-devs/}. +Recall that the themes let you retrieve a color from their palette. Do +it if you plan to control face attributes. + +@xref{Tweak faces (DIY)}. + +@xref{WCAG test (DIY)}. + +@printindex cp + +@node WCAG test (DIY) +@section Check color combinations (DIY) + +The themes provide the functions @samp{modus-themes-wcag-formula} and +@samp{modus-themes-contrast}. The former is a direct implementation of the +WCAG formula: @uref{https://www.w3.org/TR/WCAG20-TECHS/G18.html}. It gives +you the relative luminance of a color value that is expressed in +hexadecimal RGB notation. While the latter function is just a +convenient wrapper for comparing the luminance of two colors. + +In practice, you only likely need @samp{modus-themes-contrast}. It accepts two +color values and returns their contrast ratio. Values range from 1 to +21 (lowest to highest). The themes are designed to always be equal or +higher than 7 for each combination of background and foreground that +they use (this is the WCAG AAA standard---the most demanding of its +kind). + +A couple of examples (rounded numbers): + +@lisp +;; Pure white with pure green +(modus-themes-contrast "#ffffff" "#00ff00") +;; => 1.37 +;; That is an outright inaccessible combo + +;; Pure black with pure green +(modus-themes-contrast "#000000" "#00ff00") +;; => 15.3 +;; That is is a highly accessible combo +@end lisp + +It does not matter which color value comes first. The ratio is always +the same. + +If you do not wish to read all the decimal points, you can try something +like this: + +@lisp +(format "%0.2f" (modus-themes-contrast "#000000" "#00ff00")) +@end lisp + +Bear in mind that the themes define an expanded palette in large part +because certain colors are only meant to be used in combination with +some others. Consult the source code for relevant commentary. And use +the resources we covered in this section in case you plan to derive your +own color combinations. + +@printindex cp + +@node Load at time (DIY) +@section Load theme depending on time of day + +While we do provide @samp{modus-themes-toggle} to manually switch between the +themes, users may also set up their system to perform such a task +automatically at sunrise and sunset. + +This can be accomplished by specifying the coordinates of one's location +using the built-in @samp{solar.el} and then configuring the @samp{circadian} library: + +@lisp +(use-package solar ; built-in + :config + (setq calendar-latitude 35.17 + calendar-longitude 33.36)) + +(use-package circadian ; you need to install this + :ensure + :after solar + (setq circadian-themes '((:sunrise . modus-operandi) + (:sunset . modus-vivendi))) + (circadian-setup)) +@end lisp @printindex cp @@ -1437,14 +1510,13 @@ Org user faces (DIY) @node Face coverage @chapter Face coverage -Modus Operandi and Modus Vivendi try to provide as close to full face -coverage as possible. This is necessary to ensure a consistently -accessible reading experience across all possible interfaces. +The Modus themes try to provide as close to full face coverage as +possible. This is necessary to ensure a consistently accessible reading +experience across all available interfaces. @menu * Supported packages:: Full list of covered face groups -* Covered indirectly:: -* Will NOT be supported:: +* Indirectly covered packages:: @end menu @node Supported packages @@ -1519,6 +1591,8 @@ Supported packages @item completions @item +consult +@item counsel* @item counsel-css @@ -1769,10 +1843,14 @@ Supported packages @item lsp-ui @item +macrostep +@item magit @item magit-imerge @item +make-mode +@item man @item markdown-mode @@ -1851,6 +1929,8 @@ Supported packages @item pass @item +pdf-tools +@item persp-mode @item perspective @@ -1863,6 +1943,8 @@ Supported packages @item pomidor @item +popup +@item powerline @item powerline-evil @@ -1903,8 +1985,12 @@ Supported packages @item show-paren-mode @item +shr +@item side-notes @item +sieve-mode +@item skewer-mode @item smart-mode-line @@ -1959,7 +2045,7 @@ Supported packages @item vc (built-in mode line status for version control) @item -vc-annotate (@kbd{C-x v g}) +vc-annotate (@samp{C-x v g}) @item vdiff @item @@ -2009,18 +2095,24 @@ Supported packages Plus many other miscellaneous faces that are provided by the upstream GNU Emacs distribution. -@node Covered indirectly -@section Covered indirectly +@node Indirectly covered packages +@section Indirectly covered packages These do not require any extra styles because they are configured to inherit from some basic faces. Please confirm. @itemize @item +bbdb +@item edit-indirect @item evil-owl @item +fortran-mode +@item +i3wm-config-mode +@item perl-mode @item php-mode @@ -2030,19 +2122,6 @@ Covered indirectly swift-mode @end itemize -@node Will NOT be supported -@section Will NOT be supported - -I have thus far identified a single package that does fit into the -overarching objective of this project: @uref{https://github.com/hlissner/emacs-solaire-mode, solaire}. It basically tries to -cast a less intense background on the main file-visiting buffers, so -that secondary elements like sidebars can have the default (pure -white/black) background. - -I will only cover this package if it ever supports the inverse effect: -less intense colors (but still accessible) for ancillary interfaces -and the intended styles for the content you are actually working on. - @node Notes for individual packages @chapter Notes for individual packages @@ -2053,7 +2132,7 @@ Notes for individual packages * Note on company-mode overlay pop-up:: * Note for ERC escaped color sequences:: * Note for powerline or spaceline:: -* Note on shr colors:: +* Note on SHR colors:: * Note for Helm grep:: * Note on vc-annotate-background-mode:: @end menu @@ -2067,7 +2146,7 @@ Note on company-mode overlay pop-up default. The solution recommended by the project's maintainer is to use an -alternative front-end for drawing the pop-up which uses child frames +alternative front-end for drawing the pop-up which draws child frames instead of overlays.@footnote{@uref{https://github.com/company-mode/company-mode/issues/1010}}@footnote{@uref{https://github.com/tumashu/company-posframe/}} @node Note for ERC escaped color sequences @@ -2087,10 +2166,10 @@ Note for ERC escaped color sequences erc-interpret-mirc-color t) @end lisp -As this allows users to make arbitrary combinations, it is impossible to -guarantee a consistently high contrast ratio. All we can we do is -provide guidance on the combinations that satisfy the accessibility -standard of the themes: +As this allows users the chance to make arbitrary combinations, it is +impossible to guarantee a consistently high contrast ratio. All we can +we do is provide guidance on the combinations that satisfy the +accessibility standard of the themes: @table @asis @item Modus Operandi @@ -2112,12 +2191,12 @@ Note for powerline or spaceline command @samp{powerline-reset} whenever they make changes to their themes and/or modeline setup. -@node Note on shr colors -@section Note on shr colors +@node Note on SHR colors +@section Note on SHR colors -Emacs' HTML rendering mechanism (@samp{shr}) may need explicit configuration to -respect the theme's colors instead of whatever specifications the -webpage provides. Consult @kbd{C-h v shr-use-colors}. +Emacs' HTML rendering library (@samp{shr.el}) may need explicit configuration +to respect the theme's colors instead of whatever specifications the +webpage provides. Consult @samp{C-h v shr-use-colors}. @node Note for Helm grep @section Note for Helm grep @@ -2128,7 +2207,7 @@ Note for Helm grep not pass @samp{--color=always} as a command-line option for their command. Here is the docstring for that face, which is defined in the -@samp{helm-grep.el} library (view a library with @samp{M-x find-library}). +@samp{helm-grep.el} library (view a library with @kbd{M-x find-library}). @quotation Face used to highlight grep matches. Have no effect when grep backend @@ -2152,7 +2231,7 @@ Note for Helm grep @node Note on vc-annotate-background-mode @section Note on vc-annotate-background-mode -Due to the unique way @samp{vc-annotate} (@kbd{C-x v g}) applies colors, support for +Due to the unique way @samp{vc-annotate} (@samp{C-x v g}) applies colors, support for its background mode (@samp{vc-annotate-background-mode}) is disabled at the theme level. @@ -2163,7 +2242,7 @@ Note on vc-annotate-background-mode If there actually is a way to avoid such a course of action, without prejudice to the accessibility standard of this project, then please -report as much or send patches (see @ref{Contributing}). +report as much or send patches (see @xref{Contributing}). @node Contributing @chapter Contributing @@ -2187,7 +2266,7 @@ Sources of the themes The source code of the themes is @uref{https://gitlab.com/protesilaos/modus-themes/, available on Gitlab}, for the time being. A @uref{https://github.com/protesilaos/modus-themes/, mirror on Github} is also on offer. -An HTML version of this manual is available as an extension to the +An HTML version of this manual is provided as an extension of the @uref{https://protesilaos.com/modus-themes/, author's personal website} (does not rely on any non-free code). @node Issues you can help with @@ -2212,10 +2291,10 @@ Issues you can help with Merge requests for code refinements. @end itemize -@xref{Merge requests, , Patches require copyright assignment to the FSF}. +@xref{Merge requests}. -It would be great if your feedback also includes some screenshots, GIFs, -or short videos, as well as further instructions to reproduce a given +It is preferable that your feedback includes some screenshots, GIFs, or +short videos, as well as further instructions to reproduce a given setup. Though this is not a requirement. Whatever you do, bear in mind the overarching objective of the Modus @@ -2283,47 +2362,51 @@ Merge requests [Which files have you changed so far, and which new files have you written so far?] -Changed a couple of themes that are part of the Emacs source code: - -./etc/themes/modus-operandi-theme.el -./etc/themes/modus-vivendi-theme.el @end example @node Acknowledgements @chapter Acknowledgements -The Modus themes are a collective effort. Every contribution counts. +The Modus themes are a collective effort. Every bit of work matters. @table @asis @item Author/maintainer Protesilaos Stavrou. -@item Code contributions -Anders Johansson, Basil L@. Contovounesios, -Markus Beppler, Matthew Stevenson. +@item Contributions to code or documentation +Anders Johansson, Basil +L@. Contovounesios, Eli Zaretskii, Madhavan Krishnan, Markus Beppler, +Matthew Stevenson, Shreyas Ragavan, Stefan Kangas, Vincent Murphy. @item Ideas and user feedback Aaron Jensen, Adam Spiers, Alex Griffin, -Alex Peitsinis, Alexey Shmalko, Anders Johansson, André Alexandre -Gomes, Arif Rezai, Basil L@. Contovounesios, Damien Cassou, Dario -Gjorgjevski, David Edmondson, Davor Rotim, Divan Santana, Gerry -Agbobada, Gianluca Recchia, Iris Garcia, Len Trigg, Manuel Uberti, -Mark Burton, Markus Beppler, Michael Goldenberg, Murilo Pereira, -Nicolas De Jaeghere, Pierre Téchoueyres, Roman Rudakov, Ryan Phillips, -Shreyas Ragavan, Tassilo Horn, Thibaut Verron, Trey Merkley, Uri -Sharf, Utkarsh Singh, Vincent Foley. As well as users: Ben, -Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, dinko, doolio, jixiuf, -okamsn, tycho garen. +Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders Johansson, André +Alexandre Gomes, Arif Rezai, Basil L@. Contovounesios, Damien Cassou, +Daniel Mendler, Dario Gjorgjevski, David Edmondson, Davor Rotim, Divan +Santana, Gerry Agbobada, Gianluca Recchia, Hörmetjan Yiltiz, Ilja +Kocken, Iris Garcia, Jeremy Friesen, John Haman, Len Trigg, Manuel +Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Murilo +Pereira, Nicolas De Jaeghere, Paul Poloskov, Pete Kazmier, Pierre +Téchoueyres, Roman Rudakov, Ryan Phillips, Shreyas Ragavan, Simon +Pugnet, Tassilo Horn, Thibaut Verron, Trey Merkley, Togan Muftuoglu, +Uri Sharf, Utkarsh Singh, Vincent Foley. As well as users: Ben, Emacs +Contrib, Eugene, Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, +bepolymathe, dinko, doolio, fleimgruber, iSeeU, jixiuf, okamsn, tycho +garen. @item Packaging Dhavan Vaidya (Debian), Stefan Kangas (core Emacs), Stefan Monnier (GNU Elpa). @item Inspiration for certain features -Fabrice Niessen (leuven-theme), -Bozhidar Batsov (zenburn-theme). +Bozhidar Batsov (zenburn-theme), +Fabrice Niessen (leuven-theme). @end table +Special thanks, in no particular order, to Manuel Uberti and Omar +Antolín Camarena for their long time contributions and insightful +commentary. + @node Meta @chapter Meta @@ -2348,7 +2431,7 @@ Meta @uref{https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/, Modus themes: review of blue colours} (2020-09-14) @end itemize -And here are the canonical sources for this project's documentation: +And here are the canonical sources of this project's documentation: @table @asis @item Manual @@ -2377,458 +2460,6 @@ External projects (ports) @node GNU Free Documentation License @appendix GNU Free Documentation License - -@example - GNU Free Documentation License - Version 1.3, 3 November 2008 - - - Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. - <https://fsf.org/> - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -0. PREAMBLE - -The purpose of this License is to make a manual, textbook, or other -functional and useful document "free" in the sense of freedom: to -assure everyone the effective freedom to copy and redistribute it, -with or without modifying it, either commercially or noncommercially. -Secondarily, this License preserves for the author and publisher a way -to get credit for their work, while not being considered responsible -for modifications made by others. - -This License is a kind of "copyleft", which means that derivative -works of the document must themselves be free in the same sense. It -complements the GNU General Public License, which is a copyleft -license designed for free software. - -We have designed this License in order to use it for manuals for free -software, because free software needs free documentation: a free -program should come with manuals providing the same freedoms that the -software does. But this License is not limited to software manuals; -it can be used for any textual work, regardless of subject matter or -whether it is published as a printed book. We recommend this License -principally for works whose purpose is instruction or reference. - - -1. APPLICABILITY AND DEFINITIONS - -This License applies to any manual or other work, in any medium, that -contains a notice placed by the copyright holder saying it can be -distributed under the terms of this License. Such a notice grants a -world-wide, royalty-free license, unlimited in duration, to use that -work under the conditions stated herein. The "Document", below, -refers to any such manual or work. Any member of the public is a -licensee, and is addressed as "you". You accept the license if you -copy, modify or distribute the work in a way requiring permission -under copyright law. - -A "Modified Version" of the Document means any work containing the -Document or a portion of it, either copied verbatim, or with -modifications and/or translated into another language. - -A "Secondary Section" is a named appendix or a front-matter section of -the Document that deals exclusively with the relationship of the -publishers or authors of the Document to the Document's overall -subject (or to related matters) and contains nothing that could fall -directly within that overall subject. (Thus, if the Document is in -part a textbook of mathematics, a Secondary Section may not explain -any mathematics.) The relationship could be a matter of historical -connection with the subject or with related matters, or of legal, -commercial, philosophical, ethical or political position regarding -them. - -The "Invariant Sections" are certain Secondary Sections whose titles -are designated, as being those of Invariant Sections, in the notice -that says that the Document is released under this License. If a -section does not fit the above definition of Secondary then it is not -allowed to be designated as Invariant. The Document may contain zero -Invariant Sections. If the Document does not identify any Invariant -Sections then there are none. - -The "Cover Texts" are certain short passages of text that are listed, -as Front-Cover Texts or Back-Cover Texts, in the notice that says that -the Document is released under this License. A Front-Cover Text may -be at most 5 words, and a Back-Cover Text may be at most 25 words. - -A "Transparent" copy of the Document means a machine-readable copy, -represented in a format whose specification is available to the -general public, that is suitable for revising the document -straightforwardly with generic text editors or (for images composed of -pixels) generic paint programs or (for drawings) some widely available -drawing editor, and that is suitable for input to text formatters or -for automatic translation to a variety of formats suitable for input -to text formatters. A copy made in an otherwise Transparent file -format whose markup, or absence of markup, has been arranged to thwart -or discourage subsequent modification by readers is not Transparent. -An image format is not Transparent if used for any substantial amount -of text. A copy that is not "Transparent" is called "Opaque". - -Examples of suitable formats for Transparent copies include plain -ASCII without markup, Texinfo input format, LaTeX input format, SGML -or XML using a publicly available DTD, and standard-conforming simple -HTML, PostScript or PDF designed for human modification. Examples of -transparent image formats include PNG, XCF and JPG. Opaque formats -include proprietary formats that can be read and edited only by -proprietary word processors, SGML or XML for which the DTD and/or -processing tools are not generally available, and the -machine-generated HTML, PostScript or PDF produced by some word -processors for output purposes only. - -The "Title Page" means, for a printed book, the title page itself, -plus such following pages as are needed to hold, legibly, the material -this License requires to appear in the title page. For works in -formats which do not have any title page as such, "Title Page" means -the text near the most prominent appearance of the work's title, -preceding the beginning of the body of the text. - -The "publisher" means any person or entity that distributes copies of -the Document to the public. - -A section "Entitled XYZ" means a named subunit of the Document whose -title either is precisely XYZ or contains XYZ in parentheses following -text that translates XYZ in another language. (Here XYZ stands for a -specific section name mentioned below, such as "Acknowledgements", -"Dedications", "Endorsements", or "History".) To "Preserve the Title" -of such a section when you modify the Document means that it remains a -section "Entitled XYZ" according to this definition. - -The Document may include Warranty Disclaimers next to the notice which -states that this License applies to the Document. These Warranty -Disclaimers are considered to be included by reference in this -License, but only as regards disclaiming warranties: any other -implication that these Warranty Disclaimers may have is void and has -no effect on the meaning of this License. - -2. VERBATIM COPYING - -You may copy and distribute the Document in any medium, either -commercially or noncommercially, provided that this License, the -copyright notices, and the license notice saying this License applies -to the Document are reproduced in all copies, and that you add no -other conditions whatsoever to those of this License. You may not use -technical measures to obstruct or control the reading or further -copying of the copies you make or distribute. However, you may accept -compensation in exchange for copies. If you distribute a large enough -number of copies you must also follow the conditions in section 3. - -You may also lend copies, under the same conditions stated above, and -you may publicly display copies. - - -3. COPYING IN QUANTITY - -If you publish printed copies (or copies in media that commonly have -printed covers) of the Document, numbering more than 100, and the -Document's license notice requires Cover Texts, you must enclose the -copies in covers that carry, clearly and legibly, all these Cover -Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on -the back cover. Both covers must also clearly and legibly identify -you as the publisher of these copies. The front cover must present -the full title with all words of the title equally prominent and -visible. You may add other material on the covers in addition. -Copying with changes limited to the covers, as long as they preserve -the title of the Document and satisfy these conditions, can be treated -as verbatim copying in other respects. - -If the required texts for either cover are too voluminous to fit -legibly, you should put the first ones listed (as many as fit -reasonably) on the actual cover, and continue the rest onto adjacent -pages. - -If you publish or distribute Opaque copies of the Document numbering -more than 100, you must either include a machine-readable Transparent -copy along with each Opaque copy, or state in or with each Opaque copy -a computer-network location from which the general network-using -public has access to download using public-standard network protocols -a complete Transparent copy of the Document, free of added material. -If you use the latter option, you must take reasonably prudent steps, -when you begin distribution of Opaque copies in quantity, to ensure -that this Transparent copy will remain thus accessible at the stated -location until at least one year after the last time you distribute an -Opaque copy (directly or through your agents or retailers) of that -edition to the public. - -It is requested, but not required, that you contact the authors of the -Document well before redistributing any large number of copies, to -give them a chance to provide you with an updated version of the -Document. - - -4. MODIFICATIONS - -You may copy and distribute a Modified Version of the Document under -the conditions of sections 2 and 3 above, provided that you release -the Modified Version under precisely this License, with the Modified -Version filling the role of the Document, thus licensing distribution -and modification of the Modified Version to whoever possesses a copy -of it. In addition, you must do these things in the Modified Version: - -A. Use in the Title Page (and on the covers, if any) a title distinct - from that of the Document, and from those of previous versions - (which should, if there were any, be listed in the History section - of the Document). You may use the same title as a previous version - if the original publisher of that version gives permission. -B. List on the Title Page, as authors, one or more persons or entities - responsible for authorship of the modifications in the Modified - Version, together with at least five of the principal authors of the - Document (all of its principal authors, if it has fewer than five), - unless they release you from this requirement. -C. State on the Title page the name of the publisher of the - Modified Version, as the publisher. -D. Preserve all the copyright notices of the Document. -E. Add an appropriate copyright notice for your modifications - adjacent to the other copyright notices. -F. Include, immediately after the copyright notices, a license notice - giving the public permission to use the Modified Version under the - terms of this License, in the form shown in the Addendum below. -G. Preserve in that license notice the full lists of Invariant Sections - and required Cover Texts given in the Document's license notice. -H. Include an unaltered copy of this License. -I. Preserve the section Entitled "History", Preserve its Title, and add - to it an item stating at least the title, year, new authors, and - publisher of the Modified Version as given on the Title Page. If - there is no section Entitled "History" in the Document, create one - stating the title, year, authors, and publisher of the Document as - given on its Title Page, then add an item describing the Modified - Version as stated in the previous sentence. -J. Preserve the network location, if any, given in the Document for - public access to a Transparent copy of the Document, and likewise - the network locations given in the Document for previous versions - it was based on. These may be placed in the "History" section. - You may omit a network location for a work that was published at - least four years before the Document itself, or if the original - publisher of the version it refers to gives permission. -K. For any section Entitled "Acknowledgements" or "Dedications", - Preserve the Title of the section, and preserve in the section all - the substance and tone of each of the contributor acknowledgements - and/or dedications given therein. -L. Preserve all the Invariant Sections of the Document, - unaltered in their text and in their titles. Section numbers - or the equivalent are not considered part of the section titles. -M. Delete any section Entitled "Endorsements". Such a section - may not be included in the Modified Version. -N. Do not retitle any existing section to be Entitled "Endorsements" - or to conflict in title with any Invariant Section. -O. Preserve any Warranty Disclaimers. - -If the Modified Version includes new front-matter sections or -appendices that qualify as Secondary Sections and contain no material -copied from the Document, you may at your option designate some or all -of these sections as invariant. To do this, add their titles to the -list of Invariant Sections in the Modified Version's license notice. -These titles must be distinct from any other section titles. - -You may add a section Entitled "Endorsements", provided it contains -nothing but endorsements of your Modified Version by various -parties--for example, statements of peer review or that the text has -been approved by an organization as the authoritative definition of a -standard. - -You may add a passage of up to five words as a Front-Cover Text, and a -passage of up to 25 words as a Back-Cover Text, to the end of the list -of Cover Texts in the Modified Version. Only one passage of -Front-Cover Text and one of Back-Cover Text may be added by (or -through arrangements made by) any one entity. If the Document already -includes a cover text for the same cover, previously added by you or -by arrangement made by the same entity you are acting on behalf of, -you may not add another; but you may replace the old one, on explicit -permission from the previous publisher that added the old one. - -The author(s) and publisher(s) of the Document do not by this License -give permission to use their names for publicity for or to assert or -imply endorsement of any Modified Version. - - -5. COMBINING DOCUMENTS - -You may combine the Document with other documents released under this -License, under the terms defined in section 4 above for modified -versions, provided that you include in the combination all of the -Invariant Sections of all of the original documents, unmodified, and -list them all as Invariant Sections of your combined work in its -license notice, and that you preserve all their Warranty Disclaimers. - -The combined work need only contain one copy of this License, and -multiple identical Invariant Sections may be replaced with a single -copy. If there are multiple Invariant Sections with the same name but -different contents, make the title of each such section unique by -adding at the end of it, in parentheses, the name of the original -author or publisher of that section if known, or else a unique number. -Make the same adjustment to the section titles in the list of -Invariant Sections in the license notice of the combined work. - -In the combination, you must combine any sections Entitled "History" -in the various original documents, forming one section Entitled -"History"; likewise combine any sections Entitled "Acknowledgements", -and any sections Entitled "Dedications". You must delete all sections -Entitled "Endorsements". - - -6. COLLECTIONS OF DOCUMENTS - -You may make a collection consisting of the Document and other -documents released under this License, and replace the individual -copies of this License in the various documents with a single copy -that is included in the collection, provided that you follow the rules -of this License for verbatim copying of each of the documents in all -other respects. - -You may extract a single document from such a collection, and -distribute it individually under this License, provided you insert a -copy of this License into the extracted document, and follow this -License in all other respects regarding verbatim copying of that -document. - - -7. AGGREGATION WITH INDEPENDENT WORKS - -A compilation of the Document or its derivatives with other separate -and independent documents or works, in or on a volume of a storage or -distribution medium, is called an "aggregate" if the copyright -resulting from the compilation is not used to limit the legal rights -of the compilation's users beyond what the individual works permit. -When the Document is included in an aggregate, this License does not -apply to the other works in the aggregate which are not themselves -derivative works of the Document. - -If the Cover Text requirement of section 3 is applicable to these -copies of the Document, then if the Document is less than one half of -the entire aggregate, the Document's Cover Texts may be placed on -covers that bracket the Document within the aggregate, or the -electronic equivalent of covers if the Document is in electronic form. -Otherwise they must appear on printed covers that bracket the whole -aggregate. - - -8. TRANSLATION - -Translation is considered a kind of modification, so you may -distribute translations of the Document under the terms of section 4. -Replacing Invariant Sections with translations requires special -permission from their copyright holders, but you may include -translations of some or all Invariant Sections in addition to the -original versions of these Invariant Sections. You may include a -translation of this License, and all the license notices in the -Document, and any Warranty Disclaimers, provided that you also include -the original English version of this License and the original versions -of those notices and disclaimers. In case of a disagreement between -the translation and the original version of this License or a notice -or disclaimer, the original version will prevail. - -If a section in the Document is Entitled "Acknowledgements", -"Dedications", or "History", the requirement (section 4) to Preserve -its Title (section 1) will typically require changing the actual -title. - - -9. TERMINATION - -You may not copy, modify, sublicense, or distribute the Document -except as expressly provided under this License. Any attempt -otherwise to copy, modify, sublicense, or distribute it is void, and -will automatically terminate your rights under this License. - -However, if you cease all violation of this License, then your license -from a particular copyright holder is reinstated (a) provisionally, -unless and until the copyright holder explicitly and finally -terminates your license, and (b) permanently, if the copyright holder -fails to notify you of the violation by some reasonable means prior to -60 days after the cessation. - -Moreover, your license from a particular copyright holder is -reinstated permanently if the copyright holder notifies you of the -violation by some reasonable means, this is the first time you have -received notice of violation of this License (for any work) from that -copyright holder, and you cure the violation prior to 30 days after -your receipt of the notice. - -Termination of your rights under this section does not terminate the -licenses of parties who have received copies or rights from you under -this License. If your rights have been terminated and not permanently -reinstated, receipt of a copy of some or all of the same material does -not give you any rights to use it. - - -10. FUTURE REVISIONS OF THIS LICENSE - -The Free Software Foundation may publish new, revised versions of the -GNU Free Documentation License from time to time. Such new versions -will be similar in spirit to the present version, but may differ in -detail to address new problems or concerns. See -https://www.gnu.org/licenses/. - -Each version of the License is given a distinguishing version number. -If the Document specifies that a particular numbered version of this -License "or any later version" applies to it, you have the option of -following the terms and conditions either of that specified version or -of any later version that has been published (not as a draft) by the -Free Software Foundation. If the Document does not specify a version -number of this License, you may choose any version ever published (not -as a draft) by the Free Software Foundation. If the Document -specifies that a proxy can decide which future versions of this -License can be used, that proxy's public statement of acceptance of a -version permanently authorizes you to choose that version for the -Document. - -11. RELICENSING - -"Massive Multiauthor Collaboration Site" (or "MMC Site") means any -World Wide Web server that publishes copyrightable works and also -provides prominent facilities for anybody to edit those works. A -public wiki that anybody can edit is an example of such a server. A -"Massive Multiauthor Collaboration" (or "MMC") contained in the site -means any set of copyrightable works thus published on the MMC site. - -"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 -license published by Creative Commons Corporation, a not-for-profit -corporation with a principal place of business in San Francisco, -California, as well as future copyleft versions of that license -published by that same organization. - -"Incorporate" means to publish or republish a Document, in whole or in -part, as part of another Document. - -An MMC is "eligible for relicensing" if it is licensed under this -License, and if all works that were first published under this License -somewhere other than this MMC, and subsequently incorporated in whole or -in part into the MMC, (1) had no cover texts or invariant sections, and -(2) were thus incorporated prior to November 1, 2008. - -The operator of an MMC Site may republish an MMC contained in the site -under CC-BY-SA on the same site at any time before August 1, 2009, -provided the MMC is eligible for relicensing. - - -ADDENDUM: How to use this License for your documents - -To use this License in a document you have written, include a copy of -the License in the document and put the following copyright and -license notices just after the title page: - - Copyright (c) YEAR YOUR NAME. - Permission is granted to copy, distribute and/or modify this document - under the terms of the GNU Free Documentation License, Version 1.3 - or any later version published by the Free Software Foundation; - with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. - A copy of the license is included in the section entitled "GNU - Free Documentation License". - -If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, -replace the "with...Texts." line with this: - - with the Invariant Sections being LIST THEIR TITLES, with the - Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. - -If you have Invariant Sections without Cover Texts, or some other -combination of the three, merge those two alternatives to suit the -situation. - -If your document contains nontrivial examples of program code, we -recommend releasing these examples in parallel under your choice of -free software license, such as the GNU General Public License, -to permit their use in free software. -@end example +@include doclicense.texi @bye diff --git a/etc/NEWS b/etc/NEWS index 83fe7a349e..cd855ab14e 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -1703,10 +1703,9 @@ It's a library to create, query, navigate and display hierarchy structures. ** New themes 'modus-vivendi' and 'modus-operandi'. These themes are designed to conform with the highest standard for -color-contrast accessibility (WCAG AAA). You can load either of them -using 'M-x customize-themes' or 'load-theme' from your init file. -Consult the Modus Themes Info manual for more information on the user -options they provide. +color-contrast accessibility (WCAG AAA). Consult the Modus Themes +Info manual for more information on how to enable and load them, as +well as how to configure the user options they provide. \f * Incompatible Editing Changes in Emacs 28.1 diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el index db61c97b76..710511bce0 100644 --- a/etc/themes/modus-operandi-theme.el +++ b/etc/themes/modus-operandi-theme.el @@ -4,4660 +4,64 @@ ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.0.2 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; This program is free software; you can redistribute it and/or +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. ;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. +;; Modus Operandi is the light variant of the Modus themes (Modus +;; Vivendi is the dark one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; modus-operandi-theme-slanted-constructs (boolean) -;; modus-operandi-theme-bold-constructs (boolean) -;; modus-operandi-theme-variable-pitch-headings (boolean) -;; modus-operandi-theme-no-mixed-fonts (boolean) -;; modus-operandi-theme-headings (alist) -;; modus-operandi-theme-scale-headings (boolean) -;; modus-operandi-theme-fringes (choice) -;; modus-operandi-theme-org-blocks (choice) -;; modus-operandi-theme-prompts (choice) -;; modus-operandi-theme-mode-line (choice) -;; modus-operandi-theme-diffs (choice) -;; modus-operandi-theme-faint-syntax (boolean) -;; modus-operandi-theme-intense-hl-line (boolean) -;; modus-operandi-theme-intense-paren-match (boolean) -;; modus-operandi-theme-no-link-underline (boolean) -;; modus-operandi-theme-completions (choice) -;; modus-operandi-theme-override-colors-alist (alist) -;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-operandi-theme-scale-1 1.05 -;; modus-operandi-theme-scale-2 1.1 -;; modus-operandi-theme-scale-3 1.15 -;; modus-operandi-theme-scale-4 1.2 -;; modus-operandi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-themes-core.el (Code used to produce the themes) +;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f +(require 'modus-themes) +(eval-when-compile + (require 'modus-themes-core)) + (deftheme modus-operandi "Light theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Operandi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-operandi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-operandi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-operandi-theme-proportional-fonts - 'modus-operandi-theme-variable-pitch-headings "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-section-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-operandi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-operandi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-operandi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-operandi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-2 1.1 - "Font size slightly larger than `modus-operandi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-3 1.15 - "Font size slightly larger than `modus-operandi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-4 1.2 - "Font size slightly larger than `modus-operandi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-5 1.3 - "Font size slightly larger than `modus-operandi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-operandi-theme-visible-fringes - 'modus-operandi-theme-fringes - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-operandi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-operandi-theme-distinct-org-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-operandi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-operandi-theme-3d-modeline - 'modus-operandi-theme-mode-line - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-operandi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-operandi-theme-subtle-diffs - 'modus-operandi-theme-diffs - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-operandi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-operandi-theme-intense-standard-completions - 'modus-operandi-theme-completions - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-operandi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-operandi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-operandi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-operandi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-operandi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-operandi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-operandi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-operandi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-operandi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-operandi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-operandi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-operandi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-operandi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-operandi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-operandi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-operandi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-operandi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-operandi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-operandi-theme-heading-p (key) - "Query style of KEY in `modus-operandi-theme-headings'." - (cdr (assoc key modus-operandi-theme-headings))) - -(defun modus-operandi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-operandi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-operandi-theme-heading-p `,level)) - (style (or key (modus-operandi-theme-heading-p t))) - (var (if modus-operandi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-operandi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-operandi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-operandi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-operandi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-operandi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-operandi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-operandi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-operandi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-operandi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-operandi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-operandi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-operandi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-operandi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-operandi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-operandi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-operandi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-operandi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-operandi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-operandi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-operandi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-operandi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-operandi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#ffffff") ("fg-main" . "#000000") - ("bg-alt" . "#f0f0f0") ("fg-alt" . "#505050") - ("bg-dim" . "#f8f8f8") ("fg-dim" . "#282828") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#d7d7d7") ("fg-active" . "#0a0a0a") - ("bg-inactive" . "#efefef") ("fg-inactive" . "#404148") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#dde3f4") ("fg-special-cold" . "#093060") - ("bg-special-mild" . "#c4ede0") ("fg-special-mild" . "#184034") - ("bg-special-warm" . "#f0e0d4") ("fg-special-warm" . "#5d3026") - ("bg-special-calm" . "#f8ddea") ("fg-special-calm" . "#61284f") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#a60000") ("green" . "#005e00") - ("yellow" . "#813e00") ("blue" . "#0031a9") - ("magenta" . "#721045") ("cyan" . "#00538b") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#972500") ("green-alt" . "#315b00") - ("yellow-alt" . "#70480f") ("blue-alt" . "#2544bb") - ("magenta-alt" . "#8f0075") ("cyan-alt" . "#30517f") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#a0132f") ("green-alt-other" . "#145c33") - ("yellow-alt-other" . "#863927") ("blue-alt-other" . "#0000c0") - ("magenta-alt-other" . "#5317ac") ("cyan-alt-other" . "#005a5f") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-operandi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#7f1010") ("green-faint" . "#104410") - ("yellow-faint" . "#5f4400") ("blue-faint" . "#002f88") - ("magenta-faint" . "#752f50") ("cyan-faint" . "#12506f") - - ("red-alt-faint" . "#702f00") ("green-alt-faint" . "#30440f") - ("yellow-alt-faint" . "#5d5000") ("blue-alt-faint" . "#003f78") - ("magenta-alt-faint" . "#702565") ("cyan-alt-faint" . "#354f6f") - - ("red-alt-other-faint" . "#7f002f") ("green-alt-other-faint" . "#0f443f") - ("yellow-alt-other-faint" . "#5e3a20") ("blue-alt-other-faint" . "#1f2f6f") - ("magenta-alt-other-faint" . "#5f3f7f") ("cyan-alt-other-faint" . "#2e584f") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#5f0000") ("green-nuanced" . "#004000") - ("yellow-nuanced" . "#3f3000") ("blue-nuanced" . "#201f55") - ("magenta-nuanced" . "#541f4f") ("cyan-nuanced" . "#0f3360") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#fff1f0") ("green-nuanced-bg" . "#ecf7ed") - ("yellow-nuanced-bg" . "#fff3da") ("blue-nuanced-bg" . "#f3f3ff") - ("magenta-nuanced-bg" . "#fdf0ff") ("cyan-nuanced-bg" . "#ebf6fa") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#b60000") ("green-intense" . "#006800") - ("yellow-intense" . "#904200") ("blue-intense" . "#1111ee") - ("magenta-intense" . "#7000e0") ("cyan-intense" . "#205b93") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#f2b0a2") ("green-subtle-bg" . "#aecf90") - ("yellow-subtle-bg" . "#e4c340") ("blue-subtle-bg" . "#b5d0ff") - ("magenta-subtle-bg" . "#f0d3ff") ("cyan-subtle-bg" . "#c0efff") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#ff8892") ("green-intense-bg" . "#5ada88") - ("yellow-intense-bg" . "#f5df23") ("blue-intense-bg" . "#6aaeff") - ("magenta-intense-bg" . "#d5baff") ("cyan-intense-bg" . "#42cbd4") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#ffcccc") ("red-refine-fg" . "#780000") - ("green-refine-bg" . "#aceaac") ("green-refine-fg" . "#004c00") - ("yellow-refine-bg" . "#fff29a") ("yellow-refine-fg" . "#604000") - ("blue-refine-bg" . "#8ac7ff") ("blue-refine-fg" . "#002288") - ("magenta-refine-bg" . "#ffccff") ("magenta-refine-fg" . "#770077") - ("cyan-refine-bg" . "#8eecf4") ("cyan-refine-fg" . "#004850") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#8a0000") ("green-active" . "#004c2e") - ("yellow-active" . "#702d1f") ("blue-active" . "#0030b4") - ("magenta-active" . "#5c2092") ("cyan-active" . "#003f8a") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#f08290") ("green-fringe-bg" . "#62c86a") - ("yellow-fringe-bg" . "#dbba3f") ("blue-fringe-bg" . "#82afff") - ("magenta-fringe-bg" . "#e0a3ff") ("cyan-fringe-bg" . "#2fcddf") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#f2eff3") - ("bg-hl-line-intense" . "#e0e0e0") - ("bg-hl-alt" . "#fbeee0") - ("bg-hl-alt-intense" . "#e8dfd1") - ("bg-paren-match" . "#e0af82") - ("bg-paren-match-intense" . "#c488ff") - ("bg-region" . "#bcbcbc") - - ("bg-tab-bar" . "#d5d5d5") - ("bg-tab-active" . "#f6f6f6") - ("bg-tab-inactive" . "#bdbdbd") - ("fg-tab-active" . "#30169e") - - ("fg-escape-char-construct" . "#8b1030") - ("fg-escape-char-backslash" . "#654d0f") - - ("fg-lang-error" . "#9f004f") - ("fg-lang-warning" . "#604f0f") - ("fg-lang-note" . "#4040ae") - - ("fg-window-divider-inner" . "#888888") - ("fg-window-divider-outer" . "#585858") - - ("fg-unfocused" . "#56576d") - - ("bg-header" . "#e5e5e5") ("fg-header" . "#2a2a2a") - - ("bg-whitespace" . "#fff8fc") ("fg-whitespace" . "#645060") - - ("bg-diff-heading" . "#b7c2dd") ("fg-diff-heading" . "#043355") - ("bg-diff-added" . "#d4fad4") ("fg-diff-added" . "#004500") - ("bg-diff-changed" . "#fcefcf") ("fg-diff-changed" . "#524200") - ("bg-diff-removed" . "#ffe8ef") ("fg-diff-removed" . "#691616") - - ("bg-diff-refine-added" . "#94cf94") ("fg-diff-refine-added" . "#002a00") - ("bg-diff-refine-changed" . "#cccf8f") ("fg-diff-refine-changed" . "#302010") - ("bg-diff-refine-removed" . "#daa2b0") ("fg-diff-refine-removed" . "#400000") - - ("bg-diff-focus-added" . "#bbeabb") ("fg-diff-focus-added" . "#002c00") - ("bg-diff-focus-changed" . "#ecdfbf") ("fg-diff-focus-changed" . "#392900") - ("bg-diff-focus-removed" . "#efcbcf") ("fg-diff-focus-removed" . "#4a0000") - - ("bg-diff-neutral-0" . "#979797") ("fg-diff-neutral-0" . "#040404") - ("bg-diff-neutral-1" . "#b0b0b0") ("fg-diff-neutral-1" . "#252525") - ("bg-diff-neutral-2" . "#cccccc") ("fg-diff-neutral-2" . "#3a3a3a") - - ("bg-mark-sel" . "#a0f0cf") ("fg-mark-sel" . "#005040") - ("bg-mark-del" . "#ffccbb") ("fg-mark-del" . "#840040") - ("bg-mark-alt" . "#f5d88f") ("fg-mark-alt" . "#782900")) - "The entire palette of `modus-operandi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-operandi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-operandi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-operandi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-operandi-theme-default-colors-alist - modus-operandi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-operandi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-operandi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces - -(modus-operandi-theme-with-color-variables - (custom-theme-set-faces - 'modus-operandi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-operandi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-operandi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-operandi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-operandi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-operandi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-operandi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-operandi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-operandi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-operandi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-operandi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-operandi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-operandi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-operandi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-operandi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-operandi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-operandi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-operandi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-operandi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-operandi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-operandi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-operandi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-operandi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-operandi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-operandi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-operandi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-operandi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-operandi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-alt]) - `(xterm-color-names-bright [,fg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,bg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-operandi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-operandi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) + standard for color contrast between background and foreground + elements (WCAG AAA).") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-core-theme + 'modus-operandi) (provide-theme 'modus-operandi) diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el index d45c3ca2ee..b260394905 100644 --- a/etc/themes/modus-vivendi-theme.el +++ b/etc/themes/modus-vivendi-theme.el @@ -4,4660 +4,64 @@ ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.0.2 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; This program is free software; you can redistribute it and/or +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. ;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. +;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi +;; is the light one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; modus-vivendi-theme-slanted-constructs (boolean) -;; modus-vivendi-theme-bold-constructs (boolean) -;; modus-vivendi-theme-variable-pitch-headings (boolean) -;; modus-vivendi-theme-no-mixed-fonts (boolean) -;; modus-vivendi-theme-headings (alist) -;; modus-vivendi-theme-scale-headings (boolean) -;; modus-vivendi-theme-fringes (choice) -;; modus-vivendi-theme-org-blocks (choice) -;; modus-vivendi-theme-prompts (choice) -;; modus-vivendi-theme-mode-line (choice) -;; modus-vivendi-theme-diffs (choice) -;; modus-vivendi-theme-faint-syntax (boolean) -;; modus-vivendi-theme-intense-hl-line (boolean) -;; modus-vivendi-theme-intense-paren-match (boolean) -;; modus-vivendi-theme-no-link-underline (boolean) -;; modus-vivendi-theme-completions (choice) -;; modus-vivendi-theme-override-colors-alist (alist) -;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-vivendi-theme-scale-1 1.05 -;; modus-vivendi-theme-scale-2 1.1 -;; modus-vivendi-theme-scale-3 1.15 -;; modus-vivendi-theme-scale-4 1.2 -;; modus-vivendi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-themes-core.el (Code used to produce the themes) +;; - modus-operandi-theme.el (Light theme) ;;; Code: \f +(require 'modus-themes) +(eval-when-compile + (require 'modus-themes-core)) + (deftheme modus-vivendi "Dark theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Vivendi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-vivendi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-vivendi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-vivendi-theme-proportional-fonts - 'modus-vivendi-theme-variable-pitch-headings "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-section-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-vivendi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-vivendi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-vivendi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-vivendi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-2 1.1 - "Font size slightly larger than `modus-vivendi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-3 1.15 - "Font size slightly larger than `modus-vivendi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-4 1.2 - "Font size slightly larger than `modus-vivendi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-5 1.3 - "Font size slightly larger than `modus-vivendi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-vivendi-theme-visible-fringes - 'modus-vivendi-theme-fringes - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-vivendi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-vivendi-theme-distinct-org-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-vivendi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-vivendi-theme-3d-modeline - 'modus-vivendi-theme-mode-line - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-vivendi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-vivendi-theme-subtle-diffs - 'modus-vivendi-theme-diffs - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-vivendi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-vivendi-theme-intense-standard-completions - 'modus-vivendi-theme-completions - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-vivendi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-vivendi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-vivendi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-vivendi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-vivendi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-vivendi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-vivendi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-vivendi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-vivendi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-vivendi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-vivendi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-vivendi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-vivendi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-vivendi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-vivendi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-vivendi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-vivendi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-vivendi-theme-heading-p (key) - "Query style of KEY in `modus-vivendi-theme-headings'." - (cdr (assoc key modus-vivendi-theme-headings))) - -(defun modus-vivendi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-vivendi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-vivendi-theme-heading-p `,level)) - (style (or key (modus-vivendi-theme-heading-p t))) - (var (if modus-vivendi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-vivendi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-vivendi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-vivendi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-vivendi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-vivendi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-vivendi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-vivendi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-vivendi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-vivendi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-vivendi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-vivendi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-vivendi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-vivendi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-vivendi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-vivendi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-vivendi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-vivendi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-vivendi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-vivendi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-vivendi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-vivendi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-vivendi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#000000") ("fg-main" . "#ffffff") - ("bg-alt" . "#181a20") ("fg-alt" . "#a8a8a8") - ("bg-dim" . "#110b11") ("fg-dim" . "#e0e6f0") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#323232") ("fg-active" . "#f4f4f4") - ("bg-inactive" . "#1e1e1e") ("fg-inactive" . "#bfc0c4") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#203448") ("fg-special-cold" . "#c6eaff") - ("bg-special-mild" . "#00322e") ("fg-special-mild" . "#bfebe0") - ("bg-special-warm" . "#382f27") ("fg-special-warm" . "#f8dec0") - ("bg-special-calm" . "#392a48") ("fg-special-calm" . "#fbd6f4") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#ff8059") ("green" . "#44bc44") - ("yellow" . "#eecc00") ("blue" . "#2fafff") - ("magenta" . "#feacd0") ("cyan" . "#00d3d0") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#f4923b") ("green-alt" . "#80d200") - ("yellow-alt" . "#cfdf30") ("blue-alt" . "#79a8ff") - ("magenta-alt" . "#f78fe7") ("cyan-alt" . "#4ae8fc") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#ff9977") ("green-alt-other" . "#00cd68") - ("yellow-alt-other" . "#f0ce43") ("blue-alt-other" . "#00bcff") - ("magenta-alt-other" . "#b6a0ff") ("cyan-alt-other" . "#6ae4b9") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-vivendi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#ffa0a0") ("green-faint" . "#88cf88") - ("yellow-faint" . "#d2b580") ("blue-faint" . "#92baff") - ("magenta-faint" . "#e0b2d6") ("cyan-faint" . "#a0bfdf") - - ("red-alt-faint" . "#f5aa80") ("green-alt-faint" . "#a8cf88") - ("yellow-alt-faint" . "#cabf77") ("blue-alt-faint" . "#a4b0ff") - ("magenta-alt-faint" . "#ef9fe4") ("cyan-alt-faint" . "#90c4ed") - - ("red-alt-other-faint" . "#ff9fbf") ("green-alt-other-faint" . "#88cfaf") - ("yellow-alt-other-faint" . "#d0ba95") ("blue-alt-other-faint" . "#8fc5ff") - ("magenta-alt-other-faint" . "#d0b4ff") ("cyan-alt-other-faint" . "#a4d0bb") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#ffcccc") ("green-nuanced" . "#b8e2b8") - ("yellow-nuanced" . "#dfdfb0") ("blue-nuanced" . "#bfd9ff") - ("magenta-nuanced" . "#e5cfef") ("cyan-nuanced" . "#a8e5e5") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#2c0614") ("green-nuanced-bg" . "#001904") - ("yellow-nuanced-bg" . "#221000") ("blue-nuanced-bg" . "#0f0e39") - ("magenta-nuanced-bg" . "#230631") ("cyan-nuanced-bg" . "#041529") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#fb6859") ("green-intense" . "#00fc50") - ("yellow-intense" . "#ffdd00") ("blue-intense" . "#00a2ff") - ("magenta-intense" . "#ff8bd4") ("cyan-intense" . "#30ffc0") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#762422") ("green-subtle-bg" . "#2f4a00") - ("yellow-subtle-bg" . "#604200") ("blue-subtle-bg" . "#10387c") - ("magenta-subtle-bg" . "#49366e") ("cyan-subtle-bg" . "#00415e") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#a4202a") ("green-intense-bg" . "#006800") - ("yellow-intense-bg" . "#874900") ("blue-intense-bg" . "#2a40b8") - ("magenta-intense-bg" . "#7042a2") ("cyan-intense-bg" . "#005f88") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#77002a") ("red-refine-fg" . "#ffb9ab") - ("green-refine-bg" . "#00422a") ("green-refine-fg" . "#9ff0cf") - ("yellow-refine-bg" . "#693200") ("yellow-refine-fg" . "#e2d980") - ("blue-refine-bg" . "#242679") ("blue-refine-fg" . "#8ec6ff") - ("magenta-refine-bg" . "#71206a") ("magenta-refine-fg" . "#ffcaf0") - ("cyan-refine-bg" . "#004065") ("cyan-refine-fg" . "#8ae4f2") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#ffa7ba") ("green-active" . "#70d73f") - ("yellow-active" . "#dbbe5f") ("blue-active" . "#34cfff") - ("magenta-active" . "#d5b1ff") ("cyan-active" . "#00d8b4") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#8f1f4b") ("green-fringe-bg" . "#006700") - ("yellow-fringe-bg" . "#6f4f00") ("blue-fringe-bg" . "#3f33af") - ("magenta-fringe-bg" . "#6f2f89") ("cyan-fringe-bg" . "#004f8f") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#151823") - ("bg-hl-line-intense" . "#2f2f2f") - ("bg-hl-alt" . "#181732") - ("bg-hl-alt-intense" . "#282e46") - ("bg-paren-match" . "#5f362f") - ("bg-paren-match-intense" . "#7416b5") - ("bg-region" . "#3c3c3c") - - ("bg-tab-bar" . "#2c2c2c") - ("bg-tab-active" . "#0e0e0e") - ("bg-tab-inactive" . "#3d3d3d") - ("fg-tab-active" . "#5ac3cf") - - ("fg-escape-char-construct" . "#e7a59a") - ("fg-escape-char-backslash" . "#abab00") - - ("fg-lang-error" . "#ef8690") - ("fg-lang-warning" . "#b0aa00") - ("fg-lang-note" . "#9d9def") - - ("fg-window-divider-inner" . "#646464") - ("fg-window-divider-outer" . "#969696") - - ("fg-unfocused" . "#93959b") - - ("bg-header" . "#212121") ("fg-header" . "#dddddd") - - ("bg-whitespace" . "#170016") ("fg-whitespace" . "#a4959f") - - ("bg-diff-heading" . "#304466") ("fg-diff-heading" . "#dadffe") - ("bg-diff-added" . "#0a280a") ("fg-diff-added" . "#94ba94") - ("bg-diff-changed" . "#2a2000") ("fg-diff-changed" . "#b0ba9f") - ("bg-diff-removed" . "#40160f") ("fg-diff-removed" . "#c6adaa") - - ("bg-diff-refine-added" . "#005a36") ("fg-diff-refine-added" . "#e0f6e0") - ("bg-diff-refine-changed" . "#585800") ("fg-diff-refine-changed" . "#ffffcc") - ("bg-diff-refine-removed" . "#852828") ("fg-diff-refine-removed" . "#ffd9eb") - - ("bg-diff-focus-added" . "#203d20") ("fg-diff-focus-added" . "#b4ddb4") - ("bg-diff-focus-changed" . "#4a3a10") ("fg-diff-focus-changed" . "#d0daaf") - ("bg-diff-focus-removed" . "#5e2526") ("fg-diff-focus-removed" . "#eebdba") - - ("bg-diff-neutral-0" . "#575757") ("fg-diff-neutral-0" . "#fcfcfc") - ("bg-diff-neutral-1" . "#454545") ("fg-diff-neutral-1" . "#dddddd") - ("bg-diff-neutral-2" . "#313131") ("fg-diff-neutral-2" . "#bfbfbf") - - ("bg-mark-sel" . "#002f2f") ("fg-mark-sel" . "#60cfa2") - ("bg-mark-del" . "#5a0000") ("fg-mark-del" . "#ff99aa") - ("bg-mark-alt" . "#3f2210") ("fg-mark-alt" . "#f0aa20")) - "The entire palette of `modus-vivendi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-vivendi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-vivendi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-vivendi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-vivendi-theme-default-colors-alist - modus-vivendi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-vivendi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-vivendi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces - -(modus-vivendi-theme-with-color-variables - (custom-theme-set-faces - 'modus-vivendi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-vivendi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-vivendi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-vivendi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-vivendi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-vivendi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-vivendi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-vivendi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-vivendi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-vivendi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-vivendi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-vivendi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-vivendi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-vivendi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-vivendi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-vivendi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-vivendi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-vivendi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-vivendi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-vivendi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-vivendi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-vivendi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-alt]) - `(xterm-color-names-bright [,bg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,fg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-vivendi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-vivendi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) + standard for color contrast between background and foreground + elements (WCAG AAA).") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-core-theme + 'modus-vivendi) (provide-theme 'modus-vivendi) diff --git a/lisp/themes/modus-themes-core.el b/lisp/themes/modus-themes-core.el new file mode 100644 index 0000000000..88279cf75a --- /dev/null +++ b/lisp/themes/modus-themes-core.el @@ -0,0 +1,80 @@ +;;; modus-themes-core.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- + +;; Copyright (C) 2019-2020 Free Software Foundation, Inc. + +;; Author: Protesilaos Stavrou <info@protesilaos.com> +;; URL: https://gitlab.com/protesilaos/modus-themes +;; Version: 1.0.2 +;; Package-Requires: ((emacs "26.1")) +;; Keywords: faces, theme, accessibility + +;; This file is part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <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). +;; This file contains all customisation options, helper functions, +;; interactive commands, and face specifications. +;; +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): +;; +;; - modus-themes.el (Main code shared between the themes) +;; - modus-operandi-theme.el (Light theme) +;; - modus-vivendi-theme.el (Dark theme) + +;;; Code: + +\f + +(defvar modus-themes-colors-operandi) +(defvar modus-themes-colors-vivendi) +(defvar modus-themes-faces) +(defvar modus-themes-custom-variables) + +(defun modus-themes-core-theme-variables (name) + "Return correct variable for Modus theme NAME." + (pcase name + (''modus-operandi modus-themes-colors-operandi) + (''modus-vivendi modus-themes-colors-vivendi) + (_ (user-error "<< %s >> is not a valid Modus theme" name)))) + +(defmacro modus-themes-core-theme (name) + "Bind NAME's color palette around face specifications. + +NAME should be the proper name of a Modus theme, either +'modus-operandi or 'modus-vivendi. + +Face specifications are those passed to `custom-theme-set-faces'. +They are extracted directly from variables defined in the +`modus-themes' library. For example, `modus-themes-faces'." + (let ((faces modus-themes-faces) + (cus modus-themes-custom-variables)) + `(let ((class '((class color) (min-colors 89))) + ,@(mapcar (lambda (cons) + `(,(car cons) ,(cdr cons))) + (modus-themes-core-theme-variables name))) + (custom-theme-set-faces + ,name + ,@faces) + (custom-theme-set-variables + ,name + ,@cus)))) + +(provide 'modus-themes-core) +;;; modus-themes-core.el ends here diff --git a/lisp/themes/modus-themes.el b/lisp/themes/modus-themes.el new file mode 100644 index 0000000000..8c1f32332c --- /dev/null +++ b/lisp/themes/modus-themes.el @@ -0,0 +1,5164 @@ +;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- + +;; Copyright (C) 2019-2020 Free Software Foundation, Inc. + +;; Author: Protesilaos Stavrou <info@protesilaos.com> +;; URL: https://gitlab.com/protesilaos/modus-themes +;; Version: 1.0.2 +;; Package-Requires: ((emacs "26.1")) +;; Keywords: faces, theme, accessibility + +;; This file is part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <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). +;; This file contains all customisation options, helper functions, +;; interactive commands, and face specifications. Please refer to the +;; official Info manual for further documentation (distributed with the +;; themes, or available at: <https://protesilaos.com/modus-themes>). +;; +;; The themes share the following customization options, all of which +;; are disabled by default (nil): +;; +;; modus-themes-slanted-constructs (boolean) +;; modus-themes-bold-constructs (boolean) +;; modus-themes-variable-pitch-headings (boolean) +;; modus-themes-no-mixed-fonts (boolean) +;; modus-themes-headings (alist) +;; modus-themes-scale-headings (boolean) +;; modus-themes-fringes (choice) +;; modus-themes-org-blocks (choice) +;; modus-themes-prompts (choice) +;; modus-themes-mode-line (choice) +;; modus-themes-diffs (choice) +;; modus-themes-syntax (choice) +;; modus-themes-intense-hl-line (boolean) +;; modus-themes-paren-match (choice) +;; modus-themes-region (choice) +;; modus-themes-links (choice) +;; modus-themes-completions (choice) +;; +;; The default scale for headings is as follows (it can be customized as +;; well---remember, no scaling takes place by default): +;; +;; modus-themes-scale-1 1.05 +;; modus-themes-scale-2 1.1 +;; modus-themes-scale-3 1.15 +;; modus-themes-scale-4 1.2 +;; modus-themes-scale-5 1.3 +;; +;; Below is the list of explicitly supported packages or face groups +;; (there are implicitly supported packages as well, which inherit from +;; font-lock or some basic group). You are encouraged to report of any +;; missing package or change you would like to see. +;; +;; ace-window +;; ag +;; alert +;; all-the-icons +;; annotate +;; anzu +;; apropos +;; apt-sources-list +;; artbollocks-mode +;; auctex and TeX +;; auto-dim-other-buffers +;; avy +;; awesome-tray +;; binder +;; bm +;; bongo +;; boon +;; breakpoint (provided by built-in gdb-mi.el) +;; buffer-expose +;; calendar and diary +;; calfw +;; centaur-tabs +;; change-log and log-view (`vc-print-log' and `vc-print-root-log') +;; cider +;; circe +;; color-rg +;; column-enforce-mode +;; company-mode +;; company-posframe +;; compilation-mode +;; completions +;; consult +;; counsel +;; counsel-css +;; counsel-notmuch +;; counsel-org-capture-string +;; cov +;; cperl-mode +;; csv-mode +;; ctrlf +;; custom (M-x customize) +;; dap-mode +;; dashboard (emacs-dashboard) +;; deadgrep +;; debbugs +;; define-word +;; deft +;; dictionary +;; diff-hl +;; diff-mode +;; dim-autoload +;; dir-treeview +;; dired +;; dired-async +;; dired-git +;; dired-git-info +;; dired-narrow +;; dired-subtree +;; diredfl +;; disk-usage +;; doom-modeline +;; dynamic-ruler +;; easy-jekyll +;; easy-kill +;; ebdb +;; ediff +;; eglot +;; el-search +;; eldoc +;; eldoc-box +;; elfeed +;; elfeed-score +;; emms +;; enhanced-ruby-mode +;; epa +;; equake +;; erc +;; eros +;; ert +;; eshell +;; eshell-fringe-status +;; eshell-git-prompt +;; eshell-prompt-extras (epe) +;; eshell-syntax-highlighting +;; evil (evil-mode) +;; evil-goggles +;; evil-visual-mark-mode +;; eww +;; exwm +;; eyebrowse +;; fancy-dabbrev +;; flycheck +;; flycheck-color-mode-line +;; flycheck-indicator +;; flycheck-posframe +;; flymake +;; flyspell +;; flyspell-correct +;; flx +;; freeze-it +;; frog-menu +;; focus +;; fold-this +;; font-lock (generic syntax highlighting) +;; forge +;; fountain (fountain-mode) +;; geiser +;; git-commit +;; git-gutter (and variants) +;; git-lens +;; git-rebase +;; git-timemachine +;; git-walktree +;; gnus +;; golden-ratio-scroll-screen +;; helm +;; helm-ls-git +;; helm-switch-shell +;; helm-xref +;; helpful +;; highlight-blocks +;; highlight-defined +;; highlight-escape-sequences (`hes-mode') +;; highlight-indentation +;; highlight-numbers +;; highlight-symbol +;; highlight-tail +;; highlight-thing +;; hl-defined +;; hl-fill-column +;; hl-line-mode +;; hl-todo +;; hydra +;; hyperlist +;; ibuffer +;; icomplete +;; ido-mode +;; iedit +;; iflipb +;; imenu-list +;; indium +;; info +;; info-colors +;; interaction-log +;; ioccur +;; isearch, occur, etc. +;; ivy +;; ivy-posframe +;; jira (org-jira) +;; journalctl-mode +;; js2-mode +;; julia +;; jupyter +;; kaocha-runner +;; keycast +;; line numbers (`display-line-numbers-mode' and global variant) +;; lsp-mode +;; lsp-ui +;; macrostep +;; magit +;; magit-imerge +;; make-mode +;; man +;; markdown-mode +;; markup-faces (`adoc-mode') +;; mentor +;; messages +;; minibuffer-line +;; minimap +;; modeline +;; mood-line +;; mpdel +;; mu4e +;; mu4e-conversation +;; multiple-cursors +;; neotree +;; no-emoji +;; notmuch +;; num3-mode +;; nxml-mode +;; objed +;; orderless +;; org +;; org-journal +;; org-noter +;; org-pomodoro +;; org-recur +;; org-roam +;; org-superstar +;; org-table-sticky-header +;; org-treescope +;; origami +;; outline-mode +;; outline-minor-faces +;; package (M-x list-packages) +;; page-break-lines +;; paradox +;; paren-face +;; parrot +;; pass +;; pdf-tools +;; persp-mode +;; perspective +;; phi-grep +;; phi-search +;; pkgbuild-mode +;; pomidor +;; popup +;; powerline +;; powerline-evil +;; proced +;; prodigy +;; racket-mode +;; rainbow-blocks +;; rainbow-identifiers +;; rainbow-delimiters +;; rcirc +;; regexp-builder (also known as `re-builder') +;; rg +;; ripgrep +;; rmail +;; ruler-mode +;; sallet +;; selectrum +;; semantic +;; sesman +;; shell-script-mode +;; show-paren-mode +;; shr +;; side-notes +;; sieve-mode +;; skewer-mode +;; smart-mode-line +;; smartparens +;; smerge +;; spaceline +;; speedbar +;; spell-fu +;; stripes +;; suggest +;; switch-window +;; swiper +;; swoop +;; sx +;; symbol-overlay +;; tab-bar-mode +;; tab-line-mode +;; syslog-mode +;; table (built-in table.el) +;; telephone-line +;; term +;; tomatinho +;; transient (pop-up windows like Magit's) +;; trashed +;; treemacs +;; tty-menu +;; tuareg +;; typescript +;; undo-tree +;; vc (built-in mode line status for version control) +;; vc-annotate (C-x v g) +;; vdiff +;; vimish-fold +;; visible-mark +;; visual-regexp +;; volatile-highlights +;; vterm +;; wcheck-mode +;; web-mode +;; wgrep +;; which-function-mode +;; which-key +;; whitespace-mode +;; window-divider-mode +;; winum +;; writegood-mode +;; woman +;; xah-elisp-mode +;; xref +;; xterm-color (and ansi-colors) +;; yaml-mode +;; yasnippet +;; ztree +;; +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): +;; +;; - modus-themes-core.el (Code used to produce the themes) +;; - modus-operandi-theme.el (Light theme) +;; - modus-vivendi-theme.el (Dark theme) + +;;; Code: + +\f + +(require 'cl-lib) + +;;; Custom faces + +(defgroup modus-theme () + "Custom faces for the Modus themes." + :group 'faces + :prefix "modus-theme-" + :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") + :tag "Modus Operandi") + +(defface modus-theme-subtle-red nil nil) +(defface modus-theme-subtle-green nil nil) +(defface modus-theme-subtle-yellow nil nil) +(defface modus-theme-subtle-blue nil nil) +(defface modus-theme-subtle-magenta nil nil) +(defface modus-theme-subtle-cyan nil nil) +(defface modus-theme-subtle-neutral nil nil) +(defface modus-theme-intense-red nil nil) +(defface modus-theme-intense-green nil nil) +(defface modus-theme-intense-yellow nil nil) +(defface modus-theme-intense-blue nil nil) +(defface modus-theme-intense-magenta nil nil) +(defface modus-theme-intense-cyan nil nil) +(defface modus-theme-intense-neutral nil nil) +(defface modus-theme-refine-red nil nil) +(defface modus-theme-refine-green nil nil) +(defface modus-theme-refine-yellow nil nil) +(defface modus-theme-refine-blue nil nil) +(defface modus-theme-refine-magenta nil nil) +(defface modus-theme-refine-cyan nil nil) +(defface modus-theme-active-red nil nil) +(defface modus-theme-active-green nil nil) +(defface modus-theme-active-yellow nil nil) +(defface modus-theme-active-blue nil nil) +(defface modus-theme-active-magenta nil nil) +(defface modus-theme-active-cyan nil nil) +(defface modus-theme-fringe-red nil nil) +(defface modus-theme-fringe-green nil nil) +(defface modus-theme-fringe-yellow nil nil) +(defface modus-theme-fringe-blue nil nil) +(defface modus-theme-fringe-magenta nil nil) +(defface modus-theme-fringe-cyan nil nil) +(defface modus-theme-nuanced-red nil nil) +(defface modus-theme-nuanced-green nil nil) +(defface modus-theme-nuanced-yellow nil nil) +(defface modus-theme-nuanced-blue nil nil) +(defface modus-theme-nuanced-magenta nil nil) +(defface modus-theme-nuanced-cyan nil nil) +(defface modus-theme-special-cold nil nil) +(defface modus-theme-special-mild nil nil) +(defface modus-theme-special-warm nil nil) +(defface modus-theme-special-calm nil nil) +(defface modus-theme-diff-added nil nil) +(defface modus-theme-diff-changed nil nil) +(defface modus-theme-diff-removed nil nil) +(defface modus-theme-diff-refine-added nil nil) +(defface modus-theme-diff-refine-changed nil nil) +(defface modus-theme-diff-refine-removed nil nil) +(defface modus-theme-diff-focus-added nil nil) +(defface modus-theme-diff-focus-changed nil nil) +(defface modus-theme-diff-focus-removed nil nil) +(defface modus-theme-diff-heading nil nil) +(defface modus-theme-pseudo-header nil nil) +(defface modus-theme-mark-alt nil nil) +(defface modus-theme-mark-del nil nil) +(defface modus-theme-mark-sel nil nil) +(defface modus-theme-mark-symbol nil nil) +(defface modus-theme-heading-1 nil nil) +(defface modus-theme-heading-2 nil nil) +(defface modus-theme-heading-3 nil nil) +(defface modus-theme-heading-4 nil nil) +(defface modus-theme-heading-5 nil nil) +(defface modus-theme-heading-6 nil nil) +(defface modus-theme-heading-7 nil nil) +(defface modus-theme-heading-8 nil nil) +(defface modus-theme-hl-line nil nil) +(defface modus-theme-bold nil nil) +(defface modus-theme-slant nil nil) +(defface modus-theme-variable-pitch nil nil) + +\f + +;;; Customization options + +;;;; Current customisation options (>= 1.0.0) + +(defcustom modus-themes-slanted-constructs nil + "Use slanted text in more code constructs (italics or oblique)." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-bold-constructs nil + "Use bold text in more code constructs." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-variable-pitch-headings nil + "Use proportional fonts (variable-pitch) in headings." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-no-mixed-fonts nil + "Disable inheritance from `fixed-pitch' in some faces. + +This is done by default 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'. +The downside with the default is that users need to explicitly +configure the font family of `fixed-pitch' in order to get a +consistent experience. That may be something they do not want to +do. Hence this option to disable any kind of technique for +mixing fonts." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-headings + '((t . nil)) + "Alist of styles for headings, with optional value per level. + +To control faces per level from 1-8, use something like this: + + (setq modus-themes-headings + '((1 . highlight) + (2 . line) + (t . rainbow-line-no-bold))) + +To set a uniform value for all heading levels, use this pattern: + + (setq modus-themes-headings + '((t . rainbow-line-no-bold))) + +The default uses a fairly desaturated foreground value in +combination with a bold typographic weight. To specify this +style for a given level N (assuming you wish to have another +fallback option), just specify the value t like this: + + (setq modus-themes-headings + '((1 . t) + (2 . line) + (t . rainbow-line-no-bold))) + +A description of all possible values: + ++ `no-bold' retains the default text color while removing the + typographic weight. + ++ `line' is the same as the default plus an overline over the + heading. + ++ `line-no-bold' is the same as `line' without bold weight. + ++ `rainbow' uses a more colorful foreground in combination with + bold weight. + ++ `rainbow-line' is the same as `rainbow' plus an overline. + ++ `rainbow-line-no-bold' is the same as `rainbow-line' without + the bold weight. + ++ `highlight' retains the default style of a fairly desaturated + foreground combined with a bold weight and add to it a subtle + accented background. + ++ `highlight-no-bold' is the same as `highlight' without a bold + weight. + ++ `rainbow-highlight' is the same as `highlight' but with a more + colorful foreground. + ++ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' + without a bold weight. + ++ `section' retains the default looks and adds to them both an + overline and a slightly accented background. It is, in effect, + a combination of the `line' and `highlight' values. + ++ `section-no-bold' is the same as `section' without a bold + weight. + ++ `rainbow-section' is the same as `section' but with a more + colorful foreground. + ++ `rainbow-section-no-bold' is the same as `rainbow-section' + without a bold weight." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type + '(alist + :key-type symbol + :value-type + (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) + (const :tag "Like the default without bold weight" no-bold) + (const :tag "Like the default plus overline" line) + (const :tag "Like `line' without bold weight" line-no-bold) + (const :tag "Like the default but with more colorful foreground" rainbow) + (const :tag "Like `rainbow' plus overline" rainbow-line) + (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) + (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) + (const :tag "Like the default plus subtle background" highlight) + (const :tag "Like `highlight' without bold weight" highlight-no-bold) + (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) + (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) + (const :tag "Like `highlight' plus overline" section) + (const :tag "Like `section' without bold weight" section-no-bold) + (const :tag "Like `section' with more colorful foreground" rainbow-section) + (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) + +(defcustom modus-themes-scale-headings nil + "Use font scaling for headings." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-scale-1 1.05 + "Font size that is slightly larger than the base value. +The default is a floating point that is interpreted as a multiple +of the base font size. However, the variable also accepts an +integer, understood as an absolute height (e.g. a value of 140 is +the same as setting the font at 14 point size). + +For more on the matter, read the documentation of +`set-face-attribute', specifically the ':height' section." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'number) + +(defcustom modus-themes-scale-2 1.1 + "Font size slightly larger than `modus-themes-scale-1'. +The default is a floating point that is interpreted as a multiple +of the base font size. However, the variable also accepts an +integer, understood as an absolute height (e.g. a value of 140 is +the same as setting the font at 14 point size). + +For more on the matter, read the documentation of +`set-face-attribute', specifically the ':height' section." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'number) + +(defcustom modus-themes-scale-3 1.15 + "Font size slightly larger than `modus-themes-scale-2'. +The default is a floating point that is interpreted as a multiple +of the base font size. However, the variable also accepts an +integer, understood as an absolute height (e.g. a value of 140 is +the same as setting the font at 14 point size). + +For more on the matter, read the documentation of +`set-face-attribute', specifically the ':height' section." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'number) + +(defcustom modus-themes-scale-4 1.2 + "Font size slightly larger than `modus-themes-scale-3'. +The default is a floating point that is interpreted as a multiple +of the base font size. However, the variable also accepts an +integer, understood as an absolute height (e.g. a value of 140 is +the same as setting the font at 14 point size). + +For more on the matter, read the documentation of +`set-face-attribute', specifically the ':height' section." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'number) + +(defcustom modus-themes-scale-5 1.3 + "Font size slightly larger than `modus-themes-scale-4'. +The default is a floating point that is interpreted as a multiple +of the base font size. However, the variable also accepts an +integer, understood as an absolute height (e.g. a value of 140 is +the same as setting the font at 14 point size). + +For more on the matter, read the documentation of +`set-face-attribute', specifically the ':height' section." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'number) + +(defcustom modus-themes-fringes nil + "Define the visibility of fringes. + +Nil means the fringes have no background color. Option `subtle' +will apply a greyscale value that is visible yet close to the +main buffer background color. Option `intense' will use a more +pronounced greyscale value." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No visible fringes (default)" nil) + (const :tag "Subtle greyscale background" subtle) + (const :tag "Intense greyscale background" intense))) + +(defcustom modus-themes-org-blocks nil + "Use a subtle gray or color-coded background for Org blocks. + +Nil means that the block will have no background of its own and +will use the default that applies to the rest of the buffer. + +Option `grayscale' (or `greyscale') will apply a subtle neutral +gray background to the block's contents. It also affects the +begin and end lines of the block: their background will be +extended to the edge of the window for Emacs version >= 27 where +the ':extend' keyword is recognized by `set-face-attribute'. + +Option `rainbow' will use an accented background for the contents +of the block. The exact color will depend on the programming +language and is controlled by the `org-src-block-faces' +variable (refer to the theme's source code for the current +association list)." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No Org block background (default)" nil) + (const :tag "Subtle gray block background" grayscale) + (const :tag "Subtle gray block background (alt spelling)" greyscale) + (const :tag "Color-coded background per programming language" rainbow))) + +(defcustom modus-themes-mode-line nil + "Adjust the overall style of the mode line. + +Nil is a two-dimensional rectangle with a border around it. The +active and the inactive modelines use different shades of +greyscale values for the background and foreground. + +A `3d' value will apply a three-dimensional effect to the active +modeline. The inactive modelines remain two-dimensional and are +toned down a bit, relative to the nil value. + +The `moody' option is meant to optimize the modeline for use with +the library of the same name. This practically means to remove +the box effect and rely on underline and overline properties +instead. It also tones down the inactive modelines. Despite its +intended purpose, this option can also be used without the +`moody' library." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Two-dimensional box (default)" nil) + (const :tag "Three-dimensional style for the active mode line" 3d) + (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) + +(defcustom modus-themes-diffs nil + "Adjust the overall styles of diffs. + +Nil means to use fairly intense color combinations for diffs. +For example, you get a rich green background with a green +foreground for added lines. Word-wise or 'refined' diffs follow +the same pattern but use different shades of those colors to +remain distinct. + +A `desaturated' value follows the same principles as with the nil +option, while it tones down all relevant colors. + +Option `fg-only' will remove all accented backgrounds, except +from word-wise changes. It instead uses color-coded foreground +values to differentiate between added/removed/changed lines. If +a background is necessary, such as with `ediff', then a subtle +greyscale value is used. + +Option `bg-only' applies a background but does not override the +text's foreground. This makes it suitable for a non-nil value +passed to `diff-font-lock-syntax' (note: Magit does not support +syntax highlighting in diffs as of 2020-11-25, version +20201116.1057)." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Intensely colored backgrounds (default)" nil) + (const :tag "Slightly accented backgrounds with tinted text" desaturated) + (const :tag "No backgrounds, except for refined diffs" fg-only) + (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only))) + +(defcustom modus-themes-completions nil + "Apply special styles to the UI of completion frameworks. + +This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as +any other tool meant to enhance their experience. The effect +will vary depending on the completion framework. + +Nil means to remain faithful to the metaphors that each UI +establishes. For example, Icomplete and Ido only use foreground +colors to style their matches, whereas Ivy or Helm rely on an +aesthetic that combines colored backgrounds with appropriate text +color. + +Option `moderate' will apply a combination of background and +foreground that is fairly subtle. For Icomplete and the like, +this constitutes a departure from their standard style. While +Ivy, Helm, and the others, will use less pronounced colors for +applicable contexts. + +Option `opinionated' will apply color combinations that refashion +the completion UI. So Icomplete et al will now use styles that +resemble the defaults of Ivy and co., while the latter group will +revert to an even more nuanced aesthetic." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Respect the framework's established aesthetic (default)" nil) + (const :tag "Subtle backgrounds for various elements" moderate) + (const :tag "Radical alternative to the framework's looks" opinionated))) + +(defcustom modus-themes-prompts nil + "Use subtle or intense styles for minibuffer and REPL prompts. + +Nil means to only use an accented foreground color. + +Options `subtle' and `intense' will change both the background +and the foreground values. The latter has a more pronounced +effect than the former." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No prompt background (default)" nil) + (const :tag "Subtle accented background for the prompt" subtle) + (const :tag "Intense background and foreground for the prompt" intense))) + +(defcustom modus-themes-intense-hl-line nil + "Use a more prominent background for command `hl-line-mode'." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean) + +(defcustom modus-themes-paren-match nil + "Choose the style of matching parentheses or delimiters. + +Nil means to use a subtle tinted background color (the default). + +Option `intense' applies a saturated background color. + +Option `subtle-bold' is the same as the default, but also makes +use of bold typographic weight (inherits the `bold' face). + +Option `intense-bold' is the same as `intense', while it also +uses a bold weight." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Sublte tinted background (default)" nil) + (const :tag "Like the default, but also use bold typographic weight" subtle-bold) + (const :tag "Intense saturated background" intense) + (const :tag "Like `intense' but with bold weight" intense-bold))) + +(defcustom modus-themes-syntax nil + "Control the overall style of code syntax highlighting. + +Nil (the default) means to use colors on the cyan-blue-magenta +side of the spectrum. There is little to no use of greens, +yellows, and reds. + +Option `faint' is like the default in terms of the choice of +palette but applies desaturated color values. + +Option `yellow-comments' applies a yellow tint to comments. The +rest of the syntax is the same as the default. + +Option `green-strings' replaces the blue/cyan/cold color variants +in strings with greener alternatives. The rest of the syntax +remains the same. + +Option `yellow-comments-green-strings' combines yellow comments +with green strings and the rest of the default syntax +highlighting style. + +Option `alt-syntax' expands the color palette and applies new +color combinations. Strings are green. Doc strings are magenta +tinted. Comments are gray. + +Option `alt-syntax-yellow-comments' combines `alt-syntax' with +`yellow-comments'." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) + (const :tag "Like the default, but with desaturated color values" faint) + (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) + (const :tag "Use green for strings, keep the default style for the rest" green-strings) + (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) + (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) + (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments))) + +(defcustom modus-themes-links nil + "Set the style of links. + +Nil means to use an underline that is the same color as the +foreground. + +Option `faint' applies desaturated colors to the link's text and +underline. + +Option `neutral-underline' applies a subtle grey underline, while +retaining the link's foreground. + +Option `faint-neutral-underline' combines a desaturated text +color with a subtle grey underline. + +Option `no-underline' removes link underlines altogether." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Undeline link using the same color as the text (default)" nil) + (const :tag "Like the default, but apply less intense colors to links" faint) + (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) + (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) + (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline))) + +(defcustom modus-themes-region nil + "Change the overall appearance of the active region. + +Nil (the default) means to only use a prominent gray background +with a neutral foreground. The foreground overrides all syntax +highlighting. The region extends to the edge of the window. + +Option `no-extend' preserves the default aesthetic but prevents +the region from extending to the edge of the window. + +Option `bg-only' applies a faint tinted background that is +distinct from all others used in the theme, while it does not +override any existing colors. It extends to the edge of the +window. + +Option `bg-only-no-extend' is a combination of the `bg-only' and +`no-extend' options." + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) + (const :tag "As with the default, but does not extend" no-extend) + (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) + (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend))) + +\f + +;;; Variables for each variant + +;;;; Modus Operandi + +(define-obsolete-variable-alias + 'modus-operandi-theme-default-colors-alist + 'modus-themes-colors-operandi + "1.0.0") + +(defconst modus-themes-colors-operandi + '(;; base values + (bg-main . "#ffffff") (fg-main . "#000000") + (bg-dim . "#f8f8f8") (fg-dim . "#282828") + (bg-alt . "#f0f0f0") (fg-alt . "#505050") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") + (bg-inactive . "#efefef") (fg-inactive . "#404148") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") + (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") + (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") + (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#a60000") + (red-alt . "#972500") + (red-alt-other . "#a0132f") + (red-faint . "#7f1010") + (red-alt-faint . "#702f00") + (red-alt-other-faint . "#7f002f") + (green . "#005e00") + (green-alt . "#315b00") + (green-alt-other . "#145c33") + (green-faint . "#104410") + (green-alt-faint . "#30440f") + (green-alt-other-faint . "#0f443f") + (yellow . "#813e00") + (yellow-alt . "#70480f") + (yellow-alt-other . "#863927") + (yellow-faint . "#5f4400") + (yellow-alt-faint . "#5d5000") + (yellow-alt-other-faint . "#5e3a20") + (blue . "#0031a9") + (blue-alt . "#2544bb") + (blue-alt-other . "#0000c0") + (blue-faint . "#002f88") + (blue-alt-faint . "#003f78") + (blue-alt-other-faint . "#1f0f6f") + (magenta . "#721045") + (magenta-alt . "#8f0075") + (magenta-alt-other . "#5317ac") + (magenta-faint . "#752f50") + (magenta-alt-faint . "#702565") + (magenta-alt-other-faint . "#5f3f7f") + (cyan . "#00538b") + (cyan-alt . "#30517f") + (cyan-alt-other . "#005a5f") + (cyan-faint . "#12506f") + (cyan-alt-faint . "#354f6f") + (cyan-alt-other-faint . "#2e584f") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#b60000") + (green-intense . "#006800") + (yellow-intense . "#904200") + (blue-intense . "#1111ee") + (magenta-intense . "#7000e0") + (cyan-intense . "#205b93") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#8a0000") + (green-active . "#004c2e") + (yellow-active . "#702d1f") + (blue-active . "#0030b4") + (magenta-active . "#5c2092") + (cyan-active . "#003f8a") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#f2b0a2") + (red-intense-bg . "#ff8892") + (green-subtle-bg . "#aecf90") + (green-intense-bg . "#5ada88") + (yellow-subtle-bg . "#e4c340") + (yellow-intense-bg . "#f5df23") + (blue-subtle-bg . "#b5d0ff") + (blue-intense-bg . "#6aaeff") + (magenta-subtle-bg . "#f0d3ff") + (magenta-intense-bg . "#d5baff") + (cyan-subtle-bg . "#c0efff") + (cyan-intense-bg . "#42cbd4") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#f08290") + (green-fringe-bg . "#62c86a") + (yellow-fringe-bg . "#dbba3f") + (blue-fringe-bg . "#82afff") + (magenta-fringe-bg . "#e0a3ff") + (cyan-fringe-bg . "#2fcddf") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") + (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") + (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") + (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") + (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") + (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") + (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") + (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") + (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") + (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") + (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with fg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#f2eff3") + (bg-hl-line-intense . "#e0e0e0") + (bg-hl-alt . "#fbeee0") + (bg-hl-alt-intense . "#e8dfd1") + (bg-paren-match . "#e0af82") + (bg-paren-match-intense . "#c488ff") + (bg-region . "#bcbcbc") + + (bg-tab-bar . "#d5d5d5") + (bg-tab-active . "#f6f6f6") + (bg-tab-inactive . "#bdbdbd") + (fg-tab-active . "#30169e") + + (fg-escape-char-construct . "#8b1030") + (fg-escape-char-backslash . "#654d0f") + + (fg-lang-error . "#9f004f") + (fg-lang-warning . "#604f0f") + (fg-lang-note . "#4040ae") + + (fg-window-divider-inner . "#888888") + (fg-window-divider-outer . "#585858") + + (fg-unfocused . "#56576d") + + (fg-docstring . "#2a486a") + (fg-comment-yellow . "#5f4400") + + (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") + + (bg-whitespace . "#fff8fc") (fg-whitespace . "#645060") + + (bg-diff-heading . "#b7c4dd") (fg-diff-heading . "#042665") + (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") + (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") + (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") + + (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") + (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") + (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") + + (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") + (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") + (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") + + (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") + (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") + (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") + + (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") + (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") + (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) + "The entire palette of `modus-themes'. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +;;;; Modus Vivendi + +(define-obsolete-variable-alias + 'modus-vivendi-theme-default-colors-alist + 'modus-themes-colors-vivendi + "1.0.0") + +(defconst modus-themes-colors-vivendi + '(;; base values + (bg-main . "#000000") (fg-main . "#ffffff") + (bg-dim . "#110b11") (fg-dim . "#e0e6f0") + (bg-alt . "#181a20") (fg-alt . "#a8a8a8") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#323232") (fg-active . "#f4f4f4") + (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") + (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") + (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") + (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#ff8059") + (red-alt . "#f4923b") + (red-alt-other . "#ff9977") + (red-faint . "#ffa0a0") + (red-alt-faint . "#f5aa80") + (red-alt-other-faint . "#ff9fbf") + (green . "#44bc44") + (green-alt . "#80d200") + (green-alt-other . "#00cd68") + (green-faint . "#88cf88") + (green-alt-faint . "#a8cf88") + (green-alt-other-faint . "#88cfaf") + (yellow . "#eecc00") + (yellow-alt . "#cfdf30") + (yellow-alt-other . "#f0ce43") + (yellow-faint . "#d2b580") + (yellow-alt-faint . "#cabf77") + (yellow-alt-other-faint . "#d0ba95") + (blue . "#2fafff") + (blue-alt . "#79a8ff" ) + (blue-alt-other . "#00bcff") + (blue-faint . "#92baff") + (blue-alt-faint . "#a4b0ff") + (blue-alt-other-faint . "#8fc5ff") + (magenta . "#feacd0") + (magenta-alt . "#f78fe7") + (magenta-alt-other . "#b6a0ff") + (magenta-faint . "#e0b2d6") + (magenta-alt-faint . "#ef9fe4") + (magenta-alt-other-faint . "#d0b4ff") + (cyan . "#00d3d0") + (cyan-alt . "#4ae8fc") + (cyan-alt-other . "#6ae4b9") + (cyan-faint . "#a0bfdf") + (cyan-alt-faint . "#90c4ed") + (cyan-alt-other-faint . "#a4d0bb") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#fb6859") + (green-intense . "#00fc50") + (yellow-intense . "#ffdd00") + (blue-intense . "#00a2ff") + (magenta-intense . "#ff8bd4") + (cyan-intense . "#30ffc0") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#ffa7ba") + (green-active . "#70d73f") + (yellow-active . "#dbbe5f") + (blue-active . "#34cfff") + (magenta-active . "#d5b1ff") + (cyan-active . "#00d8b4") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#762422") + (red-intense-bg . "#a4202a") + (green-subtle-bg . "#2f4a00") + (green-intense-bg . "#006800") + (yellow-subtle-bg . "#604200") + (yellow-intense-bg . "#874900") + (blue-subtle-bg . "#10387c") + (blue-intense-bg . "#2a40b8") + (magenta-subtle-bg . "#49366e") + (magenta-intense-bg . "#7042a2") + (cyan-subtle-bg . "#00415e") + (cyan-intense-bg . "#005f88") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#8f1f4b") + (green-fringe-bg . "#006700") + (yellow-fringe-bg . "#6f4f00") + (blue-fringe-bg . "#3f33af") + (magenta-fringe-bg . "#6f2f89") + (cyan-fringe-bg . "#004f8f") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") + (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") + (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") + (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") + (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") + (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") + (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") + (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") + (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") + (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") + (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with fg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#151823") + (bg-hl-line-intense . "#2f2f2f") + (bg-hl-alt . "#181732") + (bg-hl-alt-intense . "#282e46") + (bg-paren-match . "#5f362f") + (bg-paren-match-intense . "#7416b5") + (bg-region . "#3c3c3c") + + (bg-tab-bar . "#2c2c2c") + (bg-tab-active . "#0e0e0e") + (bg-tab-inactive . "#3d3d3d") + (fg-tab-active . "#5ac3cf") + + (fg-escape-char-construct . "#e7a59a") + (fg-escape-char-backslash . "#abab00") + + (fg-lang-error . "#ef8690") + (fg-lang-warning . "#b0aa00") + (fg-lang-note . "#9d9def") + + (fg-window-divider-inner . "#646464") + (fg-window-divider-outer . "#969696") + + (fg-unfocused . "#93959b") + + (fg-docstring . "#b0d6f5") + (fg-comment-yellow . "#cab98f") + + (bg-header . "#212121") (fg-header . "#dddddd") + + (bg-whitespace . "#170016") (fg-whitespace . "#a4959f") + + (bg-diff-heading . "#304466") (fg-diff-heading . "#dadffe") + (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") + (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") + (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") + + (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") + (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") + (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") + + (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") + (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") + (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") + + (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") + (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") + (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") + + (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") + (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") + (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) + "The entire palette of `modus-vivendi-theme'. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +;;;; Deprecated customisation options (prior to 1.0.0) + +;;;;; Modus Operandi obsolete options + +(make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") + +;;;;; Modus Vivendi obsolete options + +(make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") + +\f + +;;; Internal functions + +;; Helper functions that are meant to ease the implementation of the +;; above customization options. +(defun modus-themes--bold-weight () + "Conditional use of a heavier text weight." + (when modus-themes-bold-constructs + (list :inherit 'bold))) + +(defun modus-themes--mixed-fonts () + "Conditional application of `fixed-pitch' inheritance." + (unless modus-themes-no-mixed-fonts + (list :inherit 'fixed-pitch))) + +(defun modus-themes--slant () + "Conditional use of italics for slant attribute." + (if modus-themes-slanted-constructs + (list 'italic) + (list 'normal))) + +(defun modus-themes--variable-pitch () + "Conditional use of `variable-pitch' in headings." + (when modus-themes-variable-pitch-headings + (list :inherit 'variable-pitch))) + +(defun modus-themes--fringe (mainbg subtlebg intensebg) + "Conditional use of background colors for fringes. +MAINBG is the default. SUBTLEBG should be a subtle greyscale +value. INTENSEBG must be a more pronounced greyscale color." + (pcase modus-themes-fringes + ('intense (list :background intensebg)) + ('subtle (list :background subtlebg)) + (_ (list :background mainbg)))) + +(defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) + "Conditional use of background colors for prompts. +MAINFG is the prompt's standard foreground. SUBTLEBG should be a +subtle accented background that works with SUBTLEFG. INTENSEBG +must be a more pronounced accented color that should be +combinable with INTENSEFG." + (pcase modus-themes-prompts + ('intense (list :background intensebg :foreground intensefg)) + ('subtle (list :background subtlebg :foreground subtlefg)) + (_ (list :background nil :foreground mainfg)))) + +(defun modus-themes--paren (normalbg intensebg) + "Conditional use of intense colors for matching parentheses. +NORMALBG should be the special palette color 'bg-paren-match' or +something similar. INTENSEBG must be easier to discern next to +other backgrounds, such as the special palette color +'bg-paren-match-intense'." + (pcase modus-themes-paren-match + ('subtle-bold (list :inherit 'bold :background normalbg)) + ('intense-bold (list :inherit 'bold :background intensebg)) + ('intense (list :background intensebg)) + (_ (list :background normalbg)))) + +(defun modus-themes--syntax-foreground (fg faint) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-extra (fg faint alt) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-string (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground alt)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-docstring (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground green)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-comment (fg yellow) + "Apply foreground value to strings in code syntax. +FG is the default. YELLOW is a color variant of that name." + (pcase modus-themes-syntax + ('yellow-comments (list :foreground yellow)) + ('yellow-comments-green-strings (list :foreground yellow)) + ('alt-syntax-yellow-comments (list :foreground yellow)) + (_ (list :foreground fg)))) + +(defun modus-themes--heading-p (key) + "Query style of KEY in `modus-themes-headings'." + (cdr (assoc key modus-themes-headings))) + +(defun modus-themes--heading (level fg fg-alt bg border) + "Conditional styles for `modus-themes-headings'. + +LEVEL is the heading's position in their order. FG is the +default text color. FG-ALT is an accented, more saturated value +than the default. BG is a nuanced, typically accented, +background that can work well with either of the foreground +values. BORDER is a color value that combines well with the +background and alternative foreground." + (let* ((key (modus-themes--heading-p `,level)) + (style (or key (modus-themes--heading-p t))) + (var (if modus-themes-variable-pitch-headings + 'variable-pitch + 'default))) + (pcase style + ('no-bold + (list :inherit `,var :foreground fg)) + ('line + (list :inherit `(bold ,var) :foreground fg :overline border)) + ('line-no-bold + (list :inherit `,var :foreground fg :overline border)) + ('rainbow + (list :inherit `(bold ,var) :foreground fg-alt)) + ('rainbow-no-bold + (list :inherit `,var :foreground fg-alt)) + ('rainbow-line + (list :inherit `(bold ,var) :foreground fg-alt :overline border)) + ('rainbow-line-no-bold + (list :inherit `,var :foreground fg-alt :overline border)) + ('highlight + (list :inherit `(bold ,var) :background bg :foreground fg)) + ('highlight-no-bold + (list :inherit `,var :background bg :foreground fg)) + ('rainbow-highlight + (list :inherit `(bold ,var) :background bg :foreground fg-alt)) + ('rainbow-highlight-no-bold + (list :inherit `,var :background bg :foreground fg-alt)) + ('section + (list :inherit `(bold ,var) :background bg :foreground fg :overline border :extend t)) + ('section-no-bold + (list :inherit `,var :background bg :foreground fg :overline border :extend t)) + ('rainbow-section + (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border :extend t)) + ('rainbow-section-no-bold + (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) + (_ + (list :inherit `(bold ,var) :foreground fg))))) + +(defun modus-themes--org-block (bgblk) + "Conditionally set the background of Org blocks. +BGBLK applies to a distinct neutral background. Else blocks have +no background of their own (the default), so they look the same +as the rest of the buffer. + +`modus-themes-org-blocks' also accepts a `rainbow' option +which is applied conditionally to `org-src-block-faces' (see the +theme's source code)." + (if (or (eq modus-themes-org-blocks 'grayscale) + (eq modus-themes-org-blocks 'greyscale)) + (list :background bgblk :extend t) + (list :background nil))) + +(defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) + "Conditionally set the styles of Org block delimiters. +BG, FG, BGACCENT, FGACCENT apply a background and foreground +color respectively. + +The former pair is a greyscale combination that should be more +distinct than the background of the block. It is applied to the +default styles or when `modus-themes-org-blocks' is set +to `greyscale'. + +The latter pair should be more subtle than the background of the +block, as it is used when `modus-themes-org-blocks' is +set to `rainbow'." + (pcase modus-themes-org-blocks + ('grayscale (list :background bg :foreground fg :extend t)) + ('greyscale (list :background bg :foreground fg :extend t)) + ('rainbow (list :background bgaccent :foreground fgaccent)) + (_ (list :background bg :foreground fg)))) + +(defun modus-themes--mode-line-attrs + (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) + "Color combinations for `modus-themes-mode-line'. + +FG and BG are the default colors. FG-ALT and BG-ALT are meant to +accommodate the options for a 3D modeline or a `moody' compliant +one. BORDER applies to all permutations of the modeline, except +the three-dimensional effect, where BORDER-3D is used instead. + +Optional ALT-STYLE applies an appropriate style to the mode +line's box property. + +Optional BORDER-WIDTH specifies an integer for the width of the +rectangle that produces the box effect. + +Optional FG-DISTANT should be close to the main background +values. It is intended to be used as a distant-foreground +property." + (pcase modus-themes-mode-line + ('3d + `(:background ,bg-alt :foreground ,fg-alt + :box (:line-width ,(or border-width 1) + :color ,border-3d + :style ,(and alt-style 'released-button)))) + ('moody + `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border + :distant-foreground ,fg-distant)) + (_ + `(:foreground ,fg :background ,bg :box ,border)))) + +(defun modus-themes--diff + (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional bg-only-fg) + "Color combinations for `modus-themes-diffs'. + +FG-ONLY-BG should be similar or the same as the main background. +FG-ONLY-FG should be a saturated accent value that can be +combined with the former. + +MAINBG must be one of the dedicated backgrounds for diffs while +MAINFG must be the same for the foreground. + +ALTBG needs to be a slightly accented background that is meant to +be combined with ALTFG. Both must be less intense than MAINBG +and MAINFG respectively. + +Optional BG-ONLY-FG applies ALTFG else leaves the foreground +unspecified." + (pcase modus-themes-diffs + ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) + ('desaturated (list :background altbg :foreground altfg)) + ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) + (_ (list :background mainbg :foreground mainfg)))) + +(defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) + "Combinations for `modus-themes-completions'. + +MAINFG is an accented foreground value. SUBTLEBG is an accented +background value that can be combined with MAINFG. INTENSEBG and +INTENSEFG are accented colors that are designed to be used in +tandem. + +These are intended for Icomplete, Ido, and related." + (pcase modus-themes-completions + ('opinionated (list :background intensebg :foreground intensefg)) + ('moderate (list :background subtlebg :foreground mainfg)) + (_ (list :foreground mainfg)))) + +(defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) + "Combinations for `modus-themes-completions'. + +SUBTLEFACE and INTENSEFACE are custom theme faces that combine a +background and foreground value. The difference between the two +is a matter of degree. + +ALTFACE is a combination of colors that represents a departure +from the UI's default aesthetics. Optional ALTFG is meant to be +used in tandem with it. + +Optional BOLD will apply a heavier weight to the text. + +These are intended for Helm, Ivy, etc." + (pcase modus-themes-completions + ('opinionated (list :inherit (list altface bold) + :foreground (or altfg 'unspecified))) + ('moderate (list :inherit (list subtleface bold))) + (_ (list :inherit (list intenseface bold))))) + +(defun modus-themes--link (fg fgfaint underline) + "Conditional application of link styles. +FG is the link's default color for its text and underline +property. FGFAINT is a desaturated color for the text and +underline. UNDERLINE is a grey color only for the undeline." + (pcase modus-themes-links + ('faint (list :foreground fgfaint :underline t)) + ('neutral-underline (list :foreground fg :underline underline)) + ('faint-neutral-underline (list :foreground fgfaint :underline underline)) + ('no-underline (list :foreground fg :underline nil)) + (_ (list :foreground fg :underline t)))) + +(defun modus-themes--link-color (fg fgfaint) + "Extends `modus-themes--link'. +FG is the main foreground. FGFAINT is the desaturated one." + (pcase modus-themes-links + ('faint (list :foreground fgfaint)) + ('faint-neutral-underline (list :foreground fgfaint)) + (_ (list :foreground fg)))) + +(defun modus-themes--scale (amount) + "Scale heading by AMOUNT. +AMOUNT is a customization option." + (when modus-themes-scale-headings + (list :height amount))) + +(defun modus-themes--region (bg fg bgsubtle) + "Apply `modus-themes-region' styles. + +BG and FG are the main values that are used by default. BGSUBTLE +is a subtle background value that can be combined with all colors +used to fontify text and code syntax." + (pcase modus-themes-region + ('bg-only (list :background bgsubtle)) + ('bg-only-no-extend (list :background bgsubtle :extend nil)) + ('no-extend (list :background bg :foreground fg :extend nil)) + (_ (list :background bg :foreground fg)))) + +\f + +;;;; Utilities for DIY users + +;; 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 as those in +`modus-themes-colors-operandi' and `modus-themes-colors-vivendi'." + (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)))) + +(defun modus-themes--active-theme () + "Return appropriate alist of color values for active theme." + (let ((theme (car custom-enabled-themes))) + (pcase theme + ('modus-operandi modus-themes-colors-operandi) + ('modus-vivendi modus-themes-colors-vivendi) + (_ (user-error "'%s' not a Modus theme; check `custom-enabled-themes'" theme))))) + +;;;###autoload +(defun modus-themes-color (key) + "Return color value for KEY. +The KEY is the car of each cons cell in the alists +`modus-themes-colors-operandi', `modus-themes-colors-vivendi'." + (let ((alist (modus-themes--active-theme))) + (cdr (assoc `,key alist)))) + +;;;###autoload +(defun modus-themes-color-alts (key-light key-dark) + "Return color value for KEY-LIGHT and KEY-DARK. +Both arguments must reference the car of a cons cell in +`modus-themes-colors-operandi', `modus-themes-colors-vivendi'." + (let ((theme (car custom-enabled-themes))) + (pcase theme + ('modus-operandi (cdr (assoc `,key-light modus-themes-colors-operandi))) + ('modus-vivendi (cdr (assoc `,key-dark modus-themes-colors-vivendi))) + (_ (user-error "'%s' not a Modus theme; check `custom-enabled-themes'" theme))))) + +;;;; Commands + +(defvar modus-themes-after-load-theme-hook nil + "Hook that runs after the `modus-themes-toggle' routines.") + +;;;###autoload +(defun modus-themes-load-operandi () + "Load `modus-operandi' and disable `modus-vivendi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-vivendi) + (load-theme 'modus-operandi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +;;;###autoload +(defun modus-themes-load-vivendi () + "Load `modus-vivendi' and disable `modus-operandi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-operandi) + (load-theme 'modus-vivendi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +(defun modus-themes--load-prompt () + "Helper for `modus-themes-toggle'." + (let ((theme + (intern + (completing-read "Load Modus theme (will disable all others): " + '(modus-operandi modus-vivendi) nil t)))) + (mapc #'disable-theme custom-enabled-themes) + (pcase theme + ('modus-operandi (modus-themes-load-operandi)) + ('modus-vivendi (modus-themes-load-vivendi))))) + +;;;###autoload +(defun modus-themes-toggle () + "Toggle between `modus-operandi' and `modus-vivendi' themes. +Also runs `modus-themes-after-load-theme-hook' by virtue of +calling the internal `modus-themes-load-operandi' and +`modus-themes-load-vivendi' functions." + (interactive) + (pcase (car custom-enabled-themes) + ('modus-operandi (modus-themes-load-vivendi)) + ('modus-vivendi (modus-themes-load-operandi)) + (_ (modus-themes--load-prompt)))) + +\f + +;;;; Face specifications + +(defconst modus-themes-faces + '( +;;;; custom faces + ;; these bespoke faces are inherited by other constructs below +;;;;; subtle colored backgrounds + `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; intense colored backgrounds + `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) +;;;;; refined background and foreground combinations + ;; general purpose styles that use an accented foreground against an + ;; accented background + `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) + `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) + `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) + `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) + `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) + `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) +;;;;; "active" combinations, mostly for use on the mode line + `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) + `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) + `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) + `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) + `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) + `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) +;;;;; nuanced backgrounds + ;; useful for adding an accented background that is suitable for all + ;; main foreground colors (intended for use in Org source blocks) + `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) + `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) + `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) + `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) + `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) + `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) +;;;;; fringe-specific combinations + `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) +;;;;; special base values + ;; these are closer to the grayscale than the accents defined above + ;; and should only be used when the next closest alternative would be + ;; a greyscale value than an accented one + `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) + `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) + `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) +;;;;; diff-specific combinations + ;; intended for `diff-mode' or equivalent + `(modus-theme-diff-added + ((,class ,@(modus-themes--diff + bg-main green + bg-diff-focus-added fg-diff-focus-added + green-nuanced-bg fg-diff-added)))) + `(modus-theme-diff-changed + ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-focus-changed fg-diff-focus-changed + yellow-nuanced-bg fg-diff-changed)))) + `(modus-theme-diff-removed + ((,class ,@(modus-themes--diff + bg-main red + bg-diff-focus-removed fg-diff-focus-removed + red-nuanced-bg fg-diff-removed)))) + `(modus-theme-diff-refine-added + ((,class ,@(modus-themes--diff + bg-diff-added fg-diff-added + bg-diff-refine-added fg-diff-refine-added + bg-diff-focus-added fg-diff-focus-added)))) + `(modus-theme-diff-refine-changed + ((,class ,@(modus-themes--diff + bg-diff-changed fg-diff-changed + bg-diff-refine-changed fg-diff-refine-changed + bg-diff-focus-changed fg-diff-focus-changed)))) + `(modus-theme-diff-refine-removed + ((,class ,@(modus-themes--diff + bg-diff-removed fg-diff-removed + bg-diff-refine-removed fg-diff-refine-removed + bg-diff-focus-removed fg-diff-focus-removed)))) + `(modus-theme-diff-focus-added + ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-focus-added fg-diff-focus-added + bg-diff-added fg-diff-added)))) + `(modus-theme-diff-focus-changed + ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-focus-changed fg-diff-focus-changed + bg-diff-changed fg-diff-changed)))) + `(modus-theme-diff-focus-removed + ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-focus-removed fg-diff-focus-removed + bg-diff-removed fg-diff-removed)))) + `(modus-theme-diff-heading + ((,class ,@(modus-themes--diff + bg-alt blue-alt + bg-diff-heading fg-diff-heading + cyan-nuanced-bg cyan-nuanced-fg t)))) +;;;;; mark indicators + ;; color combinations intended for Dired, Ibuffer, or equivalent + `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) + `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) + `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) + `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) + `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) +;;;;; heading levels + ;; styles for regular headings used in Org, Markdown, Info, etc. + `(modus-theme-heading-1 + ((,class ,@(modus-themes--heading + 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-4)))) + `(modus-theme-heading-2 + ((,class ,@(modus-themes--heading + 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-3)))) + `(modus-theme-heading-3 + ((,class ,@(modus-themes--heading + 3 fg-special-cold blue blue-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-2)))) + `(modus-theme-heading-4 + ((,class ,@(modus-themes--heading + 4 fg-special-mild cyan cyan-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-1)))) + `(modus-theme-heading-5 + ((,class ,@(modus-themes--heading + 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) + `(modus-theme-heading-6 + ((,class ,@(modus-themes--heading + 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) + `(modus-theme-heading-7 + ((,class ,@(modus-themes--heading + 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) + `(modus-theme-heading-8 + ((,class ,@(modus-themes--heading + 8 fg-dim magenta bg-alt bg-region)))) +;;;;; other custom faces + `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) + `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-line-intense bg-hl-line) + :extend t))) + `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) + `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) +;;;; standard faces +;;;;; absolute essentials + `(default ((,class :background ,bg-main :foreground ,fg-main))) + `(cursor ((,class :background ,fg-main))) + `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) + :foreground ,fg-main))) + `(vertical-border ((,class :foreground ,fg-window-divider-inner))) +;;;;; basic and/or ungrouped styles + `(bold ((,class :weight bold))) + `(bold-italic ((,class :inherit (bold italic)))) + `(buffer-menu-buffer ((,class :inherit bold))) + `(comint-highlight-input ((,class :inherit bold))) + `(comint-highlight-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + cyan + blue-nuanced-bg blue-alt + blue-refine-bg fg-main)))) + `(error ((,class :inherit bold :foreground ,red))) + `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) + `(file-name-shadow ((,class :foreground ,fg-unfocused))) + `(header-line ((,class :background ,bg-header :foreground ,fg-header))) + `(header-line-highlight ((,class :inherit modus-theme-active-blue))) + `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) + `(homoglyph ((,class :foreground ,red-alt-faint))) + `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) + `(italic ((,class :slant italic))) + `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) + `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) + `(minibuffer-prompt ((,class ,@(modus-themes--prompt + cyan-alt-other + cyan-nuanced-bg cyan + cyan-refine-bg fg-main)))) + `(mm-command-output ((,class :foreground ,red-alt-other))) + `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(next-error ((,class :inherit modus-theme-subtle-red))) + `(rectangle-preview ((,class :inherit modus-theme-special-mild))) + `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) + `(secondary-selection ((,class :inherit modus-theme-special-cold))) + `(shadow ((,class :foreground ,fg-alt))) + `(success ((,class :inherit bold :foreground ,green))) + `(trailing-whitespace ((,class :background ,red-intense-bg))) + `(warning ((,class :inherit bold :foreground ,yellow))) +;;;;; buttons, links, widgets + `(button ((,class ,@(modus-themes--link + blue-alt-other blue-alt-other-faint bg-region)))) + `(link ((,class :inherit button))) + `(link-visited ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint)))) + `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(widget-button ((,class :inherit button))) + `(widget-button-pressed ((,class :inherit button + ,@(modus-themes--link-color + magenta magenta-faint)))) + `(widget-documentation ((,class :foreground ,green))) + `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) + `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(widget-single-line-field ((,class :inherit widget-field))) +;;;;; ag + `(ag-hit-face ((,class :foreground ,fg-special-cold))) + `(ag-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; alert + `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) + `(alert-low-face ((,class :foreground ,fg-special-mild))) + `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) + `(alert-trivial-face ((,class :foreground ,fg-special-calm))) + `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) +;;;;; all-the-icons + `(all-the-icons-blue ((,class :foreground ,blue))) + `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) + `(all-the-icons-cyan ((,class :foreground ,cyan))) + `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) + `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) + `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) + `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) + `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) + `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) + `(all-the-icons-dpink ((,class :foreground ,magenta))) + `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) + `(all-the-icons-dred ((,class :foreground ,red))) + `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-dyellow ((,class :foreground ,yellow))) + `(all-the-icons-green ((,class :foreground ,green))) + `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) + `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) + `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) + `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) + `(all-the-icons-maroon ((,class :foreground ,magenta))) + `(all-the-icons-orange ((,class :foreground ,red-alt))) + `(all-the-icons-pink ((,class :foreground ,magenta))) + `(all-the-icons-purple ((,class :foreground ,magenta-alt))) + `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-red ((,class :foreground ,red))) + `(all-the-icons-red-alt ((,class :foreground ,red-alt))) + `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-yellow ((,class :foreground ,yellow))) +;;;;; annotate + `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) + `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) + `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) + `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) +;;;;; anzu + `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) + `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) + `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) + `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) + `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) + `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) + `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; apropos + `(apropos-function-button ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint)))) + `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) + `(apropos-misc-button ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(apropos-user-option-button ((,class :inherit button + ,@(modus-themes--link-color + green-alt-other green-alt-other-faint)))) + `(apropos-variable-button ((,class :inherit button + ,@(modus-themes--link-color + blue blue-faint)))) +;;;;; apt-sources-list + `(apt-sources-list-components ((,class :foreground ,cyan))) + `(apt-sources-list-options ((,class :foreground ,yellow))) + `(apt-sources-list-suite ((,class :foreground ,green))) + `(apt-sources-list-type ((,class :foreground ,magenta))) + `(apt-sources-list-uri ((,class :foreground ,blue))) +;;;;; artbollocks-mode + `(artbollocks-face ((,class :foreground ,cyan-nuanced-fg :underline ,fg-lang-note))) + `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced-fg :underline ,fg-lang-warning))) + `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced-fg :underline ,fg-lang-error))) +;;;;; auctex and Tex + `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) + `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) + `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) + `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg + ,@(modus-themes--scale modus-themes-scale-4)))) + `(font-latex-string-face ((,class :inherit font-lock-string-face))) + `(font-latex-subscript-face ((,class :height 0.95))) + `(font-latex-superscript-face ((,class :height 0.95))) + `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) + `(tex-match ((,class :foreground ,blue-alt-other))) + `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(texinfo-heading ((,class :foreground ,magenta))) + `(TeX-error-description-error ((,class :inherit error))) + `(TeX-error-description-help ((,class :foreground ,blue))) + `(TeX-error-description-tex-said ((,class :foreground ,blue))) + `(TeX-error-description-warning ((,class :inherit warning))) +;;;;; auto-dim-other-buffers + `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) +;;;;; avy + `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) + `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) + `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) + `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; aw (ace-window) + `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) + `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) + `(aw-mode-line-face ((,class :inherit bold))) +;;;;; awesome-tray + `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) + `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) + `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) + `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) + `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) + `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) + `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) + `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) + `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; binder + `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) + `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) + `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) + `(binder-sidebar-tags ((,class :foreground ,cyan))) +;;;;; bm + `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) + `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) + `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) + `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) +;;;;; bongo + `(bongo-album-title ((,class :foreground ,cyan-active))) + `(bongo-artist ((,class :foreground ,magenta-active))) + `(bongo-currently-playing-track ((,class :inherit bold))) + `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) + `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) + `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) + `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) + `(bongo-track-length ((,class :foreground ,blue-alt-other))) + `(bongo-track-title ((,class :foreground ,blue-active))) + `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) +;;;;; boon + `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) + `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) + `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) + `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) +;;;;; breakpoint (built-in gdb-mi.el) + `(breakpoint-disabled ((,class :foreground ,fg-alt))) + `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) +;;;;; buffer-expose + `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) + `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) + `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) +;;;;; calendar and diary + `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) + `(calendar-today ((,class :underline t))) + `(calendar-weekday-header ((,class :foreground ,fg-dim))) + `(calendar-weekend-header ((,class :foreground ,fg-alt))) + `(diary ((,class :background ,green-nuanced-bg :foreground ,cyan-alt-other))) + `(diary-anniversary ((,class :foreground ,red-alt-other))) + `(diary-time ((,class :foreground ,blue-alt))) + `(holiday ((,class :inherit bold :background ,red-nuanced-bg :foreground ,yellow))) +;;;;; calfw + `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) + `(cfw:face-day-title ((,class :foreground ,fg-main))) + `(cfw:face-default-content ((,class :foreground ,green-alt))) + `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) + `(cfw:face-disable ((,class :foreground ,fg-unfocused))) + `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) + `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) + `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) + `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) + `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) + `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-title ((,class :inherit modus-theme-variable-pitch + :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(cfw:face-today ((,class :background ,bg-inactive))) + `(cfw:face-today-title ((,class :background ,bg-active))) + `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) + `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) + `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg + :foreground ,blue-alt))) +;;;;; centaur-tabs + `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) + `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) + `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) + `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) + `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') + `(change-log-acknowledgment ((,class :foreground ,green-alt-other-faint))) + `(change-log-conditionals ((,class :foreground ,magenta-alt))) + `(change-log-date ((,class :foreground ,magenta-faint))) + `(change-log-email ((,class :foreground ,blue))) + `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(change-log-function ((,class :foreground ,green-alt-other))) + `(change-log-list ((,class :foreground ,magenta-alt-other))) + `(change-log-name ((,class :foreground ,cyan))) + `(log-edit-header ((,class :foreground ,fg-special-warm))) + `(log-edit-summary ((,class :inherit bold :foreground ,blue))) + `(log-edit-unknown-header ((,class :foreground ,fg-alt))) + `(log-view-commit-body ((,class :background ,bg-dim :foreground ,fg-main :extend t))) + `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(log-view-message ((,class :foreground ,green-alt-other-faint))) +;;;;; cider + `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) + `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) + `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) + `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(cider-docview-literal-face ((,class :foreground ,blue-alt))) + `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) + `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) + `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(cider-error-highlight-face ((,class :foreground ,red :underline t))) + `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) + `(cider-fringe-good-face ((,class :foreground ,green-active))) + `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) + `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) + `(cider-repl-input-face ((,class :inherit bold))) + `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) + `(cider-repl-stdout-face ((,class :foreground ,blue))) + `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) + `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) + `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) + `(cider-stacktrace-face ((,class :foreground ,fg-main))) + `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) + `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) + `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) + `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) + `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) + `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) + :background ,bg-alt :foreground ,fg-alt))) + `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) + `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) + `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) + `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) + `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) +;;;;; circe (and lui) + `(circe-fool-face ((,class :foreground ,fg-alt))) + `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) + `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(circe-server-face ((,class :foreground ,fg-unfocused))) + `(lui-button-face ((,class :inherit button))) + `(lui-highlight-face ((,class :foreground ,magenta-alt))) + `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) +;;;;; color-rg + `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) + `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) + `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) + `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) + `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) + `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) + `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) + `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) + `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) + `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) + `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) +;;;;; column-enforce-mode + `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; company-mode + `(company-echo-common ((,class :foreground ,magenta-alt-other))) + `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) + `(company-preview-common ((,class :foreground ,blue-alt))) + `(company-preview-search ((,class :inherit modus-theme-special-calm))) + `(company-scrollbar-bg ((,class :background ,bg-active))) + `(company-scrollbar-fg ((,class :background ,fg-active))) + `(company-template-field ((,class :inherit modus-theme-intense-magenta))) + `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) + `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) + `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) + `(company-tooltip-common-selection ((,class :foreground ,fg-main))) + `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) + `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) + `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) + `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) +;;;;; company-posframe + `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) + `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) + `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; compilation feedback + `(compilation-column-number ((,class :foreground ,magenta-alt-other))) + `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(compilation-info ((,class :foreground ,fg-special-cold))) + `(compilation-line-number ((,class :foreground ,fg-special-warm))) + `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) +;;;;; completions + `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) + `(completions-common-part ((,class ,@(modus-themes--standard-completions + blue-alt blue-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) + `(completions-first-difference ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt blue-nuanced-bg + magenta-intense-bg fg-main)))) +;;;;; consult + `(consult-bookmark ((,class :foreground ,blue))) + `(consult-file ((,class :foreground ,magenta-alt-other))) + `(consult-lighter ((,class :foreground ,fg-alt))) + `(consult-off ((,class :inherit error))) + `(consult-on ((,class :inherit success))) + `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) + `(consult-preview-line ((,class :inherit modus-theme-special-mild))) + `(consult-view ((,class :inherit bold :foreground ,fg-special-warm))) +;;;;; counsel + `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) + `(counsel-application-name ((,class :foreground ,red-alt-other))) + `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) + `(counsel-outline-1 ((,class :inherit outline-1))) + `(counsel-outline-2 ((,class :inherit outline-2))) + `(counsel-outline-3 ((,class :inherit outline-3))) + `(counsel-outline-4 ((,class :inherit outline-4))) + `(counsel-outline-5 ((,class :inherit outline-5))) + `(counsel-outline-6 ((,class :inherit outline-6))) + `(counsel-outline-7 ((,class :inherit outline-7))) + `(counsel-outline-8 ((,class :inherit outline-8))) + `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) + `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) +;;;;; counsel-css + `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) + `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) + `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) + `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) + `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) + `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) +;;;;; counsel-notmuch + `(counsel-notmuch-count-face ((,class :foreground ,cyan))) + `(counsel-notmuch-date-face ((,class :foreground ,blue))) + `(counsel-notmuch-people-face ((,class :foreground ,magenta))) + `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) +;;;;; counsel-org-capture-string + `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) +;;;;; cov + `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) + `(cov-coverage-run-face ((,class :foreground ,green-intense))) + `(cov-heavy-face ((,class :foreground ,magenta-intense))) + `(cov-light-face ((,class :foreground ,blue-intense))) + `(cov-med-face ((,class :foreground ,yellow-intense))) + `(cov-none-face ((,class :foreground ,cyan-intense))) +;;;;; cperl-mode + `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) + `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) + `(cperl-hash-face ((,class :inherit (bold modus-theme-slant) :background ,bg-alt :foreground ,red-alt))) +;;;;; csv-mode + `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; ctrlf + `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) + `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) + `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) +;;;;; custom (M-x customize) + `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-active))) + `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) + `(custom-comment ((,class :foreground ,fg-alt))) + `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) + `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) + `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) + `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) + `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) + `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) + `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) + `(custom-set ((,class :foreground ,blue-alt))) + `(custom-state ((,class :foreground ,cyan-alt-other))) + `(custom-themed ((,class :inherit modus-theme-subtle-blue))) + `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) +;;;;; dap-mode + `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) + `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) + `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) + `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) + `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) + `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) + `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) + `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) + `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) +;;;;; dashboard (emacs-dashboard) + `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) + `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) + `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) + `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) + `(dashboard-text-banner ((,class :foreground ,fg-dim))) +;;;;; deadgrep + `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) + `(deadgrep-meta-face ((,class :foreground ,fg-alt))) + `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) + `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) +;;;;; debbugs + `(debbugs-gnu-archived ((,class :inverse-video t))) + `(debbugs-gnu-done ((,class :foreground ,fg-alt))) + `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) + `(debbugs-gnu-handled ((,class :foreground ,green))) + `(debbugs-gnu-new ((,class :foreground ,red))) + `(debbugs-gnu-pending ((,class :foreground ,cyan))) + `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) + `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) + `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) + `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) + `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) + `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) +;;;;; define-word + `(define-word-face-1 ((,class :foreground ,yellow))) + `(define-word-face-2 ((,class :foreground ,fg-main))) +;;;;; deft + `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) + `(deft-filter-string-face ((,class :foreground ,green-intense))) + `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(deft-separator-face ((,class :foreground ,fg-alt))) + `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(deft-time-face ((,class :foreground ,fg-special-cold))) + `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; dictionary + `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other))) + `(dictionary-word-definition-face ((,class :foreground ,fg-main))) + `(dictionary-word-entry-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) +;;;;; diff-hl + `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) + `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) + `(diff-hl-dired-change ((,class :inherit diff-hl-change))) + `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) + `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) + `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) + `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) + `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) + `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) +;;;;; diff-mode + `(diff-added ((,class :inherit modus-theme-diff-added))) + `(diff-changed ((,class :inherit modus-theme-diff-changed))) + `(diff-context ((,class :foreground ,fg-unfocused))) + `(diff-error ((,class :inherit modus-theme-intense-red))) + `(diff-file-header ((,class :inherit bold :foreground ,fg-main))) + `(diff-function ((,class :inherit modus-theme-diff-heading))) + `(diff-header ((,class :background ,bg-dim :foreground ,fg-main))) + `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) + `(diff-index ((,class :inherit bold :foreground ,blue-alt))) + `(diff-indicator-added ((,class :inherit (diff-added bold) :foreground ,green))) + `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) + `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) + `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) + `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(diff-removed ((,class :inherit modus-theme-diff-removed))) +;;;;; dim-autoload + `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) +;;;;; dir-treeview + `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) + `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) + `(dir-treeview-audio-face ((,class :foreground ,magenta))) + `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) + `(dir-treeview-control-face ((,class :foreground ,fg-alt))) + `(dir-treeview-control-mouse-face ((,class :inherit highlight))) + `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) + `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) + `(dir-treeview-directory-face ((,class :foreground ,blue))) + `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) + `(dir-treeview-executable-face ((,class :foreground ,red-alt))) + `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) + `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) + `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) + `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) + `(dir-treeview-label-mouse-face ((,class :inherit highlight))) + `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) + `(dir-treeview-symlink-face ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) + `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) +;;;;; dired + `(dired-broken-symlink ((,class :inherit button :foreground ,red))) + `(dired-directory ((,class :foreground ,blue))) + `(dired-flagged ((,class :inherit modus-theme-mark-del))) + `(dired-header ((,class :inherit modus-theme-pseudo-header))) + `(dired-ignored ((,class :foreground ,fg-alt))) + `(dired-mark ((,class :inherit modus-theme-mark-symbol))) + `(dired-marked ((,class :inherit modus-theme-mark-sel))) + `(dired-perm-write ((,class :foreground ,fg-special-warm))) + `(dired-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) + `(dired-warning ((,class :inherit bold :foreground ,yellow))) +;;;;; dired-async + `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; dired-git + `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) + `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; dired-git-info + `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) +;;;;; dired-narrow + `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) +;;;;; dired-subtree + ;; remove background from dired-subtree, else it breaks + ;; dired-{flagged,marked} and any other face that sets a background + ;; such as hl-line + `(dired-subtree-depth-1-face ((,class :background nil))) + `(dired-subtree-depth-2-face ((,class :background nil))) + `(dired-subtree-depth-3-face ((,class :background nil))) + `(dired-subtree-depth-4-face ((,class :background nil))) + `(dired-subtree-depth-5-face ((,class :background nil))) + `(dired-subtree-depth-6-face ((,class :background nil))) +;;;;; diredfl + `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) + `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) + `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredfl-dir-name ((,class :inherit dired-directory))) + `(diredfl-dir-priv ((,class :foreground ,blue-alt))) + `(diredfl-exec-priv ((,class :foreground ,magenta))) + `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) + `(diredfl-file-name ((,class :foreground ,fg-main))) + `(diredfl-file-suffix ((,class :foreground ,cyan))) + `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) + `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) + `(diredfl-no-priv ((,class :foreground ,fg-alt))) + `(diredfl-number ((,class :foreground ,cyan-alt))) + `(diredfl-other-priv ((,class :foreground ,yellow))) + `(diredfl-rare-priv ((,class :foreground ,red-alt))) + `(diredfl-read-priv ((,class :foreground ,fg-main))) + `(diredfl-symlink ((,class :inherit dired-symlink))) + `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredfl-write-priv ((,class :foreground ,cyan))) +;;;;; disk-usage + `(disk-usage-children ((,class :foreground ,yellow))) + `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) + `(disk-usage-percent ((,class :foreground ,green))) + `(disk-usage-size ((,class :foreground ,cyan))) + `(disk-usage-symlink ((,class :inherit button))) + `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) +;;;;; doom-modeline + `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) + `(doom-modeline-battery-charging ((,class :foreground ,green-active))) + `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) + :foreground ,red-active))) + `(doom-modeline-battery-full ((,class :foreground ,blue-active))) + `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) + `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) + `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) + `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-host ((,class :inherit italic))) + `(doom-modeline-info ((,class :foreground ,green-active))) + `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) + `(doom-modeline-persp-name ((,class :foreground ,fg-active))) + `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) + `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) + `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) + `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; dynamic-ruler + `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) + `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) +;;;;; easy-jekyll + `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) +;;;;; easy-kill + `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) + `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) +;;;;; ebdb + `(ebdb-address-default ((,class :foreground ,fg-main))) + `(ebdb-db-char ((,class :foreground ,fg-special-cold))) + `(ebdb-defunct ((,class :foreground ,fg-alt))) + `(ebdb-field-hidden ((,class :foreground ,magenta))) + `(ebdb-field-url ((,class :foreground ,blue))) + `(ebdb-label ((,class :foreground ,cyan-alt-other))) + `(ebdb-mail-default ((,class :foreground ,fg-main))) + `(ebdb-mail-primary ((,class :foreground ,blue-alt))) + `(ebdb-marked ((,class :background ,cyan-intense-bg))) + `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) + `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) + `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) + `(ebdb-role-defunct ((,class :foreground ,fg-alt))) + `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) +;;;;; ediff + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(ediff-current-diff-A ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-removed fg-diff-removed + red-nuanced-bg red-faint)))) + `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff + bg-dim fg-special-cold + bg-special-cold fg-special-cold + blue-nuanced-bg blue)))) + `(ediff-current-diff-B ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-added fg-diff-added + green-nuanced-bg green-faint)))) + `(ediff-current-diff-C ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg yellow-faint)))) + `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) + `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) + `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) + `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) + `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) + `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) +;;;;; eglot + `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) +;;;;; el-search + `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) + `(el-search-match ((,class :inherit modus-theme-intense-green))) + `(el-search-other-match ((,class :inherit modus-theme-special-mild))) + `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) +;;;;; eldoc + ;; NOTE: see https://github.com/purcell/package-lint/issues/187 + (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; eldoc-box + `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) + `(eldoc-box-border ((,class :background ,fg-alt))) +;;;;; elfeed + `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) + `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) + `(elfeed-log-error-level-face ((,class :foreground ,red))) + `(elfeed-log-info-level-face ((,class :foreground ,green))) + `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) + `(elfeed-search-date-face ((,class :foreground ,blue-nuanced-fg))) + `(elfeed-search-feed-face ((,class :foreground ,cyan))) + `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) + `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) + `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced-fg))) + `(elfeed-search-title-face ((,class :foreground ,fg-dim))) + `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) + `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; elfeed-score + `(elfeed-score-date-face ((,class :foreground ,blue))) + `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) + `(elfeed-score-error-level-face ((,class :foreground ,red))) + `(elfeed-score-info-level-face ((,class :foreground ,cyan))) + `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) +;;;;; emms + `(emms-playlist-track-face ((,class :foreground ,blue))) + `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) +;;;;; enhanced-ruby-mode + `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) + `(enh-ruby-op-face ((,class :foreground ,fg-main))) + `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) + `(enh-ruby-regexp-face ((,class :foreground ,magenta))) + `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) + `(erm-syn-errline ((,class :foreground ,red :underline t))) + `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) +;;;;; epa + `(epa-field-body ((,class :foreground ,fg-main))) + `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) + `(epa-mark ((,class :inherit bold :foreground ,magenta))) + `(epa-string ((,class :foreground ,blue-alt))) + `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) + `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) + `(epa-validity-low ((,class :foreground ,fg-alt))) + `(epa-validity-medium ((,class :foreground ,green-alt))) +;;;;; equake + `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) + `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) + `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) + `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) + `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) + `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) + `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) + `(equake-tab-inactive ((,class :foreground ,fg-inactive))) +;;;;; erc + `(erc-action-face ((,class :inherit bold :foreground ,cyan))) + `(erc-bold-face ((,class :inherit bold))) + `(erc-button ((,class :inherit button))) + `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) + `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) + `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) + `(erc-direct-msg-face ((,class :foreground ,magenta))) + `(erc-error-face ((,class :inherit bold :foreground ,red))) + `(erc-fool-face ((,class :foreground ,fg-inactive))) + `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) + `(erc-input-face ((,class :foreground ,fg-special-calm))) + `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) + `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) + `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) + `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) + `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) + `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) + `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) + `(erc-notice-face ((,class :foreground ,fg-unfocused))) + `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) + `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) + `(erc-underline-face ((,class :underline t))) + `(bg:erc-color-face0 ((,class :background "white"))) + `(bg:erc-color-face1 ((,class :background "black"))) + `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) + `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) + `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) + `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) + `(bg:erc-color-face14 ((,class :background "gray60"))) + `(bg:erc-color-face15 ((,class :background "gray80"))) + `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) + `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) + `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) + `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) + `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) + `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) + `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) + `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) + `(fg:erc-color-face0 ((,class :foreground "white"))) + `(fg:erc-color-face1 ((,class :foreground "black"))) + `(fg:erc-color-face10 ((,class :foreground ,cyan))) + `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) + `(fg:erc-color-face12 ((,class :foreground ,blue))) + `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) + `(fg:erc-color-face14 ((,class :foreground "gray60"))) + `(fg:erc-color-face15 ((,class :foreground "gray80"))) + `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) + `(fg:erc-color-face3 ((,class :foreground ,green))) + `(fg:erc-color-face4 ((,class :foreground ,red))) + `(fg:erc-color-face5 ((,class :foreground ,red-alt))) + `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) + `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) + `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) + `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) +;;;;; eros + `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) + :background ,bg-dim :foreground ,fg-dim))) +;;;;; ert + `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) + `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) +;;;;; eshell + `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) + `(eshell-ls-backup ((,class :foreground ,yellow-alt))) + `(eshell-ls-clutter ((,class :foreground ,red-alt))) + `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) + `(eshell-ls-executable ((,class :foreground ,magenta-alt))) + `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) + `(eshell-ls-product ((,class :foreground ,fg-special-warm))) + `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) + `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) + `(eshell-ls-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(eshell-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + green-alt-other + green-nuanced-bg green-alt + green-refine-bg fg-main)))) +;;;;; eshell-fringe-status + `(eshell-fringe-status-failure ((,class :foreground ,red))) + `(eshell-fringe-status-success ((,class :foreground ,green))) +;;;;; eshell-git-prompt + `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) + `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) + `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) + `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) + `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) + `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) + `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) + `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) + `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) + `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) +;;;;; eshell-prompt-extras (epe) + `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) + `(epe-git-dir-face ((,class :foreground ,red-alt-other))) + `(epe-git-face ((,class :foreground ,cyan-alt))) + `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) + `(epe-pipeline-host-face ((,class :foreground ,blue))) + `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) + `(epe-pipeline-user-face ((,class :foreground ,magenta))) + `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(epe-status-face ((,class :foreground ,magenta-alt-other))) + `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) +;;;;; eshell-syntax-highlighting + `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) + `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) + `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) + `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) + `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) + `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) + `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) + `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) +;;;;; evil-mode + `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) + `(evil-ex-info ((,class :foreground ,cyan-alt-other))) + `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(evil-ex-search ((,class :inherit modus-theme-intense-green))) + `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) + `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; evil-goggles + `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) + `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) + `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) + `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) + `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) + `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) + `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) + `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) + `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) + `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) + `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) +;;;;; evil-visual-mark-mode + `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) +;;;;; eww + `(eww-invalid-certificate ((,class :foreground ,red-active))) + `(eww-valid-certificate ((,class :foreground ,green-active))) + `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) + `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) + `(eww-form-select ((,class :inherit eww-form-checkbox))) + `(eww-form-submit ((,class :inherit eww-form-file))) + `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) + `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) +;;;;; eyebrowse + `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) +;;;;; fancy-dabbrev + `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) + `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) +;;;;; flycheck + `(flycheck-error + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-error :style wave)) + (,class :foreground ,fg-lang-error :underline t))) + `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) + `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) + `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(flycheck-error-list-filename ((,class :foreground ,blue))) + `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) + `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) + `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) + `(flycheck-error-list-info ((,class :foreground ,cyan))) + `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) + `(flycheck-error-list-warning ((,class :foreground ,yellow))) + `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) + `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) + `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) + `(flycheck-info + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-note :style wave)) + (,class :foreground ,fg-lang-note :underline t))) + `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) + `(flycheck-warning + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-warning :style wave)) + (,class :foreground ,fg-lang-warning :underline t))) +;;;;; flycheck-color-mode-line + `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) + `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) +;;;;; flycheck-indicator + `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) + `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) +;;;;; flycheck-posframe + `(flycheck-posframe-background-face ((,class :background ,bg-alt))) + `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) + `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) + `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) + `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; flymake + `(flymake-error + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-error :style wave)) + (,class :foreground ,fg-lang-error :underline t))) + `(flymake-note + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-note :style wave)) + (,class :foreground ,fg-lang-note :underline t))) + `(flymake-warning + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-warning :style wave)) + (,class :foreground ,fg-lang-warning :underline t))) +;;;;; flyspell + `(flyspell-duplicate + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-warning :style wave)) + (,class :foreground ,fg-lang-warning :underline t))) + `(flyspell-incorrect + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-error :style wave)) + (,class :foreground ,fg-lang-error :underline t))) +;;;;; flyspell-correct + `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) +;;;;; flx + `(flx-highlight-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) +;;;;; freeze-it + `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) +;;;;; frog-menu + `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) + `(frog-menu-actions-face ((,class :foreground ,magenta))) + `(frog-menu-border ((,class :background ,bg-active))) + `(frog-menu-candidates-face ((,class :foreground ,fg-main))) + `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) + `(frog-menu-prompt-face ((,class :foreground ,cyan))) +;;;;; focus + `(focus-unfocused ((,class :foreground ,fg-unfocused))) +;;;;; fold-this + `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) +;;;;; font-lock + `(font-lock-builtin-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt magenta-alt-faint magenta-alt-other)))) + `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) + `(font-lock-comment-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-alt fg-comment-yellow)))) + `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra + blue-alt-other blue-alt-other-faint magenta-alt)))) + `(font-lock-doc-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-docstring + fg-docstring cyan-alt-other-faint green-alt-faint blue-alt-other-faint)))) + `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra + magenta magenta-faint red-alt-other)))) + `(font-lock-keyword-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) + `(font-lock-negation-char-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow yellow-faint)))) + `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground + red-alt-other red-alt-other-faint)))) + `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) + `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) + `(font-lock-string-face ((,class ,@(modus-themes--syntax-string + blue-alt blue-alt-faint green green)))) + `(font-lock-type-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + cyan-alt-other magenta-alt-faint magenta-alt)))) + `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra + cyan cyan-faint blue)))) + `(font-lock-warning-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow-active yellow-alt-faint)))) +;;;;; forge + `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) + `(forge-post-date ((,class :foreground ,fg-special-cold))) + `(forge-topic-closed ((,class :foreground ,fg-alt))) + `(forge-topic-merged ((,class :foreground ,fg-alt))) + `(forge-topic-open ((,class :foreground ,fg-special-mild))) + `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) +;;;;; fountain-mode + `(fountain-character ((,class :foreground ,blue-alt-other))) + `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(fountain-dialog ((,class :foreground ,blue-alt))) + `(fountain-metadata-key ((,class :foreground ,green-alt-other))) + `(fountain-metadata-value ((,class :foreground ,blue))) + `(fountain-non-printing ((,class :foreground ,fg-alt))) + `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) + `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) + `(fountain-paren ((,class :foreground ,cyan))) + `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) + `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) + `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) + `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) + `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) + `(fountain-synopsis ((,class :foreground ,cyan-alt))) + `(fountain-trans ((,class :foreground ,yellow-alt-other))) +;;;;; geiser + `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) + `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) + `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) + `(geiser-font-lock-doc-link ((,class :inherit button))) + `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) + `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) + `(geiser-font-lock-repl-input ((,class :inherit bold))) + `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) + `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) + `(geiser-font-lock-xref-header ((,class :inherit bold))) + `(geiser-font-lock-xref-link ((,class :inherit button))) +;;;;; git-commit + `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) + `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) + `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(git-commit-comment-file ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-commit-keyword ((,class :foreground ,magenta))) + `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) + `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-pseudo-header ((,class :foreground ,blue))) + `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) +;;;;; git-gutter + `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) +;;;;; git-gutter-fr + `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-{gutter,fringe}+ + `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) + `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-lens + `(git-lens-added ((,class :inherit bold :foreground ,green))) + `(git-lens-deleted ((,class :inherit bold :foreground ,red))) + `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) + `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) + `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) +;;;;; git-rebase + `(git-rebase-comment-hash ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-rebase-description ((,class :foreground ,fg-main))) + `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) +;;;;; git-timemachine + `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) + `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) + `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) +;;;;; git-walktree + `(git-walktree-commit-face ((,class :foreground ,yellow))) + `(git-walktree-symlink-face ((,class :inherit button))) + `(git-walktree-tree-face ((,class :foreground ,magenta))) +;;;;; gnus + `(gnus-button ((,class :inherit button))) + `(gnus-cite-1 ((,class :foreground ,blue-alt))) + `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) + `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) + `(gnus-cite-2 ((,class :foreground ,red-alt))) + `(gnus-cite-3 ((,class :foreground ,green-alt))) + `(gnus-cite-4 ((,class :foreground ,magenta-alt))) + `(gnus-cite-5 ((,class :foreground ,yellow-alt))) + `(gnus-cite-6 ((,class :foreground ,cyan-alt))) + `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) + `(gnus-cite-8 ((,class :foreground ,red-alt-other))) + `(gnus-cite-9 ((,class :foreground ,green-alt-other))) + `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) + `(gnus-emphasis-bold ((,class :inherit bold))) + `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) + `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) + `(gnus-emphasis-italic ((,class :inherit italic))) + `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) + `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) + `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) + `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) + `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) + `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) + `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) + `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) + `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) + `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) + `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) + `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) + `(gnus-group-news-1-empty ((,class :foreground ,green))) + `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) + `(gnus-group-news-2-empty ((,class :foreground ,cyan))) + `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) + `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) + `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) + `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) + `(gnus-header-content ((,class :foreground ,cyan))) + `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) + `(gnus-header-name ((,class :foreground ,green))) + `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) + `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) + `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) + `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) + `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) + `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) + `(gnus-server-denied ((,class :inherit bold :foreground ,red))) + `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) + `(gnus-server-opened ((,class :inherit bold :foreground ,green))) + `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) + `(gnus-splash ((,class :foreground ,fg-alt))) + `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) + `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) + `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) + `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) + `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) + `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) + `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) + `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) + `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) + `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) + `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) + `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) +;;;;; golden-ratio-scroll-screen + `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; helm + `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) + `(helm-action ((,class :underline t))) + `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) + `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) + `(helm-bookmark-file ((,class :foreground ,fg-main))) + `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) + `(helm-bookmark-gnus ((,class :foreground ,magenta))) + `(helm-bookmark-info ((,class :foreground ,cyan-alt))) + `(helm-bookmark-man ((,class :foreground ,yellow-alt))) + `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) + `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) + `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) + `(helm-buffer-file ((,class :foreground ,fg-main))) + `(helm-buffer-modified ((,class :foreground ,yellow-alt))) + `(helm-buffer-not-saved ((,class :foreground ,red-alt))) + `(helm-buffer-process ((,class :foreground ,magenta))) + `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) + `(helm-buffer-size ((,class :foreground ,fg-alt))) + `(helm-candidate-number ((,class :foreground ,cyan-active))) + `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) + `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) + `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) + `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) + `(helm-ff-backup-file ((,class :foreground ,fg-alt))) + `(helm-ff-denied ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red)))) + `(helm-ff-directory ((,class :inherit helm-buffer-directory))) + `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) + `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) + `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) + `(helm-ff-executable ((,class :foreground ,magenta-alt))) + `(helm-ff-file ((,class :foreground ,fg-main))) + `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) + `(helm-ff-invalid-symlink ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-magenta + 'modus-theme-subtle-magenta + 'modus-theme-nuanced-magenta + magenta)))) + `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-yellow + 'modus-theme-subtle-yellow + 'modus-theme-nuanced-yellow + yellow-alt-other)))) + `(helm-ff-socket ((,class :foreground ,red-alt-other))) + `(helm-ff-suid ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-refine-red + 'modus-theme-nuanced-yellow + red-alt)))) + `(helm-ff-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(helm-ff-truename ((,class :foreground ,blue-alt-other))) + `(helm-fd-finish ((,class :foreground ,green-active))) + `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) + `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-grep-finish ((,class :foreground ,green-active))) + `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) + `(helm-grep-match ((,class :inherit modus-theme-special-calm))) + `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) + `(helm-history-deleted ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red + 'bold)))) + `(helm-history-remote ((,class :foreground ,red-alt-other))) + `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) + `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-yellow + 'modus-theme-refine-yellow + 'modus-theme-nuanced-yellow + yellow + 'bold)))) + `(helm-locate-finish ((,class :foreground ,green-active))) + `(helm-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan + 'bold)))) + `(helm-match-item ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-subtle-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) + `(helm-moccur-buffer ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) + `(helm-non-file-buffer ((,class :foreground ,fg-alt))) + `(helm-prefarg ((,class :foreground ,red-active))) + `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(helm-selection ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-special-cold + nil + 'bold)))) + `(helm-selection-line ((,class :inherit modus-theme-special-cold))) + `(helm-separator ((,class :foreground ,fg-special-mild))) + `(helm-time-zone-current ((,class :foreground ,green))) + `(helm-time-zone-home ((,class :foreground ,magenta))) + `(helm-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(helm-top-columns ((,class :inherit helm-header))) + `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) + `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) +;;;;; helm-ls-git + `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) + `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) + `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) + `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) + `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) + `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) + `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) + `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) + `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) +;;;;; helm-switch-shell + `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) +;;;;; helm-xref + `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) +;;;;; helpful + `(helpful-heading ((,class :inherit modus-theme-heading-1))) +;;;;; highlight region or ad-hoc regexp + `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) + `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) + `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) + `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) + `(hi-green-b ((,class :inherit modus-theme-intense-green))) + `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) + `(hi-red-b ((,class :inherit modus-theme-intense-red))) + `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) + `(highlight ((,class :inherit modus-theme-subtle-blue))) + `(highlight-changes ((,class :foreground ,yellow-alt-other))) + `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) + `(hl-line ((,class :inherit modus-theme-hl-line))) +;;;;; highlight-blocks + `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) + `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) + `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) + `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) + `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) + `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) + `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; highlight-defined + `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) + `(highlight-defined-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) + `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) + `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) +;;;;; highlight-escape-sequences (`hes-mode') + `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) + `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) +;;;;; highlight-indentation + `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) + `(highlight-indentation-current-column-face ((,class :background ,bg-active))) +;;;;; highlight-numbers + `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) +;;;;; highlight-symbol + `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) +;;;;; highlight-thing + `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) +;;;;; hl-defined + `(hdefd-functions ((,class :foreground ,blue))) + `(hdefd-undefined ((,class :foreground ,red-alt))) + `(hdefd-variables ((,class :foreground ,cyan-alt))) +;;;;; hl-fill-column + `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) +;;;;; hl-todo + `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) +;;;;; hydra + `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) + `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) + `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) + `(hydra-face-red ((,class :inherit bold :foreground ,red))) + `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) +;;;;; hyperlist + `(hyperlist-condition ((,class :foreground ,green))) + `(hyperlist-hashtag ((,class :foreground ,yellow))) + `(hyperlist-operator ((,class :foreground ,blue-alt))) + `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) + `(hyperlist-quote ((,class :foreground ,cyan-alt))) + `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) + `(hyperlist-stars ((,class :foreground ,fg-alt))) + `(hyperlist-tag ((,class :foreground ,red))) + `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) +;;;;; icomplete + `(icomplete-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) +;;;;; icomplete-vertical + `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) +;;;;; ido-mode + `(ido-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) + `(ido-incomplete-regexp ((,class :inherit error))) + `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) + `(ido-only-match ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-intense-bg fg-main)))) + `(ido-subdir ((,class :foreground ,blue))) + `(ido-virtual ((,class :foreground ,fg-special-warm))) +;;;;; iedit + `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) + `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) +;;;;; iflipb + `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) + `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) +;;;;; imenu-list + `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) + `(imenu-list-entry-face-1 ((,class :foreground ,blue))) + `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) + `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) + `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) + `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) + `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) + `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) +;;;;; indium + `(indium-breakpoint-face ((,class :foreground ,red-active))) + `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) + `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) + `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) + `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) + `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(indium-repl-stdout-face ((,class :foreground ,fg-main))) +;;;;; info + `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) + :foreground ,magenta))) ; the capitalization is canonical + `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) + `(info-header-xref ((,class :foreground ,blue-active))) + `(info-index-match ((,class :inherit match))) + `(info-menu-header ((,class :inherit modus-theme-heading-3))) + `(info-menu-star ((,class :foreground ,red))) + `(info-node ((,class :inherit bold))) + `(info-title-1 ((,class :inherit modus-theme-heading-1))) + `(info-title-2 ((,class :inherit modus-theme-heading-2))) + `(info-title-3 ((,class :inherit modus-theme-heading-3))) + `(info-title-4 ((,class :inherit modus-theme-heading-4))) +;;;;; info-colors + `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) + `(info-colors-ref-item-command ((,class :foreground ,magenta))) + `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) + `(info-colors-ref-item-function ((,class :foreground ,magenta))) + `(info-colors-ref-item-macro ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(info-colors-ref-item-other ((,class :foreground ,cyan))) + `(info-colors-ref-item-special-form ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) + `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) + `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) + `(info-colors-ref-item-variable ((,class :foreground ,cyan))) +;;;;; interaction-log + `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) + `(ilog-change-face ((,class :foreground ,magenta-alt))) + `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) + `(ilog-load-face ((,class :foreground ,green))) + `(ilog-message-face ((,class :foreground ,fg-alt))) + `(ilog-non-change-face ((,class :foreground ,blue))) +;;;;; ioccur + `(ioccur-cursor ((,class :foreground ,fg-main))) + `(ioccur-invalid-regexp ((,class :foreground ,red))) + `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) + `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) + `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) + `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) + `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) +;;;;; isearch, occur, and the like + `(isearch ((,class :inherit (modus-theme-intense-green bold)))) + `(isearch-fail ((,class :inherit modus-theme-refine-red))) + `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) + `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) + `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(match ((,class :inherit modus-theme-special-calm))) + `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) +;;;;; ivy + `(ivy-action ((,class :inherit bold :foreground ,red-alt))) + `(ivy-completions-annotations ((,class :inherit completions-annotations))) + `(ivy-confirm-face ((,class :foreground ,cyan))) + `(ivy-current-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-cyan + 'modus-theme-intense-cyan + 'modus-theme-special-cold + nil + 'bold)))) + `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) + `(ivy-grep-info ((,class :foreground ,cyan-alt))) + `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) + `(ivy-highlight-face ((,class :foreground ,magenta))) + `(ivy-match-required-face ((,class :inherit error))) + `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-intense-neutral + 'modus-theme-nuanced-cyan + fg-alt)))) + `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-green + 'modus-theme-refine-green + 'modus-theme-nuanced-green + green-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) + `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-intense-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other + 'bold)))) + `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) + `(ivy-org ((,class :foreground ,cyan-alt-other))) + `(ivy-prompt-match ((,class :inherit ivy-current-match))) + `(ivy-remote ((,class :foreground ,magenta))) + `(ivy-separator ((,class :foreground ,fg-alt))) + `(ivy-subdir ((,class :foreground ,blue-alt-other))) + `(ivy-virtual ((,class :foreground ,magenta-alt-other))) + `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt)))) +;;;;; ivy-posframe + `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) + `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) + `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) +;;;;; jira (org-jira) + `(jiralib-comment-face ((,class :background ,bg-alt))) + `(jiralib-comment-header-face ((,class :inherit bold))) + `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) + `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) + `(jiralib-issue-summary-face ((,class :inherit bold))) + `(jiralib-link-filter-face ((,class :underline t))) + `(jiralib-link-issue-face ((,class :underline t))) + `(jiralib-link-project-face ((,class :underline t))) +;;;;; journalctl-mode + `(journalctl-error-face ((,class :inherit bold :foreground ,red))) + `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) + `(journalctl-host-face ((,class :foreground ,blue))) + `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) + `(journalctl-starting-face ((,class :foreground ,green))) + `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) + `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; js2-mode + `(js2-error ((,class :foreground ,red))) + `(js2-external-variable ((,class :foreground ,cyan-alt-other))) + `(js2-function-call ((,class :foreground ,magenta))) + `(js2-function-param ((,class :foreground ,blue))) + `(js2-instance-member ((,class :foreground ,magenta-alt-other))) + `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) + `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) + `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) + `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) + `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) + `(js2-object-property ((,class :foreground ,fg-main))) + `(js2-object-property-access ((,class :foreground ,fg-main))) + `(js2-private-function-call ((,class :foreground ,green-alt-other))) + `(js2-private-member ((,class :foreground ,fg-special-mild))) + `(js2-warning ((,class :foreground ,yellow-alt :underline t))) +;;;;; julia + `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) + `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) +;;;;; jupyter + `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) + `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) + `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) + `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) +;;;;; kaocha-runner + `(kaocha-runner-error-face ((,class :foreground ,red))) + `(kaocha-runner-success-face ((,class :foreground ,green))) + `(kaocha-runner-warning-face ((,class :foreground ,yellow))) +;;;;; keycast + `(keycast-command ((,class :inherit bold :foreground ,blue-active))) + `(keycast-key ((,class ,@(modus-themes--mode-line-attrs + bg-main blue-active + bg-main blue-active + blue-active blue-intense + 'alt-style -3)))) +;;;;; line numbers (display-line-numbers-mode and global variant) + `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) + `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) + `(line-number-major-tick ((,class :inherit (bold default) + :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(line-number-minor-tick ((,class :inherit (bold default) + :background ,bg-inactive + :foreground ,fg-inactive))) +;;;;; lsp-mode + `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) + `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) + `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) + `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-deprecated + ((,(append '((supports :underline (:style wave))) class) + :foreground ,yellow :underline (:style wave)) + (,class :foreground ,yellow :underline t))) + `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) + `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(lsp-face-semhl-function ((,class :foreground ,magenta))) + `(lsp-face-semhl-method ((,class :foreground ,magenta))) + `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) + `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-variable ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) + `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) + `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) + `(lsp-ui-doc-background ((,class :background ,bg-alt))) + `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-doc-url ((,class :inherit button))) + `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) + `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) + `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) + `(lsp-ui-peek-list ((,class :background ,bg-dim))) + `(lsp-ui-peek-peek ((,class :background ,bg-alt))) + `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) + `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) + `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) + `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) + `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) +;;;;; macrostep + `(macrostep-compiler-macro-face ((,class :inherit italic))) + `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) + `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) + `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) + `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) + `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) + `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) + `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) +;;;;; magit + `(magit-bisect-bad ((,class :foreground ,red-alt-other))) + `(magit-bisect-good ((,class :foreground ,green-alt-other))) + `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) + `(magit-blame-date ((,class :foreground ,blue))) + `(magit-blame-dimmed ((,class :foreground ,fg-alt))) + `(magit-blame-hash ((,class :foreground ,fg-special-warm))) + `(magit-blame-heading ((,class :background ,bg-alt))) + `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) + `(magit-blame-margin ((,class :inherit magit-blame-highlight))) + `(magit-blame-name ((,class :foreground ,magenta-alt-other))) + `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) + `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) + `(magit-branch-local ((,class :foreground ,blue-alt))) + `(magit-branch-remote ((,class :foreground ,magenta-alt))) + `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) + `(magit-branch-upstream ((,class :inherit italic))) + `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces, though only for the standard actions, + ;; not the highlighted ones. This is because Magit's interaction + ;; model relies on highlighting the current diff hunk. + `(magit-diff-added ((,class ,@(modus-themes--diff + bg-main green + bg-diff-added fg-diff-added + green-nuanced-bg fg-diff-added)))) + `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) + `(magit-diff-base ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg fg-diff-changed)))) + `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) + `(magit-diff-context ((,class :foreground ,fg-unfocused))) + `(magit-diff-context-highlight ((,class ,@(modus-themes--diff + bg-dim fg-dim + bg-inactive fg-inactive + bg-dim fg-alt)))) + `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) + `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) + `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active + :foreground ,fg-inactive))) + `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading + :foreground ,fg-diff-heading))) + `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) + `(magit-diff-hunk-region ((,class :inherit bold))) + `(magit-diff-lines-boundary ((,class :background ,fg-main))) + `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) + `(magit-diff-removed ((,class ,@(modus-themes--diff + bg-main red + bg-diff-removed fg-diff-removed + red-nuanced-bg fg-diff-removed)))) + `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) + `(magit-diffstat-added ((,class :foreground ,green))) + `(magit-diffstat-removed ((,class :foreground ,red))) + `(magit-dimmed ((,class :foreground ,fg-unfocused))) + `(magit-filename ((,class :foreground ,fg-special-cold))) + `(magit-hash ((,class :foreground ,fg-alt))) + `(magit-head ((,class :inherit magit-branch-local))) + `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) + `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) + `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) + `(magit-keyword ((,class :foreground ,magenta))) + `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) + `(magit-log-author ((,class :foreground ,cyan))) + `(magit-log-date ((,class :foreground ,fg-alt))) + `(magit-log-graph ((,class :foreground ,fg-dim))) + `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) + `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) + `(magit-process-ng ((,class :inherit error))) + `(magit-process-ok ((,class :inherit success))) + `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) + `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) + `(magit-refname ((,class :foreground ,fg-alt))) + `(magit-refname-pullreq ((,class :foreground ,fg-alt))) + `(magit-refname-stash ((,class :foreground ,fg-alt))) + `(magit-refname-wip ((,class :foreground ,fg-alt))) + `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) + `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) + `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) + `(magit-section-highlight ((,class :background ,bg-alt))) + `(magit-sequence-done ((,class :foreground ,green-alt))) + `(magit-sequence-drop ((,class :foreground ,red-alt))) + `(magit-sequence-exec ((,class :foreground ,magenta-alt))) + `(magit-sequence-head ((,class :foreground ,cyan-alt))) + `(magit-sequence-onto ((,class :foreground ,fg-alt))) + `(magit-sequence-part ((,class :foreground ,yellow-alt))) + `(magit-sequence-pick ((,class :foreground ,blue-alt))) + `(magit-sequence-stop ((,class :foreground ,red))) + `(magit-signature-bad ((,class :inherit bold :foreground ,red))) + `(magit-signature-error ((,class :foreground ,red-alt))) + `(magit-signature-expired ((,class :foreground ,yellow))) + `(magit-signature-expired-key ((,class :foreground ,yellow))) + `(magit-signature-good ((,class :foreground ,green))) + `(magit-signature-revoked ((,class :foreground ,magenta))) + `(magit-signature-untrusted ((,class :foreground ,cyan))) + `(magit-tag ((,class :foreground ,yellow-alt-other))) +;;;;; magit-imerge + `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) +;;;;; make-mode (makefiles) + `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) + `(makefile-space ((,class :background ,magenta-nuanced-bg))) +;;;;; man + `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) + `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) + `(Man-underline ((,class :foreground ,cyan :underline t))) +;;;;; markdown-mode + `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-bold-face ((,class :inherit bold))) + `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) + `(markdown-comment-face ((,class :inherit font-lock-comment-face))) + `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) + `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) + `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) + `(markdown-header-face ((t nil))) + `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) + `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) + `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) + `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) + `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) + `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) + `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,blue))) + `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-mild))) + `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,magenta-alt))) + `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,green-alt-other))) + `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) + `(markdown-link-face ((,class :inherit button))) + `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-list-face ((,class :foreground ,fg-dim))) + `(markdown-markup-face ((,class :foreground ,fg-alt))) + `(markdown-math-face ((,class :foreground ,magenta-alt-other))) + `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) + `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) + `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) + `(markdown-plain-url-face ((,class :inherit markdown-link-face))) + `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) + `(markdown-reference-face ((,class :inherit markdown-markup-face))) + `(markdown-strike-through-face ((,class :strike-through t))) + `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-url-face ((,class :foreground ,blue-alt))) +;;;;; markup-faces (`adoc-mode') + `(markup-anchor-face ((,class :foreground ,fg-inactive))) + `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) + `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) + `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) + `(markup-command-face ((,class :foreground ,fg-inactive))) + `(markup-comment-face ((,class :inherit font-lock-comment-face))) + `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) + :inherit modus-theme-refine-magenta))) + `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-error-face ((,class :inherit bold :foreground ,red))) + `(markup-gen-face ((,class :foreground ,magenta-alt))) + `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) + `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-list-face ((,class :inherit modus-theme-special-calm))) + `(markup-meta-face ((,class :foreground ,fg-inactive))) + `(markup-meta-hide-face ((,class :foreground ,fg-alt))) + `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) + `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) + `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) + `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) + `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) + `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) + `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) + `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) + `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) + `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) + `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) + `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) + `(markup-value-face ((,class :foreground ,fg-inactive))) + `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) +;;;;; mentor + `(mentor-download-message ((,class :foreground ,fg-special-warm))) + `(mentor-download-name ((,class :foreground ,fg-special-cold))) + `(mentor-download-progress ((,class :foreground ,blue-alt-other))) + `(mentor-download-size ((,class :foreground ,magenta-alt-other))) + `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) + `(mentor-download-speed-up ((,class :foreground ,red-alt))) + `(mentor-download-state ((,class :foreground ,yellow-alt))) + `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(mentor-tracker-name ((,class :foreground ,magenta-alt))) +;;;;; messages + `(message-cited-text-1 ((,class :foreground ,blue-alt))) + `(message-cited-text-2 ((,class :foreground ,red-alt))) + `(message-cited-text-3 ((,class :foreground ,green-alt))) + `(message-cited-text-4 ((,class :foreground ,magenta-alt))) + `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) + `(message-header-name ((,class :foreground ,green-alt-other))) + `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) + `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) + `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) + `(message-header-to ((,class :inherit bold :foreground ,blue))) + `(message-header-xheader ((,class :foreground ,cyan))) + `(message-mml ((,class :foreground ,fg-special-warm))) + `(message-separator ((,class :inherit modus-theme-intense-neutral))) +;;;;; minibuffer-line + `(minibuffer-line ((,class :foreground ,fg-main))) +;;;;; minimap + `(minimap-active-region-background ((,class :background ,bg-active))) + `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) +;;;;; modeline + `(mode-line ((,class ,@(modus-themes--mode-line-attrs + fg-active bg-active fg-dim bg-active + fg-alt bg-active 'alt-style nil bg-main)))) + `(mode-line-buffer-id ((,class :inherit bold))) + `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) + `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) + `(mode-line-inactive ((,class ,@(modus-themes--mode-line-attrs + fg-inactive bg-inactive fg-alt bg-dim + bg-region bg-active)))) +;;;;; mood-line + `(mood-line-modified ((,class :foreground ,magenta-active))) + `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) + `(mood-line-status-info ((,class :foreground ,cyan-active))) + `(mood-line-status-neutral ((,class :foreground ,blue-active))) + `(mood-line-status-success ((,class :foreground ,green-active))) + `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) + `(mood-line-unimportant ((,class :foreground ,fg-inactive))) +;;;;; mpdel + `(mpdel-browser-directory-face ((,class :foreground ,blue))) + `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; mu4e + `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) + `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) + `(mu4e-cited-2-face ((,class :foreground ,red-alt))) + `(mu4e-cited-3-face ((,class :foreground ,green-alt))) + `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) + `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) + `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) + `(mu4e-cited-7-face ((,class :foreground ,magenta))) + `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) + `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(mu4e-context-face ((,class :foreground ,blue-active))) + `(mu4e-draft-face ((,class :foreground ,magenta-alt))) + `(mu4e-flagged-face ((,class :foreground ,red-alt))) + `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) + `(mu4e-header-face ((,class :foreground ,fg-alt))) + `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) + `(mu4e-header-key-face ((,class :foreground ,cyan))) + `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) + `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) + `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) + `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(mu4e-link-face ((,class :inherit button))) + `(mu4e-modeline-face ((,class :foreground ,magenta-active))) + `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) + `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) + `(mu4e-replied-face ((,class :foreground ,blue-faint))) + `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) + `(mu4e-title-face ((,class :foreground ,fg-main))) + `(mu4e-trashed-face ((,class :foreground ,red))) + `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) + `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(mu4e-view-body-face ((,class :foreground ,fg-main))) + `(mu4e-warning-face ((,class :inherit warning))) +;;;;; mu4e-conversation + `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) + `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) + `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) + `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) + `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) + `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) + `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) + `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) + `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) + `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) + `(mu4e-conversation-unread ((,class :inherit bold))) +;;;;; multiple-cursors + `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) + `(mc/cursor-face ((,class :inverse-video t))) + `(mc/region-face ((,class :inherit region))) +;;;;; neotree + `(neo-banner-face ((,class :foreground ,magenta))) + `(neo-button-face ((,class :inherit button))) + `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) + `(neo-expand-btn-face ((,class :foreground ,cyan))) + `(neo-file-link-face ((,class :foreground ,fg-main))) + `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) + `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) + `(neo-vc-added-face ((,class :foreground ,green))) + `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) + `(neo-vc-default-face ((,class :foreground ,fg-main))) + `(neo-vc-edited-face ((,class :foreground ,yellow))) + `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) + `(neo-vc-missing-face ((,class :foreground ,red-alt))) + `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) + `(neo-vc-needs-update-face ((,class :underline t))) + `(neo-vc-removed-face ((,class :strike-through t))) + `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) + `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) + `(neo-vc-user-face ((,class :foreground ,magenta))) +;;;;; no-emoji + `(no-emoji ((,class :foreground ,cyan))) +;;;;; notmuch + `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) + `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) + `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) + `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) + `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) + `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) + `(notmuch-hello-logo-background ((,class :background ,bg-main))) + `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) + `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) + `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) + `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) + `(notmuch-search-unread-face ((,class :inherit bold))) + `(notmuch-tag-added + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,green :style wave)) + (,class :foreground ,green :underline t))) + `(notmuch-tag-deleted + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,red :style wave)) + (,class :foreground ,red :underline t))) + `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tag-flagged ((,class :foreground ,red-alt))) + `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) + `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) + `(notmuch-tree-match-face ((,class :foreground ,fg-main))) + `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) + `(notmuch-wash-cited-text ((,class :foreground ,cyan))) + `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; num3-mode + `(num3-face-even ((,class :inherit bold :background ,bg-alt))) +;;;;; nxml-mode + `(nxml-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) + `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) + `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) + `(nxml-cdata-section-CDATA ((,class :inherit error))) + `(nxml-cdata-section-delimiter ((,class :inherit error))) + `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(nxml-delimiter ((,class :foreground ,fg-dim))) + `(nxml-element-colon ((,class :foreground ,fg-main))) + `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) + `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) + `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) + `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) + `(nxml-heading ((,class :inherit bold))) + `(nxml-name ((,class :inherit font-lock-builtin-face))) + `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) + `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) + `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) + `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(rng-error ((,class :inherit error))) +;;;;; objed + `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-alt-intense bg-hl-alt)))) + `(objed-mark ((,class :background ,bg-active))) + `(objed-mode-line ((,class :foreground ,cyan-active))) +;;;;; orderless + `(orderless-match-face-0 ((,class :inherit bold + ,@(modus-themes--standard-completions + blue-alt-other blue-nuanced-bg + blue-refine-bg blue-refine-fg)))) + `(orderless-match-face-1 ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(orderless-match-face-2 ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-refine-bg green-refine-fg)))) + `(orderless-match-face-3 ((,class :inherit bold + ,@(modus-themes--standard-completions + yellow yellow-nuanced-bg + yellow-refine-bg yellow-refine-fg)))) +;;;;; org + `(org-agenda-calendar-event ((,class :foreground ,fg-main))) + `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) + `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) + `(org-agenda-column-dateline ((,class :background ,bg-alt))) + `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) + `(org-agenda-date ((,class :foreground ,cyan))) + `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) + `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) + `(org-agenda-diary ((,class :foreground ,fg-main))) + `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) + `(org-agenda-done ((,class :foreground ,green-alt))) + `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) + `(org-agenda-structure ((,class :foreground ,blue-alt))) + `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) + `(org-block ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-main))) + `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block-delim + bg-dim fg-special-cold + bg-alt fg-special-mild)))) + `(org-block-end-line ((,class :inherit org-block-begin-line))) + `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) + :background ,bg-inactive :foreground ,fg-active))) + `(org-checkbox-statistics-done ((,class :inherit org-done))) + `(org-checkbox-statistics-todo ((,class :inherit org-todo))) + `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) + `(org-code ((,class ,@(modus-themes--mixed-fonts) :foreground ,magenta))) + `(org-column ((,class :background ,bg-alt))) + `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) + `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts + 'button + '(button fixed-pitch)) + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) + `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) + `(org-document-info ((,class :foreground ,fg-special-cold))) + `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(org-done ((,class :foreground ,green))) + `(org-drawer ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's color + `(org-footnote ((,class :inherit button + ,@(modus-themes--link-color + blue-alt blue-alt-faint)))) + `(org-formula ((,class ,@(modus-themes--mixed-fonts) + :foreground ,red-alt))) + `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) + `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) + `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) + `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) + `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) + `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) + `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) + `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) + `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) + `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) + `(org-hide ((,class :foreground ,bg-main))) + `(org-indent ((,class :inherit (fixed-pitch org-hide)))) + `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) + `(org-level-1 ((,class :inherit modus-theme-heading-1))) + `(org-level-2 ((,class :inherit modus-theme-heading-2))) + `(org-level-3 ((,class :inherit modus-theme-heading-3))) + `(org-level-4 ((,class :inherit modus-theme-heading-4))) + `(org-level-5 ((,class :inherit modus-theme-heading-5))) + `(org-level-6 ((,class :inherit modus-theme-heading-6))) + `(org-level-7 ((,class :inherit modus-theme-heading-7))) + `(org-level-8 ((,class :inherit modus-theme-heading-8))) + `(org-link ((,class :inherit button))) + `(org-list-dt ((,class :inherit bold))) + `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) + `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) + `(org-mode-line-clock ((,class :foreground ,fg-main))) + `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) + `(org-priority ((,class :foreground ,magenta))) + `(org-property-value ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-quote ((,class :inherit modus-theme-slant + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-special-cold))) + `(org-scheduled ((,class :foreground ,fg-special-warm))) + `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) + `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) + `(org-sexp-date ((,class :inherit org-date))) + `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-table ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) + `(org-tag ((,class :foreground ,magenta-nuanced-fg))) + `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(org-target ((,class :underline t))) + `(org-time-grid ((,class :foreground ,fg-unfocused))) + `(org-todo ((,class :foreground ,red))) + `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) + `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) + `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(org-verse ((,class :inherit org-quote))) + `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) +;;;;; org-journal + `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) + `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) + `(org-journal-highlight ((,class :foreground ,magenta-alt))) +;;;;; org-noter + `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) + `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) +;;;;; org-pomodoro + `(org-pomodoro-mode-line ((,class :foreground ,red-active))) + `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) + `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) +;;;;; org-recur + `(org-recur ((,class :foreground ,magenta-active))) +;;;;; org-roam + `(org-roam-link ((,class :inherit button + ,@(modus-themes--link-color + green green-faint)))) + `(org-roam-link-current ((,class :inherit button + ,@(modus-themes--link-color + green-alt green-alt-faint)))) + `(org-roam-link-invalid ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(org-roam-link-shielded ((,class :inherit button + ,@(modus-themes--link-color + yellow yellow-faint)))) + `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) +;;;;; org-superstar + `(org-superstar-item ((,class :foreground ,fg-main))) + `(org-superstar-leading ((,class :foreground ,fg-whitespace))) +;;;;; org-table-sticky-header + `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) +;;;;; org-treescope + `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) + `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) +;;;;; origami + `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) + `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; outline-mode + `(outline-1 ((,class :inherit modus-theme-heading-1))) + `(outline-2 ((,class :inherit modus-theme-heading-2))) + `(outline-3 ((,class :inherit modus-theme-heading-3))) + `(outline-4 ((,class :inherit modus-theme-heading-4))) + `(outline-5 ((,class :inherit modus-theme-heading-5))) + `(outline-6 ((,class :inherit modus-theme-heading-6))) + `(outline-7 ((,class :inherit modus-theme-heading-7))) + `(outline-8 ((,class :inherit modus-theme-heading-8))) +;;;;; outline-minor-faces + `(outline-minor-0 ((,class :background ,bg-alt))) +;;;;; package (M-x list-packages) + `(package-description ((,class :foreground ,fg-special-cold))) + `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) + `(package-name ((,class :inherit button))) + `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) + `(package-status-available ((,class :foreground ,fg-special-mild))) + `(package-status-built-in ((,class :foreground ,magenta))) + `(package-status-dependency ((,class :foreground ,magenta-alt-other))) + `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) + `(package-status-external ((,class :foreground ,cyan-alt-other))) + `(package-status-held ((,class :foreground ,yellow-alt))) + `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) + `(package-status-installed ((,class :foreground ,fg-special-warm))) + `(package-status-new ((,class :inherit bold :foreground ,green))) + `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) +;;;;; page-break-lines + `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) +;;;;; paradox + `(paradox-archive-face ((,class :foreground ,fg-special-mild))) + `(paradox-comment-face ((,class :inherit font-lock-comment-face))) + `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) + `(paradox-description-face ((,class :foreground ,fg-special-cold))) + `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) + `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) + `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) + `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) + `(paradox-name-face ((,class :foreground ,blue :underline t))) + `(paradox-star-face ((,class :foreground ,magenta))) + `(paradox-starred-face ((,class :foreground ,magenta-alt))) +;;;;; paren-face + `(parenthesis ((,class :foreground ,fg-unfocused))) +;;;;; parrot + `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; pass + `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) + `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) +;;;;; persp-mode + `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) + `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) + `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) +;;;;; perspective + `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) +;;;;; phi-grep + `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) + `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) + `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) + `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) +;;;;; phi-search + `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) + `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) + `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) + `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; pkgbuild-mode + `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) +;;;;; pomidor + `(pomidor-break-face ((,class :foreground ,blue-alt-other))) + `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) + `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(pomidor-work-face ((,class :foreground ,green-alt-other))) +;;;;; popup + `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) + `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) + `(popup-scroll-bar-background-face ((,class :background ,bg-active))) + `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) + `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) + `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; powerline + `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) + `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) + `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) + `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) + `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; powerline-evil + `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) + `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) + `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) + `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) + `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) + `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) + `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) + `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) +;;;;; proced + `(proced-mark ((,class :inherit modus-theme-mark-symbol))) + `(proced-marked ((,class :inherit modus-theme-mark-alt))) + `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) +;;;;; prodigy + `(prodigy-green-face ((,class :foreground ,green))) + `(prodigy-red-face ((,class :foreground ,red))) + `(prodigy-yellow-face ((,class :foreground ,yellow))) +;;;;; racket-mode + `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) + `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) + :foreground ,green-alt-other))) + `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) + :foreground ,green))) + `(racket-here-string-face ((,class :foreground ,blue-alt))) + `(racket-keyword-argument-face ((,class :foreground ,red-alt))) + `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) + `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) + `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(racket-selfeval-face ((,class :foreground ,green-alt))) + `(racket-xp-error-face + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,fg-lang-error :style wave)) + (,class :foreground ,fg-lang-error :underline t))) +;;;;; rainbow-blocks + `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) + `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) + `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) + `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) + `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) + `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) + `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) + `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) + `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) + `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) +;;;;; rainbow-identifiers + `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) + `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) + `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) + `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) + `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) + `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) + `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) + `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) + `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) + `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) + `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) + `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) + `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) + `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) + `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) +;;;;; rainbow-delimiters + `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) + `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) + `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) + `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) + `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) + `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) + `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) + `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) + `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) + `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) + `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) + `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) +;;;;; rcirc + `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) + `(rcirc-dim-nick ((,class :foreground ,fg-alt))) + `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) + `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) + `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) + `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) + `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) + `(rcirc-server ((,class :foreground ,fg-unfocused))) + `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) + `(rcirc-url ((,class :foreground ,blue :underline t))) +;;;;; regexp-builder (re-builder) + `(reb-match-0 ((,class :inherit modus-theme-refine-blue))) + `(reb-match-1 ((,class :inherit modus-theme-refine-magenta))) + `(reb-match-2 ((,class :inherit modus-theme-refine-green))) + `(reb-match-3 ((,class :inherit modus-theme-special-calm))) + `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) + `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) +;;;;; rg (rg.el) + `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) + `(rg-context-face ((,class :foreground ,fg-unfocused))) + `(rg-error-face ((,class :inherit bold :foreground ,red))) + `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) + `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(rg-line-number-face ((,class :foreground ,fg-special-warm))) + `(rg-literal-face ((,class :foreground ,blue-alt))) + `(rg-match-face ((,class :inherit modus-theme-special-calm))) + `(rg-regexp-face ((,class :foreground ,magenta-active))) + `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) + `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) + `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; ripgrep + `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) + `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) + `(ripgrep-hit-face ((,class :foreground ,cyan))) + `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; rmail + `(rmail-header-name ((,class :foreground ,cyan-alt-other))) + `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) +;;;;; ruler-mode + `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) + `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) + `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) + `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) + `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) + `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) + `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) + `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) + `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) +;;;;; sallet + `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) + `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) + `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) + `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) + `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) + `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) + `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) + `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) + `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) + `(sallet-flx-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) + `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) + `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(sallet-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(sallet-substring-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other)))) +;;;;; selectrum + `(selectrum-current-candidate + ((,class :inherit bold :foreground ,fg-main :underline ,fg-main + :background ,@(pcase modus-themes-completions + ('opinionated (list bg-active)) + (_ (list bg-inactive)))))) + `(selectrum-primary-highlight ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-secondary-highlight ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; semantic + `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) + `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) + `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) + `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) + `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) + `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) + `(semantic-highlight-edits-face ((,class :background ,bg-alt))) + `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) + `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) + `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) + `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) +;;;;; sesman + `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) + `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) + `(sesman-buffer-face ((,class :foreground ,magenta))) + `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) + `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; shell-script-mode + `(sh-heredoc ((,class :foreground ,blue-alt))) + `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) +;;;;; show-paren-mode + `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) + `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) +;;;;; shr + `(shr-abbreviation + ((,(append '((supports :underline (:style wave))) class) + :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) + (,class :foreground ,fg-docstring :underline t))) + `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) +;;;;; side-notes + `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) +;;;;; sieve-mode + `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) + `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) + `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) + `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) +;;;;; skewer-mode + `(skewer-error-face ((,class :foreground ,red :underline t))) +;;;;; smart-mode-line + `(sml/charging ((,class :foreground ,green-active))) + `(sml/discharging ((,class :foreground ,red-active))) + `(sml/filename ((,class :inherit bold :foreground ,blue-active))) + `(sml/folder ((,class :foreground ,fg-active))) + `(sml/git ((,class :inherit bold :foreground ,green-active))) + `(sml/global ((,class :foreground ,fg-active))) + `(sml/line-number ((,class :inherit sml/global))) + `(sml/minor-modes ((,class :inherit sml/global))) + `(sml/modes ((,class :inherit bold :foreground ,fg-active))) + `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) + `(sml/mule-info ((,class :inherit sml/global))) + `(sml/name-filling ((,class :foreground ,yellow-active))) + `(sml/not-modified ((,class :inherit sml/global))) + `(sml/numbers-separator ((,class :inherit sml/global))) + `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) + `(sml/position-percentage ((,class :inherit sml/global))) + `(sml/prefix ((,class :foreground ,green-active))) + `(sml/process ((,class :inherit sml/prefix))) + `(sml/projectile ((,class :inherit sml/git))) + `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) + `(sml/remote ((,class :inherit sml/global))) + `(sml/sudo ((,class :inherit modus-theme-subtle-red))) + `(sml/time ((,class :inherit sml/global))) + `(sml/vc ((,class :inherit sml/git))) + `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) +;;;;; smartparens + `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) + `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) + `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) + `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) +;;;;; smerge + `(smerge-base ((,class :inherit modus-theme-diff-changed))) + `(smerge-lower ((,class :inherit modus-theme-diff-added))) + `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) + `(smerge-refined-changed ((,class))) + `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(smerge-upper ((,class :inherit modus-theme-diff-removed))) +;;;;; spaceline + `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) + `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) + `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) + `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) + `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) + `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) + `(spaceline-flycheck-error ((,class :foreground ,red-active))) + `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) + `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) + `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) + `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) + `(spaceline-python-venv ((,class :foreground ,magenta-active))) + `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) + `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) +;;;;; speedbar + `(speedbar-button-face ((,class :inherit button))) + `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) + `(speedbar-file-face ((,class :foreground ,fg-main))) + `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) + `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) +;;;;; spell-fu + `(spell-fu-incorrect-face + ((,(append '((supports :underline (:style wave))) class) + :foreground ,fg-lang-error :underline (:style wave)) + (,class :foreground ,fg-lang-error :underline t))) +;;;;; stripes + `(stripes ((,class :inherit modus-theme-hl-line))) +;;;;; success + `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) +;;;;; switch-window + `(switch-window-background ((,class :background ,bg-dim))) + `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) +;;;;; swiper + `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) + `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) + `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) + `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) + `(swiper-line-face ((,class :inherit modus-theme-special-cold))) + `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) + `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) + `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) + `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) +;;;;; swoop + `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-3)))) + `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) + `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) + `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) +;;;;; sx + `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) + `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) + `(sx-question-list-answers ((,class :foreground ,green))) + `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) + `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) + `(sx-question-list-date ((,class :foreground ,fg-special-cold))) + `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) + `(sx-question-list-parent ((,class :foreground ,fg-main))) + `(sx-question-list-read-question ((,class :foreground ,fg-alt))) + `(sx-question-list-score ((,class :foreground ,fg-special-mild))) + `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) + `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) + `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) + `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) + `(sx-question-mode-content-face ((,class :background ,bg-dim))) + `(sx-question-mode-date ((,class :foreground ,blue))) + `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) + `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) + `(sx-question-mode-score ((,class :foreground ,fg-dim))) + `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) + `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) + `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) + `(sx-tag ((,class :foreground ,magenta-alt))) + `(sx-user-name ((,class :foreground ,blue-alt))) + `(sx-user-reputation ((,class :foreground ,fg-alt))) +;;;;; symbol-overlay + `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) + `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) + `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) + `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) + `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) + `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) + `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) + `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) + `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) +;;;;; syslog-mode + `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) + `(syslog-error ((,class :inherit bold :foreground ,red))) + `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) + `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) + `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) + `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) + `(syslog-su ((,class :inherit bold :foreground ,red-alt))) + `(syslog-warn ((,class :inherit bold :foreground ,yellow))) +;;;;; tab-bar-mode + `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; tab-line-mode + `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-line-close-highlight ((,class :foreground ,red))) + `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-line-tab-current ((,class :inherit tab-line-tab))) + `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; table (built-in table.el) + `(table-cell ((,class :background ,blue-nuanced-bg))) +;;;;; telephone-line + `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) + `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) + `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) + `(telephone-line-evil ((,class :foreground ,fg-main))) + `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) + `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) + `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) + `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) + `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) + `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) + `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) + `(telephone-line-projectile ((,class :foreground ,cyan-active))) + `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) + `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; term + `(term ((,class :background ,bg-main :foreground ,fg-main))) + `(term-bold ((,class :inherit bold))) + `(term-color-black ((,class :background "gray35" :foreground "gray35"))) + `(term-color-blue ((,class :background ,blue :foreground ,blue))) + `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(term-color-green ((,class :background ,green :foreground ,green))) + `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(term-color-red ((,class :background ,red :foreground ,red))) + `(term-color-white ((,class :background "gray65" :foreground "gray65"))) + `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) + `(term-underline ((,class :underline t))) +;;;;; tomatinho + `(tomatinho-ok-face ((,class :foreground ,blue-intense))) + `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) + `(tomatinho-reset-face ((,class :foreground ,fg-alt))) +;;;;; transient + `(transient-active-infix ((,class :inherit modus-theme-special-mild))) + `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) + `(transient-argument ((,class :inherit bold :foreground ,red-alt))) + `(transient-blue ((,class :inherit bold :foreground ,blue))) + `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) + `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) + `(transient-heading ((,class :inherit bold :foreground ,fg-main))) + `(transient-inactive-argument ((,class :foreground ,fg-alt))) + `(transient-inactive-value ((,class :foreground ,fg-alt))) + `(transient-key ((,class :inherit bold :foreground ,blue))) + `(transient-mismatched-key ((,class :underline t))) + `(transient-nonstandard-key ((,class :underline t))) + `(transient-pink ((,class :inherit bold :foreground ,magenta))) + `(transient-red ((,class :inherit bold :foreground ,red-intense))) + `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) + `(transient-unreachable ((,class :foreground ,fg-unfocused))) + `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) + `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; trashed + `(trashed-deleted ((,class :inherit modus-theme-mark-del))) + `(trashed-directory ((,class :foreground ,blue))) + `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) + `(trashed-marked ((,class :inherit modus-theme-mark-alt))) + `(trashed-restored ((,class :inherit modus-theme-mark-sel))) + `(trashed-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) +;;;;; treemacs + `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) + `(treemacs-directory-face ((,class :inherit dired-directory))) + `(treemacs-file-face ((,class :foreground ,fg-main))) + `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) + `(treemacs-git-added-face ((,class :foreground ,green-intense))) + `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) + `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) + `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) + `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) + `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) + `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) + `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) + `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) + `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) + `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) + `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) + `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) + `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) + `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) + `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) + `(treemacs-tags-face ((,class :foreground ,blue-alt))) + `(treemacs-tags-face ((,class :foreground ,magenta-alt))) +;;;;; tty-menu + `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) + `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) +;;;;; tuareg + `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) + `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) + `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) + `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) + `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) + `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) + `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) + `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) + `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) + `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) + `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) + `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) + `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) + `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground blue))) + `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-opam-error-face ((,class :inherit error))) + `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) +;;;;; typescript + `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) + `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) + `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) +;;;;; undo-tree + `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) + `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) + `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) + `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) + `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) +;;;;; vc (vc-hooks.el) + `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) + `(vc-edited-state ((,class :foreground ,yellow-active))) + `(vc-locally-added-state ((,class :foreground ,cyan-active))) + `(vc-locked-state ((,class :foreground ,blue-active))) + `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) + `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) + `(vc-removed-state ((,class :foreground ,red-active))) + `(vc-state-base ((,class :foreground ,fg-active))) + `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) +;;;;; vdiff + `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) + `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) + `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) + `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) +;;;;; vimish-fold + `(vimish-fold-fringe ((,class :foreground ,cyan-active))) + `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) +;;;;; visible-mark + `(visible-mark-active ((,class :background ,blue-intense-bg))) + `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) + `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) + `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) + `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) +;;;;; visual-regexp + `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) + `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) + `(vr/group-2 ((,class :inherit modus-theme-intense-green))) + `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) +;;;;; volatile-highlights + `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) +;;;;; vterm + `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) + `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) + `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) + `(vterm-color-green ((,class :background ,green :foreground ,green))) + `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) + `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(vterm-color-red ((,class :background ,red :foreground ,red))) + `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) + `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) + `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) +;;;;; wcheck-mode + `(wcheck-default-face ((,class :foreground ,red :underline t))) +;;;;; web-mode + `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) + `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) + `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) + `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) + `(web-mode-block-face ((,class :background ,bg-dim))) + `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-bold-face ((,class :inherit bold))) + `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) + `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) + `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) + `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) + `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) + `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) + `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) + `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) + `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-folded-face ((,class :underline t))) + `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) + `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) + `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) + `(web-mode-inlay-face ((,class :background ,bg-alt))) + `(web-mode-italic-face ((,class :inherit italic))) + `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) + `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) + `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) + `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) + `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-part-face ((,class :inherit web-mode-block-face))) + `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) + `(web-mode-script-face ((,class :inherit web-mode-part-face))) + `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-string-face ((,class :inherit font-lock-string-face))) + `(web-mode-style-face ((,class :inherit web-mode-part-face))) + `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) + `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-underline-face ((,class :underline t))) + `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) + `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) +;;;;; wgrep + `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) + `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) + `(wgrep-face ((,class :inherit modus-theme-refine-green))) + `(wgrep-file-face ((,class :foreground ,fg-special-warm))) + `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) +;;;;; which-function-mode + `(which-func ((,class :foreground ,magenta-active))) +;;;;; which-key + `(which-key-command-description-face ((,class :foreground ,cyan))) + `(which-key-group-description-face ((,class :foreground ,magenta-alt))) + `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) + `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(which-key-local-map-description-face ((,class :foreground ,fg-main))) + `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(which-key-separator-face ((,class :foreground ,fg-alt))) + `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) +;;;;; whitespace-mode + `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) + `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) + `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-line ((,class :inherit modus-theme-special-warm))) + `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) + `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) + `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) +;;;;; window-divider-mode + `(window-divider ((,class :foreground ,fg-window-divider-inner))) + `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) + `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) +;;;;; winum + `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; writegood-mode + `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced-fg :underline ,fg-lang-warning))) + `(writegood-weasels-face ((,class :foreground ,red-nuanced-fg :underline ,fg-lang-error))) +;;;;; woman + `(woman-addition ((,class :foreground ,magenta-alt-other))) + `(woman-bold ((,class :inherit bold :foreground ,magenta))) + `(woman-italic ((,class :inherit italic :foreground ,cyan))) + `(woman-unknown ((,class :inherit italic :foreground ,yellow))) +;;;;; xah-elisp-mode + `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) + `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) + `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) + `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) +;;;;; xref + `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(xref-line-number ((,class :foreground ,fg-alt))) + `(xref-match ((,class :inherit match))) +;;;;; yaml-mode + `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) +;;;;; yasnippet + `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) +;;;;; ztree + `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) + `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) + `(ztreep-diff-model-add-face ((,class :foreground ,green))) + `(ztreep-diff-model-diff-face ((,class :foreground ,red))) + `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) + `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) + `(ztreep-expand-sign-face ((,class :foreground ,blue))) + `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-leaf-face ((,class :foreground ,cyan))) + `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) + `(ztreep-node-face ((,class :foreground ,fg-main)))) + "Face specs for use with `modus-themes-core-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"]) +;;;; awesome-tray + `(awesome-tray-mode-line-active-color ,blue) + `(awesome-tray-mode-line-inactive-color ,bg-active) +;;;; exwm + `(exwm-floating-border-color ,fg-window-divider-inner) +;;;; flymake fringe indicators + `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) + `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) + `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) +;;;; ibuffer + `(ibuffer-deletion-face 'modus-theme-mark-del) + `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) + `(ibuffer-marked-face 'modus-theme-mark-sel) + `(ibuffer-title-face 'modus-theme-pseudo-header) +;;;; highlight-tail + `(highlight-tail-colors + '((,green-subtle-bg . 0) + (,cyan-subtle-bg . 20))) +;;;; hl-todo + `(hl-todo-keyword-faces + '(("HOLD" . ,yellow-alt) + ("TODO" . ,magenta) + ("NEXT" . ,magenta-alt-other) + ("THEM" . ,magenta-alt) + ("PROG" . ,cyan) + ("OKAY" . ,cyan-alt) + ("DONT" . ,green-alt) + ("FAIL" . ,red) + ("BUG" . ,red) + ("DONE" . ,green) + ("NOTE" . ,yellow-alt-other) + ("KLUDGE" . ,yellow) + ("HACK" . ,yellow) + ("TEMP" . ,red-nuanced-fg) + ("FIXME" . ,red-alt-other) + ("XXX+" . ,red-alt) + ("REVIEW" . ,cyan-alt-other) + ("DEPRECATED" . ,blue-nuanced-fg))) +;;;; pdf-tools + `(pdf-view-midnight-colors + '(,fg-main . ,bg-dim)) +;;;; vc-annotate (C-x v g) + `(vc-annotate-background nil) + `(vc-annotate-background-mode nil) + `(vc-annotate-color-map + '((20 . ,red) + (40 . ,magenta) + (60 . ,magenta-alt) + (80 . ,red-alt) + (100 . ,yellow) + (120 . ,yellow-alt) + (140 . ,fg-special-warm) + (160 . ,fg-special-mild) + (180 . ,green) + (200 . ,green-alt) + (220 . ,cyan-alt-other) + (240 . ,cyan-alt) + (260 . ,cyan) + (280 . ,fg-special-cold) + (300 . ,blue) + (320 . ,blue-alt) + (340 . ,blue-alt-other) + (360 . ,magenta-alt-other))) + `(vc-annotate-very-old-color nil) +;;;; xterm-color + `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) + `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) + (if (eq modus-themes-org-blocks 'rainbow) + `(org-src-block-faces ; TODO this list should be expanded + `(("emacs-lisp" modus-theme-nuanced-magenta) + ("elisp" modus-theme-nuanced-magenta) + ("clojure" modus-theme-nuanced-magenta) + ("clojurescript" modus-theme-nuanced-magenta) + ("c" modus-theme-nuanced-blue) + ("c++" modus-theme-nuanced-blue) + ("sh" modus-theme-nuanced-green) + ("shell" modus-theme-nuanced-green) + ("html" modus-theme-nuanced-yellow) + ("xml" modus-theme-nuanced-yellow) + ("css" modus-theme-nuanced-red) + ("scss" modus-theme-nuanced-red) + ("python" modus-theme-nuanced-green) + ("ipython" modus-theme-nuanced-magenta) + ("r" modus-theme-nuanced-cyan) + ("yaml" modus-theme-nuanced-cyan) + ("conf" modus-theme-nuanced-cyan) + ("docker" modus-theme-nuanced-cyan))) + `(org-src-block-faces '()))) + "Custom variables for `modus-themes-core-theme'.") + +;;;###autoload +(when (and (boundp 'custom-theme-load-path) load-file-name) + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide 'modus-themes) +;;; modus-themes.el ends here -- 2.29.2 ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-10 11:46 ` Protesilaos Stavrou @ 2020-12-11 9:37 ` Juri Linkov 2020-12-11 13:21 ` Stefan Kangas 0 siblings, 1 reply; 83+ messages in thread From: Juri Linkov @ 2020-12-11 9:37 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068, Stefan Kangas > On the "obfuscation" point I mentioned before: I expressed myself > poorly. What I thought was that it would be difficult to study the > theme's code, but one upside (I think) of the aforementioned changes is > that M-x find-library now lists the files I placed in lisp/themes. Indeed, it would be difficult to study the theme's code when it's split between different directories. Would it be possible to put everything under lisp/themes? Later another theme that would help novices to enable relevant options, among other things could ask about enabling modus-themes - such theme could be placed under lisp/themes as well. > I cannot run that command locally---it is slow > and my hardware's temparature rises considerably. Sometimes it helps just to clean the CPU cooler fan. Such cleaning could save money instead of buying new hardware. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 9:37 ` Juri Linkov @ 2020-12-11 13:21 ` Stefan Kangas 2020-12-11 13:52 ` Eli Zaretskii 0 siblings, 1 reply; 83+ messages in thread From: Stefan Kangas @ 2020-12-11 13:21 UTC (permalink / raw) To: Juri Linkov, Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Juri Linkov <juri@linkov.net> writes: >> On the "obfuscation" point I mentioned before: I expressed myself >> poorly. What I thought was that it would be difficult to study the >> theme's code, but one upside (I think) of the aforementioned changes is >> that M-x find-library now lists the files I placed in lisp/themes. > > Indeed, it would be difficult to study the theme's code when it's > split between different directories. Would it be possible to put > everything under lisp/themes? Later another theme that would help > novices to enable relevant options, among other things could ask > about enabling modus-themes - such theme could be placed under lisp/themes > as well. Taking a step back, why are any themes in "etc/themes" to begin with? Is it just to avoid byte-compiling them? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 13:21 ` Stefan Kangas @ 2020-12-11 13:52 ` Eli Zaretskii 2020-12-11 14:16 ` Stefan Kangas 2020-12-11 14:25 ` Christopher Dimech 0 siblings, 2 replies; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 13:52 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, info, 45068, juri > From: Stefan Kangas <stefankangas@gmail.com> > Date: Fri, 11 Dec 2020 07:21:53 -0600 > Cc: "Basil L. Contovounesios" <contovob@tcd.ie>, 45068@debbugs.gnu.org > > Taking a step back, why are any themes in "etc/themes" to begin with? This question should have been asked 10 years ago, when we added that place. Nowadays I think the question is what's so wrong with that place that would justify moving the files. If there are no serious problems, I'd prefer to keep using that directory for themes. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 13:52 ` Eli Zaretskii @ 2020-12-11 14:16 ` Stefan Kangas 2020-12-11 14:32 ` Eli Zaretskii ` (2 more replies) 2020-12-11 14:25 ` Christopher Dimech 1 sibling, 3 replies; 83+ messages in thread From: Stefan Kangas @ 2020-12-11 14:16 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, juri Eli Zaretskii <eliz@gnu.org> writes: >> Taking a step back, why are any themes in "etc/themes" to begin with? > > This question should have been asked 10 years ago, when we added that > place. I wasn't paying attention 10 years ago, I'm afraid. :-) > Nowadays I think the question is what's so wrong with that > place that would justify moving the files. If there are no serious > problems, I'd prefer to keep using that directory for themes. Right. Well, I don't exactly have a strong opinion either way. But I do think that we should be consistent: it would be confusing to have some themes in "etc/themes" and some in "lisp/themes". If we can't move all themes to "lisp/themes" and we don't want to use "lisp/themes" just for support files, to my mind the only remaining way forward is to add some way to byte-compile (perhaps only some?) files in "etc/themes". And then make sure they can be loaded, are installed with Emacs, etc. Does that sound good, or could we do even better here? Protesilaos, what do you think? Does it sound workable for you? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 14:16 ` Stefan Kangas @ 2020-12-11 14:32 ` Eli Zaretskii 2020-12-11 15:15 ` Stefan Kangas 2020-12-11 14:32 ` Christopher Dimech 2020-12-11 16:05 ` Protesilaos Stavrou 2 siblings, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 14:32 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, info, 45068, juri > From: Stefan Kangas <stefankangas@gmail.com> > Date: Fri, 11 Dec 2020 08:16:47 -0600 > Cc: juri@linkov.net, info@protesilaos.com, contovob@tcd.ie, > 45068@debbugs.gnu.org > > Right. Well, I don't exactly have a strong opinion either way. But I > do think that we should be consistent: it would be confusing to have > some themes in "etc/themes" and some in "lisp/themes". Why not have all of them in etc/themes? > If we can't move all themes to "lisp/themes" and we don't want to use > "lisp/themes" just for support files, to my mind the only remaining way > forward is to add some way to byte-compile (perhaps only some?) files in > "etc/themes". What theme-related files need to be byte-compiled, and why? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 14:32 ` Eli Zaretskii @ 2020-12-11 15:15 ` Stefan Kangas 2020-12-11 15:32 ` Eli Zaretskii 0 siblings, 1 reply; 83+ messages in thread From: Stefan Kangas @ 2020-12-11 15:15 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, juri Eli Zaretskii <eliz@gnu.org> writes: >> If we can't move all themes to "lisp/themes" and we don't want to use >> "lisp/themes" just for support files, to my mind the only remaining way >> forward is to add some way to byte-compile (perhaps only some?) files in >> "etc/themes". > > What theme-related files need to be byte-compiled, and why? I believe the issues involved are explained in some detail in the first message in this bug report. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 15:15 ` Stefan Kangas @ 2020-12-11 15:32 ` Eli Zaretskii 2020-12-11 15:42 ` Christopher Dimech 2020-12-11 15:53 ` Protesilaos Stavrou 0 siblings, 2 replies; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 15:32 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, info, 45068, juri > From: Stefan Kangas <stefankangas@gmail.com> > Date: Fri, 11 Dec 2020 09:15:32 -0600 > Cc: juri@linkov.net, info@protesilaos.com, contovob@tcd.ie, > 45068@debbugs.gnu.org > > > What theme-related files need to be byte-compiled, and why? > > I believe the issues involved are explained in some detail in the first > message in this bug report. If they are, I'm missing that. All I see is an assertion that the files must be byte-compiled: > The problem with contributing this new code to Emacs is that it cannot > work if it is placed in ../etc/themes/. Instead, the files need to be > in a path that handles byte-compilation, like ../lisp/modus-themes/. I'm probably missing something, and that is what I'm asking to elaborate on. TIA ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 15:32 ` Eli Zaretskii @ 2020-12-11 15:42 ` Christopher Dimech 2020-12-11 15:53 ` Protesilaos Stavrou 1 sibling, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 15:42 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, Stefan Kangas, juri > Sent: Friday, December 11, 2020 at 4:32 PM > From: "Eli Zaretskii" <eliz@gnu.org> > To: "Stefan Kangas" <stefankangas@gmail.com> > Cc: contovob@tcd.ie, info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > > From: Stefan Kangas <stefankangas@gmail.com> > > Date: Fri, 11 Dec 2020 09:15:32 -0600 > > Cc: juri@linkov.net, info@protesilaos.com, contovob@tcd.ie, > > 45068@debbugs.gnu.org > > > > > What theme-related files need to be byte-compiled, and why? > > > > I believe the issues involved are explained in some detail in the first > > message in this bug report. > > If they are, I'm missing that. All I see is an assertion that the > files must be byte-compiled: > > > The problem with contributing this new code to Emacs is that it cannot > > work if it is placed in ../etc/themes/. Instead, the files need to be > > in a path that handles byte-compilation, like ../lisp/modus-themes/. Then a good idea to use "lisp/themes" for modus-themes :) > I'm probably missing something, and that is what I'm asking to > elaborate on. > > TIA > > > > ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 15:32 ` Eli Zaretskii 2020-12-11 15:42 ` Christopher Dimech @ 2020-12-11 15:53 ` Protesilaos Stavrou 2020-12-11 18:39 ` Eli Zaretskii 1 sibling, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2020-12-11 15:53 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, 45068, Stefan Kangas, juri On 2020-12-11, 17:32 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Stefan Kangas <stefankangas@gmail.com> >> Date: Fri, 11 Dec 2020 09:15:32 -0600 >> Cc: juri@linkov.net, info@protesilaos.com, contovob@tcd.ie, >> 45068@debbugs.gnu.org >> >> > What theme-related files need to be byte-compiled, and why? >> >> I believe the issues involved are explained in some detail in the first >> message in this bug report. > > If they are, I'm missing that. All I see is an assertion that the > files must be byte-compiled: > >> The problem with contributing this new code to Emacs is that it cannot >> work if it is placed in ../etc/themes/. Instead, the files need to be >> in a path that handles byte-compilation, like ../lisp/modus-themes/. > > I'm probably missing something, and that is what I'm asking to > elaborate on. There now are four *.el files that make up the project: + modus-themes.el contains all defcustom, color palettes as alists, helper functions, and the face specs. + modus-themes-core.el contains a macro that 'let' binds the aforementioned alists around 'custom-theme-set-faces' and 'custom-theme-set-variables'. + modus-{operandi-vivendi}-theme.el contain a 'deftheme' and concomitant 'provide-theme' referencing each of them and just expand the macro. - Each of those files has (require 'modus-themes) and (eval-when-compile (require 'modus-themes-core)). Though I also tried without the eval-when-compile part. When I attempted to place all four files in etc/themes/ and then start a new 'emacs -Q' session, M-x load-theme RET modus-{operandi,vivendi} would throw an error: Cannot open load file: No such file or directory, modus-themes Whereas the latest patch I sent[1] does not produce any errors and fixes the issues I had identified in my original message. [1]: https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg00937.html -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 15:53 ` Protesilaos Stavrou @ 2020-12-11 18:39 ` Eli Zaretskii 2020-12-11 18:56 ` Christopher Dimech 2020-12-11 19:08 ` Stefan Kangas 0 siblings, 2 replies; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 18:39 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: contovob, 45068, stefankangas, juri > From: Protesilaos Stavrou <info@protesilaos.com> > Cc: Stefan Kangas <stefankangas@gmail.com>, juri@linkov.net, > contovob@tcd.ie, 45068@debbugs.gnu.org > Date: Fri, 11 Dec 2020 17:53:34 +0200 > > >> > What theme-related files need to be byte-compiled, and why? > >> > >> I believe the issues involved are explained in some detail in the first > >> message in this bug report. > > > > If they are, I'm missing that. All I see is an assertion that the > > files must be byte-compiled: > > > >> The problem with contributing this new code to Emacs is that it cannot > >> work if it is placed in ../etc/themes/. Instead, the files need to be > >> in a path that handles byte-compilation, like ../lisp/modus-themes/. > > > > I'm probably missing something, and that is what I'm asking to > > elaborate on. > > There now are four *.el files that make up the project: > > + modus-themes.el contains all defcustom, color palettes as alists, > helper functions, and the face specs. > > + modus-themes-core.el contains a macro that 'let' binds the > aforementioned alists around 'custom-theme-set-faces' and > 'custom-theme-set-variables'. > > + modus-{operandi-vivendi}-theme.el contain a 'deftheme' and concomitant > 'provide-theme' referencing each of them and just expand the macro. > > - Each of those files has (require 'modus-themes) and > (eval-when-compile (require 'modus-themes-core)). Though I also > tried without the eval-when-compile part. > > When I attempted to place all four files in etc/themes/ and then start a > new 'emacs -Q' session, M-x load-theme RET modus-{operandi,vivendi} > would throw an error: > > Cannot open load file: No such file or directory, modus-themes So this is not about byte-compiling, it's about being able to load some of the files that constitute this group of themes? If so, I see several possibilities: . make a single file with all the functionalities . invent a new function custom-require that would search the custom load-path, and use that instead of 'require' . don't consider this a "theme", but a normal Lisp package (since it basically violates the conventions for writing a theme) ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 18:39 ` Eli Zaretskii @ 2020-12-11 18:56 ` Christopher Dimech 2020-12-11 20:16 ` Eli Zaretskii 2020-12-11 19:08 ` Stefan Kangas 1 sibling, 1 reply; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 18:56 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, Protesilaos Stavrou, stefankangas, 45068, juri > Sent: Friday, December 11, 2020 at 7:39 PM > From: "Eli Zaretskii" <eliz@gnu.org> > To: "Protesilaos Stavrou" <info@protesilaos.com> > Cc: contovob@tcd.ie, 45068@debbugs.gnu.org, stefankangas@gmail.com, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > > From: Protesilaos Stavrou <info@protesilaos.com> > > Cc: Stefan Kangas <stefankangas@gmail.com>, juri@linkov.net, > > contovob@tcd.ie, 45068@debbugs.gnu.org > > Date: Fri, 11 Dec 2020 17:53:34 +0200 > > > > >> > What theme-related files need to be byte-compiled, and why? > > >> > > >> I believe the issues involved are explained in some detail in the first > > >> message in this bug report. > > > > > > If they are, I'm missing that. All I see is an assertion that the > > > files must be byte-compiled: > > > > > >> The problem with contributing this new code to Emacs is that it cannot > > >> work if it is placed in ../etc/themes/. Instead, the files need to be > > >> in a path that handles byte-compilation, like ../lisp/modus-themes/. > > > > > > I'm probably missing something, and that is what I'm asking to > > > elaborate on. > > > > There now are four *.el files that make up the project: > > > > + modus-themes.el contains all defcustom, color palettes as alists, > > helper functions, and the face specs. > > > > + modus-themes-core.el contains a macro that 'let' binds the > > aforementioned alists around 'custom-theme-set-faces' and > > 'custom-theme-set-variables'. > > > > + modus-{operandi-vivendi}-theme.el contain a 'deftheme' and concomitant > > 'provide-theme' referencing each of them and just expand the macro. > > > > - Each of those files has (require 'modus-themes) and > > (eval-when-compile (require 'modus-themes-core)). Though I also > > tried without the eval-when-compile part. > > > > When I attempted to place all four files in etc/themes/ and then start a > > new 'emacs -Q' session, M-x load-theme RET modus-{operandi,vivendi} > > would throw an error: > > > > Cannot open load file: No such file or directory, modus-themes > > So this is not about byte-compiling, it's about being able to load > some of the files that constitute this group of themes? > > If so, I see several possibilities: > > . make a single file with all the functionalities > . invent a new function custom-require that would search the custom > load-path, and use that instead of 'require' > . don't consider this a "theme", but a normal Lisp package (since it > basically violates the conventions for writing a theme) It is still a theme though. What conventions does it violate, briefly? Not being a single file? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 18:56 ` Christopher Dimech @ 2020-12-11 20:16 ` Eli Zaretskii 2020-12-11 20:29 ` Christopher Dimech 0 siblings, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 20:16 UTC (permalink / raw) To: Christopher Dimech; +Cc: contovob, info, stefankangas, 45068, juri > From: Christopher Dimech <dimech@gmx.com> > Cc: Protesilaos Stavrou <info@protesilaos.com>, contovob@tcd.ie, > 45068@debbugs.gnu.org, stefankangas@gmail.com, juri@linkov.net > Date: Fri, 11 Dec 2020 19:56:43 +0100 > > It is still a theme though. What conventions does it violate, briefly? > Not being a single file? Not being a theme, really. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 20:16 ` Eli Zaretskii @ 2020-12-11 20:29 ` Christopher Dimech 0 siblings, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 20:29 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, stefankangas, 45068, juri > Sent: Friday, December 11, 2020 at 9:16 PM > From: "Eli Zaretskii" <eliz@gnu.org> > To: "Christopher Dimech" <dimech@gmx.com> > Cc: info@protesilaos.com, contovob@tcd.ie, 45068@debbugs.gnu.org, stefankangas@gmail.com, juri@linkov.net > Subject: Re: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > > From: Christopher Dimech <dimech@gmx.com> > > Cc: Protesilaos Stavrou <info@protesilaos.com>, contovob@tcd.ie, > > 45068@debbugs.gnu.org, stefankangas@gmail.com, juri@linkov.net > > Date: Fri, 11 Dec 2020 19:56:43 +0100 > > > > It is still a theme though. What conventions does it violate, briefly? > > Not being a single file? > > Not being a theme, really. We should look at what the result is, not the type of implementation. Still I agree on some procedure for theme. The current one seems a bit restrictive though. It is true also that the first version was easier to set up though. I have been using modus-themes as my new standard. I find utility in it, because it passes very good metrics for setting a theme. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 18:39 ` Eli Zaretskii 2020-12-11 18:56 ` Christopher Dimech @ 2020-12-11 19:08 ` Stefan Kangas 2020-12-11 20:05 ` Christopher Dimech 2020-12-11 20:14 ` Eli Zaretskii 1 sibling, 2 replies; 83+ messages in thread From: Stefan Kangas @ 2020-12-11 19:08 UTC (permalink / raw) To: Eli Zaretskii, Protesilaos Stavrou; +Cc: contovob, 45068, juri Eli Zaretskii <eliz@gnu.org> writes: > . don't consider this a "theme", but a normal Lisp package (since it > basically violates the conventions for writing a theme) I guess such violations of our old conventions are getting increasingly common in (third-party) Emacs theme development. See for example: https://github.com/bbatsov/solarized-emacs https://github.com/hlissner/emacs-doom-themes FWIW, I think this is a sign of the health and maturity of Emacs theme development; code reuse is as useful in themes as in any other Lisp code. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 19:08 ` Stefan Kangas @ 2020-12-11 20:05 ` Christopher Dimech 2020-12-11 20:14 ` Eli Zaretskii 1 sibling, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 20:05 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, 45068, Protesilaos Stavrou, juri > Sent: Friday, December 11, 2020 at 8:08 PM > From: "Stefan Kangas" <stefankangas@gmail.com> > To: "Eli Zaretskii" <eliz@gnu.org>, "Protesilaos Stavrou" <info@protesilaos.com> > Cc: contovob@tcd.ie, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > Eli Zaretskii <eliz@gnu.org> writes: > > > . don't consider this a "theme", but a normal Lisp package (since it > > basically violates the conventions for writing a theme) > > I guess such violations of our old conventions are getting increasingly > common in (third-party) Emacs theme development. See for example: > > https://github.com/bbatsov/solarized-emacs > https://github.com/hlissner/emacs-doom-themes > > FWIW, I think this is a sign of the health and maturity of Emacs theme > development; code reuse is as useful in themes as in any other Lisp > code. I agree with that. Themes like those of Protesilaos have reached a very high standard and have recommended modus-themes as a default for emacs. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 19:08 ` Stefan Kangas 2020-12-11 20:05 ` Christopher Dimech @ 2020-12-11 20:14 ` Eli Zaretskii 2020-12-11 20:21 ` Christopher Dimech 2021-01-25 8:49 ` bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou 1 sibling, 2 replies; 83+ messages in thread From: Eli Zaretskii @ 2020-12-11 20:14 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, info, 45068, juri > From: Stefan Kangas <stefankangas@gmail.com> > Date: Fri, 11 Dec 2020 13:08:19 -0600 > Cc: juri@linkov.net, contovob@tcd.ie, 45068@debbugs.gnu.org > > Eli Zaretskii <eliz@gnu.org> writes: > > > . don't consider this a "theme", but a normal Lisp package (since it > > basically violates the conventions for writing a theme) > > I guess such violations of our old conventions are getting increasingly > common in (third-party) Emacs theme development. Then maybe the best way is to provide that require-theme function I proposed. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 20:14 ` Eli Zaretskii @ 2020-12-11 20:21 ` Christopher Dimech 2021-01-25 8:49 ` bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou 1 sibling, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 20:21 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, Stefan Kangas, juri > Sent: Friday, December 11, 2020 at 9:14 PM > From: "Eli Zaretskii" <eliz@gnu.org> > To: "Stefan Kangas" <stefankangas@gmail.com> > Cc: contovob@tcd.ie, info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > > From: Stefan Kangas <stefankangas@gmail.com> > > Date: Fri, 11 Dec 2020 13:08:19 -0600 > > Cc: juri@linkov.net, contovob@tcd.ie, 45068@debbugs.gnu.org > > > > Eli Zaretskii <eliz@gnu.org> writes: > > > > > . don't consider this a "theme", but a normal Lisp package (since it > > > basically violates the conventions for writing a theme) > > > > I guess such violations of our old conventions are getting increasingly > > common in (third-party) Emacs theme development. > > Then maybe the best way is to provide that require-theme function I > proposed. I would think so. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) 2020-12-11 20:14 ` Eli Zaretskii 2020-12-11 20:21 ` Christopher Dimech @ 2021-01-25 8:49 ` Protesilaos Stavrou 2021-01-25 12:51 ` Christopher Dimech 2021-01-25 15:34 ` Eli Zaretskii 1 sibling, 2 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-01-25 8:49 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, Stefan Kangas, juri On 2020-12-11, 22:14 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Stefan Kangas <stefankangas@gmail.com> >> Date: Fri, 11 Dec 2020 13:08:19 -0600 >> Cc: juri@linkov.net, contovob@tcd.ie, 45068@debbugs.gnu.org >> >> Eli Zaretskii <eliz@gnu.org> writes: >> >> > . don't consider this a "theme", but a normal Lisp package (since it >> > basically violates the conventions for writing a theme) >> >> I guess such violations of our old conventions are getting increasingly >> common in (third-party) Emacs theme development. > > Then maybe the best way is to provide that require-theme function I > proposed. Hello again! I have produced a newer version in the meantime. Though I understand that a patch would not be able to be merged under the present conditions. Should I prepare it regardless? This would also fix bug#45141 pertaining to some formatting issues in modus-themes.texi. To recapitulate for your convenience: + The current etc/themes/modus-{operandi,vivendi}-theme.el are old-style themes in that they look like the rest of that directory's contents. - They exist as standalone files. They do not require any library. - All their face declarations are furnished therein. - Their version is 0.13.0. + As of version 1.0.0 (and now 1.1.1) of the Modus themes, those two files merely expand a macro and declare their respective theme. They thus depend on a shared library: currently that is modus-themes.el. - The library unifies the themes' defcustom declarations and, in general, streamlines their development (before I would copy lines from one to the other to ensure parity). - This approach of a library and concomitant macro expansion is not in line with the current design of etc/themes/, though as Stefan Kangas observed, such deviations from the established norms are becoming increasingly common in third-party packages. A quick-and-dirty workaround would be to place the library in some other path, such as lisp/modus-themes.el and keep the other two files were they currently are: etc/themes/modus-{operandi,vivendi}-theme.el This could, however, make the source code more difficult to understand. It would also set a bad precedent for any possible future themes, as this thread revealed. So Eli Zaretskii proposed a new 'require-theme' function. I believe this is how things stand. For my part, I am willing to do whatever you consider necessary and will follow your lead. Thank you for your time and efforts! Protesilaos or Prot -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) 2021-01-25 8:49 ` bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou @ 2021-01-25 12:51 ` Christopher Dimech 2021-01-25 15:34 ` Eli Zaretskii 1 sibling, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2021-01-25 12:51 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: info, juri, contovob, Stefan Kangas, 45068 > Sent: Monday, January 25, 2021 at 8:49 PM > From: "Protesilaos Stavrou" <info@protesilaos.com> > To: "Eli Zaretskii" <eliz@gnu.org> > Cc: contovob@tcd.ie, info@protesilaos.com, 45068@debbugs.gnu.org, "Stefan Kangas" <stefankangas@gmail.com>, juri@linkov.net > Subject: bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) > > On 2020-12-11, 22:14 +0200, Eli Zaretskii <eliz@gnu.org> wrote: > > >> From: Stefan Kangas <stefankangas@gmail.com> > >> Date: Fri, 11 Dec 2020 13:08:19 -0600 > >> Cc: juri@linkov.net, contovob@tcd.ie, 45068@debbugs.gnu.org > >> > >> Eli Zaretskii <eliz@gnu.org> writes: > >> > >> > . don't consider this a "theme", but a normal Lisp package (since it > >> > basically violates the conventions for writing a theme) > >> > >> I guess such violations of our old conventions are getting increasingly > >> common in (third-party) Emacs theme development. > > > > Then maybe the best way is to provide that require-theme function I > > proposed. > > Hello again! > > I have produced a newer version in the meantime. Though I understand > that a patch would not be able to be merged under the present > conditions. Should I prepare it regardless? This would also fix > bug#45141 pertaining to some formatting issues in modus-themes.texi. > > To recapitulate for your convenience: > > + The current etc/themes/modus-{operandi,vivendi}-theme.el are old-style > themes in that they look like the rest of that directory's contents. > > - They exist as standalone files. They do not require any library. > - All their face declarations are furnished therein. > - Their version is 0.13.0. > > + As of version 1.0.0 (and now 1.1.1) of the Modus themes, those two > files merely expand a macro and declare their respective theme. They > thus depend on a shared library: currently that is modus-themes.el. > > - The library unifies the themes' defcustom declarations and, in > general, streamlines their development (before I would copy lines > from one to the other to ensure parity). > > - This approach of a library and concomitant macro expansion is not in > line with the current design of etc/themes/, though as Stefan Kangas > observed, such deviations from the established norms are becoming > increasingly common in third-party packages. The focus should not be on implementation but on functionality. As things flourish, people will find various ways to do it, with some being better because they yield to a different strategy. I suggest a more pragmatic approach. > A quick-and-dirty workaround would be to place the library in some other > path, such as lisp/modus-themes.el and keep the other two files were > they currently are: etc/themes/modus-{operandi,vivendi}-theme.el > > This could, however, make the source code more difficult to understand. > It would also set a bad precedent for any possible future themes, as > this thread revealed. So Eli Zaretskii proposed a new 'require-theme' > function. > > I believe this is how things stand. > > For my part, I am willing to do whatever you consider necessary and will > follow your lead. > > Thank you for your time and efforts! > Protesilaos or Prot > > -- > Protesilaos Stavrou > protesilaos.com > > > > ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) 2021-01-25 8:49 ` bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou 2021-01-25 12:51 ` Christopher Dimech @ 2021-01-25 15:34 ` Eli Zaretskii 2021-02-25 6:09 ` bug#45068: Patch for Modus themes 1.1.1? Protesilaos Stavrou 1 sibling, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2021-01-25 15:34 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: contovob, info, 45068, stefankangas, juri > From: Protesilaos Stavrou <info@protesilaos.com> > Cc: Stefan Kangas <stefankangas@gmail.com>, contovob@tcd.ie, > info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net > Date: Mon, 25 Jan 2021 10:49:46 +0200 > > A quick-and-dirty workaround would be to place the library in some other > path, such as lisp/modus-themes.el and keep the other two files were > they currently are: etc/themes/modus-{operandi,vivendi}-theme.el > > This could, however, make the source code more difficult to understand. > It would also set a bad precedent for any possible future themes, as > this thread revealed. So Eli Zaretskii proposed a new 'require-theme' > function. > > I believe this is how things stand. > > For my part, I am willing to do whatever you consider necessary and will > follow your lead. Thanks. So how about adding such a require-theme function, and then using it in your themes? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-01-25 15:34 ` Eli Zaretskii @ 2021-02-25 6:09 ` Protesilaos Stavrou 2021-02-25 14:44 ` Eli Zaretskii 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-25 6:09 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, 45068, stefankangas, juri On 2021-01-25, 17:34 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Protesilaos Stavrou <info@protesilaos.com> >> Cc: Stefan Kangas <stefankangas@gmail.com>, contovob@tcd.ie, >> info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net >> Date: Mon, 25 Jan 2021 10:49:46 +0200 >> >> A quick-and-dirty workaround would be to place the library in some other >> path, such as lisp/modus-themes.el and keep the other two files were >> they currently are: etc/themes/modus-{operandi,vivendi}-theme.el >> >> This could, however, make the source code more difficult to understand. >> It would also set a bad precedent for any possible future themes, as >> this thread revealed. So Eli Zaretskii proposed a new 'require-theme' >> function. >> >> I believe this is how things stand. >> >> For my part, I am willing to do whatever you consider necessary and will >> follow your lead. > > Thanks. So how about adding such a require-theme function, and then > using it in your themes? Hello Eli, Can you please outline what are the requirements and general functionality of such a 'require-theme' function? I wish to give it a try, though I can only do so in Elisp, whereas 'require' is in C... If there is some source code or documentation I could consult, please point me to it. My intent is to address this issue and then share with you the forthcoming 1.2.0 version of my themes. Thanks again for your time and efforts! Protesilaos -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-02-25 6:09 ` bug#45068: Patch for Modus themes 1.1.1? Protesilaos Stavrou @ 2021-02-25 14:44 ` Eli Zaretskii 2021-02-27 2:35 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2021-02-25 14:44 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: contovob, 45068, stefankangas, juri > From: Protesilaos Stavrou <info@protesilaos.com> > Cc: stefankangas@gmail.com, contovob@tcd.ie, 45068@debbugs.gnu.org, > juri@linkov.net > Date: Thu, 25 Feb 2021 08:09:53 +0200 > > Can you please outline what are the requirements and general > functionality of such a 'require-theme' function? I wish to give it a > try, though I can only do so in Elisp, whereas 'require' is in C... A simple implementation that checks whether a theme is already loaded, and if not, looks it up in a suitable list of directories and loads when found. The main part is to make sure themes are looked up in the directories where we expect them to be, as opposed to load-path, which is where 'require' looks for files to load. A Lisp implementation should be fine, I think. Let me know if you need further clarifications. Thanks. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-02-25 14:44 ` Eli Zaretskii @ 2021-02-27 2:35 ` Protesilaos Stavrou 2021-02-27 8:15 ` Eli Zaretskii 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-27 2:35 UTC (permalink / raw) To: Eli Zaretskii; +Cc: 45068 On 2021-02-25, 16:44 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Protesilaos Stavrou <info@protesilaos.com> >> Cc: stefankangas@gmail.com, contovob@tcd.ie, 45068@debbugs.gnu.org, >> juri@linkov.net >> Date: Thu, 25 Feb 2021 08:09:53 +0200 >> >> Can you please outline what are the requirements and general >> functionality of such a 'require-theme' function? I wish to give it a >> try, though I can only do so in Elisp, whereas 'require' is in C... > > A simple implementation that checks whether a theme is already loaded, > and if not, looks it up in a suitable list of directories and loads > when found. The main part is to make sure themes are looked up in the > directories where we expect them to be, as opposed to load-path, which > is where 'require' looks for files to load. A Lisp implementation > should be fine, I think. > > Let me know if you need further clarifications. Hello Eli, This is what I could come up with. It is not what you stipulated, as it only accounts for the default themes' directory instead of checking the 'custom-theme-load-path'. ;; To be added to custom.el (defun require-theme-base (base) "Load BASE theme file. BASE is a library that contains forms which are required by a theme declared with `deftheme'. It is located in the same directory as the built-in themes." (let* ((themes-dir (expand-file-name "themes" data-directory)) (themes (directory-files themes-dir nil "\\.el\\'")) files) (dolist (file themes) (unless (string-match-p "-theme\\.el\\'" file) (push file files))) (setq files (mapcar #'file-name-sans-extension files)) (if (and (member (format "%s" base) files) (not (custom-theme-p base))) (unless (featurep base) (load-file (expand-file-name (format "%s.el" base) themes-dir))) (error "`%s' is not a valid theme basis" base)))) I added that function to custom.el and placed the current version of my files at etc/themes: - modus-themes.el (the "base" file) - modus-operandi-theme.el - modus-vivendi-theme.el The latter two are tweaked to use (require-theme-base 'modus-themes) instead of (require 'modus-themes). Compiled and tested on emacs -Q. All theme loading seems to be working as expected. Though I understand that the function is not up to standard for a formal patch. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-02-27 2:35 ` Protesilaos Stavrou @ 2021-02-27 8:15 ` Eli Zaretskii 2021-02-27 8:53 ` Protesilaos Stavrou 2021-02-28 6:30 ` Protesilaos Stavrou 0 siblings, 2 replies; 83+ messages in thread From: Eli Zaretskii @ 2021-02-27 8:15 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 > From: Protesilaos Stavrou <info@protesilaos.com> > Cc: 45068@debbugs.gnu.org > Date: Sat, 27 Feb 2021 04:35:49 +0200 > > > A simple implementation that checks whether a theme is already loaded, > > and if not, looks it up in a suitable list of directories and loads > > when found. The main part is to make sure themes are looked up in the > > directories where we expect them to be, as opposed to load-path, which > > is where 'require' looks for files to load. A Lisp implementation > > should be fine, I think. > > > > Let me know if you need further clarifications. > > Hello Eli, > > This is what I could come up with. It is not what you stipulated, as it > only accounts for the default themes' directory instead of checking the > 'custom-theme-load-path'. Hmm... I'm surprised. What I had in mind was a simple use of locate-file, which already accepts a path argument, so you could pass custom-theme-load-path to it, and it would do the job. Maybe I misunderstand or misremember the problem which led us here. Wasn't the problem that 'load' and 'require' search along load-path instead of custom-theme-load-path? IOW, could you show the code you'd use to load the other components of the theme if you could use 'load' and 'require'? My idea was simply to replace (require 'foo-themes) with (require-theme 'foo-themes) Would that solve your original problem, assuming that require-theme would look for and load foo-themes.el? Thanks. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-02-27 8:15 ` Eli Zaretskii @ 2021-02-27 8:53 ` Protesilaos Stavrou 2021-02-28 6:30 ` Protesilaos Stavrou 1 sibling, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-27 8:53 UTC (permalink / raw) To: Eli Zaretskii; +Cc: 45068 On 2021-02-27, 10:15 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Protesilaos Stavrou <info@protesilaos.com> >> Cc: 45068@debbugs.gnu.org >> Date: Sat, 27 Feb 2021 04:35:49 +0200 >> >> > A simple implementation that checks whether a theme is already loaded, >> > and if not, looks it up in a suitable list of directories and loads >> > when found. The main part is to make sure themes are looked up in the >> > directories where we expect them to be, as opposed to load-path, which >> > is where 'require' looks for files to load. A Lisp implementation >> > should be fine, I think. >> > >> > Let me know if you need further clarifications. >> >> Hello Eli, >> >> This is what I could come up with. It is not what you stipulated, as it >> only accounts for the default themes' directory instead of checking the >> 'custom-theme-load-path'. > > Hmm... I'm surprised. What I had in mind was a simple use of > locate-file, which already accepts a path argument, so you could pass > custom-theme-load-path to it, and it would do the job. Thank you for the feedback (and sorry for putting you through the trouble)! I will try again using that approach. > Maybe I misunderstand or misremember the problem which led us here. > Wasn't the problem that 'load' and 'require' search along load-path > instead of custom-theme-load-path? Yes, that was the problem. So the "modus-themes.el" dependency could not be placed in etc/themes/ as (require 'modus-themes) would not find it. > IOW, could you show the code you'd use to load the other components of > the theme if you could use 'load' and 'require'? My idea was simply > to replace > > (require 'foo-themes) > > with > > (require-theme 'foo-themes) > > Would that solve your original problem, assuming that require-theme > would look for and load foo-themes.el? Indeed, with the function I provided all I had to change was 'require' to 'require-theme-base'. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: Patch for Modus themes 1.1.1? 2021-02-27 8:15 ` Eli Zaretskii 2021-02-27 8:53 ` Protesilaos Stavrou @ 2021-02-28 6:30 ` Protesilaos Stavrou 2021-02-28 11:41 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda 1 sibling, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-28 6:30 UTC (permalink / raw) To: Eli Zaretskii; +Cc: 45068 On 2021-02-27, 10:15 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Protesilaos Stavrou <info@protesilaos.com> >> Cc: 45068@debbugs.gnu.org >> Date: Sat, 27 Feb 2021 04:35:49 +0200 >> >> > A simple implementation that checks whether a theme is already loaded, >> > and if not, looks it up in a suitable list of directories and loads >> > when found. The main part is to make sure themes are looked up in the >> > directories where we expect them to be, as opposed to load-path, which >> > is where 'require' looks for files to load. A Lisp implementation >> > should be fine, I think. >> > >> > Let me know if you need further clarifications. >> >> Hello Eli, >> >> This is what I could come up with. It is not what you stipulated, as it >> only accounts for the default themes' directory instead of checking the >> 'custom-theme-load-path'. > > Hmm... I'm surprised. What I had in mind was a simple use of > locate-file, which already accepts a path argument, so you could pass > custom-theme-load-path to it, and it would do the job. > > Maybe I misunderstand or misremember the problem which led us here. > Wasn't the problem that 'load' and 'require' search along load-path > instead of custom-theme-load-path? IOW, could you show the code you'd > use to load the other components of the theme if you could use 'load' > and 'require'? My idea was simply to replace > > (require 'foo-themes) > > with > > (require-theme 'foo-themes) > > Would that solve your original problem, assuming that require-theme > would look for and load foo-themes.el? > > Thanks. I retried and feel I am now closer to what you have described. The following is meant to go in custom.el: (defun require-theme (theme &optional directories) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol or string that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. If THEME names a valid theme, load and enable it. Otherwise load the file, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. With optional DIRECTORIES as a list of filesystem paths, search for THEME file in those locations instead and load it, if present." (let* ((theme-dirs (custom-theme--load-path)) (custom-dirs (when (and directories (listp directories)) directories)) (theme-name (cond ((stringp theme) theme) ((symbolp theme) (format "%s" theme)) (t (error "`%s' must be either a symbol or string" theme)))) (dirs (or custom-dirs theme-dirs)) (file (locate-file theme-name dirs '(".el" ".elc")))) (cond ((custom-theme-p theme) (load-theme theme t)) (file (load-file file))))) This works in two ways: 1. To load a theme's dependency: (require-theme 'modus-themes) 2. To load and enable a theme: (require-theme 'modus-operandi) I am using functionality 1 on a newly compiled Emacs with 'emacs -Q'. I placed my three files in etc/themes (modus-{operandi,vivendi}-theme.el and modus-themes.el) and tried 'M-x load-theme RET modus-operandi' and the same for modus-vivendi, as well as 'M-x customize-themes'. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-02-28 6:30 ` Protesilaos Stavrou @ 2021-02-28 11:41 ` Mauro Aranda 2021-02-28 12:45 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Mauro Aranda @ 2021-02-28 11:41 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 Hi Protesilaos, Protesilaos Stavrou <info@protesilaos.com> writes: > (defun require-theme (theme &optional directories) > "Load THEME stored in `custom-theme-load-path'. > > THEME is a symbol or string that corresponds to the file name without > its file type extension. That is assumed to be either '.el' or '.elc'. > > If THEME names a valid theme, load and enable it. Otherwise load the > file, if present. In the latter case, the file is intended to work as > the basis of a theme declared with `deftheme'. > > With optional DIRECTORIES as a list of filesystem paths, search > for THEME file in those locations instead and load it, if present." > (let* ((theme-dirs (custom-theme--load-path)) > (custom-dirs (when (and directories (listp directories)) > directories)) > (theme-name (cond > ((stringp theme) > theme) > ((symbolp theme) > (format "%s" theme)) I think it's better to use `symbol-name' when you're sure it's a symbol. > (cond > ((custom-theme-p theme) > (load-theme theme t)) Some comments about this clause: The docstring says a valid theme, but this checks for a "known" theme. I think the docstring should clarify that. Also, in this clause you don't need all the early work for locating the file. More important: doesn't this make it possible to load a non-safe theme (as controlled by `custom-safe-themes') behind the user's back? > This works in two ways: > > 1. To load a theme's dependency: > > (require-theme 'modus-themes) > > 2. To load and enable a theme: > > (require-theme 'modus-operandi) IIUC, (2) works only after the theme is "known". ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-02-28 11:41 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda @ 2021-02-28 12:45 ` Protesilaos Stavrou [not found] ` <87lfb8l2wr.fsf@tcd.ie> [not found] ` <603b9b9d.1c69fb81.f37aa.cb7c@mx.google.com> 0 siblings, 2 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-28 12:45 UTC (permalink / raw) To: Mauro Aranda; +Cc: 45068 On 2021-02-28, 08:41 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > Hi Protesilaos, Hello Mauro and thank you for the valuable feedback! I have written the function anew based on your suggestions. I also added a featurep check to ensure that the same file is not loaded repeatedly. Furthermore, I streamlined the type of THEME to always be a symbol. (defun require-theme (theme &optional directories) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. If THEME names an element of `custom-available-themes', load it asking for confirmation if it is not considered safe by `custom-safe-themes'. Otherwise load the file, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. With optional DIRECTORIES as a list of filesystem paths, search for THEME file in those locations instead and load it, if present." (cond ((member theme (member theme (custom-available-themes))) (load-theme theme)) ((let* ((theme-dirs (custom-theme--load-path)) (custom-dirs (when (and directories (listp directories)) directories)) (dirs (or custom-dirs theme-dirs)) (file (locate-file (symbol-name theme) dirs '(".el" ".elc")))) (when (and file (not (featurep theme))) (load-file file)))))) Please feel welcome to suggest any further changes/refinements. This is not my area of expertise, so apologies for taking so long to get it right. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
[parent not found: <87lfb8l2wr.fsf@tcd.ie>]
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) [not found] ` <87lfb8l2wr.fsf@tcd.ie> @ 2021-02-28 14:13 ` Protesilaos Stavrou [not found] ` <87a6roxou1.fsf@protesilaos.com> 1 sibling, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-28 14:13 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda [ resending because it was lost, as Lars explained on emacs-devel: "Discarded messages to the bug tracker yesterday" ] On 2021-02-28, 13:47 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Thanks, just some nits from me. > > Protesilaos Stavrou <info@protesilaos.com> writes: > >> With optional DIRECTORIES as a list of filesystem paths, search >> for THEME file in those locations instead and load it, if >> present." > > GNU terminology distinguishes between "file names" and "paths", where > the latter is a list of directories to search. > See (info "(standards) GNU Manuals"). > > So I suggest calling this argument "path" like that of locate-file. > >> (cond >> ((member theme (member theme (custom-available-themes))) > > Duplicate member, and this can be memq instead, right? > >> (load-theme theme)) >> ((let* ((theme-dirs (custom-theme--load-path)) >> (custom-dirs (when (and directories (listp directories)) >> directories)) > > AKA (and (consp directories) directories), but see below. I don't think > we need to cater for callers passing atoms instead of lists. > >> (dirs (or custom-dirs theme-dirs)) > > I think you could just say (or directories (custom-theme--load-path)). > >> (file (locate-file (symbol-name theme) dirs '(".el" ".elc")))) >> (when (and file (not (featurep theme))) > > Maybe featurep should be checked before calling locate-file? > >> (load-file file)))))) Thank you Basil! The duplicate 'member' was a mistake, while Mauro also suggested 'memq'. If I understood your input correctly, the function should become: (defun require-theme (theme &optional paths) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. If THEME names an element of `custom-available-themes', load it asking for confirmation if it is not considered safe by `custom-safe-themes'. Otherwise load the file, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. With optional PATHS as a list of filesystem paths, search for THEME file in those locations instead and load it, if present." (cond ((memq theme (custom-available-themes)) (load-theme theme)) ((let* ((dirs (or paths (custom-theme--load-path))) (file (unless (featurep theme) (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) (when file (require theme file)))))) [ Note that the 'require' call was part of the parallel thread with my reply to Mauro's feedback. Or keep 'load-file' for that? ] -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
[parent not found: <87a6roxou1.fsf@protesilaos.com>]
[parent not found: <87im6cfcex.fsf@tcd.ie>]
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) [not found] ` <87im6cfcex.fsf@tcd.ie> @ 2021-02-28 15:57 ` Protesilaos Stavrou 0 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-28 15:57 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda [ resending because it was lost, as Lars explained on emacs-devel: "Discarded messages to the bug tracker yesterday" ] On 2021-02-28, 15:19 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> With optional PATHS as a list of filesystem paths, search for THEME >> file in those locations instead and load it, if present." > > I think PATH is usually written in the singular, as in e.g.: > > If PATH is non-nil, it should be a list of directories to use > instead of `custom-theme-load-path' when searching for THEME. > PATH should have the same form as `load-path' or `exec-path'. > >> ((let* ((dirs (or paths (custom-theme--load-path))) >> (file (unless (featurep theme) >> (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) >> (when file >> (require theme file)))))) >> >> [ Note that the 'require' call was part of the parallel thread with my >> reply to Mauro's feedback. Or keep 'load-file' for that? ] > > Shouldn't 'load' suffice, given we're already checking 'featurep'? > > Thanks, Very well! This is the updated version: (defun require-theme (theme &optional path) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. When THEME is an element of `custom-available-themes', load it and ask for confirmation if it is not considered safe by `custom-safe-themes'. Otherwise load the file indicated by THEME, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. If optional PATH is non-nil, it should be a list of directories to search for THEME in, instead of `custom-theme-load-path'. PATH should have the same form as `load-path' or `exec-path'." (cond ((memq theme (custom-available-themes)) (load-theme theme)) ((let* ((dirs (or path (custom-theme--load-path))) (file (unless (featurep theme) (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) (when file (load-file file)))))) Code aside, if you think the doc string is too verbose or difficult to read, I will try to simplify it. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
[parent not found: <603b9b9d.1c69fb81.f37aa.cb7c@mx.google.com>]
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) [not found] ` <603b9b9d.1c69fb81.f37aa.cb7c@mx.google.com> @ 2021-02-28 13:56 ` Protesilaos Stavrou 2021-03-01 14:38 ` Eli Zaretskii 1 sibling, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-02-28 13:56 UTC (permalink / raw) To: Mauro Aranda; +Cc: 45068 [ resending as it was lost as Lars explained on emacs-devel: "Discarded messages to the bug tracker yesterday" ] On 2021-02-28, 10:33 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > I don't understand this double member call. Was it, by chance, just a > typo? > > I'd use `memq' rather than `member' here, since, > `custom-available-themes' returns a list of symbols. Oops, sorry! The double 'member' was indeed a mistake. Though using it was intentional. Now switched to 'memq'. Also added 'require' instead of 'load-file'. Here is the revised version, just to avoid confusion: (defun require-theme (theme &optional directories) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. If THEME names an element of `custom-available-themes', load it asking for confirmation if it is not considered safe by `custom-safe-themes'. Otherwise load the file, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. With optional DIRECTORIES as a list of filesystem paths, search for THEME file in those locations instead and load it, if present." (cond ((memq theme (custom-available-themes)) (load-theme theme)) ((let* ((theme-dirs (custom-theme--load-path)) (custom-dirs (when (and directories (listp directories)) directories)) (dirs (or custom-dirs theme-dirs)) (file (locate-file (symbol-name theme) dirs '(".el" ".elc")))) (when (and file (not (featurep theme))) (require theme file)))))) >> Please feel welcome to suggest any further changes/refinements. This is >> not my area of expertise, so apologies for taking so long to get it >> right. > > No apologies needed. > > The rest looks good to me, but let's wait for the other people involved > to give their feedback. Yes sure and thanks again! -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) [not found] ` <603b9b9d.1c69fb81.f37aa.cb7c@mx.google.com> 2021-02-28 13:56 ` Protesilaos Stavrou @ 2021-03-01 14:38 ` Eli Zaretskii 2021-03-01 14:52 ` Protesilaos Stavrou 1 sibling, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2021-03-01 14:38 UTC (permalink / raw) To: Mauro Aranda; +Cc: info, 45068 > From: Mauro Aranda <maurooaranda@gmail.com> > Cc: Eli Zaretskii <eliz@gnu.org>, 45068@debbugs.gnu.org > Date: Sun, 28 Feb 2021 10:33:14 -0300 > > The rest looks good to me, but let's wait for the other people involved > to give their feedback. It LGTM as well, thanks. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 14:38 ` Eli Zaretskii @ 2021-03-01 14:52 ` Protesilaos Stavrou 2021-03-01 15:16 ` Mauro Aranda 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-01 14:52 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Basil L. Contovounesios, 45068, Mauro Aranda On 2021-03-01, 16:38 +0200, Eli Zaretskii <eliz@gnu.org> wrote: >> From: Mauro Aranda <maurooaranda@gmail.com> >> Cc: Eli Zaretskii <eliz@gnu.org>, 45068@debbugs.gnu.org >> Date: Sun, 28 Feb 2021 10:33:14 -0300 >> >> The rest looks good to me, but let's wait for the other people involved >> to give their feedback. > > It LGTM as well, thanks. Thank you! Just to add that Basil (now in cc) shared some more insights. The current version is this (any mistakes are mine): (defun require-theme (theme &optional path) "Load THEME stored in `custom-theme-load-path'. THEME is a symbol that corresponds to the file name without its file type extension. That is assumed to be either '.el' or '.elc'. When THEME is an element of `custom-available-themes', load it and ask for confirmation if it is not considered safe by `custom-safe-themes'. Otherwise load the file indicated by THEME, if present. In the latter case, the file is intended to work as the basis of a theme declared with `deftheme'. If optional PATH is non-nil, it should be a list of directories to search for THEME in, instead of `custom-theme-load-path'. PATH should have the same form as `load-path' or `exec-path'." (cond ((memq theme (custom-available-themes)) (load-theme theme)) ((let* ((dirs (or path (custom-theme--load-path))) (file (unless (featurep theme) (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) (when file (load-file file)))))) -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 14:52 ` Protesilaos Stavrou @ 2021-03-01 15:16 ` Mauro Aranda 2021-03-01 15:35 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Mauro Aranda @ 2021-03-01 15:16 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-01, 16:38 +0200, Eli Zaretskii <eliz@gnu.org> wrote: > >>> From: Mauro Aranda <maurooaranda@gmail.com> >>> Cc: Eli Zaretskii <eliz@gnu.org>, 45068@debbugs.gnu.org >>> Date: Sun, 28 Feb 2021 10:33:14 -0300 >>> >>> The rest looks good to me, but let's wait for the other people involved >>> to give their feedback. >> >> It LGTM as well, thanks. > > Thank you! Just to add that Basil (now in cc) shared some more > insights. The current version is this (any mistakes are mine): > > (defun require-theme (theme &optional path) > "Load THEME stored in `custom-theme-load-path'. > > THEME is a symbol that corresponds to the file name without its file > type extension. That is assumed to be either '.el' or '.elc'. > > When THEME is an element of `custom-available-themes', load it and ask > for confirmation if it is not considered safe by `custom-safe-themes'. > Otherwise load the file indicated by THEME, if present. In the latter > case, the file is intended to work as the basis of a theme declared > with `deftheme'. > > If optional PATH is non-nil, it should be a list of directories > to search for THEME in, instead of `custom-theme-load-path'. > PATH should have the same form as `load-path' or `exec-path'." > (cond > ((memq theme (custom-available-themes)) > (load-theme theme)) > ((let* ((dirs (or path (custom-theme--load-path))) > (file (unless (featurep theme) > (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) > (when file > (load-file file)))))) Since there's agreement about this, could you send it as a patch? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 15:16 ` Mauro Aranda @ 2021-03-01 15:35 ` Protesilaos Stavrou 2021-03-01 19:58 ` Basil L. Contovounesios ` (2 more replies) 0 siblings, 3 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-01 15:35 UTC (permalink / raw) To: Mauro Aranda; +Cc: Basil L. Contovounesios, 45068 [-- Attachment #1: Type: text/plain, Size: 498 bytes --] On 2021-03-01, 12:16 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > Since there's agreement about this, could you send it as a patch? Please find it attached. I did not know how to mention you as co-authors, so please do so. As for the original topic of this bug report, I will prepare a new version for the themes within the next few days (version 1.2.0). Then I will update this thread with a new patch. Thank you for your help and patience! -- Protesilaos Stavrou protesilaos.com [-- Warning: decoded text below may be mangled, UTF-8 assumed --] [-- Attachment #2: 0001-Add-require-theme-function.patch --] [-- Type: text/x-patch, Size: 2702 bytes --] From c3f0ee0ed8e79f9496a6cec1c9d3282b3231a6dc Mon Sep 17 00:00:00 2001 Message-Id: <c3f0ee0ed8e79f9496a6cec1c9d3282b3231a6dc.1614612728.git.info@protesilaos.com> From: Protesilaos Stavrou <info@protesilaos.com> Date: Mon, 1 Mar 2021 17:31:44 +0200 Subject: [PATCH] Add 'require-theme' function * etc/NEWS: Document new function. * lisp/custom.el (require-theme): Add function. This follows from the discussion on bug#45068 where it became apparent that there was no equivalent mechanism to 'require' that read through the 'custom-theme-load-path'. --- etc/NEWS | 6 ++++++ lisp/custom.el | 24 ++++++++++++++++++++++++ 2 files changed, 30 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index f8f41e21e2..c2bb0820af 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2495,6 +2495,12 @@ region's (or buffer's) end. This function can be used by modes to add elements to the 'choice' customization type of a variable. +--- +** New function 'require-theme'. +This function is used to load a theme or library stored in the +'custom-theme-load-path'. It is intended to work as a substitute for +'require' in those cases where that cannot be used. + +++ ** New function 'file-modes-number-to-symbolic' to convert a numeric file mode specification into symbolic form. diff --git a/lisp/custom.el b/lisp/custom.el index 833810718b..35ac4d8564 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1200,6 +1200,30 @@ provide-theme (custom-check-theme theme) (provide (get theme 'theme-feature))) +(defun require-theme (theme &optional path) + "Load THEME stored in `custom-theme-load-path'. + +THEME is a symbol that corresponds to the file name without its file +type extension. That is assumed to be either '.el' or '.elc'. + +When THEME is an element of `custom-available-themes', load it and ask +for confirmation if it is not considered safe by `custom-safe-themes'. +Otherwise load the file indicated by THEME, if present. In the latter +case, the file is intended to work as the basis of a theme declared +with `deftheme'. + +If optional PATH is non-nil, it should be a list of directories +to search for THEME in, instead of `custom-theme-load-path'. +PATH should have the same form as `load-path' or `exec-path'." + (cond + ((memq theme (custom-available-themes)) + (load-theme theme)) + ((let* ((dirs (or path (custom-theme--load-path))) + (file (unless (featurep theme) + (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) + (when file + (load-file file)))))) + (defcustom custom-safe-themes '(default) "Themes that are considered safe to load. If the value is a list, each element should be either the SHA-256 -- 2.30.1 ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 15:35 ` Protesilaos Stavrou @ 2021-03-01 19:58 ` Basil L. Contovounesios 2021-03-01 20:06 ` Mauro Aranda 2021-03-01 20:03 ` Mauro Aranda 2021-03-01 23:34 ` Basil L. Contovounesios 2 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-01 19:58 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Mauro Aranda, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-01, 12:16 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > >> Since there's agreement about this, could you send it as a patch? > > Please find it attached. Thanks, pushed to master. Add 'require-theme' function 59e1867a1f 2021-03-01 19:50:02 +0000 https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=59e1867a1f2b6938cdabac8e3f52acc9e61e9e32 > I did not know how to mention you as co-authors, so please do so. I for one don't care for attribution nor count code review as co-authoring; hopefully Mauro agrees in this case :). -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 19:58 ` Basil L. Contovounesios @ 2021-03-01 20:06 ` Mauro Aranda 0 siblings, 0 replies; 83+ messages in thread From: Mauro Aranda @ 2021-03-01 20:06 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Protesilaos Stavrou, 45068 "Basil L. Contovounesios" <contovob@tcd.ie> writes: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> On 2021-03-01, 12:16 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: >> >>> Since there's agreement about this, could you send it as a patch? >> >> Please find it attached. > > Thanks, pushed to master. > > Add 'require-theme' function > 59e1867a1f 2021-03-01 19:50:02 +0000 > https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=59e1867a1f2b6938cdabac8e3f52acc9e61e9e32 > >> I did not know how to mention you as co-authors, so please do so. > > I for one don't care for attribution nor count code review as > co-authoring; hopefully Mauro agrees in this case :). Oops, looks like you beat me. And we agree about the co-author thing ;) ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 15:35 ` Protesilaos Stavrou 2021-03-01 19:58 ` Basil L. Contovounesios @ 2021-03-01 20:03 ` Mauro Aranda 2021-03-01 23:34 ` Basil L. Contovounesios 2 siblings, 0 replies; 83+ messages in thread From: Mauro Aranda @ 2021-03-01 20:03 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-01, 12:16 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > >> Since there's agreement about this, could you send it as a patch? > > Please find it attached. I did not know how to mention you as > co-authors, so please do so. Thanks. I took the liberty of tweaking a little bit the commit message (but didn't add co-authors -- I hope I didn't hurt anyone's feelings...) and pushed it to the master branch. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 15:35 ` Protesilaos Stavrou 2021-03-01 19:58 ` Basil L. Contovounesios 2021-03-01 20:03 ` Mauro Aranda @ 2021-03-01 23:34 ` Basil L. Contovounesios 2021-03-02 5:47 ` Protesilaos Stavrou 2 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-01 23:34 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Mauro Aranda, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > +--- I think this function deserves to be documented under (info "(elisp) Custom Themes"), but... > +** New function 'require-theme'. > +This function is used to load a theme or library stored in the > +'custom-theme-load-path'. It is intended to work as a substitute for > +'require' in those cases where that cannot be used. ...after trying for some time, I failed to do so coherently and am now confused about the function's implementation and purpose (I'm sorry for not raising these points sooner). If require-theme is intended as an alternative to require that searches custom-theme-load-path, then why does it sometimes delegate to load-theme and prompt the user about unsafe themes? This mixes lower-level library functionality with a higher-level user feature, and the only deciding factor between the two is whether foo-theme.el or foo.el exists on custom-theme-load-path, which seems a bit opaque. Wouldn't it be simpler/cleaner if load-theme was used only for the foo-theme.el use case, and require-theme only for the foo.el use case? IOW, what is the use case for (require-theme 'modus-operandi)? Why not just call (load-theme 'modus-operandi) instead, with the added flexibility of specifying its optional arguments? I'm also curious about the use case for require-theme's optional second argument. Do the Modus themes require the current dual behaviour of require-theme? If not, then could require-theme be as simple as the following, or am I being naive / missing something? (defun require-theme (feature &optional noerror) (let ((load-path (custom-theme--load-path))) (require feature nil noerror))) BTW, do we need to warn anywhere that require-theme may unconditionally load files from custom-theme-load-path, or somehow protect against this? And does it matter if require-theme loads .elc files, given that its purpose is to load supporting non-theme Lisp files? Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-01 23:34 ` Basil L. Contovounesios @ 2021-03-02 5:47 ` Protesilaos Stavrou 2021-03-02 5:51 ` Eli Zaretskii 2021-03-02 10:32 ` Basil L. Contovounesios 0 siblings, 2 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-02 5:47 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Mauro Aranda, 45068 On 2021-03-01, 23:34 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> +--- > > I think this function deserves to be documented under > (info "(elisp) Custom Themes"), but... > >> +** New function 'require-theme'. >> +This function is used to load a theme or library stored in the >> +'custom-theme-load-path'. It is intended to work as a substitute for >> +'require' in those cases where that cannot be used. > > ...after trying for some time, I failed to do so coherently and am now > confused about the function's implementation and purpose (I'm sorry for > not raising these points sooner). No worries. I will try to asnwer and we can always amend things. > If require-theme is intended as an alternative to require that searches > custom-theme-load-path, then why does it sometimes delegate to > load-theme and prompt the user about unsafe themes? This mixes > lower-level library functionality with a higher-level user feature, and > the only deciding factor between the two is whether foo-theme.el or > foo.el exists on custom-theme-load-path, which seems a bit opaque. > > Wouldn't it be simpler/cleaner if load-theme was used only for the > foo-theme.el use case, and require-theme only for the foo.el use case? My idea was that there could be a future scenario where a derivative theme requires a basis and the two are both declared as 'deftheme'. So they would blend together. Otherwise yes, it would be simpler to keep things separate. > IOW, what is the use case for (require-theme 'modus-operandi)? Why not > just call (load-theme 'modus-operandi) instead, with the added > flexibility of specifying its optional arguments? I'm also curious > about the use case for require-theme's optional second argument. In my case (require-theme 'modus-operandi) would not be used. In the file modus-operandi-theme.el I now have (require 'modus-themes). The modus-themes.el is not a 'deftheme' in itself and 'require' cannot find it unless it is in the load-path. Emacs' directory etc/themes is not in the load-path, so (require-theme 'modus-themes) is meant to work around that constraint. > Do the Modus themes require the current dual behaviour of require-theme? > If not, then could require-theme be as simple as the following, or am I > being naive / missing something? > > (defun require-theme (feature &optional noerror) > (let ((load-path (custom-theme--load-path))) > (require feature nil noerror))) No the themes do not need that dual behaviour. And yes, your version works and I am happy with it: all I need is a 'require' that reads from etc/themes. Perhaps I should attach a preliminary patch with the themes so that you can inspect it? > BTW, do we need to warn anywhere that require-theme may unconditionally > load files from custom-theme-load-path, or somehow protect against this? That would be consistent with load-theme. > And does it matter if require-theme loads .elc files, given that its > purpose is to load supporting non-theme Lisp files? For this I am not sure. Whatever you think is appropriate. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 5:47 ` Protesilaos Stavrou @ 2021-03-02 5:51 ` Eli Zaretskii 2021-03-02 10:35 ` Basil L. Contovounesios 2021-03-02 10:32 ` Basil L. Contovounesios 1 sibling, 1 reply; 83+ messages in thread From: Eli Zaretskii @ 2021-03-02 5:51 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: contovob, 45068, maurooaranda > From: Protesilaos Stavrou <info@protesilaos.com> > Cc: Mauro Aranda <maurooaranda@gmail.com>, Eli Zaretskii <eliz@gnu.org>, > 45068@debbugs.gnu.org > Date: Tue, 02 Mar 2021 07:47:58 +0200 > > > (defun require-theme (feature &optional noerror) > > (let ((load-path (custom-theme--load-path))) > > (require feature nil noerror))) > > No the themes do not need that dual behaviour. And yes, your version > works and I am happy with it: all I need is a 'require' that reads from > etc/themes. Won't the above version cause problems if the loaded theme needs to require some Emacs package? Binding load-path would get in the way of that, no? ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 5:51 ` Eli Zaretskii @ 2021-03-02 10:35 ` Basil L. Contovounesios 0 siblings, 0 replies; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-02 10:35 UTC (permalink / raw) To: Eli Zaretskii; +Cc: Protesilaos Stavrou, maurooaranda, 45068 Eli Zaretskii <eliz@gnu.org> writes: >> From: Protesilaos Stavrou <info@protesilaos.com> >> Cc: Mauro Aranda <maurooaranda@gmail.com>, Eli Zaretskii <eliz@gnu.org>, >> 45068@debbugs.gnu.org >> Date: Tue, 02 Mar 2021 07:47:58 +0200 >> >> > (defun require-theme (feature &optional noerror) >> > (let ((load-path (custom-theme--load-path))) >> > (require feature nil noerror))) >> >> No the themes do not need that dual behaviour. And yes, your version >> works and I am happy with it: all I need is a 'require' that reads from >> etc/themes. > > Won't the above version cause problems if the loaded theme needs to > require some Emacs package? Binding load-path would get in the way of > that, no? Probably, so locate-file is indeed the way to go. (The above was mostly an illustration.) Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 5:47 ` Protesilaos Stavrou 2021-03-02 5:51 ` Eli Zaretskii @ 2021-03-02 10:32 ` Basil L. Contovounesios 2021-03-02 10:59 ` Protesilaos Stavrou ` (2 more replies) 1 sibling, 3 replies; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-02 10:32 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Mauro Aranda, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-01, 23:34 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > >> If require-theme is intended as an alternative to require that searches >> custom-theme-load-path, then why does it sometimes delegate to >> load-theme and prompt the user about unsafe themes? This mixes >> lower-level library functionality with a higher-level user feature, and >> the only deciding factor between the two is whether foo-theme.el or >> foo.el exists on custom-theme-load-path, which seems a bit opaque. >> >> Wouldn't it be simpler/cleaner if load-theme was used only for the >> foo-theme.el use case, and require-theme only for the foo.el use case? > > My idea was that there could be a future scenario where a derivative > theme requires a basis and the two are both declared as 'deftheme'. So > they would blend together. So you mean there is a base-theme.el and derivative-theme.el? In that case, couldn't derivative-theme.el just call (load-theme 'base) with or without NO-CONFIRM and NO-ENABLE, depending on its needs? Or did I misunderstand what you mean? > Otherwise yes, it would be simpler to keep things separate. > >> IOW, what is the use case for (require-theme 'modus-operandi)? Why not >> just call (load-theme 'modus-operandi) instead, with the added >> flexibility of specifying its optional arguments? I'm also curious >> about the use case for require-theme's optional second argument. > > In my case (require-theme 'modus-operandi) would not be used. In the > file modus-operandi-theme.el I now have (require 'modus-themes). The > modus-themes.el is not a 'deftheme' in itself and 'require' cannot find > it unless it is in the load-path. Emacs' directory etc/themes is not in > the load-path, so (require-theme 'modus-themes) is meant to work around > that constraint. > >> Do the Modus themes require the current dual behaviour of require-theme? >> If not, then could require-theme be as simple as the following, or am I >> being naive / missing something? >> >> (defun require-theme (feature &optional noerror) >> (let ((load-path (custom-theme--load-path))) >> (require feature nil noerror))) > > No the themes do not need that dual behaviour. And yes, your version > works and I am happy with it: all I need is a 'require' that reads from > etc/themes. Thanks, in that case, AFAICS, it might indeed be okay to keep load-theme and require-theme separate (hopefully I'm not missing something obvious). > Perhaps I should attach a preliminary patch with the themes so that you > can inspect it? Sure, if you think it will help - my questions were just to help me understand the "requirements" of require-theme ;). >> BTW, do we need to warn anywhere that require-theme may unconditionally >> load files from custom-theme-load-path, or somehow protect against this? > > That would be consistent with load-theme. Right, but I'm wondering whether require-theme ought to be consistent in this regard. load-theme is a user-level command, and arbitrary themes are considered risky Lisp, so it has to (conditionally) display the code and ask the user if they think it looks okay. require-theme, OTOH, sounds like it's a behind-the-scenes noninteractive plumbing function to be used by themes themselves, so wouldn't the user be prompted twice if a theme called require-theme on an element of custom-available-themes? IOW, it seems to me like require-theme's "safety" should already be handled/covered by the theme using it. >> And does it matter if require-theme loads .elc files, given that its >> purpose is to load supporting non-theme Lisp files? > > For this I am not sure. Whatever you think is appropriate. load-theme already prefers the .elc file if the theme is considered safe by default, so if my suggestions for require-theme are acceptable to everyone then maybe it would make sense for require-theme to behave like require in this sense as well. I'll suggest a patch soon to help the discussion. Thanks for bearing with me, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 10:32 ` Basil L. Contovounesios @ 2021-03-02 10:59 ` Protesilaos Stavrou 2021-03-02 11:03 ` Mauro Aranda 2021-03-03 16:31 ` Basil L. Contovounesios 2 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-02 10:59 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Mauro Aranda, 45068 [-- Attachment #1: Type: text/plain, Size: 640 bytes --] On 2021-03-02, 10:32 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > I'll suggest a patch soon to help the discussion. > > Thanks for bearing with me, I also attach the files I intend to use. Those should be placed in etc/themes. Note that this is not version 1.2.0 as I might still make some minor tweaks before tagging a release either tomorrow or the day after: just for you to make sense of the requirements. Thank you! P.S. If/when this issue is closed I will post on emacs-devel outlining the minor yet important breaking changes from the themes' 0.13.0 to version >= 1.0.0. -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: modus-operandi-theme.el --] [-- Type: text/plain, Size: 2540 bytes --] ;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.1.1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Modus Operandi is the light variant of the Modus themes (Modus ;; Vivendi is the dark one). The themes are designed for color-contrast ;; accessibility. More specifically: ;; ;; 1. Provide a consistent minimum contrast ratio between background ;; and foreground values of 7:1 or higher. This meets the highest ;; such accessibility criterion per the guidelines of the Worldwide ;; Web Consortium's Working Group on Accessibility (WCAG AAA ;; standard). ;; ;; 2. Offer as close to full face coverage as possible. The list is ;; already quite long, with more additions to follow as part of the ;; ongoing development process. ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-themes.el (Main code shared between the themes) ;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f (if (>= emacs-major-version 28) (require-theme 'modus-themes) (require 'modus-themes)) (deftheme modus-operandi "Accessible and customizable light theme (WCAG AAA standard). Conforms with the highest legibility standard for color contrast between background and foreground in any given piece of text, which corresponds to a minimum contrast in relative luminance of 7:1.") (modus-themes-theme modus-operandi) (provide-theme 'modus-operandi) (provide 'modus-operandi-theme) ;;; modus-operandi-theme.el ends here [-- Attachment #3: modus-themes.el --] [-- Type: text/plain, Size: 343764 bytes --] ;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.1.1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <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). ;; This file contains all customization options, helper functions, ;; interactive commands, and face specifications. Please refer to the ;; official Info manual for further documentation (distributed with the ;; themes, or available at: <https://protesilaos.com/modus-themes>). ;; ;; The themes share the following customization options, all of which ;; are disabled by default (nil): ;; ;; modus-themes-slanted-constructs (boolean) ;; modus-themes-bold-constructs (boolean) ;; modus-themes-variable-pitch-headings (boolean) ;; modus-themes-variable-pitch-ui (boolean) ;; modus-themes-no-mixed-fonts (boolean) ;; modus-themes-headings (alist) ;; modus-themes-scale-headings (boolean) ;; modus-themes-fringes (choice) ;; modus-themes-lang-checkers (choice) ;; modus-themes-org-blocks (choice) ;; modus-themes-org-habit (choice) ;; modus-themes-prompts (choice) ;; modus-themes-mode-line (choice) ;; modus-themes-diffs (choice) ;; modus-themes-syntax (choice) ;; modus-themes-intense-hl-line (boolean) ;; modus-themes-subtle-line-numbers (boolean) ;; modus-themes-paren-match (choice) ;; modus-themes-region (choice) ;; modus-themes-links (choice) ;; modus-themes-completions (choice) ;; ;; The default scale for headings is as follows (it can be customized as ;; well---remember, no scaling takes place by default): ;; ;; modus-themes-scale-1 1.05 ;; modus-themes-scale-2 1.1 ;; modus-themes-scale-3 1.15 ;; modus-themes-scale-4 1.2 ;; modus-themes-scale-5 1.3 ;; ;; There also exist two unique customization options for overriding ;; color palette values. The specifics are documented in the manual. ;; The symbols are: ;; ;; modus-themes-operandi-color-overrides (alist) ;; modus-themes-vivendi-color-overrides (alist) ;; ;; Below is the list of explicitly supported packages or face groups ;; (there are implicitly supported packages as well, which inherit from ;; font-lock or some basic group). You are encouraged to report any ;; missing package or change you would like to see. ;; ;; ace-window ;; ag ;; alert ;; all-the-icons ;; annotate ;; anzu ;; apropos ;; apt-sources-list ;; artbollocks-mode ;; auctex and TeX ;; auto-dim-other-buffers ;; avy ;; awesome-tray ;; bbdb ;; binder ;; bm ;; bongo ;; boon ;; breakpoint (provided by built-in gdb-mi.el) ;; buffer-expose ;; calendar and diary ;; calfw ;; centaur-tabs ;; cfrs ;; change-log and log-view (`vc-print-log' and `vc-print-root-log') ;; cider ;; circe ;; color-rg ;; column-enforce-mode ;; company-mode ;; company-posframe ;; compilation-mode ;; completions ;; consult ;; counsel ;; counsel-css ;; counsel-notmuch ;; counsel-org-capture-string ;; cov ;; cperl-mode ;; csv-mode ;; ctrlf ;; custom (M-x customize) ;; dap-mode ;; dashboard (emacs-dashboard) ;; deadgrep ;; debbugs ;; define-word ;; deft ;; dictionary ;; diff-hl ;; diff-mode ;; dim-autoload ;; dir-treeview ;; dired ;; dired-async ;; dired-git ;; dired-git-info ;; dired-narrow ;; dired-subtree ;; diredc ;; diredfl ;; diredp (dired+) ;; disk-usage ;; display-fill-column-indicator-mode ;; doom-modeline ;; dynamic-ruler ;; easy-jekyll ;; easy-kill ;; ebdb ;; ediff ;; eglot ;; el-search ;; eldoc ;; eldoc-box ;; elfeed ;; elfeed-score ;; emms ;; enhanced-ruby-mode ;; epa ;; equake ;; erc ;; eros ;; ert ;; eshell ;; eshell-fringe-status ;; eshell-git-prompt ;; eshell-prompt-extras (epe) ;; eshell-syntax-highlighting ;; evil (evil-mode) ;; evil-goggles ;; evil-snipe ;; evil-visual-mark-mode ;; eww ;; exwm ;; eyebrowse ;; fancy-dabbrev ;; flycheck ;; flycheck-color-mode-line ;; flycheck-indicator ;; flycheck-posframe ;; flymake ;; flyspell ;; flyspell-correct ;; flx ;; freeze-it ;; frog-menu ;; focus ;; fold-this ;; font-lock (generic syntax highlighting) ;; forge ;; fountain (fountain-mode) ;; geiser ;; git-commit ;; git-gutter (and variants) ;; git-lens ;; git-rebase ;; git-timemachine ;; git-walktree ;; gnus ;; golden-ratio-scroll-screen ;; helm ;; helm-ls-git ;; helm-switch-shell ;; helm-xref ;; helpful ;; highlight-blocks ;; highlight-defined ;; highlight-escape-sequences (`hes-mode') ;; highlight-indentation ;; highlight-numbers ;; highlight-symbol ;; highlight-tail ;; highlight-thing ;; hl-defined ;; hl-fill-column ;; hl-line-mode ;; hl-todo ;; hydra ;; hyperlist ;; ibuffer ;; icomplete ;; ido-mode ;; iedit ;; iflipb ;; imenu-list ;; indium ;; info ;; info-colors ;; interaction-log ;; ioccur ;; isearch, occur, etc. ;; isl (isearch-light) ;; ivy ;; ivy-posframe ;; jira (org-jira) ;; journalctl-mode ;; js2-mode ;; julia ;; jupyter ;; kaocha-runner ;; keycast ;; line numbers (`display-line-numbers-mode' and global variant) ;; lsp-mode ;; lsp-ui ;; macrostep ;; magit ;; magit-imerge ;; make-mode ;; man ;; marginalia ;; markdown-mode ;; markup-faces (`adoc-mode') ;; mentor ;; messages ;; minibuffer-line ;; minimap ;; mmm-mode ;; modeline ;; mood-line ;; mpdel ;; mu4e ;; mu4e-conversation ;; multiple-cursors ;; neotree ;; no-emoji ;; notmuch ;; num3-mode ;; nxml-mode ;; objed ;; orderless ;; org ;; org-journal ;; org-noter ;; org-pomodoro ;; org-recur ;; org-roam ;; org-superstar ;; org-table-sticky-header ;; org-tree-slide ;; org-treescope ;; origami ;; outline-mode ;; outline-minor-faces ;; package (M-x list-packages) ;; page-break-lines ;; paradox ;; paren-face ;; parrot ;; pass ;; pdf-tools ;; persp-mode ;; perspective ;; phi-grep ;; phi-search ;; pkgbuild-mode ;; pomidor ;; popup ;; powerline ;; powerline-evil ;; prism (see "Note for prism.el" in the manual) ;; proced ;; prodigy ;; quick-peek ;; racket-mode ;; rainbow-blocks ;; rainbow-identifiers ;; rainbow-delimiters ;; rcirc ;; recursion-indicator ;; regexp-builder (also known as `re-builder') ;; rg ;; ripgrep ;; rmail ;; ruler-mode ;; sallet ;; selectrum ;; selectrum-prescient ;; semantic ;; sesman ;; shell-script-mode ;; shortdoc ;; show-paren-mode ;; shr ;; side-notes ;; sieve-mode ;; skewer-mode ;; smart-mode-line ;; smartparens ;; smerge ;; spaceline ;; speedbar ;; spell-fu ;; stripes ;; suggest ;; switch-window ;; swiper ;; swoop ;; sx ;; symbol-overlay ;; tab-bar-mode ;; tab-line-mode ;; syslog-mode ;; table (built-in table.el) ;; telephone-line ;; terraform-mode ;; term ;; tomatinho ;; transient (pop-up windows like Magit's) ;; trashed ;; treemacs ;; tty-menu ;; tuareg ;; typescript ;; undo-tree ;; vc (built-in mode line status for version control) ;; vc-annotate (C-x v g) ;; vdiff ;; vimish-fold ;; visible-mark ;; visual-regexp ;; volatile-highlights ;; vterm ;; wcheck-mode ;; web-mode ;; wgrep ;; which-function-mode ;; which-key ;; whitespace-mode ;; window-divider-mode ;; winum ;; writegood-mode ;; woman ;; xah-elisp-mode ;; xref ;; xterm-color (and ansi-colors) ;; yaml-mode ;; yasnippet ;; ztree ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-operandi-theme.el (Light theme) ;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f (require 'cl-lib) (defgroup modus-themes () "Options for `modus-operandi', `modus-vivendi'." :group 'faces :link '(info-link "(modus-themes) Top") :prefix "modus-themes-" :tag "Modus Themes") ;;; Variables for each theme variant ;;;; Modus Operandi (define-obsolete-variable-alias 'modus-operandi-theme-default-colors-alist 'modus-themes-colors-operandi "1.0.0") (define-obsolete-variable-alias 'modus-themes-colors-operandi 'modus-themes-operandi-colors "1.1.0") (defconst modus-themes-operandi-colors '(;; base values (bg-main . "#ffffff") (fg-main . "#000000") (bg-dim . "#f8f8f8") (fg-dim . "#282828") (bg-alt . "#f0f0f0") (fg-alt . "#505050") ;; specifically for on/off states and must be combined with ;; themselves, though the backgrounds are also meant to be used with ;; other "active" values, defined further below (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") (bg-inactive . "#efefef") (fg-inactive . "#404148") ;; these special values are intended as alternatives to the base ;; values for cases where we need to avoid confusion between the ;; highlighted constructs; they must either be used as pairs based ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} ;; always in accordance with their role as background or foreground (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt (red . "#a60000") (red-alt . "#972500") (red-alt-other . "#a0132f") (red-faint . "#7f1010") (red-alt-faint . "#702f00") (red-alt-other-faint . "#7f002f") (green . "#005e00") (green-alt . "#315b00") (green-alt-other . "#145c33") (green-faint . "#104410") (green-alt-faint . "#30440f") (green-alt-other-faint . "#0f443f") (yellow . "#813e00") (yellow-alt . "#70480f") (yellow-alt-other . "#863927") (yellow-faint . "#5f4400") (yellow-alt-faint . "#5d5000") (yellow-alt-other-faint . "#5e3a20") (blue . "#0031a9") (blue-alt . "#2544bb") (blue-alt-other . "#0000c0") (blue-faint . "#003497") (blue-alt-faint . "#0f3d8c") (blue-alt-other-faint . "#001087") (magenta . "#721045") (magenta-alt . "#8f0075") (magenta-alt-other . "#5317ac") (magenta-faint . "#752f50") (magenta-alt-faint . "#7b206f") (magenta-alt-other-faint . "#55348e") (cyan . "#00538b") (cyan-alt . "#30517f") (cyan-alt-other . "#005a5f") (cyan-faint . "#005077") (cyan-alt-faint . "#354f6f") (cyan-alt-other-faint . "#125458") ;; these foreground values can only be combined with bg-main and are ;; thus not suitable for general purpose highlighting (red-intense . "#b60000") (orange-intense . "#904200") (green-intense . "#006800") (yellow-intense . "#605b00") (blue-intense . "#1f1fce") (magenta-intense . "#a8007f") (purple-intense . "#7f10d0") (cyan-intense . "#005f88") ;; those foregrounds are meant exclusively for bg-active, bg-inactive (red-active . "#8a0000") (green-active . "#004c2e") (yellow-active . "#702d1f") (blue-active . "#0030b4") (magenta-active . "#5c2092") (cyan-active . "#003f8a") ;; the "subtle" values below be combined with fg-dim, while the ;; "intense" should be paired with fg-main (red-subtle-bg . "#f2b0a2") (red-intense-bg . "#ff8892") (green-subtle-bg . "#aecf90") (green-intense-bg . "#5ada88") (yellow-subtle-bg . "#e4c340") (yellow-intense-bg . "#f5df23") (blue-subtle-bg . "#b5d0ff") (blue-intense-bg . "#6aaeff") (magenta-subtle-bg . "#f0d3ff") (magenta-intense-bg . "#d5baff") (cyan-subtle-bg . "#c0efff") (cyan-intense-bg . "#42cbd4") ;; those background values must be combined with fg-main and should ;; only be used for indicators that are placed on the fringes (red-fringe-bg . "#f08290") (green-fringe-bg . "#62c86a") (yellow-fringe-bg . "#dbba3f") (blue-fringe-bg . "#82afff") (magenta-fringe-bg . "#e0a3ff") (cyan-fringe-bg . "#2fcddf") ;; those background values should only be used for graphs or similar ;; applications where colored blocks are expected to be positioned ;; next to each other (red-graph-0-bg . "#ef6f79") (red-graph-1-bg . "#ff9f9f") (green-graph-0-bg . "#49d239") (green-graph-1-bg . "#6dec6d") (yellow-graph-0-bg . "#efec08") (yellow-graph-1-bg . "#dbff4e") (blue-graph-0-bg . "#55a2f0") (blue-graph-1-bg . "#7fcfff") (magenta-graph-0-bg . "#ba86ef") (magenta-graph-1-bg . "#e7afff") (cyan-graph-0-bg . "#30d3f0") (cyan-graph-1-bg . "#6fefff") ;; the following are for cases where both the foreground and the ;; background need to have a similar hue and so must be combined ;; with themselves, even though the foregrounds can be paired with ;; any of the base backgrounds (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") ;; the "nuanced" backgrounds can be combined with all of the above ;; foregrounds, as well as those included here, while the "nuanced" ;; foregrounds can in turn also be combined with bg-main, bg-dim, ;; bg-alt (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") ;; the following are reserved for specific cases ;; ;; bg-hl-line is between bg-dim and bg-alt, so it should ;; work with all accents that cover those two, plus bg-main ;; ;; bg-hl-alt and bg-hl-alt-intense should only be used when no ;; other greyscale or fairly neutral background is available to ;; properly draw attention to a given construct ;; ;; bg-header is between bg-active and bg-inactive, so it ;; can be combined with any of the "active" values, plus the ;; "special" and base foreground colors ;; ;; bg-paren-match, bg-paren-match-intense, bg-region and ;; bg-tab-active must be combined with fg-main, while ;; bg-tab-inactive should be combined with fg-dim, whereas ;; bg-tab-inactive-alt goes together with fg-main ;; ;; bg-tab-bar is only intended for the bar that holds the tabs and ;; can only be combined with fg-main ;; ;; fg-tab-active is meant to be combined with bg-tab-active, ;; though only for styling special elements, such as underlining ;; the current tab ;; ;; fg-escape-char-construct and fg-escape-char-backslash can ;; be combined bg-main, bg-dim, bg-alt ;; ;; fg-lang-error, fg-lang-warning, fg-lang-note can be ;; combined with bg-main, bg-dim, bg-alt ;; ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined ;; with bg-main, bg-dim, bg-alt, bg-hl-line ;; ;; fg-unfocused must be combined with bg-main ;; ;; fg-docstring, fg-comment-yellow can be combined with ;; bg-main, bg-dim, bg-alt ;; ;; the window divider colors apply to faces with just an fg value ;; ;; all pairs are combinable with themselves (bg-hl-line . "#f2eff3") (bg-hl-line-intense . "#e0e0e0") (bg-hl-alt . "#fbeee0") (bg-hl-alt-intense . "#e8dfd1") (bg-paren-match . "#e0af82") (bg-paren-match-intense . "#c488ff") (bg-region . "#bcbcbc") (bg-tab-bar . "#d5d5d5") (bg-tab-active . "#f6f6f6") (bg-tab-inactive . "#bdbdbd") (bg-tab-inactive-alt . "#999999") (fg-tab-active . "#30169e") (fg-escape-char-construct . "#8b1030") (fg-escape-char-backslash . "#654d0f") (fg-lang-error . "#9f004f") (fg-lang-warning . "#604f0f") (fg-lang-note . "#4040ae") (fg-lang-underline-error . "#ef4f54") (fg-lang-underline-warning . "#cf9f00") (fg-lang-underline-note . "#3f6fef") (fg-window-divider-inner . "#888888") (fg-window-divider-outer . "#585858") (fg-unfocused . "#56576d") (fg-docstring . "#2a486a") (fg-comment-yellow . "#5f4400") (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") (bg-whitespace . "#f5efef") (fg-whitespace . "#624956") (bg-diff-heading . "#b7cfe0") (fg-diff-heading . "#041645") (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") (bg-diff-added-deuteran . "#daefff") (fg-diff-added-deuteran . "#002044") (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") (bg-diff-refine-added-deuteran . "#77c0ef") (fg-diff-refine-added-deuteran . "#000035") (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") (bg-diff-focus-added-deuteran . "#bacfff") (fg-diff-focus-added-deuteran . "#001755") (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) "The entire palette of `modus-operandi' theme. Each element has the form (NAME . HEX) with the former as a symbol and the latter as a string.") ;;;; Modus Vivendi (define-obsolete-variable-alias 'modus-vivendi-theme-default-colors-alist 'modus-themes-colors-vivendi "1.0.0") (define-obsolete-variable-alias 'modus-themes-colors-vivendi 'modus-themes-vivendi-colors "1.1.0") (defconst modus-themes-vivendi-colors '(;; base values (bg-main . "#000000") (fg-main . "#ffffff") (bg-dim . "#110b11") (fg-dim . "#e0e6f0") (bg-alt . "#181a20") (fg-alt . "#a8a8a8") ;; specifically for on/off states and must be combined with ;; themselves, though the backgrounds are also meant to be used with ;; other "active" values, defined further below (bg-active . "#323232") (fg-active . "#f4f4f4") (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") ;; these special values are intended as alternatives to the base ;; values for cases where we need to avoid confusion between the ;; highlighted constructs; they must either be used as pairs based ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} ;; always in accordance with their role as background or foreground (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt (red . "#ff8059") (red-alt . "#f4923b") (red-alt-other . "#ff9977") (red-faint . "#ffa0a0") (red-alt-faint . "#f5aa80") (red-alt-other-faint . "#ff9fbf") (green . "#44bc44") (green-alt . "#70c900") (green-alt-other . "#00cd68") (green-faint . "#88cf88") (green-alt-faint . "#a8cf88") (green-alt-other-faint . "#88cfaf") (yellow . "#eecc00") (yellow-alt . "#cfdf30") (yellow-alt-other . "#f0ce43") (yellow-faint . "#d2b580") (yellow-alt-faint . "#cabf77") (yellow-alt-other-faint . "#d0ba95") (blue . "#2fafff") (blue-alt . "#79a8ff" ) (blue-alt-other . "#00bcff") (blue-faint . "#92baff") (blue-alt-faint . "#a0acf5") (blue-alt-other-faint . "#87c8ff") (magenta . "#feacd0") (magenta-alt . "#f78fe7") (magenta-alt-other . "#b6a0ff") (magenta-faint . "#e0b2d6") (magenta-alt-faint . "#ef9fe4") (magenta-alt-other-faint . "#cfa6ff") (cyan . "#00d3d0") (cyan-alt . "#4ae8fc") (cyan-alt-other . "#6ae4b9") (cyan-faint . "#90c4ed") (cyan-alt-faint . "#a0bfdf") (cyan-alt-other-faint . "#a4d0bb") ;; these foreground values can only be combined with bg-main and are ;; thus not suitable for general purpose highlighting (red-intense . "#fe6060") (orange-intense . "#fba849") (green-intense . "#4fe42f") (yellow-intense . "#f0dd60") (blue-intense . "#4fafff") (magenta-intense . "#ff62d4") (purple-intense . "#9f80ff") (cyan-intense . "#3fdfd0") ;; those foregrounds are meant exclusively for bg-active, bg-inactive (red-active . "#ffa7ba") (green-active . "#70d73f") (yellow-active . "#dbbe5f") (blue-active . "#34cfff") (magenta-active . "#d5b1ff") (cyan-active . "#00d8b4") ;; the "subtle" values below be combined with fg-dim, while the ;; "intense" should be paired with fg-main (red-subtle-bg . "#762422") (red-intense-bg . "#a4202a") (green-subtle-bg . "#2f4a00") (green-intense-bg . "#006800") (yellow-subtle-bg . "#604200") (yellow-intense-bg . "#874900") (blue-subtle-bg . "#10387c") (blue-intense-bg . "#2a40b8") (magenta-subtle-bg . "#49366e") (magenta-intense-bg . "#7042a2") (cyan-subtle-bg . "#00415e") (cyan-intense-bg . "#005f88") ;; those background values must be combined with fg-main and should ;; only be used for indicators that are placed on the fringes (red-fringe-bg . "#8f1f4b") (green-fringe-bg . "#006700") (yellow-fringe-bg . "#6f4f00") (blue-fringe-bg . "#3f33af") (magenta-fringe-bg . "#6f2f89") (cyan-fringe-bg . "#004f8f") ;; those background values should only be used for graphs or similar ;; applications where colored blocks are expected to be positioned ;; next to each other (red-graph-0-bg . "#af0404") (red-graph-1-bg . "#801f2f") (green-graph-0-bg . "#24ba2f") (green-graph-1-bg . "#0f8f07") (yellow-graph-0-bg . "#ffd03e") (yellow-graph-1-bg . "#d7d800") (blue-graph-0-bg . "#406fff") (blue-graph-1-bg . "#2f50c8") (magenta-graph-0-bg . "#af7bee") (magenta-graph-1-bg . "#7f59cf") (cyan-graph-0-bg . "#47dcfa") (cyan-graph-1-bg . "#0bc0df") ;; the following are for cases where both the foreground and the ;; background need to have a similar hue and so must be combined ;; with themselves, even though the foregrounds can be paired with ;; any of the base backgrounds (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") ;; the "nuanced" backgrounds can be combined with all of the above ;; foregrounds, as well as those included here, while the "nuanced" ;; foregrounds can in turn also be combined with bg-main, bg-dim, ;; bg-alt (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") ;; the following are reserved for specific cases ;; ;; bg-hl-line is between bg-dim and bg-alt, so it should ;; work with all accents that cover those two, plus bg-main ;; ;; bg-hl-alt and bg-hl-alt-intense should only be used when no ;; other greyscale or fairly neutral background is available to ;; properly draw attention to a given construct ;; ;; bg-header is between bg-active and bg-inactive, so it ;; can be combined with any of the "active" values, plus the ;; "special" and base foreground colors ;; ;; bg-paren-match, bg-paren-match-intense, bg-region and ;; bg-tab-active must be combined with fg-main, while ;; bg-tab-inactive should be combined with fg-dim, whereas ;; bg-tab-inactive-alt goes together with fg-main ;; ;; bg-tab-bar is only intended for the bar that holds the tabs and ;; can only be combined with fg-main ;; ;; fg-tab-active is meant to be combined with bg-tab-active, ;; though only for styling special elements, such as underlining ;; the current tab ;; ;; fg-escape-char-construct and fg-escape-char-backslash can ;; be combined bg-main, bg-dim, bg-alt ;; ;; fg-lang-error, fg-lang-warning, fg-lang-note can be ;; combined with bg-main, bg-dim, bg-alt ;; ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined ;; with bg-main, bg-dim, bg-alt, bg-hl-line ;; ;; fg-unfocused must be combined with bg-main ;; ;; fg-docstring, fg-comment-yellow can be combined with ;; bg-main, bg-dim, bg-alt ;; ;; the window divider colors apply to faces with just an fg value ;; ;; all pairs are combinable with themselves (bg-hl-line . "#151823") (bg-hl-line-intense . "#2f2f2f") (bg-hl-alt . "#181732") (bg-hl-alt-intense . "#282e46") (bg-paren-match . "#5f362f") (bg-paren-match-intense . "#7416b5") (bg-region . "#3c3c3c") (bg-tab-bar . "#2c2c2c") (bg-tab-active . "#0e0e0e") (bg-tab-inactive . "#3d3d3d") (bg-tab-inactive-alt . "#595959") (fg-tab-active . "#5ac3cf") (fg-escape-char-construct . "#e7a59a") (fg-escape-char-backslash . "#abab00") (fg-lang-error . "#ef8690") (fg-lang-warning . "#b0aa00") (fg-lang-note . "#9d9def") (fg-lang-underline-error . "#ff4a6f") (fg-lang-underline-warning . "#d0de00") (fg-lang-underline-note . "#5f6fff") (fg-window-divider-inner . "#646464") (fg-window-divider-outer . "#969696") (fg-unfocused . "#93959b") (fg-docstring . "#b0d6f5") (fg-comment-yellow . "#cab98f") (bg-header . "#212121") (fg-header . "#dddddd") (bg-whitespace . "#101424") (fg-whitespace . "#aa9e9f") (bg-diff-heading . "#304466") (fg-diff-heading . "#dae7ff") (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") (bg-diff-added-deuteran . "#001a3f") (fg-diff-added-deuteran . "#c4cdf2") (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") (bg-diff-refine-added-deuteran . "#234f8f") (fg-diff-refine-added-deuteran . "#dde4ff") (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") (bg-diff-focus-added-deuteran . "#00405f") (fg-diff-focus-added-deuteran . "#bfe4ff") (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) "The entire palette of `modus-vivendi' theme. Each element has the form (NAME . HEX) with the former as a symbol and the latter as a string.") \f ;;; Custom faces ;; These faces are used internally to ensure consistency between various ;; groups and to streamline the evaluation of relevant customization ;; options. (defface modus-theme-subtle-red nil "Subtle red background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-green nil "Subtle green background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-yellow nil "Subtle yellow background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-blue nil "Subtle blue background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-magenta nil "Subtle magenta background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-cyan nil "Subtle cyan background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-neutral nil "Subtle gray background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-red nil "Intense red background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-green nil "Intense green background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-yellow nil "Intense yellow background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-blue nil "Intense blue background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-magenta nil "Intense magenta background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-cyan nil "Intense cyan background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-neutral nil "Intense gray background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-red nil "Combination of accented red background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-green nil "Combination of accented green background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-yellow nil "Combination of accented yellow background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-blue nil "Combination of accented blue background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-magenta nil "Combination of accented magenta background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-cyan nil "Combination of accented cyan background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-red nil "A red background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-green nil "A green background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-yellow nil "A yellow background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-blue nil "A blue background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-magenta nil "A magenta background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-cyan nil "A cyan background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-red nil "A red background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-green nil "A green background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-yellow nil "A yellow background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-blue nil "A blue background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-magenta nil "A magenta background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-cyan nil "A cyan background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-red nil "A nuanced red background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-green nil "A nuanced green background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-yellow nil "A nuanced yellow background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-blue nil "A nuanced blue background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-magenta nil "A nuanced magenta background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-cyan nil "A nuanced cyan background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-cold nil "Combines the 'special cold' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-mild nil "Combines the 'special mild' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-warm nil "Combines the 'special warm' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-calm nil "Combines the 'special calm' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-added nil "Combines green colors for the 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-changed nil "Combines yellow colors for the 'changed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-removed nil "Combines red colors for the 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-added nil "Combines green colors for word-wise 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-changed nil "Combines yellow colors for word-wise 'changed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-removed nil "Combines red colors for word-wise 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-added nil "Combines green colors for the focused 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-changed nil "Combines yellow colors for the focused 'changed' state in. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-removed nil "Combines red colors for the focused 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-heading nil "Combines blue colors for the diff hunk heading. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-pseudo-header nil "Generic style for some elements that function like headings. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-alt nil "Combines yellow colors for marking special lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-del nil "Combines red colors for marking deletable lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-sel nil "Combines green colors for marking lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-symbol nil "Applies a blue color and other styles for mark indicators. This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-1 nil "General purpose face for use in headings level 1 The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-2 nil "General purpose face for use in headings level 2. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-3 nil "General purpose face for use in headings level 3. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-4 nil "General purpose face for use in headings level 4. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-5 nil "General purpose face for use in headings level 5. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-6 nil "General purpose face for use in headings level 6. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-7 nil "General purpose face for use in headings level 7. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-8 nil "General purpose face for use in headings level 8. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-hl-line nil "General purpose face for the current line. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-intense-hl-line' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-bold nil "Generic face for applying a conditional bold weight. This behaves in accordance with `modus-themes-bold-constructs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-slant nil "Generic face for applying a conditional slant (italics). This behaves in accordance with `modus-themes-slanted-constructs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-variable-pitch nil "Generic face for applying a conditional `variable-pitch'. This behaves in accordance with `modus-themes-no-mixed-fonts', `modus-themes-variable-pitch-headings' for all heading levels, and `modus-themes-variable-pitch-ui'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-red-0 nil "Special subdued red face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-red-1 nil "Special prominent red face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-green-0 nil "Special subdued green face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-green-1 nil "Special prominent green face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-yellow-0 nil "Special subdued yellow face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-yellow-1 nil "Special prominent yellow face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-blue-0 nil "Special subdued blue face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-blue-1 nil "Special prominent blue face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-magenta-0 nil "Special subdued magenta face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-magenta-1 nil "Special prominent magenta face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-cyan-0 nil "Special subdued cyan face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-cyan-1 nil "Special prominent cyan face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-note nil "Generic face for linter or spell checker notes. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-warning nil "Generic face for linter or spell checker warnings. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-error nil "Generic face for linter or spell checker errors. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") \f ;;; Customization options ;;;; Current customization options (>= 1.0.0) (defcustom modus-themes-operandi-color-overrides nil "Override colors in the Modus Operandi palette. For form, see `modus-themes-operandi-colors'." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(alist :key-type symbol :value-type color) :link '(info-link "(modus-themes) Override colors (DIY)")) (defcustom modus-themes-vivendi-color-overrides nil "Override colors in the Modus Vivendi palette. For form, see `modus-themes-vivendi-colors'." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(alist :key-type symbol :value-type color) :link '(info-link "(modus-themes) Override colors (DIY)")) ;; The byte compiler complains when a defcustom isn't a top level form (let* ((names (mapcar (lambda (pair) (symbol-name (car pair))) modus-themes-operandi-colors)) (colors (mapcar #'intern (sort names #'string<)))) (put 'modus-themes-operandi-color-overrides 'custom-options (copy-sequence colors)) (put 'modus-themes-vivendi-color-overrides 'custom-options (copy-sequence colors))) (defcustom modus-themes-slanted-constructs nil "Use slanted text in more code constructs (italics or oblique)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Slanted 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 :link '(info-link "(modus-themes) Bold constructs")) (defcustom modus-themes-variable-pitch-headings nil "Use proportional fonts (variable-pitch) in headings." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Headings' typeface")) (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 :link '(info-link "(modus-themes) UI typeface")) (defcustom modus-themes-no-mixed-fonts nil "Disable inheritance from `fixed-pitch' in some faces. This is done by default 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'. The downside with the default is that users need to explicitly configure the font family of `fixed-pitch' in order to get a consistent experience. That may be something they do not want to do. Hence this option to disable any kind of technique for mixing fonts." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) No mixed fonts")) (defcustom modus-themes-headings '((t . nil)) "Alist of styles for headings, with optional value per level. To control faces per level from 1-8, use something like this: (setq modus-themes-headings '((1 . highlight) (2 . line) (t . rainbow-line-no-bold))) To set a uniform value for all heading levels, use this pattern: (setq modus-themes-headings '((t . rainbow-line-no-bold))) The default uses a fairly desaturated foreground value in combination with a bold typographic weight. To specify this style for a given level N (assuming you wish to have another fallback option), just specify the value t like this: (setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) A description of all possible values: + `no-bold' retains the default text color while removing the typographic weight. + `line' is the same as the default plus an overline over the heading. + `line-no-bold' is the same as `line' without bold weight. + `rainbow' uses a more colorful foreground in combination with bold weight. + `rainbow-line' is the same as `rainbow' plus an overline. + `rainbow-line-no-bold' is the same as `rainbow-line' without the bold weight. + `highlight' retains the default style of a fairly desaturated foreground combined with a bold weight and add to it a subtle accented background. + `highlight-no-bold' is the same as `highlight' without a bold weight. + `rainbow-highlight' is the same as `highlight' but with a more colorful foreground. + `rainbow-highlight-no-bold' is the same as `rainbow-highlight' without a bold weight. + `section' retains the default looks and adds to them both an overline and a slightly accented background. It is, in effect, a combination of the `line' and `highlight' values. + `section-no-bold' is the same as `section' without a bold weight. + `rainbow-section' is the same as `section' but with a more colorful foreground. + `rainbow-section-no-bold' is the same as `rainbow-section' without a bold weight. + `no-color' does not apply any color to the heading, meaning that it uses the foreground of the `default' face. It still renders the text with a bold typographic weight. + `no-color-no-bold' is like `no-color' but without the bold weight." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(alist :key-type symbol :value-type (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) (const :tag "Like the default without bold weight" no-bold) (const :tag "Like the default plus overline" line) (const :tag "Like `line' without bold weight" line-no-bold) (const :tag "Like the default but with more colorful foreground" rainbow) (const :tag "Like `rainbow' plus overline" rainbow-line) (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) (const :tag "Like the default plus subtle background" highlight) (const :tag "Like `highlight' without bold weight" highlight-no-bold) (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) (const :tag "Like `highlight' plus overline" section) (const :tag "Like `section' without bold weight" section-no-bold) (const :tag "Like `section' with more colorful foreground" rainbow-section) (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold) (const :tag "Do not use any distinct foreground color; just bold weight" no-color) (const :tag "Like `no-bold' but without the distinct foreground color" no-color-no-bold))) :link '(info-link "(modus-themes) Heading styles")) (defcustom modus-themes-scale-headings nil "Use font scaling for headings. For regular headings the scale is controlled by the variables `modus-themes-scale-1' (smallest) and its variants all the way up to `modus-themes-scale-4' (larger). While `modus-themes-scale-5' is reserved for special headings that must be the largest on the scale. A special heading is, in this context, one that does not fit into the syntax for heading levels that apply to the given mode. For example, Org's #+title keyword lies outside the normal eight levels of headings. Whereas, say, Markdown does not have such a special heading." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Scaled headings")) (defcustom modus-themes-scale-1 1.05 "Font size that is slightly larger than the base value. This size is used for level 4 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-2 1.1 "Font size slightly larger than `modus-themes-scale-1'. This size is used for level 3 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-3 1.15 "Font size slightly larger than `modus-themes-scale-2'. This size is used for level 2 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-4 1.2 "Font size slightly larger than `modus-themes-scale-3'. This size is used for level 1 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-5 1.3 "Font size slightly larger than `modus-themes-scale-4'. This size is only used for 'special' top level headings, such as Org's file title heading, denoted by the #+title key word, and the Org agenda structure headers. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-fringes nil "Define the visibility of fringes. Nil means the fringes have no background color. Option `subtle' will apply a greyscale value that is visible yet close to the main buffer background color. Option `intense' will use a more pronounced greyscale value." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "No visible fringes (default)" nil) (const :tag "Subtle greyscale background" subtle) (const :tag "Intense greyscale background" intense)) :link '(info-link "(modus-themes) Fringes")) (defcustom modus-themes-lang-checkers nil "Control the style of spelling and code checkers/linters. Nil (the default) applies a color-coded underline to the affected text, while it leaves the original foreground in tact. If the display spec of Emacs has support for it, the underline's style is that of a wave, otherwise it is a straight line. Options `subtle-foreground' and `intense-foreground' add a color-coded underline while also changing the text's foreground accordingly. The style of the underline is the same as with the default option. Option `straight-underline' is like the default but always applies a straight line under the affected text. Same principle for `subtle-foreground-straight-underline' and its counterpart `intense-foreground-straight-underline'. Option `colored-background' uses a straight underline, a background, and a foreground. All are color-coded. This is the most intense combination of face properties." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(choice (const :tag "Only color-coded wavy underline (default)" nil) (const :tag "Like the default, but with a straight underline" straight-underline) (const :tag "Color-coded wavy underline; subtle foreground" subtle-foreground) (const :tag "Combines `straight-underline' and `subtle-foreground'" subtle-foreground-straight-underline) (const :tag "Color-coded wavy underline; intense foreground" intense-foreground) (const :tag "Combines `straight-underline' and `intense-foreground'" intense-foreground-straight-underline) (const :tag "Color-coded background, foreground, straight underline" colored-background)) :link '(info-link "(modus-themes) Language checkers")) (defcustom modus-themes-org-blocks nil "Use a subtle gray or color-coded background for Org blocks. Nil means that the block will have no background of its own and will use the default that applies to the rest of the buffer. Option `grayscale' (or `greyscale') will apply a subtle neutral gray background to the block's contents. It also affects the begin and end lines of the block: their background will be extended to the edge of the window for Emacs version >= 27 where the ':extend' keyword is recognized by `set-face-attribute'. Option `rainbow' will use an accented background for the contents of the block. The exact color will depend on the programming language and is controlled by the `org-src-block-faces' variable (refer to the theme's source code for the current association list)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "No Org block background (default)" nil) (const :tag "Subtle gray block background" grayscale) (const :tag "Subtle gray block background (alt spelling)" greyscale) (const :tag "Color-coded background per programming language" rainbow)) :link '(info-link "(modus-themes) Org mode blocks")) (defcustom modus-themes-org-habit nil "Control the presentation of the `org-habit' graph. The default is meant to conform with the original aesthetic of `org-habit'. It employs all four color codes that correspond to the org-habit states---clear, ready, alert, and overdue---while distinguishing between their present and future variants. This results in a total of eight colors in use: red, yellow, green, blue, in tinted and shaded versions. They cover the full set of information provided by the `org-habit' consistency graph. Option `simplified' is like the default except that it removes the dichotomy between current and future variants by applying uniform color-coded values. It applies a total of four colors: red, yellow, green, blue. They produce a simplified consistency graph that is more legible (or less \"busy\") than the default. The intent is to shift focus towards the distinction between the four states of a habit task, rather than each state's present/future outlook. Option `traffic-light' further reduces the available colors to red, yellow, and green. As in `simplified', present and future variants appear uniformly, but differently from it, the 'clear' state is rendered in a green hue, instead of the original blue. This is meant to capture the use-case where a habit task being \"too early\" is less important than it being \"too late\". The difference between ready and clear states is attenuated by painting both of them using shades of green. This option thus highlights the alert and overdue states." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(choice (const :tag "Respect the original design of org-habit (default)" nil) (const :tag "Like the default, but do not distinguish between present and future variants" simplified) (const :tag "Like `simplified', but only use red, yellow, green" traffic-light)) :link '(info-link "(modus-themes) Org agenda habits")) (defcustom modus-themes-mode-line nil "Adjust the overall style of the mode line. Nil is a two-dimensional rectangle with a border around it. The active and the inactive modelines use different shades of greyscale values for the background and foreground. A `3d' value will apply a three-dimensional effect to the active modeline. The inactive modelines remain two-dimensional and are toned down a bit, relative to the nil value. The `moody' option is meant to optimize the modeline for use with the library of the same name. This practically means to remove the box effect and rely on underline and overline properties instead. It also tones down the inactive modelines. Despite its intended purpose, this option can also be used without the `moody' library. The `borderless' option uses the same colors as the default (nil value), but removes the border effect. This is done by making the box property use the same color as the background, effectively blending the two and creating some padding. The `borderless-3d' and `borderless-moody' approximate the `3d' and `moody' options respectively, while removing the borders. However, to ensure that the inactive modelines remain visible, they apply a slightly more prominent background to them than what their counterparts do (same inactive background as with the default)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Two-dimensional box (default)" nil) (const :tag "Three-dimensional style for the active mode line" 3d) (const :tag "No box effects, which are optimal for use with the `moody' library" moody) (const :tag "Like the default, but without border effects" borderless) (const :tag "Like `3d', but without noticeable border" borderless-3d) (const :tag "Like `moody', but without noticeable border" borderless-moody)) :link '(info-link "(modus-themes) Mode line")) (defcustom modus-themes-diffs nil "Adjust the overall styles of diffs. Nil means to use fairly intense color combinations for diffs. For example, you get a rich green background with a green foreground for added lines. Word-wise or 'refined' diffs follow the same pattern but use different shades of those colors to remain distinct. A `desaturated' value follows the same principles as with the nil option, while it tones down all relevant colors. Option `fg-only' will remove all accented backgrounds, except from word-wise changes. It instead uses color-coded foreground values to differentiate between added/removed/changed lines. If a background is necessary, such as with `ediff', then a subtle greyscale value is used. Option `bg-only' applies a background but does not override the text's foreground. This makes it suitable for a non-nil value passed to `diff-font-lock-syntax' (note: Magit does not support syntax highlighting in diffs as of 2020-11-25, version 20201116.1057). Option `deuteranopia' accounts for red-green color defficiency by replacing all instances of green with colors on the blue side of the spectrum. Other stylistic changes are made in the interest of optimizing for such a use-case." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Intensely colored backgrounds (default)" nil) (const :tag "Slightly accented backgrounds with tinted text" desaturated) (const :tag "No backgrounds, except for refined diffs" fg-only) (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only) (const :tag "Optimized for red-green color defficiency" deuteranopia)) :link '(info-link "(modus-themes) Diffs")) (defcustom modus-themes-completions nil "Apply special styles to the UI of completion frameworks. This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as any other tool meant to enhance their experience. The effect will vary depending on the completion framework. Nil means to remain faithful to the metaphors that each UI establishes. For example, Icomplete and Ido only use foreground colors to style their matches, whereas Ivy or Helm rely on an aesthetic that combines colored backgrounds with appropriate text color. Option `moderate' will apply a combination of background and foreground that is fairly subtle. For Icomplete and the like, this constitutes a departure from their standard style. While Ivy, Helm, and the others, will use less pronounced colors for applicable contexts. Option `opinionated' will apply color combinations that refashion the completion UI. So Icomplete et al will now use styles that resemble the defaults of Ivy and co., while the latter group will revert to an even more nuanced aesthetic." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Respect the framework's established aesthetic (default)" nil) (const :tag "Subtle backgrounds for various elements" moderate) (const :tag "Radical alternative to the framework's looks" opinionated)) :link '(info-link "(modus-themes) Completion UIs")) (defcustom modus-themes-prompts nil "Use subtle or intense styles for minibuffer and REPL prompts. Nil means to only use an accented foreground color. Options `subtle-accented' and `intense-accented' will change both the background and the foreground values to use accented color combinations that follow the hue of the default styles' foreground (e.g. the default minibuffer prompt is cyan text, so these combinations will involved a cyan background and an appropriate cyan foreground). Options `subtle-gray' and `intense-gray' are like their `subtle-accented' and `intense-accented' counterparts, except they use grayscale values instead of accented ones." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice ;; `subtle' is the same as `subtle-accented', while `intense' is ;; equal to `intense-accented' for backward compatibility (const :tag "No prompt background (default)" nil) (const :tag "Subtle accented background for the prompt" subtle-accented) (const :tag "Same as `subtle-accented' for compatibility with older versions" subtle) (const :tag "Intense accented background and foreground for the prompt" intense-accented) (const :tag "Same as `intense-accented' for compatibility with older versions" intense) (const :tag "Like `subtle-accented' but grayscale" subtle-gray) (const :tag "Like `intense-accented' but grayscale" intense-gray)) :link '(info-link "(modus-themes) Command prompts")) (defcustom modus-themes-intense-hl-line nil "Use a more prominent background for command `hl-line-mode'." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Line highlighting")) (defcustom modus-themes-subtle-line-numbers nil "Use more subtle style for command `display-line-numbers-mode'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Line numbers")) (defcustom modus-themes-paren-match nil "Choose the style of matching parentheses or delimiters. Nil means to use a subtle tinted background color (the default). Option `intense' applies a saturated background color. Option `subtle-bold' is the same as the default, but also makes use of bold typographic weight (inherits the `bold' face). Option `intense-bold' is the same as `intense', while it also uses a bold weight." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Sublte tinted background (default)" nil) (const :tag "Like the default, but also use bold typographic weight" subtle-bold) (const :tag "Intense saturated background" intense) (const :tag "Like `intense' but with bold weight" intense-bold)) :link '(info-link "(modus-themes) Matching parentheses")) (defcustom modus-themes-syntax nil "Control the overall style of code syntax highlighting. Nil (the default) means to use colors on the cyan-blue-magenta side of the spectrum. There is little to no use of greens, yellows, and reds. Option `faint' is like the default in terms of the choice of palette but applies desaturated color values. Option `yellow-comments' applies a yellow tint to comments. The rest of the syntax is the same as the default. Option `green-strings' replaces the blue/cyan/cold color variants in strings with greener alternatives. The rest of the syntax remains the same. Option `yellow-comments-green-strings' combines yellow comments with green strings and the rest of the default syntax highlighting style. Option `alt-syntax' expands the color palette and applies new color combinations. Strings are green. Doc strings are magenta tinted. Comments are gray. Option `alt-syntax-yellow-comments' combines `alt-syntax' with `yellow-comments'. Option `faint-yellow-comments' combines the `faint' style with `yellow-comments'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) (const :tag "Like the default, but with desaturated color values" faint) (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) (const :tag "Use green for strings, keep the default style for the rest" green-strings) (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments) (const :tag "Like `faint' but with yellow comments" faint-yellow-comments)) :link '(info-link "(modus-themes) Syntax styles")) (defcustom modus-themes-links nil "Set the style of links. Nil means to use an underline that is the same color as the foreground. Option `faint' applies desaturated colors to the link's text and underline. Option `neutral-underline' applies a subtle grey underline, while retaining the link's foreground. Option `faint-neutral-underline' combines a desaturated text color with a subtle grey underline. Option `no-underline' removes link underlines altogether, while retaining their original fairly vivid color. Option `underline-only' applies an underline while making the affected text colorless (it uses the same foreground as the theme's default). Option `neutral-underline-only' makes the text colorless while using a subtle underline below it." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Undeline link using the same color as the text (default)" nil) (const :tag "Like the default, but apply less intense colors to links" faint) (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline) (const :tag "Apply underline only; use default foreground" underline-only) (const :tag "Like `underline-only' but with a subtle underline" neutral-underline-only)) :link '(info-link "(modus-themes) Link styles")) (defcustom modus-themes-region nil "Change the overall appearance of the active region. Nil (the default) means to only use a prominent gray background with a neutral foreground. The foreground overrides all syntax highlighting. The region extends to the edge of the window. Option `no-extend' preserves the default aesthetic but prevents the region from extending to the edge of the window. Option `bg-only' applies a faint tinted background that is distinct from all others used in the theme, while it does not override any existing colors. It extends to the edge of the window. Option `bg-only-no-extend' is a combination of the `bg-only' and `no-extend' options." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) (const :tag "As with the default, but does not extend" no-extend) (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)) :link '(info-link "(modus-themes) Active region")) \f ;;;; Deprecated customization options (prior to 1.0.0) ;;;;; Modus Operandi obsolete options (make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") (make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") (make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") (make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") (make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") (make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") (make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") (make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") (make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") (make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") (make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") ;;;;; Modus Vivendi obsolete options (make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") (make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") (make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") (make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") (make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") (make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") (make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") (make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") \f ;;; Internal functions (defun modus-themes--palette (theme) "Return color palette for Modus theme THEME. THEME is a symbol, either `modus-operandi' or `modus-vivendi'." (pcase theme ('modus-operandi (append modus-themes-operandi-color-overrides modus-themes-operandi-colors)) ('modus-vivendi (append modus-themes-vivendi-color-overrides modus-themes-vivendi-colors)) (_theme (error "'%s' is not a Modus theme" theme)))) (defvar modus-themes-faces) (defvar modus-themes-custom-variables) (defmacro modus-themes-theme (name) "Bind NAME's color palette around face specs and variables. NAME should be the proper name of a Modus theme, either `modus-operandi' or `modus-vivendi'. 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." (declare (indent 0)) (let ((palette-sym (gensym)) (colors (mapcar #'car modus-themes-operandi-colors))) `(let* ((class '((class color) (min-colors 89))) (,palette-sym (modus-themes--palette ',name)) ,@(mapcar (lambda (color) (list color `(alist-get ',color ,palette-sym))) colors)) (custom-theme-set-faces ',name ,@modus-themes-faces) (custom-theme-set-variables ',name ,@modus-themes-custom-variables)))) (defun modus-themes--current-theme () "Return current theme." (car custom-enabled-themes)) ;; Helper functions that are meant to ease the implementation of the ;; above customization options. (defun modus-themes--bold-weight () "Conditional use of a heavier text weight." (when modus-themes-bold-constructs (list :inherit 'bold))) (defun modus-themes--mixed-fonts () "Conditional application of `fixed-pitch' inheritance." (unless modus-themes-no-mixed-fonts (list :inherit 'fixed-pitch))) (defun modus-themes--slant () "Conditional use of italics for slant attribute." (if modus-themes-slanted-constructs (list 'italic) (list 'normal))) (defun modus-themes--variable-pitch () "Conditional use of `variable-pitch' in headings." (when modus-themes-variable-pitch-headings (list :inherit 'variable-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--fringe (mainbg subtlebg intensebg) "Conditional use of background colors for fringes. MAINBG is the default. SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a more pronounced greyscale color." (pcase modus-themes-fringes ('intense (list :background intensebg)) ('subtle (list :background subtlebg)) (_ (list :background mainbg)))) (defun modus-themes--line-numbers (mainfg mainbg altfg &optional altbg) "Conditional use of colors for line numbers. MAINBG and MAINFG are the default colors. ALTFG is a color that combines with the theme's primary background (white/black)." (if modus-themes-subtle-line-numbers (list :background (or altbg 'unspecified) :foreground altfg) (list :background mainbg :foreground mainfg))) (defun modus-themes--lang-check (underline subtlefg intensefg bg) "Conditional use of foreground colors for language checkers. UNDERLINE is a color-code value for the affected text's underline property. SUBTLEFG and INTENSEFG follow the same color-coding pattern and represent a value that is faint or vibrant respectively. BG is a color-coded background." (pcase modus-themes-lang-checkers ('colored-background (list :underline underline :background bg :foreground intensefg)) ('intense-foreground (list :underline (list :color underline :style 'wave) :foreground intensefg)) ('intense-foreground-straight-underline (list :underline underline :foreground intensefg)) ('subtle-foreground (list :underline (list :color underline :style 'wave) :foreground subtlefg)) ('subtle-foreground-straight-underline (list :underline underline :foreground subtlefg)) ('straight-underline (list :underline underline)) (_ (list :underline (list :color underline :style 'wave))))) (defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) "Conditional use of background colors for prompts. MAINFG is the prompt's standard foreground. SUBTLEBG should be a subtle accented background that works with SUBTLEFG. INTENSEBG must be a more pronounced accented color that should be combinable with INTENSEFG." (pcase modus-themes-prompts ;; `subtle' is the same as `subtle-accented', while `intense' is ;; equal to `intense-accented' for backward compatibility ('intense-accented (list :background intensebg :foreground intensefg)) ('intense (list :background intensebg :foreground intensefg)) ('subtle-accented (list :background subtlebg :foreground subtlefg)) ('subtle (list :background subtlebg :foreground subtlefg)) ('subtle-gray (list :inherit 'modus-theme-subtle-neutral)) ('intense-gray (list :inherit 'modus-theme-intense-neutral)) (_ (list :background nil :foreground mainfg)))) (defun modus-themes--paren (normalbg intensebg) "Conditional use of intense colors for matching parentheses. NORMALBG should be the special palette color 'bg-paren-match' or something similar. INTENSEBG must be easier to discern next to other backgrounds, such as the special palette color 'bg-paren-match-intense'." (pcase modus-themes-paren-match ('subtle-bold (list :inherit 'bold :background normalbg)) ('intense-bold (list :inherit 'bold :background intensebg)) ('intense (list :background intensebg)) (_ (list :background normalbg)))) (defun modus-themes--syntax-foreground (fg faint) "Apply foreground value to code syntax. FG is the default. FAINT is typically the same color in its desaturated version." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) (_ (list :foreground fg)))) (defun modus-themes--syntax-extra (fg faint alt) "Apply foreground value to code syntax. FG is the default. FAINT is typically the same color in its desaturated version. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-string (fg faint green alt) "Apply foreground value to strings in code syntax. FG is the default. FAINT is typically the same color in its desaturated version. GREEN is a color variant in that side of the spectrum. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('green-strings (list :foreground green)) ('yellow-comments-green-strings (list :foreground alt)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-docstring (fg faint green alt) "Apply foreground value to strings in code syntax. FG is the default. FAINT is typically the same color in its desaturated version. GREEN is a color variant in that side of the spectrum. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('green-strings (list :foreground green)) ('yellow-comments-green-strings (list :foreground green)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-comment (fg yellow) "Apply foreground value to strings in code syntax. FG is the default. YELLOW is a color variant of that name." (pcase modus-themes-syntax ('yellow-comments (list :foreground yellow)) ('yellow-comments-green-strings (list :foreground yellow)) ('alt-syntax-yellow-comments (list :foreground yellow)) ('faint-yellow-comments (list :foreground yellow)) (_ (list :foreground fg)))) (defun modus-themes--heading-p (key) "Query style of KEY in `modus-themes-headings'." (cdr (assoc key modus-themes-headings))) (defun modus-themes--heading (level fg fg-alt bg border) "Conditional styles for `modus-themes-headings'. LEVEL is the heading's position in their order. FG is the default text color. FG-ALT is an accented, more saturated value than the default. BG is a nuanced, typically accented, background that can work well with either of the foreground values. BORDER is a color value that combines well with the background and alternative foreground." (let* ((key (modus-themes--heading-p `,level)) (style (or key (modus-themes--heading-p t))) (var (when modus-themes-variable-pitch-headings 'variable-pitch)) (varbold (if var (append (list 'bold) (list var)) 'bold))) (pcase style ('no-bold (list :inherit `,var :foreground fg)) ('no-color (list :inherit `,varbold)) ('no-color-no-bold (list :inherit `,var)) ('line (list :inherit `,varbold :foreground fg :overline border)) ('line-no-bold (list :inherit `,var :foreground fg :overline border)) ('rainbow (list :inherit `,varbold :foreground fg-alt)) ('rainbow-no-bold (list :inherit `,var :foreground fg-alt)) ('rainbow-line (list :inherit `,varbold :foreground fg-alt :overline border)) ('rainbow-line-no-bold (list :inherit `,var :foreground fg-alt :overline border)) ('highlight (list :inherit `,varbold :background bg :foreground fg)) ('highlight-no-bold (list :inherit `,var :background bg :foreground fg)) ('rainbow-highlight (list :inherit `,varbold :background bg :foreground fg-alt)) ('rainbow-highlight-no-bold (list :inherit `,var :background bg :foreground fg-alt)) ('section (list :inherit `,varbold :background bg :foreground fg :overline border :extend t)) ('section-no-bold (list :inherit `,var :background bg :foreground fg :overline border :extend t)) ('rainbow-section (list :inherit `,varbold :background bg :foreground fg-alt :overline border :extend t)) ('rainbow-section-no-bold (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) (_ (list :inherit `,varbold :foreground fg))))) (defun modus-themes--org-block (bgblk) "Conditionally set the background of Org blocks. BGBLK applies to a distinct neutral background. Else blocks have no background of their own (the default), so they look the same as the rest of the buffer. `modus-themes-org-blocks' also accepts a `rainbow' option which is applied conditionally to `org-src-block-faces' (see the theme's source code)." (if (or (eq modus-themes-org-blocks 'grayscale) (eq modus-themes-org-blocks 'greyscale)) (list :background bgblk :extend t) (list :background 'unspecified))) (defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) "Conditionally set the styles of Org block delimiters. BG, FG, BGACCENT, FGACCENT apply a background and foreground color respectively. The former pair is a greyscale combination that should be more distinct than the background of the block. It is applied to the default styles or when `modus-themes-org-blocks' is set to `greyscale'. The latter pair should be more subtle than the background of the block, as it is used when `modus-themes-org-blocks' is set to `rainbow'." (pcase modus-themes-org-blocks ('grayscale (list :background bg :foreground fg :extend t)) ('greyscale (list :background bg :foreground fg :extend t)) ('rainbow (list :background bgaccent :foreground fgaccent)) (_ (list :background bg :foreground fg)))) (defun modus-themes--org-habit (default &optional traffic simple) "Specify background values for `modus-themes-org-habit'. If no optional TRAFFIC argument is supplied, the DEFAULT is used instead. Same for SIMPLE." (pcase modus-themes-org-habit ('traffic-light (list :background (or traffic default))) ('simplified (list :background (or simple default))) (_ (list :background default)))) (defun modus-themes--mode-line-attrs (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) "Color combinations for `modus-themes-mode-line'. FG and BG are the default colors. FG-ALT and BG-ALT are meant to accommodate the options for a 3D modeline or a `moody' compliant one. BORDER applies to all permutations of the modeline, except the three-dimensional effect, where BORDER-3D is used instead. Optional ALT-STYLE applies an appropriate style to the mode line's box property. Optional BORDER-WIDTH specifies an integer for the width of the rectangle that produces the box effect. Optional FG-DISTANT should be close to the main background values. It is intended to be used as a distant-foreground property." (pcase modus-themes-mode-line ('3d `(:background ,bg-alt :foreground ,fg-alt :box (:line-width ,(or border-width 1) :color ,border-3d :style ,(and alt-style 'released-button)))) ('moody `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border :distant-foreground ,fg-distant)) ('borderless `(:foreground ,fg :background ,bg :box ,bg)) ('borderless-3d `(:foreground ,fg :background ,bg :box (:line-width ,(or border-width 1) :color ,bg :style ,(and alt-style 'released-button)))) ('borderless-moody `(:background ,bg :foreground ,fg :underline ,bg :overline ,bg :distant-foreground ,fg-distant)) (_ `(:foreground ,fg :background ,bg :box ,border)))) (defun modus-themes--diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional deuteranbg deuteranfg bg-only-fg) "Color combinations for `modus-themes-diffs'. FG-ONLY-BG should be similar or the same as the main background. FG-ONLY-FG should be a saturated accent value that can be combined with the former. MAINBG must be one of the dedicated backgrounds for diffs while MAINFG must be the same for the foreground. ALTBG needs to be a slightly accented background that is meant to be combined with ALTFG. Both must be less intense than MAINBG and MAINFG respectively. DEUTERANBG and DEUTERANFG must be combinations of colors that account for red-green color defficiency (deuteranopia). Optional BG-ONLY-FG applies ALTFG else leaves the foreground unspecified." (pcase modus-themes-diffs ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) ('desaturated (list :background altbg :foreground altfg)) ('deuteranopia (list :background (or deuteranbg mainbg) :foreground (or deuteranfg mainfg))) ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) (_ (list :background mainbg :foreground mainfg)))) (defun modus-themes--diff-deuteran (deuteran main) "Determine whether the DEUTERAN or MAIN color should be used. This is based on whether `modus-themes-diffs' has the value `deuteranopia'." (if (eq modus-themes-diffs 'deuteranopia) (list deuteran) (list main))) (defun modus-themes--diff-text (fg-only-fg default-fg) "Like `modus-themes--diff', but only for foregrounds. FG-ONLY-FG is the foreground that is used when diffs are styled using only foreground colors. DEFAULT-FG covers all other cases." (pcase modus-themes-diffs ('fg-only (list :foreground fg-only-fg)) ('bg-only (list :foreground 'unspecified)) (_ (list :foreground default-fg)))) (defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) "Combinations for `modus-themes-completions'. MAINFG is an accented foreground value. SUBTLEBG is an accented background value that can be combined with MAINFG. INTENSEBG and INTENSEFG are accented colors that are designed to be used in tandem. These are intended for Icomplete, Ido, and related." (pcase modus-themes-completions ('opinionated (list :background intensebg :foreground intensefg)) ('moderate (list :background subtlebg :foreground mainfg)) (_ (list :foreground mainfg)))) (defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) "Combinations for `modus-themes-completions'. SUBTLEFACE and INTENSEFACE are custom theme faces that combine a background and foreground value. The difference between the two is a matter of degree. ALTFACE is a combination of colors that represents a departure from the UI's default aesthetics. Optional ALTFG is meant to be used in tandem with it. Optional BOLD will apply a heavier weight to the text. These are intended for Helm, Ivy, etc." (pcase modus-themes-completions ('opinionated (list :inherit (list altface bold) :foreground (or altfg 'unspecified))) ('moderate (list :inherit (list subtleface bold))) (_ (list :inherit (list intenseface bold))))) (defun modus-themes--link (fg fgfaint underline) "Conditional application of link styles. FG is the link's default color for its text and underline property. FGFAINT is a desaturated color for the text and underline. UNDERLINE is a grey color only for the undeline." (pcase modus-themes-links ('faint (list :foreground fgfaint :underline t)) ('neutral-underline (list :foreground fg :underline underline)) ('faint-neutral-underline (list :foreground fgfaint :underline underline)) ('no-underline (list :foreground fg :underline nil)) ('underline-only (list :underline t)) ('neutral-underline-only (list :underline underline)) (_ (list :foreground fg :underline t)))) (defun modus-themes--link-color (fg fgfaint &optional neutralfg) "Extends `modus-themes--link'. FG is the main accented foreground. FGFAINT is also accented, yet desaturated. Optional NEUTRALFG is a gray value." (pcase modus-themes-links ('faint (list :foreground fgfaint)) ('faint-neutral-underline (list :foreground fgfaint)) ('underline-only (list :underline t :foreground (or neutralfg 'unspecified))) ('neutral-underline-only (list :underline 'unspecified :foreground (or neutralfg 'unspecified))) (_ (list :foreground fg)))) (defun modus-themes--scale (amount) "Scale heading by AMOUNT. AMOUNT is a customization option." (when modus-themes-scale-headings (list :height amount))) (defun modus-themes--region (bg fg bgsubtle) "Apply `modus-themes-region' styles. BG and FG are the main values that are used by default. BGSUBTLE is a subtle background value that can be combined with all colors used to fontify text and code syntax." (pcase modus-themes-region ('bg-only (list :background bgsubtle)) ('bg-only-no-extend (list :background bgsubtle :extend nil)) ('no-extend (list :background bg :foreground fg :extend nil)) (_ (list :background bg :foreground fg)))) \f ;;;; Utilities for DIY users ;; 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 as those in `modus-themes-operandi-colors' and `modus-themes-vivendi-colors'." (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)))) (defun modus-themes-current-palette () "Return current color palette." (modus-themes--palette (modus-themes--current-theme))) ;;;###autoload (defun modus-themes-color (color) "Return color value for COLOR from current palette. COLOR is a key in `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (alist-get color (modus-themes-current-palette))) ;;;###autoload (defun modus-themes-color-alts (light-color dark-color) "Return color value from current palette. When Modus Operandi is enabled, return color value for color LIGHT-COLOR. When Modus Vivendi is enabled, return color value for DARK-COLOR. LIGHT-COLOR and DARK-COLOR are keys in `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (let* ((theme (modus-themes--current-theme)) (color (pcase theme ('modus-operandi light-color) ('modus-vivendi dark-color) (_theme (error "'%s' is not a Modus theme" theme))))) (alist-get color (modus-themes--palette theme)))) (defmacro modus-themes-with-colors (&rest body) "Evaluate BODY with colors from current palette bound. For colors bound, see `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (declare (indent 0)) (let ((palette-sym (gensym)) (colors (mapcar #'car modus-themes-operandi-colors))) `(let* ((class '((class color) (min-colors 89))) (,palette-sym (modus-themes-current-palette)) ,@(mapcar (lambda (color) (list color `(alist-get ',color ,palette-sym))) colors)) (ignore class ,@colors) ; Silence unused variable warnings ,@body))) \f ;;;; Commands ;;;###autoload (defun modus-themes-load-themes () "Ensure that the Modus themes are in `custom-enabled-themes'. This function is intended for use in package declarations such as those defined with the help of `use-package'. The idea is to add this function to the `:init' stage of the package's loading, so that subsequent calls that assume the presence of a loaded theme, like `modus-themes-toggle' or `modus-themes-load-operandi', will continue to work as intended even if they are lazy-loaded (such as when they are declared in the `:config' phase)." (unless (or (custom-theme-p 'modus-operandi) (custom-theme-p 'modus-vivendi)) (load-theme 'modus-operandi t t) (load-theme 'modus-vivendi t t))) (defvar modus-themes-after-load-theme-hook nil "Hook that runs after the `modus-themes-toggle' routines.") ;; The reason we use `load-theme' instead of `enable-theme' is that the ;; former does a kind of "reset" on the face specs. So it plays nicely ;; with `custom-set-faces', as well as defcustom user customizations, ;; including the likes of `modus-themes-operandi-color-overrides'. ;; ;; Tests show that `enable-theme' does not re-read those variables, so ;; it might appear to the unsuspecting user that the themes are somehow ;; broken. ;; ;; This "reset", however, comes at the cost of being a bit slower than ;; `enable-theme'. User who have a stable setup and seldom update their ;; variables during a given Emacs session, are better off using ;; something like this: ;; ;; (defun modus-themes-toggle-enabled () ;; "Toggle between `modus-operandi' and `modus-vivendi' themes." ;; (interactive) ;; (pcase (modus-themes--current-theme) ;; ('modus-operandi (progn (enable-theme 'modus-vivendi) ;; (disable-theme 'modus-operandi))) ;; ('modus-vivendi (progn (enable-theme 'modus-operandi) ;; (disable-theme 'modus-vivendi))) ;; (_ (error "No Modus theme is loaded; evaluate `modus-themes-load-themes' first")))) ;;;###autoload (defun modus-themes-load-operandi () "Load `modus-operandi' and disable `modus-vivendi'. Also run `modus-themes-after-load-theme-hook'." (disable-theme 'modus-vivendi) (load-theme 'modus-operandi t) (run-hooks 'modus-themes-after-load-theme-hook)) ;;;###autoload (defun modus-themes-load-vivendi () "Load `modus-vivendi' and disable `modus-operandi'. Also run `modus-themes-after-load-theme-hook'." (disable-theme 'modus-operandi) (load-theme 'modus-vivendi t) (run-hooks 'modus-themes-after-load-theme-hook)) (defun modus-themes--load-prompt () "Helper for `modus-themes-toggle'." (let ((theme (intern (completing-read "Load Modus theme (will disable all others): " '(modus-operandi modus-vivendi) nil t)))) (mapc #'disable-theme custom-enabled-themes) (pcase theme ('modus-operandi (modus-themes-load-operandi)) ('modus-vivendi (modus-themes-load-vivendi))))) ;;;###autoload (defun modus-themes-toggle () "Toggle between `modus-operandi' and `modus-vivendi' themes. Also runs `modus-themes-after-load-theme-hook' at its last stage by virtue of calling either of `modus-themes-load-operandi' and `modus-themes-load-vivendi' functions." (interactive) (modus-themes-load-themes) (pcase (modus-themes--current-theme) ('modus-operandi (modus-themes-load-vivendi)) ('modus-vivendi (modus-themes-load-operandi)) (_ (modus-themes--load-prompt)))) \f ;;;; Face specifications (defconst modus-themes-faces '( ;;;; custom faces ;; these bespoke faces are inherited by other constructs below ;;;;; subtle colored backgrounds `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; intense colored backgrounds `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) ;;;;; refined background and foreground combinations ;; general purpose styles that use an accented foreground against an ;; accented background `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) ;;;;; "active" combinations, mostly for use on the mode line `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) ;;;;; nuanced backgrounds ;; useful for adding an accented background that is suitable for all ;; main foreground colors (intended for use in Org source blocks) `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) ;;;;; fringe-specific combinations `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) ;;;;; special base values ;; these are closer to the grayscale than the accents defined above ;; and should only be used when the next closest alternative would be ;; a greyscale value than an accented one `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) ;;;;; diff-specific combinations ;; intended for `diff-mode' or equivalent `(modus-theme-diff-added ((,class ,@(modus-themes--diff bg-main green bg-diff-focus-added fg-diff-focus-added green-nuanced-bg fg-diff-added bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) `(modus-theme-diff-changed ((,class ,@(modus-themes--diff bg-main yellow bg-diff-focus-changed fg-diff-focus-changed yellow-nuanced-bg fg-diff-changed)))) `(modus-theme-diff-removed ((,class ,@(modus-themes--diff bg-main red bg-diff-focus-removed fg-diff-focus-removed red-nuanced-bg fg-diff-removed)))) `(modus-theme-diff-refine-added ((,class ,@(modus-themes--diff bg-diff-added fg-diff-added bg-diff-refine-added fg-diff-refine-added bg-diff-focus-added fg-diff-focus-added bg-diff-refine-added-deuteran fg-diff-refine-added-deuteran)))) `(modus-theme-diff-refine-changed ((,class ,@(modus-themes--diff bg-diff-changed fg-diff-changed bg-diff-refine-changed fg-diff-refine-changed bg-diff-focus-changed fg-diff-focus-changed)))) `(modus-theme-diff-refine-removed ((,class ,@(modus-themes--diff bg-diff-removed fg-diff-removed bg-diff-refine-removed fg-diff-refine-removed bg-diff-focus-removed fg-diff-focus-removed)))) `(modus-theme-diff-focus-added ((,class ,@(modus-themes--diff bg-dim green bg-diff-focus-added fg-diff-focus-added bg-diff-added fg-diff-added bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) `(modus-theme-diff-focus-changed ((,class ,@(modus-themes--diff bg-dim yellow bg-diff-focus-changed fg-diff-focus-changed bg-diff-changed fg-diff-changed)))) `(modus-theme-diff-focus-removed ((,class ,@(modus-themes--diff bg-dim red bg-diff-focus-removed fg-diff-focus-removed bg-diff-removed fg-diff-removed)))) `(modus-theme-diff-heading ((,class ,@(modus-themes--diff bg-main blue bg-diff-heading fg-diff-heading cyan-nuanced-bg cyan-nuanced-fg bg-header fg-main t)))) ;;;;; mark indicators ;; color combinations intended for Dired, Ibuffer, or equivalent `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) ;;;;; heading levels ;; styles for regular headings used in Org, Markdown, Info, etc. `(modus-theme-heading-1 ((,class ,@(modus-themes--heading 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-4)))) `(modus-theme-heading-2 ((,class ,@(modus-themes--heading 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-3)))) `(modus-theme-heading-3 ((,class ,@(modus-themes--heading 3 fg-special-cold blue blue-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-2)))) `(modus-theme-heading-4 ((,class ,@(modus-themes--heading 4 fg-special-mild cyan cyan-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-1)))) `(modus-theme-heading-5 ((,class ,@(modus-themes--heading 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) `(modus-theme-heading-6 ((,class ,@(modus-themes--heading 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) `(modus-theme-heading-7 ((,class ,@(modus-themes--heading 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) `(modus-theme-heading-8 ((,class ,@(modus-themes--heading 8 fg-dim magenta bg-alt bg-region)))) ;;;;; graph-specific faces `(modus-theme-graph-red-0 ((,class :background ,red-graph-0-bg))) `(modus-theme-graph-red-1 ((,class :background ,red-graph-1-bg))) `(modus-theme-graph-green-0 ((,class :background ,green-graph-0-bg))) `(modus-theme-graph-green-1 ((,class :background ,green-graph-1-bg))) `(modus-theme-graph-yellow-0 ((,class :background ,yellow-graph-0-bg))) `(modus-theme-graph-yellow-1 ((,class :background ,yellow-graph-1-bg))) `(modus-theme-graph-blue-0 ((,class :background ,blue-graph-0-bg))) `(modus-theme-graph-blue-1 ((,class :background ,blue-graph-1-bg))) `(modus-theme-graph-magenta-0 ((,class :background ,magenta-graph-0-bg))) `(modus-theme-graph-magenta-1 ((,class :background ,magenta-graph-1-bg))) `(modus-theme-graph-cyan-0 ((,class :background ,cyan-graph-0-bg))) `(modus-theme-graph-cyan-1 ((,class :background ,cyan-graph-1-bg))) ;;;;; language checkers `(modus-theme-lang-error ((,class ,@(modus-themes--lang-check fg-lang-underline-error fg-lang-error red red-nuanced-bg)))) `(modus-theme-lang-note ((,class ,@(modus-themes--lang-check fg-lang-underline-note fg-lang-note blue-alt blue-nuanced-bg)))) `(modus-theme-lang-warning ((,class ,@(modus-themes--lang-check fg-lang-underline-warning fg-lang-warning yellow yellow-nuanced-bg)))) ;;;;; other custom faces `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line bg-hl-line-intense bg-hl-line) :extend t))) `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) ;;;; standard faces ;;;;; absolute essentials `(default ((,class :background ,bg-main :foreground ,fg-main))) `(cursor ((,class :background ,fg-main))) `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) :foreground ,fg-main))) `(vertical-border ((,class :foreground ,fg-window-divider-inner))) ;;;;; basic and/or ungrouped styles `(bold ((,class :weight bold))) `(bold-italic ((,class :inherit (bold italic)))) `(buffer-menu-buffer ((,class :inherit bold))) `(comint-highlight-input ((,class :inherit bold))) `(comint-highlight-prompt ((,class :inherit modus-theme-bold ,@(modus-themes--prompt cyan blue-nuanced-bg blue-alt blue-refine-bg fg-main)))) `(error ((,class :inherit bold :foreground ,red))) `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) `(file-name-shadow ((,class :foreground ,fg-unfocused))) `(header-line ((,class ,@(modus-themes--variable-pitch-ui) :background ,bg-header :foreground ,fg-header))) `(header-line-highlight ((,class :inherit modus-theme-active-blue))) `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) `(homoglyph ((,class :foreground ,red-alt-faint))) `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) `(italic ((,class :slant italic))) `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) `(minibuffer-prompt ((,class ,@(modus-themes--prompt cyan-alt-other cyan-nuanced-bg cyan cyan-refine-bg fg-main)))) `(mm-command-output ((,class :foreground ,red-alt-other))) `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(next-error ((,class :inherit modus-theme-subtle-red))) `(rectangle-preview ((,class :inherit modus-theme-special-mild))) `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) `(secondary-selection ((,class :inherit modus-theme-special-cold))) `(shadow ((,class :foreground ,fg-alt))) `(success ((,class :inherit bold :foreground ,green))) `(trailing-whitespace ((,class :background ,red-intense-bg))) `(warning ((,class :inherit bold :foreground ,yellow))) ;;;;; buttons, links, widgets `(button ((,class ,@(modus-themes--link blue-alt-other blue-alt-other-faint bg-region)))) `(link ((,class :inherit button))) `(link-visited ((,class :inherit button ,@(modus-themes--link-color magenta-alt-other magenta-alt-other-faint fg-alt)))) `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) `(widget-button ((,class :inherit button))) `(widget-button-pressed ((,class :inherit button ,@(modus-themes--link-color magenta magenta-faint)))) `(widget-documentation ((,class :foreground ,green))) `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) `(widget-single-line-field ((,class :inherit widget-field))) ;;;;; ag `(ag-hit-face ((,class :foreground ,fg-special-cold))) `(ag-match-face ((,class :inherit modus-theme-special-calm))) ;;;;; alert `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) `(alert-low-face ((,class :foreground ,fg-special-mild))) `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) `(alert-trivial-face ((,class :foreground ,fg-special-calm))) `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) ;;;;; all-the-icons `(all-the-icons-blue ((,class :foreground ,blue))) `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) `(all-the-icons-cyan ((,class :foreground ,cyan))) `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) `(all-the-icons-dpink ((,class :foreground ,magenta))) `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) `(all-the-icons-dred ((,class :foreground ,red))) `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) `(all-the-icons-dyellow ((,class :foreground ,yellow))) `(all-the-icons-green ((,class :foreground ,green))) `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) `(all-the-icons-maroon ((,class :foreground ,magenta))) `(all-the-icons-orange ((,class :foreground ,red-alt))) `(all-the-icons-pink ((,class :foreground ,magenta))) `(all-the-icons-purple ((,class :foreground ,magenta-alt))) `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) `(all-the-icons-red ((,class :foreground ,red))) `(all-the-icons-red-alt ((,class :foreground ,red-alt))) `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) `(all-the-icons-yellow ((,class :foreground ,yellow))) ;;;;; annotate `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) ;;;;; anzu `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; apropos `(apropos-function-button ((,class :inherit button ,@(modus-themes--link-color magenta-alt-other magenta-alt-other-faint)))) `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) `(apropos-misc-button ((,class :inherit button ,@(modus-themes--link-color cyan-alt-other cyan-alt-other-faint)))) `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) `(apropos-user-option-button ((,class :inherit button ,@(modus-themes--link-color green-alt-other green-alt-other-faint)))) `(apropos-variable-button ((,class :inherit button ,@(modus-themes--link-color blue blue-faint)))) ;;;;; apt-sources-list `(apt-sources-list-components ((,class :foreground ,cyan))) `(apt-sources-list-options ((,class :foreground ,yellow))) `(apt-sources-list-suite ((,class :foreground ,green))) `(apt-sources-list-type ((,class :foreground ,magenta))) `(apt-sources-list-uri ((,class :foreground ,blue))) ;;;;; artbollocks-mode `(artbollocks-face ((,class :inherit modus-theme-lang-note))) `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) `(artbollocks-passive-voice-face ((,class :inherit modus-theme-lang-warning))) `(artbollocks-weasel-words-face ((,class :inherit modus-theme-lang-error))) ;;;;; auctex and Tex `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg ,@(modus-themes--scale modus-themes-scale-4)))) `(font-latex-string-face ((,class :inherit font-lock-string-face))) `(font-latex-subscript-face ((,class :height 0.95))) `(font-latex-superscript-face ((,class :height 0.95))) `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) `(tex-match ((,class :foreground ,blue-alt-other))) `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(texinfo-heading ((,class :foreground ,magenta))) `(TeX-error-description-error ((,class :inherit error))) `(TeX-error-description-help ((,class :foreground ,blue))) `(TeX-error-description-tex-said ((,class :foreground ,blue))) `(TeX-error-description-warning ((,class :inherit warning))) ;;;;; auto-dim-other-buffers `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) ;;;;; avy `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; aw (ace-window) `(aw-background-face ((,class :foreground ,fg-unfocused))) `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) `(aw-leading-char-face ((,class :inherit (modus-theme-intense-cyan bold fixed-pitch) :height 1.5 :slant normal))) `(aw-minibuffer-leading-char-face ((,class :inherit (modus-theme-intense-red bold)))) `(aw-mode-line-face ((,class :inherit bold))) ;;;;; awesome-tray `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; bbdb `(bbdb-name ((,class :foreground ,magenta-alt-other))) `(bbdb-organization ((,class :foreground ,red-alt-other))) `(bbdb-field-name ((,class :foreground ,cyan-alt-other))) ;;;;; binder `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) `(binder-sidebar-tags ((,class :foreground ,cyan))) ;;;;; bm `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) ;;;;; bongo `(bongo-album-title ((,class :foreground ,yellow-active))) `(bongo-artist ((,class :foreground ,magenta-active))) `(bongo-currently-playing-track ((,class :inherit bold))) `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) `(bongo-filled-seek-bar ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) `(bongo-track-length ((,class :foreground ,fg-active))) `(bongo-track-title ((,class :foreground ,cyan-active))) `(bongo-unfilled-seek-bar ((,class :background ,bg-special-cold :foreground ,fg-main))) ;;;;; boon `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) ;;;;; breakpoint (built-in gdb-mi.el) `(breakpoint-disabled ((,class :inherit shadow))) `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) ;;;;; buffer-expose `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) ;;;;; calendar and diary `(calendar-month-header ((,class :inherit modus-theme-pseudo-header))) `(calendar-today ((,class :inherit bold :underline t))) `(calendar-weekday-header ((,class :inherit shadow))) `(calendar-weekend-header ((,class :inherit shadow))) `(diary ((,class :background ,green-nuanced-bg :foreground ,green-alt-other))) `(diary-anniversary ((,class :foreground ,red-alt-other))) `(diary-time ((,class :foreground ,blue-alt))) `(holiday ((,class :background ,magenta-nuanced-bg :foreground ,magenta-alt))) ;;;;; calfw `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) `(cfw:face-day-title ((,class :foreground ,fg-main))) `(cfw:face-default-content ((,class :foreground ,green-alt))) `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) `(cfw:face-disable ((,class :foreground ,fg-unfocused))) `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) `(cfw:face-title ((,class :inherit modus-theme-variable-pitch :foreground ,fg-special-cold ,@(modus-themes--scale modus-themes-scale-5)))) `(cfw:face-today ((,class :background ,bg-inactive))) `(cfw:face-today-title ((,class :background ,bg-active))) `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) `(cfw:face-toolbar-button-off ((,class :inherit shadow))) `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg :foreground ,blue-alt))) ;;;;; centaur-tabs `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) ;;;;; cfrs `(cfrs-border-color ((,class :background ,fg-window-divider-inner))) ;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') `(change-log-acknowledgment ((,class :foreground ,fg-alt))) `(change-log-conditionals ((,class :foreground ,yellow))) `(change-log-date ((,class :foreground ,cyan))) `(change-log-email ((,class :foreground ,cyan-alt-other))) `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) `(change-log-function ((,class :foreground ,green-alt-other))) `(change-log-list ((,class :foreground ,magenta-alt))) `(change-log-name ((,class :foreground ,magenta-alt-other))) `(log-edit-header ((,class :foreground ,fg-special-warm))) `(log-edit-summary ((,class :inherit bold :foreground ,blue))) `(log-edit-unknown-header ((,class :inherit shadow))) `(log-view-commit-body ((,class :foreground ,blue-nuanced-fg))) `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) `(log-view-message ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; cider `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) `(cider-docview-literal-face ((,class :foreground ,blue-alt))) `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) `(cider-docview-table-border-face ((,class :inherit shadow))) `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) `(cider-error-highlight-face ((,class :foreground ,red :underline t))) `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) `(cider-fringe-good-face ((,class :foreground ,green-active))) `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) `(cider-repl-input-face ((,class :inherit bold))) `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) `(cider-repl-stdout-face ((,class :foreground ,blue))) `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) `(cider-stacktrace-face ((,class :foreground ,fg-main))) `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) :background ,bg-alt :foreground ,fg-alt))) `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) ;;;;; circe (and lui) `(circe-fool-face ((,class :inherit shadow))) `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(circe-server-face ((,class :foreground ,fg-unfocused))) `(lui-button-face ((,class :inherit button))) `(lui-highlight-face ((,class :foreground ,magenta-alt))) `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) ;;;;; color-rg `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) `(color-rg-font-lock-position-splitter ((,class :inherit shadow))) ;;;;; column-enforce-mode `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) ;;;;; company-mode `(company-echo-common ((,class :foreground ,magenta-alt-other))) `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) `(company-preview-common ((,class :foreground ,blue-alt))) `(company-preview-search ((,class :inherit modus-theme-special-calm))) `(company-scrollbar-bg ((,class :background ,bg-active))) `(company-scrollbar-fg ((,class :background ,fg-active))) `(company-template-field ((,class :inherit modus-theme-intense-magenta))) `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) `(company-tooltip-common-selection ((,class :foreground ,fg-main))) `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) ;;;;; company-posframe `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; compilation feedback `(compilation-column-number ((,class :foreground ,magenta-alt-other))) `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) `(compilation-info ((,class :inherit modus-theme-bold :foreground ,fg-special-cold))) `(compilation-line-number ((,class :foreground ,fg-special-warm))) `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) ;;;;; completions `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) `(completions-common-part ((,class ,@(modus-themes--standard-completions blue-alt blue-nuanced-bg cyan-refine-bg cyan-refine-fg)))) `(completions-first-difference ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt blue-nuanced-bg magenta-intense-bg fg-main)))) ;;;;; consult `(consult-async-running ((,class :inherit bold :foreground ,blue))) `(consult-async-split ((,class :foreground ,magenta-alt))) `(consult-bookmark ((,class :foreground ,blue))) `(consult-file ((,class :foreground ,fg-special-cold))) `(consult-imenu-prefix ((,class :inherit shadow))) `(consult-key ((,class :inherit modus-themes-bold :foreground ,magenta-alt-other))) `(consult-line-number ((,class :foreground ,fg-special-warm))) `(consult-line-number-prefix ((,class :foreground ,fg-unfocused))) `(consult-narrow-indicator ((,class :foreground ,magenta-alt))) `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) `(consult-preview-error ((,class :inherit modus-theme-intense-red))) `(consult-preview-line ((,class :background ,bg-hl-alt-intense))) ;;;;; counsel `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) `(counsel-application-name ((,class :foreground ,red-alt-other))) `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) `(counsel-outline-1 ((,class :inherit org-level-1))) `(counsel-outline-2 ((,class :inherit org-level-2))) `(counsel-outline-3 ((,class :inherit org-level-3))) `(counsel-outline-4 ((,class :inherit org-level-4))) `(counsel-outline-5 ((,class :inherit org-level-5))) `(counsel-outline-6 ((,class :inherit org-level-6))) `(counsel-outline-7 ((,class :inherit org-level-7))) `(counsel-outline-8 ((,class :inherit org-level-8))) `(counsel-outline-default ((,class :foreground ,fg-main))) `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) ;;;;; counsel-css `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) ;;;;; counsel-notmuch `(counsel-notmuch-count-face ((,class :foreground ,cyan))) `(counsel-notmuch-date-face ((,class :foreground ,blue))) `(counsel-notmuch-people-face ((,class :foreground ,magenta))) `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) ;;;;; counsel-org-capture-string `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) ;;;;; cov `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) `(cov-coverage-run-face ((,class :foreground ,green-intense))) `(cov-heavy-face ((,class :foreground ,magenta-intense))) `(cov-light-face ((,class :foreground ,blue-intense))) `(cov-med-face ((,class :foreground ,yellow-intense))) `(cov-none-face ((,class :foreground ,cyan-intense))) ;;;;; cperl-mode `(cperl-nonoverridable-face ((,class :foreground unspecified))) `(cperl-array-face ((,class :inherit font-lock-keyword-face))) `(cperl-hash-face ((,class :inherit font-lock-variable-name-face))) ;;;;; csv-mode `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) ;;;;; ctrlf `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) ;;;;; custom (M-x customize) `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) :background ,bg-active :foreground ,fg-main))) `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) :background ,bg-active :foreground ,fg-active))) `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) :background ,bg-active :foreground ,fg-main))) `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) `(custom-comment ((,class :inherit shadow))) `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) `(custom-set ((,class :foreground ,blue-alt))) `(custom-state ((,class :foreground ,cyan-alt-other))) `(custom-themed ((,class :inherit modus-theme-subtle-blue))) `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) ;;;;; dap-mode `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) :background ,bg-active :foreground ,fg-main))) `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) :background ,bg-active :foreground ,fg-main))) `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) `(dap-ui-sessions-terminated-face ((,class :inherit shadow))) ;;;;; dashboard (emacs-dashboard) `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) `(dashboard-text-banner ((,class :foreground ,fg-dim))) ;;;;; deadgrep `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) `(deadgrep-meta-face ((,class :inherit shadow))) `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) ;;;;; debbugs `(debbugs-gnu-archived ((,class :inverse-video t))) `(debbugs-gnu-done ((,class :inherit shadow))) `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) `(debbugs-gnu-handled ((,class :foreground ,green))) `(debbugs-gnu-new ((,class :foreground ,red))) `(debbugs-gnu-pending ((,class :foreground ,cyan))) `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) ;;;;; define-word `(define-word-face-1 ((,class :foreground ,yellow))) `(define-word-face-2 ((,class :foreground ,fg-main))) ;;;;; deft `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) `(deft-filter-string-face ((,class :foreground ,green-intense))) `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) `(deft-separator-face ((,class :inherit shadow))) `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(deft-time-face ((,class :foreground ,fg-special-cold))) `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) ;;;;; dictionary `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) `(dictionary-reference-face ((,class :inherit button))) `(dictionary-word-definition-face ((,class))) `(dictionary-word-entry-face ((,class :inherit font-lock-comment-face))) ;;;;; diff-hl `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) `(diff-hl-dired-change ((,class :inherit diff-hl-change))) `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) ;;;;; diff-mode `(diff-added ((,class :inherit modus-theme-diff-added))) `(diff-changed ((,class :inherit modus-theme-diff-changed :extend t))) `(diff-context ((,class ,@(modus-themes--diff-text fg-main fg-unfocused)))) `(diff-error ((,class :inherit modus-theme-intense-red))) `(diff-file-header ((,class :inherit (bold diff-header)))) `(diff-function ((,class :inherit modus-theme-diff-heading))) `(diff-header ((,class ,@(modus-themes--diff-text cyan-faint fg-main)))) `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) `(diff-index ((,class :inherit bold :foreground ,blue-alt))) `(diff-indicator-added ((,class :inherit (diff-added bold) :foreground ,@(modus-themes--diff-deuteran blue green)))) `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) `(diff-removed ((,class :inherit modus-theme-diff-removed))) ;;;;; dim-autoload `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) ;;;;; dir-treeview `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) `(dir-treeview-audio-face ((,class :foreground ,magenta))) `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) `(dir-treeview-control-face ((,class :inherit shadow))) `(dir-treeview-control-mouse-face ((,class :inherit highlight))) `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) `(dir-treeview-directory-face ((,class :foreground ,blue))) `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) `(dir-treeview-executable-face ((,class :foreground ,red-alt))) `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) `(dir-treeview-indent-face ((,class :inherit shadow))) `(dir-treeview-label-mouse-face ((,class :inherit highlight))) `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) `(dir-treeview-symlink-face ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) ;;;;; dired `(dired-broken-symlink ((,class :inherit button :foreground ,red))) `(dired-directory ((,class :foreground ,blue))) `(dired-flagged ((,class :inherit modus-theme-mark-del))) `(dired-header ((,class :inherit modus-theme-pseudo-header))) `(dired-ignored ((,class :inherit shadow))) `(dired-mark ((,class :inherit modus-theme-mark-symbol))) `(dired-marked ((,class :inherit modus-theme-mark-sel))) `(dired-perm-write ((,class :foreground ,fg-special-warm))) `(dired-symlink ((,class :inherit button ,@(modus-themes--link-color cyan-alt cyan-alt-faint)))) `(dired-warning ((,class :inherit bold :foreground ,yellow))) ;;;;; dired-async `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; dired-git `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; dired-git-info `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) ;;;;; dired-narrow `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan 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 (())) ;;;;; diredc `(diredc-face-chmod-font-lock-dir ((,class :foreground ,blue-alt))) `(diredc-face-chmod-font-lock-exec ((,class :foreground ,magenta))) `(diredc-face-chmod-font-lock-read ((,class :foreground ,fg-main))) `(diredc-face-chmod-font-lock-write ((,class :foreground ,cyan))) ;;;;; diredfl `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) `(diredfl-dir-name ((,class :inherit dired-directory))) `(diredfl-dir-priv ((,class :foreground ,blue-alt))) `(diredfl-exec-priv ((,class :foreground ,magenta))) `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) `(diredfl-file-name ((,class :foreground ,fg-main))) `(diredfl-file-suffix ((,class :foreground ,cyan))) `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) `(diredfl-ignored-file-name ((,class :inherit shadow))) `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) `(diredfl-no-priv ((,class :inherit shadow))) `(diredfl-number ((,class :foreground ,cyan-alt))) `(diredfl-other-priv ((,class :foreground ,yellow))) `(diredfl-rare-priv ((,class :foreground ,red-alt))) `(diredfl-read-priv ((,class :foreground ,fg-main))) `(diredfl-symlink ((,class :inherit dired-symlink))) `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) `(diredfl-write-priv ((,class :foreground ,cyan))) ;;;;; dired+ `(diredp-autofile-name ((,class :inherit modus-theme-special-cold))) `(diredp-compressed-file-name ((,class :foreground ,fg-special-warm))) `(diredp-compressed-file-suffix ((,class :foreground ,red-alt))) `(diredp-date-time ((,class :foreground ,cyan-alt-other))) `(diredp-deletion ((,class :inherit modus-theme-mark-del))) `(diredp-deletion-file-name ((,class :inherit modus-theme-mark-del))) `(diredp-dir-heading ((,class :inherit modus-theme-pseudo-header))) `(diredp-dir-name ((,class :inherit dired-directory))) `(diredp-dir-priv ((,class :foreground ,blue-alt))) `(diredp-exec-priv ((,class :foreground ,magenta))) `(diredp-executable-tag ((,class :foreground ,magenta-alt))) `(diredp-file-name ((,class :foreground ,fg-main))) `(diredp-file-suffix ((,class :foreground ,cyan))) `(diredp-flag-mark ((,class :inherit modus-theme-mark-sel))) `(diredp-flag-mark-line ((,class :inherit modus-theme-mark-sel))) `(diredp-ignored-file-name ((,class :inherit shadow))) `(diredp-link-priv ((,class :foreground ,blue-alt-other))) `(diredp-mode-line-flagged ((,class :foreground ,red-active))) `(diredp-mode-line-marked ((,class :foreground ,green-active))) `(diredp-no-priv ((,class :inherit shadow))) `(diredp-number ((,class :foreground ,cyan-alt))) `(diredp-omit-file-name ((,class :inherit shadow :strike-through t))) `(diredp-other-priv ((,class :foreground ,yellow))) `(diredp-rare-priv ((,class :foreground ,red-alt))) `(diredp-read-priv ((,class :foreground ,fg-main))) `(diredp-symlink ((,class :inherit dired-symlink))) `(diredp-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) `(diredp-write-priv ((,class :foreground ,cyan))) ;;;;; disk-usage `(disk-usage-children ((,class :foreground ,yellow))) `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) `(disk-usage-percent ((,class :foreground ,green))) `(disk-usage-size ((,class :foreground ,cyan))) `(disk-usage-symlink ((,class :inherit button))) `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) ;;;;; display-fill-column-indicator-mode `(fill-column-indicator ((,class :foreground ,bg-active))) ;;;;; doom-modeline `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) `(doom-modeline-battery-charging ((,class :foreground ,green-active))) `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) :foreground ,red-active))) `(doom-modeline-battery-full ((,class :foreground ,blue-active))) `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-host ((,class :inherit italic))) `(doom-modeline-info ((,class :foreground ,green-active))) `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) `(doom-modeline-persp-name ((,class :foreground ,fg-active))) `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) ;;;;; dynamic-ruler `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) ;;;;; easy-jekyll `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) ;;;;; easy-kill `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) ;;;;; ebdb `(ebdb-address-default ((,class :foreground ,fg-special-calm))) `(ebdb-defunct ((,class :inherit shadow))) `(ebdb-field-hidden ((,class :foreground ,magenta))) `(ebdb-label ((,class :foreground ,cyan-alt-other))) `(ebdb-mail-default ((,class :foreground ,fg-main))) `(ebdb-mail-primary ((,class :foreground ,magenta-alt))) `(ebdb-marked ((,class :background ,cyan-intense-bg))) `(ebdb-organization-name ((,class :foreground ,red-alt-other))) `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) `(ebdb-phone-default ((,class :foreground ,cyan))) `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) ;;;;; ediff ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces. `(ediff-current-diff-A ((,class ,@(modus-themes--diff bg-dim red bg-diff-removed fg-diff-removed red-nuanced-bg red-faint)))) `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff bg-dim fg-special-cold bg-special-cold fg-special-cold blue-nuanced-bg blue)))) `(ediff-current-diff-B ((,class ,@(modus-themes--diff bg-dim green bg-diff-added fg-diff-added green-nuanced-bg green-faint bg-diff-added-deuteran fg-diff-added-deuteran)))) `(ediff-current-diff-C ((,class ,@(modus-themes--diff bg-dim yellow bg-diff-changed fg-diff-changed yellow-nuanced-bg yellow-faint)))) `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) `(ediff-fine-diff-B ((,class :background ,@(modus-themes--diff-deuteran bg-diff-focus-added-deuteran bg-diff-focus-added) :foreground ,@(modus-themes--diff-deuteran fg-diff-focus-added-deuteran fg-diff-focus-added)))) `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) ;;;;; eglot `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) ;;;;; el-search `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) `(el-search-match ((,class :inherit modus-theme-intense-green))) `(el-search-other-match ((,class :inherit modus-theme-special-mild))) `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) ;;;;; eldoc ;; NOTE: see https://github.com/purcell/package-lint/issues/187 (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) ;;;;; eldoc-box `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) `(eldoc-box-border ((,class :background ,fg-alt))) ;;;;; elfeed `(elfeed-log-date-face ((,class :inherit elfeed-search-date-face))) `(elfeed-log-debug-level-face ((,class :inherit elfeed-search-filter-face))) `(elfeed-log-error-level-face ((,class :inherit error))) `(elfeed-log-info-level-face ((,class :inherit success))) `(elfeed-log-warn-level-face ((,class :inherit warning))) `(elfeed-search-date-face ((,class :foreground ,cyan))) `(elfeed-search-feed-face ((,class :foreground ,blue-faint))) `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) `(elfeed-search-tag-face ((,class :foreground ,cyan-alt-other))) `(elfeed-search-title-face ((,class :foreground ,fg-dim))) `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) ;;;;; elfeed-score `(elfeed-score-date-face ((,class :foreground ,blue))) `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) `(elfeed-score-error-level-face ((,class :foreground ,red))) `(elfeed-score-info-level-face ((,class :foreground ,cyan))) `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) ;;;;; emms `(emms-playlist-track-face ((,class :foreground ,blue))) `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) ;;;;; enhanced-ruby-mode `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) `(enh-ruby-op-face ((,class :foreground ,fg-main))) `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) `(enh-ruby-regexp-face ((,class :foreground ,magenta))) `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) `(erm-syn-errline ((,class :foreground ,red :underline t))) `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) ;;;;; epa `(epa-field-body ((,class :foreground ,fg-main))) `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) `(epa-mark ((,class :inherit bold :foreground ,magenta))) `(epa-string ((,class :foreground ,blue-alt))) `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) `(epa-validity-low ((,class :inherit shadow))) `(epa-validity-medium ((,class :foreground ,green-alt))) ;;;;; equake `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) `(equake-tab-inactive ((,class :foreground ,fg-inactive))) ;;;;; erc `(erc-action-face ((,class :inherit bold :foreground ,cyan))) `(erc-bold-face ((,class :inherit bold))) `(erc-button ((,class :inherit button))) `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) `(erc-direct-msg-face ((,class :foreground ,magenta))) `(erc-error-face ((,class :inherit bold :foreground ,red))) `(erc-fool-face ((,class :foreground ,fg-inactive))) `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) `(erc-input-face ((,class :foreground ,fg-special-calm))) `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) `(erc-notice-face ((,class :foreground ,fg-unfocused))) `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) `(erc-underline-face ((,class :underline t))) `(bg:erc-color-face0 ((,class :background "white"))) `(bg:erc-color-face1 ((,class :background "black"))) `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) `(bg:erc-color-face14 ((,class :background "gray60"))) `(bg:erc-color-face15 ((,class :background "gray80"))) `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) `(fg:erc-color-face0 ((,class :foreground "white"))) `(fg:erc-color-face1 ((,class :foreground "black"))) `(fg:erc-color-face10 ((,class :foreground ,cyan))) `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) `(fg:erc-color-face12 ((,class :foreground ,blue))) `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) `(fg:erc-color-face14 ((,class :foreground "gray60"))) `(fg:erc-color-face15 ((,class :foreground "gray80"))) `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) `(fg:erc-color-face3 ((,class :foreground ,green))) `(fg:erc-color-face4 ((,class :foreground ,red))) `(fg:erc-color-face5 ((,class :foreground ,red-alt))) `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) ;;;;; eros `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) :background ,bg-dim :foreground ,fg-dim))) ;;;;; ert `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) ;;;;; eshell `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) `(eshell-ls-backup ((,class :foreground ,yellow-alt))) `(eshell-ls-clutter ((,class :foreground ,red-alt))) `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) `(eshell-ls-executable ((,class :foreground ,magenta-alt))) `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) `(eshell-ls-product ((,class :foreground ,fg-special-warm))) `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) `(eshell-ls-symlink ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) `(eshell-prompt ((,class :inherit modus-theme-bold ,@(modus-themes--prompt green-alt-other green-nuanced-bg green-alt green-refine-bg fg-main)))) ;;;;; eshell-fringe-status `(eshell-fringe-status-failure ((,class :foreground ,red))) `(eshell-fringe-status-success ((,class :foreground ,green))) ;;;;; eshell-git-prompt `(eshell-git-prompt-add-face ((,class :inherit shadow))) `(eshell-git-prompt-branch-face ((,class :inherit shadow))) `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) ;;;;; eshell-prompt-extras (epe) `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) `(epe-git-dir-face ((,class :foreground ,red-alt-other))) `(epe-git-face ((,class :foreground ,cyan-alt))) `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) `(epe-pipeline-host-face ((,class :foreground ,blue))) `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) `(epe-pipeline-user-face ((,class :foreground ,magenta))) `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(epe-status-face ((,class :foreground ,magenta-alt-other))) `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) ;;;;; eshell-syntax-highlighting `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) `(eshell-syntax-highlighting-comment-face ((,class :inherit shadow))) `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) ;;;;; evil-mode `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) `(evil-ex-info ((,class :foreground ,cyan-alt-other))) `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) `(evil-ex-search ((,class :inherit modus-theme-intense-green))) `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; evil-goggles `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) ;;;;; evil-snipe `(evil-snipe-first-match-face ((,class :inherit (bold modus-theme-intense-blue)))) `(evil-snipe-matches-face ((,class :inherit modus-theme-refine-magenta))) ;;;;; evil-visual-mark-mode `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) ;;;;; eww `(eww-invalid-certificate ((,class :foreground ,red-active))) `(eww-valid-certificate ((,class :foreground ,green-active))) `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) `(eww-form-select ((,class :inherit eww-form-checkbox))) `(eww-form-submit ((,class :inherit eww-form-file))) `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) ;;;;; eyebrowse `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) ;;;;; fancy-dabbrev `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) `(fancy-dabbrev-preview-face ((,class :inherit shadow :underline t))) `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) ;;;;; flycheck `(flycheck-error ((,class :inherit modus-theme-lang-error))) `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) `(flycheck-error-list-filename ((,class :foreground ,blue))) `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) `(flycheck-error-list-info ((,class :foreground ,cyan))) `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) `(flycheck-error-list-warning ((,class :foreground ,yellow))) `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) `(flycheck-info ((,class :inherit modus-theme-lang-note))) `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) `(flycheck-warning ((,class :inherit modus-theme-lang-warning))) ;;;;; flycheck-color-mode-line `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) ;;;;; flycheck-indicator `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) ;;;;; flycheck-posframe `(flycheck-posframe-background-face ((,class :background ,bg-alt))) `(flycheck-posframe-border-face ((,class :inherit shadow))) `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; flymake `(flymake-error ((,class :inherit modus-theme-lang-error))) `(flymake-note ((,class :inherit modus-theme-lang-note))) `(flymake-warning ((,class :inherit modus-theme-lang-warning))) ;;;;; flyspell `(flyspell-duplicate ((,class :inherit modus-theme-lang-warning))) `(flyspell-incorrect ((,class :inherit modus-theme-lang-error))) ;;;;; flyspell-correct `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) ;;;;; flx `(flx-highlight-face ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-intense-magenta 'modus-theme-nuanced-magenta magenta-alt 'bold)))) ;;;;; freeze-it `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) ;;;;; frog-menu `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) `(frog-menu-actions-face ((,class :foreground ,magenta))) `(frog-menu-border ((,class :background ,bg-active))) `(frog-menu-candidates-face ((,class :foreground ,fg-main))) `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) `(frog-menu-prompt-face ((,class :foreground ,cyan))) ;;;;; focus `(focus-unfocused ((,class :foreground ,fg-unfocused))) ;;;;; fold-this `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) ;;;;; font-lock `(font-lock-builtin-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra magenta-alt magenta-alt-faint blue-alt)))) `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) `(font-lock-comment-face ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-alt fg-comment-yellow)))) `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra blue-alt-other blue-alt-other-faint magenta-alt-other)))) `(font-lock-doc-face ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-docstring fg-docstring green-alt-other-faint green-alt-other-faint magenta-nuanced-fg)))) `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra magenta magenta-faint magenta-alt)))) `(font-lock-keyword-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) `(font-lock-negation-char-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-foreground yellow yellow-faint)))) `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground red-alt-other red-alt-other-faint)))) `(font-lock-regexp-grouping-backslash ((,class :inherit bold ,@(modus-themes--syntax-string fg-escape-char-backslash yellow-alt-faint magenta-alt-other blue-alt)))) `(font-lock-regexp-grouping-construct ((,class :inherit bold ,@(modus-themes--syntax-string fg-escape-char-construct red-alt-other-faint red magenta-alt)))) `(font-lock-string-face ((,class ,@(modus-themes--syntax-string blue-alt blue-alt-faint green green-alt)))) `(font-lock-type-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra cyan-alt-other cyan-alt-faint cyan-alt)))) `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra cyan cyan-faint blue-alt-faint)))) `(font-lock-warning-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-foreground yellow-active yellow-alt-faint)))) ;;;;; forge `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) `(forge-post-date ((,class :foreground ,fg-special-cold))) `(forge-topic-closed ((,class :inherit shadow))) `(forge-topic-merged ((,class :inherit shadow))) `(forge-topic-open ((,class :foreground ,fg-special-mild))) `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) ;;;;; fountain-mode `(fountain-character ((,class :foreground ,blue-alt-other))) `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(fountain-dialog ((,class :foreground ,blue-alt))) `(fountain-metadata-key ((,class :foreground ,green-alt-other))) `(fountain-metadata-value ((,class :foreground ,blue))) `(fountain-non-printing ((,class :inherit shadow))) `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) `(fountain-paren ((,class :foreground ,cyan))) `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) `(fountain-synopsis ((,class :foreground ,cyan-alt))) `(fountain-trans ((,class :foreground ,yellow-alt-other))) ;;;;; geiser `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) `(geiser-font-lock-doc-link ((,class :inherit button))) `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) `(geiser-font-lock-repl-input ((,class :inherit bold))) `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) `(geiser-font-lock-xref-header ((,class :inherit bold))) `(geiser-font-lock-xref-link ((,class :inherit button))) ;;;;; git-commit `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) `(git-commit-comment-file ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-special-cold red-nuanced-fg)))) `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) ,@(modus-themes--syntax-comment fg-dim fg-special-warm)))) `(git-commit-keyword ((,class :foreground ,magenta))) `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) `(git-commit-pseudo-header ((,class :foreground ,blue))) `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) ;;;;; git-gutter `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) ;;;;; git-gutter-fr `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) ;;;;; git-{gutter,fringe}+ `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) ;;;;; git-lens `(git-lens-added ((,class :inherit bold :foreground ,green))) `(git-lens-deleted ((,class :inherit bold :foreground ,red))) `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) ;;;;; git-rebase `(git-rebase-comment-hash ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-special-cold red-nuanced-fg)))) `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) ,@(modus-themes--syntax-comment fg-dim fg-special-warm)))) `(git-rebase-description ((,class :foreground ,fg-main))) `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) ;;;;; git-timemachine `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) ;;;;; git-walktree `(git-walktree-commit-face ((,class :foreground ,yellow))) `(git-walktree-symlink-face ((,class :inherit button))) `(git-walktree-tree-face ((,class :foreground ,magenta))) ;;;;; gnus `(gnus-button ((,class :inherit button))) `(gnus-cite-1 ((,class :foreground ,blue-faint))) `(gnus-cite-10 ((,class :foreground ,yellow-alt-other))) `(gnus-cite-11 ((,class :foreground ,magenta-alt))) `(gnus-cite-2 ((,class :foreground ,green-alt-other))) `(gnus-cite-3 ((,class :foreground ,red-alt-other))) `(gnus-cite-4 ((,class :foreground ,cyan))) `(gnus-cite-5 ((,class :foreground ,yellow-alt))) `(gnus-cite-6 ((,class :foreground ,magenta))) `(gnus-cite-7 ((,class :foreground ,green-alt))) `(gnus-cite-8 ((,class :foreground ,magenta-alt-other))) `(gnus-cite-9 ((,class :foreground ,cyan-alt))) `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) `(gnus-emphasis-bold ((,class :inherit bold))) `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) `(gnus-emphasis-italic ((,class :inherit italic))) `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) `(gnus-group-news-1-empty ((,class :foreground ,green))) `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) `(gnus-group-news-2-empty ((,class :foreground ,cyan))) `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) `(gnus-group-news-6-empty ((,class :inherit shadow))) `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) `(gnus-header-content ((,class :inherit message-header-other))) `(gnus-header-from ((,class :inherit message-header-to :underline nil))) `(gnus-header-name ((,class :inherit message-header-name))) `(gnus-header-newsgroups ((,class :inherit message-header-newsgroups))) `(gnus-header-subject ((,class :inherit message-header-subject))) `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) `(gnus-server-denied ((,class :inherit bold :foreground ,red))) `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) `(gnus-server-opened ((,class :inherit bold :foreground ,green))) `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) `(gnus-splash ((,class :inherit shadow))) `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) `(gnus-summary-normal-read ((,class :inherit shadow))) `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) ;;;;; golden-ratio-scroll-screen `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) ;;;;; helm `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) `(helm-action ((,class :underline t))) `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) `(helm-bookmark-file ((,class :foreground ,fg-main))) `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) `(helm-bookmark-gnus ((,class :foreground ,magenta))) `(helm-bookmark-info ((,class :foreground ,cyan-alt))) `(helm-bookmark-man ((,class :foreground ,yellow-alt))) `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) `(helm-buffer-file ((,class :foreground ,fg-main))) `(helm-buffer-modified ((,class :foreground ,yellow-alt))) `(helm-buffer-not-saved ((,class :foreground ,red-alt))) `(helm-buffer-process ((,class :foreground ,magenta))) `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) `(helm-buffer-size ((,class :inherit shadow))) `(helm-candidate-number ((,class :foreground ,cyan-active))) `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) `(helm-ff-backup-file ((,class :inherit shadow))) `(helm-ff-denied ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-intense-red 'modus-theme-nuanced-red red)))) `(helm-ff-directory ((,class :inherit helm-buffer-directory))) `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) `(helm-ff-executable ((,class :foreground ,magenta-alt))) `(helm-ff-file ((,class :foreground ,fg-main))) `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) `(helm-ff-invalid-symlink ((,class :inherit button ,@(modus-themes--link-color red red-faint)))) `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-magenta 'modus-theme-subtle-magenta 'modus-theme-nuanced-magenta magenta)))) `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-yellow 'modus-theme-subtle-yellow 'modus-theme-nuanced-yellow yellow-alt-other)))) `(helm-ff-socket ((,class :foreground ,red-alt-other))) `(helm-ff-suid ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-refine-red 'modus-theme-nuanced-yellow red-alt)))) `(helm-ff-symlink ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(helm-ff-truename ((,class :foreground ,blue-alt-other))) `(helm-fd-finish ((,class :foreground ,green-active))) `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-grep-finish ((,class :foreground ,green-active))) `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) `(helm-grep-match ((,class :inherit modus-theme-special-calm))) `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) `(helm-history-deleted ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-intense-red 'modus-theme-nuanced-red red 'bold)))) `(helm-history-remote ((,class :foreground ,red-alt-other))) `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-yellow 'modus-theme-refine-yellow 'modus-theme-nuanced-yellow yellow 'bold)))) `(helm-locate-finish ((,class :foreground ,green-active))) `(helm-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-refine-cyan 'modus-theme-nuanced-cyan cyan 'bold)))) `(helm-match-item ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-neutral 'modus-theme-subtle-cyan 'modus-theme-nuanced-cyan cyan-alt-other)))) `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) `(helm-moccur-buffer ((,class :inherit button ,@(modus-themes--link-color cyan-alt-other cyan-alt-other-faint)))) `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-intense-magenta 'modus-theme-nuanced-magenta magenta-alt 'bold)))) `(helm-non-file-buffer ((,class :inherit shadow))) `(helm-prefarg ((,class :foreground ,red-active))) `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other)))) `(helm-selection ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-special-cold nil 'bold)))) `(helm-selection-line ((,class :inherit modus-theme-special-cold))) `(helm-separator ((,class :foreground ,fg-special-mild))) `(helm-time-zone-current ((,class :foreground ,green))) `(helm-time-zone-home ((,class :foreground ,magenta))) `(helm-source-header ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(helm-top-columns ((,class :inherit helm-header))) `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) ;;;;; helm-ls-git `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) ;;;;; helm-switch-shell `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other 'bold)))) ;;;;; helm-xref `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) ;;;;; helpful `(helpful-heading ((,class :inherit modus-theme-heading-1))) ;;;;; highlight region or ad-hoc regexp `(hi-aquamarine ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) `(hi-black-b ((,class :inherit bold :background ,fg-main :foreground ,bg-main))) `(hi-black-hb ((,class :inherit bold :background ,fg-alt :foreground ,bg-main))) `(hi-blue ((,class :background ,blue-subtle-bg :foreground ,fg-main))) `(hi-blue-b ((,class :inherit (bold hi-blue)))) `(hi-green ((,class :background ,green-subtle-bg :foreground ,fg-main))) `(hi-green-b ((,class :inherit (bold hi-green)))) `(hi-pink ((,class :background ,magenta-subtle-bg :foreground ,fg-main))) `(hi-pink-b ((,class :inherit (bold hi-pink)))) `(hi-red-b ((,class :inherit bold :background ,red-intense-bg :foreground ,fg-main))) `(hi-salmon ((,class :background ,red-subtle-bg :foreground ,fg-main))) `(hi-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-main))) `(highlight ((,class :inherit modus-theme-subtle-blue))) `(highlight-changes ((,class :foreground ,yellow-alt-other))) `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) `(hl-line ((,class :inherit modus-theme-hl-line))) ;;;;; highlight-blocks `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) ;;;;; highlight-defined `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) `(highlight-defined-function-name-face ((,class :foreground ,magenta))) `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) ;;;;; highlight-escape-sequences (`hes-mode') `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) ;;;;; highlight-indentation `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) `(highlight-indentation-current-column-face ((,class :background ,bg-active))) ;;;;; highlight-numbers `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) ;;;;; highlight-symbol `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) ;;;;; highlight-thing `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) ;;;;; hl-defined `(hdefd-functions ((,class :foreground ,blue))) `(hdefd-undefined ((,class :foreground ,red-alt))) `(hdefd-variables ((,class :foreground ,cyan-alt))) ;;;;; hl-fill-column `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) ;;;;; hl-todo `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) ;;;;; hydra `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) `(hydra-face-red ((,class :inherit bold :foreground ,red))) `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) ;;;;; hyperlist `(hyperlist-condition ((,class :foreground ,green))) `(hyperlist-hashtag ((,class :foreground ,yellow))) `(hyperlist-operator ((,class :foreground ,blue-alt))) `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) `(hyperlist-quote ((,class :foreground ,cyan-alt))) `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) `(hyperlist-stars ((,class :inherit shadow))) `(hyperlist-tag ((,class :foreground ,red))) `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) ;;;;; icomplete `(icomplete-first-match ((,class :inherit bold ,@(modus-themes--standard-completions magenta bg-alt bg-active fg-main)))) ;;;;; icomplete-vertical `(icomplete-vertical-separator ((,class :inherit shadow))) ;;;;; ido-mode `(ido-first-match ((,class :inherit bold ,@(modus-themes--standard-completions magenta bg-alt bg-active fg-main)))) `(ido-incomplete-regexp ((,class :inherit error))) `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) `(ido-only-match ((,class :inherit bold ,@(modus-themes--standard-completions green green-nuanced-bg green-intense-bg fg-main)))) `(ido-subdir ((,class :foreground ,blue))) `(ido-virtual ((,class :foreground ,fg-special-warm))) ;;;;; iedit `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) ;;;;; iflipb `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) `(iflipb-other-buffer-face ((,class :inherit shadow))) ;;;;; imenu-list `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) `(imenu-list-entry-face-1 ((,class :foreground ,blue))) `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) ;;;;; indium `(indium-breakpoint-face ((,class :foreground ,red-active))) `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) `(indium-repl-stdout-face ((,class :foreground ,fg-main))) ;;;;; info `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) ; the capitalization is canonical :background ,bg-alt :foreground ,fg-special-calm))) `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) `(info-header-xref ((,class :foreground ,blue-active))) `(info-index-match ((,class :inherit match))) `(info-menu-header ((,class :inherit modus-theme-heading-3))) `(info-menu-star ((,class :foreground ,red))) `(info-node ((,class :inherit bold))) `(info-title-1 ((,class :inherit modus-theme-heading-1))) `(info-title-2 ((,class :inherit modus-theme-heading-2))) `(info-title-3 ((,class :inherit modus-theme-heading-3))) `(info-title-4 ((,class :inherit modus-theme-heading-4))) ;;;;; info-colors `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) `(info-colors-ref-item-command ((,class :foreground ,magenta))) `(info-colors-ref-item-constant ((,class :inherit font-lock-constant-face))) `(info-colors-ref-item-function ((,class :inherit font-lock-function-name-face))) `(info-colors-ref-item-macro ((,class :inherit font-lock-keyword-face))) `(info-colors-ref-item-other ((,class :inherit font-lock-doc-face))) `(info-colors-ref-item-special-form ((,class :inherit font-lock-keyword-face))) `(info-colors-ref-item-syntax-class ((,class :inherit font-lock-builtin-face))) `(info-colors-ref-item-type ((,class :inherit font-lock-type-face))) `(info-colors-ref-item-user-option ((,class :inherit font-lock-variable-name-face))) `(info-colors-ref-item-variable ((,class :inherit font-lock-variable-name-face))) ;;;;; interaction-log `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) `(ilog-change-face ((,class :foreground ,magenta-alt))) `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) `(ilog-load-face ((,class :foreground ,green))) `(ilog-message-face ((,class :inherit shadow))) `(ilog-non-change-face ((,class :foreground ,blue))) ;;;;; ioccur `(ioccur-cursor ((,class :foreground ,fg-main))) `(ioccur-invalid-regexp ((,class :foreground ,red))) `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) ;;;;; isearch, occur, and the like `(isearch ((,class :inherit (modus-theme-intense-green bold)))) `(isearch-fail ((,class :inherit modus-theme-refine-red))) `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) `(match ((,class :inherit modus-theme-special-calm))) `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) ;;;;; isl (isearch-light) `(isl-line ((,class :inherit modus-theme-subtle-green))) `(isl-match ((,class :inherit modus-theme-refine-cyan))) `(isl-number ((,class :inherit modus-theme-bold :foreground ,green-active))) `(isl-on ((,class :inherit (bold modus-theme-intense-green)))) `(isl-string ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; ivy `(ivy-action ((,class :inherit bold :foreground ,red-alt))) `(ivy-completions-annotations ((,class :inherit completions-annotations))) `(ivy-confirm-face ((,class :foreground ,cyan))) `(ivy-current-match ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-cyan 'modus-theme-intense-cyan 'modus-theme-special-cold nil 'bold)))) `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) `(ivy-grep-info ((,class :foreground ,cyan-alt))) `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) `(ivy-highlight-face ((,class :foreground ,magenta))) `(ivy-match-required-face ((,class :inherit error))) `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-neutral 'modus-theme-intense-neutral 'modus-theme-nuanced-cyan fg-alt)))) `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-green 'modus-theme-refine-green 'modus-theme-nuanced-green green-alt-other 'bold)))) `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt-other 'bold)))) `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other 'bold)))) `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-intense-cyan 'modus-theme-nuanced-cyan cyan-alt-other 'bold)))) `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) `(ivy-org ((,class :foreground ,cyan-alt-other))) `(ivy-prompt-match ((,class :inherit ivy-current-match))) `(ivy-remote ((,class :foreground ,magenta))) `(ivy-separator ((,class :inherit shadow))) `(ivy-subdir ((,class :foreground ,blue-alt-other))) `(ivy-virtual ((,class :foreground ,magenta-alt-other))) `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt)))) ;;;;; ivy-posframe `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) ;;;;; jira (org-jira) `(jiralib-comment-face ((,class :background ,bg-alt))) `(jiralib-comment-header-face ((,class :inherit bold))) `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) `(jiralib-issue-summary-face ((,class :inherit bold))) `(jiralib-link-filter-face ((,class :underline t))) `(jiralib-link-issue-face ((,class :underline t))) `(jiralib-link-project-face ((,class :underline t))) ;;;;; journalctl-mode `(journalctl-error-face ((,class :inherit bold :foreground ,red))) `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) `(journalctl-host-face ((,class :foreground ,blue))) `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) `(journalctl-starting-face ((,class :foreground ,green))) `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; js2-mode `(js2-error ((,class :foreground ,red))) `(js2-external-variable ((,class :foreground ,cyan-alt-other))) `(js2-function-call ((,class :foreground ,magenta))) `(js2-function-param ((,class :foreground ,blue))) `(js2-instance-member ((,class :foreground ,magenta-alt-other))) `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) `(js2-object-property ((,class :foreground ,fg-main))) `(js2-object-property-access ((,class :foreground ,fg-main))) `(js2-private-function-call ((,class :foreground ,green-alt-other))) `(js2-private-member ((,class :foreground ,fg-special-mild))) `(js2-warning ((,class :foreground ,yellow-alt :underline t))) ;;;;; julia `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) ;;;;; jupyter `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) ;;;;; kaocha-runner `(kaocha-runner-error-face ((,class :foreground ,red))) `(kaocha-runner-success-face ((,class :foreground ,green))) `(kaocha-runner-warning-face ((,class :foreground ,yellow))) ;;;;; keycast `(keycast-command ((,class :inherit bold :foreground ,blue-active))) `(keycast-key ((,class ,@(modus-themes--mode-line-attrs bg-main blue-active bg-main blue-active blue-active blue-intense 'alt-style -3)))) ;;;;; line numbers (display-line-numbers-mode and global variant) `(line-number ((,class :inherit default ,@(modus-themes--line-numbers fg-alt bg-dim fg-unfocused)))) `(line-number-current-line ((,class :inherit (bold default) ,@(modus-themes--line-numbers fg-main bg-active blue-alt-other)))) `(line-number-major-tick ((,class :inherit (bold default) ,@(modus-themes--line-numbers yellow-nuanced-fg yellow-nuanced-bg red-alt)))) `(line-number-minor-tick ((,class :inherit (bold default) ,@(modus-themes--line-numbers fg-alt bg-inactive fg-inactive)))) ;;;;; lsp-mode `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) `(lsp-face-semhl-deprecated ((,(append '((supports :underline (:style wave))) class) :foreground ,yellow :underline (:style wave)) (,class :foreground ,yellow :underline t))) `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) `(lsp-face-semhl-function ((,class :foreground ,magenta))) `(lsp-face-semhl-method ((,class :foreground ,magenta))) `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-variable ((,class :foreground ,cyan))) `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) `(lsp-ui-doc-background ((,class :background ,bg-alt))) `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-doc-url ((,class :inherit button))) `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) `(lsp-ui-peek-line-number ((,class :inherit shadow))) `(lsp-ui-peek-list ((,class :background ,bg-dim))) `(lsp-ui-peek-peek ((,class :background ,bg-alt))) `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) ;;;;; macrostep `(macrostep-compiler-macro-face ((,class :inherit italic))) `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) ;;;;; magit `(magit-bisect-bad ((,class :foreground ,red-alt-other))) `(magit-bisect-good ((,class :foreground ,green-alt-other))) `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) `(magit-blame-date ((,class :foreground ,blue))) `(magit-blame-dimmed ((,class :inherit shadow))) `(magit-blame-hash ((,class :foreground ,fg-special-warm))) `(magit-blame-heading ((,class :background ,bg-alt))) `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) `(magit-blame-margin ((,class :inherit magit-blame-highlight))) `(magit-blame-name ((,class :foreground ,magenta-alt-other))) `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) `(magit-branch-local ((,class :foreground ,blue-alt))) `(magit-branch-remote ((,class :foreground ,magenta-alt))) `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) `(magit-branch-upstream ((,class :inherit italic))) `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces, though only for the standard actions, ;; not the highlighted ones. This is because Magit's interaction ;; model relies on highlighting the current diff hunk. `(magit-diff-added ((,class ,@(modus-themes--diff bg-main green bg-diff-added fg-diff-added green-nuanced-bg fg-diff-added bg-diff-added-deuteran fg-diff-added-deuteran)))) `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) `(magit-diff-base ((,class ,@(modus-themes--diff bg-main yellow bg-diff-changed fg-diff-changed yellow-nuanced-bg fg-diff-changed)))) `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) `(magit-diff-context ((,class :foreground ,fg-unfocused))) `(magit-diff-context-highlight ((,class ,@(modus-themes--diff bg-dim fg-dim bg-inactive fg-inactive bg-dim fg-alt)))) `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces. `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active :foreground ,fg-inactive))) `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,@(modus-themes--diff-deuteran bg-region bg-diff-heading) :foreground ,@(modus-themes--diff-deuteran fg-main fg-diff-heading)))) `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) `(magit-diff-hunk-region ((,class :inherit bold))) `(magit-diff-lines-boundary ((,class :background ,fg-main))) `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) `(magit-diff-removed ((,class ,@(modus-themes--diff bg-main red bg-diff-removed fg-diff-removed red-nuanced-bg fg-diff-removed)))) `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) `(magit-diffstat-added ((,class :foreground ,@(modus-themes--diff-deuteran blue green)))) `(magit-diffstat-removed ((,class :foreground ,red))) `(magit-dimmed ((,class :foreground ,fg-unfocused))) `(magit-filename ((,class :foreground ,fg-special-cold))) `(magit-hash ((,class :inherit shadow))) `(magit-head ((,class :inherit magit-branch-local))) `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) `(magit-keyword ((,class :foreground ,magenta))) `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) `(magit-log-author ((,class :foreground ,cyan))) `(magit-log-date ((,class :inherit shadow))) `(magit-log-graph ((,class :foreground ,fg-dim))) `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) `(magit-process-ng ((,class :inherit error))) `(magit-process-ok ((,class :inherit success))) `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) `(magit-refname ((,class :inherit shadow))) `(magit-refname-pullreq ((,class :inherit shadow))) `(magit-refname-stash ((,class :inherit shadow))) `(magit-refname-wip ((,class :inherit shadow))) `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) `(magit-section-highlight ((,class :background ,bg-alt))) `(magit-sequence-done ((,class :foreground ,green-alt))) `(magit-sequence-drop ((,class :foreground ,red-alt))) `(magit-sequence-exec ((,class :foreground ,magenta-alt))) `(magit-sequence-head ((,class :foreground ,cyan-alt))) `(magit-sequence-onto ((,class :inherit shadow))) `(magit-sequence-part ((,class :foreground ,yellow-alt))) `(magit-sequence-pick ((,class :foreground ,blue-alt))) `(magit-sequence-stop ((,class :foreground ,red))) `(magit-signature-bad ((,class :inherit bold :foreground ,red))) `(magit-signature-error ((,class :foreground ,red-alt))) `(magit-signature-expired ((,class :foreground ,yellow))) `(magit-signature-expired-key ((,class :foreground ,yellow))) `(magit-signature-good ((,class :foreground ,green))) `(magit-signature-revoked ((,class :foreground ,magenta))) `(magit-signature-untrusted ((,class :foreground ,cyan))) `(magit-tag ((,class :foreground ,yellow-alt-other))) ;;;;; magit-imerge `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) ;;;;; make-mode (makefiles) `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) `(makefile-space ((,class :background ,magenta-nuanced-bg))) ;;;;; man `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) `(Man-underline ((,class :foreground ,cyan :underline t))) ;;;;; marginalia `(marginalia-archive ((,class :foreground ,green-nuanced-fg))) `(marginalia-date ((,class :foreground ,blue-nuanced-fg))) `(marginalia-char ((,class :foreground ,red-active))) `(marginalia-documentation ((,class :foreground ,fg-special-cold :inherit modus-theme-slant))) `(marginalia-file-modes ((,class :inherit shadow))) `(marginalia-file-name ((,class :foreground ,fg-special-mild))) `(marginalia-file-owner ((,class :foreground ,red-nuanced-fg))) `(marginalia-key ((,class :foreground ,magenta-active))) `(marginalia-mode ((,class :foreground ,cyan-active))) `(marginalia-modified ((,class :foreground ,yellow-active))) `(marginalia-number ((,class :foreground ,blue-active))) `(marginalia-size ((,class :foreground ,green-active))) `(marginalia-type ((,class :foreground ,fg-special-warm))) `(marginalia-variable ((,class :foreground ,yellow-nuanced-fg))) `(marginalia-version ((,class :foreground ,cyan-active))) ;;;;; markdown-mode `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(markdown-bold-face ((,class :inherit bold))) `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) `(markdown-comment-face ((,class :inherit font-lock-comment-face))) `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) `(markdown-header-face ((t nil))) `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,cyan))) `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,blue))) `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,cyan))) `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-mild))) `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,magenta-alt))) `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-special-calm))) `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-alt))) `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) `(markdown-link-face ((,class :inherit button))) `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(markdown-list-face ((,class :foreground ,fg-dim))) `(markdown-markup-face ((,class :inherit shadow))) `(markdown-math-face ((,class :foreground ,magenta-alt-other))) `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) `(markdown-plain-url-face ((,class :inherit markdown-link-face))) `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) `(markdown-reference-face ((,class :inherit markdown-markup-face))) `(markdown-strike-through-face ((,class :strike-through t))) `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(markdown-url-face ((,class :foreground ,blue-alt))) ;;;;; markup-faces (`adoc-mode') `(markup-anchor-face ((,class :foreground ,fg-inactive))) `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) `(markup-command-face ((,class :foreground ,fg-inactive))) `(markup-comment-face ((,class :inherit font-lock-comment-face))) `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) :inherit modus-theme-refine-magenta))) `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markup-error-face ((,class :inherit bold :foreground ,red))) `(markup-gen-face ((,class :foreground ,magenta-alt))) `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markup-list-face ((,class :inherit modus-theme-special-calm))) `(markup-meta-face ((,class :foreground ,fg-inactive))) `(markup-meta-hide-face ((,class :inherit shadow))) `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) `(markup-value-face ((,class :foreground ,fg-inactive))) `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) ;;;;; mentor `(mentor-download-message ((,class :foreground ,fg-special-warm))) `(mentor-download-name ((,class :foreground ,fg-special-cold))) `(mentor-download-progress ((,class :foreground ,blue-alt-other))) `(mentor-download-size ((,class :foreground ,magenta-alt-other))) `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) `(mentor-download-speed-up ((,class :foreground ,red-alt))) `(mentor-download-state ((,class :foreground ,yellow-alt))) `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) `(mentor-tracker-name ((,class :foreground ,magenta-alt))) ;;;;; messages `(message-cited-text-1 ((,class :foreground ,blue-faint))) `(message-cited-text-2 ((,class :foreground ,green-alt-other))) `(message-cited-text-3 ((,class :foreground ,red-alt-other))) `(message-cited-text-4 ((,class :foreground ,cyan))) `(message-header-cc ((,class :foreground ,blue-alt-other))) `(message-header-name ((,class :inherit bold :foreground ,cyan))) `(message-header-newsgroups ((,class :inherit message-header-other))) `(message-header-other ((,class :foreground ,fg-special-calm))) `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt))) `(message-header-to ((,class :inherit bold :foreground ,magenta-alt-other))) `(message-header-xheader ((,class :foreground ,blue-alt))) `(message-mml ((,class :foreground ,yellow))) `(message-separator ((,class :inherit modus-theme-intense-neutral))) ;;;;; minibuffer-line `(minibuffer-line ((,class :foreground ,fg-main))) ;;;;; minimap `(minimap-active-region-background ((,class :background ,bg-active))) `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) ;;;;; mmm-mode `(mmm-cleanup-submode-face ((,class :background ,yellow-nuanced-bg))) `(mmm-code-submode-face ((,class :background ,bg-alt))) `(mmm-comment-submode-face ((,class :background ,blue-nuanced-bg))) `(mmm-declaration-submode-face ((,class :background ,cyan-nuanced-bg))) `(mmm-default-submode-face ((,class :background ,bg-dim))) `(mmm-init-submode-face ((,class :background ,magenta-nuanced-bg))) `(mmm-output-submode-face ((,class :background ,red-nuanced-bg))) `(mmm-special-submode-face ((,class :background ,green-nuanced-bg))) ;;;;; modeline `(mode-line ((,class ,@(modus-themes--variable-pitch-ui) ,@(modus-themes--mode-line-attrs fg-active bg-active fg-dim bg-active fg-alt bg-active 'alt-style nil bg-main)))) `(mode-line-buffer-id ((,class :inherit bold))) `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) `(mode-line-inactive ((,class ,@(modus-themes--variable-pitch-ui) ,@(modus-themes--mode-line-attrs fg-inactive bg-inactive fg-alt bg-dim bg-region bg-active)))) ;;;;; mood-line `(mood-line-modified ((,class :foreground ,magenta-active))) `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) `(mood-line-status-info ((,class :foreground ,cyan-active))) `(mood-line-status-neutral ((,class :foreground ,blue-active))) `(mood-line-status-success ((,class :foreground ,green-active))) `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) `(mood-line-unimportant ((,class :foreground ,fg-inactive))) ;;;;; mpdel `(mpdel-browser-directory-face ((,class :foreground ,blue))) `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) ;;;;; mu4e `(mu4e-attach-number-face ((,class :inherit bold :foreground ,fg-dim))) `(mu4e-cited-1-face ((,class :foreground ,blue-faint))) `(mu4e-cited-2-face ((,class :foreground ,green-alt-other))) `(mu4e-cited-3-face ((,class :foreground ,red-alt-other))) `(mu4e-cited-4-face ((,class :foreground ,cyan))) `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) `(mu4e-cited-6-face ((,class :foreground ,magenta))) `(mu4e-cited-7-face ((,class :foreground ,green-alt))) `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) `(mu4e-contact-face ((,class :inherit message-header-to))) `(mu4e-context-face ((,class :foreground ,blue-active))) `(mu4e-draft-face ((,class :foreground ,magenta-alt))) `(mu4e-flagged-face ((,class :foreground ,red-alt))) `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) `(mu4e-header-face ((,class :inherit shadow))) `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) `(mu4e-header-key-face ((,class :inherit message-header-name))) `(mu4e-header-marks-face ((,class :inherit mu4e-special-header-value-face))) `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) `(mu4e-header-value-face ((,class :inherit message-header-other))) `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) `(mu4e-link-face ((,class :inherit button))) `(mu4e-modeline-face ((,class :foreground ,magenta-active))) `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) `(mu4e-replied-face ((,class :foreground ,blue))) `(mu4e-special-header-value-face ((,class :inherit message-header-subject))) `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) `(mu4e-title-face ((,class :foreground ,fg-main))) `(mu4e-trashed-face ((,class :foreground ,red))) `(mu4e-unread-face ((,class :inherit bold))) `(mu4e-url-number-face ((,class :foreground ,fg-alt))) `(mu4e-view-body-face ((,class :foreground ,fg-main))) `(mu4e-warning-face ((,class :inherit warning))) ;;;;; mu4e-conversation `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) `(mu4e-conversation-sender-4 ((,class :inherit shadow))) `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) `(mu4e-conversation-unread ((,class :inherit bold))) ;;;;; multiple-cursors `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) `(mc/cursor-face ((,class :inverse-video t))) `(mc/region-face ((,class :inherit region))) ;;;;; neotree `(neo-banner-face ((,class :foreground ,magenta))) `(neo-button-face ((,class :inherit button))) `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) `(neo-expand-btn-face ((,class :foreground ,cyan))) `(neo-file-link-face ((,class :foreground ,fg-main))) `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) `(neo-vc-added-face ((,class :foreground ,green))) `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) `(neo-vc-default-face ((,class :foreground ,fg-main))) `(neo-vc-edited-face ((,class :foreground ,yellow))) `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) `(neo-vc-missing-face ((,class :foreground ,red-alt))) `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) `(neo-vc-needs-update-face ((,class :underline t))) `(neo-vc-removed-face ((,class :strike-through t))) `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) `(neo-vc-up-to-date-face ((,class :inherit shadow))) `(neo-vc-user-face ((,class :foreground ,magenta))) ;;;;; no-emoji `(no-emoji ((,class :foreground ,cyan))) ;;;;; notmuch `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) `(notmuch-hello-logo-background ((,class :background "gray50"))) `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) `(notmuch-search-count ((,class :inherit shadow))) `(notmuch-search-date ((,class :foreground ,cyan))) `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) `(notmuch-search-non-matching-authors ((,class :inherit shadow))) `(notmuch-search-subject ((,class :foreground ,fg-dim))) `(notmuch-search-unread-face ((,class :inherit bold))) `(notmuch-tag-added ((,(append '((supports :underline (:style wave))) class) :underline (:color ,green :style wave)) (,class :foreground ,green :underline t))) `(notmuch-tag-deleted ((,(append '((supports :underline (:style wave))) class) :underline (:color ,red :style wave)) (,class :foreground ,red :underline t))) `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) `(notmuch-tag-flagged ((,class :foreground ,red-alt))) `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) `(notmuch-tree-match-date-face ((,class :inherit notmuch-search-date))) `(notmuch-tree-match-face ((,class :foreground ,fg-main))) `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) `(notmuch-tree-no-match-face ((,class :inherit shadow))) `(notmuch-tree-no-match-date-face ((,class :inherit shadow))) `(notmuch-wash-cited-text ((,class :foreground ,cyan))) `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; num3-mode `(num3-face-even ((,class :inherit bold :background ,bg-alt))) ;;;;; nxml-mode `(nxml-attribute-colon ((,class :foreground ,fg-main))) `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) `(nxml-cdata-section-CDATA ((,class :inherit error))) `(nxml-cdata-section-delimiter ((,class :inherit error))) `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(nxml-delimiter ((,class :foreground ,fg-dim))) `(nxml-element-colon ((,class :foreground ,fg-main))) `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) `(nxml-heading ((,class :inherit bold))) `(nxml-name ((,class :inherit font-lock-builtin-face))) `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(rng-error ((,class :inherit error))) ;;;;; objed `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line bg-hl-alt-intense bg-hl-alt)))) `(objed-mark ((,class :background ,bg-active))) `(objed-mode-line ((,class :foreground ,cyan-active))) ;;;;; orderless `(orderless-match-face-0 ((,class :inherit bold ,@(modus-themes--standard-completions blue-alt-other blue-nuanced-bg blue-refine-bg blue-refine-fg)))) `(orderless-match-face-1 ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(orderless-match-face-2 ((,class :inherit bold ,@(modus-themes--standard-completions green green-nuanced-bg green-refine-bg green-refine-fg)))) `(orderless-match-face-3 ((,class :inherit bold ,@(modus-themes--standard-completions yellow yellow-nuanced-bg yellow-refine-bg yellow-refine-fg)))) ;;;;; org `(org-agenda-calendar-event ((,class :foreground ,fg-main))) `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) `(org-agenda-column-dateline ((,class :background ,bg-alt))) `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) `(org-agenda-date ((,class :foreground ,cyan))) `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) `(org-agenda-diary ((,class :foreground ,fg-main))) `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) `(org-agenda-done ((,class :foreground ,green-alt))) `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) `(org-agenda-structure ((,class ,@(modus-themes--scale modus-themes-scale-5) :foreground ,blue-alt))) `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) `(org-block ((,class ,@(modus-themes--mixed-fonts) ,@(modus-themes--org-block bg-dim) :foreground ,fg-main))) `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) ,@(modus-themes--org-block-delim bg-dim fg-special-cold bg-alt fg-special-mild)))) `(org-block-end-line ((,class :inherit org-block-begin-line))) `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) :background ,bg-inactive :foreground ,fg-active))) `(org-checkbox-statistics-done ((,class :inherit org-done))) `(org-checkbox-statistics-todo ((,class :inherit org-todo))) `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) `(org-code ((,class ,@(modus-themes--mixed-fonts) :foreground ,magenta))) `(org-column ((,class :background ,bg-alt))) `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts 'button '(button fixed-pitch)) ,@(modus-themes--link-color cyan cyan-faint)))) `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) `(org-document-info ((,class :foreground ,fg-special-cold))) `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold ,@(modus-themes--scale modus-themes-scale-5)))) `(org-done ((,class :foreground ,green))) `(org-drawer ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-ellipsis ((,class))) ; inherits from the heading's color `(org-footnote ((,class :inherit button ,@(modus-themes--link-color blue-alt blue-alt-faint)))) `(org-formula ((,class ,@(modus-themes--mixed-fonts) :foreground ,red-alt))) `(org-habit-alert-face ((,class ,@(modus-themes--org-habit yellow-graph-0-bg yellow-graph-0-bg yellow-graph-1-bg)))) `(org-habit-alert-future-face ((,class ,@(modus-themes--org-habit yellow-graph-1-bg yellow-graph-0-bg yellow-graph-1-bg)))) `(org-habit-clear-face ((,class ,@(modus-themes--org-habit blue-graph-0-bg green-graph-1-bg blue-graph-1-bg)))) `(org-habit-clear-future-face ((,class ,@(modus-themes--org-habit blue-graph-1-bg green-graph-1-bg blue-graph-1-bg)))) `(org-habit-overdue-face ((,class ,@(modus-themes--org-habit red-graph-0-bg red-graph-0-bg red-graph-1-bg)))) `(org-habit-overdue-future-face ((,class ,@(modus-themes--org-habit red-graph-1-bg red-graph-0-bg red-graph-1-bg)))) `(org-habit-ready-face ((,class ,@(modus-themes--org-habit green-graph-0-bg green-graph-0-bg green-graph-1-bg)))) `(org-habit-ready-future-face ((,class ,@(modus-themes--org-habit green-graph-1-bg green-graph-0-bg green-graph-1-bg)))) `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) `(org-hide ((,class :foreground ,bg-main))) `(org-indent ((,class :inherit (fixed-pitch org-hide)))) `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) `(org-level-1 ((,class :inherit modus-theme-heading-1))) `(org-level-2 ((,class :inherit modus-theme-heading-2))) `(org-level-3 ((,class :inherit modus-theme-heading-3))) `(org-level-4 ((,class :inherit modus-theme-heading-4))) `(org-level-5 ((,class :inherit modus-theme-heading-5))) `(org-level-6 ((,class :inherit modus-theme-heading-6))) `(org-level-7 ((,class :inherit modus-theme-heading-7))) `(org-level-8 ((,class :inherit modus-theme-heading-8))) `(org-link ((,class :inherit button))) `(org-list-dt ((,class :inherit bold))) `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-mode-line-clock ((,class :foreground ,fg-main))) `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) `(org-priority ((,class :foreground ,magenta))) `(org-property-value ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(org-quote ((,class :inherit modus-theme-slant ,@(modus-themes--org-block bg-dim) :foreground ,fg-special-cold))) `(org-scheduled ((,class :foreground ,magenta-alt))) `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) `(org-sexp-date ((,class :inherit org-date))) `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-table ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) `(org-tag ((,class :foreground ,magenta-nuanced-fg))) `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) `(org-target ((,class :underline t))) `(org-time-grid ((,class :foreground ,fg-unfocused))) `(org-todo ((,class :foreground ,red))) `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-special-calm))) `(org-verse ((,class :inherit org-quote))) `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) ;;;;; org-journal `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) `(org-journal-highlight ((,class :foreground ,magenta-alt))) ;;;;; org-noter `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) ;;;;; org-pomodoro `(org-pomodoro-mode-line ((,class :foreground ,red-active))) `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) ;;;;; org-recur `(org-recur ((,class :foreground ,magenta-active))) ;;;;; org-roam `(org-roam-link ((,class :inherit button ,@(modus-themes--link-color green green-faint)))) `(org-roam-link-current ((,class :inherit button ,@(modus-themes--link-color green-alt green-alt-faint)))) `(org-roam-link-invalid ((,class :inherit button ,@(modus-themes--link-color red red-faint)))) `(org-roam-link-shielded ((,class :inherit button ,@(modus-themes--link-color yellow yellow-faint)))) `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) ;;;;; org-superstar `(org-superstar-item ((,class :foreground ,fg-main))) `(org-superstar-leading ((,class :foreground ,fg-whitespace))) ;;;;; org-table-sticky-header `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) ;;;;; org-tree-slide `(org-tree-slide-header-overlay-face ((,class :inherit (bold modus-theme-variable-pitch) :background ,bg-main :foreground ,fg-special-cold :overline nil ,@(modus-themes--scale modus-themes-scale-5)))) ;;;;; org-treescope `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) ;;;;; origami `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; outline-mode `(outline-1 ((,class :inherit modus-theme-heading-1))) `(outline-2 ((,class :inherit modus-theme-heading-2))) `(outline-3 ((,class :inherit modus-theme-heading-3))) `(outline-4 ((,class :inherit modus-theme-heading-4))) `(outline-5 ((,class :inherit modus-theme-heading-5))) `(outline-6 ((,class :inherit modus-theme-heading-6))) `(outline-7 ((,class :inherit modus-theme-heading-7))) `(outline-8 ((,class :inherit modus-theme-heading-8))) ;;;;; outline-minor-faces `(outline-minor-0 ((,class :background ,bg-alt))) ;;;;; package (M-x list-packages) `(package-description ((,class :foreground ,fg-special-cold))) `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) `(package-name ((,class :inherit button))) `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) `(package-status-available ((,class :foreground ,fg-special-mild))) `(package-status-built-in ((,class :foreground ,magenta))) `(package-status-dependency ((,class :foreground ,magenta-alt-other))) `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) `(package-status-external ((,class :foreground ,cyan-alt-other))) `(package-status-held ((,class :foreground ,yellow-alt))) `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) `(package-status-installed ((,class :foreground ,fg-special-warm))) `(package-status-new ((,class :inherit bold :foreground ,green))) `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) ;;;;; page-break-lines `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) ;;;;; paradox `(paradox-archive-face ((,class :foreground ,fg-special-mild))) `(paradox-comment-face ((,class :inherit font-lock-comment-face))) `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) `(paradox-description-face ((,class :foreground ,fg-special-cold))) `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) `(paradox-name-face ((,class :foreground ,blue :underline t))) `(paradox-star-face ((,class :foreground ,magenta))) `(paradox-starred-face ((,class :foreground ,magenta-alt))) ;;;;; paren-face `(parenthesis ((,class :foreground ,fg-unfocused))) ;;;;; parrot `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) ;;;;; pass `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) ;;;;; pdf-tools `(pdf-links-read-link ((,class :background ,fg-main :foreground ,magenta-intense-bg :inherit bold))) ; Foreground is background and vice versa `(pdf-occur-document-face ((,class :inherit shadow))) `(pdf-occur-page-face ((,class :inherit shadow))) ;;;;; persp-mode `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) ;;;;; perspective `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) ;;;;; phi-grep `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) ;;;;; phi-search `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; pkgbuild-mode `(pkgbuild-error-face ((,class :inherit modus-theme-lang-error))) ;;;;; pomidor `(pomidor-break-face ((,class :foreground ,blue-alt-other))) `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(pomidor-work-face ((,class :foreground ,green-alt-other))) ;;;;; popup `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) `(popup-scroll-bar-background-face ((,class :background ,bg-active))) `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) ;;;;; powerline `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; powerline-evil `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) ;;;;; proced `(proced-mark ((,class :inherit modus-theme-mark-symbol))) `(proced-marked ((,class :inherit modus-theme-mark-alt))) `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) ;;;;; prodigy `(prodigy-green-face ((,class :foreground ,green))) `(prodigy-red-face ((,class :foreground ,red))) `(prodigy-yellow-face ((,class :foreground ,yellow))) ;;;;; quick-peek `(quick-peek-background-face ((,class :background ,bg-alt))) `(quick-peek-border-face ((,class :background ,fg-window-divider-inner :height 1))) `(quick-peek-padding-face ((,class :background ,bg-alt :height 0.15))) ;;;;; racket-mode `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) :foreground ,green-alt-other))) `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) :foreground ,green))) `(racket-here-string-face ((,class :foreground ,blue-alt))) `(racket-keyword-argument-face ((,class :foreground ,red-alt))) `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) `(racket-selfeval-face ((,class :foreground ,green-alt))) `(racket-xp-error-face ((,class :inherit modus-theme-lang-error))) ;;;;; rainbow-blocks `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) ;;;;; rainbow-identifiers `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) ;;;;; rainbow-delimiters `(rainbow-delimiters-base-error-face ((,class :background ,red-subtle-bg :foreground ,fg-main))) `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg-main))) `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-intense))) `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-intense))) `(rainbow-delimiters-depth-4-face ((,class :foreground ,orange-intense))) `(rainbow-delimiters-depth-5-face ((,class :foreground ,purple-intense))) `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-intense))) `(rainbow-delimiters-depth-7-face ((,class :foreground ,red-intense))) `(rainbow-delimiters-depth-8-face ((,class :foreground ,blue-intense))) `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-intense))) `(rainbow-delimiters-mismatched-face ((,class :inherit (bold modus-theme-refine-yellow)))) `(rainbow-delimiters-unmatched-face ((,class :inherit (bold modus-theme-refine-red)))) ;;;;; rcirc `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) `(rcirc-dim-nick ((,class :inherit shadow))) `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) `(rcirc-server ((,class :foreground ,fg-unfocused))) `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) `(rcirc-url ((,class :foreground ,blue :underline t))) ;;;;; recursion-indicator `(recursion-indicator-general ((,class :foreground ,blue-active))) `(recursion-indicator-minibuffer ((,class :foreground ,red-active))) ;;;;; regexp-builder (re-builder) `(reb-match-0 ((,class :inherit modus-theme-refine-cyan))) `(reb-match-1 ((,class :inherit modus-theme-subtle-magenta))) `(reb-match-2 ((,class :inherit modus-theme-subtle-green))) `(reb-match-3 ((,class :inherit modus-theme-refine-yellow))) `(reb-regexp-grouping-backslash ((,class :inherit font-lock-regexp-grouping-backslash))) `(reb-regexp-grouping-construct ((,class :inherit font-lock-regexp-grouping-construct))) ;;;;; rg (rg.el) `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) `(rg-context-face ((,class :foreground ,fg-unfocused))) `(rg-error-face ((,class :inherit bold :foreground ,red))) `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) `(rg-line-number-face ((,class :foreground ,fg-special-warm))) `(rg-literal-face ((,class :foreground ,blue-alt))) `(rg-match-face ((,class :inherit modus-theme-special-calm))) `(rg-regexp-face ((,class :foreground ,magenta-active))) `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; ripgrep `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) `(ripgrep-hit-face ((,class :foreground ,cyan))) `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) ;;;;; rmail `(rmail-header-name ((,class :foreground ,cyan-alt-other))) `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) ;;;;; ruler-mode `(ruler-mode-column-number ((,class :inherit ruler-mode-default :foreground ,fg-main))) `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red))) `(ruler-mode-current-column ((,class :inherit ruler-mode-default :background ,blue-subtle-bg :foreground ,fg-main))) `(ruler-mode-default ((,class :inherit default :background ,bg-alt :foreground ,fg-unfocused))) `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green))) `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,cyan))) `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,blue))) `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) `(ruler-mode-pad ((,class :inherit ruler-mode-default :background ,bg-active :foreground ,fg-inactive))) `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,fg-special-warm))) ;;;;; sallet `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) `(sallet-flx-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-refine-cyan 'modus-theme-nuanced-cyan cyan-alt-other)))) `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other)))) `(sallet-source-header ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(sallet-substring-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt-other)))) ;;;;; selectrum ;; NOTE 2021-02-22: The `selectrum-primary-highlight' and ;; `selectrum-secondary-highlight' are deprecated upstream in favour of ;; their selectrum-prescient counterparts. We shall remove those faces ;; from the themes once we are certain that they are no longer relevant. `(selectrum-current-candidate ((,class :inherit bold :foreground ,fg-main :background ,@(pcase modus-themes-completions ('opinionated (list bg-active)) (_ (list bg-inactive)))))) `(selectrum-primary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(selectrum-secondary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions cyan-alt-other cyan-nuanced-bg cyan-refine-bg cyan-refine-fg)))) ;;;;; selectrum-prescient `(selectrum-prescient-primary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(selectrum-prescient-secondary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions cyan-alt-other cyan-nuanced-bg cyan-refine-bg cyan-refine-fg)))) ;;;;; semantic `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) `(semantic-highlight-edits-face ((,class :background ,bg-alt))) `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) ;;;;; sesman `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) `(sesman-buffer-face ((,class :foreground ,magenta))) `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; shell-script-mode `(sh-heredoc ((,class :foreground ,blue-alt))) `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) ;;;;; shortdoc `(shortdoc-heading ((,class :inherit modus-theme-pseudo-header))) `(shortdoc-section ((,class))) ; remove the default's variable-pitch style ;;;;; show-paren-mode `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match bg-paren-match-intense) :foreground ,fg-main))) `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) ;;;;; shr `(shr-abbreviation ((,(append '((supports :underline (:style wave))) class) :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) (,class :foreground ,fg-docstring :underline t))) `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) ;;;;; side-notes `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) ;;;;; sieve-mode `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) ;;;;; skewer-mode `(skewer-error-face ((,class :foreground ,red :underline t))) ;;;;; smart-mode-line `(sml/charging ((,class :foreground ,green-active))) `(sml/discharging ((,class :foreground ,red-active))) `(sml/filename ((,class :inherit bold :foreground ,blue-active))) `(sml/folder ((,class :foreground ,fg-active))) `(sml/git ((,class :inherit bold :foreground ,green-active))) `(sml/global ((,class :foreground ,fg-active))) `(sml/line-number ((,class :inherit sml/global))) `(sml/minor-modes ((,class :inherit sml/global))) `(sml/modes ((,class :inherit bold :foreground ,fg-active))) `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) `(sml/mule-info ((,class :inherit sml/global))) `(sml/name-filling ((,class :foreground ,yellow-active))) `(sml/not-modified ((,class :inherit sml/global))) `(sml/numbers-separator ((,class :inherit sml/global))) `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) `(sml/position-percentage ((,class :inherit sml/global))) `(sml/prefix ((,class :foreground ,green-active))) `(sml/process ((,class :inherit sml/prefix))) `(sml/projectile ((,class :inherit sml/git))) `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) `(sml/remote ((,class :inherit sml/global))) `(sml/sudo ((,class :inherit modus-theme-subtle-red))) `(sml/time ((,class :inherit sml/global))) `(sml/vc ((,class :inherit sml/git))) `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) ;;;;; smartparens `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match bg-paren-match-intense) :foreground ,fg-main))) `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) ;;;;; smerge `(smerge-base ((,class :inherit modus-theme-diff-changed))) `(smerge-lower ((,class :inherit modus-theme-diff-added))) `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) `(smerge-refined-changed ((,class))) `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) `(smerge-upper ((,class :inherit modus-theme-diff-removed))) ;;;;; solaire `(solaire-default-face ((,class :inherit default :background ,bg-alt :foreground ,fg-dim))) `(solaire-line-number-face ((,class :inherit solaire-default-face :foreground ,fg-unfocused))) `(solaire-hl-line-face ((,class :background ,bg-active))) `(solaire-org-hide-face ((,class :background ,bg-alt :foreground ,bg-alt))) ;;;;; spaceline `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) `(spaceline-flycheck-error ((,class :foreground ,red-active))) `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) `(spaceline-python-venv ((,class :foreground ,magenta-active))) `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) ;;;;; speedbar `(speedbar-button-face ((,class :inherit button))) `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) `(speedbar-file-face ((,class :foreground ,fg-main))) `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) ;;;;; spell-fu `(spell-fu-incorrect-face ((,class :inherit modus-theme-lang-error))) ;;;;; stripes `(stripes ((,class :inherit modus-theme-hl-line))) ;;;;; success `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) ;;;;; switch-window `(switch-window-background ((,class :background ,bg-dim))) `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) ;;;;; swiper `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) `(swiper-line-face ((,class :inherit modus-theme-special-cold))) `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) ;;;;; swoop `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-3)))) `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) ;;;;; sx `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) `(sx-question-list-answers ((,class :foreground ,green))) `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) `(sx-question-list-date ((,class :foreground ,fg-special-cold))) `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) `(sx-question-list-parent ((,class :foreground ,fg-main))) `(sx-question-list-read-question ((,class :inherit shadow))) `(sx-question-list-score ((,class :foreground ,fg-special-mild))) `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) `(sx-question-mode-content-face ((,class :background ,bg-dim))) `(sx-question-mode-date ((,class :foreground ,blue))) `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) `(sx-question-mode-score ((,class :foreground ,fg-dim))) `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) `(sx-tag ((,class :foreground ,magenta-alt))) `(sx-user-name ((,class :foreground ,blue-alt))) `(sx-user-reputation ((,class :inherit shadow))) ;;;;; symbol-overlay `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) ;;;;; syslog-mode `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) `(syslog-error ((,class :inherit bold :foreground ,red))) `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) `(syslog-su ((,class :inherit bold :foreground ,red-alt))) `(syslog-warn ((,class :inherit bold :foreground ,yellow))) ;;;;; tab-bar-mode `(tab-bar ((,class ,@(modus-themes--variable-pitch-ui) :background ,bg-tab-bar :foreground ,fg-main))) `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) :background ,bg-tab-active :foreground ,fg-main))) `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) :background ,bg-tab-inactive :foreground ,fg-dim))) ;;;;; tab-line-mode `(tab-line ((,class ,@(modus-themes--variable-pitch-ui) :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) `(tab-line-close-highlight ((,class :foreground ,red))) `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) :background ,bg-tab-active :foreground ,fg-main))) `(tab-line-tab-current ((,class :inherit tab-line-tab))) `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) :background ,bg-tab-inactive :foreground ,fg-dim))) `(tab-line-tab-inactive-alternate ((,class :box (:line-width 2 :color ,bg-tab-inactive-alt) :background ,bg-tab-inactive-alt :foreground ,fg-main))) ;;;;; table (built-in table.el) `(table-cell ((,class :background ,blue-nuanced-bg))) ;;;;; telephone-line `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) `(telephone-line-evil ((,class :foreground ,fg-main))) `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) `(telephone-line-projectile ((,class :foreground ,cyan-active))) `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) ;;;;; terraform-mode `(terraform--resource-name-face ((,class ,@(modus-themes--syntax-string magenta-alt-other magenta-alt-other-faint red-alt red-alt)))) `(terraform--resource-type-face ((,class ,@(modus-themes--syntax-string green green-faint blue-alt magenta-alt)))) ;;;;; term `(term ((,class :background ,bg-main :foreground ,fg-main))) `(term-bold ((,class :inherit bold))) `(term-color-black ((,class :background "gray35" :foreground "gray35"))) `(term-color-blue ((,class :background ,blue :foreground ,blue))) `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) `(term-color-green ((,class :background ,green :foreground ,green))) `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) `(term-color-red ((,class :background ,red :foreground ,red))) `(term-color-white ((,class :background "gray65" :foreground "gray65"))) `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) `(term-underline ((,class :underline t))) ;;;;; tomatinho `(tomatinho-ok-face ((,class :foreground ,blue-intense))) `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) `(tomatinho-reset-face ((,class :inherit shadow))) ;;;;; transient `(transient-active-infix ((,class :inherit modus-theme-special-mild))) `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) `(transient-argument ((,class :inherit bold :foreground ,red-alt))) `(transient-blue ((,class :inherit bold :foreground ,blue))) `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) `(transient-heading ((,class :inherit bold :foreground ,fg-main))) `(transient-inactive-argument ((,class :inherit shadow))) `(transient-inactive-value ((,class :inherit shadow))) `(transient-key ((,class :inherit bold :foreground ,blue))) `(transient-mismatched-key ((,class :underline t))) `(transient-nonstandard-key ((,class :underline t))) `(transient-pink ((,class :inherit bold :foreground ,magenta))) `(transient-red ((,class :inherit bold :foreground ,red-intense))) `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) `(transient-unreachable ((,class :foreground ,fg-unfocused))) `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; trashed `(trashed-deleted ((,class :inherit modus-theme-mark-del))) `(trashed-directory ((,class :foreground ,blue))) `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) `(trashed-marked ((,class :inherit modus-theme-mark-alt))) `(trashed-restored ((,class :inherit modus-theme-mark-sel))) `(trashed-symlink ((,class :inherit button ,@(modus-themes--link-color cyan-alt cyan-alt-faint)))) ;;;;; treemacs `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) `(treemacs-directory-face ((,class :inherit dired-directory))) `(treemacs-file-face ((,class :foreground ,fg-main))) `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) `(treemacs-git-added-face ((,class :foreground ,green-intense))) `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) `(treemacs-git-ignored-face ((,class :inherit shadow))) `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) `(treemacs-tags-face ((,class :foreground ,blue-alt))) `(treemacs-tags-face ((,class :foreground ,magenta-alt))) ;;;;; tty-menu `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) ;;;;; tuareg `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground ,blue))) `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) `(tuareg-opam-error-face ((,class :inherit error))) `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) ;;;;; typescript `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) ;;;;; undo-tree `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) `(undo-tree-visualizer-default-face ((,class :inherit shadow))) `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) ;;;;; vc (vc-dir.el, vc-hooks.el) `(vc-dir-directory ((,class :foreground ,blue))) `(vc-dir-file ((,class :foreground ,fg-main))) `(vc-dir-header ((,class :foreground ,cyan-alt-other))) `(vc-dir-header-value ((,class :foreground ,magenta-alt-other))) `(vc-dir-mark-indicator ((,class :foreground ,blue-alt-other))) `(vc-dir-status-edited ((,class :foreground ,yellow))) `(vc-dir-status-ignored ((,class :foreground ,fg-unfocused))) `(vc-dir-status-up-to-date ((,class :foreground ,cyan))) `(vc-dir-status-warning ((,class :foreground ,red))) `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) `(vc-edited-state ((,class :foreground ,yellow-active))) `(vc-locally-added-state ((,class :foreground ,cyan-active))) `(vc-locked-state ((,class :foreground ,blue-active))) `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) `(vc-removed-state ((,class :foreground ,red-active))) `(vc-state-base ((,class :foreground ,fg-active))) `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) ;;;;; vdiff `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) ;;;;; vimish-fold `(vimish-fold-fringe ((,class :foreground ,cyan-active))) `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) ;;;;; visible-mark `(visible-mark-active ((,class :background ,blue-intense-bg))) `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) ;;;;; visual-regexp `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) `(vr/group-2 ((,class :inherit modus-theme-intense-green))) `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) ;;;;; volatile-highlights `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) ;;;;; vterm `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) `(vterm-color-green ((,class :background ,green :foreground ,green))) `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) `(vterm-color-red ((,class :background ,red :foreground ,red))) `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) ;;;;; wcheck-mode `(wcheck-default-face ((,class :foreground ,red :underline t))) ;;;;; web-mode `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) `(web-mode-block-face ((,class :background ,bg-dim))) `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) `(web-mode-bold-face ((,class :inherit bold))) `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) `(web-mode-folded-face ((,class :underline t))) `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) `(web-mode-inlay-face ((,class :background ,bg-alt))) `(web-mode-italic-face ((,class :inherit italic))) `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-part-face ((,class :inherit web-mode-block-face))) `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) `(web-mode-script-face ((,class :inherit web-mode-part-face))) `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) `(web-mode-string-face ((,class :inherit font-lock-string-face))) `(web-mode-style-face ((,class :inherit web-mode-part-face))) `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) `(web-mode-underline-face ((,class :underline t))) `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) ;;;;; wgrep `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) `(wgrep-face ((,class :inherit modus-theme-refine-green))) `(wgrep-file-face ((,class :foreground ,fg-special-warm))) `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) ;;;;; which-function-mode `(which-func ((,class :foreground ,magenta-active))) ;;;;; which-key `(which-key-command-description-face ((,class :foreground ,fg-main))) `(which-key-group-description-face ((,class :foreground ,magenta-alt))) `(which-key-highlighted-command-face ((,class :foreground ,yellow :underline t))) `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) `(which-key-local-map-description-face ((,class :foreground ,fg-main))) `(which-key-note-face ((,class :foreground ,fg-special-warm))) `(which-key-separator-face ((,class :inherit shadow))) `(which-key-special-key-face ((,class :inherit bold :foreground ,orange-intense))) ;;;;; whitespace-mode `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-line ((,class :background ,bg-alt))) `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) ;;;;; window-divider-mode `(window-divider ((,class :foreground ,fg-window-divider-inner))) `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) ;;;;; winum `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; writegood-mode `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) `(writegood-passive-voice-face ((,class :inherit modus-theme-lang-warning))) `(writegood-weasels-face ((,class :inherit modus-theme-lang-error))) ;;;;; woman `(woman-addition ((,class :foreground ,magenta-alt-other))) `(woman-bold ((,class :inherit bold :foreground ,magenta))) `(woman-italic ((,class :inherit italic :foreground ,cyan))) `(woman-unknown ((,class :inherit italic :foreground ,yellow))) ;;;;; xah-elisp-mode `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) ;;;;; xref `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) `(xref-line-number ((,class :inherit shadow))) `(xref-match ((,class :inherit match))) ;;;;; yaml-mode `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) ;;;;; yasnippet `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) ;;;;; ztree `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) `(ztreep-diff-model-add-face ((,class :foreground ,green))) `(ztreep-diff-model-diff-face ((,class :foreground ,red))) `(ztreep-diff-model-ignored-face ((,class :inherit shadow :strike-through t))) `(ztreep-diff-model-normal-face ((,class :inherit shadow))) `(ztreep-expand-sign-face ((,class :foreground ,blue))) `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) `(ztreep-leaf-face ((,class :foreground ,cyan))) `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) `(ztreep-node-face ((,class :foreground ,fg-main)))) "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"]) ;;;; awesome-tray `(awesome-tray-mode-line-active-color ,blue) `(awesome-tray-mode-line-inactive-color ,bg-active) ;;;; exwm `(exwm-floating-border-color ,fg-window-divider-inner) ;;;; flymake fringe indicators `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) ;;;; ibuffer `(ibuffer-deletion-face 'modus-theme-mark-del) `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) `(ibuffer-marked-face 'modus-theme-mark-sel) `(ibuffer-title-face 'modus-theme-pseudo-header) ;;;; highlight-tail `(highlight-tail-colors '((,green-subtle-bg . 0) (,cyan-subtle-bg . 20))) ;;;; hl-todo `(hl-todo-keyword-faces '(("HOLD" . ,yellow-alt) ("TODO" . ,magenta) ("NEXT" . ,magenta-alt-other) ("THEM" . ,magenta-alt) ("PROG" . ,cyan) ("OKAY" . ,cyan-alt) ("DONT" . ,green-alt) ("FAIL" . ,red) ("BUG" . ,red) ("DONE" . ,green) ("NOTE" . ,yellow-alt-other) ("KLUDGE" . ,yellow) ("HACK" . ,yellow) ("TEMP" . ,red-nuanced-fg) ("FIXME" . ,red-alt-other) ("XXX+" . ,red-alt) ("REVIEW" . ,cyan-alt-other) ("DEPRECATED" . ,blue-nuanced-fg))) ;;;; pdf-tools `(pdf-view-midnight-colors '(,fg-main . ,bg-dim)) ;;;; vc-annotate (C-x v g) `(vc-annotate-background nil) `(vc-annotate-background-mode nil) `(vc-annotate-color-map '((20 . ,red) (40 . ,magenta) (60 . ,magenta-alt) (80 . ,red-alt) (100 . ,yellow) (120 . ,yellow-alt) (140 . ,fg-special-warm) (160 . ,fg-special-mild) (180 . ,green) (200 . ,green-alt) (220 . ,cyan-alt-other) (240 . ,cyan-alt) (260 . ,cyan) (280 . ,fg-special-cold) (300 . ,blue) (320 . ,blue-alt) (340 . ,blue-alt-other) (360 . ,magenta-alt-other))) `(vc-annotate-very-old-color nil) ;;;; xterm-color `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) (if (eq modus-themes-org-blocks 'rainbow) `(org-src-block-faces ; TODO this list should be expanded `(("emacs-lisp" modus-theme-nuanced-magenta) ("elisp" modus-theme-nuanced-magenta) ("clojure" modus-theme-nuanced-magenta) ("clojurescript" modus-theme-nuanced-magenta) ("c" modus-theme-nuanced-blue) ("c++" modus-theme-nuanced-blue) ("sh" modus-theme-nuanced-green) ("shell" modus-theme-nuanced-green) ("html" modus-theme-nuanced-yellow) ("xml" modus-theme-nuanced-yellow) ("css" modus-theme-nuanced-red) ("scss" modus-theme-nuanced-red) ("python" modus-theme-nuanced-green) ("ipython" modus-theme-nuanced-magenta) ("r" modus-theme-nuanced-cyan) ("yaml" modus-theme-nuanced-cyan) ("conf" modus-theme-nuanced-cyan) ("docker" modus-theme-nuanced-cyan))) `(org-src-block-faces '()))) "Custom variables for `modus-themes-theme'.") ;;;###autoload (when (and (boundp 'custom-theme-load-path) load-file-name) (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) (provide 'modus-themes) ;;; modus-themes.el ends here [-- Attachment #4: modus-vivendi-theme.el --] [-- Type: text/plain, Size: 2534 bytes --] ;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.1.1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi ;; is the light one). The themes are designed for color-contrast ;; accessibility. More specifically: ;; ;; 1. Provide a consistent minimum contrast ratio between background ;; and foreground values of 7:1 or higher. This meets the highest ;; such accessibility criterion per the guidelines of the Worldwide ;; Web Consortium's Working Group on Accessibility (WCAG AAA ;; standard). ;; ;; 2. Offer as close to full face coverage as possible. The list is ;; already quite long, with more additions to follow as part of the ;; ongoing development process. ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-themes.el (Main code shared between the themes) ;; - modus-operandi-theme.el (Light theme) ;;; Code: \f (if (>= emacs-major-version 28) (require-theme 'modus-themes) (require 'modus-themes)) (deftheme modus-vivendi "Accessible and customizable light theme (WCAG AAA standard). Conforms with the highest legibility standard for color contrast between background and foreground in any given piece of text, which corresponds to a minimum contrast in relative luminance of 7:1.") (modus-themes-theme modus-vivendi) (provide-theme 'modus-vivendi) (provide 'modus-vivendi-theme) ;;; modus-vivendi-theme.el ends here ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 10:32 ` Basil L. Contovounesios 2021-03-02 10:59 ` Protesilaos Stavrou @ 2021-03-02 11:03 ` Mauro Aranda 2021-03-02 11:38 ` Basil L. Contovounesios 2021-03-03 16:31 ` Basil L. Contovounesios 2 siblings, 1 reply; 83+ messages in thread From: Mauro Aranda @ 2021-03-02 11:03 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Protesilaos Stavrou, 45068 "Basil L. Contovounesios" <contovob@tcd.ie> writes: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> On 2021-03-01, 23:34 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: >>> BTW, do we need to warn anywhere that require-theme may unconditionally >>> load files from custom-theme-load-path, or somehow protect against this? >> >> That would be consistent with load-theme. > > Right, but I'm wondering whether require-theme ought to be consistent in > this regard. > > load-theme is a user-level command, and arbitrary themes are considered > risky Lisp, so it has to (conditionally) display the code and ask the > user if they think it looks okay. > > require-theme, OTOH, sounds like it's a behind-the-scenes noninteractive > plumbing function to be used by themes themselves, so wouldn't the user > be prompted twice if a theme called require-theme on an element of > custom-available-themes? IOW, it seems to me like require-theme's > "safety" should already be handled/covered by the theme using it. I was the one that raised the question about loading a theme via require-theme unconditionally (Protesilaos had a NO-CONFIRM non-nil in one of the early versions of the patch), so if that bit of the patch is wrong I'm the one to blame. I'll just say that I raised the question because (usually) theme files are just settings, so for a user to check the safety it is normally enough to go through the custom-theme-set-* functions and see what the theme is setting. Now the user would be asked to check a require-theme call for its safety, and since a call to require-theme looks a lot like require, it might not be obvious that it can load (and enable) any theme it wants. And if a theme uses require-theme to do that, it can "hide" the "unsafe theme" settings, because the first element of custom-enabled-themes will just be the "safe" theme. Those were my reasons, feel free to ignore them if you think they make no sense. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 11:03 ` Mauro Aranda @ 2021-03-02 11:38 ` Basil L. Contovounesios 2021-03-02 11:56 ` Mauro Aranda 0 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-02 11:38 UTC (permalink / raw) To: Mauro Aranda; +Cc: Protesilaos Stavrou, 45068 Mauro Aranda <maurooaranda@gmail.com> writes: > I'll just say that I raised the question because (usually) theme files > are just settings, so for a user to check the safety it is normally > enough to go through the custom-theme-set-* functions and see what the > theme is setting. Now the user would be asked to check a require-theme > call for its safety, and since a call to require-theme looks a lot like > require, it might not be obvious that it can load (and enable) any theme > it wants. I'm suggesting that require-theme never enables any themes. And to the eyes of the user, it would be no different than a call to require or load, which we already don't warn a second time about. > And if a theme uses require-theme to do that, it can "hide" > the "unsafe theme" settings, because the first element of > custom-enabled-themes will just be the "safe" theme. Sorry, I'm not sure what you mean, could you please elaborate on the steps involved? > Those were my reasons, feel free to ignore them if you think they make > no sense. I doubt that's the case :). Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 11:38 ` Basil L. Contovounesios @ 2021-03-02 11:56 ` Mauro Aranda 0 siblings, 0 replies; 83+ messages in thread From: Mauro Aranda @ 2021-03-02 11:56 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: info, 45068 "Basil L. Contovounesios" <contovob@tcd.ie> writes: > Mauro Aranda <maurooaranda@gmail.com> writes: > >> I'll just say that I raised the question because (usually) theme files >> are just settings, so for a user to check the safety it is normally >> enough to go through the custom-theme-set-* functions and see what the >> theme is setting. Now the user would be asked to check a require-theme >> call for its safety, and since a call to require-theme looks a lot like >> require, it might not be obvious that it can load (and enable) any theme >> it wants. > > I'm suggesting that require-theme never enables any themes. And to the > eyes of the user, it would be no different than a call to require or > load, which we already don't warn a second time about. Then there's no reason for me to worry at all. >> And if a theme uses require-theme to do that, it can "hide" >> the "unsafe theme" settings, because the first element of >> custom-enabled-themes will just be the "safe" theme. > > Sorry, I'm not sure what you mean, could you please elaborate on the > steps involved? With the require-theme posted that included a (load-theme t) call, I thought about the following steps: The user enables super-safe-theme which hasn't been marked as safe. The theme has a call to require-theme: (require-theme 'should-be-safe-theme) and the user thinks it's fine because should-be-safe-theme comes from the same author as super-safe-theme. The user doesn't check should-be-safe-theme.el (shame on him), and is neither prompted because of the NO-CONFIRM non-nil. should-be-safe-theme.el has this call: (require-theme 'not-so-safe-theme) and the user is again not prompted for this theme. After all the loading and enabling, custom-enabled-themes looks like this: (super-safe should-be-safe not-so-safe) and it's not entirely obvious which setting came from which theme. Of course all of this is already possible, but the theme has to put a (load-theme t) call in front of the user eyes. But anyway, if you're thinking about a require-theme that never enables any theme, this is not relevant anymore. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-02 10:32 ` Basil L. Contovounesios 2021-03-02 10:59 ` Protesilaos Stavrou 2021-03-02 11:03 ` Mauro Aranda @ 2021-03-03 16:31 ` Basil L. Contovounesios 2021-03-03 18:06 ` Protesilaos Stavrou 2021-03-04 12:32 ` Mauro Aranda 2 siblings, 2 replies; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-03 16:31 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Mauro Aranda, 45068 [-- Attachment #1: Type: text/plain, Size: 147 bytes --] "Basil L. Contovounesios" <contovob@tcd.ie> writes: > I'll suggest a patch soon to help the discussion. How's the attached? Thanks, -- Basil [-- Warning: decoded text below may be mangled, UTF-8 assumed --] [-- Attachment #2: 0001-Decouple-require-theme-from-load-theme.patch --] [-- Type: text/x-diff, Size: 15261 bytes --] From 89c356e0ae18fd265a0992a6767289e267410a26 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" <contovob@tcd.ie> Date: Tue, 2 Mar 2021 14:35:50 +0000 Subject: [PATCH] Decouple require-theme from load-theme * lisp/custom.el (require-theme): Refashion after 'require', as a function for loading only named features. Do not call load-theme (bug#45068). * etc/NEWS: Update its announcement accordingly. * doc/lispref/customize.texi (Custom Themes): Document it. * etc/themes/modus-operandi-theme.el: * etc/themes/modus-vivendi-theme.el: Remove redundant calls to 'provide'. * test/lisp/custom-tests.el (custom-tests--with-temp-dir): New macro. (custom-theme--load-path): Use it. (custom-tests-require-theme): New test. --- doc/lispref/customize.texi | 26 ++++- etc/NEWS | 8 +- etc/themes/modus-operandi-theme.el | 2 - etc/themes/modus-vivendi-theme.el | 2 - lisp/custom.el | 40 ++++---- test/lisp/custom-tests.el | 150 ++++++++++++++++++----------- 6 files changed, 144 insertions(+), 84 deletions(-) diff --git a/doc/lispref/customize.texi b/doc/lispref/customize.texi index 8fd12f7902..bc35982c17 100644 --- a/doc/lispref/customize.texi +++ b/doc/lispref/customize.texi @@ -1474,7 +1474,7 @@ Custom Themes displays the source file and asks for confirmation from the user before loading any non-built-in theme for the first time. As such, themes are not ordinarily byte-compiled, and source files -always take precedence when Emacs is looking for a theme to load. +usually take precedence when Emacs is looking for a theme to load. The following functions are useful for programmatically enabling and disabling themes: @@ -1508,6 +1508,30 @@ Custom Themes @var{no-confirm} is non-@code{nil}. @end deffn +@defun require-theme feature &optional noerror +This function searches @code{custom-theme-load-path} for a file that +provides @var{feature} and then loads it. This is like the function +@code{require} (@pxref{Named Features}), except it searches +@code{custom-theme-load-path} instead of @code{load-path} +(@pxref{Library Search}). This can be useful in Custom themes that +need to load supporting Lisp files when @code{require} is unsuitable +for that. + +If @var{feature}, which should be a symbol, is not already present in +the current Emacs session according to @code{featurep}, then +@code{require-theme} searches for a file named @var{feature} with an +added @samp{.elc} or @samp{.el} suffix, in that order, in the +directories specified by @code{custom-theme-load-path}. + +If a file providing @var{feature} is successfully found and loaded, +then @code{require-theme} returns @var{feature}. The optional +argument @var{noerror} determines what happens if the search or +loading fails. If it is @code{nil}, the function signals an error; +otherwise, it returns @code{nil}. If the file loads successfully but +does not provide @var{feature}, then @code{require-theme} signals an +error; this cannot be suppressed. +@end defun + @deffn Command enable-theme theme This function enables the Custom theme named @var{theme}. It signals an error if no such theme has been loaded. diff --git a/etc/NEWS b/etc/NEWS index 73f136cfa7..c794597de5 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2511,11 +2511,11 @@ region's (or buffer's) end. This function can be used by modes to add elements to the 'choice' customization type of a variable. ---- ++++ ** New function 'require-theme'. -This function is used to load a theme or library stored in the -'custom-theme-load-path'. It is intended to work as a substitute for -'require' in those cases where that cannot be used. +This function is like 'require', but searches 'custom-theme-load-path' +instead of 'load-path'. It can be used by Custom themes to load +supporting Lisp files when 'require' is unsuitable. +++ ** New function 'file-modes-number-to-symbolic' to convert a numeric diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el index 346000a093..9d6e9ad50f 100644 --- a/etc/themes/modus-operandi-theme.el +++ b/etc/themes/modus-operandi-theme.el @@ -4661,6 +4661,4 @@ modus-operandi-theme-scale (provide-theme 'modus-operandi) -(provide 'modus-operandi-theme) - ;;; modus-operandi-theme.el ends here diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el index 73f07d644b..171313244b 100644 --- a/etc/themes/modus-vivendi-theme.el +++ b/etc/themes/modus-vivendi-theme.el @@ -4661,6 +4661,4 @@ modus-vivendi-theme-scale (provide-theme 'modus-vivendi) -(provide 'modus-vivendi-theme) - ;;; modus-vivendi-theme.el ends here diff --git a/lisp/custom.el b/lisp/custom.el index 35ac4d8564..b9fccce583 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1200,29 +1200,31 @@ provide-theme (custom-check-theme theme) (provide (get theme 'theme-feature))) -(defun require-theme (theme &optional path) - "Load THEME stored in `custom-theme-load-path'. +(defun require-theme (feature &optional noerror) + "Load FEATURE from a file along `custom-theme-load-path'. -THEME is a symbol that corresponds to the file name without its file -type extension. That is assumed to be either '.el' or '.elc'. +This function is like `require', but searches along +`custom-theme-load-path' instead of `load-path'. It can be used +by Custom themes to load supporting Lisp files when `require' is +unsuitable. -When THEME is an element of `custom-available-themes', load it and ask -for confirmation if it is not considered safe by `custom-safe-themes'. -Otherwise load the file indicated by THEME, if present. In the latter -case, the file is intended to work as the basis of a theme declared -with `deftheme'. +If FEATURE is not already loaded, search for a file named FEATURE +with an added `.elc' or `.el' suffix, in that order, in the +directories specified by `custom-theme-load-path'. -If optional PATH is non-nil, it should be a list of directories -to search for THEME in, instead of `custom-theme-load-path'. -PATH should have the same form as `load-path' or `exec-path'." +Return FEATURE if the file is successfully found and loaded, or +if FEATURE was already loaded. If the file fails to load, signal +an error. If optional argument NOERROR is non-nil, return nil +instead of signaling an error. If the file loads but does not +provide FEATURE, signal an error. This cannot be suppressed." (cond - ((memq theme (custom-available-themes)) - (load-theme theme)) - ((let* ((dirs (or path (custom-theme--load-path))) - (file (unless (featurep theme) - (locate-file (symbol-name theme) dirs '(".el" ".elc"))))) - (when file - (load-file file)))))) + ((featurep feature) feature) + ((let* ((path (custom-theme--load-path)) + (file (locate-file (symbol-name feature) path '(".elc" ".el")))) + (and file (require feature (file-name-sans-extension file) noerror)))) + ((not noerror) + (let (load-path) + (require feature))))) (defcustom custom-safe-themes '(default) "Themes that are considered safe to load. diff --git a/test/lisp/custom-tests.el b/test/lisp/custom-tests.el index 09f79c1a08..02a9239824 100644 --- a/test/lisp/custom-tests.el +++ b/test/lisp/custom-tests.el @@ -24,70 +24,108 @@ (require 'wid-edit) (require 'cus-edit) -(require 'seq) ; For `seq-find'. + +(defmacro custom-tests--with-temp-dir (&rest body) + "Eval BODY with `temporary-file-directory' bound to a fresh directory. +Ensure the directory is recursively deleted after the fact." + (declare (debug t) (indent 0)) + (let ((dir (make-symbol "dir"))) + `(let ((,dir (file-name-as-directory (make-temp-file "custom-tests-" t)))) + (unwind-protect + (let ((temporary-file-directory ,dir)) + ,@body) + (delete-directory ,dir t))))) (ert-deftest custom-theme--load-path () "Test `custom-theme--load-path' behavior." - (let ((tmpdir (file-name-as-directory (make-temp-file "custom-tests-" t)))) - (unwind-protect - ;; Create all temporary files under the same deletable parent. - (let ((temporary-file-directory tmpdir)) - ;; Path is empty. - (let ((custom-theme-load-path ())) - (should (null (custom-theme--load-path)))) + (custom-tests--with-temp-dir + ;; Path is empty. + (let ((custom-theme-load-path ())) + (should (null (custom-theme--load-path)))) - ;; Path comprises non-existent file. - (let* ((name (make-temp-name tmpdir)) - (custom-theme-load-path (list name))) - (should (not (file-exists-p name))) - (should (null (custom-theme--load-path)))) + ;; Path comprises non-existent file. + (let* ((name (make-temp-name temporary-file-directory)) + (custom-theme-load-path (list name))) + (should (not (file-exists-p name))) + (should (null (custom-theme--load-path)))) - ;; Path comprises existing file. - (let* ((file (make-temp-file "file")) - (custom-theme-load-path (list file))) - (should (file-exists-p file)) - (should (not (file-directory-p file))) - (should (null (custom-theme--load-path)))) + ;; Path comprises existing file. + (let* ((file (make-temp-file "file")) + (custom-theme-load-path (list file))) + (should (file-exists-p file)) + (should (not (file-directory-p file))) + (should (null (custom-theme--load-path)))) - ;; Path comprises existing directory. - (let* ((dir (make-temp-file "dir" t)) - (custom-theme-load-path (list dir))) - (should (file-directory-p dir)) - (should (equal (custom-theme--load-path) custom-theme-load-path))) + ;; Path comprises existing directory. + (let* ((dir (make-temp-file "dir" t)) + (custom-theme-load-path (list dir))) + (should (file-directory-p dir)) + (should (equal (custom-theme--load-path) custom-theme-load-path))) - ;; Expand `custom-theme-directory' path element. - (let ((custom-theme-load-path '(custom-theme-directory))) - (let ((custom-theme-directory (make-temp-name tmpdir))) - (should (not (file-exists-p custom-theme-directory))) - (should (null (custom-theme--load-path)))) - (let ((custom-theme-directory (make-temp-file "file"))) - (should (file-exists-p custom-theme-directory)) - (should (not (file-directory-p custom-theme-directory))) - (should (null (custom-theme--load-path)))) - (let ((custom-theme-directory (make-temp-file "dir" t))) - (should (file-directory-p custom-theme-directory)) - (should (equal (custom-theme--load-path) - (list custom-theme-directory))))) + ;; Expand `custom-theme-directory' path element. + (let ((custom-theme-load-path '(custom-theme-directory))) + (let ((custom-theme-directory (make-temp-name temporary-file-directory))) + (should (not (file-exists-p custom-theme-directory))) + (should (null (custom-theme--load-path)))) + (let ((custom-theme-directory (make-temp-file "file"))) + (should (file-exists-p custom-theme-directory)) + (should (not (file-directory-p custom-theme-directory))) + (should (null (custom-theme--load-path)))) + (let ((custom-theme-directory (make-temp-file "dir" t))) + (should (file-directory-p custom-theme-directory)) + (should (equal (custom-theme--load-path) + (list custom-theme-directory))))) - ;; Expand t path element. - (let ((custom-theme-load-path '(t))) - (let ((data-directory (make-temp-name tmpdir))) - (should (not (file-exists-p data-directory))) - (should (null (custom-theme--load-path)))) - (let ((data-directory tmpdir) - (themedir (expand-file-name "themes" tmpdir))) - (should (not (file-exists-p themedir))) - (should (null (custom-theme--load-path))) - (with-temp-file themedir) - (should (file-exists-p themedir)) - (should (not (file-directory-p themedir))) - (should (null (custom-theme--load-path))) - (delete-file themedir) - (make-directory themedir) - (should (file-directory-p themedir)) - (should (equal (custom-theme--load-path) (list themedir)))))) - (when (file-directory-p tmpdir) - (delete-directory tmpdir t))))) + ;; Expand t path element. + (let ((custom-theme-load-path '(t))) + (let ((data-directory (make-temp-name temporary-file-directory))) + (should (not (file-exists-p data-directory))) + (should (null (custom-theme--load-path)))) + (let ((data-directory temporary-file-directory) + (themedir (expand-file-name "themes" temporary-file-directory))) + (should (not (file-exists-p themedir))) + (should (null (custom-theme--load-path))) + (with-temp-file themedir) + (should (file-exists-p themedir)) + (should (not (file-directory-p themedir))) + (should (null (custom-theme--load-path))) + (delete-file themedir) + (make-directory themedir) + (should (file-directory-p themedir)) + (should (equal (custom-theme--load-path) (list themedir))))))) + +(ert-deftest custom-tests-require-theme () + "Test `require-theme'." + (custom-tests--with-temp-dir + (let* ((default-directory temporary-file-directory) + (custom-theme-load-path (list default-directory)) + (load-path ())) + ;; Generate some `.el' and `.elc' files. + (with-temp-file "custom-tests--a.el" + (insert "(provide 'custom-tests--a)")) + (make-empty-file "custom-tests--b.el") + (with-temp-file "custom-tests--b.elc" + (byte-compile-insert-header nil (current-buffer)) + (insert "(provide 'custom-tests--b)")) + (make-empty-file "custom-tests--c.el") + (with-temp-file "custom-tests--d.elc" + (byte-compile-insert-header nil (current-buffer))) + ;; Load them. + (dolist (feature '(a b c d e)) + (should-not (featurep (intern (format "custom-tests--%s" feature))))) + (should (eq (require-theme 'custom-tests--a) 'custom-tests--a)) + (delete-file "custom-tests--a.el") + (dolist (feature '(custom-tests--a custom-tests--b)) + (should (eq (require-theme feature) feature)) + (should (featurep feature))) + (dolist (feature '(custom-tests--c custom-tests--d)) + (dolist (noerror '(nil t)) + (let ((err (should-error (require-theme feature noerror)))) + (should (string-search "failed to provide feature" (cadr err)))))) + (should-error (require-theme 'custom-tests--e) :type 'file-missing) + (should-not (require-theme 'custom-tests--e t)) + (dolist (feature '(custom-tests--c custom-tests--d custom-tests--e)) + (should-not (featurep feature)))))) (defcustom custom--test-user-option 'foo "User option for test." -- 2.30.1 ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-03 16:31 ` Basil L. Contovounesios @ 2021-03-03 18:06 ` Protesilaos Stavrou 2021-03-04 2:04 ` Basil L. Contovounesios 2021-03-04 12:32 ` Mauro Aranda 1 sibling, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-03 18:06 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Mauro Aranda, 45068 On 2021-03-03, 16:31 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > "Basil L. Contovounesios" <contovob@tcd.ie> writes: > >> I'll suggest a patch soon to help the discussion. > > How's the attached? > > Thanks, I applied it and it works for what I want to do. The decoupling feels more appropriate. The major difference I see between evaluating 'require-theme' and 'require' forms is that the latter errors with a backtrace buffer, while the former logs a message. Compare those: (require 'give-me-error) (require-theme 'give-me-error) At any rate, tomorrow I will share with you the new version of my themes and their manual. Thank you! -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-03 18:06 ` Protesilaos Stavrou @ 2021-03-04 2:04 ` Basil L. Contovounesios 2021-03-04 4:53 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-04 2:04 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Mauro Aranda, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > I applied it and it works for what I want to do. The decoupling feels > more appropriate. Thanks for reviewing it. > The major difference I see between evaluating 'require-theme' and > 'require' forms is that the latter errors with a backtrace buffer, while > the former logs a message. > > Compare those: > > (require 'give-me-error) > (require-theme 'give-me-error) Hm, how are you evaluating them? Here's what I tried: 0. ./src/emacs -Q 1. (require 'give-me-error) C-j Debugger entered--Lisp error: (file-missing "Cannot open load file" "No such file or directory" "give-me-error") require(give-me-error) (progn (require 'give-me-error)) eval((progn (require 'give-me-error)) t) elisp--eval-last-sexp(t) eval-last-sexp(t) eval-print-last-sexp(nil) funcall-interactively(eval-print-last-sexp nil) call-interactively(eval-print-last-sexp nil nil) command-execute(eval-print-last-sexp) 2. q 3. (require-theme 'give-me-error) C-j Debugger entered--Lisp error: (file-missing "Cannot open load file" "No such file or directory" "give-me-error") require(give-me-error) require-theme(give-me-error) (progn (require-theme 'give-me-error)) eval((progn (require-theme 'give-me-error)) t) elisp--eval-last-sexp(t) eval-last-sexp(t) eval-print-last-sexp(nil) funcall-interactively(eval-print-last-sexp nil) call-interactively(eval-print-last-sexp nil nil) command-execute(eval-print-last-sexp) The patch implements require-theme in terms of require, so even the error symbol and data should be identical. > At any rate, tomorrow I will share with you the new version of my themes > and their manual. I look forward to it. Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 2:04 ` Basil L. Contovounesios @ 2021-03-04 4:53 ` Protesilaos Stavrou 0 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-04 4:53 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Mauro Aranda, 45068 On 2021-03-04, 02:04 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> I applied it and it works for what I want to do. The decoupling feels >> more appropriate. > > Thanks for reviewing it. You are welcome! >> The major difference I see between evaluating 'require-theme' and >> 'require' forms is that the latter errors with a backtrace buffer, while >> the former logs a message. >> >> Compare those: >> >> (require 'give-me-error) >> (require-theme 'give-me-error) > > Hm, how are you evaluating them? Here's what I tried: > > [...] > > The patch implements require-theme in terms of require, > so even the error symbol and data should be identical. My bad! I was trying the patch in emacs -Q and then went to my unpatched Emacs' scratch buffer... >> At any rate, tomorrow I will share with you the new version of my themes >> and their manual. > > I look forward to it. Will finalise the changelog entry and update this thread. Probably within 8 hours or so. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-03 16:31 ` Basil L. Contovounesios 2021-03-03 18:06 ` Protesilaos Stavrou @ 2021-03-04 12:32 ` Mauro Aranda 2021-03-04 14:54 ` bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou 2021-03-04 15:47 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Basil L. Contovounesios 1 sibling, 2 replies; 83+ messages in thread From: Mauro Aranda @ 2021-03-04 12:32 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: Protesilaos Stavrou, 45068 "Basil L. Contovounesios" <contovob@tcd.ie> writes: > "Basil L. Contovounesios" <contovob@tcd.ie> writes: > >> I'll suggest a patch soon to help the discussion. > > How's the attached? > > Thanks, LGTM, thank you. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) 2021-03-04 12:32 ` Mauro Aranda @ 2021-03-04 14:54 ` Protesilaos Stavrou 2021-03-04 16:53 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda 2021-03-04 18:41 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios 2021-03-04 15:47 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Basil L. Contovounesios 1 sibling, 2 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-04 14:54 UTC (permalink / raw) To: Mauro Aranda; +Cc: Basil L. Contovounesios, 45068 [-- Attachment #1: Type: text/plain, Size: 833 bytes --] On 2021-03-04, 09:32 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > "Basil L. Contovounesios" <contovob@tcd.ie> writes: > >> "Basil L. Contovounesios" <contovob@tcd.ie> writes: >> >>> I'll suggest a patch soon to help the discussion. >> >> How's the attached? >> >> Thanks, > > LGTM, thank you. Hello again! As noted earlier, please find attached the patch that upgrades the themes to their newest version 1.2.0. I tested it with Basil's latest patch for 'require-theme', though it still works with the variant of that function currently in trunk. For your convenience, I also attach a note that I intend to post on emacs-devel: it warns about the minor backward-incompatible refactoring of some symbols and offers an overview of what is now available. Thank you once more! Prot -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: 0001-Update-Modus-themes-to-their-version-1.2.0.patch --] [-- Type: text/x-patch, Size: 1084117 bytes --] From d81dc6ef06982fb05c9f660460830d96e2684725 Mon Sep 17 00:00:00 2001 Message-Id: <d81dc6ef06982fb05c9f660460830d96e2684725.1614867671.git.info@protesilaos.com> From: Protesilaos Stavrou <info@protesilaos.com> Date: Thu, 4 Mar 2021 16:20:15 +0200 Subject: [PATCH] Update Modus themes to their version 1.2.0 * doc/misc/modus-themes.org: Add new version of the manual, with changes to markup and references to the latest state of the project. * etc/themes/modus-vivendi-theme.el: * etc/themes/modus-operandi-theme.el: Provide updated version of each theme, which expands the contents of 'modus-themes.el'. * etc/themes/modus-themes.el: Add new supportive file. This is where theme data, functions, and face definitions are defined. --- doc/misc/modus-themes.org | 3261 +++++++++----- etc/themes/modus-operandi-theme.el | 4672 +------------------- etc/themes/modus-themes.el | 6441 ++++++++++++++++++++++++++++ etc/themes/modus-vivendi-theme.el | 4672 +------------------- 4 files changed, 8807 insertions(+), 10239 deletions(-) create mode 100644 etc/themes/modus-themes.el diff --git a/doc/misc/modus-themes.org b/doc/misc/modus-themes.org index 4a6150cf9d..f0c9f3ab22 100644 --- a/doc/misc/modus-themes.org +++ b/doc/misc/modus-themes.org @@ -1,30 +1,51 @@ -#+TITLE: Modus themes for GNU Emacs -#+AUTHOR: Protesilaos Stavrou -#+EMAIL: info@protesilaos.com -#+TEXINFO_DIR_CATEGORY: Emacs misc features -#+TEXINFO_DIR_TITLE: Modus Themes: (modus-themes) -#+TEXINFO_DIR_DESC: Highly accessible themes (WCAG AAA) -#+OPTIONS: ':t toc:nil author:t email:t -#+MACRO: version-tag 0.13.0 -#+MACRO: release-date 2020-10-08 +#+title: Modus themes for GNU Emacs +#+author: Protesilaos Stavrou +#+email: info@protesilaos.com +#+language: en +#+options: ':t toc:nil author:t email:t + +#+macro: stable-version 1.2.0 +#+macro: release-date 2021-03-04 +#+macro: development-version 1.3.0-dev +#+macro: export-date (eval (format-time-string "%F %R %z" (current-time))) +#+macro: file @@texinfo:@file{@@$1@@texinfo:}@@ +# The "kbd" macro turns KBD into @kbd{KBD}. Additionally, it +# encloses case-sensitive special keys (SPC, RET...) within @key{...}. +# I got this from the Org source code. +#+macro: kbd (eval (let ((case-fold-search nil) (regexp (regexp-opt '("SPC" "RET" "LFD" "TAB" "BS" "ESC" "DELETE" "SHIFT" "Ctrl" "Meta" "Alt" "Cmd" "Super" "UP" "LEFT" "RIGHT" "DOWN") 'words))) (format "@@texinfo:@kbd{@@%s@@texinfo:}@@" (replace-regexp-in-string regexp "@@texinfo:@key{@@\\&@@texinfo:}@@" $1 t)))) + +#+texinfo_filename: modus-themes.info +#+texinfo_dir_category: Emacs misc features +#+texinfo_dir_title: Modus Themes: (modus-themes) +#+texinfo_dir_desc: Highly accessible themes (WCAG AAA) +#+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer webpage} +#+texinfo_header: @set MAINTAINER Protesilaos Stavrou +#+texinfo_header: @set MAINTAINEREMAIL @email{info@protesilaos.com} +#+texinfo_header: @set MAINTAINERCONTACT @uref{mailto:info@protesilaos.com,contact the maintainer} #+texinfo: @insertcopying This manual, written by Protesilaos Stavrou, describes the customization -options for the =modus-operandi= and =modus-vivendi= themes, and provides +options for the ~modus-operandi~ and ~modus-vivendi~ themes, and provides every other piece of information pertinent to them. -The documentation furnished herein corresponds to version {{{version-tag}}}, -released on {{{release-date}}}. Any reference to a newer feature which does -not yet form part of the latest tagged commit, is explicitly marked as -such. +The documentation furnished herein corresponds to stable version +{{{stable-version}}}, released on {{{release-date}}}. Any reference to a newer +feature which does not yet form part of the latest tagged commit, is +explicitly marked as such. -* Copying -:PROPERTIES: -:copying: t -:END: +# Current development target is {{{development-version}}}. This manual was +# built on {{{export-date}}}. -Copyright (C) 2020--2021 Free Software Foundation, Inc. +#+toc: headlines 8 insert TOC here, with eight headline levels + +* COPYING +:properties: +:copying: t +:custom_id: h:b14c3fcb-13dd-4144-9d92-2c58b3ed16d3 +:end: + +Copyright (C) 2020-2021 Free Software Foundation, Inc. #+begin_quote Permission is granted to copy, distribute and/or modify this @@ -34,12 +55,10 @@ * Copying and with no Back-Cover Texts. #+end_quote -#+TOC: headlines 8 insert TOC here, with eight headline levels - * Overview -:PROPERTIES: -:CUSTOM_ID: h:f0f3dbcb-602d-40cf-b918-8f929c441baf -:END: +:properties: +:custom_id: h:f0f3dbcb-602d-40cf-b918-8f929c441baf +:end: The Modus themes are designed for accessible readability. They conform with the highest standard for color contrast between any given @@ -47,9 +66,9 @@ * Overview the WCAG AAA standard, which specifies a minimum rate of distance in relative luminance of 7:1. -Modus Operandi (=modus-operandi=) is a light theme, while Modus Vivendi -(=modus-vivendi=) is dark. Each theme's color palette is designed to -meet the needs of the numerous interfaces that are possible in the Emacs +Modus Operandi (~modus-operandi~) is a light theme, while Modus Vivendi +(~modus-vivendi~) is dark. Each theme's color palette is designed to meet +the needs of the numerous interfaces that are possible in the Emacs computing environment. The overarching objective of this project is to always offer accessible @@ -59,15 +78,16 @@ * Overview To ensure that users have a consistently accessible experience, the themes strive to achieve as close to full face coverage as possible -(see [[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). +([[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). Starting with version 0.12.0 and onwards, the themes are built into GNU -Emacs (current version is {{{version-tag}}}). +Emacs. ** How do the themes look like -:PROPERTIES: -:CUSTOM_ID: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 -:END: +:properties: +:custom_id: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 +:end: +#+cindex: Screenshots Check the web page with [[https://protesilaos.com/modus-themes-pictures/][the screen shots]]. There are lots of scenarios on display that draw attention to details and important aspects in the @@ -77,596 +97,550 @@ ** How do the themes look like [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization options]]. ** Learn about the latest changes -:PROPERTIES: -:CUSTOM_ID: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 -:END: +:properties: +:custom_id: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 +:end: +#+cindex: Changelog Please refer to the [[https://protesilaos.com/modus-themes-changelog][web page with the change log]]. It is comprehensive and covers everything that goes into every tagged release of the themes. * Installation -:PROPERTIES: -:CUSTOM_ID: h:1af85373-7f81-4c35-af25-afcef490c111 -:END: +:properties: +:custom_id: h:1af85373-7f81-4c35-af25-afcef490c111 +:end: The Modus themes are distributed with Emacs starting with version 28.1. On older versions of Emacs, they can be installed using Emacs' package -manager or manually from their code repository. +manager or manually from their code repository. There also exist +packages for distributions of GNU/Linux. + +** Install manually from source +:properties: +:custom_id: h:da3414b7-1426-46b8-8e76-47b845b76fd0 +:end: + +In the following example, we are assuming that your Emacs files are +stored in =~/.emacs.d= and that you want to place the Modus themes in +=~/.emacs.d/modus-themes=. + +1. Get the source and store it in the desired path by running the + following in the command line shell: + +: $ git clone https://gitlab.com/protesilaos/modus-themes.git ~/.emacs.d/modus-themes + +2. Add that path to your known Elisp libraries' list, by placing this + snippet of Emacs Lisp in your init file (e.g. {{{file(init.el)}}}): + +#+begin_src emacs-lisp +(add-to-list 'load-path "~/.emacs.d/modus-themes") +#+end_src -Modus Operandi (light theme) and Modus Vivendi (dark) are normally -distributed as standalone packages in Emacs-specific archives. There -also exist packages for GNU/Linux distributions. +The themes are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install from the archives -:PROPERTIES: -:CUSTOM_ID: h:c4b10085-149f-43e2-bd4d-347f33aee054 -:END: +:properties: +:custom_id: h:c4b10085-149f-43e2-bd4d-347f33aee054 +:end: -=modus-operandi-theme= and =modus-vivendi-theme= are available from GNU the -ELPA archive, which is configured by default. +The =modus-themes= package is available from the GNU ELPA archive, which +is configured by default. Prior to querying any package archive, make sure to have updated the -index, with =M-x package-refresh-contents=. Then all you need to do is -type =M-x package-install= and specify the theme of your choice. +index, with {{{kbd(M-x package-refresh-contents)}}}. Then all you need to do +is type {{{kbd(M-x package-install)}}} and specify the ~modus-themes~. + +Note that older versions of the themes used to be distributed as +standalone packages. This practice has been discontinued starting with +version 1.0.0 of this project. + +Once installed, the themes are ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install on GNU/Linux -:PROPERTIES: -:CUSTOM_ID: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 -:END: +:properties: +:custom_id: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 +:end: -The themes are also available from the archives of some GNU/Linux -distributions. These should correspond to a tagged release rather than +The themes are also available from the archives of some distributions of +GNU/Linux. These should correspond to a tagged release rather than building directly from the latest Git commit. It all depends on the distro's packaging policies. *** Debian 11 Bullseye -:PROPERTIES: -:CUSTOM_ID: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 -:END: - -The two themes are distributed as a single package for Debian and its -derivatives. Currently in the unstable and testing suites and should be -available in time for Debian 11 Bullseye (next stable). +:properties: +:custom_id: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 +:end: -Get them with: +The themes are part of Debian 11 Bullseye. Get them with: #+begin_src sh sudo apt install elpa-modus-themes #+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. + *** GNU Guix -:PROPERTIES: -:CUSTOM_ID: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e -:END: +:properties: +:custom_id: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e +:end: -Users of either the Guix System (the distro) or just Guix (the package -manager) can get each theme as a standalone package. +Users of Guix can get the themes with this command: #+begin_src sh -guix package -i emacs-modus-operandi-theme +guix package -i emacs-modus-themes #+end_src -And/or: - -#+begin_src sh -guix package -i emacs-modus-vivendi-theme -#+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. * Enable and load -:PROPERTIES: -:CUSTOM_ID: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 -:END: - -This section documents how to load the theme of your choice and how to -further control its initialization. It also includes some sample code -snippets that could help you in the task, especially if you intend to -use both Modus Operandi and Modus Vivendi. - -** Load automatically -:PROPERTIES: -:CUSTOM_ID: h:1777c247-1b56-46b7-a4ce-54e720b33d06 -:END: - -A simple way to load the theme from your Emacs initialization file is to -include either of the following expressions: - -#+BEGIN_SRC emacs-lisp -(load-theme 'modus-operandi t) ; Light theme -(load-theme 'modus-vivendi t) ; Dark theme -#+END_SRC - -Make sure to remove any other theme that is being loaded, otherwise you -might run into unexpected issues. - -Note that you can always =M-x disable-theme= and specify an item. The -command does exactly what its name suggests. To deactivate all enabled -themes at once, in case you have multiple of them enabled, you may -evaluate the expression: +:properties: +:custom_id: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 +:end: +#+findex: modus-themes-load-themes +#+findex: modus-themes-toggle +#+findex: modus-themes-load-operandi +#+findex: modus-themes-load-vivendi +#+cindex: Essential configuration +#+vindex: modus-themes-after-load-theme-hook + +Before you load a theme, it is necessary to require the main library: #+begin_src emacs-lisp -(mapc #'disable-theme custom-enabled-themes) +(require 'modus-themes) #+end_src -** Load at a given time or at sunset/sunrise -:PROPERTIES: -:CUSTOM_ID: h:4e936e31-e9eb-4b50-8fdd-45d827a03cca -:END: - -It is possible to schedule a time during the day at or after which a -given theme will be loaded.[fn:: Contributed on Reddit by user =b3n=, -https://www.reddit.com/r/emacs/comments/gdtqov/weekly_tipstricketc_thread/fq9186h/.] +Then load the individual theme files with the helper function +~modus-themes-load-themes~: #+begin_src emacs-lisp -;; Light for the day -(load-theme 'modus-operandi t t) -(run-at-time "05:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark for the night -(load-theme 'modus-vivendi t t) -(run-at-time "21:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) #+end_src -A modified version of the above technique is to use the sunrise and -sunset as references, instead of specifying a fixed hour value.[fn:: -Contributed directly by André Alexandre Gomes https://gitlab.com/aadcg.] -If you set =calendar-latitude= and =calendar-longitude= (defined in the -built-in =solar.el= library---read it with =M-x find-library=), you can -automatically switch between both themes at the appropriate time-of-day. -Note that /those calendar variables need to be set before loading the -themes/. +Once the libraries that define the themes are enabled, you can load a +theme with either of the following expressions: #+begin_src emacs-lisp -;; Define coordinates -(setq calendar-latitude 35.17 - calendar-longitude 33.36) - -;; Light at sunrise -(load-theme 'modus-operandi t t) -(run-at-time (nth 1 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark at sunset -(load-theme 'modus-vivendi t t) -(run-at-time (nth 4 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +(modus-themes-load-operandi) ; Light theme +;; OR +(modus-themes-load-vivendi) ; Dark theme #+end_src -For the sake of completeness, the =load-theme= call in these snippets is -slightly different than the one shown in [[#h:1777c247-1b56-46b7-a4ce-54e720b33d06][Load automatically]], because it -does not enable the theme directly: the subsequent =enable-theme= does -that when needed. - -** Toggle between the themes on demand -:PROPERTIES: -:CUSTOM_ID: h:2a0895a6-3281-4e55-8aa1-8a737555821e -:END: - -With both themes available, it is possible to design a simple command to -switch between them on demand. +You may want to make some changes to the available customization options +before loading a theme ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). So this is how a basic +setup should look like: #+begin_src emacs-lisp -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) -#+end_src - -You could use =(mapc #'disable-theme custom-enabled-themes)= instead of -disabling a single target, but you get the idea. +(require 'modus-themes) -** Configure options prior to loading -:PROPERTIES: -:CUSTOM_ID: h:a897b302-8e10-4a26-beab-3caaee1e1193 -:END: +;; Your customisations here. For example: +(setq modus-themes-bold-constructs t + modus-themes-mode-line '3d) -If you plan to use both themes and wish to apply styles consistently -(see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]), you could define wrapper functions around -the standard =load-theme= command. These extend the simple function we -presented in [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]]. +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) -Here is a comprehensive setup (the values assigned to the variables are -just for the sake of this demonstration):[fn:: The =defmacro= and =dolist= -method were contributed on Reddit by user =b3n= -https://www.reddit.com/r/emacs/comments/gqsz8u/weekly_tipstricketc_thread/fsfakhg/.] +;; Enable the theme of your preference: +(modus-themes-load-operandi) -#+begin_src emacs-lisp -(defmacro modus-themes-format-sexp (sexp &rest objects) - `(eval (read (format ,(format "%S" sexp) ,@objects)))) - -(dolist (theme '("operandi" "vivendi")) - (modus-themes-format-sexp - (defun modus-%1$s-theme-load () - (setq modus-%1$s-theme-slanted-constructs t - modus-%1$s-theme-bold-constructs t - modus-%1$s-theme-fringes 'subtle ; {nil,'subtle,'intense} - modus-%1$s-theme-mode-line '3d ; {nil,'3d,'moody} - modus-%1$s-theme-syntax 'alt-syntax ; {nil,faint,'yellow-comments,'green-strings,'yellow-comments-green-strings,'alt-syntax,'alt-syntax-yellow-comments} - modus-%1$s-theme-intense-hl-line nil - modus-%1$s-theme-intense-paren-match nil - modus-%1$s-theme-links 'faint ; {nil,'faint,'neutral-underline,'faint-neutral-underline,'no-underline} - modus-%1$s-theme-no-mixed-fonts nil - modus-%1$s-theme-prompts nil ; {nil,'subtle,'intense} - modus-%1$s-theme-completions 'moderate ; {nil,'moderate,'opinionated} - modus-%1$s-theme-diffs nil ; {nil,'desaturated,'fg-only} - modus-%1$s-theme-org-blocks 'grayscale ; {nil,'grayscale,'rainbow} - modus-%1$s-theme-headings ; Read further below in the manual for this one - '((1 . section) - (2 . line) - (t . rainbow-line-no-bold)) - modus-%1$s-theme-variable-pitch-headings nil - modus-%1$s-theme-scale-headings t - modus-%1$s-theme-scale-1 1.1 - modus-%1$s-theme-scale-2 1.15 - modus-%1$s-theme-scale-3 1.21 - modus-%1$s-theme-scale-4 1.27 - modus-%1$s-theme-scale-5 1.33) - (load-theme 'modus-%1$s t)) - theme)) - -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (modus-vivendi-theme-load)) - (disable-theme 'modus-vivendi) - (modus-operandi-theme-load))) +;; Optionally add a key binding for the toggle between the themes: +(define-key global-map (kbd "<f5>") #'modus-themes-toggle) #+end_src -* Customization Options -:PROPERTIES: -:CUSTOM_ID: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f -:END: +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -The Modus themes are highly configurable, though they should work well -without any further tweaks. +With those granted, bear in mind a couple of technical points on +~modus-themes-load-operandi~ and ~modus-themes-load-vivendi~, as well as +~modus-themes-toggle~ which relies on them: -By default, all customization options are set to =nil=. +1. Those functions call ~load-theme~. Some users prefer to opt for + ~enable-theme~ instead ([[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]). -All customization options need to be evaluated before loading their -theme (see [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). +2. The functions will run the ~modus-themes-after-load-theme-hook~ as + their final step. This can be employed for bespoke configurations + ([[#h:f4651d55-8c07-46aa-b52b-bed1e53463bb][Advanced customization (do-it-yourself)]]). Experienced users may not + wish to rely on such a hook and the functions that run it: they may + prefer a custom solution ([[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]). -** Option for more bold constructs -:PROPERTIES: -:ALT_TITLE: Bold constructs -:DESCRIPTION: Toggle bold constructs in code -:CUSTOM_ID: h:b25714f6-0fbe-41f6-89b5-6912d304091e -:END: +** Sample configuration for use-package +:properties: +:custom_id: h:e979734c-a9e1-4373-9365-0f2cd36107b8 +:end: +#+cindex: use-package configuration -Symbol names: +It is common for Emacs users to rely on ~use-package~ for declaring +package configurations in their setup. We use this as an example: -+ =modus-operandi-theme-bold-constructs= -+ =modus-vivendi-theme-bold-constructs= +#+begin_src emacs-lisp +(use-package modus-themes + :ensure + :init + ;; Add all your customizations prior to loading the themes + (setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil) + + ;; Load the theme files before enabling a theme (else you get an error). + (modus-themes-load-themes) + :config + ;; Load the theme of your choice: + (modus-themes-load-operandi) ;; OR (modus-themes-load-vivendi) + :bind ("<f5>" . modus-themes-toggle)) +#+end_src -Possible values: +[[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]. + +Note: make sure not to customize the variable ~custom-theme-load-path~ +or ~custom-theme-directory~ after the themes' package declaration. That +will lead to failures in loading the files. If either or both of those +variables need to be changed, their values should be defined before the +package declaration of the themes. + +** Differences between loading and enabling +:properties: +:custom_id: h:e68560b3-7fb0-42bc-a151-e015948f8a35 +:end: +#+cindex: load-theme VS enable-theme + +The reason we recommend ~load-theme~ instead of the other option of +~enable-theme~ is that the former does a kind of "reset" on the face +specs. It quite literally loads (or re-loads) the theme. Whereas the +latter simply puts an already loaded theme at the top of the list of +enabled items, re-using whatever state was last loaded. + +As such, ~load-theme~ reads all customizations that may happen during +any given Emacs session: even after the initial setup of a theme. +Examples are calls to ~custom-set-faces~, as well as new values assigned +to the options the Modus themes provide ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). + +Our tests show that ~enable-theme~ does not read such variables anew, so +it might appear to the unsuspecting user that the themes are somehow +broken whenever they try to assign a new value to a customization option +or some face. + +This "reset" that ~load-theme~ conducts does, however, come at the cost +of being somewhat slower than ~enable-theme~. Users who have a stable +setup and who seldom update their variables during a given Emacs +session, are better off using something like this: -1. =nil= (default) -2. =t= +#+begin_src emacs-lisp +(require 'modus-themes) +(require 'modus-operandi-theme) +(require 'modus-vivendi-theme) -Display several constructs in bold weight. This concerns keywords and -other important aspects of code syntax. It also affects certain mode -line indicators and command-line prompts. +(enable-theme 'modus-operandi) ;; OR (enable-theme 'modus-vivendi) +#+end_src -The default is to only use a bold weight when it is required. +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -Additionally, and while not necessary, to define the precise weight for -bold constructs, you can change the typographic intensity of the =bold= -face. The standard is a bold weight. It requires no further -intervention. Assuming though that your typeface of choice supports a -"semibold" weight, adding the following snippet to your init file should -suffice. +With the above granted, other sections of the manual discuss how to +configure custom faces, where ~load-theme~ is expected, though +~enable-theme~ could still apply in stable setups: -#+begin_src emacs-lisp -(set-face-attribute 'bold nil :weight 'semibold) -#+end_src +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]. -Note that if you are switching themes, you need to re-evaluate this -expression after the new theme is loaded. +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. -** Option for more slanted constructs -:PROPERTIES: -:ALT_TITLE: Slanted constructs -:DESCRIPTION: Toggle slanted constructs (italics) in code -:CUSTOM_ID: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 -:END: +* Customization Options +:properties: +:custom_id: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f +:end: + +The Modus themes are highly configurable, though they should work well +without any further tweaks. By default, all customization options are +set to nil. -Symbol names: +Remember that all customization options must be evaluated before loading +a theme ([[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). -+ =modus-operandi-theme-slanted-constructs= -+ =modus-vivendi-theme-slanted-constructs= +** Option for more bold constructs +:properties: +:alt_title: Bold constructs +:description: Toggle bold constructs in code +:custom_id: h:b25714f6-0fbe-41f6-89b5-6912d304091e +:end: +#+vindex: modus-themes-bold-constructs + +Symbol: ~modus-themes-bold-constructs~ Possible values: 1. =nil= (default) 2. =t= -Choose to render more faces in slanted text (italics). This typically -affects documentation strings and code comments. - -The default is to not use italics unless it is absolutely necessary. +The default is to use a bold typographic weight only when it is +required. -** Option for faint code syntax highlighting (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Faint syntax -:DESCRIPTION: Toggle subtle coloration in code (deprecated for 0.14.0) -:CUSTOM_ID: h:741379fe-7203-4dad-a7f8-ab71f61b43e6 -:END: +With a non-nil value (=t=) display several syntactic constructs in bold +weight. This concerns keywords and other important aspects of code +syntax. It also affects certain mode line indicators and command-line +prompts. -Symbol names: +** Option for more slanted constructs +:properties: +:alt_title: Slanted constructs +:description: Toggle slanted constructs (italics) in code +:custom_id: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 +:end: +#+vindex: modus-themes-slanted-constructs -+ =modus-operandi-theme-faint-syntax= -+ =modus-vivendi-theme-faint-syntax= +Symbol: ~modus-themes-slanted-constructs~ Possible values: 1. =nil= (default) 2. =t= -Use less saturated colors in programming modes for highlighting code -syntax. The default is to use saturated colors. +The default is to not use slanted text (italics) unless it is absolutely +necessary. -This option essentially affects the font-lock faces, so it may also have -implications in other places that are hard-wired to rely directly on -them instead of specifying their own faces (which could inherit from -font-lock if that is the intent). The author is aware of =vc-dir= as a -case in point. +With a non-nil value (=t=) choose to render more faces in slanted text. +This typically affects documentation strings and code comments. ** Option for syntax highlighting -:PROPERTIES: -:ALT_TITLE: Syntax styles -:DESCRIPTION: Choose the overall aesthetic of code syntax -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: +:properties: +:alt_title: Syntax styles +:description: Choose the overall aesthetic of code syntax +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-syntax -This option supersedes the "faint syntax" one ahead of version =0.14.0= -([[#h:741379fe-7203-4dad-a7f8-ab71f61b43e6][Option for faint code syntax highlighting]]). - -Symbol names: - -+ =modus-operandi-theme-syntax= -+ =modus-vivendi-theme-syntax= +Symbol: ~modus-themes-syntax~ Possible values: 1. =nil= (default) -2. =faint= -3. =yellow-comments= -4. =green-strings= -5. =yellow-comments-green-strings= -6. =alt-syntax= -7. =alt-syntax-yellow-comments= +2. ~faint~ +3. ~yellow-comments~ +4. ~green-strings~ +5. ~yellow-comments-green-strings~ +6. ~alt-syntax~ +7. ~alt-syntax-yellow-comments~ +8. ~faint-yellow-comments~ The default style (nil) for code syntax highlighting is a balanced combination of colors on the cyan-blue-magenta side of the spectrum. There is little to no use of greens, yellows, or reds, except when it is necessary. -Option =faint= is like the default in terms of the choice of palette but +Option ~faint~ is like the default in terms of the choice of palette but applies desaturated color values. -Option =yellow-comments= applies a yellow tint to comments. The rest of -the syntax is the same as the default. +Option ~yellow-comments~ adds a yellow tint to comments. The rest of the +syntax is the same as the default. -Option =green-strings= replaces the blue/cyan/cold color variants in +Option ~green-strings~ replaces the blue/cyan/cold color variants in strings with greener alternatives. The rest of the syntax remains the same. -Option =yellow-comments-green-strings= combines yellow comments with green +Option ~yellow-comments-green-strings~ combines yellow comments with green strings and the rest of the default syntax highlighting style. -Option =alt-syntax= expands the color palette and applies new color -combinations. Strings are green. Doc strings are magenta tinted. -Comments are gray. +Option ~alt-syntax~ expands the active spectrum by applying color +combinations with more contrasting hues between them. Expect to find +red and green variants in addition to cyan, blue, magenta. -Option =alt-syntax-yellow-comments= combines =alt-syntax= with -=yellow-comments=. +Option ~alt-syntax-yellow-comments~ combines ~alt-syntax~ with +~yellow-comments~. -** Option for no font mixing -:PROPERTIES: -:ALT_TITLE: No mixed fonts -:DESCRIPTION: Toggle mixing of font families -:CUSTOM_ID: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b -:END: +Option ~faint-yellow-comments~ combines the ~faint~ style with +~yellow-comments~. -Symbol names: +** Option for no font mixing +:properties: +:alt_title: No mixed fonts +:description: Toggle mixing of font families +:custom_id: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b +:end: +#+vindex: modus-themes-no-mixed-fonts -+ =modus-operandi-theme-no-mixed-fonts= -+ =modus-vivendi-theme-no-mixed-fonts= +Symbol: ~modus-themes-no-mixed-fonts~ Possible values: 1. =nil= (default) 2. =t= -By default, the themes configure some spacing-sensitive faces, such as -Org tables and code blocks, to always inherit from the =fixed-pitch= face. -This is to ensure that those constructs remain monospaced when users opt -for something like the built-in =M-x variable-pitch-mode=. Otherwise the -layout would appear broken. To disable this behaviour, set the option -to =t=. +By default, the themes configure some spacing-sensitive faces like Org +tables and code blocks to always inherit from the ~fixed-pitch~ face. +This is to ensure that those constructs remain monospaced even when +users opt for a mode that remaps typeface families, such as the built-in +{{{kbd(M-x variable-pitch-mode)}}}. Otherwise the layout would appear +broken, due to how spacing is done. To disable this behaviour, set the +option to =t=. Users may prefer to use another package for handling mixed typeface configurations, rather than letting the theme do it, perhaps because a purpose-specific package has extra functionality. Two possible options -are =org-variable-pitch= and =mixed-pitch=. - -** Option for no link underline (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Link underline -:DESCRIPTION: Toggle underlined text in links (deprecated for 0.14.0) -:CUSTOM_ID: h:a1a639e9-d247-414c-a0ad-08adadcbc6c1 -:END: +are ~org-variable-pitch~ and ~mixed-pitch~. -Note: deprecated ahead of version =0.14.0= ([[#h:c119d7b2-fcd4-4e44-890e-5e25733d5e52][Option for links]]). - -Symbol names: - -+ =modus-operandi-theme-no-link-underline= -+ =modus-vivendi-theme-no-link-underline= - -Possible values: - -1. =nil= (default) -2. =t= - -Remove the underline effect from links, symbolic links, and buttons. -The default is to apply an underline. +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. ** Option for links -:PROPERTIES: -:ALT_TITLE: Link styles -:DESCRIPTION: Choose color intensity or no underline for links -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: - -This option supersedes the "no link underline" one ahead of version -=0.14.0= ([[#h:a1a639e9-d247-414c-a0ad-08adadcbc6c1][Option for no link underline]]). +:properties: +:alt_title: Link styles +:description: Choose among several styles, with or without underline +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-links -Symbol names: - -+ =modus-operandi-theme-links= -+ =modus-vivendi-theme-links= +Symbol: ~modus-themes-links~ Possible values: 1. =nil= (default) -2. =faint= -3. =neutral-underline= -4. =faint-neutral-underline= -5. =no-underline= +2. ~faint~ +3. ~neutral-underline~ +4. ~faint-neutral-underline~ +5. ~no-underline~ +6. ~underline-only~ +7. ~neutral-underline-only~ The default style (nil) for links is to apply an underline and a -saturated color to the affected text. The color of the two is the -same, which makes the link fairly prominent. +saturated color to the affected text. The color of the two is the same, +which makes the link fairly prominent. -Option =faint= follows the same approach as the default, but uses less +Option ~faint~ follows the same approach as the default, but uses less intense colors. -Option =neutral-underline= changes the underline's color to a subtle -gray, while retaining the default text color. +Option ~neutral-underline~ changes the underline's color to a subtle gray, +while retaining the default text color. -Option =faint-neutral-underline= combines a desaturated text color with a +Option ~faint-neutral-underline~ combines a desaturated text color with a subtle gray underline. -Option =no-underline= removes link underlines altogether, while keeping -their text color the same as the default. +Option ~no-underline~ removes link underlines altogether, while retaining +their original fairly vivid color. -** Option for command prompt styles -:PROPERTIES: -:ALT_TITLE: Command prompts -:DESCRIPTION: Choose among plain, subtle, or intense prompts -:CUSTOM_ID: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 -:END: +Option ~underline-only~ applies a prominent underline while making the +affected text colorless (it uses the same foreground as the theme's +default). + +Option ~neutral-underline-only~ makes the text colorless while using a +subtle gray underline below it. -Symbol names: +NOTE: The placement of the underline, i.e. its proximity to the affected +text, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. + +** Option for command prompt styles +:properties: +:alt_title: Command prompts +:description: Choose among plain, subtle, or intense prompts +:custom_id: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 +:end: +#+vindex: modus-themes-prompts -+ =modus-operandi-theme-prompts= -+ =modus-vivendi-theme-prompts= +Symbol: ~modus-themes-prompts~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= +2. ~subtle-accented~ (~subtle~ exists for backward compatibility) +3. ~intense-accented~ (~intense~ exists for backward compatibility) +4. ~subtle-gray~ +5. ~intense-gray~ -The symbols "subtle" and "intense" will apply a combination of accented -background and foreground to the minibuffer and other REPL prompts (like -=M-x shell= and =M-x eshell=). The difference between the two is that the -latter has a more pronounced/noticeable effect than the former. +The default does not use any background for minibuffer and command line +prompts. It relies exclusively on an accented foreground color. -The default does not use any background for such prompts, while relying -exclusively on an accented foreground color. +Options ~subtle-accented~ and ~intense-accented~ will change both the +background and the foreground values to use accented color combinations +that follow the hue of the default styles' foreground (e.g. the default +minibuffer prompt is cyan text, so these combinations will involved a +cyan background and an appropriate cyan foreground). The difference +between the two is that the latter has a more pronounced/noticeable +effect than the former. -** Option for mode line presentation -:PROPERTIES: -:ALT_TITLE: Mode line -:DESCRIPTION: Choose among plain, three-dimension, or moody-compliant styles -:CUSTOM_ID: h:27943af6-d950-42d0-bc23-106e43f50a24 -:END: +Options ~subtle-gray~, ~intense-gray~ are like their accented counterparts, +except they use grayscale values. -Symbol names: +** Option for mode line presentation +:properties: +:alt_title: Mode line +:description: Choose among several styles, with or without borders +:custom_id: h:27943af6-d950-42d0-bc23-106e43f50a24 +:end: +#+vindex: modus-themes-mode-line -+ =modus-operandi-theme-mode-line= -+ =modus-vivendi-theme-mode-line= +Symbol: ~modus-themes-mode-line~ Possible values: 1. =nil= (default) -2. =3d= -3. =moody= - -The default value (=nil=) produces a two-dimensional effect both for the -active and inactive modelines. The differences between the two are -limited to distinct shades of grayscale values, with the active being -more intense than the inactive. - -A =3d= symbol will make the active modeline look like a three-dimensional +2. ~3d~ +3. ~moody~ +4. ~borderless~ +5. ~borderless-3d~ +6. ~borderless-moody~ + +The default produces a two-dimensional effect both for the active and +inactive modelines. The differences between the two are limited to +distinct shades of grayscale values, with the active being more intense +than the inactive. + +Option ~3d~ will make the active modeline look like a three-dimensional rectangle. Inactive modelines remain 2D, though they are slightly toned -down relative to the default. This aesthetic is the same as what you -get when you run Emacs without any customizations (=emacs -Q= on the -command line). +down relative to the default. This aesthetic is virtually the same as +what you get when you run Emacs without any customizations (=emacs -Q= on +the command line). -While =moody= removes all box effects from the modelines and applies +While ~moody~ removes all box effects from the modelines and applies underline and overline properties instead. It also tones down a bit the inactive modelines. This is meant to optimize things for use with the [[https://github.com/tarsius/moody][moody package]] (hereinafter referred to as "Moody"), though it can work fine even without it. +The ~borderless~ option uses the same colors as the default (nil value), +but removes the border effect. This is done by making the box property +use the same color as the background, effectively blending the two and +creating some padding. + +The ~borderless-3d~ and ~borderless-moody~ approximate the ~3d~ and ~moody~ +options respectively, while removing the borders. However, to ensure +that the inactive modelines remain visible, they apply a slightly more +prominent background to them than what their counterparts do (same +inactive background as with the default). + Note that Moody does not expose any faces that the themes could style directly. Instead it re-purposes existing ones to render its tabs and ribbons. As such, there may be cases where the contrast ratio falls below the 7:1 target that the themes conform with (WCAG AAA). To hedge -against this, we configure a fallback foreground for the =moody= option, +against this, we configure a fallback foreground for the ~moody~ option, which will come into effect when the background of the modeline changes to something less accessible, such as Moody ribbons (read the doc string -of =set-face-attribute=, specifically =:distant-foreground=). This fallback -comes into effect when Emacs determines that the background and -foreground of the given construct are too close to each other in terms -of color distance. In effect, users would need to experiment with the -variable =face-near-same-color-threshold= to trigger the fallback color. -We find that a value of =45000= would suffice, contrary to the default -=30000=. Do not set the value too high, because that would have the -adverse effect of always overriding the default color (which has been -carefully designed to be highly accessible). +of ~set-face-attribute~, specifically ~:distant-foreground~). This fallback +is activated when Emacs determines that the background and foreground of +the given construct are too close to each other in terms of color +distance. In effect, users would need to experiment with the variable +~face-near-same-color-threshold~ to trigger the effect. We find that a +value of =45000= will suffice, contrary to the default =30000=. Do not set +the value too high, because that would have the adverse effect of always +overriding the default color (which has been carefully designed to be +highly accessible). Furthermore, because Moody expects an underline and overline instead of -a box style, it is recommended you also include this in your setup: +a box style, it is advised you include this in your setup: #+begin_src emacs-lisp (setq x-underline-at-descent-line t) #+end_src ** Option for completion framework aesthetics -:PROPERTIES: -:ALT_TITLE: Completion UIs -:DESCRIPTION: Choose among standard, moderate, or opinionated looks -:CUSTOM_ID: h:f1c20c02-7b34-4c35-9c65-99170efb2882 -:END: - -Symbol names: +:properties: +:alt_title: Completion UIs +:description: Choose among standard, moderate, or opinionated looks +:custom_id: h:f1c20c02-7b34-4c35-9c65-99170efb2882 +:end: +#+vindex: modus-themes-completions -+ =modus-operandi-theme-completions= -+ =modus-vivendi-theme-completions= +Symbol: ~modus-themes-completions~ Possible values: 1. =nil= (default) -2. =moderate= -3. =opinionated= +2. ~moderate~ +3. ~opinionated~ This is a special option that has different effects depending on the completion UI. The interfaces can be grouped in two categories, based @@ -679,512 +653,1008 @@ ** Option for completion framework aesthetics A value of =nil= will respect the metaphors of each completion framework. -The symbol =moderate= will apply a combination of background and -foreground that is fairly subtle. For Icomplete and friends this -constitutes a departure from their default aesthetics, however the -difference is small. While Helm et al will appear slightly different -than their original looks, as they are toned down a bit. +Option ~moderate~ applies a combination of background and foreground that +is fairly subtle. For Icomplete and friends this constitutes a +departure from their default aesthetics, however the difference is +small. While Helm, Ivy et al appear slightly different than their +original looks, as they are toned down a bit. -The symbol =opinionated= will apply color combinations that refashion the -completion UI. For the Icomplete camp this means that intense -background and foreground combinations are used: in effect their looks -emulate those of Ivy and co. in their original style. Whereas the other -group of packages will revert to an even more nuanced aesthetic with -some additional changes to the choice of hues. +Option ~opinionated~ uses color combinations that refashion the completion +UI. For the Icomplete camp this means that intense background and +foreground combinations are used: in effect their looks emulate those of +Helm, Ivy and co. in their original style. Whereas the other group of +packages will revert to an even more nuanced aesthetic with some +additional changes to the choice of hues. To appreciate the scope of this customization option, you should spend -some time with every one of the =nil= (default), =moderate=, and =opinionated= +some time with every one of the =nil= (default), ~moderate~, and ~opinionated~ possibilities. ** Option for fringe visibility -:PROPERTIES: -:ALT_TITLE: Fringes -:DESCRIPTION: Choose among plain, subtle, or intense fringe visibility -:CUSTOM_ID: h:1983c3fc-74f6-44f3-b917-967c403bebae -:END: - -Symbol names: +:properties: +:alt_title: Fringes +:description: Choose among invisible, subtle, or intense fringe styles +:custom_id: h:1983c3fc-74f6-44f3-b917-967c403bebae +:end: +#+vindex: modus-themes-fringes -+ =modus-operandi-theme-fringes= -+ =modus-vivendi-theme-fringes= +Symbol: ~modus-themes-fringes~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= - -The "subtle" symbol will apply a grayscale background that is visible, -yet close enough to the main background color. While the "intense" -symbol will use a more noticeable grayscale background. +2. ~subtle~ +3. ~intense~ The default is to use the same color as that of the main background, meaning that the fringes are not obvious though they still occupy the -space given to them by =fringe-mode=. +space given to them by ~fringe-mode~. -** Option for line highlighting (hl-line-mode) -:PROPERTIES: -:ALT_TITLE: Line highlighting -:DESCRIPTION: Toggle intense style for current line highlighting -:CUSTOM_ID: h:1dba1cfe-d079-4c13-a810-f768e8789177 -:END: +Options ~subtle~ and ~intense~ apply a gray background, making the fringes +visible. The difference between the two is one of degree, as their +names imply. -Symbol names: +** Option for language checkers +:properties: +:alt_title: Language checkers +:description: Control the style of language checkers/linters +:custom_id: h:4b13743a-8ebf-4d2c-a043-cceba10b1eb4 +:end: +#+vindex: modus-themes-lang-checkers -+ =modus-operandi-theme-intense-hl-line= -+ =modus-vivendi-theme-intense-hl-line= +Symbol: ~modus-themes-lang-checkers~ Possible values: +1. =nil= (default) +2. ~subtle-foreground~ +3. ~intense-foreground~ +4. ~straight-underline~ +5. ~subtle-foreground-straight-underline~ +6. ~intense-foreground-straight-underline~ +7. ~colored-background~ + +Nil (the default) applies a color-coded underline to the affected text, +while it leaves the original foreground in tact. If the display spec +where Emacs runs in has support for it (e.g. Emacs GUI), the underline's +style is that of a wave, otherwise it is a straight line. + +Options ~subtle-foreground~ and ~intense-foreground~ follow the same +color-coding pattern and wavy underline of the default, while extending +it with a corresponding foreground value for the affected text. The +difference between the two options is one of degree, as their names +suggest. + +Option ~straight-underline~ is like the default but always applies a +straight line under the affected text. Same principle for +~subtle-foreground-straight-underline~ and its counterpart +~intense-foreground-straight-underline~. + +Option ~colored-background~ uses a straight underline, a tinted +background, and a suitable foreground. All are color-coded. This is +the most intense combination of face properties. + +The present variable affects packages and/or face groups such as those +of =flyspell=, =flymake=, =flycheck=, ~artbollocks-mode~, and ~writegood-mode~. + +NOTE: The placement of the straight underline, though not the wave +style, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. + +** Option for line highlighting (hl-line-mode) +:properties: +:alt_title: Line highlighting +:description: Toggle intense style for current line highlighting +:custom_id: h:1dba1cfe-d079-4c13-a810-f768e8789177 +:end: +#+vindex: modus-themes-intense-hl-line + +Symbol: ~modus-themes-intense-hl-line~ + +Possible values: + +1. =nil= (default) +2. =t= + +The default is to use a subtle gray background for ~hl-line-mode~ and its +global equivalent. + +With a non-nil value (=t=) use a more prominent background color instead. + +This affects several packages that enable ~hl-line-mode~, such as =elfeed= +and =mu4e=. + +** Option for line numbers (display-line-numbers-mode) +:properties: +:alt_title: Line numbers +:description: Toggle subtle style for line numbers +:custom_id: h:8c4a6230-2e43-4aa2-a631-3b7179392e09 +:end: +#+vindex: modus-themes-subtle-line-numbers + +Symbol: ~modus-themes-subtle-line-numbers~ + +Possible value: + 1. =nil= (default) 2. =t= -Draw the current line of =hl-line-mode= or its global equivalent in a more -prominent background color. This would also affect several packages -that enable =hl-line-mode=, such as =elfeed= and =mu4e=. +The default style for ~display-line-numbers-mode~ and its global variant +is to apply a subtle gray background to the line numbers. The current +line has a more pronounced background and foreground combination to +bring more attention to itself. -The default is to use a more subtle gray. +Similarly, the faces for ~display-line-numbers-major-tick~ and its +counterpart ~display-line-numbers-minor-tick~ use appropriate styles that +involve a bespoke background and foreground combination. + +With a non-nil value (=t=), line numbers have no background of their own. +Instead they retain the primary background of the theme, blending with +the rest of the buffer. Foreground values for all relevant faces are +updated to accommodate this aesthetic. ** Option for parenthesis matching (show-paren-mode) -:PROPERTIES: -:ALT_TITLE: Matching parentheses -:DESCRIPTION: Toggle intense style for matching delimiters/parentheses -:CUSTOM_ID: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 -:END: +:properties: +:alt_title: Matching parentheses +:description: Choose between various styles for matching delimiters/parentheses +:custom_id: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 +:end: +#+vindex: modus-themes-paren-match + +Symbol: ~modus-themes-paren-match~ + +Possible values: + +1. =nil= (default) +2. ~subtle-bold~ +3. ~intense~ +4. ~intense-bold~ + +Nil means to use a subtle tinted background color for the matching +delimiters. + +Option ~intense~ applies a saturated background color. + +Option ~subtle-bold~ is the same as the default, but also makes use of +bold typographic weight (inherits the ~bold~ face). + +Option ~intense-bold~ is the same as ~intense~, while it also uses a bold +weight. -Symbol names: +This customization variable affects tools such as the built-in +~show-paren-mode~ and the =smartparens= package. -+ =modus-operandi-theme-intense-paren-match= -+ =modus-vivendi-theme-intense-paren-match= +** Option for active region +:properties: +:alt_title: Active region +:description: Choose between various styles for the active region +:custom_id: h:60798063-b4ad-45ea-b9a7-ff7b5c0ab74c +:end: +#+vindex: modus-themes-region + +Symbol: ~modus-themes-region~ Possible values: 1. =nil= (default) -2. =t= +2. ~no-extend~ +3. ~bg-only~ +4. ~bg-only-no-extend~ -Apply a more intense background to the matching parentheses (or -delimiters). This affects tools such as the built-in =show-paren-mode=. -The default is to use a subtle warm color for the background of those -overlays. +Nil means to only use a prominent gray background with a neutral +foreground. The foreground overrides all syntax highlighting. The +region extends to the edge of the window. -** Option for diff buffer looks -:PROPERTIES: -:ALT_TITLE: Diffs -:DESCRIPTION: Choose among intense, desaturated, or text-only diffs -:CUSTOM_ID: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 -:END: +Option ~no-extend~ preserves the default aesthetic but prevents the region +from extending to the edge of the window. + +Option ~bg-only~ applies a faint tinted background that is distinct from +all others used in the theme, while it does not override any existing +colors. It extends to the edge of the window. + +Option ~bg-only-no-extend~ is a combination of the ~bg-only~ and ~no-extend~ +options. -Symbol names: +** Option for diff buffer looks +:properties: +:alt_title: Diffs +:description: Choose among intense, desaturated, or text-only diffs +:custom_id: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 +:end: +#+vindex: modus-themes-diffs -+ =modus-operandi-theme-diffs= -+ =modus-vivendi-theme-diffs= +Symbol: ~modus-themes-diffs~ Possible values: 1. =nil= (default) -2. =desaturated= -2. =fg-only= - -By default the themes will apply richly colored backgrounds to the -output of diffs, such as those of =diff-mode=, =ediff=, =smerge-mode=, and -=magit=. These are color combinations of an accented background and -foreground so that, for example, added lines have a pronounced green -background with an appropriate shade of green for the affected text. -Word-wise or "refined" changes follow this pattern but use different -shades of those colors to remain distinct. - -A =desaturated= value tones down all relevant color values. It still +2. ~desaturated~ +3. ~fg-only~ +4. ~bg-only~ +5. ~deuteranopia~ + +By default the themes apply rich coloration to the output of diffs, such +as those of ~diff-mode~, ~ediff~, ~smerge-mode~, and Magit. These are +color combinations of an accented background and foreground so that, for +example, added lines have a pronounced green background with an +appropriate shade of green for the affected text. Word-wise or +"refined" changes follow this pattern but use different shades of those +colors to remain distinct. + +Option ~desaturated~ tones down all relevant color values. It still combines an accented background with an appropriate foreground, yet its -overall impression is very subtle. Refined changes are a bit more +overall impression is fairly subtle. Refined changes are a bit more intense to fulfil their intended function, though still less saturated than default. -While =fg-only= will remove all accented backgrounds and instead rely on -color-coded text to denote changes. For instance, added lines use an -intense green foreground, while their background is the same as the rest -of the buffer. Word-wise highlights still use a background value which -is, nonetheless, more subtle than its default equivalent. - -Concerning =magit=, an extra set of tweaks are introduced for the effect -of highlighting the current diff hunk, so as to remain consistent with -the overall experience of that mode. Expect changes that are consistent -with the overall intent of the aforementioned. +Option ~fg-only~ will remove most accented backgrounds and instead rely +on color-coded text to denote changes. For instance, added lines use a +green foreground, while their background is the same as the rest of the +buffer. Word-wise highlights still use a background value which is, +nonetheless, more subtle than its default equivalent. + +Option ~bg-only~ applies color-coded backgrounds but does not override +any syntax highlighting that may be present. This makes it suitable for +use with a non-nil value for ~diff-font-lock-syntax~ (which is the +default for ~diff-mode~ buffers in Emacs 27 or higher). + +Option ~deuteranopia~ optimizes for red-green color deficiency. It +replaces all instances of green with blue variants. This is to ensure +that indicators for "removed" and "added" states are not mistaken for +each other. + +Concerning Magit, an extra set of tweaks are introduced for the effect +of highlighting the current diff hunk, so as to remain aligned with the +overall experience of that mode. Expect changes that are consistent +with the overall intent of the aforementioned. Note, however, that the +~bg-only~ option will not deliver the intended results in Magit diffs +because no syntax highlighting is used there (last checked with Magit +version 20201116.1057, though upstream has a plan to eventually support +such a feature---this entry shall be updated accordingly). ** Option for org-mode block styles -:PROPERTIES: -:ALT_TITLE: Org mode blocks -:DESCRIPTION: Choose among plain, grayscale, or rainbow styles -:CUSTOM_ID: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 -:END: +:properties: +:alt_title: Org mode blocks +:description: Choose among plain, grayscale, or rainbow styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-blocks -Symbol names: - -+ =modus-operandi-theme-org-blocks= -+ =modus-vivendi-theme-org-blocks= +Symbol: ~modus-themes-org-blocks~ Possible values: 1. =nil= (default) -2. =grayscale= -3. =rainbow= +2. ~grayscale~ +3. ~rainbow~ The default is to use the same background as the rest of the buffer for the contents of the block. -A value of =grayscale= will apply a subtle neutral gray background to the -block's contents. It will also extend to the edge of the window the -background of the "begin" and "end" block delimiter lines (only relevant -for Emacs versions >= 27 where the 'extend' keyword is recognised by -=set-face-attribute=). +Option ~grayscale~ applies a subtle neutral gray background to the block's +contents. It will also extend to the edge of the window the background +of the "begin" and "end" block delimiter lines (only relevant for Emacs +versions >= 27 where the 'extend' keyword is part of the face +specifications). -While =rainbow= will instead use an accented background for the contents -of the block. The exact color will depend on the programming language -and is controlled by the =org-src-block-faces= variable (refer to the -theme's source code for the current association list). This is most -suitable for users who work on literate programming documents that mix -and match several languages. +Option ~rainbow~ uses an accented background for the contents of the +block. The exact color will depend on the programming language and is +controlled by the ~org-src-block-faces~ variable. This is most suitable +for users who work on literate programming documents that mix and match +several languages. Note that the "rainbow" blocks may require you to also reload the -major-mode so that the colors are applied properly: use =M-x org-mode= or -=M-x org-mode-restart= to refresh the buffer. Or start typing in each -code block (inefficient at scale, but it still works). +major-mode so that the colors are applied consistently throughout: use +{{{kbd(M-x org-mode)}}} or {{{kbd(M-x org-mode-restart)}}} to refresh the buffer. +Or start typing in each code block (inefficient at scale, but it still +works). + +** Option for org-habit graph styles +:properties: +:alt_title: Org agenda habits +:description: Choose among standard, simplified, or traffic light styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-habit -** Option for headings' overall style -:PROPERTIES: -:ALT_TITLE: Heading styles -:DESCRIPTION: Choose among several styles, also per heading level -:CUSTOM_ID: h:271eff19-97aa-4090-9415-a6463c2f9ae1 -:END: +Symbol: ~modus-themes-org-habit~ + +Possible values: + +1. =nil= (default) +2. ~simplified~ +3. ~traffic-light~ + +The default is meant to conform with the original aesthetic of +=org-habit=. It employs all four color codes that correspond to the +org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This results +in a total of eight colors in use: red, yellow, green, blue, in tinted +and shaded versions. They cover the full set of information provided by +the =org-habit= consistency graph. + +Option ~simplified~ is like the default except that it removes the +dichotomy between current and future variants by applying uniform +color-coded values. It applies a total of four colors: red, yellow, +green, blue. They produce a simplified consistency graph that is more +legible (or less "busy") than the default. The intent is to shift focus +towards the distinction between the four states of a habit task, rather +than each state's present/future outlook. + +Option ~traffic-light~ further reduces the available colors to red, +yellow, and green. As in ~simplified~, present and future variants appear +uniformly, but differently from it, the 'clear' state is rendered in a +green hue, instead of the original blue. This is meant to capture the +use-case where a habit task being "too early" is less important than it +being "too late". The difference between ready and clear states is +attenuated by painting both of them using shades of green. This option +thus highlights the alert and overdue states. + +** Option for the headings' overall style +:properties: +:alt_title: Heading styles +:description: Choose among several styles, also per heading level +:custom_id: h:271eff19-97aa-4090-9415-a6463c2f9ae1 +:end: +#+vindex: modus-themes-headings This is defined as an alist and, therefore, uses a different approach than other customization options documented in this manual. -Symbol names: - -+ =modus-operandi-theme-headings= -+ =modus-vivendi-theme-headings= +Symbol: ~modus-themes-headings~ Possible values, which can be specified for each heading level (examples further below): + nil (default fallback option---covers all heading levels) + =t= (default style for a single heading, when the fallback differs) -+ =no-bold= -+ =line= -+ =line-no-bold= -+ =rainbow= -+ =rainbow-line= -+ =rainbow-line-no-bold= -+ =highlight= -+ =highlight-no-bold= -+ =rainbow-highlight= -+ =rainbow-highlight-no-bold= -+ =section= -+ =section-no-bold= -+ =rainbow-section= -+ =rainbow-section-no-bold= - -To control faces per level from 1-8, use something like this (same for -=modus-vivendi-theme-headings=): ++ ~no-bold~ ++ ~line~ ++ ~line-no-bold~ ++ ~rainbow~ ++ ~rainbow-line~ ++ ~rainbow-line-no-bold~ ++ ~highlight~ ++ ~highlight-no-bold~ ++ ~rainbow-highlight~ ++ ~rainbow-highlight-no-bold~ ++ ~section~ ++ ~section-no-bold~ ++ ~rainbow-section~ ++ ~rainbow-section-no-bold~ ++ ~no-color~ ++ ~no-color-no-bold~ + +To control faces per level from 1-8, use something like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . section) - (2 . line) - (3 . highlight) - (t . rainbow-no-bold))) + (2 . section-no-bold) + (3 . rainbow-line) + (t . rainbow-line-no-bold))) #+end_src -The above uses the =section= value for heading levels 1, the =line= for -headings 2, =highlight= for 3. All other levels fall back to -=rainbow-line-no-bold=. +The above uses the ~section~ value for heading levels 1, ~section-no-bold~ +for headings 2, ~rainbow-line~ for 3. All other levels fall back to +~rainbow-line-no-bold~. To set a uniform value for all heading levels, use this pattern: #+begin_src emacs-lisp ;; A given style for every heading -(setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) +(setq modus-themes-headings + '((t . section))) ;; Default aesthetic for every heading -(setq modus-operandi-theme-headings - '((t . nil))) +(setq modus-themes-headings + '()) #+end_src The default style for headings uses a fairly desaturated foreground -value in combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another fallback -option), just specify the value =t= like this: +value in combination with bold typographic weight. To specify this +style for a given level N, assuming you wish to have another fallback +option, just specify the value =t= like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) #+end_src -A description of all other possible styles: +A description of all other possible styles beyond the default: -+ =no-bold= retains the default text color while removing the typographic - weight. ++ ~no-bold~ retains the default text color while removing the bold + typographic weight. -+ =line= is the same as the default plus an overline over the heading. ++ ~line~ is the same as the default plus an overline across the + heading's length. -+ =line-no-bold= is the same as =line= without bold weight. ++ ~line-no-bold~ is the same as ~line~ without bold weight. -+ =rainbow= uses a more colorful foreground in combination with bold - weight. ++ ~rainbow~ uses a more colorful foreground in combination with bold + typographic weight. -+ =rainbow-line= is the same as =rainbow= plus an overline. ++ ~rainbow-line~ is the same as ~rainbow~ plus an overline. -+ =rainbow-line-no-bold= is the same as =rainbow-line= without the bold ++ ~rainbow-line-no-bold~ is the same as ~rainbow-line~ without the bold weight. -+ =highlight= retains the default style of a fairly desaturated foreground - combined with a bold weight and adds to it a subtle accented - background. ++ ~highlight~ retains the default style of a fairly desaturated + foreground combined with a bold weight and adds to it a subtle + accented background. -+ =highlight-no-bold= is the same as =highlight= without a bold weight. ++ ~highlight-no-bold~ is the same as ~highlight~ without a bold weight. -+ =rainbow-highlight= is the same as =highlight= but with a more colorful - foreground. ++ ~rainbow-highlight~ is the same as ~highlight~ but with a more + colorful foreground. -+ =rainbow-highlight-no-bold= is the same as =rainbow-highlight= without a - bold weight. ++ ~rainbow-highlight-no-bold~ is the same as ~rainbow-highlight~ without + a bold weight. -+ =section= retains the default looks and adds to them both an overline ++ ~section~ retains the default looks and adds to them both an overline and a slightly accented background. It is, in effect, a combination - of the =line= and =highlight= values. + of the ~line~ and ~highlight~ values. -+ =section-no-bold= is the same as =section= without a bold weight. ++ ~section-no-bold~ is the same as ~section~ without a bold weight. -+ =rainbow-section= is the same as =section= but with a more colorful ++ ~rainbow-section~ is the same as ~section~ but with a more colorful foreground. -+ =rainbow-section-no-bold= is the same as =rainbow-section= without a bold - weight." ++ ~rainbow-section-no-bold~ is the same as ~rainbow-section~ without a + bold weight. -** Option for scaled headings -:PROPERTIES: -:ALT_TITLE: Scaled headings -:DESCRIPTION: Toggle scaling of headings -:CUSTOM_ID: h:075eb022-37a6-41a4-a040-cc189f6bfa1f -:END: ++ ~no-color~ does not apply any color to the heading, meaning that it + uses the foreground of the ~default~ face. It still renders the text + with a bold typographic weight. -Symbol names: ++ ~no-color-no-bold~ is like ~no-color~ but without the bold weight. + +** Option for scaled headings +:properties: +:alt_title: Scaled headings +:description: Toggle scaling of headings +:custom_id: h:075eb022-37a6-41a4-a040-cc189f6bfa1f +:end: +#+vindex: modus-themes-scale-headings -+ =modus-operandi-theme-scale-headings= -+ =modus-vivendi-theme-scale-headings= +Symbol: ~modus-themes-scale-headings~ Possible values: 1. =nil= (default) 2. =t= -Make headings larger in height relative to the main text. This is -noticeable in modes like Org. The default is to use the same size for -headings and body copy. +The default is to use the same size for headings and paragraph text. + +With a non-nil value (=t=) make headings larger in height relative to the +main text. This is noticeable in modes like Org, Markdown, and Info. *** Control the scale of headings -:PROPERTIES: -:ALT_TITLE: Scaled heading sizes -:DESCRIPTION: Specify rate of increase for scaled headings -:CUSTOM_ID: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 -:END: +:properties: +:alt_title: Scaled heading sizes +:description: Specify rate of increase for scaled headings +:custom_id: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 +:end: -In addition to toggles for enabling scaled headings, users can also +In addition to the toggle for enabling scaled headings, users can also specify a number of their own. + If it is a floating point, say, =1.5=, it is interpreted as a multiple - of the base font size. This is the recommended method. - -+ If it is an integer, it is read as an absolute font height. The - number is basically the point size multiplied by ten. So if you want - it to be =18pt= you must pass =180=. Please understand that setting an - absolute value is discouraged, as it will break the layout when you - try to change font sizes with the built-in =text-scale-adjust= command - (see [[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + of the base font size. This is the recommended method, because it + will always adapt to changes in the base font size, such as while + using the ~text-scale-adjust~ command. + ++ If it is an integer, it is read as an absolute font height that is + 1/10 of the typographic point size. Thus a value of =18pt= must be + expressed as =180=. Setting an absolute value is discouraged, as it + will break the layout in cases where the base font size must change, + such as with the ~text-scale-adjust~ command ([[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + While we discourage using absolute values, we still provide for this + option for users who do not need to perform text-scaling operations or + who are content with whatever discrepancies in height. Below are the variables in their default values, using the floating -point paradigm. The numbers are very conservative, but you are free to -change them to your liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a +point paradigm. The numbers are very conservative, but one is free to +change them to their liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a resource for finding a consistent scale: #+begin_src emacs-lisp -(setq modus-operandi-theme-scale-1 1.05 - modus-operandi-theme-scale-2 1.1 - modus-operandi-theme-scale-3 1.15 - modus-operandi-theme-scale-4 1.2 - modus-operandi-theme-scale-5 1.3) - -(setq modus-vivendi-theme-scale-1 1.05 - modus-vivendi-theme-scale-2 1.1 - modus-vivendi-theme-scale-3 1.15 - modus-vivendi-theme-scale-4 1.2 - modus-vivendi-theme-scale-5 1.3) +(setq modus-themes-scale-1 1.05 + modus-themes-scale-2 1.1 + modus-themes-scale-3 1.15 + modus-themes-scale-4 1.2 + modus-themes-scale-5 1.3) #+end_src +As for the application of that scale, the variables that range from +~modus-themes-scale-1~ up to ~modus-themes-scale-4~ apply to regular +headings within the context of the given major mode. The former is the +smallest, while the latter is the largest. "Regular headings" are those +that have a standard syntax for their scale, such as Org mode's eight +levels of asterisks or Markdown's six columns. + +Whereas ~modus-themes-scale-5~ is applied to special headings that do not +conform with the aforementioned syntax, yet which are expected to be +larger than the largest value on that implied scale. Put concretely, +Org's =#+title= meta datum is not part of the eight levels of headings in +an Org file, yet is supposed to signify the primary header. Similarly, +the Org Agenda's structure headings are not part of a recognisable scale +and so they also get ~modus-themes-scale-5~. + +Users who wish to maintain scaled headings for the normal syntax while +preventing special headings from standing out, can assign a value of =1.0= +to ~modus-themes-scale-5~ to make it the same as body text (or whatever +value would render it indistinguishable from the desired point of +reference). + Note that in earlier versions of Org, scaling would only increase the size of the heading, but not of keywords that were added to it, like "TODO". The issue has been fixed upstream: <https://protesilaos.com/codelog/2020-09-24-org-headings-adapt/>. -** Option for variable-pitch font in headings -:PROPERTIES: -:ALT_TITLE: Headings' font -:DESCRIPTION: Toggle proportionately spaced fonts in headings -:CUSTOM_ID: h:97caca76-fa13-456c-aef1-a2aa165ea274 -:END: +** Option for variable-pitch font in UI elements +:properties: +:alt_title: UI typeface +:description: Toggle the use of variable-pitch across the User Interface +:custom_id: h:16cf666c-5e65-424c-a855-7ea8a4a1fcac +:end: +#+vindex: modus-themes-variable-pitch-ui + +Symbol: ~modus-themes-variable-pitch-ui~ -Symbol names: +Possible values: + +1. =nil= (default) +2. =t= + +This option concerns User Interface elements that are under the direct +control of Emacs. In particular: the mode line, header line, tab bar, +and tab line. + +The default is to use the same font as the rest of Emacs, which usually +is a monospaced family. + +With a non-nil value (=t=) apply a proportionately spaced typeface. This +is done by assigning the ~variable-pitch~ face to the relevant items. + +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. + +** Option for variable-pitch font in headings +:properties: +:alt_title: Headings' typeface +:description: Toggle the use of variable-pitch in headings +:custom_id: h:97caca76-fa13-456c-aef1-a2aa165ea274 +:end: +#+vindex: modus-themes-variable-pitch-headings -+ =modus-operandi-theme-variable-pitch-headings= -+ =modus-vivendi-theme-variable-pitch-headings= +Symbol: ~modus-themes-variable-pitch-headings~ Possible values: 1. =nil= (default) 2. =t= -Choose to apply a proportionately spaced, else "variable-pitch", -typeface to headings (such as in Org mode). The default is to use the -main font family. +The default is to use the main font family, which typically is +monospaced. -[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. +With a non-nil value (=t=) apply a proportionately spaced typeface, else +"variable-pitch", to headings (such as in Org mode). + +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. * Advanced customization (do-it-yourself) -:PROPERTIES: -:INDEX: cp -:CUSTOM_ID: h:f4651d55-8c07-46aa-b52b-bed1e53463bb -:END: +:properties: +:custom_id: h:f4651d55-8c07-46aa-b52b-bed1e53463bb +:end: -Unlike the predefined customization options which follow a -straightforward pattern of allowing the user to quickly specify their -preference, the themes also provide a more flexible, albeit difficult, -mechanism to control things with precision (see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). +Unlike the predefined customization options which follow a clear pattern +of allowing the user to quickly specify their preference, the themes +also provide a more flexible, albeit difficult, mechanism to control +things with precision ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). This section is of interest only to users who are prepared to maintain their own local tweaks and who are willing to deal with any possible incompatibilities between versioned releases of the themes. As such, they are labelled as "do-it-yourself" or "DIY". -** Full access to the themes' palette -:PROPERTIES: -:ALT_TITLE: Tweak colors (DIY) -:DESCRIPTION: Declare your own palette overrides -:CUSTOM_ID: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 -:END: +** Per-theme customization settings (DIY) +:properties: +:custom_id: h:a897b302-8e10-4a26-beab-3caaee1e1193 +:end: + +If you prefer to maintain different customization options between the +two themes, it is best you write your own functions that first set those +options and then load the relevant theme. The following code does +exactly that by simply differentiating the two themes on the choice of +bold constructs in code syntax (enabled for one, disabled for the +other). + +#+begin_src emacs-lisp +(defun my-demo-modus-operandi () + (interactive) + (setq modus-themes-bold-constructs t) ; ENABLE bold + (modus-themes-load-operandi)) + +(defun my-demo-modus-vivendi () + (interactive) + (setq modus-themes-bold-constructs nil) ; DISABLE bold + (modus-themes-load-vivendi)) + +(defun my-demo-modus-themes-toggle () + (if (eq (car custom-enabled-themes) 'modus-operandi) + (my-demo-modus-vivendi) + (my-demo-modus-operandi))) +#+end_src + +Then assign ~my-demo-modus-themes-toggle~ to a key instead of the +equivalent the themes provide. + +For a more elaborate design, it is better to inspect the source code of +~modus-themes-toggle~ and relevant functions. -The variables are: +** Case-by-case face specs using the themes' palette (DIY) +:properties: +:custom_id: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 +:end: +#+findex: modus-themes-color +#+findex: modus-themes-color-alts +#+cindex: Extracting individual colors -+ =modus-operandi-theme-override-colors-alist= -+ =modus-vivendi-theme-override-colors-alist= +This section is about tweaking individual faces. If you plan to do +things at scale, consult the next section: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Set multiple faces]]. -Users can specify an association list that maps the names of color -variables to hexadecimal RGB values (in the form of =#RRGGBB=). This -means that it is possible to override the entire palette or subsets -thereof (see the source code for the actual names and values). +We already covered in previous sections how to toggle between the themes +and how to configure options prior to loading. We also explained that +some of the functions made available to users will fire up a hook that +can be used to pass tweaks in the post-theme-load phase. -Example: +Now assume you wish to change a single face, say, the ~cursor~. And you +would like to get the standard "blue" color value of the active Modus +theme, whether it is Modus Operandi or Modus Vivendi. To do that, you +can use the ~modus-themes-color~ function. It accepts a symbol that is +associated with a color in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~. Like this: #+begin_src emacs-lisp -;; Redefine the values of those three variables for the given theme -(setq modus-vivendi-theme-override-colors-alist - '(("magenta" . "#ffaabb") - ("magenta-alt" . "#ee88ff") - ("magenta-alt-other" . "#bbaaff"))) +(modus-themes-color 'blue) #+end_src -If you want to be creative, you can define a minor mode that refashions -the themes on demand. The following is a minor mode that gets activated -on demand. We combine it with the function to switch between Modus -Operandi and Modus Vivendi (see [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]] for -a basic command, and/or [[*Configure options prior to loading][Configure options prior to loading]] for a more -comprehensive setup). +The function always extracts the color value of the active Modus theme. + +#+begin_src emacs-lisp +(progn + (load-theme 'modus-operandi t) + (modus-themes-color 'blue)) ; "#0031a9" for `modus-operandi' + +(progn + (load-theme 'modus-vivendi t) + (modus-themes-color 'blue)) ; "#2fafff" for `modus-vivendi' +#+end_src + +Do {{{kbd(C-h v)}}} on the aforementioned variables to check all the available +symbols that can be passed to this function. + +With that granted, let us expand the example to actually change the +~cursor~ face's background property. We employ the built-in function of +~set-face-attribute~: + +#+begin_src emacs-lisp +(set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) +#+end_src + +If you evaluate this form, your cursor will become blue. But if you +change themes, such as with ~modus-themes-toggle~, your edits will be +lost, because the newly loaded theme will override the =:background= +attribute you had assigned to that face. + +For such changes to persist, we need to make them after loading the +theme. So we rely on ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. Here is a sample function that +tweaks two faces and then gets added to the hook: + +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) + (set-face-attribute 'font-lock-type-face nil :foreground (modus-themes-color 'magenta-alt))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src + +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. + +Using this principle, it is possible to override the styles of faces +without having to find color values for each case. + +Another application is to control the precise weight for bold +constructs. This is particularly useful if your typeface has several +variants such as "heavy", "extrabold", "semibold". All you have to do +is edit the ~bold~ face. For example: #+begin_src emacs-lisp -(define-minor-mode modus-themes-alt-mode - "Override Modus themes' palette variables with custom values. +(set-face-attribute 'bold nil :weight 'semibold) +#+end_src + +Remember to use the custom function and hook combo we demonstrated +above. Because the themes do not hard-wire a specific weight, this +simple form is enough to change the weight of all bold constructs +throughout the interface. + +Finally, there are cases where you want to tweak colors though wish to +apply different ones to each theme, say, a blue hue for Modus Operandi +and a shade of red for Modus Vivendi. To this end, we provide +~modus-themes-color-alts~ as a convenience function to save you from the +trouble of writing separate wrappers for each theme. It still returns a +single value by querying either of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, only here you pass the two keys you want, +first for ~modus-operandi~ then ~modus-vivendi~. + +Take the previous example with the ~cursor~ face: + +#+begin_src emacs-lisp +;; Blue for `modus-operandi' and red for `modus-vivendi' +(set-face-attribute 'cursor nil :background (modus-themes-color-alts 'blue 'red)) +#+end_src + +** Face specs at scale using the themes' palette (DIY) +:properties: +:custom_id: h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae +:end: +#+findex: modus-themes-with-colors +#+cindex: Extracting colors en masse + +The examples here are for large scale operations. For simple, one-off +tweaks, you may prefer the approach documented in the previous section +([[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]). + +The ~modus-themes-with-colors~ macro lets you retrieve multiple color +values by employing the backquote/backtick and comma notation. The +values are stored in the alists ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, while the macro always queries that of the +active Modus theme. + +Here is an abstract example that just returns a list of color values +while ~modus-operandi~ is enabled: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (list fg-main + blue-faint + magenta + magenta-alt-other + cyan-alt-other + fg-special-cold + blue-alt + magenta-faint + cyan + fg-main + green-faint + red-alt-faint + blue-alt-faint + fg-special-warm + cyan-alt + blue)) +;; => +;; ("#000000" "#002f88" "#721045" "#5317ac" +;; "#005a5f" "#093060" "#2544bb" "#752f50" +;; "#00538b" "#000000" "#104410" "#702f00" +;; "#003f78" "#5d3026" "#30517f" "#0031a9") +#+end_src + +Getting a list of colors may have its applications, though what you are +most likely interested in is how to use those variables to configure +several faces at once. To do so we can rely on the built-in +~custom-set-faces~ function, which sets face specifications for the +special =user= theme. That "theme" gets applied on top of regular themes +like ~modus-operandi~ and ~modus-vivendi~. + +This is how it works: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg))))) +#+end_src -This is intended as a proof-of-concept. It is, nonetheless, a -perfectly accessible alternative, conforming with the design -principles of the Modus themes. It still is not as good as the -default colors." +The above snippet will immediately refashion the faces it names once it +is evaluated. However, if you switch between the Modus themes, say, +from ~modus-operandi~ to ~modus-vivendi~, the colors will not get updated to +match those of the new theme. To make things work across the themes, we +need to employ the same technique we discussed in the previous section, +namely, to pass our changes at the post-theme-load phase via a hook. + +The themes provide the ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. With this knowledge, you can +wrap the macro in a function and then assign that function to the hook. +Thus: + +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg)))))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src + +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. + +To discover the faces defined by all loaded libraries, you may do +{{{kbd(M-x list-faces-display)}}}. Be warned that when you =:inherit= a face +you are introducing an implicit dependency, so try to avoid doing so for +libraries other than the built-in {{{file(faces.el)}}} (or at least understand +that things may break if you inherit from a yet-to-be-loaded face). + +Also bear in mind that these examples are meant to work with the Modus +themes. If you are cycling between multiple themes you may encounter +unforeseen issues, such as the colors of the Modus themes being applied +to a non-Modus item. + +Finally, note that you can still use other functions where those make +sense. For example, the ~modus-themes-color-alts~ that was discussed in +the previous section. Adapt the above example like this: + +#+begin_src emacs-lisp +... +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,(modus-themes-color-alts 'blue 'green)))) + ...)) +#+end_src + +** Override colors (DIY) +:properties: +:custom_id: h:307d95dd-8dbd-4ece-a543-10ae86f155a6 +:end: +#+vindex: modus-themes-operandi-color-overrides +#+vindex: modus-themes-vivendi-color-overrides +#+cindex: Change a theme's colors + +The themes provide a mechanism for overriding their color values. This +is controlled by the variables ~modus-themes-operandi-color-overrides~ and +~modus-themes-vivendi-color-overrides~, which are alists that should +mirror a subset of the associations in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ respectively. As with all customisations, +overriding must be done before loading the affected theme. + +Let us approach the present topic one step at a time. Here is a +simplified excerpt of the default palette for Modus Operandi with some +basic background values that apply to buffers and the mode line +(remember to inspect the actual value to find out all the associations +that can be overridden): + +#+begin_src emacs-lisp +(defconst modus-themes-colors-operandi + '((bg-main . "#ffffff") + (bg-dim . "#f8f8f8") + (bg-alt . "#f0f0f0") + (bg-active . "#d7d7d7") + (bg-inactive . "#efefef"))) +#+end_src + +As one can tell, we bind a key to a hexadecimal RGB color value. Now +say we wish to override those specific values and have our changes +propagate to all faces that use those keys. We could write something +like this, which adds a subtle ochre tint: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5"))) +#+end_src + +Once this is evaluated, any subsequent loading of ~modus-operandi~ will +use those values instead of the defaults. No further intervention is +required. + +To reset the changes, we apply this and reload the theme: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides nil) +#+end_src + +Users who wish to leverage such a mechanism can opt to implement it +on-demand by means of a global minor mode. The following snippet covers +both themes and expands to some more assosiations in the palette: + +#+begin_src emacs-lisp +(define-minor-mode my-modus-themes-tinted + "Tweak some Modus themes colors." :init-value nil :global t - (if modus-themes-alt-mode - (setq modus-operandi-theme-override-colors-alist - '(("bg-main" . "#fefcf4") - ("bg-dim" . "#faf6ef") - ("bg-alt" . "#f7efe5") - ("bg-hl-line" . "#f4f0e3") - ("bg-active" . "#e8dfd1") - ("bg-inactive" . "#f6ece5") - ("bg-region" . "#c6bab1") - ("bg-header" . "#ede3e0") - ("bg-tab-bar" . "#dcd3d3") - ("bg-tab-active" . "#fdf6eb") - ("bg-tab-inactive" . "#c8bab8") - ("fg-unfocused" . "#55556f")) - modus-vivendi-theme-override-colors-alist - '(("bg-main" . "#100b17") - ("bg-dim" . "#161129") - ("bg-alt" . "#181732") - ("bg-hl-line" . "#191628") - ("bg-active" . "#282e46") - ("bg-inactive" . "#1a1e39") - ("bg-region" . "#393a53") - ("bg-header" . "#202037") - ("bg-tab-bar" . "#262b41") - ("bg-tab-active" . "#120f18") - ("bg-tab-inactive" . "#3a3a5a") - ("fg-unfocused" . "#9a9aab"))) - (setq modus-operandi-theme-override-colors-alist nil - modus-vivendi-theme-override-colors-alist nil))) - -(defun modus-themes-toggle (&optional arg) - "Toggle between `modus-operandi' and `modus-vivendi' themes. - -With optional \\[universal-argument] prefix, enable -`modus-themes-alt-mode' for the loaded theme." - (interactive "P") - (if arg - (modus-themes-alt-mode 1) - (modus-themes-alt-mode -1)) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) + (if my-modus-themes-tinted + (setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-hl-line . "#f4f0e3") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5") + (bg-region . "#c6bab1") + (bg-header . "#ede3e0") + (bg-tab-bar . "#dcd3d3") + (bg-tab-active . "#fdf6eb") + (bg-tab-inactive . "#c8bab8") + (fg-unfocused . "#55556f")) + modus-themes-vivendi-color-overrides + '((bg-main . "#100b17") + (bg-dim . "#161129") + (bg-alt . "#181732") + (bg-hl-line . "#191628") + (bg-active . "#282e46") + (bg-inactive . "#1a1e39") + (bg-region . "#393a53") + (bg-header . "#202037") + (bg-tab-bar . "#262b41") + (bg-tab-active . "#120f18") + (bg-tab-inactive . "#3a3a5a") + (fg-unfocused . "#9a9aab"))) + (setq modus-themes-operandi-color-overrides nil + modus-themes-vivendi-color-overrides nil))) #+end_src -** Font configurations for Org (and others) -:PROPERTIES: -:ALT_TITLE: Font configs (DIY) -:DESCRIPTION: Optimise for mixed typeface buffers -:CUSTOM_ID: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 -:END: +With this in place, one can invoke {{{kbd(M-x my-modus-themes-tinted)}}} and +then load the Modus theme of their choice. The new palette subset will +come into effect: subtle ochre tints for Modus Operandi and night sky +shades for Modus Vivendi. Switching between the two themes, such as +with {{{kbd(M-x modus-themes-toggle)}}} will also use the overrides. + +Given that this is a user-level customisation, one is free to implement +whatever color values they desire, even if the possible combinations +fall below the minimum 7:1 contrast ratio that governs the design of the +themes (the WCAG AAA legibility standard). Preferences aside, it is +advised to inspect the source code of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ to read the inline commentary: it explains +what the intended use of each palette subset is. + +Furthermore, users may benefit from the ~modus-themes-contrast~ function +that we provide: [[#h:02e25930-e71a-493d-828a-8907fc80f874][test color combinations]]. It measures the contrast +ratio between two color values, so it can help in overriding the palette +(or a subset thereof) without making the end result inaccessible. -The themes are designed to cope well with mixed font settings ([[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option -for no font mixing]]). Currently this applies to =org-mode= and -=markdown-mode=. +** Font configurations for Org and others (DIY) +:properties: +:custom_id: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 +:end: +#+cindex: Font configurations + +The themes are designed to cope well with mixed font configurations. + +[[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option for no font mixing]]. + +This mostly concerns ~org-mode~ and ~markdown-mode~, though expect to find +it elsewhere like in ~Info-mode~. In practice it means that the user can safely opt for a more prose-friendly proportionately spaced typeface as their default, while letting spacing-sensitive elements like tables and inline code always -use a monospaced font, by inheriting from the =fixed-pitch= face. +use a monospaced font, by inheriting from the ~fixed-pitch~ face. -Users can try the built-in =M-x variable-pitch-mode= to see the effect in -action. +Users can try the built-in {{{kbd(M-x variable-pitch-mode)}}} to see the +effect in action. To make everything use your desired font families, you need to configure -the =variable-pitch= (proportional spacing) and =fixed-pitch= (monospaced) +the ~variable-pitch~ (proportional spacing) and ~fixed-pitch~ (monospaced) faces respectively. It may also be convenient to set your main typeface -by configuring the =default= face the same way. +by configuring the ~default~ face the same way. -Put something like this in your initialization file (make sure to read -the documentation of =set-face-attribute=, with =M-x describe-function=): +Put something like this in your initialization file (also consider +reading the doc string of ~set-face-attribute~): #+begin_src emacs-lisp ;; Main typeface @@ -1199,50 +1669,35 @@ ** Font configurations for Org (and others) Note the differences in the =:height= property. The =default= face must specify an absolute value, which is the point size × 10. So if you want -to use a font at point size =11=, you set the height at =110=.[fn:: =:height= +to use a font at point size =11=, you set the height to =110=.[fn:: =:height= values do not need to be rounded to multiples of ten: the likes of =115= are perfectly valid—some typefaces will change to account for those finer increments.] Whereas every other face must have a value that is relative to the default, represented as a floating point (if you use an -integer, say, =15= then that means an absolute height). This is of -paramount importance: it ensures that all fonts can scale gracefully -when using something like the =text-scale-adjust= command which only -operates on the base font size (i.e. the =default= face's absolute -height). - -An alternative syntax for the =default= face, is to pass all typeface -parameters directly to a =font= property.[fn:: Has the benefit of -accepting =fontconfig= parameters (GNU/Linux), such as ="DejaVu Sans -Mono-11:hintstyle=hintslight:autohint=false"=. -https://www.freedesktop.org/software/fontconfig/fontconfig-user.html] -Note that here we use a standard point size: - -#+begin_src emacs-lisp -(set-face-attribute 'default nil :font "DejaVu Sans Mono-11") -#+end_src - -Again, remember to only ever specify an absolute height for the =default=. - -** Org user faces (DIY) -:PROPERTIES: -:DESCRIPTION: Extend styles for org-mode keywords and priorities -:CUSTOM_ID: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad -:END: - -Users of =org-mode= have the option to configure various keywords and +integer, then that means an absolute height). This is of paramount +importance: it ensures that all fonts can scale gracefully when using +something like the ~text-scale-adjust~ command which only operates on the +base font size (i.e. the ~default~ face's absolute height). + +** Custom Org user faces (DIY) +:properties: +:custom_id: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad +:end: +#+cindex: Org extra faces + +Users of ~org-mode~ have the option to configure various keywords and priority cookies to better match their workflow. User options are -=org-todo-keyword-faces= and =org-priority-faces=. +~org-todo-keyword-faces~ and ~org-priority-faces~. -As those are meant to be custom faces, it would be futile to have the -themes try to guess what each user would want to use, which keywords to -target, and so on. Instead, we can provide guidelines on how to -customize things to one's liking with the intent of retaining the -overall aesthetics of the theme. +As those are meant to be custom faces, it is futile to have the themes +guess what each user wants to use, which keywords to target, and so on. +Instead, we can provide guidelines on how to customize things to one's +liking with the intent of retaining the overall aesthetic of the themes. Please bear in mind that the end result of those is not controlled by -the active theme but by how Org maps faces to its constructs. Editing -those while =org-mode= is active requires =M-x org-mode-restart= for changes -to take effect. +the active Modus theme but by how Org maps faces to its constructs. +Editing those while ~org-mode~ is active requires re-initialization of the +mode with {{{kbd(M-x org-mode-restart)}}} for changes to take effect. Let us assume you wish to visually differentiate your keywords. You have something like this: @@ -1257,7 +1712,7 @@ ** Org user faces (DIY) You could then use a variant of the following to inherit from a face that uses the styles you want and also to preserve the properties -applied by the =org-todo= face: +applied by the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1267,10 +1722,10 @@ ** Org user faces (DIY) #+end_src This will refashion the keywords you specify, while letting the other -items in =org-todo-keywords= use their original styles (which are defined -in the =org-todo= and =org-done= faces). +items in ~org-todo-keywords~ use their original styles (which are defined +in the ~org-todo~ and ~org-done~ faces). -If you want back the defaults, try specifying just the =org-todo= face: +If you want back the defaults, try specifying just the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1282,7 +1737,7 @@ ** Org user faces (DIY) When you inherit from multiple faces, you need to quote the list as shown further above. The order is important: the last item is applied over the previous ones. If you do not want to blend multiple faces, you -do not need a quoted list. A pattern of =keyword . face= would suffice. +do not need a quoted list. A pattern of =keyword . face= will suffice. Both approaches can be used simultaneously, as illustrated in this configuration of the priority cookies: @@ -1295,29 +1750,182 @@ ** Org user faces (DIY) #+end_src To find all the faces that are loaded in your current Emacs session, use -=M-x list-faces-display=. Also try =M-x describe-variable= and then specify -the name of each of those Org variables demonstrated above. Their -documentation strings will offer you further guidance. +{{{kbd(M-x list-faces-display)}}}. Try {{{kbd(M-x describe-variable)}}} as well and +then specify the name of each of those Org variables demonstrated above. +Their documentation strings will offer you further guidance. + +Recall that the themes let you retrieve a color from their palette. Do +it if you plan to control face attributes. + +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Custom face specs using the themes' palette]]. + +[[#h:02e25930-e71a-493d-828a-8907fc80f874][Check color combinations]]. + +** Measure color contrast (DIY) +:properties: +:custom_id: h:02e25930-e71a-493d-828a-8907fc80f874 +:end: +#+findex: modus-themes-contrast +#+findex: modus-themes-wcag-formula +#+cindex: Color contrast + +The themes provide the functions ~modus-themes-wcag-formula~ and +~modus-themes-contrast~. The former is a direct implementation of the +WCAG formula: <https://www.w3.org/TR/WCAG20-TECHS/G18.html>. It +calculates the relative luminance of a color value that is expressed in +hexadecimal RGB notation. While the latter function is just a +convenient wrapper for comparing the relative luminance between two +colors. + +In practice, one needs to work only with ~modus-themes-contrast~. It +accepts two color values and returns their contrast ratio. Values range +from 1 to 21 (lowest to highest). The themes are designed to always be +equal or higher than 7 for each combination of background and foreground +that they use (this is the WCAG AAA standard---the most demanding of its +kind). + +A couple of examples (rounded numbers): + +#+begin_src emacs-lisp +;; Pure white with pure green +(modus-themes-contrast "#ffffff" "#00ff00") +;; => 1.37 +;; That is an outright inaccessible combo + +;; Pure black with pure green +(modus-themes-contrast "#000000" "#00ff00") +;; => 15.3 +;; That is is a highly accessible combo +#+end_src + +It does not matter which color value comes first. The ratio is always +the same. + +If one does not wish to read all the decimal points, it is possible to +try something like this: + +#+begin_src emacs-lisp +(format "%0.2f" (modus-themes-contrast "#000000" "#00ff00")) +#+end_src + +While it is fine to perform such calculations on a case-by-case basis, +it is preferable to implement formulas and tables for more demanding +tasks. Such instruments are provided by ~org-mode~ or ~orgtbl-mode~, both +of which are built into Emacs. Below is such a table that derives the +contrast ratio of all colors in the first column (pure red, green, blue) +relative to the color specified in the first row of the second column +(pure white) and rounds the results: + +#+begin_example +| | #ffffff | +|---------+---------| +| #ff0000 | 4.00 | +| #00ff00 | 1.37 | +| #0000ff | 8.59 | +#+tblfm: $2='(modus-themes-contrast $1 @1$2);%0.2f +#+end_example + +To measure color contrast one needs to start from a known value. This +typically is the background. The Modus themes define an expanded +palette in large part because certain colors are only meant to be used +in combination with some others. Consult the source code for the +minutia and relevant commentary. + +Such knowledge may prove valuable while attempting to override some of +the themes' colors: [[#h:307d95dd-8dbd-4ece-a543-10ae86f155a6][Override colors]]. + +** Load theme depending on time of day +:properties: +:custom_id: h:1d1ef4b4-8600-4a09-993c-6de3af0ddd26 +:end: + +While we do provide ~modus-themes-toggle~ to manually switch between the +themes, users may also set up their system to perform such a task +automatically at sunrise and sunset. + +This can be accomplished by specifying the coordinates of one's location +using the built-in {{{file(solar.el)}}} and then configuring the =circadian= +package: + +#+begin_src emacs-lisp +(use-package solar ; built-in + :config + (setq calendar-latitude 35.17 + calendar-longitude 33.36)) + +(use-package circadian ; you need to install this + :ensure + :after solar + (setq circadian-themes '((:sunrise . modus-operandi) + (:sunset . modus-vivendi))) + (circadian-setup)) +#+end_src + +** A theme-agnostic hook for theme loading (DIY) +:properties: +:custom_id: h:86f6906b-f090-46cc-9816-1fe8aeb38776 +:end: + +The themes are designed with the intent to be useful to Emacs users of +varying skill levels, from beginners to experts. This means that we try +to make things easier by not expecting anyone reading this document to +be proficient in Emacs Lisp or programming in general. + +Such a case is with the use of the ~modus-themes-after-load-theme-hook~, +which runs after ~modus-themes-toggle~, ~modus-themes-load-operandi~, or +~modus-themes-load-vivendi~ is evaluated. We recommend using that hook +for advanced customizations, because (1) we know for sure that it is +available once the themes are loaded, and (2) anyone consulting this +manual, especially the sections on enabling and loading the themes, will +be in a good position to benefit from that hook. + +Advanced users who have a need to switch between the Modus themes and +other items will find that such a hook does not meet their requirements: +it only works with the Modus themes and only with the aforementioned +functions. -Furthermore, consider reading the "Notes for aspiring Emacs theme -developers", published on 2020-08-28 by me (Protesilaos Stavrou): -https://protesilaos.com/codelog/2020-08-28-notes-emacs-theme-devs/. +A theme-agnostic setup can be configured thus: + +#+begin_src emacs-lisp +(defvar after-enable-theme-hook nil + "Normal hook run after enabling a theme.") + +(defun run-after-enable-theme-hook (&rest _args) + "Run `after-enable-theme-hook'." + (run-hooks 'after-enable-theme-hook)) + +(advice-add 'enable-theme :after #'run-after-enable-theme-hook) +#+end_src + +This creates the ~after-enable-theme-hook~ and makes it run after each +call to ~enable-theme~, which means that it will work for all themes and +also has the benefit that it does not depend on functions such as +~modus-themes-toggle~ and the others mentioned above. ~enable-theme~ is +called internally by ~load-theme~, so the hook works everywhere. + +Now this specific piece of Elisp may be simple for experienced users, +but it is not easy to read for newcomers, including the author of the +Modus themes for the first several months of their time as an Emacs +user. Hence our hesitation to recommend it as part of the standard +setup of the Modus themes (it is generally a good idea to understand +what the implications are of advising a function). * Face coverage -:PROPERTIES: -:CUSTOM_ID: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 -:END: +:properties: +:custom_id: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 +:end: -Modus Operandi and Modus Vivendi try to provide as close to full face -coverage as possible. This is necessary to ensure a consistently -accessible reading experience across all possible interfaces. +The Modus themes try to provide as close to full face coverage as +possible. This is necessary to ensure a consistently accessible reading +experience across all available interfaces. ** Full support for packages or face groups -:PROPERTIES: -:ALT_TITLE: Supported packages -:DESCRIPTION: Full list of covered face groups -:CUSTOM_ID: h:60ed4275-60d6-49f8-9287-9a64e54bea0e -:END: +:properties: +:alt_title: Supported packages +:description: Full list of covered face groups +:custom_id: h:60ed4275-60d6-49f8-9287-9a64e54bea0e +:end: +#+cindex: Explicitly supported packages This list will always be updated to reflect the current state of the project. The idea is to offer an overview of the known status of all @@ -1337,16 +1945,18 @@ ** Full support for packages or face groups + auto-dim-other-buffers + avy + awesome-tray ++ bbdb + binder + bm + bongo + boon -+ breakpoint (provided by the built-in =gdb-mi.el= library) ++ breakpoint (provided by the built-in {{{file(gdb-mi.el)}}} library) + buffer-expose + calendar and diary + calfw + centaur-tabs -+ change-log and log-view (such as =vc-print-log= and =vc-print-root-log=) ++ cfrs ++ change-log and log-view (such as ~vc-print-log~, ~vc-print-root-log~) + cider + circe + color-rg @@ -1355,6 +1965,7 @@ ** Full support for packages or face groups + company-posframe + compilation-mode + completions ++ consult + counsel* + counsel-css + counsel-notmuch @@ -1363,7 +1974,7 @@ ** Full support for packages or face groups + cperl-mode + csv-mode + ctrlf -+ custom (=M-x customize=) ++ custom (what you get with {{{kbd(M-x customize)}}}) + dap-mode + dashboard (emacs-dashboard) + deadgrep @@ -1381,8 +1992,11 @@ ** Full support for packages or face groups + dired-git-info + dired-narrow + dired-subtree ++ diredc + diredfl ++ diredp (dired+) + disk-usage ++ display-fill-column-indicator-mode + doom-modeline + dynamic-ruler + easy-jekyll @@ -1408,8 +2022,10 @@ ** Full support for packages or face groups + eshell-syntax-highlighting + evil* (evil-mode) + evil-goggles ++ evil-snipe + evil-visual-mark-mode + eww ++ exwm + eyebrowse + fancy-dabbrev + flycheck @@ -1443,7 +2059,7 @@ ** Full support for packages or face groups + helpful + highlight-blocks + highlight-defined -+ highlight-escape-sequences (=hes-mode=) ++ highlight-escape-sequences (~hes-mode~) + highlight-indentation + highlight-numbers + highlight-symbol @@ -1468,6 +2084,7 @@ ** Full support for packages or face groups + interaction-log + ioccur + isearch, occur, etc. ++ isl (isearch-light) + ivy* + ivy-posframe + jira (org-jira) @@ -1477,19 +2094,22 @@ ** Full support for packages or face groups + jupyter + kaocha-runner + keycast -+ line numbers (=display-line-numbers-mode= and global variant) ++ line numbers (~display-line-numbers-mode~ and global variant) + lsp-mode + lsp-ui ++ macrostep + magit + magit-imerge + make-mode + man ++ marginalia + markdown-mode -+ markup-faces (=adoc-mode=) ++ markup-faces (~adoc-mode~) + mentor + messages + minibuffer-line + minimap ++ mmm-mode + modeline + mood-line + moody @@ -1512,11 +2132,12 @@ ** Full support for packages or face groups + org-roam + org-superstar + org-table-sticky-header ++ org-tree-slide + org-treescope + origami + outline-mode + outline-minor-faces -+ package (=M-x list-packages=) ++ package (what you get with {{{kbd(M-x list-packages)}}}) + page-break-lines + paradox + paren-face @@ -1532,23 +2153,28 @@ ** Full support for packages or face groups + popup + powerline + powerline-evil ++ prism ([[#h:a94272e0-99da-4149-9e80-11a7e67a2cf2][Note for prism.el]]) + proced + prodigy ++ quick-peek + racket-mode + rainbow-blocks + rainbow-identifiers + rainbow-delimiters + rcirc -+ regexp-builder (also known as =re-builder=) ++ recursion-indicator ++ regexp-builder (also known as ~re-builder~) + rg (rg.el) + ripgrep + rmail + ruler-mode + sallet + selectrum ++ selectrum-prescient + semantic + sesman + shell-script-mode ++ shortdoc + show-paren-mode + shr + side-notes @@ -1557,9 +2183,11 @@ ** Full support for packages or face groups + smart-mode-line + smartparens + smerge ++ solaire + spaceline + speedbar + spell-fu ++ spray + stripes + suggest + switch-window @@ -1570,6 +2198,7 @@ ** Full support for packages or face groups + syslog-mode + table (built-in table.el) + telephone-line ++ terraform-mode + term + tomatinho + transient (pop-up windows such as Magit's) @@ -1580,7 +2209,7 @@ ** Full support for packages or face groups + typescript + undo-tree + vc (built-in mode line status for version control) -+ vc-annotate (=C-x v g=) ++ vc-annotate (the out put of {{{kbd(C-x v g)}}}) + vdiff + vimish-fold + visible-mark @@ -1608,67 +2237,234 @@ ** Full support for packages or face groups GNU Emacs distribution. ** Indirectly covered packages -:PROPERTIES: -:CUSTOM_ID: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 -:END: +:properties: +:custom_id: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 +:end: +#+cindex: Implicitly supported packages These do not require any extra styles because they are configured to inherit from some basic faces. Please confirm. + edit-indirect + evil-owl ++ fortran-mode ++ goggles + i3wm-config-mode + perl-mode + php-mode + rjsx-mode + swift-mode - -** Will NOT be supported -:PROPERTIES: -:CUSTOM_ID: h:6c6e8d94-6782-47fc-9eef-ad78671e9eea -:END: - -I have thus far identified a single package that does fit into the -overarching objective of this project: [[https://github.com/hlissner/emacs-solaire-mode][solaire]]. It basically tries to -cast a less intense background on the main file-visiting buffers, so -that secondary elements like sidebars can have the default (pure -white/black) background. - -I will only cover this package if it ever supports the inverse effect: -less intense colors (but still accessible) for ancillary interfaces -and the intended styles for the content you are actually working on. ++ tab-bar-echo-area * Notes for individual packages -:PROPERTIES: -:CUSTOM_ID: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba -:END: +:properties: +:custom_id: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba +:end: This section covers information that may be of interest to users of individual packages. +** Note for display-fill-column-indicator-mode +:properties: +:custom_id: h:2a602816-bc1b-45bf-9675-4cbbd7bf6cab +:end: + +While designing the style for ~display-fill-column-indicator-mode~, we +stayed close to the mode's defaults: to apply a subtle foreground color +to the ~fill-column-indicator~ face, which blends well with the rest of +theme and is consistent with the role of that mode. This is to not +upset the expectations of users. + +Nevertheless, ~display-fill-column-indicator-mode~ has some known +limitations pertaining to its choice of using typographic characters to +draw its indicator. What should be a continuous vertical line might +appear as a series of dashes in certain contexts or under specific +conditions: a non-default value for ~line-spacing~, scaled and/or +variable-pitch headings have been observed to cause this effect. + +Given that we cannot control such factors, it may be better for affected +users to deviate from the default style of the ~fill-column-indicator~ +face. Instead of setting a foreground color, one could use a background +and have the foreground be indistinguishable from it. For example: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(fill-column-indicator ((,class :background ,bg-inactive + :foreground ,bg-inactive))))) +#+end_src + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +** Note for mmm-mode.el background colors +:properties: +:custom_id: h:99cf0d6c-e478-4e26-9932-3bf3427d13f6 +:end: + +The faces used by {{{file(mmm-mode.el)}}} are expected to have a colorful +background, while they should not touch any foreground value. The idea +is that they must not interfere with existing fontification. Those +background colors need to be distinct from each other, such as an +unambiguous red juxtaposed with a clear blue. + +While this design may be internally consistent with the raison d'être of +that library, it inevitably produces inaccessible color combinations. + +There are two competing goals at play: + +1. Legibility of the text, understood as the contrast ratio between the + background and the foreground. + +2. Semantic precision of each face which entails faithfulness to + color-coding of the underlying background. + +As the Modus themes are designed with the express purpose of conforming +with the first point, we have to forgo the apparent color-coding of the +background elements. Instead we use subtle colors that do not undermine +the legibility of the affected text while they still offer a sense of +added context. + +Users who might prefer to fall below the minimum 7:1 contrast ratio in +relative luminance (the accessibility target we conform with), can opt +to configure the relevant faces on their own. + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +This example uses more vivid background colors, though it comes at the +very high cost of degraded legibility. + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(mmm-cleanup-submode-face ((,class :background ,yellow-refine-bg))) + `(mmm-code-submode-face ((,class :background ,bg-active))) + `(mmm-comment-submode-face ((,class :background ,blue-refine-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-refine-bg))) + `(mmm-default-submode-face ((,class :background ,bg-alt))) + `(mmm-init-submode-face ((,class :background ,magenta-refine-bg))) + `(mmm-output-submode-face ((,class :background ,red-refine-bg))) + `(mmm-special-submode-face ((,class :background ,green-refine-bg))))) +#+end_src + +** Note for prism.el +:properties: +:alt_title: Note for prism +:custom_id: h:a94272e0-99da-4149-9e80-11a7e67a2cf2 +:end: + +This package by Adam Porter, aka "alphapapa" or "github-alphapapa", +implements an alternative to the typical coloration of code. Instead of +highlighting the syntactic constructs, it applies color to different +levels of depth in the code structure. + +As {{{file(prism.el)}}} offers a broad range of customisations, we cannot +style it directly at the theme level: that would run contrary to the +spirit of the package. Instead, we may offer preset color schemes. +Those should offer a starting point for users to adapt to their needs. + +In the following code snippets, we employ the ~modus-themes-with-colors~ +macro: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +These are the minimum recommended settings with 16 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 16) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + magenta + cyan-alt-other + magenta-alt-other + blue + magenta-alt + cyan-alt + red-alt-other + green + fg-main + cyan + yellow + blue-alt + red-alt + green-alt-other + fg-special-warm))) +#+end_src + +With 8 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 8) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-special-cold + magenta + magenta-alt-other + cyan-alt-other + fg-main + blue-alt + red-alt-other + cyan))) +#+end_src + +And this is with 4 colors, which produces results that are the closest +to the themes' default aesthetic: + +#+begin_src emacs-lisp +(setq prism-num-faces 4) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + +If you need to apply desaturation and lightening, you can use what the +{{{file(prism.el)}}} documentation recommends, like this (adapting to the +examples with the 4, 8, 16 colors): + +#+begin_src emacs-lisp +(prism-set-colors + :desaturations (cl-loop for i from 0 below 16 collect (* i 2.5)) + :lightens (cl-loop for i from 0 below 16 collect (* i 2.5)) + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + ** Note on company-mode overlay pop-up -:PROPERTIES: -:CUSTOM_ID: h:20cef8c4-d11f-4053-8b2c-2872925780b1 -:END: +:properties: +:custom_id: h:20cef8c4-d11f-4053-8b2c-2872925780b1 +:end: -By default, the =company-mode= pop-up that lists completion candidates is +By default, the ~company-mode~ pop-up that lists completion candidates is drawn using an overlay. This creates alignment issues every time it is placed above a piece of text that has a different height than the default. The solution recommended by the project's maintainer is to use an -alternative front-end for drawing the pop-up which uses child frames +alternative front-end for drawing the pop-up which draws child frames instead of overlays.[fn:: https://github.com/company-mode/company-mode/issues/1010][fn:: https://github.com/tumashu/company-posframe/] ** Note for ERC escaped color sequences -:PROPERTIES: -:CUSTOM_ID: h:98bdf319-1e32-4469-8a01-771200fba65c -:END: +:properties: +:custom_id: h:98bdf319-1e32-4469-8a01-771200fba65c +:end: -The built-in IRC client =erc= has the ability to colorise any text using -escape sequences that start with =^C= (inserted with =C-q C-c=) and are +The built-in IRC client ~erc~ has the ability to colorise any text using +escape sequences that start with =^C= (inserted with {{{kbd(C-q C-c)}}}) and are followed by a number for the foreground and background.[fn:: This page explains the basics, though it is not specific to Emacs: https://www.mirc.com/colors.html] Possible numbers are 0-15, with the @@ -1681,13 +2477,13 @@ ** Note for ERC escaped color sequences erc-interpret-mirc-color t) #+end_src -As this allows users to make arbitrary combinations, it is impossible to -guarantee a consistently high contrast ratio. All we can we do is -provide guidance on the combinations that satisfy the accessibility -standard of the themes: +As this allows users the chance to make arbitrary combinations, it is +impossible to guarantee a consistently high contrast ratio. All we can +we do is provide guidance on the combinations that satisfy the +accessibility standard of the themes: + Modus Operandi :: Use foreground color 1 for all backgrounds from - 2-15. Like so: =C-q C-c1,N= where =N= is the background. + 2-15. Like so: {{{kbd(C-q C-c1,N)}}} where =N= is the background. + Modus Vivendi :: Use foreground color 0 for all backgrounds from 2-13. Use foreground =1= for backgrounds 14, 15. @@ -1696,35 +2492,38 @@ ** Note for ERC escaped color sequences together, if you must. ** Note for powerline or spaceline -:PROPERTIES: -:CUSTOM_ID: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 -:END: +:properties: +:custom_id: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 +:end: Both Powerline and Spaceline package users will likely need to use the -command =powerline-reset= whenever they make changes to their themes +command ~powerline-reset~ whenever they make changes to their themes and/or modeline setup. -** Note on shr colors -:PROPERTIES: -:CUSTOM_ID: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf -:END: +** Note on SHR colors +:properties: +:custom_id: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf +:end: -Emacs' HTML rendering mechanism (=shr=) may need explicit configuration to -respect the theme's colors instead of whatever specifications the -webpage provides. Consult =C-h v shr-use-colors=. +Emacs' HTML rendering library ({{{file(shr.el)}}}) may need explicit +configuration to respect the theme's colors instead of whatever +specifications the webpage provides. + +Consult {{{kbd(C-h v shr-use-colors)}}}. ** Note for Helm grep -:PROPERTIES: -:CUSTOM_ID: h:d28879a2-8e4b-4525-986e-14c0f873d229 -:END: +:properties: +:custom_id: h:d28879a2-8e4b-4525-986e-14c0f873d229 +:end: There is one face from the Helm package that is meant to highlight the matches of a grep or grep-like command (=ag= or =ripgrep=). It is -=helm-grep-match=. However, this face can only apply when the user does +~helm-grep-match~. However, this face can only apply when the user does not pass =--color=always= as a command-line option for their command. Here is the docstring for that face, which is defined in the -=helm-grep.el= library (view a library with =M-x find-library=). +{{{file(helm-grep.el)}}} library (you can always visit the source code with +{{{kbd(M-x find-library)}}}). #+begin_quote Face used to highlight grep matches. Have no effect when grep backend @@ -1734,23 +2533,23 @@ ** Note for Helm grep The user must either remove =--color= from the flags passed to the grep function, or explicitly use =--color=never= (or equivalent). Helm provides user-facing customization options for controlling the grep -function's parameters, such as =helm-grep-default-command= and -=helm-grep-git-grep-command=. +function's parameters, such as ~helm-grep-default-command~ and +~helm-grep-git-grep-command~. When =--color=always= is in effect, the grep output will use red text in bold letter forms to present the matching part in the list of candidates. That style still meets the contrast ratio target of >= 7:1 (accessibility standard WCAG AAA), because it draws the reference to ANSI color number 1 (red) from the already-supported array of -=ansi-color-names-vector=. +~ansi-color-names-vector~. ** Note on vc-annotate-background-mode -:PROPERTIES: -:CUSTOM_ID: h:5095cbd1-e17a-419c-93e8-951c186362a3 -:END: +:properties: +:custom_id: h:5095cbd1-e17a-419c-93e8-951c186362a3 +:end: -Due to the unique way =vc-annotate= (=C-x v g=) applies colors, support for -its background mode (=vc-annotate-background-mode=) is disabled at the +Due to the unique way ~vc-annotate~ ({{{kbd(C-x v g)}}}) applies colors, support +for its background mode (~vc-annotate-background-mode~) is disabled at the theme level. Normally, such a drastic measure should not belong in a theme: assuming @@ -1760,35 +2559,87 @@ ** Note on vc-annotate-background-mode If there actually is a way to avoid such a course of action, without prejudice to the accessibility standard of this project, then please -report as much or send patches (see [[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). +report as much or send patches ([[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). + +** Note on pdf-tools link hints +:properties: +:custom_id: h:2659d13e-b1a5-416c-9a89-7c3ce3a76574 +:end: + +Hints are drawn by [[https://imagemagick.org/][ImageMagick]], not Emacs, i.e., ImageMagick doesn't +know about the hint face unless you tell ImageMagick about it. By +default, only the foreground and background color attributes are +passed. The below snippet adds to those the various font attributes. As +it queries various faces, specifically ~pdf-links-read-link~ and the faces +it inherits, it needs to be added to your initialization file after +you've customized any faces. + +#+begin_src emacs-lisp +(use-package pdf-links + :config + (let ((spec + (apply #'append + (mapcar + (lambda (name) + (list name + (face-attribute 'pdf-links-read-link + name nil 'default))) + '(:family :width :weight :slant))))) + (setq pdf-links-read-link-convert-commands + `("-density" "96" + "-family" ,(plist-get spec :family) + "-stretch" ,(let* ((width (plist-get spec :width)) + (name (symbol-name width))) + (replace-regexp-in-string "-" "" + (capitalize name))) + "-weight" ,(pcase (plist-get spec :weight) + ('ultra-light "Thin") + ('extra-light "ExtraLight") + ('light "Light") + ('semi-bold "SemiBold") + ('bold "Bold") + ('extra-bold "ExtraBold") + ('ultra-bold "Black") + (_weight "Normal")) + "-style" ,(pcase (plist-get spec :slant) + ('italic "Italic") + ('oblique "Oblique") + (_slant "Normal")) + "-pointsize" "%P" + "-undercolor" "%f" + "-fill" "%b" + "-draw" "text %X,%Y '%c'")))) +#+end_src * Contributing -:PROPERTIES: -:CUSTOM_ID: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 -:END: +:properties: +:custom_id: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 +:end: This section documents the canonical sources of the themes and the ways in which you can contribute to their ongoing development. ** Sources of the themes -:PROPERTIES: -:CUSTOM_ID: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c -:END: +:properties: +:custom_id: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c +:end: +#+cindex: Sources of the themes -The =modus-operandi= and =modus-vivendi= themes are built into Emacs. -Currently they are in the project's =master= branch, which is tracking the -next development release target. +The ~modus-operandi~ and ~modus-vivendi~ themes are built into Emacs. +Currently they are in Emacs' git main branch (trunk), which is tracking +the next development release target. The source code of the themes is [[https://gitlab.com/protesilaos/modus-themes/][available on Gitlab]], for the time being. A [[https://github.com/protesilaos/modus-themes/][mirror on Github]] is also on offer. -An HTML version of this manual is available as an extension to the +An HTML version of this manual is provided as an extension of the [[https://protesilaos.com/modus-themes/][author's personal website]] (does not rely on any non-free code). ** Issues you can help with -:PROPERTIES: -:CUSTOM_ID: h:6536c8d5-3f98-43ab-a787-b94120e735e8 -:END: +:properties: +:custom_id: h:6536c8d5-3f98-43ab-a787-b94120e735e8 +:end: +#+cindex: Contributing A few tasks you can help with: @@ -1802,8 +2653,8 @@ ** Issues you can help with [[#h:111773e2-f26f-4b68-8c4f-9794ca6b9633][Patches require copyright assignment to the FSF]]. -It would be great if your feedback also includes some screenshots, GIFs, -or short videos, as well as further instructions to reproduce a given +It is preferable that your feedback includes some screenshots, GIFs, or +short videos, as well as further instructions to reproduce a given setup. Though this is not a requirement. Whatever you do, bear in mind the overarching objective of the Modus @@ -1813,11 +2664,9 @@ ** Issues you can help with interest of the latter. ** Patches require copyright assignment to the FSF -:PROPERTIES: -:ALT_TITLE: Merge requests -:DESCRIPTION: Legal considerations for code patches -:CUSTOM_ID: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 -:END: +:properties: +:custom_id: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 +:end: Code contributions are most welcome. For any major edit (more than 15 lines, or so, in aggregate per person), you need to make a copyright @@ -1875,48 +2724,57 @@ ** Patches require copyright assignment to the FSF [Which files have you changed so far, and which new files have you written so far?] -Changed a couple of themes that are part of the Emacs source code: - -./etc/themes/modus-operandi-theme.el -./etc/themes/modus-vivendi-theme.el #+end_example * Acknowledgements -:PROPERTIES: -:CUSTOM_ID: h:95c3da23-217f-404e-b5f3-56c75760ebcf -:END: +:properties: +:custom_id: h:95c3da23-217f-404e-b5f3-56c75760ebcf +:end: +#+cindex: Contributors -The Modus themes are a collective effort. Every contribution counts. +The Modus themes are a collective effort. Every bit of work matters. + Author/maintainer :: Protesilaos Stavrou. + Contributions to code or documentation :: Anders Johansson, Basil - L. Contovounesios, Eli Zaretskii, Madhavan Krishnan, Markus Beppler, - Matthew Stevenson, Shreyas Ragavan, Stefan Kangas, Vincent Murphy. - -+ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Alex Griffin, - Alex Peitsinis, Alexey Shmalko, Anders Johansson, André Alexandre - Gomes, Arif Rezai, Basil L. Contovounesios, Damien Cassou, Dario - Gjorgjevski, David Edmondson, Davor Rotim, Divan Santana, Gerry - Agbobada, Gianluca Recchia, Ilja Kocken, Iris Garcia, Len Trigg, - Manuel Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Murilo - Pereira, Nicolas De Jaeghere, Paul Poloskov, Pierre Téchoueyres, Roman - Rudakov, Ryan Phillips, Shreyas Ragavan, Simon Pugnet, Tassilo Horn, - Thibaut Verron, Trey Merkley, Togan Muftuoglu, Uri Sharf, Utkarsh - Singh, Vincent Foley. As well as users: Ben, Eugene, Fourchaux, - Fredrik, Moesasji, Nick, TheBlob42, bepolymathe, dinko, doolio, - jixiuf, okamsn, tycho garen. - -+ Packaging :: Dhavan Vaidya (Debian), Stefan Kangas (core Emacs), - Stefan Monnier (GNU Elpa). + L. Contovounesios, Carlo Zancanaro, Eli Zaretskii, Kostadin Ninev, + Madhavan Krishnan, Markus Beppler, Matthew Stevenson, Nicolas De + Jaeghere, Shreyas Ragavan, Stefan Kangas, Vincent Murphy, Xinglu Chen. + ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, + Burgess Chang, Christian Tietze, Christopher Dimech, Damien Cassou, + Daniel Mendler, Dario Gjorgjevski, David Edmondson, Davor Rotim, Divan + Santana, Gerry Agbobada, Gianluca Recchia, Gustavo Barros, Hörmetjan + Yiltiz, Ilja Kocken, Iris Garcia, Jeremy Friesen, John Haman, Kevin + Fleming, Kostadin Ninev, Len Trigg, Manuel Uberti, Mark Burton, Markus + Beppler, Michael Goldenberg, Morgan Smith, Murilo Pereira, Nicolas De + Jaeghere, Paul Poloskov, Pete Kazmier, Peter Wu, Philip K., Pierre + Téchoueyres, Roman Rudakov, Ryan Phillips, Sam Kleinman, Shreyas + Ragavan, Simon Pugnet, Tassilo Horn, Thibaut Verron, Trey Merkley, + Togan Muftuoglu, Toon Claes, Uri Sharf, Utkarsh Singh, Vincent Foley. + As well as users: Ben, CsBigDataHub1, Emacs Contrib, Eugene, + Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, bepolymathe, doolio, + fleimgruber, iSeeU, jixiuf, okamsn. + ++ Packaging :: Basil L. Contovounesios, Eli Zaretskii, Glenn Morris, + Mauro Aranda, Richard Stallman, Stefan Kangas (core Emacs), Stefan + Monnier (GNU Elpa), André Alexandre Gomes, Dimakakos Dimos, Morgan + Smith, Nicolas Goaziou (Guix), Dhavan Vaidya (Debian). + Inspiration for certain features :: Bozhidar Batsov (zenburn-theme), Fabrice Niessen (leuven-theme). +Special thanks, in no particular order, to Manuel Uberti and Omar +Antolín Camarena for their long time contributions and insightful +commentary. + * Meta -:PROPERTIES: -:CUSTOM_ID: h:13752581-4378-478c-af17-165b6e76bc1b -:END: +:properties: +:custom_id: h:13752581-4378-478c-af17-165b6e76bc1b +:end: +#+cindex: Development notes If you are curious about the principles that govern the development of this project read the essay [[https://protesilaos.com/codelog/2020-03-17-design-modus-themes-emacs/][On the design of the Modus themes]] @@ -1931,32 +2789,501 @@ * Meta + [[https://protesilaos.com/codelog/2020-07-04-modus-themes-faint-colours/][Modus themes: new "faint syntax" option]] (2020-07-04) + [[https://protesilaos.com/codelog/2020-07-08-modus-themes-nuanced-colours/][Modus themes: major review of "nuanced" colours]] (2020-07-08) + [[https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/][Modus themes: review of blue colours]] (2020-09-14) ++ [[https://protesilaos.com/codelog/2020-12-27-modus-themes-review-rainbow-delimiters/][Modus themes: review rainbow-delimiters faces]] (2020-12-27) ++ [[https://protesilaos.com/codelog/2021-01-11-modus-themes-review-select-faint-colours/][Modus themes: review of select "faint" colours]] (2021-01-11) ++ [[https://protesilaos.com/codelog/2021-02-25-modus-themes-diffs-deuteranopia/][The Modus themes now cover deuteranopia in diffs]] (2021-02-25) -And here are the canonical sources for this project's documentation: +And here are the canonical sources of this project's documentation: + Manual :: <https://protesilaos.com/modus-themes> + Change Log :: <https://protesilaos.com/modus-themes-changelog> + Screenshots :: <https://protesilaos.com/modus-themes-pictures> -* External projects (ports) -:PROPERTIES: -:CUSTOM_ID: h:21adb7c8-2208-41e8-803c-052e42e2c05d -:END: - -The present section documents projects that extend the scope of the -Modus themes. The following list will be updated whenever relevant -information is brought to my attention. If you already have or intend -to produce such a port, feel welcome [[https://protesilaos.com/contact][to contact me]]. - -+ Modus exporter :: This is [[https://github.com/polaris64/modus-exporter][an Elisp library written by Simon Pugnet]]. - Licensed under the terms of the GNU General Public License. It is - meant to capture the color values of the active Modus theme (Operandi - or Vivendi) and output it as a valid theme for some other application. - * GNU Free Documentation License -:PROPERTIES: -:APPENDIX: t -:CUSTOM_ID: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 -:END: +:properties: +:appendix: t +:custom_id: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 +:end: #+texinfo: @include doclicense.texi + +#+begin_export html + + GNU Free Documentation License + Version 1.3, 3 November 2008 + + + Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. + <https://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +0. PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document "free" in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of "copyleft", which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + + +1. APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The "Document", below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as "you". You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A "Modified Version" of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A "Secondary Section" is a named appendix or a front-matter section of +the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall +subject (or to related matters) and contains nothing that could fall +directly within that overall subject. (Thus, if the Document is in +part a textbook of mathematics, a Secondary Section may not explain +any mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The "Invariant Sections" are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The "Cover Texts" are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A "Transparent" copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not "Transparent" is called "Opaque". + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, LaTeX input format, SGML +or XML using a publicly available DTD, and standard-conforming simple +HTML, PostScript or PDF designed for human modification. Examples of +transparent image formats include PNG, XCF and JPG. Opaque formats +include proprietary formats that can be read and edited only by +proprietary word processors, SGML or XML for which the DTD and/or +processing tools are not generally available, and the +machine-generated HTML, PostScript or PDF produced by some word +processors for output purposes only. + +The "Title Page" means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, "Title Page" means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +The "publisher" means any person or entity that distributes copies of +the Document to the public. + +A section "Entitled XYZ" means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as "Acknowledgements", +"Dedications", "Endorsements", or "History".) To "Preserve the Title" +of such a section when you modify the Document means that it remains a +section "Entitled XYZ" according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + +2. VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no +other conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + + +3. COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to +give them a chance to provide you with an updated version of the +Document. + + +4. MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +A. Use in the Title Page (and on the covers, if any) a title distinct + from that of the Document, and from those of previous versions + (which should, if there were any, be listed in the History section + of the Document). You may use the same title as a previous version + if the original publisher of that version gives permission. +B. List on the Title Page, as authors, one or more persons or entities + responsible for authorship of the modifications in the Modified + Version, together with at least five of the principal authors of the + Document (all of its principal authors, if it has fewer than five), + unless they release you from this requirement. +C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. +D. Preserve all the copyright notices of the Document. +E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. +F. Include, immediately after the copyright notices, a license notice + giving the public permission to use the Modified Version under the + terms of this License, in the form shown in the Addendum below. +G. Preserve in that license notice the full lists of Invariant Sections + and required Cover Texts given in the Document's license notice. +H. Include an unaltered copy of this License. +I. Preserve the section Entitled "History", Preserve its Title, and add + to it an item stating at least the title, year, new authors, and + publisher of the Modified Version as given on the Title Page. If + there is no section Entitled "History" in the Document, create one + stating the title, year, authors, and publisher of the Document as + given on its Title Page, then add an item describing the Modified + Version as stated in the previous sentence. +J. Preserve the network location, if any, given in the Document for + public access to a Transparent copy of the Document, and likewise + the network locations given in the Document for previous versions + it was based on. These may be placed in the "History" section. + You may omit a network location for a work that was published at + least four years before the Document itself, or if the original + publisher of the version it refers to gives permission. +K. For any section Entitled "Acknowledgements" or "Dedications", + Preserve the Title of the section, and preserve in the section all + the substance and tone of each of the contributor acknowledgements + and/or dedications given therein. +L. Preserve all the Invariant Sections of the Document, + unaltered in their text and in their titles. Section numbers + or the equivalent are not considered part of the section titles. +M. Delete any section Entitled "Endorsements". Such a section + may not be included in the Modified Version. +N. Do not retitle any existing section to be Entitled "Endorsements" + or to conflict in title with any Invariant Section. +O. Preserve any Warranty Disclaimers. + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled "Endorsements", provided it contains +nothing but endorsements of your Modified Version by various +parties--for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + + +5. COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled "History" +in the various original documents, forming one section Entitled +"History"; likewise combine any sections Entitled "Acknowledgements", +and any sections Entitled "Dedications". You must delete all sections +Entitled "Endorsements". + + +6. COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other +documents released under this License, and replace the individual +copies of this License in the various documents with a single copy +that is included in the collection, provided that you follow the rules +of this License for verbatim copying of each of the documents in all +other respects. + +You may extract a single document from such a collection, and +distribute it individually under this License, provided you insert a +copy of this License into the extracted document, and follow this +License in all other respects regarding verbatim copying of that +document. + + +7. AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an "aggregate" if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + + +8. TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled "Acknowledgements", +"Dedications", or "History", the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + + +9. TERMINATION + +You may not copy, modify, sublicense, or distribute the Document +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense, or distribute it is void, and +will automatically terminate your rights under this License. + +However, if you cease all violation of this License, then your license +from a particular copyright holder is reinstated (a) provisionally, +unless and until the copyright holder explicitly and finally +terminates your license, and (b) permanently, if the copyright holder +fails to notify you of the violation by some reasonable means prior to +60 days after the cessation. + +Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + +Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, receipt of a copy of some or all of the same material does +not give you any rights to use it. + + +10. FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions of the +GNU Free Documentation License from time to time. Such new versions +will be similar in spirit to the present version, but may differ in +detail to address new problems or concerns. See +https://www.gnu.org/licenses/. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License "or any later version" applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. If the Document +specifies that a proxy can decide which future versions of this +License can be used, that proxy's public statement of acceptance of a +version permanently authorizes you to choose that version for the +Document. + +11. RELICENSING + +"Massive Multiauthor Collaboration Site" (or "MMC Site") means any +World Wide Web server that publishes copyrightable works and also +provides prominent facilities for anybody to edit those works. A +public wiki that anybody can edit is an example of such a server. A +"Massive Multiauthor Collaboration" (or "MMC") contained in the site +means any set of copyrightable works thus published on the MMC site. + +"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 +license published by Creative Commons Corporation, a not-for-profit +corporation with a principal place of business in San Francisco, +California, as well as future copyleft versions of that license +published by that same organization. + +"Incorporate" means to publish or republish a Document, in whole or in +part, as part of another Document. + +An MMC is "eligible for relicensing" if it is licensed under this +License, and if all works that were first published under this License +somewhere other than this MMC, and subsequently incorporated in whole or +in part into the MMC, (1) had no cover texts or invariant sections, and +(2) were thus incorporated prior to November 1, 2008. + +The operator of an MMC Site may republish an MMC contained in the site +under CC-BY-SA on the same site at any time before August 1, 2009, +provided the MMC is eligible for relicensing. + + +ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + + Copyright (c) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. + A copy of the license is included in the section entitled "GNU + Free Documentation License". + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the "with...Texts." line with this: + + with the Invariant Sections being LIST THEIR TITLES, with the + Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. +#+end_export + +#+html: <!-- + +* Indices +:properties: +:custom_id: h:55104b26-8e94-46cf-9975-43ea00316489 +:end: + +** Function index +:properties: +:index: fn +:custom_id: h:6bec5005-529c-4521-ae05-3d990baffb5b +:end: + +** Variable index +:properties: +:index: vr +:custom_id: h:16ad8df6-b015-40a9-9259-03d4f7a23ee4 +:end: + +** Concept index +:properties: +:index: cp +:custom_id: h:6aa7a656-884b-4c39-b759-087e412eec13 +:end: + +#+html: --> diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el index 346000a093..ce2c75e9a8 100644 --- a/etc/themes/modus-operandi-theme.el +++ b/etc/themes/modus-operandi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Operandi is the light variant of the Modus themes (Modus +;; Vivendi is the dark one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-operandi-theme-slanted-constructs (boolean) -;; modus-operandi-theme-bold-constructs (boolean) -;; modus-operandi-theme-variable-pitch-headings (boolean) -;; modus-operandi-theme-no-mixed-fonts (boolean) -;; modus-operandi-theme-headings (alist) -;; modus-operandi-theme-scale-headings (boolean) -;; modus-operandi-theme-fringes (choice) -;; modus-operandi-theme-org-blocks (choice) -;; modus-operandi-theme-prompts (choice) -;; modus-operandi-theme-mode-line (choice) -;; modus-operandi-theme-diffs (choice) -;; modus-operandi-theme-faint-syntax (boolean) -;; modus-operandi-theme-intense-hl-line (boolean) -;; modus-operandi-theme-intense-paren-match (boolean) -;; modus-operandi-theme-no-link-underline (boolean) -;; modus-operandi-theme-completions (choice) -;; modus-operandi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-operandi-theme-scale-1 1.05 -;; modus-operandi-theme-scale-2 1.1 -;; modus-operandi-theme-scale-3 1.15 -;; modus-operandi-theme-scale-4 1.2 -;; modus-operandi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f -(deftheme modus-operandi - "Light theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Operandi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-operandi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-operandi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-operandi-theme-proportional-fonts - 'modus-operandi-theme-variable-pitch-headings "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-section-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-operandi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-operandi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-operandi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-operandi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-2 1.1 - "Font size slightly larger than `modus-operandi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-3 1.15 - "Font size slightly larger than `modus-operandi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-4 1.2 - "Font size slightly larger than `modus-operandi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-5 1.3 - "Font size slightly larger than `modus-operandi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-operandi-theme-visible-fringes - 'modus-operandi-theme-fringes - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-operandi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-operandi-theme-distinct-org-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-operandi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-operandi-theme-3d-modeline - 'modus-operandi-theme-mode-line - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-operandi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-operandi-theme-subtle-diffs - 'modus-operandi-theme-diffs - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-operandi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-operandi-theme-intense-standard-completions - 'modus-operandi-theme-completions - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-operandi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-operandi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-operandi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-operandi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-operandi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-operandi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-operandi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-operandi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-operandi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-operandi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-operandi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-operandi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-operandi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-operandi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-operandi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-operandi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-operandi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-operandi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-operandi-theme-heading-p (key) - "Query style of KEY in `modus-operandi-theme-headings'." - (cdr (assoc key modus-operandi-theme-headings))) - -(defun modus-operandi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-operandi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-operandi-theme-heading-p `,level)) - (style (or key (modus-operandi-theme-heading-p t))) - (var (if modus-operandi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-operandi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-operandi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-operandi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-operandi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-operandi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-operandi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-operandi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-operandi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-operandi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-operandi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-operandi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-operandi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-operandi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-operandi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-operandi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-operandi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-operandi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-operandi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-operandi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-operandi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-operandi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-operandi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#ffffff") ("fg-main" . "#000000") - ("bg-alt" . "#f0f0f0") ("fg-alt" . "#505050") - ("bg-dim" . "#f8f8f8") ("fg-dim" . "#282828") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#d7d7d7") ("fg-active" . "#0a0a0a") - ("bg-inactive" . "#efefef") ("fg-inactive" . "#404148") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#dde3f4") ("fg-special-cold" . "#093060") - ("bg-special-mild" . "#c4ede0") ("fg-special-mild" . "#184034") - ("bg-special-warm" . "#f0e0d4") ("fg-special-warm" . "#5d3026") - ("bg-special-calm" . "#f8ddea") ("fg-special-calm" . "#61284f") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#a60000") ("green" . "#005e00") - ("yellow" . "#813e00") ("blue" . "#0031a9") - ("magenta" . "#721045") ("cyan" . "#00538b") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#972500") ("green-alt" . "#315b00") - ("yellow-alt" . "#70480f") ("blue-alt" . "#2544bb") - ("magenta-alt" . "#8f0075") ("cyan-alt" . "#30517f") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#a0132f") ("green-alt-other" . "#145c33") - ("yellow-alt-other" . "#863927") ("blue-alt-other" . "#0000c0") - ("magenta-alt-other" . "#5317ac") ("cyan-alt-other" . "#005a5f") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-operandi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#7f1010") ("green-faint" . "#104410") - ("yellow-faint" . "#5f4400") ("blue-faint" . "#002f88") - ("magenta-faint" . "#752f50") ("cyan-faint" . "#12506f") - - ("red-alt-faint" . "#702f00") ("green-alt-faint" . "#30440f") - ("yellow-alt-faint" . "#5d5000") ("blue-alt-faint" . "#003f78") - ("magenta-alt-faint" . "#702565") ("cyan-alt-faint" . "#354f6f") - - ("red-alt-other-faint" . "#7f002f") ("green-alt-other-faint" . "#0f443f") - ("yellow-alt-other-faint" . "#5e3a20") ("blue-alt-other-faint" . "#1f2f6f") - ("magenta-alt-other-faint" . "#5f3f7f") ("cyan-alt-other-faint" . "#2e584f") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#5f0000") ("green-nuanced" . "#004000") - ("yellow-nuanced" . "#3f3000") ("blue-nuanced" . "#201f55") - ("magenta-nuanced" . "#541f4f") ("cyan-nuanced" . "#0f3360") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#fff1f0") ("green-nuanced-bg" . "#ecf7ed") - ("yellow-nuanced-bg" . "#fff3da") ("blue-nuanced-bg" . "#f3f3ff") - ("magenta-nuanced-bg" . "#fdf0ff") ("cyan-nuanced-bg" . "#ebf6fa") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#b60000") ("green-intense" . "#006800") - ("yellow-intense" . "#904200") ("blue-intense" . "#1111ee") - ("magenta-intense" . "#7000e0") ("cyan-intense" . "#205b93") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#f2b0a2") ("green-subtle-bg" . "#aecf90") - ("yellow-subtle-bg" . "#e4c340") ("blue-subtle-bg" . "#b5d0ff") - ("magenta-subtle-bg" . "#f0d3ff") ("cyan-subtle-bg" . "#c0efff") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#ff8892") ("green-intense-bg" . "#5ada88") - ("yellow-intense-bg" . "#f5df23") ("blue-intense-bg" . "#6aaeff") - ("magenta-intense-bg" . "#d5baff") ("cyan-intense-bg" . "#42cbd4") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#ffcccc") ("red-refine-fg" . "#780000") - ("green-refine-bg" . "#aceaac") ("green-refine-fg" . "#004c00") - ("yellow-refine-bg" . "#fff29a") ("yellow-refine-fg" . "#604000") - ("blue-refine-bg" . "#8ac7ff") ("blue-refine-fg" . "#002288") - ("magenta-refine-bg" . "#ffccff") ("magenta-refine-fg" . "#770077") - ("cyan-refine-bg" . "#8eecf4") ("cyan-refine-fg" . "#004850") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#8a0000") ("green-active" . "#004c2e") - ("yellow-active" . "#702d1f") ("blue-active" . "#0030b4") - ("magenta-active" . "#5c2092") ("cyan-active" . "#003f8a") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#f08290") ("green-fringe-bg" . "#62c86a") - ("yellow-fringe-bg" . "#dbba3f") ("blue-fringe-bg" . "#82afff") - ("magenta-fringe-bg" . "#e0a3ff") ("cyan-fringe-bg" . "#2fcddf") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#f2eff3") - ("bg-hl-line-intense" . "#e0e0e0") - ("bg-hl-alt" . "#fbeee0") - ("bg-hl-alt-intense" . "#e8dfd1") - ("bg-paren-match" . "#e0af82") - ("bg-paren-match-intense" . "#c488ff") - ("bg-region" . "#bcbcbc") - - ("bg-tab-bar" . "#d5d5d5") - ("bg-tab-active" . "#f6f6f6") - ("bg-tab-inactive" . "#bdbdbd") - ("fg-tab-active" . "#30169e") - - ("fg-escape-char-construct" . "#8b1030") - ("fg-escape-char-backslash" . "#654d0f") - - ("fg-lang-error" . "#9f004f") - ("fg-lang-warning" . "#604f0f") - ("fg-lang-note" . "#4040ae") - - ("fg-window-divider-inner" . "#888888") - ("fg-window-divider-outer" . "#585858") - - ("fg-unfocused" . "#56576d") - - ("bg-header" . "#e5e5e5") ("fg-header" . "#2a2a2a") - - ("bg-whitespace" . "#fff8fc") ("fg-whitespace" . "#645060") - - ("bg-diff-heading" . "#b7c2dd") ("fg-diff-heading" . "#043355") - ("bg-diff-added" . "#d4fad4") ("fg-diff-added" . "#004500") - ("bg-diff-changed" . "#fcefcf") ("fg-diff-changed" . "#524200") - ("bg-diff-removed" . "#ffe8ef") ("fg-diff-removed" . "#691616") - - ("bg-diff-refine-added" . "#94cf94") ("fg-diff-refine-added" . "#002a00") - ("bg-diff-refine-changed" . "#cccf8f") ("fg-diff-refine-changed" . "#302010") - ("bg-diff-refine-removed" . "#daa2b0") ("fg-diff-refine-removed" . "#400000") - - ("bg-diff-focus-added" . "#bbeabb") ("fg-diff-focus-added" . "#002c00") - ("bg-diff-focus-changed" . "#ecdfbf") ("fg-diff-focus-changed" . "#392900") - ("bg-diff-focus-removed" . "#efcbcf") ("fg-diff-focus-removed" . "#4a0000") - - ("bg-diff-neutral-0" . "#979797") ("fg-diff-neutral-0" . "#040404") - ("bg-diff-neutral-1" . "#b0b0b0") ("fg-diff-neutral-1" . "#252525") - ("bg-diff-neutral-2" . "#cccccc") ("fg-diff-neutral-2" . "#3a3a3a") - - ("bg-mark-sel" . "#a0f0cf") ("fg-mark-sel" . "#005040") - ("bg-mark-del" . "#ffccbb") ("fg-mark-del" . "#840040") - ("bg-mark-alt" . "#f5d88f") ("fg-mark-alt" . "#782900")) - "The entire palette of `modus-operandi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-operandi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-operandi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-operandi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-operandi-theme-default-colors-alist - modus-operandi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-operandi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-operandi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-operandi-theme-with-color-variables - (custom-theme-set-faces - 'modus-operandi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-operandi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-operandi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-operandi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-operandi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-operandi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-operandi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-operandi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-operandi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-operandi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-operandi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-operandi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-operandi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-operandi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-operandi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-operandi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-operandi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-operandi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-operandi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-operandi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-operandi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-operandi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-operandi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-operandi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-operandi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-operandi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-operandi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-operandi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-alt]) - `(xterm-color-names-bright [,fg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,bg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-operandi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-operandi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-operandi + "Accessible and customizable light theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-operandi) (provide-theme 'modus-operandi) -(provide 'modus-operandi-theme) - ;;; modus-operandi-theme.el ends here diff --git a/etc/themes/modus-themes.el b/etc/themes/modus-themes.el new file mode 100644 index 0000000000..ddb42da36b --- /dev/null +++ b/etc/themes/modus-themes.el @@ -0,0 +1,6441 @@ +;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- + +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. + +;; Author: Protesilaos Stavrou <info@protesilaos.com> +;; URL: https://gitlab.com/protesilaos/modus-themes +;; Version: 1.2.0 +;; Package-Requires: ((emacs "26.1")) +;; Keywords: faces, theme, accessibility + +;; This file is part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <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). +;; This file contains all customization options, helper functions, +;; interactive commands, and face specifications. Please refer to the +;; official Info manual for further documentation (distributed with the +;; themes, or available at: <https://protesilaos.com/modus-themes>). +;; +;; The themes share the following customization options, all of which +;; are disabled by default (nil): +;; +;; modus-themes-slanted-constructs (boolean) +;; modus-themes-bold-constructs (boolean) +;; modus-themes-variable-pitch-headings (boolean) +;; modus-themes-variable-pitch-ui (boolean) +;; modus-themes-no-mixed-fonts (boolean) +;; modus-themes-headings (alist) +;; modus-themes-scale-headings (boolean) +;; modus-themes-fringes (choice) +;; modus-themes-lang-checkers (choice) +;; modus-themes-org-blocks (choice) +;; modus-themes-org-habit (choice) +;; modus-themes-prompts (choice) +;; modus-themes-mode-line (choice) +;; modus-themes-diffs (choice) +;; modus-themes-syntax (choice) +;; modus-themes-intense-hl-line (boolean) +;; modus-themes-subtle-line-numbers (boolean) +;; modus-themes-paren-match (choice) +;; modus-themes-region (choice) +;; modus-themes-links (choice) +;; modus-themes-completions (choice) +;; +;; The default scale for headings is as follows (it can be customized as +;; well---remember, no scaling takes place by default): +;; +;; modus-themes-scale-1 1.05 +;; modus-themes-scale-2 1.1 +;; modus-themes-scale-3 1.15 +;; modus-themes-scale-4 1.2 +;; modus-themes-scale-5 1.3 +;; +;; There also exist two unique customization options for overriding +;; color palette values. The specifics are documented in the manual. +;; The symbols are: +;; +;; modus-themes-operandi-color-overrides (alist) +;; modus-themes-vivendi-color-overrides (alist) +;; +;; Below is the list of explicitly supported packages or face groups +;; (there are implicitly supported packages as well, which inherit from +;; font-lock or some basic group). You are encouraged to report any +;; missing package or change you would like to see. +;; +;; ace-window +;; ag +;; alert +;; all-the-icons +;; annotate +;; anzu +;; apropos +;; apt-sources-list +;; artbollocks-mode +;; auctex and TeX +;; auto-dim-other-buffers +;; avy +;; awesome-tray +;; bbdb +;; binder +;; bm +;; bongo +;; boon +;; breakpoint (provided by built-in gdb-mi.el) +;; buffer-expose +;; calendar and diary +;; calfw +;; centaur-tabs +;; cfrs +;; change-log and log-view (`vc-print-log' and `vc-print-root-log') +;; cider +;; circe +;; color-rg +;; column-enforce-mode +;; company-mode +;; company-posframe +;; compilation-mode +;; completions +;; consult +;; counsel +;; counsel-css +;; counsel-notmuch +;; counsel-org-capture-string +;; cov +;; cperl-mode +;; csv-mode +;; ctrlf +;; custom (M-x customize) +;; dap-mode +;; dashboard (emacs-dashboard) +;; deadgrep +;; debbugs +;; define-word +;; deft +;; dictionary +;; diff-hl +;; diff-mode +;; dim-autoload +;; dir-treeview +;; dired +;; dired-async +;; dired-git +;; dired-git-info +;; dired-narrow +;; dired-subtree +;; diredc +;; diredfl +;; diredp (dired+) +;; disk-usage +;; display-fill-column-indicator-mode +;; doom-modeline +;; dynamic-ruler +;; easy-jekyll +;; easy-kill +;; ebdb +;; ediff +;; eglot +;; el-search +;; eldoc +;; eldoc-box +;; elfeed +;; elfeed-score +;; emms +;; enhanced-ruby-mode +;; epa +;; equake +;; erc +;; eros +;; ert +;; eshell +;; eshell-fringe-status +;; eshell-git-prompt +;; eshell-prompt-extras (epe) +;; eshell-syntax-highlighting +;; evil (evil-mode) +;; evil-goggles +;; evil-snipe +;; evil-visual-mark-mode +;; eww +;; exwm +;; eyebrowse +;; fancy-dabbrev +;; flycheck +;; flycheck-color-mode-line +;; flycheck-indicator +;; flycheck-posframe +;; flymake +;; flyspell +;; flyspell-correct +;; flx +;; freeze-it +;; frog-menu +;; focus +;; fold-this +;; font-lock (generic syntax highlighting) +;; forge +;; fountain (fountain-mode) +;; geiser +;; git-commit +;; git-gutter (and variants) +;; git-lens +;; git-rebase +;; git-timemachine +;; git-walktree +;; gnus +;; golden-ratio-scroll-screen +;; helm +;; helm-ls-git +;; helm-switch-shell +;; helm-xref +;; helpful +;; highlight-blocks +;; highlight-defined +;; highlight-escape-sequences (`hes-mode') +;; highlight-indentation +;; highlight-numbers +;; highlight-symbol +;; highlight-tail +;; highlight-thing +;; hl-defined +;; hl-fill-column +;; hl-line-mode +;; hl-todo +;; hydra +;; hyperlist +;; ibuffer +;; icomplete +;; ido-mode +;; iedit +;; iflipb +;; imenu-list +;; indium +;; info +;; info-colors +;; interaction-log +;; ioccur +;; isearch, occur, etc. +;; isl (isearch-light) +;; ivy +;; ivy-posframe +;; jira (org-jira) +;; journalctl-mode +;; js2-mode +;; julia +;; jupyter +;; kaocha-runner +;; keycast +;; line numbers (`display-line-numbers-mode' and global variant) +;; lsp-mode +;; lsp-ui +;; macrostep +;; magit +;; magit-imerge +;; make-mode +;; man +;; marginalia +;; markdown-mode +;; markup-faces (`adoc-mode') +;; mentor +;; messages +;; minibuffer-line +;; minimap +;; mmm-mode +;; modeline +;; mood-line +;; mpdel +;; mu4e +;; mu4e-conversation +;; multiple-cursors +;; neotree +;; no-emoji +;; notmuch +;; num3-mode +;; nxml-mode +;; objed +;; orderless +;; org +;; org-journal +;; org-noter +;; org-pomodoro +;; org-recur +;; org-roam +;; org-superstar +;; org-table-sticky-header +;; org-tree-slide +;; org-treescope +;; origami +;; outline-mode +;; outline-minor-faces +;; package (M-x list-packages) +;; page-break-lines +;; paradox +;; paren-face +;; parrot +;; pass +;; pdf-tools +;; persp-mode +;; perspective +;; phi-grep +;; phi-search +;; pkgbuild-mode +;; pomidor +;; popup +;; powerline +;; powerline-evil +;; prism (see "Note for prism.el" in the manual) +;; proced +;; prodigy +;; quick-peek +;; racket-mode +;; rainbow-blocks +;; rainbow-identifiers +;; rainbow-delimiters +;; rcirc +;; recursion-indicator +;; regexp-builder (also known as `re-builder') +;; rg +;; ripgrep +;; rmail +;; ruler-mode +;; sallet +;; selectrum +;; selectrum-prescient +;; semantic +;; sesman +;; shell-script-mode +;; shortdoc +;; show-paren-mode +;; shr +;; side-notes +;; sieve-mode +;; skewer-mode +;; smart-mode-line +;; smartparens +;; smerge +;; spaceline +;; speedbar +;; spell-fu +;; spray +;; stripes +;; suggest +;; switch-window +;; swiper +;; swoop +;; sx +;; symbol-overlay +;; tab-bar-mode +;; tab-line-mode +;; syslog-mode +;; table (built-in table.el) +;; telephone-line +;; terraform-mode +;; term +;; tomatinho +;; transient (pop-up windows like Magit's) +;; trashed +;; treemacs +;; tty-menu +;; tuareg +;; typescript +;; undo-tree +;; vc (built-in mode line status for version control) +;; vc-annotate (C-x v g) +;; vdiff +;; vimish-fold +;; visible-mark +;; visual-regexp +;; volatile-highlights +;; vterm +;; wcheck-mode +;; web-mode +;; wgrep +;; which-function-mode +;; which-key +;; whitespace-mode +;; window-divider-mode +;; winum +;; writegood-mode +;; woman +;; xah-elisp-mode +;; xref +;; xterm-color (and ansi-colors) +;; yaml-mode +;; yasnippet +;; ztree +;; +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): +;; +;; - modus-operandi-theme.el (Light theme) +;; - modus-vivendi-theme.el (Dark theme) + +;;; Code: + +\f + +(require 'cl-lib) + +(defgroup modus-themes () + "Options for `modus-operandi', `modus-vivendi'." + :group 'faces + :link '(info-link "(modus-themes) Top") + :prefix "modus-themes-" + :tag "Modus Themes") + +;;; Variables for each theme variant + +;;;; Modus Operandi + +(define-obsolete-variable-alias + 'modus-operandi-theme-default-colors-alist + 'modus-themes-colors-operandi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-operandi + 'modus-themes-operandi-colors + "1.1.0") + +(defconst modus-themes-operandi-colors + '(;; base values + (bg-main . "#ffffff") (fg-main . "#000000") + (bg-dim . "#f8f8f8") (fg-dim . "#282828") + (bg-alt . "#f0f0f0") (fg-alt . "#505050") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") + (bg-inactive . "#efefef") (fg-inactive . "#404148") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") + (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") + (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") + (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#a60000") + (red-alt . "#972500") + (red-alt-other . "#a0132f") + (red-faint . "#7f1010") + (red-alt-faint . "#702f00") + (red-alt-other-faint . "#7f002f") + (green . "#005e00") + (green-alt . "#315b00") + (green-alt-other . "#145c33") + (green-faint . "#104410") + (green-alt-faint . "#30440f") + (green-alt-other-faint . "#0f443f") + (yellow . "#813e00") + (yellow-alt . "#70480f") + (yellow-alt-other . "#863927") + (yellow-faint . "#5f4400") + (yellow-alt-faint . "#5d5000") + (yellow-alt-other-faint . "#5e3a20") + (blue . "#0031a9") + (blue-alt . "#2544bb") + (blue-alt-other . "#0000c0") + (blue-faint . "#003497") + (blue-alt-faint . "#0f3d8c") + (blue-alt-other-faint . "#001087") + (magenta . "#721045") + (magenta-alt . "#8f0075") + (magenta-alt-other . "#5317ac") + (magenta-faint . "#752f50") + (magenta-alt-faint . "#7b206f") + (magenta-alt-other-faint . "#55348e") + (cyan . "#00538b") + (cyan-alt . "#30517f") + (cyan-alt-other . "#005a5f") + (cyan-faint . "#005077") + (cyan-alt-faint . "#354f6f") + (cyan-alt-other-faint . "#125458") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#b60000") + (orange-intense . "#904200") + (green-intense . "#006800") + (yellow-intense . "#605b00") + (blue-intense . "#1f1fce") + (magenta-intense . "#a8007f") + (purple-intense . "#7f10d0") + (cyan-intense . "#005f88") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#8a0000") + (green-active . "#004c2e") + (yellow-active . "#702d1f") + (blue-active . "#0030b4") + (magenta-active . "#5c2092") + (cyan-active . "#003f8a") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#f2b0a2") + (red-intense-bg . "#ff8892") + (green-subtle-bg . "#aecf90") + (green-intense-bg . "#5ada88") + (yellow-subtle-bg . "#e4c340") + (yellow-intense-bg . "#f5df23") + (blue-subtle-bg . "#b5d0ff") + (blue-intense-bg . "#6aaeff") + (magenta-subtle-bg . "#f0d3ff") + (magenta-intense-bg . "#d5baff") + (cyan-subtle-bg . "#c0efff") + (cyan-intense-bg . "#42cbd4") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#f08290") + (green-fringe-bg . "#62c86a") + (yellow-fringe-bg . "#dbba3f") + (blue-fringe-bg . "#82afff") + (magenta-fringe-bg . "#e0a3ff") + (cyan-fringe-bg . "#2fcddf") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#ef6f79") + (red-graph-1-bg . "#ff9f9f") + (green-graph-0-bg . "#49d239") + (green-graph-1-bg . "#6dec6d") + (yellow-graph-0-bg . "#efec08") + (yellow-graph-1-bg . "#dbff4e") + (blue-graph-0-bg . "#55a2f0") + (blue-graph-1-bg . "#7fcfff") + (magenta-graph-0-bg . "#ba86ef") + (magenta-graph-1-bg . "#e7afff") + (cyan-graph-0-bg . "#30d3f0") + (cyan-graph-1-bg . "#6fefff") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") + (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") + (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") + (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") + (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") + (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") + (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") + (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") + (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") + (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") + (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#f2eff3") + (bg-hl-line-intense . "#e0e0e0") + (bg-hl-alt . "#fbeee0") + (bg-hl-alt-intense . "#e8dfd1") + (bg-paren-match . "#e0af82") + (bg-paren-match-intense . "#c488ff") + (bg-region . "#bcbcbc") + + (bg-tab-bar . "#d5d5d5") + (bg-tab-active . "#f6f6f6") + (bg-tab-inactive . "#bdbdbd") + (bg-tab-inactive-alt . "#999999") + (fg-tab-active . "#30169e") + + (fg-escape-char-construct . "#8b1030") + (fg-escape-char-backslash . "#654d0f") + + (fg-lang-error . "#9f004f") + (fg-lang-warning . "#604f0f") + (fg-lang-note . "#4040ae") + (fg-lang-underline-error . "#ef4f54") + (fg-lang-underline-warning . "#cf9f00") + (fg-lang-underline-note . "#3f6fef") + + (fg-window-divider-inner . "#888888") + (fg-window-divider-outer . "#585858") + + (fg-unfocused . "#56576d") + + (fg-docstring . "#2a486a") + (fg-comment-yellow . "#5f4400") + + (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") + + (bg-whitespace . "#f5efef") (fg-whitespace . "#624956") + + (bg-diff-heading . "#b7cfe0") (fg-diff-heading . "#041645") + (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") + (bg-diff-added-deuteran . "#daefff") (fg-diff-added-deuteran . "#002044") + (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") + (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") + + (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") + (bg-diff-refine-added-deuteran . "#77c0ef") (fg-diff-refine-added-deuteran . "#000035") + (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") + (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") + + (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") + (bg-diff-focus-added-deuteran . "#bacfff") (fg-diff-focus-added-deuteran . "#001755") + (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") + (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") + + (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") + (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") + (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") + + (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") + (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") + (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) + "The entire palette of `modus-operandi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +;;;; Modus Vivendi + +(define-obsolete-variable-alias + 'modus-vivendi-theme-default-colors-alist + 'modus-themes-colors-vivendi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-vivendi + 'modus-themes-vivendi-colors + "1.1.0") + +(defconst modus-themes-vivendi-colors + '(;; base values + (bg-main . "#000000") (fg-main . "#ffffff") + (bg-dim . "#110b11") (fg-dim . "#e0e6f0") + (bg-alt . "#181a20") (fg-alt . "#a8a8a8") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#323232") (fg-active . "#f4f4f4") + (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") + (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") + (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") + (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#ff8059") + (red-alt . "#f4923b") + (red-alt-other . "#ff9977") + (red-faint . "#ffa0a0") + (red-alt-faint . "#f5aa80") + (red-alt-other-faint . "#ff9fbf") + (green . "#44bc44") + (green-alt . "#70c900") + (green-alt-other . "#00cd68") + (green-faint . "#88cf88") + (green-alt-faint . "#a8cf88") + (green-alt-other-faint . "#88cfaf") + (yellow . "#eecc00") + (yellow-alt . "#cfdf30") + (yellow-alt-other . "#f0ce43") + (yellow-faint . "#d2b580") + (yellow-alt-faint . "#cabf77") + (yellow-alt-other-faint . "#d0ba95") + (blue . "#2fafff") + (blue-alt . "#79a8ff" ) + (blue-alt-other . "#00bcff") + (blue-faint . "#92baff") + (blue-alt-faint . "#a0acf5") + (blue-alt-other-faint . "#87c8ff") + (magenta . "#feacd0") + (magenta-alt . "#f78fe7") + (magenta-alt-other . "#b6a0ff") + (magenta-faint . "#e0b2d6") + (magenta-alt-faint . "#ef9fe4") + (magenta-alt-other-faint . "#cfa6ff") + (cyan . "#00d3d0") + (cyan-alt . "#4ae8fc") + (cyan-alt-other . "#6ae4b9") + (cyan-faint . "#90c4ed") + (cyan-alt-faint . "#a0bfdf") + (cyan-alt-other-faint . "#a4d0bb") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#fe6060") + (orange-intense . "#fba849") + (green-intense . "#4fe42f") + (yellow-intense . "#f0dd60") + (blue-intense . "#4fafff") + (magenta-intense . "#ff62d4") + (purple-intense . "#9f80ff") + (cyan-intense . "#3fdfd0") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#ffa7ba") + (green-active . "#70d73f") + (yellow-active . "#dbbe5f") + (blue-active . "#34cfff") + (magenta-active . "#d5b1ff") + (cyan-active . "#00d8b4") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#762422") + (red-intense-bg . "#a4202a") + (green-subtle-bg . "#2f4a00") + (green-intense-bg . "#006800") + (yellow-subtle-bg . "#604200") + (yellow-intense-bg . "#874900") + (blue-subtle-bg . "#10387c") + (blue-intense-bg . "#2a40b8") + (magenta-subtle-bg . "#49366e") + (magenta-intense-bg . "#7042a2") + (cyan-subtle-bg . "#00415e") + (cyan-intense-bg . "#005f88") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#8f1f4b") + (green-fringe-bg . "#006700") + (yellow-fringe-bg . "#6f4f00") + (blue-fringe-bg . "#3f33af") + (magenta-fringe-bg . "#6f2f89") + (cyan-fringe-bg . "#004f8f") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#af0404") + (red-graph-1-bg . "#801f2f") + (green-graph-0-bg . "#24ba2f") + (green-graph-1-bg . "#0f8f07") + (yellow-graph-0-bg . "#ffd03e") + (yellow-graph-1-bg . "#d7d800") + (blue-graph-0-bg . "#406fff") + (blue-graph-1-bg . "#2f50c8") + (magenta-graph-0-bg . "#af7bee") + (magenta-graph-1-bg . "#7f59cf") + (cyan-graph-0-bg . "#47dcfa") + (cyan-graph-1-bg . "#0bc0df") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") + (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") + (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") + (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") + (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") + (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") + (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") + (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") + (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") + (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") + (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#151823") + (bg-hl-line-intense . "#2f2f2f") + (bg-hl-alt . "#181732") + (bg-hl-alt-intense . "#282e46") + (bg-paren-match . "#5f362f") + (bg-paren-match-intense . "#7416b5") + (bg-region . "#3c3c3c") + + (bg-tab-bar . "#2c2c2c") + (bg-tab-active . "#0e0e0e") + (bg-tab-inactive . "#3d3d3d") + (bg-tab-inactive-alt . "#595959") + (fg-tab-active . "#5ac3cf") + + (fg-escape-char-construct . "#e7a59a") + (fg-escape-char-backslash . "#abab00") + + (fg-lang-error . "#ef8690") + (fg-lang-warning . "#b0aa00") + (fg-lang-note . "#9d9def") + (fg-lang-underline-error . "#ff4a6f") + (fg-lang-underline-warning . "#d0de00") + (fg-lang-underline-note . "#5f6fff") + + (fg-window-divider-inner . "#646464") + (fg-window-divider-outer . "#969696") + + (fg-unfocused . "#93959b") + + (fg-docstring . "#b0d6f5") + (fg-comment-yellow . "#cab98f") + + (bg-header . "#212121") (fg-header . "#dddddd") + + (bg-whitespace . "#101424") (fg-whitespace . "#aa9e9f") + + (bg-diff-heading . "#304466") (fg-diff-heading . "#dae7ff") + (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") + (bg-diff-added-deuteran . "#001a3f") (fg-diff-added-deuteran . "#c4cdf2") + (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") + (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") + + (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") + (bg-diff-refine-added-deuteran . "#234f8f") (fg-diff-refine-added-deuteran . "#dde4ff") + (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") + (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") + + (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") + (bg-diff-focus-added-deuteran . "#00405f") (fg-diff-focus-added-deuteran . "#bfe4ff") + (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") + (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") + + (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") + (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") + (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") + + (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") + (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") + (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) + "The entire palette of `modus-vivendi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +\f + +;;; Custom faces + +;; These faces are used internally to ensure consistency between various +;; groups and to streamline the evaluation of relevant customization +;; options. +(defface modus-theme-subtle-red nil + "Subtle red background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-green nil + "Subtle green background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-yellow nil + "Subtle yellow background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-blue nil + "Subtle blue background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-magenta nil + "Subtle magenta background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-cyan nil + "Subtle cyan background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-neutral nil + "Subtle gray background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-red nil + "Intense red background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-green nil + "Intense green background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-yellow nil + "Intense yellow background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-blue nil + "Intense blue background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-magenta nil + "Intense magenta background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-cyan nil + "Intense cyan background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-neutral nil + "Intense gray background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-red nil + "Combination of accented red background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-green nil + "Combination of accented green background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-yellow nil + "Combination of accented yellow background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-blue nil + "Combination of accented blue background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-magenta nil + "Combination of accented magenta background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-cyan nil + "Combination of accented cyan background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-red nil + "A red background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-green nil + "A green background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-yellow nil + "A yellow background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-blue nil + "A blue background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-magenta nil + "A magenta background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-cyan nil + "A cyan background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-red nil + "A red background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-green nil + "A green background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-yellow nil + "A yellow background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-blue nil + "A blue background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-magenta nil + "A magenta background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-cyan nil + "A cyan background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-red nil + "A nuanced red background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-green nil + "A nuanced green background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-yellow nil + "A nuanced yellow background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-blue nil + "A nuanced blue background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-magenta nil + "A nuanced magenta background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-cyan nil + "A nuanced cyan background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-cold nil + "Combines the 'special cold' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-mild nil + "Combines the 'special mild' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-warm nil + "Combines the 'special warm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-calm nil + "Combines the 'special calm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-added nil + "Combines green colors for the 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-changed nil + "Combines yellow colors for the 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-removed nil + "Combines red colors for the 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-added nil + "Combines green colors for word-wise 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-changed nil + "Combines yellow colors for word-wise 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-removed nil + "Combines red colors for word-wise 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-added nil + "Combines green colors for the focused 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-changed nil + "Combines yellow colors for the focused 'changed' state in. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-removed nil + "Combines red colors for the focused 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-heading nil + "Combines blue colors for the diff hunk heading. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-pseudo-header nil + "Generic style for some elements that function like headings. +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-alt nil + "Combines yellow colors for marking special lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-del nil + "Combines red colors for marking deletable lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-sel nil + "Combines green colors for marking lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-symbol nil + "Applies a blue color and other styles for mark indicators. +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-1 nil + "General purpose face for use in headings level 1 +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-2 nil + "General purpose face for use in headings level 2. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-3 nil + "General purpose face for use in headings level 3. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-4 nil + "General purpose face for use in headings level 4. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-5 nil + "General purpose face for use in headings level 5. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-6 nil + "General purpose face for use in headings level 6. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-7 nil + "General purpose face for use in headings level 7. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-8 nil + "General purpose face for use in headings level 8. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-hl-line nil + "General purpose face for the current line. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-intense-hl-line' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-bold nil + "Generic face for applying a conditional bold weight. +This behaves in accordance with `modus-themes-bold-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-slant nil + "Generic face for applying a conditional slant (italics). +This behaves in accordance with `modus-themes-slanted-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-variable-pitch nil + "Generic face for applying a conditional `variable-pitch'. +This behaves in accordance with `modus-themes-no-mixed-fonts', +`modus-themes-variable-pitch-headings' for all heading levels, and +`modus-themes-variable-pitch-ui'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-0 nil + "Special subdued red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-1 nil + "Special prominent red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-0 nil + "Special subdued green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-1 nil + "Special prominent green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-0 nil + "Special subdued yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-1 nil + "Special prominent yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-0 nil + "Special subdued blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-1 nil + "Special prominent blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-0 nil + "Special subdued magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-1 nil + "Special prominent magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-0 nil + "Special subdued cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-1 nil + "Special prominent cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-note nil + "Generic face for linter or spell checker notes. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-warning nil + "Generic face for linter or spell checker warnings. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-error nil + "Generic face for linter or spell checker errors. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +\f + +;;; Customization options + +;;;; Current customization options (>= 1.0.0) + +(defcustom modus-themes-operandi-color-overrides nil + "Override colors in the Modus Operandi palette. + +For form, see `modus-themes-operandi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +(defcustom modus-themes-vivendi-color-overrides nil + "Override colors in the Modus Vivendi palette. + +For form, see `modus-themes-vivendi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +;; The byte compiler complains when a defcustom isn't a top level form +(let* ((names (mapcar (lambda (pair) + (symbol-name (car pair))) + modus-themes-operandi-colors)) + (colors (mapcar #'intern (sort names #'string<)))) + (put 'modus-themes-operandi-color-overrides + 'custom-options (copy-sequence colors)) + (put 'modus-themes-vivendi-color-overrides + 'custom-options (copy-sequence colors))) + +(defcustom modus-themes-slanted-constructs nil + "Use slanted text in more code constructs (italics or oblique)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Slanted 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 + :link '(info-link "(modus-themes) Bold constructs")) + +(defcustom modus-themes-variable-pitch-headings nil + "Use proportional fonts (variable-pitch) in headings." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Headings' typeface")) + +(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 + :link '(info-link "(modus-themes) UI typeface")) + +(defcustom modus-themes-no-mixed-fonts nil + "Disable inheritance from `fixed-pitch' in some faces. + +This is done by default 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'. +The downside with the default is that users need to explicitly +configure the font family of `fixed-pitch' in order to get a +consistent experience. That may be something they do not want to +do. Hence this option to disable any kind of technique for +mixing fonts." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) No mixed fonts")) + +(defcustom modus-themes-headings + '((t . nil)) + "Alist of styles for headings, with optional value per level. + +To control faces per level from 1-8, use something like this: + + (setq modus-themes-headings + '((1 . highlight) + (2 . line) + (t . rainbow-line-no-bold))) + +To set a uniform value for all heading levels, use this pattern: + + (setq modus-themes-headings + '((t . rainbow-line-no-bold))) + +The default uses a fairly desaturated foreground value in +combination with a bold typographic weight. To specify this +style for a given level N (assuming you wish to have another +fallback option), just specify the value t like this: + + (setq modus-themes-headings + '((1 . t) + (2 . line) + (t . rainbow-line-no-bold))) + +A description of all possible values: + ++ `no-bold' retains the default text color while removing the + typographic weight. + ++ `line' is the same as the default plus an overline over the + heading. + ++ `line-no-bold' is the same as `line' without bold weight. + ++ `rainbow' uses a more colorful foreground in combination with + bold weight. + ++ `rainbow-line' is the same as `rainbow' plus an overline. + ++ `rainbow-line-no-bold' is the same as `rainbow-line' without + the bold weight. + ++ `highlight' retains the default style of a fairly desaturated + foreground combined with a bold weight and add to it a subtle + accented background. + ++ `highlight-no-bold' is the same as `highlight' without a bold + weight. + ++ `rainbow-highlight' is the same as `highlight' but with a more + colorful foreground. + ++ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' + without a bold weight. + ++ `section' retains the default looks and adds to them both an + overline and a slightly accented background. It is, in effect, + a combination of the `line' and `highlight' values. + ++ `section-no-bold' is the same as `section' without a bold + weight. + ++ `rainbow-section' is the same as `section' but with a more + colorful foreground. + ++ `rainbow-section-no-bold' is the same as `rainbow-section' + without a bold weight. + ++ `no-color' does not apply any color to the heading, meaning + that it uses the foreground of the `default' face. It still + renders the text with a bold typographic weight. + ++ `no-color-no-bold' is like `no-color' but without the bold + weight." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type + '(alist + :key-type symbol + :value-type + (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) + (const :tag "Like the default without bold weight" no-bold) + (const :tag "Like the default plus overline" line) + (const :tag "Like `line' without bold weight" line-no-bold) + (const :tag "Like the default but with more colorful foreground" rainbow) + (const :tag "Like `rainbow' plus overline" rainbow-line) + (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) + (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) + (const :tag "Like the default plus subtle background" highlight) + (const :tag "Like `highlight' without bold weight" highlight-no-bold) + (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) + (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) + (const :tag "Like `highlight' plus overline" section) + (const :tag "Like `section' without bold weight" section-no-bold) + (const :tag "Like `section' with more colorful foreground" rainbow-section) + (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold) + (const :tag "Do not use any distinct foreground color; just bold weight" no-color) + (const :tag "Like `no-bold' but without the distinct foreground color" no-color-no-bold))) + :link '(info-link "(modus-themes) Heading styles")) + +(defcustom modus-themes-scale-headings nil + "Use font scaling for headings. + +For regular headings the scale is controlled by the variables +`modus-themes-scale-1' (smallest) and its variants all the way up +to `modus-themes-scale-4' (larger). While `modus-themes-scale-5' +is reserved for special headings that must be the largest on the +scale. + +A special heading is, in this context, one that does not fit into +the syntax for heading levels that apply to the given mode. For +example, Org's #+title keyword lies outside the normal eight +levels of headings. Whereas, say, Markdown does not have such a +special heading." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Scaled headings")) + +(defcustom modus-themes-scale-1 1.05 + "Font size that is slightly larger than the base value. + +This size is used for level 4 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-2 1.1 + "Font size slightly larger than `modus-themes-scale-1'. + +This size is used for level 3 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-3 1.15 + "Font size slightly larger than `modus-themes-scale-2'. + +This size is used for level 2 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-4 1.2 + "Font size slightly larger than `modus-themes-scale-3'. + +This size is used for level 1 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-5 1.3 + "Font size slightly larger than `modus-themes-scale-4'. + +This size is only used for 'special' top level headings, such as +Org's file title heading, denoted by the #+title key word, and +the Org agenda structure headers. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-fringes nil + "Define the visibility of fringes. + +Nil means the fringes have no background color. Option `subtle' +will apply a greyscale value that is visible yet close to the +main buffer background color. Option `intense' will use a more +pronounced greyscale value." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No visible fringes (default)" nil) + (const :tag "Subtle greyscale background" subtle) + (const :tag "Intense greyscale background" intense)) + :link '(info-link "(modus-themes) Fringes")) + +(defcustom modus-themes-lang-checkers nil + "Control the style of spelling and code checkers/linters. + +Nil (the default) applies a color-coded underline to the affected +text, while it leaves the original foreground in tact. If the +display spec of Emacs has support for it, the underline's style +is that of a wave, otherwise it is a straight line. + +Options `subtle-foreground' and `intense-foreground' add a +color-coded underline while also changing the text's foreground +accordingly. The style of the underline is the same as with the +default option. + +Option `straight-underline' is like the default but always +applies a straight line under the affected text. Same principle +for `subtle-foreground-straight-underline' and its counterpart +`intense-foreground-straight-underline'. + +Option `colored-background' uses a straight underline, a +background, and a foreground. All are color-coded. This is the +most intense combination of face properties." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Only color-coded wavy underline (default)" nil) + (const :tag "Like the default, but with a straight underline" straight-underline) + (const :tag "Color-coded wavy underline; subtle foreground" subtle-foreground) + (const :tag "Combines `straight-underline' and `subtle-foreground'" subtle-foreground-straight-underline) + (const :tag "Color-coded wavy underline; intense foreground" intense-foreground) + (const :tag "Combines `straight-underline' and `intense-foreground'" intense-foreground-straight-underline) + (const :tag "Color-coded background, foreground, straight underline" colored-background)) + :link '(info-link "(modus-themes) Language checkers")) + +(defcustom modus-themes-org-blocks nil + "Use a subtle gray or color-coded background for Org blocks. + +Nil means that the block will have no background of its own and +will use the default that applies to the rest of the buffer. + +Option `grayscale' (or `greyscale') will apply a subtle neutral +gray background to the block's contents. It also affects the +begin and end lines of the block: their background will be +extended to the edge of the window for Emacs version >= 27 where +the ':extend' keyword is recognized by `set-face-attribute'. + +Option `rainbow' will use an accented background for the contents +of the block. The exact color will depend on the programming +language and is controlled by the `org-src-block-faces' +variable (refer to the theme's source code for the current +association list)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No Org block background (default)" nil) + (const :tag "Subtle gray block background" grayscale) + (const :tag "Subtle gray block background (alt spelling)" greyscale) + (const :tag "Color-coded background per programming language" rainbow)) + :link '(info-link "(modus-themes) Org mode blocks")) + +(defcustom modus-themes-org-habit nil + "Control the presentation of the `org-habit' graph. + +The default is meant to conform with the original aesthetic of +`org-habit'. It employs all four color codes that correspond to +the org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This +results in a total of eight colors in use: red, yellow, green, +blue, in tinted and shaded versions. They cover the full set of +information provided by the `org-habit' consistency graph. + +Option `simplified' is like the default except that it removes +the dichotomy between current and future variants by applying +uniform color-coded values. It applies a total of four colors: +red, yellow, green, blue. They produce a simplified consistency +graph that is more legible (or less \"busy\") than the default. +The intent is to shift focus towards the distinction between the +four states of a habit task, rather than each state's +present/future outlook. + +Option `traffic-light' further reduces the available colors to +red, yellow, and green. As in `simplified', present and future +variants appear uniformly, but differently from it, the 'clear' +state is rendered in a green hue, instead of the original blue. +This is meant to capture the use-case where a habit task being +\"too early\" is less important than it being \"too late\". The +difference between ready and clear states is attenuated by +painting both of them using shades of green. This option thus +highlights the alert and overdue states." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Respect the original design of org-habit (default)" nil) + (const :tag "Like the default, but do not distinguish between present and future variants" simplified) + (const :tag "Like `simplified', but only use red, yellow, green" traffic-light)) + :link '(info-link "(modus-themes) Org agenda habits")) + +(defcustom modus-themes-mode-line nil + "Adjust the overall style of the mode line. + +Nil is a two-dimensional rectangle with a border around it. The +active and the inactive modelines use different shades of +greyscale values for the background and foreground. + +A `3d' value will apply a three-dimensional effect to the active +modeline. The inactive modelines remain two-dimensional and are +toned down a bit, relative to the nil value. + +The `moody' option is meant to optimize the modeline for use with +the library of the same name. This practically means to remove +the box effect and rely on underline and overline properties +instead. It also tones down the inactive modelines. Despite its +intended purpose, this option can also be used without the +`moody' library. + +The `borderless' option uses the same colors as the default (nil +value), but removes the border effect. This is done by making +the box property use the same color as the background, +effectively blending the two and creating some padding. + +The `borderless-3d' and `borderless-moody' approximate the `3d' +and `moody' options respectively, while removing the borders. +However, to ensure that the inactive modelines remain visible, +they apply a slightly more prominent background to them than what +their counterparts do (same inactive background as with the +default)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Two-dimensional box (default)" nil) + (const :tag "Three-dimensional style for the active mode line" 3d) + (const :tag "No box effects, which are optimal for use with the `moody' library" moody) + (const :tag "Like the default, but without border effects" borderless) + (const :tag "Like `3d', but without noticeable border" borderless-3d) + (const :tag "Like `moody', but without noticeable border" borderless-moody)) + :link '(info-link "(modus-themes) Mode line")) + +(defcustom modus-themes-diffs nil + "Adjust the overall styles of diffs. + +Nil means to use fairly intense color combinations for diffs. +For example, you get a rich green background with a green +foreground for added lines. Word-wise or 'refined' diffs follow +the same pattern but use different shades of those colors to +remain distinct. + +A `desaturated' value follows the same principles as with the nil +option, while it tones down all relevant colors. + +Option `fg-only' will remove all accented backgrounds, except +from word-wise changes. It instead uses color-coded foreground +values to differentiate between added/removed/changed lines. If +a background is necessary, such as with `ediff', then a subtle +greyscale value is used. + +Option `bg-only' applies a background but does not override the +text's foreground. This makes it suitable for a non-nil value +passed to `diff-font-lock-syntax' (note: Magit does not support +syntax highlighting in diffs as of 2020-11-25, version +20201116.1057). + +Option `deuteranopia' accounts for red-green color defficiency by +replacing all instances of green with colors on the blue side of +the spectrum. Other stylistic changes are made in the interest +of optimizing for such a use-case." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Intensely colored backgrounds (default)" nil) + (const :tag "Slightly accented backgrounds with tinted text" desaturated) + (const :tag "No backgrounds, except for refined diffs" fg-only) + (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only) + (const :tag "Optimized for red-green color defficiency" deuteranopia)) + :link '(info-link "(modus-themes) Diffs")) + +(defcustom modus-themes-completions nil + "Apply special styles to the UI of completion frameworks. + +This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as +any other tool meant to enhance their experience. The effect +will vary depending on the completion framework. + +Nil means to remain faithful to the metaphors that each UI +establishes. For example, Icomplete and Ido only use foreground +colors to style their matches, whereas Ivy or Helm rely on an +aesthetic that combines colored backgrounds with appropriate text +color. + +Option `moderate' will apply a combination of background and +foreground that is fairly subtle. For Icomplete and the like, +this constitutes a departure from their standard style. While +Ivy, Helm, and the others, will use less pronounced colors for +applicable contexts. + +Option `opinionated' will apply color combinations that refashion +the completion UI. So Icomplete et al will now use styles that +resemble the defaults of Ivy and co., while the latter group will +revert to an even more nuanced aesthetic." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Respect the framework's established aesthetic (default)" nil) + (const :tag "Subtle backgrounds for various elements" moderate) + (const :tag "Radical alternative to the framework's looks" opinionated)) + :link '(info-link "(modus-themes) Completion UIs")) + +(defcustom modus-themes-prompts nil + "Use subtle or intense styles for minibuffer and REPL prompts. + +Nil means to only use an accented foreground color. + +Options `subtle-accented' and `intense-accented' will change both +the background and the foreground values to use accented color +combinations that follow the hue of the default styles' +foreground (e.g. the default minibuffer prompt is cyan text, so +these combinations will involved a cyan background and an +appropriate cyan foreground). + +Options `subtle-gray' and `intense-gray' are like their +`subtle-accented' and `intense-accented' counterparts, except +they use grayscale values instead of accented ones." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + (const :tag "No prompt background (default)" nil) + (const :tag "Subtle accented background for the prompt" subtle-accented) + (const :tag "Same as `subtle-accented' for compatibility with older versions" subtle) + (const :tag "Intense accented background and foreground for the prompt" intense-accented) + (const :tag "Same as `intense-accented' for compatibility with older versions" intense) + (const :tag "Like `subtle-accented' but grayscale" subtle-gray) + (const :tag "Like `intense-accented' but grayscale" intense-gray)) + :link '(info-link "(modus-themes) Command prompts")) + +(defcustom modus-themes-intense-hl-line nil + "Use a more prominent background for command `hl-line-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line highlighting")) + +(defcustom modus-themes-subtle-line-numbers nil + "Use more subtle style for command `display-line-numbers-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line numbers")) + +(defcustom modus-themes-paren-match nil + "Choose the style of matching parentheses or delimiters. + +Nil means to use a subtle tinted background color (the default). + +Option `intense' applies a saturated background color. + +Option `subtle-bold' is the same as the default, but also makes +use of bold typographic weight (inherits the `bold' face). + +Option `intense-bold' is the same as `intense', while it also +uses a bold weight." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Sublte tinted background (default)" nil) + (const :tag "Like the default, but also use bold typographic weight" subtle-bold) + (const :tag "Intense saturated background" intense) + (const :tag "Like `intense' but with bold weight" intense-bold)) + :link '(info-link "(modus-themes) Matching parentheses")) + +(defcustom modus-themes-syntax nil + "Control the overall style of code syntax highlighting. + +Nil (the default) means to use colors on the cyan-blue-magenta +side of the spectrum. There is little to no use of greens, +yellows, and reds. + +Option `faint' is like the default in terms of the choice of +palette but applies desaturated color values. + +Option `yellow-comments' applies a yellow tint to comments. The +rest of the syntax is the same as the default. + +Option `green-strings' replaces the blue/cyan/cold color variants +in strings with greener alternatives. The rest of the syntax +remains the same. + +Option `yellow-comments-green-strings' combines yellow comments +with green strings and the rest of the default syntax +highlighting style. + +Option `alt-syntax' expands the color palette and applies new +color combinations. Strings are green. Doc strings are magenta +tinted. Comments are gray. + +Option `alt-syntax-yellow-comments' combines `alt-syntax' with +`yellow-comments'. + +Option `faint-yellow-comments' combines the `faint' style with +`yellow-comments'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) + (const :tag "Like the default, but with desaturated color values" faint) + (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) + (const :tag "Use green for strings, keep the default style for the rest" green-strings) + (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) + (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) + (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments) + (const :tag "Like `faint' but with yellow comments" faint-yellow-comments)) + :link '(info-link "(modus-themes) Syntax styles")) + +(defcustom modus-themes-links nil + "Set the style of links. + +Nil means to use an underline that is the same color as the +foreground. + +Option `faint' applies desaturated colors to the link's text and +underline. + +Option `neutral-underline' applies a subtle grey underline, while +retaining the link's foreground. + +Option `faint-neutral-underline' combines a desaturated text +color with a subtle grey underline. + +Option `no-underline' removes link underlines altogether, while +retaining their original fairly vivid color. + +Option `underline-only' applies an underline while making the +affected text colorless (it uses the same foreground as the +theme's default). + +Option `neutral-underline-only' makes the text colorless while +using a subtle underline below it." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Undeline link using the same color as the text (default)" nil) + (const :tag "Like the default, but apply less intense colors to links" faint) + (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) + (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) + (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline) + (const :tag "Apply underline only; use default foreground" underline-only) + (const :tag "Like `underline-only' but with a subtle underline" neutral-underline-only)) + :link '(info-link "(modus-themes) Link styles")) + +(defcustom modus-themes-region nil + "Change the overall appearance of the active region. + +Nil (the default) means to only use a prominent gray background +with a neutral foreground. The foreground overrides all syntax +highlighting. The region extends to the edge of the window. + +Option `no-extend' preserves the default aesthetic but prevents +the region from extending to the edge of the window. + +Option `bg-only' applies a faint tinted background that is +distinct from all others used in the theme, while it does not +override any existing colors. It extends to the edge of the +window. + +Option `bg-only-no-extend' is a combination of the `bg-only' and +`no-extend' options." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) + (const :tag "As with the default, but does not extend" no-extend) + (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) + (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)) + :link '(info-link "(modus-themes) Active region")) + +\f + +;;;; Deprecated customization options (prior to 1.0.0) + +;;;;; Modus Operandi obsolete options + +(make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") + +;;;;; Modus Vivendi obsolete options + +(make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") + +\f + +;;; Internal functions + +(defun modus-themes--palette (theme) + "Return color palette for Modus theme THEME. +THEME is a symbol, either `modus-operandi' or `modus-vivendi'." + (pcase theme + ('modus-operandi + (append modus-themes-operandi-color-overrides + modus-themes-operandi-colors)) + ('modus-vivendi + (append modus-themes-vivendi-color-overrides + modus-themes-vivendi-colors)) + (_theme + (error "'%s' is not a Modus theme" theme)))) + +(defvar modus-themes-faces) +(defvar modus-themes-custom-variables) + +(defmacro modus-themes-theme (name) + "Bind NAME's color palette around face specs and variables. + +NAME should be the proper name of a Modus theme, either +`modus-operandi' or `modus-vivendi'. + +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." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes--palette ',name)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (custom-theme-set-faces ',name ,@modus-themes-faces) + (custom-theme-set-variables ',name ,@modus-themes-custom-variables)))) + +(defun modus-themes--current-theme () + "Return current theme." + (car custom-enabled-themes)) + +;; Helper functions that are meant to ease the implementation of the +;; above customization options. +(defun modus-themes--bold-weight () + "Conditional use of a heavier text weight." + (when modus-themes-bold-constructs + (list :inherit 'bold))) + +(defun modus-themes--mixed-fonts () + "Conditional application of `fixed-pitch' inheritance." + (unless modus-themes-no-mixed-fonts + (list :inherit 'fixed-pitch))) + +(defun modus-themes--slant () + "Conditional use of italics for slant attribute." + (if modus-themes-slanted-constructs + (list 'italic) + (list 'normal))) + +(defun modus-themes--variable-pitch () + "Conditional use of `variable-pitch' in headings." + (when modus-themes-variable-pitch-headings + (list :inherit 'variable-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--fringe (mainbg subtlebg intensebg) + "Conditional use of background colors for fringes. +MAINBG is the default. SUBTLEBG should be a subtle greyscale +value. INTENSEBG must be a more pronounced greyscale color." + (pcase modus-themes-fringes + ('intense (list :background intensebg)) + ('subtle (list :background subtlebg)) + (_ (list :background mainbg)))) + +(defun modus-themes--line-numbers (mainfg mainbg altfg &optional altbg) + "Conditional use of colors for line numbers. +MAINBG and MAINFG are the default colors. ALTFG is a color that +combines with the theme's primary background (white/black)." + (if modus-themes-subtle-line-numbers + (list :background (or altbg 'unspecified) :foreground altfg) + (list :background mainbg :foreground mainfg))) + +(defun modus-themes--lang-check (underline subtlefg intensefg bg) + "Conditional use of foreground colors for language checkers. +UNDERLINE is a color-code value for the affected text's underline +property. SUBTLEFG and INTENSEFG follow the same color-coding +pattern and represent a value that is faint or vibrant +respectively. BG is a color-coded background." + (pcase modus-themes-lang-checkers + ('colored-background + (list :underline underline :background bg :foreground intensefg)) + ('intense-foreground + (list :underline (list :color underline :style 'wave) :foreground intensefg)) + ('intense-foreground-straight-underline + (list :underline underline :foreground intensefg)) + ('subtle-foreground + (list :underline (list :color underline :style 'wave) :foreground subtlefg)) + ('subtle-foreground-straight-underline + (list :underline underline :foreground subtlefg)) + ('straight-underline + (list :underline underline)) + (_ (list :underline (list :color underline :style 'wave))))) + +(defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) + "Conditional use of background colors for prompts. +MAINFG is the prompt's standard foreground. SUBTLEBG should be a +subtle accented background that works with SUBTLEFG. INTENSEBG +must be a more pronounced accented color that should be +combinable with INTENSEFG." + (pcase modus-themes-prompts + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + ('intense-accented (list :background intensebg :foreground intensefg)) + ('intense (list :background intensebg :foreground intensefg)) + ('subtle-accented (list :background subtlebg :foreground subtlefg)) + ('subtle (list :background subtlebg :foreground subtlefg)) + ('subtle-gray (list :inherit 'modus-theme-subtle-neutral)) + ('intense-gray (list :inherit 'modus-theme-intense-neutral)) + (_ (list :background nil :foreground mainfg)))) + +(defun modus-themes--paren (normalbg intensebg) + "Conditional use of intense colors for matching parentheses. +NORMALBG should be the special palette color 'bg-paren-match' or +something similar. INTENSEBG must be easier to discern next to +other backgrounds, such as the special palette color +'bg-paren-match-intense'." + (pcase modus-themes-paren-match + ('subtle-bold (list :inherit 'bold :background normalbg)) + ('intense-bold (list :inherit 'bold :background intensebg)) + ('intense (list :background intensebg)) + (_ (list :background normalbg)))) + +(defun modus-themes--syntax-foreground (fg faint) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-extra (fg faint alt) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-string (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground alt)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-docstring (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground green)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-comment (fg yellow) + "Apply foreground value to strings in code syntax. +FG is the default. YELLOW is a color variant of that name." + (pcase modus-themes-syntax + ('yellow-comments (list :foreground yellow)) + ('yellow-comments-green-strings (list :foreground yellow)) + ('alt-syntax-yellow-comments (list :foreground yellow)) + ('faint-yellow-comments (list :foreground yellow)) + (_ (list :foreground fg)))) + +(defun modus-themes--heading-p (key) + "Query style of KEY in `modus-themes-headings'." + (cdr (assoc key modus-themes-headings))) + +(defun modus-themes--heading (level fg fg-alt bg border) + "Conditional styles for `modus-themes-headings'. + +LEVEL is the heading's position in their order. FG is the +default text color. FG-ALT is an accented, more saturated value +than the default. BG is a nuanced, typically accented, +background that can work well with either of the foreground +values. BORDER is a color value that combines well with the +background and alternative foreground." + (let* ((key (modus-themes--heading-p `,level)) + (style (or key (modus-themes--heading-p t))) + (var (when modus-themes-variable-pitch-headings + 'variable-pitch)) + (varbold (if var + (append (list 'bold) (list var)) + 'bold))) + (pcase style + ('no-bold + (list :inherit `,var :foreground fg)) + ('no-color + (list :inherit `,varbold)) + ('no-color-no-bold + (list :inherit `,var)) + ('line + (list :inherit `,varbold :foreground fg :overline border)) + ('line-no-bold + (list :inherit `,var :foreground fg :overline border)) + ('rainbow + (list :inherit `,varbold :foreground fg-alt)) + ('rainbow-no-bold + (list :inherit `,var :foreground fg-alt)) + ('rainbow-line + (list :inherit `,varbold :foreground fg-alt :overline border)) + ('rainbow-line-no-bold + (list :inherit `,var :foreground fg-alt :overline border)) + ('highlight + (list :inherit `,varbold :background bg :foreground fg)) + ('highlight-no-bold + (list :inherit `,var :background bg :foreground fg)) + ('rainbow-highlight + (list :inherit `,varbold :background bg :foreground fg-alt)) + ('rainbow-highlight-no-bold + (list :inherit `,var :background bg :foreground fg-alt)) + ('section + (list :inherit `,varbold :background bg :foreground fg :overline border :extend t)) + ('section-no-bold + (list :inherit `,var :background bg :foreground fg :overline border :extend t)) + ('rainbow-section + (list :inherit `,varbold :background bg :foreground fg-alt :overline border :extend t)) + ('rainbow-section-no-bold + (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) + (_ + (list :inherit `,varbold :foreground fg))))) + +(defun modus-themes--org-block (bgblk) + "Conditionally set the background of Org blocks. +BGBLK applies to a distinct neutral background. Else blocks have +no background of their own (the default), so they look the same +as the rest of the buffer. + +`modus-themes-org-blocks' also accepts a `rainbow' option +which is applied conditionally to `org-src-block-faces' (see the +theme's source code)." + (if (or (eq modus-themes-org-blocks 'grayscale) + (eq modus-themes-org-blocks 'greyscale)) + (list :background bgblk :extend t) + (list :background 'unspecified))) + +(defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) + "Conditionally set the styles of Org block delimiters. +BG, FG, BGACCENT, FGACCENT apply a background and foreground +color respectively. + +The former pair is a greyscale combination that should be more +distinct than the background of the block. It is applied to the +default styles or when `modus-themes-org-blocks' is set +to `greyscale'. + +The latter pair should be more subtle than the background of the +block, as it is used when `modus-themes-org-blocks' is +set to `rainbow'." + (pcase modus-themes-org-blocks + ('grayscale (list :background bg :foreground fg :extend t)) + ('greyscale (list :background bg :foreground fg :extend t)) + ('rainbow (list :background bgaccent :foreground fgaccent)) + (_ (list :background bg :foreground fg)))) + +(defun modus-themes--org-habit (default &optional traffic simple) + "Specify background values for `modus-themes-org-habit'. +If no optional TRAFFIC argument is supplied, the DEFAULT is used +instead. Same for SIMPLE." + (pcase modus-themes-org-habit + ('traffic-light (list :background (or traffic default))) + ('simplified (list :background (or simple default))) + (_ (list :background default)))) + +(defun modus-themes--mode-line-attrs + (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) + "Color combinations for `modus-themes-mode-line'. + +FG and BG are the default colors. FG-ALT and BG-ALT are meant to +accommodate the options for a 3D modeline or a `moody' compliant +one. BORDER applies to all permutations of the modeline, except +the three-dimensional effect, where BORDER-3D is used instead. + +Optional ALT-STYLE applies an appropriate style to the mode +line's box property. + +Optional BORDER-WIDTH specifies an integer for the width of the +rectangle that produces the box effect. + +Optional FG-DISTANT should be close to the main background +values. It is intended to be used as a distant-foreground +property." + (pcase modus-themes-mode-line + ('3d + `(:background ,bg-alt :foreground ,fg-alt + :box (:line-width ,(or border-width 1) + :color ,border-3d + :style ,(and alt-style 'released-button)))) + ('moody + `(:background ,bg-alt :foreground ,fg-alt + :underline ,border :overline ,border + :distant-foreground ,fg-distant)) + ('borderless + `(:foreground ,fg :background ,bg :box ,bg)) + ('borderless-3d + `(:foreground ,fg :background ,bg + :box (:line-width ,(or border-width 1) + :color ,bg + :style ,(and alt-style 'released-button)))) + ('borderless-moody + `(:background ,bg :foreground ,fg + :underline ,bg :overline ,bg + :distant-foreground ,fg-distant)) + (_ + `(:foreground ,fg :background ,bg :box ,border)))) + +(defun modus-themes--diff + (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional deuteranbg deuteranfg bg-only-fg) + "Color combinations for `modus-themes-diffs'. + +FG-ONLY-BG should be similar or the same as the main background. +FG-ONLY-FG should be a saturated accent value that can be +combined with the former. + +MAINBG must be one of the dedicated backgrounds for diffs while +MAINFG must be the same for the foreground. + +ALTBG needs to be a slightly accented background that is meant to +be combined with ALTFG. Both must be less intense than MAINBG +and MAINFG respectively. + +DEUTERANBG and DEUTERANFG must be combinations of colors that account +for red-green color defficiency (deuteranopia). + +Optional BG-ONLY-FG applies ALTFG else leaves the foreground +unspecified." + (pcase modus-themes-diffs + ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) + ('desaturated (list :background altbg :foreground altfg)) + ('deuteranopia (list :background (or deuteranbg mainbg) :foreground (or deuteranfg mainfg))) + ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) + (_ (list :background mainbg :foreground mainfg)))) + +(defun modus-themes--diff-deuteran (deuteran main) + "Determine whether the DEUTERAN or MAIN color should be used. +This is based on whether `modus-themes-diffs' has the value +`deuteranopia'." + (if (eq modus-themes-diffs 'deuteranopia) + (list deuteran) + (list main))) + +(defun modus-themes--diff-text (fg-only-fg default-fg) + "Like `modus-themes--diff', but only for foregrounds. +FG-ONLY-FG is the foreground that is used when diffs are styled +using only foreground colors. DEFAULT-FG covers all other +cases." + (pcase modus-themes-diffs + ('fg-only (list :foreground fg-only-fg)) + ('bg-only (list :foreground 'unspecified)) + (_ (list :foreground default-fg)))) + +(defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) + "Combinations for `modus-themes-completions'. + +MAINFG is an accented foreground value. SUBTLEBG is an accented +background value that can be combined with MAINFG. INTENSEBG and +INTENSEFG are accented colors that are designed to be used in +tandem. + +These are intended for Icomplete, Ido, and related." + (pcase modus-themes-completions + ('opinionated (list :background intensebg :foreground intensefg)) + ('moderate (list :background subtlebg :foreground mainfg)) + (_ (list :foreground mainfg)))) + +(defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) + "Combinations for `modus-themes-completions'. + +SUBTLEFACE and INTENSEFACE are custom theme faces that combine a +background and foreground value. The difference between the two +is a matter of degree. + +ALTFACE is a combination of colors that represents a departure +from the UI's default aesthetics. Optional ALTFG is meant to be +used in tandem with it. + +Optional BOLD will apply a heavier weight to the text. + +These are intended for Helm, Ivy, etc." + (pcase modus-themes-completions + ('opinionated (list :inherit (list altface bold) + :foreground (or altfg 'unspecified))) + ('moderate (list :inherit (list subtleface bold))) + (_ (list :inherit (list intenseface bold))))) + +(defun modus-themes--link (fg fgfaint underline) + "Conditional application of link styles. +FG is the link's default color for its text and underline +property. FGFAINT is a desaturated color for the text and +underline. UNDERLINE is a grey color only for the undeline." + (pcase modus-themes-links + ('faint (list :foreground fgfaint :underline t)) + ('neutral-underline (list :foreground fg :underline underline)) + ('faint-neutral-underline (list :foreground fgfaint :underline underline)) + ('no-underline (list :foreground fg :underline nil)) + ('underline-only (list :underline t)) + ('neutral-underline-only (list :underline underline)) + (_ (list :foreground fg :underline t)))) + +(defun modus-themes--link-color (fg fgfaint &optional neutralfg) + "Extends `modus-themes--link'. +FG is the main accented foreground. FGFAINT is also accented, +yet desaturated. Optional NEUTRALFG is a gray value." + (pcase modus-themes-links + ('faint (list :foreground fgfaint)) + ('faint-neutral-underline (list :foreground fgfaint)) + ('underline-only (list :underline t :foreground (or neutralfg 'unspecified))) + ('neutral-underline-only (list :underline 'unspecified :foreground (or neutralfg 'unspecified))) + (_ (list :foreground fg)))) + +(defun modus-themes--scale (amount) + "Scale heading by AMOUNT. +AMOUNT is a customization option." + (when modus-themes-scale-headings + (list :height amount))) + +(defun modus-themes--region (bg fg bgsubtle) + "Apply `modus-themes-region' styles. + +BG and FG are the main values that are used by default. BGSUBTLE +is a subtle background value that can be combined with all colors +used to fontify text and code syntax." + (pcase modus-themes-region + ('bg-only (list :background bgsubtle)) + ('bg-only-no-extend (list :background bgsubtle :extend nil)) + ('no-extend (list :background bg :foreground fg :extend nil)) + (_ (list :background bg :foreground fg)))) + +\f + +;;;; Utilities for DIY users + +;; 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 as those in +`modus-themes-operandi-colors' and `modus-themes-vivendi-colors'." + (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)))) + +(defun modus-themes-current-palette () + "Return current color palette." + (modus-themes--palette (modus-themes--current-theme))) + +;;;###autoload +(defun modus-themes-color (color) + "Return color value for COLOR from current palette. +COLOR is a key in `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (alist-get color (modus-themes-current-palette))) + +;;;###autoload +(defun modus-themes-color-alts (light-color dark-color) + "Return color value from current palette. +When Modus Operandi is enabled, return color value for color +LIGHT-COLOR. When Modus Vivendi is enabled, return color value +for DARK-COLOR. LIGHT-COLOR and DARK-COLOR are keys in +`modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." + (let* ((theme (modus-themes--current-theme)) + (color (pcase theme + ('modus-operandi light-color) + ('modus-vivendi dark-color) + (_theme + (error "'%s' is not a Modus theme" theme))))) + (alist-get color (modus-themes--palette theme)))) + +(defmacro modus-themes-with-colors (&rest body) + "Evaluate BODY with colors from current palette bound. +For colors bound, see `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes-current-palette)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (ignore class ,@colors) ; Silence unused variable warnings + ,@body))) + +\f + +;;;; Commands + +;;;###autoload +(defun modus-themes-load-themes () + "Ensure that the Modus themes are in `custom-enabled-themes'. + +This function is intended for use in package declarations such as +those defined with the help of `use-package'. The idea is to add +this function to the `:init' stage of the package's loading, so +that subsequent calls that assume the presence of a loaded theme, +like `modus-themes-toggle' or `modus-themes-load-operandi', will +continue to work as intended even if they are lazy-loaded (such +as when they are declared in the `:config' phase)." + (unless (or (custom-theme-p 'modus-operandi) + (custom-theme-p 'modus-vivendi)) + (load-theme 'modus-operandi t t) + (load-theme 'modus-vivendi t t))) + +(defvar modus-themes-after-load-theme-hook nil + "Hook that runs after the `modus-themes-toggle' routines.") + +;; The reason we use `load-theme' instead of `enable-theme' is that the +;; former does a kind of "reset" on the face specs. So it plays nicely +;; with `custom-set-faces', as well as defcustom user customizations, +;; including the likes of `modus-themes-operandi-color-overrides'. +;; +;; Tests show that `enable-theme' does not re-read those variables, so +;; it might appear to the unsuspecting user that the themes are somehow +;; broken. +;; +;; This "reset", however, comes at the cost of being a bit slower than +;; `enable-theme'. User who have a stable setup and seldom update their +;; variables during a given Emacs session, are better off using +;; something like this: +;; +;; (defun modus-themes-toggle-enabled () +;; "Toggle between `modus-operandi' and `modus-vivendi' themes." +;; (interactive) +;; (pcase (modus-themes--current-theme) +;; ('modus-operandi (progn (enable-theme 'modus-vivendi) +;; (disable-theme 'modus-operandi))) +;; ('modus-vivendi (progn (enable-theme 'modus-operandi) +;; (disable-theme 'modus-vivendi))) +;; (_ (error "No Modus theme is loaded; evaluate `modus-themes-load-themes' first")))) + +;;;###autoload +(defun modus-themes-load-operandi () + "Load `modus-operandi' and disable `modus-vivendi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-vivendi) + (load-theme 'modus-operandi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +;;;###autoload +(defun modus-themes-load-vivendi () + "Load `modus-vivendi' and disable `modus-operandi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-operandi) + (load-theme 'modus-vivendi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +(defun modus-themes--load-prompt () + "Helper for `modus-themes-toggle'." + (let ((theme + (intern + (completing-read "Load Modus theme (will disable all others): " + '(modus-operandi modus-vivendi) nil t)))) + (mapc #'disable-theme custom-enabled-themes) + (pcase theme + ('modus-operandi (modus-themes-load-operandi)) + ('modus-vivendi (modus-themes-load-vivendi))))) + +;;;###autoload +(defun modus-themes-toggle () + "Toggle between `modus-operandi' and `modus-vivendi' themes. +Also runs `modus-themes-after-load-theme-hook' at its last stage +by virtue of calling either of `modus-themes-load-operandi' and +`modus-themes-load-vivendi' functions." + (interactive) + (modus-themes-load-themes) + (pcase (modus-themes--current-theme) + ('modus-operandi (modus-themes-load-vivendi)) + ('modus-vivendi (modus-themes-load-operandi)) + (_ (modus-themes--load-prompt)))) + +\f + +;;;; Face specifications + +(defconst modus-themes-faces + '( +;;;; custom faces + ;; these bespoke faces are inherited by other constructs below +;;;;; subtle colored backgrounds + `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; intense colored backgrounds + `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) +;;;;; refined background and foreground combinations + ;; general purpose styles that use an accented foreground against an + ;; accented background + `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) + `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) + `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) + `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) + `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) + `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) +;;;;; "active" combinations, mostly for use on the mode line + `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) + `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) + `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) + `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) + `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) + `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) +;;;;; nuanced backgrounds + ;; useful for adding an accented background that is suitable for all + ;; main foreground colors (intended for use in Org source blocks) + `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) + `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) + `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) + `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) + `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) + `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) +;;;;; fringe-specific combinations + `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) +;;;;; special base values + ;; these are closer to the grayscale than the accents defined above + ;; and should only be used when the next closest alternative would be + ;; a greyscale value than an accented one + `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) + `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) + `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) +;;;;; diff-specific combinations + ;; intended for `diff-mode' or equivalent + `(modus-theme-diff-added + ((,class ,@(modus-themes--diff + bg-main green + bg-diff-focus-added fg-diff-focus-added + green-nuanced-bg fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-changed + ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-focus-changed fg-diff-focus-changed + yellow-nuanced-bg fg-diff-changed)))) + `(modus-theme-diff-removed + ((,class ,@(modus-themes--diff + bg-main red + bg-diff-focus-removed fg-diff-focus-removed + red-nuanced-bg fg-diff-removed)))) + `(modus-theme-diff-refine-added + ((,class ,@(modus-themes--diff + bg-diff-added fg-diff-added + bg-diff-refine-added fg-diff-refine-added + bg-diff-focus-added fg-diff-focus-added + bg-diff-refine-added-deuteran fg-diff-refine-added-deuteran)))) + `(modus-theme-diff-refine-changed + ((,class ,@(modus-themes--diff + bg-diff-changed fg-diff-changed + bg-diff-refine-changed fg-diff-refine-changed + bg-diff-focus-changed fg-diff-focus-changed)))) + `(modus-theme-diff-refine-removed + ((,class ,@(modus-themes--diff + bg-diff-removed fg-diff-removed + bg-diff-refine-removed fg-diff-refine-removed + bg-diff-focus-removed fg-diff-focus-removed)))) + `(modus-theme-diff-focus-added + ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-focus-added fg-diff-focus-added + bg-diff-added fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-focus-changed + ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-focus-changed fg-diff-focus-changed + bg-diff-changed fg-diff-changed)))) + `(modus-theme-diff-focus-removed + ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-focus-removed fg-diff-focus-removed + bg-diff-removed fg-diff-removed)))) + `(modus-theme-diff-heading + ((,class ,@(modus-themes--diff + bg-main blue + bg-diff-heading fg-diff-heading + cyan-nuanced-bg cyan-nuanced-fg + bg-header fg-main + t)))) +;;;;; mark indicators + ;; color combinations intended for Dired, Ibuffer, or equivalent + `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) + `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) + `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) + `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) + `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) +;;;;; heading levels + ;; styles for regular headings used in Org, Markdown, Info, etc. + `(modus-theme-heading-1 + ((,class ,@(modus-themes--heading + 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-4)))) + `(modus-theme-heading-2 + ((,class ,@(modus-themes--heading + 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-3)))) + `(modus-theme-heading-3 + ((,class ,@(modus-themes--heading + 3 fg-special-cold blue blue-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-2)))) + `(modus-theme-heading-4 + ((,class ,@(modus-themes--heading + 4 fg-special-mild cyan cyan-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-1)))) + `(modus-theme-heading-5 + ((,class ,@(modus-themes--heading + 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) + `(modus-theme-heading-6 + ((,class ,@(modus-themes--heading + 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) + `(modus-theme-heading-7 + ((,class ,@(modus-themes--heading + 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) + `(modus-theme-heading-8 + ((,class ,@(modus-themes--heading + 8 fg-dim magenta bg-alt bg-region)))) +;;;;; graph-specific faces + `(modus-theme-graph-red-0 ((,class :background ,red-graph-0-bg))) + `(modus-theme-graph-red-1 ((,class :background ,red-graph-1-bg))) + `(modus-theme-graph-green-0 ((,class :background ,green-graph-0-bg))) + `(modus-theme-graph-green-1 ((,class :background ,green-graph-1-bg))) + `(modus-theme-graph-yellow-0 ((,class :background ,yellow-graph-0-bg))) + `(modus-theme-graph-yellow-1 ((,class :background ,yellow-graph-1-bg))) + `(modus-theme-graph-blue-0 ((,class :background ,blue-graph-0-bg))) + `(modus-theme-graph-blue-1 ((,class :background ,blue-graph-1-bg))) + `(modus-theme-graph-magenta-0 ((,class :background ,magenta-graph-0-bg))) + `(modus-theme-graph-magenta-1 ((,class :background ,magenta-graph-1-bg))) + `(modus-theme-graph-cyan-0 ((,class :background ,cyan-graph-0-bg))) + `(modus-theme-graph-cyan-1 ((,class :background ,cyan-graph-1-bg))) +;;;;; language checkers + `(modus-theme-lang-error ((,class ,@(modus-themes--lang-check fg-lang-underline-error fg-lang-error red red-nuanced-bg)))) + `(modus-theme-lang-note ((,class ,@(modus-themes--lang-check fg-lang-underline-note fg-lang-note blue-alt blue-nuanced-bg)))) + `(modus-theme-lang-warning ((,class ,@(modus-themes--lang-check fg-lang-underline-warning fg-lang-warning yellow yellow-nuanced-bg)))) +;;;;; other custom faces + `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) + `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-line-intense bg-hl-line) + :extend t))) + `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) + `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) +;;;; standard faces +;;;;; absolute essentials + `(default ((,class :background ,bg-main :foreground ,fg-main))) + `(cursor ((,class :background ,fg-main))) + `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) + :foreground ,fg-main))) + `(vertical-border ((,class :foreground ,fg-window-divider-inner))) +;;;;; basic and/or ungrouped styles + `(bold ((,class :weight bold))) + `(bold-italic ((,class :inherit (bold italic)))) + `(buffer-menu-buffer ((,class :inherit bold))) + `(comint-highlight-input ((,class :inherit bold))) + `(comint-highlight-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + cyan + blue-nuanced-bg blue-alt + blue-refine-bg fg-main)))) + `(error ((,class :inherit bold :foreground ,red))) + `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) + `(file-name-shadow ((,class :foreground ,fg-unfocused))) + `(header-line ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-header :foreground ,fg-header))) + `(header-line-highlight ((,class :inherit modus-theme-active-blue))) + `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) + `(homoglyph ((,class :foreground ,red-alt-faint))) + `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) + `(italic ((,class :slant italic))) + `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) + `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) + `(minibuffer-prompt ((,class ,@(modus-themes--prompt + cyan-alt-other + cyan-nuanced-bg cyan + cyan-refine-bg fg-main)))) + `(mm-command-output ((,class :foreground ,red-alt-other))) + `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(next-error ((,class :inherit modus-theme-subtle-red))) + `(rectangle-preview ((,class :inherit modus-theme-special-mild))) + `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) + `(secondary-selection ((,class :inherit modus-theme-special-cold))) + `(shadow ((,class :foreground ,fg-alt))) + `(success ((,class :inherit bold :foreground ,green))) + `(trailing-whitespace ((,class :background ,red-intense-bg))) + `(warning ((,class :inherit bold :foreground ,yellow))) +;;;;; buttons, links, widgets + `(button ((,class ,@(modus-themes--link + blue-alt-other blue-alt-other-faint bg-region)))) + `(link ((,class :inherit button))) + `(link-visited ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint fg-alt)))) + `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(widget-button ((,class :inherit button))) + `(widget-button-pressed ((,class :inherit button + ,@(modus-themes--link-color + magenta magenta-faint)))) + `(widget-documentation ((,class :foreground ,green))) + `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) + `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(widget-single-line-field ((,class :inherit widget-field))) +;;;;; ag + `(ag-hit-face ((,class :foreground ,fg-special-cold))) + `(ag-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; alert + `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) + `(alert-low-face ((,class :foreground ,fg-special-mild))) + `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) + `(alert-trivial-face ((,class :foreground ,fg-special-calm))) + `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) +;;;;; all-the-icons + `(all-the-icons-blue ((,class :foreground ,blue))) + `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) + `(all-the-icons-cyan ((,class :foreground ,cyan))) + `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) + `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) + `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) + `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) + `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) + `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) + `(all-the-icons-dpink ((,class :foreground ,magenta))) + `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) + `(all-the-icons-dred ((,class :foreground ,red))) + `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-dyellow ((,class :foreground ,yellow))) + `(all-the-icons-green ((,class :foreground ,green))) + `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) + `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) + `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) + `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) + `(all-the-icons-maroon ((,class :foreground ,magenta))) + `(all-the-icons-orange ((,class :foreground ,red-alt))) + `(all-the-icons-pink ((,class :foreground ,magenta))) + `(all-the-icons-purple ((,class :foreground ,magenta-alt))) + `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-red ((,class :foreground ,red))) + `(all-the-icons-red-alt ((,class :foreground ,red-alt))) + `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-yellow ((,class :foreground ,yellow))) +;;;;; annotate + `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) + `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) + `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) + `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) +;;;;; anzu + `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) + `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) + `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) + `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) + `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) + `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) + `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; apropos + `(apropos-function-button ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint)))) + `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) + `(apropos-misc-button ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(apropos-user-option-button ((,class :inherit button + ,@(modus-themes--link-color + green-alt-other green-alt-other-faint)))) + `(apropos-variable-button ((,class :inherit button + ,@(modus-themes--link-color + blue blue-faint)))) +;;;;; apt-sources-list + `(apt-sources-list-components ((,class :foreground ,cyan))) + `(apt-sources-list-options ((,class :foreground ,yellow))) + `(apt-sources-list-suite ((,class :foreground ,green))) + `(apt-sources-list-type ((,class :foreground ,magenta))) + `(apt-sources-list-uri ((,class :foreground ,blue))) +;;;;; artbollocks-mode + `(artbollocks-face ((,class :inherit modus-theme-lang-note))) + `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(artbollocks-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(artbollocks-weasel-words-face ((,class :inherit modus-theme-lang-error))) +;;;;; auctex and Tex + `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) + `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) + `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) + `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg + ,@(modus-themes--scale modus-themes-scale-4)))) + `(font-latex-string-face ((,class :inherit font-lock-string-face))) + `(font-latex-subscript-face ((,class :height 0.95))) + `(font-latex-superscript-face ((,class :height 0.95))) + `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) + `(tex-match ((,class :foreground ,blue-alt-other))) + `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(texinfo-heading ((,class :foreground ,magenta))) + `(TeX-error-description-error ((,class :inherit error))) + `(TeX-error-description-help ((,class :foreground ,blue))) + `(TeX-error-description-tex-said ((,class :foreground ,blue))) + `(TeX-error-description-warning ((,class :inherit warning))) +;;;;; auto-dim-other-buffers + `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) +;;;;; avy + `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) + `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) + `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) + `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; aw (ace-window) + `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(aw-leading-char-face ((,class :inherit bold :height 1.5 :slant normal :background ,bg-main :foreground ,red-intense))) + `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) + `(aw-mode-line-face ((,class :inherit bold))) +;;;;; awesome-tray + `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) + `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) + `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) + `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) + `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) + `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) + `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) + `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) + `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; bbdb + `(bbdb-name ((,class :foreground ,magenta-alt-other))) + `(bbdb-organization ((,class :foreground ,red-alt-other))) + `(bbdb-field-name ((,class :foreground ,cyan-alt-other))) +;;;;; binder + `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) + `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) + `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) + `(binder-sidebar-tags ((,class :foreground ,cyan))) +;;;;; bm + `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) + `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) + `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) + `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) +;;;;; bongo + `(bongo-album-title ((,class :foreground ,yellow-active))) + `(bongo-artist ((,class :foreground ,magenta-active))) + `(bongo-currently-playing-track ((,class :inherit bold))) + `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) + `(bongo-filled-seek-bar ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) + `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) + `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) + `(bongo-track-length ((,class :foreground ,fg-active))) + `(bongo-track-title ((,class :foreground ,cyan-active))) + `(bongo-unfilled-seek-bar ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; boon + `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) + `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) + `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) + `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) +;;;;; breakpoint (built-in gdb-mi.el) + `(breakpoint-disabled ((,class :inherit shadow))) + `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) +;;;;; buffer-expose + `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) + `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) + `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) +;;;;; calendar and diary + `(calendar-month-header ((,class :inherit modus-theme-pseudo-header))) + `(calendar-today ((,class :inherit bold :underline t))) + `(calendar-weekday-header ((,class :inherit shadow))) + `(calendar-weekend-header ((,class :inherit shadow))) + `(diary ((,class :background ,green-nuanced-bg :foreground ,green-alt-other))) + `(diary-anniversary ((,class :foreground ,red-alt-other))) + `(diary-time ((,class :foreground ,blue-alt))) + `(holiday ((,class :background ,magenta-nuanced-bg :foreground ,magenta-alt))) +;;;;; calfw + `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) + `(cfw:face-day-title ((,class :foreground ,fg-main))) + `(cfw:face-default-content ((,class :foreground ,green-alt))) + `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) + `(cfw:face-disable ((,class :foreground ,fg-unfocused))) + `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) + `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) + `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) + `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) + `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) + `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-title ((,class :inherit modus-theme-variable-pitch + :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(cfw:face-today ((,class :background ,bg-inactive))) + `(cfw:face-today-title ((,class :background ,bg-active))) + `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) + `(cfw:face-toolbar-button-off ((,class :inherit shadow))) + `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg + :foreground ,blue-alt))) +;;;;; centaur-tabs + `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) + `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) + `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) + `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) + `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; cfrs + `(cfrs-border-color ((,class :background ,fg-window-divider-inner))) +;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') + `(change-log-acknowledgment ((,class :foreground ,fg-alt))) + `(change-log-conditionals ((,class :foreground ,yellow))) + `(change-log-date ((,class :foreground ,cyan))) + `(change-log-email ((,class :foreground ,cyan-alt-other))) + `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(change-log-function ((,class :foreground ,green-alt-other))) + `(change-log-list ((,class :foreground ,magenta-alt))) + `(change-log-name ((,class :foreground ,magenta-alt-other))) + `(log-edit-header ((,class :foreground ,fg-special-warm))) + `(log-edit-summary ((,class :inherit bold :foreground ,blue))) + `(log-edit-unknown-header ((,class :inherit shadow))) + `(log-view-commit-body ((,class :foreground ,blue-nuanced-fg))) + `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(log-view-message ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; cider + `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) + `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) + `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) + `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(cider-docview-literal-face ((,class :foreground ,blue-alt))) + `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(cider-docview-table-border-face ((,class :inherit shadow))) + `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) + `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(cider-error-highlight-face ((,class :foreground ,red :underline t))) + `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) + `(cider-fringe-good-face ((,class :foreground ,green-active))) + `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) + `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) + `(cider-repl-input-face ((,class :inherit bold))) + `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) + `(cider-repl-stdout-face ((,class :foreground ,blue))) + `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) + `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) + `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) + `(cider-stacktrace-face ((,class :foreground ,fg-main))) + `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) + `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) + `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) + `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) + `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) + `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) + :background ,bg-alt :foreground ,fg-alt))) + `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) + `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) + `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) + `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) + `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) +;;;;; circe (and lui) + `(circe-fool-face ((,class :inherit shadow))) + `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) + `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(circe-server-face ((,class :foreground ,fg-unfocused))) + `(lui-button-face ((,class :inherit button))) + `(lui-highlight-face ((,class :foreground ,magenta-alt))) + `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) +;;;;; color-rg + `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) + `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) + `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) + `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) + `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) + `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) + `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) + `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) + `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) + `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) + `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-position-splitter ((,class :inherit shadow))) +;;;;; column-enforce-mode + `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; company-mode + `(company-echo-common ((,class :foreground ,magenta-alt-other))) + `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) + `(company-preview-common ((,class :foreground ,blue-alt))) + `(company-preview-search ((,class :inherit modus-theme-special-calm))) + `(company-scrollbar-bg ((,class :background ,bg-active))) + `(company-scrollbar-fg ((,class :background ,fg-active))) + `(company-template-field ((,class :inherit modus-theme-intense-magenta))) + `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) + `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) + `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) + `(company-tooltip-common-selection ((,class :foreground ,fg-main))) + `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) + `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) + `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) + `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) +;;;;; company-posframe + `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) + `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) + `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; compilation feedback + `(compilation-column-number ((,class :foreground ,magenta-alt-other))) + `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(compilation-info ((,class :inherit modus-theme-bold :foreground ,fg-special-cold))) + `(compilation-line-number ((,class :foreground ,fg-special-warm))) + `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) +;;;;; completions + `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) + `(completions-common-part ((,class ,@(modus-themes--standard-completions + blue-alt blue-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) + `(completions-first-difference ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt blue-nuanced-bg + magenta-intense-bg fg-main)))) +;;;;; consult + `(consult-async-running ((,class :inherit bold :foreground ,blue))) + `(consult-async-split ((,class :foreground ,magenta-alt))) + `(consult-bookmark ((,class :foreground ,blue))) + `(consult-file ((,class :foreground ,fg-special-cold))) + `(consult-imenu-prefix ((,class :inherit shadow))) + `(consult-key ((,class :inherit modus-themes-bold :foreground ,magenta-alt-other))) + `(consult-line-number ((,class :foreground ,fg-special-warm))) + `(consult-line-number-prefix ((,class :foreground ,fg-unfocused))) + `(consult-narrow-indicator ((,class :foreground ,magenta-alt))) + `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) + `(consult-preview-error ((,class :inherit modus-theme-intense-red))) + `(consult-preview-line ((,class :background ,bg-hl-alt-intense))) +;;;;; counsel + `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) + `(counsel-application-name ((,class :foreground ,red-alt-other))) + `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) + `(counsel-outline-1 ((,class :inherit org-level-1))) + `(counsel-outline-2 ((,class :inherit org-level-2))) + `(counsel-outline-3 ((,class :inherit org-level-3))) + `(counsel-outline-4 ((,class :inherit org-level-4))) + `(counsel-outline-5 ((,class :inherit org-level-5))) + `(counsel-outline-6 ((,class :inherit org-level-6))) + `(counsel-outline-7 ((,class :inherit org-level-7))) + `(counsel-outline-8 ((,class :inherit org-level-8))) + `(counsel-outline-default ((,class :foreground ,fg-main))) + `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) +;;;;; counsel-css + `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) + `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) + `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) + `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) + `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) + `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) +;;;;; counsel-notmuch + `(counsel-notmuch-count-face ((,class :foreground ,cyan))) + `(counsel-notmuch-date-face ((,class :foreground ,blue))) + `(counsel-notmuch-people-face ((,class :foreground ,magenta))) + `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) +;;;;; counsel-org-capture-string + `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) +;;;;; cov + `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) + `(cov-coverage-run-face ((,class :foreground ,green-intense))) + `(cov-heavy-face ((,class :foreground ,magenta-intense))) + `(cov-light-face ((,class :foreground ,blue-intense))) + `(cov-med-face ((,class :foreground ,yellow-intense))) + `(cov-none-face ((,class :foreground ,cyan-intense))) +;;;;; cperl-mode + `(cperl-nonoverridable-face ((,class :foreground unspecified))) + `(cperl-array-face ((,class :inherit font-lock-keyword-face))) + `(cperl-hash-face ((,class :inherit font-lock-variable-name-face))) +;;;;; csv-mode + `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; ctrlf + `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) + `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) + `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) +;;;;; custom (M-x customize) + `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-active))) + `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) + `(custom-comment ((,class :inherit shadow))) + `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) + `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) + `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) + `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) + `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) + `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) + `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) + `(custom-set ((,class :foreground ,blue-alt))) + `(custom-state ((,class :foreground ,cyan-alt-other))) + `(custom-themed ((,class :inherit modus-theme-subtle-blue))) + `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) +;;;;; dap-mode + `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) + `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) + `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) + `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) + `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) + `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) + `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) + `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) + `(dap-ui-sessions-terminated-face ((,class :inherit shadow))) +;;;;; dashboard (emacs-dashboard) + `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) + `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) + `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) + `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) + `(dashboard-text-banner ((,class :foreground ,fg-dim))) +;;;;; deadgrep + `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) + `(deadgrep-meta-face ((,class :inherit shadow))) + `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) + `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) +;;;;; debbugs + `(debbugs-gnu-archived ((,class :inverse-video t))) + `(debbugs-gnu-done ((,class :inherit shadow))) + `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) + `(debbugs-gnu-handled ((,class :foreground ,green))) + `(debbugs-gnu-new ((,class :foreground ,red))) + `(debbugs-gnu-pending ((,class :foreground ,cyan))) + `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) + `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) + `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) + `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) + `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) + `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) +;;;;; define-word + `(define-word-face-1 ((,class :foreground ,yellow))) + `(define-word-face-2 ((,class :foreground ,fg-main))) +;;;;; deft + `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) + `(deft-filter-string-face ((,class :foreground ,green-intense))) + `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(deft-separator-face ((,class :inherit shadow))) + `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(deft-time-face ((,class :foreground ,fg-special-cold))) + `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; dictionary + `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(dictionary-reference-face ((,class :inherit button))) + `(dictionary-word-definition-face ((,class))) + `(dictionary-word-entry-face ((,class :inherit font-lock-comment-face))) +;;;;; diff-hl + `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) + `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) + `(diff-hl-dired-change ((,class :inherit diff-hl-change))) + `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) + `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) + `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) + `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) + `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) + `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) +;;;;; diff-mode + `(diff-added ((,class :inherit modus-theme-diff-added))) + `(diff-changed ((,class :inherit modus-theme-diff-changed :extend t))) + `(diff-context ((,class ,@(modus-themes--diff-text fg-main fg-unfocused)))) + `(diff-error ((,class :inherit modus-theme-intense-red))) + `(diff-file-header ((,class :inherit (bold diff-header)))) + `(diff-function ((,class :inherit modus-theme-diff-heading))) + `(diff-header ((,class ,@(modus-themes--diff-text cyan-faint fg-main)))) + `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) + `(diff-index ((,class :inherit bold :foreground ,blue-alt))) + `(diff-indicator-added ((,class :inherit (diff-added bold) + :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) + `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) + `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) + `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(diff-removed ((,class :inherit modus-theme-diff-removed))) +;;;;; dim-autoload + `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) +;;;;; dir-treeview + `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) + `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) + `(dir-treeview-audio-face ((,class :foreground ,magenta))) + `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) + `(dir-treeview-control-face ((,class :inherit shadow))) + `(dir-treeview-control-mouse-face ((,class :inherit highlight))) + `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) + `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) + `(dir-treeview-directory-face ((,class :foreground ,blue))) + `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) + `(dir-treeview-executable-face ((,class :foreground ,red-alt))) + `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) + `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) + `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) + `(dir-treeview-indent-face ((,class :inherit shadow))) + `(dir-treeview-label-mouse-face ((,class :inherit highlight))) + `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) + `(dir-treeview-symlink-face ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) + `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) +;;;;; dired + `(dired-broken-symlink ((,class :inherit button :foreground ,red))) + `(dired-directory ((,class :foreground ,blue))) + `(dired-flagged ((,class :inherit modus-theme-mark-del))) + `(dired-header ((,class :inherit modus-theme-pseudo-header))) + `(dired-ignored ((,class :inherit shadow))) + `(dired-mark ((,class :inherit modus-theme-mark-symbol))) + `(dired-marked ((,class :inherit modus-theme-mark-sel))) + `(dired-perm-write ((,class :foreground ,fg-special-warm))) + `(dired-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) + `(dired-warning ((,class :inherit bold :foreground ,yellow))) +;;;;; dired-async + `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; dired-git + `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) + `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; dired-git-info + `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) +;;;;; dired-narrow + `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan 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 (())) +;;;;; diredc + `(diredc-face-chmod-font-lock-dir ((,class :foreground ,blue-alt))) + `(diredc-face-chmod-font-lock-exec ((,class :foreground ,magenta))) + `(diredc-face-chmod-font-lock-read ((,class :foreground ,fg-main))) + `(diredc-face-chmod-font-lock-write ((,class :foreground ,cyan))) +;;;;; diredfl + `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) + `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) + `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredfl-dir-name ((,class :inherit dired-directory))) + `(diredfl-dir-priv ((,class :foreground ,blue-alt))) + `(diredfl-exec-priv ((,class :foreground ,magenta))) + `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) + `(diredfl-file-name ((,class :foreground ,fg-main))) + `(diredfl-file-suffix ((,class :foreground ,cyan))) + `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredfl-ignored-file-name ((,class :inherit shadow))) + `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) + `(diredfl-no-priv ((,class :inherit shadow))) + `(diredfl-number ((,class :foreground ,cyan-alt))) + `(diredfl-other-priv ((,class :foreground ,yellow))) + `(diredfl-rare-priv ((,class :foreground ,red-alt))) + `(diredfl-read-priv ((,class :foreground ,fg-main))) + `(diredfl-symlink ((,class :inherit dired-symlink))) + `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredfl-write-priv ((,class :foreground ,cyan))) +;;;;; dired+ + `(diredp-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredp-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredp-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredp-date-time ((,class :foreground ,cyan-alt-other))) + `(diredp-deletion ((,class :inherit modus-theme-mark-del))) + `(diredp-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredp-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredp-dir-name ((,class :inherit dired-directory))) + `(diredp-dir-priv ((,class :foreground ,blue-alt))) + `(diredp-exec-priv ((,class :foreground ,magenta))) + `(diredp-executable-tag ((,class :foreground ,magenta-alt))) + `(diredp-file-name ((,class :foreground ,fg-main))) + `(diredp-file-suffix ((,class :foreground ,cyan))) + `(diredp-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredp-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredp-ignored-file-name ((,class :inherit shadow))) + `(diredp-link-priv ((,class :foreground ,blue-alt-other))) + `(diredp-mode-line-flagged ((,class :foreground ,red-active))) + `(diredp-mode-line-marked ((,class :foreground ,green-active))) + `(diredp-no-priv ((,class :inherit shadow))) + `(diredp-number ((,class :foreground ,cyan-alt))) + `(diredp-omit-file-name ((,class :inherit shadow :strike-through t))) + `(diredp-other-priv ((,class :foreground ,yellow))) + `(diredp-rare-priv ((,class :foreground ,red-alt))) + `(diredp-read-priv ((,class :foreground ,fg-main))) + `(diredp-symlink ((,class :inherit dired-symlink))) + `(diredp-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredp-write-priv ((,class :foreground ,cyan))) +;;;;; disk-usage + `(disk-usage-children ((,class :foreground ,yellow))) + `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) + `(disk-usage-percent ((,class :foreground ,green))) + `(disk-usage-size ((,class :foreground ,cyan))) + `(disk-usage-symlink ((,class :inherit button))) + `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) +;;;;; display-fill-column-indicator-mode + `(fill-column-indicator ((,class :foreground ,bg-active))) +;;;;; doom-modeline + `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) + `(doom-modeline-battery-charging ((,class :foreground ,green-active))) + `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) + :foreground ,red-active))) + `(doom-modeline-battery-full ((,class :foreground ,blue-active))) + `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) + `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) + `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) + `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-host ((,class :inherit italic))) + `(doom-modeline-info ((,class :foreground ,green-active))) + `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) + `(doom-modeline-persp-name ((,class :foreground ,fg-active))) + `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) + `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) + `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) + `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; dynamic-ruler + `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) + `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) +;;;;; easy-jekyll + `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) +;;;;; easy-kill + `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) + `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) +;;;;; ebdb + `(ebdb-address-default ((,class :foreground ,fg-special-calm))) + `(ebdb-defunct ((,class :inherit shadow))) + `(ebdb-field-hidden ((,class :foreground ,magenta))) + `(ebdb-label ((,class :foreground ,cyan-alt-other))) + `(ebdb-mail-default ((,class :foreground ,fg-main))) + `(ebdb-mail-primary ((,class :foreground ,magenta-alt))) + `(ebdb-marked ((,class :background ,cyan-intense-bg))) + `(ebdb-organization-name ((,class :foreground ,red-alt-other))) + `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) + `(ebdb-phone-default ((,class :foreground ,cyan))) + `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) +;;;;; ediff + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(ediff-current-diff-A ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-removed fg-diff-removed + red-nuanced-bg red-faint)))) + `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff + bg-dim fg-special-cold + bg-special-cold fg-special-cold + blue-nuanced-bg blue)))) + `(ediff-current-diff-B ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-added fg-diff-added + green-nuanced-bg green-faint + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(ediff-current-diff-C ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg yellow-faint)))) + `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) + `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) + `(ediff-fine-diff-B + ((,class :background ,@(modus-themes--diff-deuteran bg-diff-focus-added-deuteran bg-diff-focus-added) + :foreground ,@(modus-themes--diff-deuteran fg-diff-focus-added-deuteran fg-diff-focus-added)))) + `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) + `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) + `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) +;;;;; eglot + `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) +;;;;; el-search + `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) + `(el-search-match ((,class :inherit modus-theme-intense-green))) + `(el-search-other-match ((,class :inherit modus-theme-special-mild))) + `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) +;;;;; eldoc + ;; NOTE: see https://github.com/purcell/package-lint/issues/187 + (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; eldoc-box + `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) + `(eldoc-box-border ((,class :background ,fg-alt))) +;;;;; elfeed + `(elfeed-log-date-face ((,class :inherit elfeed-search-date-face))) + `(elfeed-log-debug-level-face ((,class :inherit elfeed-search-filter-face))) + `(elfeed-log-error-level-face ((,class :inherit error))) + `(elfeed-log-info-level-face ((,class :inherit success))) + `(elfeed-log-warn-level-face ((,class :inherit warning))) + `(elfeed-search-date-face ((,class :foreground ,cyan))) + `(elfeed-search-feed-face ((,class :foreground ,blue-faint))) + `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) + `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) + `(elfeed-search-tag-face ((,class :foreground ,cyan-alt-other))) + `(elfeed-search-title-face ((,class :foreground ,fg-dim))) + `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) + `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; elfeed-score + `(elfeed-score-date-face ((,class :foreground ,blue))) + `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) + `(elfeed-score-error-level-face ((,class :foreground ,red))) + `(elfeed-score-info-level-face ((,class :foreground ,cyan))) + `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) +;;;;; emms + `(emms-playlist-track-face ((,class :foreground ,blue))) + `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) +;;;;; enhanced-ruby-mode + `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) + `(enh-ruby-op-face ((,class :foreground ,fg-main))) + `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) + `(enh-ruby-regexp-face ((,class :foreground ,magenta))) + `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) + `(erm-syn-errline ((,class :foreground ,red :underline t))) + `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) +;;;;; epa + `(epa-field-body ((,class :foreground ,fg-main))) + `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) + `(epa-mark ((,class :inherit bold :foreground ,magenta))) + `(epa-string ((,class :foreground ,blue-alt))) + `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) + `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) + `(epa-validity-low ((,class :inherit shadow))) + `(epa-validity-medium ((,class :foreground ,green-alt))) +;;;;; equake + `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) + `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) + `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) + `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) + `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) + `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) + `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) + `(equake-tab-inactive ((,class :foreground ,fg-inactive))) +;;;;; erc + `(erc-action-face ((,class :inherit bold :foreground ,cyan))) + `(erc-bold-face ((,class :inherit bold))) + `(erc-button ((,class :inherit button))) + `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) + `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) + `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) + `(erc-direct-msg-face ((,class :foreground ,magenta))) + `(erc-error-face ((,class :inherit bold :foreground ,red))) + `(erc-fool-face ((,class :foreground ,fg-inactive))) + `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) + `(erc-input-face ((,class :foreground ,fg-special-calm))) + `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) + `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) + `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) + `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) + `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) + `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) + `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) + `(erc-notice-face ((,class :foreground ,fg-unfocused))) + `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) + `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) + `(erc-underline-face ((,class :underline t))) + `(bg:erc-color-face0 ((,class :background "white"))) + `(bg:erc-color-face1 ((,class :background "black"))) + `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) + `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) + `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) + `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) + `(bg:erc-color-face14 ((,class :background "gray60"))) + `(bg:erc-color-face15 ((,class :background "gray80"))) + `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) + `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) + `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) + `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) + `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) + `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) + `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) + `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) + `(fg:erc-color-face0 ((,class :foreground "white"))) + `(fg:erc-color-face1 ((,class :foreground "black"))) + `(fg:erc-color-face10 ((,class :foreground ,cyan))) + `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) + `(fg:erc-color-face12 ((,class :foreground ,blue))) + `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) + `(fg:erc-color-face14 ((,class :foreground "gray60"))) + `(fg:erc-color-face15 ((,class :foreground "gray80"))) + `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) + `(fg:erc-color-face3 ((,class :foreground ,green))) + `(fg:erc-color-face4 ((,class :foreground ,red))) + `(fg:erc-color-face5 ((,class :foreground ,red-alt))) + `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) + `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) + `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) + `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) +;;;;; eros + `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) + :background ,bg-dim :foreground ,fg-dim))) +;;;;; ert + `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) + `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) +;;;;; eshell + `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) + `(eshell-ls-backup ((,class :foreground ,yellow-alt))) + `(eshell-ls-clutter ((,class :foreground ,red-alt))) + `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) + `(eshell-ls-executable ((,class :foreground ,magenta-alt))) + `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) + `(eshell-ls-product ((,class :foreground ,fg-special-warm))) + `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) + `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) + `(eshell-ls-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(eshell-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + green-alt-other + green-nuanced-bg green-alt + green-refine-bg fg-main)))) +;;;;; eshell-fringe-status + `(eshell-fringe-status-failure ((,class :foreground ,red))) + `(eshell-fringe-status-success ((,class :foreground ,green))) +;;;;; eshell-git-prompt + `(eshell-git-prompt-add-face ((,class :inherit shadow))) + `(eshell-git-prompt-branch-face ((,class :inherit shadow))) + `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) + `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) + `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) + `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) + `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) + `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) + `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) + `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) +;;;;; eshell-prompt-extras (epe) + `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) + `(epe-git-dir-face ((,class :foreground ,red-alt-other))) + `(epe-git-face ((,class :foreground ,cyan-alt))) + `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) + `(epe-pipeline-host-face ((,class :foreground ,blue))) + `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) + `(epe-pipeline-user-face ((,class :foreground ,magenta))) + `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(epe-status-face ((,class :foreground ,magenta-alt-other))) + `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) +;;;;; eshell-syntax-highlighting + `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) + `(eshell-syntax-highlighting-comment-face ((,class :inherit shadow))) + `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) + `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) + `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) + `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) + `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) + `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) +;;;;; evil-mode + `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) + `(evil-ex-info ((,class :foreground ,cyan-alt-other))) + `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(evil-ex-search ((,class :inherit modus-theme-intense-green))) + `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) + `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; evil-goggles + `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) + `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) + `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) + `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) + `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) + `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) + `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) + `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) + `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) + `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) + `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) +;;;;; evil-snipe + `(evil-snipe-first-match-face ((,class :inherit (bold modus-theme-intense-blue)))) + `(evil-snipe-matches-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; evil-visual-mark-mode + `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) +;;;;; eww + `(eww-invalid-certificate ((,class :foreground ,red-active))) + `(eww-valid-certificate ((,class :foreground ,green-active))) + `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) + `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) + `(eww-form-select ((,class :inherit eww-form-checkbox))) + `(eww-form-submit ((,class :inherit eww-form-file))) + `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) + `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) +;;;;; eyebrowse + `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) +;;;;; fancy-dabbrev + `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(fancy-dabbrev-preview-face ((,class :inherit shadow :underline t))) + `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) +;;;;; flycheck + `(flycheck-error ((,class :inherit modus-theme-lang-error))) + `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) + `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) + `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(flycheck-error-list-filename ((,class :foreground ,blue))) + `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) + `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) + `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) + `(flycheck-error-list-info ((,class :foreground ,cyan))) + `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) + `(flycheck-error-list-warning ((,class :foreground ,yellow))) + `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) + `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) + `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) + `(flycheck-info ((,class :inherit modus-theme-lang-note))) + `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) + `(flycheck-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flycheck-color-mode-line + `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) + `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) +;;;;; flycheck-indicator + `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) + `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) +;;;;; flycheck-posframe + `(flycheck-posframe-background-face ((,class :background ,bg-alt))) + `(flycheck-posframe-border-face ((,class :inherit shadow))) + `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) + `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) + `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; flymake + `(flymake-error ((,class :inherit modus-theme-lang-error))) + `(flymake-note ((,class :inherit modus-theme-lang-note))) + `(flymake-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flyspell + `(flyspell-duplicate ((,class :inherit modus-theme-lang-warning))) + `(flyspell-incorrect ((,class :inherit modus-theme-lang-error))) +;;;;; flyspell-correct + `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) +;;;;; flx + `(flx-highlight-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) +;;;;; freeze-it + `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) +;;;;; frog-menu + `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) + `(frog-menu-actions-face ((,class :foreground ,magenta))) + `(frog-menu-border ((,class :background ,bg-active))) + `(frog-menu-candidates-face ((,class :foreground ,fg-main))) + `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) + `(frog-menu-prompt-face ((,class :foreground ,cyan))) +;;;;; focus + `(focus-unfocused ((,class :foreground ,fg-unfocused))) +;;;;; fold-this + `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) +;;;;; font-lock + `(font-lock-builtin-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt magenta-alt-faint blue-alt)))) + `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) + `(font-lock-comment-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-alt fg-comment-yellow)))) + `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra + blue-alt-other blue-alt-other-faint magenta-alt-other)))) + `(font-lock-doc-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-docstring + fg-docstring green-alt-other-faint + green-alt-other-faint magenta-nuanced-fg)))) + `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra + magenta magenta-faint magenta-alt)))) + `(font-lock-keyword-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) + `(font-lock-negation-char-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow yellow-faint)))) + `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground + red-alt-other red-alt-other-faint)))) + `(font-lock-regexp-grouping-backslash ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-backslash yellow-alt-faint + magenta-alt-other blue-alt)))) + `(font-lock-regexp-grouping-construct ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-construct red-alt-other-faint + red magenta-alt)))) + `(font-lock-string-face ((,class ,@(modus-themes--syntax-string + blue-alt blue-alt-faint green green-alt)))) + `(font-lock-type-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + cyan-alt-other cyan-alt-faint cyan-alt)))) + `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra + cyan cyan-faint blue-alt-faint)))) + `(font-lock-warning-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow-active yellow-alt-faint)))) +;;;;; forge + `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) + `(forge-post-date ((,class :foreground ,fg-special-cold))) + `(forge-topic-closed ((,class :inherit shadow))) + `(forge-topic-merged ((,class :inherit shadow))) + `(forge-topic-open ((,class :foreground ,fg-special-mild))) + `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) +;;;;; fountain-mode + `(fountain-character ((,class :foreground ,blue-alt-other))) + `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(fountain-dialog ((,class :foreground ,blue-alt))) + `(fountain-metadata-key ((,class :foreground ,green-alt-other))) + `(fountain-metadata-value ((,class :foreground ,blue))) + `(fountain-non-printing ((,class :inherit shadow))) + `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) + `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) + `(fountain-paren ((,class :foreground ,cyan))) + `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) + `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) + `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) + `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) + `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) + `(fountain-synopsis ((,class :foreground ,cyan-alt))) + `(fountain-trans ((,class :foreground ,yellow-alt-other))) +;;;;; geiser + `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) + `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) + `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) + `(geiser-font-lock-doc-link ((,class :inherit button))) + `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) + `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) + `(geiser-font-lock-repl-input ((,class :inherit bold))) + `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) + `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) + `(geiser-font-lock-xref-header ((,class :inherit bold))) + `(geiser-font-lock-xref-link ((,class :inherit button))) +;;;;; git-commit + `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) + `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) + `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(git-commit-comment-file ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-commit-keyword ((,class :foreground ,magenta))) + `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) + `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-pseudo-header ((,class :foreground ,blue))) + `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) +;;;;; git-gutter + `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) +;;;;; git-gutter-fr + `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-{gutter,fringe}+ + `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) + `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-lens + `(git-lens-added ((,class :inherit bold :foreground ,green))) + `(git-lens-deleted ((,class :inherit bold :foreground ,red))) + `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) + `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) + `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) +;;;;; git-rebase + `(git-rebase-comment-hash ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-rebase-description ((,class :foreground ,fg-main))) + `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) +;;;;; git-timemachine + `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) + `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) + `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) +;;;;; git-walktree + `(git-walktree-commit-face ((,class :foreground ,yellow))) + `(git-walktree-symlink-face ((,class :inherit button))) + `(git-walktree-tree-face ((,class :foreground ,magenta))) +;;;;; gnus + `(gnus-button ((,class :inherit button))) + `(gnus-cite-1 ((,class :foreground ,blue-faint))) + `(gnus-cite-10 ((,class :foreground ,yellow-alt-other))) + `(gnus-cite-11 ((,class :foreground ,magenta-alt))) + `(gnus-cite-2 ((,class :foreground ,green-alt-other))) + `(gnus-cite-3 ((,class :foreground ,red-alt-other))) + `(gnus-cite-4 ((,class :foreground ,cyan))) + `(gnus-cite-5 ((,class :foreground ,yellow-alt))) + `(gnus-cite-6 ((,class :foreground ,magenta))) + `(gnus-cite-7 ((,class :foreground ,green-alt))) + `(gnus-cite-8 ((,class :foreground ,magenta-alt-other))) + `(gnus-cite-9 ((,class :foreground ,cyan-alt))) + `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) + `(gnus-emphasis-bold ((,class :inherit bold))) + `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) + `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) + `(gnus-emphasis-italic ((,class :inherit italic))) + `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) + `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) + `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) + `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) + `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) + `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) + `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) + `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) + `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) + `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) + `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) + `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) + `(gnus-group-news-1-empty ((,class :foreground ,green))) + `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) + `(gnus-group-news-2-empty ((,class :foreground ,cyan))) + `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) + `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-group-news-6-empty ((,class :inherit shadow))) + `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) + `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) + `(gnus-header-content ((,class :inherit message-header-other))) + `(gnus-header-from ((,class :inherit message-header-to :underline nil))) + `(gnus-header-name ((,class :inherit message-header-name))) + `(gnus-header-newsgroups ((,class :inherit message-header-newsgroups))) + `(gnus-header-subject ((,class :inherit message-header-subject))) + `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) + `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) + `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) + `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) + `(gnus-server-denied ((,class :inherit bold :foreground ,red))) + `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) + `(gnus-server-opened ((,class :inherit bold :foreground ,green))) + `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) + `(gnus-splash ((,class :inherit shadow))) + `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) + `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) + `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) + `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) + `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) + `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) + `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) + `(gnus-summary-normal-read ((,class :inherit shadow))) + `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) + `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) + `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) + `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) +;;;;; golden-ratio-scroll-screen + `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; helm + `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) + `(helm-action ((,class :underline t))) + `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) + `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) + `(helm-bookmark-file ((,class :foreground ,fg-main))) + `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) + `(helm-bookmark-gnus ((,class :foreground ,magenta))) + `(helm-bookmark-info ((,class :foreground ,cyan-alt))) + `(helm-bookmark-man ((,class :foreground ,yellow-alt))) + `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) + `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) + `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) + `(helm-buffer-file ((,class :foreground ,fg-main))) + `(helm-buffer-modified ((,class :foreground ,yellow-alt))) + `(helm-buffer-not-saved ((,class :foreground ,red-alt))) + `(helm-buffer-process ((,class :foreground ,magenta))) + `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) + `(helm-buffer-size ((,class :inherit shadow))) + `(helm-candidate-number ((,class :foreground ,cyan-active))) + `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) + `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) + `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) + `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) + `(helm-ff-backup-file ((,class :inherit shadow))) + `(helm-ff-denied ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red)))) + `(helm-ff-directory ((,class :inherit helm-buffer-directory))) + `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) + `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) + `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) + `(helm-ff-executable ((,class :foreground ,magenta-alt))) + `(helm-ff-file ((,class :foreground ,fg-main))) + `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) + `(helm-ff-invalid-symlink ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-magenta + 'modus-theme-subtle-magenta + 'modus-theme-nuanced-magenta + magenta)))) + `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-yellow + 'modus-theme-subtle-yellow + 'modus-theme-nuanced-yellow + yellow-alt-other)))) + `(helm-ff-socket ((,class :foreground ,red-alt-other))) + `(helm-ff-suid ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-refine-red + 'modus-theme-nuanced-yellow + red-alt)))) + `(helm-ff-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(helm-ff-truename ((,class :foreground ,blue-alt-other))) + `(helm-fd-finish ((,class :foreground ,green-active))) + `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) + `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-grep-finish ((,class :foreground ,green-active))) + `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) + `(helm-grep-match ((,class :inherit modus-theme-special-calm))) + `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) + `(helm-history-deleted ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red + 'bold)))) + `(helm-history-remote ((,class :foreground ,red-alt-other))) + `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) + `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-yellow + 'modus-theme-refine-yellow + 'modus-theme-nuanced-yellow + yellow + 'bold)))) + `(helm-locate-finish ((,class :foreground ,green-active))) + `(helm-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan + 'bold)))) + `(helm-match-item ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-subtle-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) + `(helm-moccur-buffer ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) + `(helm-non-file-buffer ((,class :inherit shadow))) + `(helm-prefarg ((,class :foreground ,red-active))) + `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(helm-selection ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-special-cold + nil + 'bold)))) + `(helm-selection-line ((,class :inherit modus-theme-special-cold))) + `(helm-separator ((,class :foreground ,fg-special-mild))) + `(helm-time-zone-current ((,class :foreground ,green))) + `(helm-time-zone-home ((,class :foreground ,magenta))) + `(helm-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(helm-top-columns ((,class :inherit helm-header))) + `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) + `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) +;;;;; helm-ls-git + `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) + `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) + `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) + `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) + `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) + `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) + `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) + `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) + `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) +;;;;; helm-switch-shell + `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) +;;;;; helm-xref + `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) +;;;;; helpful + `(helpful-heading ((,class :inherit modus-theme-heading-1))) +;;;;; highlight region or ad-hoc regexp + `(hi-aquamarine ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) + `(hi-black-b ((,class :inherit bold :background ,fg-main :foreground ,bg-main))) + `(hi-black-hb ((,class :inherit bold :background ,fg-alt :foreground ,bg-main))) + `(hi-blue ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(hi-blue-b ((,class :inherit (bold hi-blue)))) + `(hi-green ((,class :background ,green-subtle-bg :foreground ,fg-main))) + `(hi-green-b ((,class :inherit (bold hi-green)))) + `(hi-pink ((,class :background ,magenta-subtle-bg :foreground ,fg-main))) + `(hi-pink-b ((,class :inherit (bold hi-pink)))) + `(hi-red-b ((,class :inherit bold :background ,red-intense-bg :foreground ,fg-main))) + `(hi-salmon ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(hi-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-main))) + `(highlight ((,class :inherit modus-theme-subtle-blue))) + `(highlight-changes ((,class :foreground ,yellow-alt-other))) + `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) + `(hl-line ((,class :inherit modus-theme-hl-line))) +;;;;; highlight-blocks + `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) + `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) + `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) + `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) + `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) + `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) + `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; highlight-defined + `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) + `(highlight-defined-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) + `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) + `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) +;;;;; highlight-escape-sequences (`hes-mode') + `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) + `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) +;;;;; highlight-indentation + `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) + `(highlight-indentation-current-column-face ((,class :background ,bg-active))) +;;;;; highlight-numbers + `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) +;;;;; highlight-symbol + `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) +;;;;; highlight-thing + `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) +;;;;; hl-defined + `(hdefd-functions ((,class :foreground ,blue))) + `(hdefd-undefined ((,class :foreground ,red-alt))) + `(hdefd-variables ((,class :foreground ,cyan-alt))) +;;;;; hl-fill-column + `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) +;;;;; hl-todo + `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) +;;;;; hydra + `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) + `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) + `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) + `(hydra-face-red ((,class :inherit bold :foreground ,red))) + `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) +;;;;; hyperlist + `(hyperlist-condition ((,class :foreground ,green))) + `(hyperlist-hashtag ((,class :foreground ,yellow))) + `(hyperlist-operator ((,class :foreground ,blue-alt))) + `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) + `(hyperlist-quote ((,class :foreground ,cyan-alt))) + `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) + `(hyperlist-stars ((,class :inherit shadow))) + `(hyperlist-tag ((,class :foreground ,red))) + `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) +;;;;; icomplete + `(icomplete-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) +;;;;; icomplete-vertical + `(icomplete-vertical-separator ((,class :inherit shadow))) +;;;;; ido-mode + `(ido-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) + `(ido-incomplete-regexp ((,class :inherit error))) + `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) + `(ido-only-match ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-intense-bg fg-main)))) + `(ido-subdir ((,class :foreground ,blue))) + `(ido-virtual ((,class :foreground ,fg-special-warm))) +;;;;; iedit + `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) + `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) +;;;;; iflipb + `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) + `(iflipb-other-buffer-face ((,class :inherit shadow))) +;;;;; imenu-list + `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) + `(imenu-list-entry-face-1 ((,class :foreground ,blue))) + `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) + `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) + `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) + `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) + `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) + `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) +;;;;; indium + `(indium-breakpoint-face ((,class :foreground ,red-active))) + `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) + `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) + `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) + `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) + `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(indium-repl-stdout-face ((,class :foreground ,fg-main))) +;;;;; info + `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) ; the capitalization is canonical + :background ,bg-alt :foreground ,fg-special-calm))) + `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) + `(info-header-xref ((,class :foreground ,blue-active))) + `(info-index-match ((,class :inherit match))) + `(info-menu-header ((,class :inherit modus-theme-heading-3))) + `(info-menu-star ((,class :foreground ,red))) + `(info-node ((,class :inherit bold))) + `(info-title-1 ((,class :inherit modus-theme-heading-1))) + `(info-title-2 ((,class :inherit modus-theme-heading-2))) + `(info-title-3 ((,class :inherit modus-theme-heading-3))) + `(info-title-4 ((,class :inherit modus-theme-heading-4))) +;;;;; info-colors + `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) + `(info-colors-ref-item-command ((,class :foreground ,magenta))) + `(info-colors-ref-item-constant ((,class :inherit font-lock-constant-face))) + `(info-colors-ref-item-function ((,class :inherit font-lock-function-name-face))) + `(info-colors-ref-item-macro ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-other ((,class :inherit font-lock-doc-face))) + `(info-colors-ref-item-special-form ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-syntax-class ((,class :inherit font-lock-builtin-face))) + `(info-colors-ref-item-type ((,class :inherit font-lock-type-face))) + `(info-colors-ref-item-user-option ((,class :inherit font-lock-variable-name-face))) + `(info-colors-ref-item-variable ((,class :inherit font-lock-variable-name-face))) +;;;;; interaction-log + `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) + `(ilog-change-face ((,class :foreground ,magenta-alt))) + `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) + `(ilog-load-face ((,class :foreground ,green))) + `(ilog-message-face ((,class :inherit shadow))) + `(ilog-non-change-face ((,class :foreground ,blue))) +;;;;; ioccur + `(ioccur-cursor ((,class :foreground ,fg-main))) + `(ioccur-invalid-regexp ((,class :foreground ,red))) + `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) + `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) + `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) + `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) + `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) +;;;;; isearch, occur, and the like + `(isearch ((,class :inherit (modus-theme-intense-green bold)))) + `(isearch-fail ((,class :inherit modus-theme-refine-red))) + `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) + `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) + `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(match ((,class :inherit modus-theme-special-calm))) + `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) +;;;;; isl (isearch-light) + `(isl-line ((,class :inherit modus-theme-subtle-green))) + `(isl-match ((,class :inherit modus-theme-refine-cyan))) + `(isl-number ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(isl-on ((,class :inherit (bold modus-theme-intense-green)))) + `(isl-string ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; ivy + `(ivy-action ((,class :inherit bold :foreground ,red-alt))) + `(ivy-completions-annotations ((,class :inherit completions-annotations))) + `(ivy-confirm-face ((,class :foreground ,cyan))) + `(ivy-current-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-cyan + 'modus-theme-intense-cyan + 'modus-theme-special-cold + nil + 'bold)))) + `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) + `(ivy-grep-info ((,class :foreground ,cyan-alt))) + `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) + `(ivy-highlight-face ((,class :foreground ,magenta))) + `(ivy-match-required-face ((,class :inherit error))) + `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-intense-neutral + 'modus-theme-nuanced-cyan + fg-alt)))) + `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-green + 'modus-theme-refine-green + 'modus-theme-nuanced-green + green-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) + `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-intense-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other + 'bold)))) + `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) + `(ivy-org ((,class :foreground ,cyan-alt-other))) + `(ivy-prompt-match ((,class :inherit ivy-current-match))) + `(ivy-remote ((,class :foreground ,magenta))) + `(ivy-separator ((,class :inherit shadow))) + `(ivy-subdir ((,class :foreground ,blue-alt-other))) + `(ivy-virtual ((,class :foreground ,magenta-alt-other))) + `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt)))) +;;;;; ivy-posframe + `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) + `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) + `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) +;;;;; jira (org-jira) + `(jiralib-comment-face ((,class :background ,bg-alt))) + `(jiralib-comment-header-face ((,class :inherit bold))) + `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) + `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) + `(jiralib-issue-summary-face ((,class :inherit bold))) + `(jiralib-link-filter-face ((,class :underline t))) + `(jiralib-link-issue-face ((,class :underline t))) + `(jiralib-link-project-face ((,class :underline t))) +;;;;; journalctl-mode + `(journalctl-error-face ((,class :inherit bold :foreground ,red))) + `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) + `(journalctl-host-face ((,class :foreground ,blue))) + `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) + `(journalctl-starting-face ((,class :foreground ,green))) + `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) + `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; js2-mode + `(js2-error ((,class :foreground ,red))) + `(js2-external-variable ((,class :foreground ,cyan-alt-other))) + `(js2-function-call ((,class :foreground ,magenta))) + `(js2-function-param ((,class :foreground ,blue))) + `(js2-instance-member ((,class :foreground ,magenta-alt-other))) + `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) + `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) + `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) + `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) + `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) + `(js2-object-property ((,class :foreground ,fg-main))) + `(js2-object-property-access ((,class :foreground ,fg-main))) + `(js2-private-function-call ((,class :foreground ,green-alt-other))) + `(js2-private-member ((,class :foreground ,fg-special-mild))) + `(js2-warning ((,class :foreground ,yellow-alt :underline t))) +;;;;; julia + `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) + `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) +;;;;; jupyter + `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) + `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) + `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) + `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) +;;;;; kaocha-runner + `(kaocha-runner-error-face ((,class :foreground ,red))) + `(kaocha-runner-success-face ((,class :foreground ,green))) + `(kaocha-runner-warning-face ((,class :foreground ,yellow))) +;;;;; keycast + `(keycast-command ((,class :inherit bold :foreground ,blue-active))) + `(keycast-key ((,class ,@(modus-themes--mode-line-attrs + bg-main blue-active + bg-main blue-active + blue-active blue-intense + 'alt-style -3)))) +;;;;; line numbers (display-line-numbers-mode and global variant) + `(line-number + ((,class :inherit default + ,@(modus-themes--line-numbers + fg-alt bg-dim + fg-unfocused)))) + `(line-number-current-line + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-main bg-active + blue-alt-other)))) + `(line-number-major-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + yellow-nuanced-fg yellow-nuanced-bg + red-alt)))) + `(line-number-minor-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-alt bg-inactive + fg-inactive)))) +;;;;; lsp-mode + `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) + `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) + `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) + `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-deprecated + ((,(append '((supports :underline (:style wave))) class) + :foreground ,yellow :underline (:style wave)) + (,class :foreground ,yellow :underline t))) + `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) + `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(lsp-face-semhl-function ((,class :foreground ,magenta))) + `(lsp-face-semhl-method ((,class :foreground ,magenta))) + `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) + `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-variable ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) + `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) + `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) + `(lsp-ui-doc-background ((,class :background ,bg-alt))) + `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-doc-url ((,class :inherit button))) + `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) + `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) + `(lsp-ui-peek-line-number ((,class :inherit shadow))) + `(lsp-ui-peek-list ((,class :background ,bg-dim))) + `(lsp-ui-peek-peek ((,class :background ,bg-alt))) + `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) + `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) + `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) + `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) + `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) +;;;;; macrostep + `(macrostep-compiler-macro-face ((,class :inherit italic))) + `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) + `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) + `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) + `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) + `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) + `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) + `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) +;;;;; magit + `(magit-bisect-bad ((,class :foreground ,red-alt-other))) + `(magit-bisect-good ((,class :foreground ,green-alt-other))) + `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) + `(magit-blame-date ((,class :foreground ,blue))) + `(magit-blame-dimmed ((,class :inherit shadow))) + `(magit-blame-hash ((,class :foreground ,fg-special-warm))) + `(magit-blame-heading ((,class :background ,bg-alt))) + `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) + `(magit-blame-margin ((,class :inherit magit-blame-highlight))) + `(magit-blame-name ((,class :foreground ,magenta-alt-other))) + `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) + `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) + `(magit-branch-local ((,class :foreground ,blue-alt))) + `(magit-branch-remote ((,class :foreground ,magenta-alt))) + `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) + `(magit-branch-upstream ((,class :inherit italic))) + `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces, though only for the standard actions, + ;; not the highlighted ones. This is because Magit's interaction + ;; model relies on highlighting the current diff hunk. + `(magit-diff-added ((,class ,@(modus-themes--diff + bg-main green + bg-diff-added fg-diff-added + green-nuanced-bg fg-diff-added + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) + `(magit-diff-base ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg fg-diff-changed)))) + `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) + `(magit-diff-context ((,class :foreground ,fg-unfocused))) + `(magit-diff-context-highlight ((,class ,@(modus-themes--diff + bg-dim fg-dim + bg-inactive fg-inactive + bg-dim fg-alt)))) + `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) + `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) + `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active + :foreground ,fg-inactive))) + `(magit-diff-hunk-heading-highlight + ((,class :inherit bold + :background ,@(modus-themes--diff-deuteran bg-region bg-diff-heading) + :foreground ,@(modus-themes--diff-deuteran fg-main fg-diff-heading)))) + `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) + `(magit-diff-hunk-region ((,class :inherit bold))) + `(magit-diff-lines-boundary ((,class :background ,fg-main))) + `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) + `(magit-diff-removed ((,class ,@(modus-themes--diff + bg-main red + bg-diff-removed fg-diff-removed + red-nuanced-bg fg-diff-removed)))) + `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) + `(magit-diffstat-added ((,class :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(magit-diffstat-removed ((,class :foreground ,red))) + `(magit-dimmed ((,class :foreground ,fg-unfocused))) + `(magit-filename ((,class :foreground ,fg-special-cold))) + `(magit-hash ((,class :inherit shadow))) + `(magit-head ((,class :inherit magit-branch-local))) + `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) + `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) + `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) + `(magit-keyword ((,class :foreground ,magenta))) + `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) + `(magit-log-author ((,class :foreground ,cyan))) + `(magit-log-date ((,class :inherit shadow))) + `(magit-log-graph ((,class :foreground ,fg-dim))) + `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) + `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) + `(magit-process-ng ((,class :inherit error))) + `(magit-process-ok ((,class :inherit success))) + `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) + `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) + `(magit-refname ((,class :inherit shadow))) + `(magit-refname-pullreq ((,class :inherit shadow))) + `(magit-refname-stash ((,class :inherit shadow))) + `(magit-refname-wip ((,class :inherit shadow))) + `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) + `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) + `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) + `(magit-section-highlight ((,class :background ,bg-alt))) + `(magit-sequence-done ((,class :foreground ,green-alt))) + `(magit-sequence-drop ((,class :foreground ,red-alt))) + `(magit-sequence-exec ((,class :foreground ,magenta-alt))) + `(magit-sequence-head ((,class :foreground ,cyan-alt))) + `(magit-sequence-onto ((,class :inherit shadow))) + `(magit-sequence-part ((,class :foreground ,yellow-alt))) + `(magit-sequence-pick ((,class :foreground ,blue-alt))) + `(magit-sequence-stop ((,class :foreground ,red))) + `(magit-signature-bad ((,class :inherit bold :foreground ,red))) + `(magit-signature-error ((,class :foreground ,red-alt))) + `(magit-signature-expired ((,class :foreground ,yellow))) + `(magit-signature-expired-key ((,class :foreground ,yellow))) + `(magit-signature-good ((,class :foreground ,green))) + `(magit-signature-revoked ((,class :foreground ,magenta))) + `(magit-signature-untrusted ((,class :foreground ,cyan))) + `(magit-tag ((,class :foreground ,yellow-alt-other))) +;;;;; magit-imerge + `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) +;;;;; make-mode (makefiles) + `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) + `(makefile-space ((,class :background ,magenta-nuanced-bg))) +;;;;; man + `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) + `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) + `(Man-underline ((,class :foreground ,cyan :underline t))) +;;;;; marginalia + `(marginalia-archive ((,class :foreground ,green-nuanced-fg))) + `(marginalia-date ((,class :foreground ,blue-nuanced-fg))) + `(marginalia-char ((,class :foreground ,red-active))) + `(marginalia-documentation ((,class :foreground ,fg-special-cold :inherit modus-theme-slant))) + `(marginalia-file-modes ((,class :inherit shadow))) + `(marginalia-file-name ((,class :foreground ,fg-special-mild))) + `(marginalia-file-owner ((,class :foreground ,red-nuanced-fg))) + `(marginalia-key ((,class :foreground ,magenta-active))) + `(marginalia-mode ((,class :foreground ,cyan-active))) + `(marginalia-modified ((,class :foreground ,yellow-active))) + `(marginalia-number ((,class :foreground ,blue-active))) + `(marginalia-size ((,class :foreground ,green-active))) + `(marginalia-type ((,class :foreground ,fg-special-warm))) + `(marginalia-variable ((,class :foreground ,yellow-nuanced-fg))) + `(marginalia-version ((,class :foreground ,cyan-active))) +;;;;; markdown-mode + `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-bold-face ((,class :inherit bold))) + `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) + `(markdown-comment-face ((,class :inherit font-lock-comment-face))) + `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) + `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) + `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) + `(markdown-header-face ((t nil))) + `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) + `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) + `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) + `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) + `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) + `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) + `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,blue))) + `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-mild))) + `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,magenta-alt))) + `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt + :foreground ,fg-alt))) + `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) + `(markdown-link-face ((,class :inherit button))) + `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-list-face ((,class :foreground ,fg-dim))) + `(markdown-markup-face ((,class :inherit shadow))) + `(markdown-math-face ((,class :foreground ,magenta-alt-other))) + `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) + `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) + `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) + `(markdown-plain-url-face ((,class :inherit markdown-link-face))) + `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) + `(markdown-reference-face ((,class :inherit markdown-markup-face))) + `(markdown-strike-through-face ((,class :strike-through t))) + `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-url-face ((,class :foreground ,blue-alt))) +;;;;; markup-faces (`adoc-mode') + `(markup-anchor-face ((,class :foreground ,fg-inactive))) + `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) + `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) + `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) + `(markup-command-face ((,class :foreground ,fg-inactive))) + `(markup-comment-face ((,class :inherit font-lock-comment-face))) + `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) + :inherit modus-theme-refine-magenta))) + `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-error-face ((,class :inherit bold :foreground ,red))) + `(markup-gen-face ((,class :foreground ,magenta-alt))) + `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) + `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-list-face ((,class :inherit modus-theme-special-calm))) + `(markup-meta-face ((,class :foreground ,fg-inactive))) + `(markup-meta-hide-face ((,class :inherit shadow))) + `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) + `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) + `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) + `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) + `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) + `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) + `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) + `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) + `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) + `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) + `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) + `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) + `(markup-value-face ((,class :foreground ,fg-inactive))) + `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) +;;;;; mentor + `(mentor-download-message ((,class :foreground ,fg-special-warm))) + `(mentor-download-name ((,class :foreground ,fg-special-cold))) + `(mentor-download-progress ((,class :foreground ,blue-alt-other))) + `(mentor-download-size ((,class :foreground ,magenta-alt-other))) + `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) + `(mentor-download-speed-up ((,class :foreground ,red-alt))) + `(mentor-download-state ((,class :foreground ,yellow-alt))) + `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(mentor-tracker-name ((,class :foreground ,magenta-alt))) +;;;;; messages + `(message-cited-text-1 ((,class :foreground ,blue-faint))) + `(message-cited-text-2 ((,class :foreground ,green-alt-other))) + `(message-cited-text-3 ((,class :foreground ,red-alt-other))) + `(message-cited-text-4 ((,class :foreground ,cyan))) + `(message-header-cc ((,class :foreground ,blue-alt-other))) + `(message-header-name ((,class :inherit bold :foreground ,cyan))) + `(message-header-newsgroups ((,class :inherit message-header-other))) + `(message-header-other ((,class :foreground ,fg-special-calm))) + `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt))) + `(message-header-to ((,class :inherit bold :foreground ,magenta-alt-other))) + `(message-header-xheader ((,class :foreground ,blue-alt))) + `(message-mml ((,class :foreground ,yellow))) + `(message-separator ((,class :inherit modus-theme-intense-neutral))) +;;;;; minibuffer-line + `(minibuffer-line ((,class :foreground ,fg-main))) +;;;;; minimap + `(minimap-active-region-background ((,class :background ,bg-active))) + `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) +;;;;; mmm-mode + `(mmm-cleanup-submode-face ((,class :background ,yellow-nuanced-bg))) + `(mmm-code-submode-face ((,class :background ,bg-alt))) + `(mmm-comment-submode-face ((,class :background ,blue-nuanced-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-nuanced-bg))) + `(mmm-default-submode-face ((,class :background ,bg-dim))) + `(mmm-init-submode-face ((,class :background ,magenta-nuanced-bg))) + `(mmm-output-submode-face ((,class :background ,red-nuanced-bg))) + `(mmm-special-submode-face ((,class :background ,green-nuanced-bg))) +;;;;; modeline + `(mode-line ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-active bg-active fg-dim bg-active + fg-alt bg-active 'alt-style nil bg-main)))) + `(mode-line-buffer-id ((,class :inherit bold))) + `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) + `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) + `(mode-line-inactive ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-inactive bg-inactive fg-alt bg-dim + bg-region bg-active)))) +;;;;; mood-line + `(mood-line-modified ((,class :foreground ,magenta-active))) + `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) + `(mood-line-status-info ((,class :foreground ,cyan-active))) + `(mood-line-status-neutral ((,class :foreground ,blue-active))) + `(mood-line-status-success ((,class :foreground ,green-active))) + `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) + `(mood-line-unimportant ((,class :foreground ,fg-inactive))) +;;;;; mpdel + `(mpdel-browser-directory-face ((,class :foreground ,blue))) + `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; mu4e + `(mu4e-attach-number-face ((,class :inherit bold :foreground ,fg-dim))) + `(mu4e-cited-1-face ((,class :foreground ,blue-faint))) + `(mu4e-cited-2-face ((,class :foreground ,green-alt-other))) + `(mu4e-cited-3-face ((,class :foreground ,red-alt-other))) + `(mu4e-cited-4-face ((,class :foreground ,cyan))) + `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) + `(mu4e-cited-6-face ((,class :foreground ,magenta))) + `(mu4e-cited-7-face ((,class :foreground ,green-alt))) + `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) + `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(mu4e-contact-face ((,class :inherit message-header-to))) + `(mu4e-context-face ((,class :foreground ,blue-active))) + `(mu4e-draft-face ((,class :foreground ,magenta-alt))) + `(mu4e-flagged-face ((,class :foreground ,red-alt))) + `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) + `(mu4e-header-face ((,class :inherit shadow))) + `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) + `(mu4e-header-key-face ((,class :inherit message-header-name))) + `(mu4e-header-marks-face ((,class :inherit mu4e-special-header-value-face))) + `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) + `(mu4e-header-value-face ((,class :inherit message-header-other))) + `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(mu4e-link-face ((,class :inherit button))) + `(mu4e-modeline-face ((,class :foreground ,magenta-active))) + `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) + `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) + `(mu4e-replied-face ((,class :foreground ,blue))) + `(mu4e-special-header-value-face ((,class :inherit message-header-subject))) + `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) + `(mu4e-title-face ((,class :foreground ,fg-main))) + `(mu4e-trashed-face ((,class :foreground ,red))) + `(mu4e-unread-face ((,class :inherit bold))) + `(mu4e-url-number-face ((,class :foreground ,fg-alt))) + `(mu4e-view-body-face ((,class :foreground ,fg-main))) + `(mu4e-warning-face ((,class :inherit warning))) +;;;;; mu4e-conversation + `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) + `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) + `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) + `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) + `(mu4e-conversation-sender-4 ((,class :inherit shadow))) + `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) + `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) + `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) + `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) + `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) + `(mu4e-conversation-unread ((,class :inherit bold))) +;;;;; multiple-cursors + `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) + `(mc/cursor-face ((,class :inverse-video t))) + `(mc/region-face ((,class :inherit region))) +;;;;; neotree + `(neo-banner-face ((,class :foreground ,magenta))) + `(neo-button-face ((,class :inherit button))) + `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) + `(neo-expand-btn-face ((,class :foreground ,cyan))) + `(neo-file-link-face ((,class :foreground ,fg-main))) + `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) + `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) + `(neo-vc-added-face ((,class :foreground ,green))) + `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) + `(neo-vc-default-face ((,class :foreground ,fg-main))) + `(neo-vc-edited-face ((,class :foreground ,yellow))) + `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) + `(neo-vc-missing-face ((,class :foreground ,red-alt))) + `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) + `(neo-vc-needs-update-face ((,class :underline t))) + `(neo-vc-removed-face ((,class :strike-through t))) + `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) + `(neo-vc-up-to-date-face ((,class :inherit shadow))) + `(neo-vc-user-face ((,class :foreground ,magenta))) +;;;;; no-emoji + `(no-emoji ((,class :foreground ,cyan))) +;;;;; notmuch + `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) + `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) + `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) + `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) + `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) + `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) + `(notmuch-hello-logo-background ((,class :background "gray50"))) + `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) + `(notmuch-search-count ((,class :inherit shadow))) + `(notmuch-search-date ((,class :foreground ,cyan))) + `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) + `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) + `(notmuch-search-non-matching-authors ((,class :inherit shadow))) + `(notmuch-search-subject ((,class :foreground ,fg-dim))) + `(notmuch-search-unread-face ((,class :inherit bold))) + `(notmuch-tag-added + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,green :style wave)) + (,class :foreground ,green :underline t))) + `(notmuch-tag-deleted + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,red :style wave)) + (,class :foreground ,red :underline t))) + `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tag-flagged ((,class :foreground ,red-alt))) + `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) + `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) + `(notmuch-tree-match-date-face ((,class :inherit notmuch-search-date))) + `(notmuch-tree-match-face ((,class :foreground ,fg-main))) + `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tree-no-match-face ((,class :inherit shadow))) + `(notmuch-tree-no-match-date-face ((,class :inherit shadow))) + `(notmuch-wash-cited-text ((,class :foreground ,cyan))) + `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; num3-mode + `(num3-face-even ((,class :inherit bold :background ,bg-alt))) +;;;;; nxml-mode + `(nxml-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) + `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) + `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) + `(nxml-cdata-section-CDATA ((,class :inherit error))) + `(nxml-cdata-section-delimiter ((,class :inherit error))) + `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(nxml-delimiter ((,class :foreground ,fg-dim))) + `(nxml-element-colon ((,class :foreground ,fg-main))) + `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) + `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) + `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) + `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) + `(nxml-heading ((,class :inherit bold))) + `(nxml-name ((,class :inherit font-lock-builtin-face))) + `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) + `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) + `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) + `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(rng-error ((,class :inherit error))) +;;;;; objed + `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-alt-intense bg-hl-alt)))) + `(objed-mark ((,class :background ,bg-active))) + `(objed-mode-line ((,class :foreground ,cyan-active))) +;;;;; orderless + `(orderless-match-face-0 ((,class :inherit bold + ,@(modus-themes--standard-completions + blue-alt-other blue-nuanced-bg + blue-refine-bg blue-refine-fg)))) + `(orderless-match-face-1 ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(orderless-match-face-2 ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-refine-bg green-refine-fg)))) + `(orderless-match-face-3 ((,class :inherit bold + ,@(modus-themes--standard-completions + yellow yellow-nuanced-bg + yellow-refine-bg yellow-refine-fg)))) +;;;;; org + `(org-agenda-calendar-event ((,class :foreground ,fg-main))) + `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) + `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) + `(org-agenda-column-dateline ((,class :background ,bg-alt))) + `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) + `(org-agenda-date ((,class :foreground ,cyan))) + `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) + `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) + `(org-agenda-diary ((,class :foreground ,fg-main))) + `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) + `(org-agenda-done ((,class :foreground ,green-alt))) + `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) + `(org-agenda-structure ((,class ,@(modus-themes--scale modus-themes-scale-5) + :foreground ,blue-alt))) + `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) + `(org-block ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-main))) + `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block-delim + bg-dim fg-special-cold + bg-alt fg-special-mild)))) + `(org-block-end-line ((,class :inherit org-block-begin-line))) + `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) + :background ,bg-inactive :foreground ,fg-active))) + `(org-checkbox-statistics-done ((,class :inherit org-done))) + `(org-checkbox-statistics-todo ((,class :inherit org-todo))) + `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) + `(org-code ((,class ,@(modus-themes--mixed-fonts) + :background ,red-nuanced-bg :foreground ,magenta))) + `(org-column ((,class :background ,bg-alt))) + `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) + `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts + 'button + '(button fixed-pitch)) + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) + `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) + `(org-document-info ((,class :foreground ,fg-special-cold))) + `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(org-done ((,class :foreground ,green))) + `(org-drawer ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-ellipsis ((,class))) ; inherits from the heading's color + `(org-footnote ((,class :inherit button + ,@(modus-themes--link-color + blue-alt blue-alt-faint)))) + `(org-formula ((,class ,@(modus-themes--mixed-fonts) + :foreground ,red-alt))) + `(org-habit-alert-face ((,class ,@(modus-themes--org-habit + yellow-graph-0-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-alert-future-face ((,class ,@(modus-themes--org-habit + yellow-graph-1-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-clear-face ((,class ,@(modus-themes--org-habit + blue-graph-0-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-clear-future-face ((,class ,@(modus-themes--org-habit + blue-graph-1-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-overdue-face ((,class ,@(modus-themes--org-habit + red-graph-0-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-overdue-future-face ((,class ,@(modus-themes--org-habit + red-graph-1-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-ready-face ((,class ,@(modus-themes--org-habit + green-graph-0-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-habit-ready-future-face ((,class ,@(modus-themes--org-habit + green-graph-1-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) + `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) + `(org-hide ((,class :foreground ,bg-main))) + `(org-indent ((,class :inherit (fixed-pitch org-hide)))) + `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) + `(org-level-1 ((,class :inherit modus-theme-heading-1))) + `(org-level-2 ((,class :inherit modus-theme-heading-2))) + `(org-level-3 ((,class :inherit modus-theme-heading-3))) + `(org-level-4 ((,class :inherit modus-theme-heading-4))) + `(org-level-5 ((,class :inherit modus-theme-heading-5))) + `(org-level-6 ((,class :inherit modus-theme-heading-6))) + `(org-level-7 ((,class :inherit modus-theme-heading-7))) + `(org-level-8 ((,class :inherit modus-theme-heading-8))) + `(org-link ((,class :inherit button))) + `(org-list-dt ((,class :inherit bold))) + `(org-macro ((,class ,@(modus-themes--mixed-fonts) + :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) + `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) + `(org-mode-line-clock ((,class :foreground ,fg-main))) + `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) + `(org-priority ((,class :foreground ,magenta))) + `(org-property-value ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-quote ((,class :inherit modus-theme-slant + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-special-cold))) + `(org-scheduled ((,class :foreground ,magenta-alt))) + `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) + `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) + `(org-sexp-date ((,class :inherit org-date))) + `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-table ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) + `(org-tag ((,class :foreground ,magenta-nuanced-fg))) + `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(org-target ((,class :underline t))) + `(org-time-grid ((,class :foreground ,fg-unfocused))) + `(org-todo ((,class :foreground ,red))) + `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) + `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) + `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(org-verse ((,class :inherit org-quote))) + `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) +;;;;; org-journal + `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) + `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) + `(org-journal-highlight ((,class :foreground ,magenta-alt))) +;;;;; org-noter + `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) + `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) +;;;;; org-pomodoro + `(org-pomodoro-mode-line ((,class :foreground ,red-active))) + `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) + `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) +;;;;; org-recur + `(org-recur ((,class :foreground ,magenta-active))) +;;;;; org-roam + `(org-roam-link ((,class :inherit button + ,@(modus-themes--link-color + green green-faint)))) + `(org-roam-link-current ((,class :inherit button + ,@(modus-themes--link-color + green-alt green-alt-faint)))) + `(org-roam-link-invalid ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(org-roam-link-shielded ((,class :inherit button + ,@(modus-themes--link-color + yellow yellow-faint)))) + `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) +;;;;; org-superstar + `(org-superstar-item ((,class :foreground ,fg-main))) + `(org-superstar-leading ((,class :foreground ,fg-whitespace))) +;;;;; org-table-sticky-header + `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) +;;;;; org-tree-slide + `(org-tree-slide-header-overlay-face + ((,class :inherit (bold modus-theme-variable-pitch) :background ,bg-main + :foreground ,fg-special-cold :overline nil + ,@(modus-themes--scale modus-themes-scale-5)))) +;;;;; org-treescope + `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) + `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) +;;;;; origami + `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) + `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; outline-mode + `(outline-1 ((,class :inherit modus-theme-heading-1))) + `(outline-2 ((,class :inherit modus-theme-heading-2))) + `(outline-3 ((,class :inherit modus-theme-heading-3))) + `(outline-4 ((,class :inherit modus-theme-heading-4))) + `(outline-5 ((,class :inherit modus-theme-heading-5))) + `(outline-6 ((,class :inherit modus-theme-heading-6))) + `(outline-7 ((,class :inherit modus-theme-heading-7))) + `(outline-8 ((,class :inherit modus-theme-heading-8))) +;;;;; outline-minor-faces + `(outline-minor-0 ((,class :background ,bg-alt))) +;;;;; package (M-x list-packages) + `(package-description ((,class :foreground ,fg-special-cold))) + `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) + `(package-name ((,class :inherit button))) + `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) + `(package-status-available ((,class :foreground ,fg-special-mild))) + `(package-status-built-in ((,class :foreground ,magenta))) + `(package-status-dependency ((,class :foreground ,magenta-alt-other))) + `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) + `(package-status-external ((,class :foreground ,cyan-alt-other))) + `(package-status-held ((,class :foreground ,yellow-alt))) + `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) + `(package-status-installed ((,class :foreground ,fg-special-warm))) + `(package-status-new ((,class :inherit bold :foreground ,green))) + `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) +;;;;; page-break-lines + `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) +;;;;; paradox + `(paradox-archive-face ((,class :foreground ,fg-special-mild))) + `(paradox-comment-face ((,class :inherit font-lock-comment-face))) + `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) + `(paradox-description-face ((,class :foreground ,fg-special-cold))) + `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) + `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) + `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) + `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) + `(paradox-name-face ((,class :foreground ,blue :underline t))) + `(paradox-star-face ((,class :foreground ,magenta))) + `(paradox-starred-face ((,class :foreground ,magenta-alt))) +;;;;; paren-face + `(parenthesis ((,class :foreground ,fg-unfocused))) +;;;;; parrot + `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; pass + `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) + `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) +;;;;; pdf-tools + `(pdf-links-read-link ((,class :background ,fg-main :foreground ,magenta-intense-bg :inherit bold))) ; Foreground is background and vice versa + `(pdf-occur-document-face ((,class :inherit shadow))) + `(pdf-occur-page-face ((,class :inherit shadow))) +;;;;; persp-mode + `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) + `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) + `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) +;;;;; perspective + `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) +;;;;; phi-grep + `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) + `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) + `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) + `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) +;;;;; phi-search + `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) + `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) + `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) + `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; pkgbuild-mode + `(pkgbuild-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; pomidor + `(pomidor-break-face ((,class :foreground ,blue-alt-other))) + `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) + `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(pomidor-work-face ((,class :foreground ,green-alt-other))) +;;;;; popup + `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) + `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) + `(popup-scroll-bar-background-face ((,class :background ,bg-active))) + `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) + `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) + `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; powerline + `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) + `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) + `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) + `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) + `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; powerline-evil + `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) + `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) + `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) + `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) + `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) + `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) + `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) + `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) +;;;;; proced + `(proced-mark ((,class :inherit modus-theme-mark-symbol))) + `(proced-marked ((,class :inherit modus-theme-mark-alt))) + `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) +;;;;; prodigy + `(prodigy-green-face ((,class :foreground ,green))) + `(prodigy-red-face ((,class :foreground ,red))) + `(prodigy-yellow-face ((,class :foreground ,yellow))) +;;;;; quick-peek + `(quick-peek-background-face ((,class :background ,bg-alt))) + `(quick-peek-border-face ((,class :background ,fg-window-divider-inner :height 1))) + `(quick-peek-padding-face ((,class :background ,bg-alt :height 0.15))) +;;;;; racket-mode + `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) + `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) + :foreground ,green-alt-other))) + `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) + :foreground ,green))) + `(racket-here-string-face ((,class :foreground ,blue-alt))) + `(racket-keyword-argument-face ((,class :foreground ,red-alt))) + `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) + `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) + `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(racket-selfeval-face ((,class :foreground ,green-alt))) + `(racket-xp-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; rainbow-blocks + `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) + `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) + `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) + `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) + `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) + `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) + `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) + `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) + `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) + `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) +;;;;; rainbow-identifiers + `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) + `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) + `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) + `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) + `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) + `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) + `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) + `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) + `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) + `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) + `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) + `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) + `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) + `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) + `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) +;;;;; rainbow-delimiters + `(rainbow-delimiters-base-error-face ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-intense))) + `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-intense))) + `(rainbow-delimiters-depth-4-face ((,class :foreground ,orange-intense))) + `(rainbow-delimiters-depth-5-face ((,class :foreground ,purple-intense))) + `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-intense))) + `(rainbow-delimiters-depth-7-face ((,class :foreground ,red-intense))) + `(rainbow-delimiters-depth-8-face ((,class :foreground ,blue-intense))) + `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-intense))) + `(rainbow-delimiters-mismatched-face ((,class :inherit (bold modus-theme-refine-yellow)))) + `(rainbow-delimiters-unmatched-face ((,class :inherit (bold modus-theme-refine-red)))) +;;;;; rcirc + `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) + `(rcirc-dim-nick ((,class :inherit shadow))) + `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) + `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) + `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) + `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) + `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) + `(rcirc-server ((,class :foreground ,fg-unfocused))) + `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) + `(rcirc-url ((,class :foreground ,blue :underline t))) +;;;;; recursion-indicator + `(recursion-indicator-general ((,class :foreground ,blue-active))) + `(recursion-indicator-minibuffer ((,class :foreground ,red-active))) +;;;;; regexp-builder (re-builder) + `(reb-match-0 ((,class :inherit modus-theme-refine-cyan))) + `(reb-match-1 ((,class :inherit modus-theme-subtle-magenta))) + `(reb-match-2 ((,class :inherit modus-theme-subtle-green))) + `(reb-match-3 ((,class :inherit modus-theme-refine-yellow))) + `(reb-regexp-grouping-backslash ((,class :inherit font-lock-regexp-grouping-backslash))) + `(reb-regexp-grouping-construct ((,class :inherit font-lock-regexp-grouping-construct))) +;;;;; rg (rg.el) + `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) + `(rg-context-face ((,class :foreground ,fg-unfocused))) + `(rg-error-face ((,class :inherit bold :foreground ,red))) + `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) + `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(rg-line-number-face ((,class :foreground ,fg-special-warm))) + `(rg-literal-face ((,class :foreground ,blue-alt))) + `(rg-match-face ((,class :inherit modus-theme-special-calm))) + `(rg-regexp-face ((,class :foreground ,magenta-active))) + `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) + `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) + `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; ripgrep + `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) + `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) + `(ripgrep-hit-face ((,class :foreground ,cyan))) + `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; rmail + `(rmail-header-name ((,class :foreground ,cyan-alt-other))) + `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) +;;;;; ruler-mode + `(ruler-mode-column-number ((,class :inherit ruler-mode-default :foreground ,fg-main))) + `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red))) + `(ruler-mode-current-column ((,class :inherit ruler-mode-default :background ,blue-subtle-bg :foreground ,fg-main))) + `(ruler-mode-default ((,class :inherit default :background ,bg-alt :foreground ,fg-unfocused))) + `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green))) + `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,cyan))) + `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,blue))) + `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) + `(ruler-mode-pad ((,class :inherit ruler-mode-default :background ,bg-active :foreground ,fg-inactive))) + `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,fg-special-warm))) +;;;;; sallet + `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) + `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) + `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) + `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) + `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) + `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) + `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) + `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) + `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) + `(sallet-flx-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) + `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) + `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(sallet-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(sallet-substring-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other)))) +;;;;; selectrum +;; NOTE 2021-02-22: The `selectrum-primary-highlight' and +;; `selectrum-secondary-highlight' are deprecated upstream in favour of +;; their selectrum-prescient counterparts. We shall remove those faces +;; from the themes once we are certain that they are no longer relevant. + `(selectrum-current-candidate + ((,class :inherit bold :foreground ,fg-main + :background ,@(pcase modus-themes-completions + ('opinionated (list bg-active)) + (_ (list bg-inactive)))))) + `(selectrum-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; selectrum-prescient + `(selectrum-prescient-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-prescient-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; semantic + `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) + `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) + `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) + `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) + `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) + `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) + `(semantic-highlight-edits-face ((,class :background ,bg-alt))) + `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) + `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) + `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) + `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) +;;;;; sesman + `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) + `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) + `(sesman-buffer-face ((,class :foreground ,magenta))) + `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) + `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; shell-script-mode + `(sh-heredoc ((,class :foreground ,blue-alt))) + `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) +;;;;; shortdoc + `(shortdoc-heading ((,class :inherit modus-theme-pseudo-header))) + `(shortdoc-section ((,class))) ; remove the default's variable-pitch style +;;;;; show-paren-mode + `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) + `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) +;;;;; shr + `(shr-abbreviation + ((,(append '((supports :underline (:style wave))) class) + :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) + (,class :foreground ,fg-docstring :underline t))) + `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) +;;;;; side-notes + `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) +;;;;; sieve-mode + `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) + `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) + `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) + `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) +;;;;; skewer-mode + `(skewer-error-face ((,class :foreground ,red :underline t))) +;;;;; smart-mode-line + `(sml/charging ((,class :foreground ,green-active))) + `(sml/discharging ((,class :foreground ,red-active))) + `(sml/filename ((,class :inherit bold :foreground ,blue-active))) + `(sml/folder ((,class :foreground ,fg-active))) + `(sml/git ((,class :inherit bold :foreground ,green-active))) + `(sml/global ((,class :foreground ,fg-active))) + `(sml/line-number ((,class :inherit sml/global))) + `(sml/minor-modes ((,class :inherit sml/global))) + `(sml/modes ((,class :inherit bold :foreground ,fg-active))) + `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) + `(sml/mule-info ((,class :inherit sml/global))) + `(sml/name-filling ((,class :foreground ,yellow-active))) + `(sml/not-modified ((,class :inherit sml/global))) + `(sml/numbers-separator ((,class :inherit sml/global))) + `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) + `(sml/position-percentage ((,class :inherit sml/global))) + `(sml/prefix ((,class :foreground ,green-active))) + `(sml/process ((,class :inherit sml/prefix))) + `(sml/projectile ((,class :inherit sml/git))) + `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) + `(sml/remote ((,class :inherit sml/global))) + `(sml/sudo ((,class :inherit modus-theme-subtle-red))) + `(sml/time ((,class :inherit sml/global))) + `(sml/vc ((,class :inherit sml/git))) + `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) +;;;;; smartparens + `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) + `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) + `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) + `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) +;;;;; smerge + `(smerge-base ((,class :inherit modus-theme-diff-changed))) + `(smerge-lower ((,class :inherit modus-theme-diff-added))) + `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) + `(smerge-refined-changed ((,class))) + `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(smerge-upper ((,class :inherit modus-theme-diff-removed))) +;;;;; solaire + `(solaire-default-face ((,class :inherit default :background ,bg-alt :foreground ,fg-dim))) + `(solaire-line-number-face ((,class :inherit solaire-default-face :foreground ,fg-unfocused))) + `(solaire-hl-line-face ((,class :background ,bg-active))) + `(solaire-org-hide-face ((,class :background ,bg-alt :foreground ,bg-alt))) +;;;;; spaceline + `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) + `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) + `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) + `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) + `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) + `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) + `(spaceline-flycheck-error ((,class :foreground ,red-active))) + `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) + `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) + `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) + `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) + `(spaceline-python-venv ((,class :foreground ,magenta-active))) + `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) + `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) +;;;;; speedbar + `(speedbar-button-face ((,class :inherit button))) + `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) + `(speedbar-file-face ((,class :foreground ,fg-main))) + `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) + `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) +;;;;; spell-fu + `(spell-fu-incorrect-face ((,class :inherit modus-theme-lang-error))) +;;;;; spray + `(spray-accent-face ((,class :foreground ,red-intense))) + `(spray-base-face ((,class :inherit default :foreground ,fg-special-cold))) +;;;;; stripes + `(stripes ((,class :inherit modus-theme-hl-line))) +;;;;; success + `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) +;;;;; switch-window + `(switch-window-background ((,class :background ,bg-dim))) + `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) +;;;;; swiper + `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) + `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) + `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) + `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) + `(swiper-line-face ((,class :inherit modus-theme-special-cold))) + `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) + `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) + `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) + `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) +;;;;; swoop + `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-3)))) + `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) + `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) + `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) +;;;;; sx + `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) + `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) + `(sx-question-list-answers ((,class :foreground ,green))) + `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) + `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) + `(sx-question-list-date ((,class :foreground ,fg-special-cold))) + `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) + `(sx-question-list-parent ((,class :foreground ,fg-main))) + `(sx-question-list-read-question ((,class :inherit shadow))) + `(sx-question-list-score ((,class :foreground ,fg-special-mild))) + `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) + `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) + `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) + `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) + `(sx-question-mode-content-face ((,class :background ,bg-dim))) + `(sx-question-mode-date ((,class :foreground ,blue))) + `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) + `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) + `(sx-question-mode-score ((,class :foreground ,fg-dim))) + `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) + `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) + `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) + `(sx-tag ((,class :foreground ,magenta-alt))) + `(sx-user-name ((,class :foreground ,blue-alt))) + `(sx-user-reputation ((,class :inherit shadow))) +;;;;; symbol-overlay + `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) + `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) + `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) + `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) + `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) + `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) + `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) + `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) + `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) +;;;;; syslog-mode + `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) + `(syslog-error ((,class :inherit bold :foreground ,red))) + `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) + `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) + `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) + `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) + `(syslog-su ((,class :inherit bold :foreground ,red-alt))) + `(syslog-warn ((,class :inherit bold :foreground ,yellow))) +;;;;; tab-bar-mode + `(tab-bar ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; tab-line-mode + `(tab-line ((,class ,@(modus-themes--variable-pitch-ui) + :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-line-close-highlight ((,class :foreground ,red))) + `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-line-tab-current ((,class :inherit tab-line-tab))) + `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) + `(tab-line-tab-inactive-alternate ((,class :box (:line-width 2 :color ,bg-tab-inactive-alt) + :background ,bg-tab-inactive-alt :foreground ,fg-main))) +;;;;; table (built-in table.el) + `(table-cell ((,class :background ,blue-nuanced-bg))) +;;;;; telephone-line + `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) + `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) + `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) + `(telephone-line-evil ((,class :foreground ,fg-main))) + `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) + `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) + `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) + `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) + `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) + `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) + `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) + `(telephone-line-projectile ((,class :foreground ,cyan-active))) + `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) + `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; terraform-mode + `(terraform--resource-name-face ((,class ,@(modus-themes--syntax-string + magenta-alt-other magenta-alt-other-faint + red-alt red-alt)))) + `(terraform--resource-type-face ((,class ,@(modus-themes--syntax-string + green green-faint + blue-alt magenta-alt)))) +;;;;; term + `(term ((,class :background ,bg-main :foreground ,fg-main))) + `(term-bold ((,class :inherit bold))) + `(term-color-black ((,class :background "gray35" :foreground "gray35"))) + `(term-color-blue ((,class :background ,blue :foreground ,blue))) + `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(term-color-green ((,class :background ,green :foreground ,green))) + `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(term-color-red ((,class :background ,red :foreground ,red))) + `(term-color-white ((,class :background "gray65" :foreground "gray65"))) + `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) + `(term-underline ((,class :underline t))) +;;;;; tomatinho + `(tomatinho-ok-face ((,class :foreground ,blue-intense))) + `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) + `(tomatinho-reset-face ((,class :inherit shadow))) +;;;;; transient + `(transient-active-infix ((,class :inherit modus-theme-special-mild))) + `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) + `(transient-argument ((,class :inherit bold :foreground ,red-alt))) + `(transient-blue ((,class :inherit bold :foreground ,blue))) + `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) + `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) + `(transient-heading ((,class :inherit bold :foreground ,fg-main))) + `(transient-inactive-argument ((,class :inherit shadow))) + `(transient-inactive-value ((,class :inherit shadow))) + `(transient-key ((,class :inherit bold :foreground ,blue))) + `(transient-mismatched-key ((,class :underline t))) + `(transient-nonstandard-key ((,class :underline t))) + `(transient-pink ((,class :inherit bold :foreground ,magenta))) + `(transient-red ((,class :inherit bold :foreground ,red-intense))) + `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) + `(transient-unreachable ((,class :foreground ,fg-unfocused))) + `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) + `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; trashed + `(trashed-deleted ((,class :inherit modus-theme-mark-del))) + `(trashed-directory ((,class :foreground ,blue))) + `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) + `(trashed-marked ((,class :inherit modus-theme-mark-alt))) + `(trashed-restored ((,class :inherit modus-theme-mark-sel))) + `(trashed-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) +;;;;; treemacs + `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) + `(treemacs-directory-face ((,class :inherit dired-directory))) + `(treemacs-file-face ((,class :foreground ,fg-main))) + `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) + `(treemacs-git-added-face ((,class :foreground ,green-intense))) + `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) + `(treemacs-git-ignored-face ((,class :inherit shadow))) + `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) + `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) + `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) + `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) + `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) + `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) + `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) + `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) + `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) + `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) + `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) + `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) + `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) + `(treemacs-tags-face ((,class :foreground ,blue-alt))) + `(treemacs-tags-face ((,class :foreground ,magenta-alt))) +;;;;; tty-menu + `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) + `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) +;;;;; tuareg + `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) + `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) + `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) + `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) + `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) + `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) + `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) + `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) + `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) + `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) + `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) + `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) + `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) + `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground ,blue))) + `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-opam-error-face ((,class :inherit error))) + `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) +;;;;; typescript + `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) + `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) + `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) +;;;;; undo-tree + `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) + `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) + `(undo-tree-visualizer-default-face ((,class :inherit shadow))) + `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) + `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) +;;;;; vc (vc-dir.el, vc-hooks.el) + `(vc-dir-directory ((,class :foreground ,blue))) + `(vc-dir-file ((,class :foreground ,fg-main))) + `(vc-dir-header ((,class :foreground ,cyan-alt-other))) + `(vc-dir-header-value ((,class :foreground ,magenta-alt-other))) + `(vc-dir-mark-indicator ((,class :foreground ,blue-alt-other))) + `(vc-dir-status-edited ((,class :foreground ,yellow))) + `(vc-dir-status-ignored ((,class :foreground ,fg-unfocused))) + `(vc-dir-status-up-to-date ((,class :foreground ,cyan))) + `(vc-dir-status-warning ((,class :foreground ,red))) + `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) + `(vc-edited-state ((,class :foreground ,yellow-active))) + `(vc-locally-added-state ((,class :foreground ,cyan-active))) + `(vc-locked-state ((,class :foreground ,blue-active))) + `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) + `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) + `(vc-removed-state ((,class :foreground ,red-active))) + `(vc-state-base ((,class :foreground ,fg-active))) + `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) +;;;;; vdiff + `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) + `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) + `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) + `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) +;;;;; vimish-fold + `(vimish-fold-fringe ((,class :foreground ,cyan-active))) + `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) +;;;;; visible-mark + `(visible-mark-active ((,class :background ,blue-intense-bg))) + `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) + `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) + `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) + `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) +;;;;; visual-regexp + `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) + `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) + `(vr/group-2 ((,class :inherit modus-theme-intense-green))) + `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) +;;;;; volatile-highlights + `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) +;;;;; vterm + `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) + `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) + `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) + `(vterm-color-green ((,class :background ,green :foreground ,green))) + `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) + `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(vterm-color-red ((,class :background ,red :foreground ,red))) + `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) + `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) + `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) +;;;;; wcheck-mode + `(wcheck-default-face ((,class :foreground ,red :underline t))) +;;;;; web-mode + `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) + `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) + `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) + `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) + `(web-mode-block-face ((,class :background ,bg-dim))) + `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-bold-face ((,class :inherit bold))) + `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) + `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) + `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) + `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) + `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) + `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) + `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) + `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) + `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-folded-face ((,class :underline t))) + `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) + `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) + `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) + `(web-mode-inlay-face ((,class :background ,bg-alt))) + `(web-mode-italic-face ((,class :inherit italic))) + `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) + `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) + `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) + `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) + `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-part-face ((,class :inherit web-mode-block-face))) + `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) + `(web-mode-script-face ((,class :inherit web-mode-part-face))) + `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-string-face ((,class :inherit font-lock-string-face))) + `(web-mode-style-face ((,class :inherit web-mode-part-face))) + `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) + `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-underline-face ((,class :underline t))) + `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) + `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) +;;;;; wgrep + `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) + `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) + `(wgrep-face ((,class :inherit modus-theme-refine-green))) + `(wgrep-file-face ((,class :foreground ,fg-special-warm))) + `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) +;;;;; which-function-mode + `(which-func ((,class :foreground ,magenta-active))) +;;;;; which-key + `(which-key-command-description-face ((,class :foreground ,fg-main))) + `(which-key-group-description-face ((,class :foreground ,magenta-alt))) + `(which-key-highlighted-command-face ((,class :foreground ,yellow :underline t))) + `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(which-key-local-map-description-face ((,class :foreground ,fg-main))) + `(which-key-note-face ((,class :foreground ,fg-special-warm))) + `(which-key-separator-face ((,class :inherit shadow))) + `(which-key-special-key-face ((,class :inherit bold :foreground ,orange-intense))) +;;;;; whitespace-mode + `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) + `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) + `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-line ((,class :background ,bg-alt))) + `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) + `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) + `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) +;;;;; window-divider-mode + `(window-divider ((,class :foreground ,fg-window-divider-inner))) + `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) + `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) +;;;;; winum + `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; writegood-mode + `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(writegood-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(writegood-weasels-face ((,class :inherit modus-theme-lang-error))) +;;;;; woman + `(woman-addition ((,class :foreground ,magenta-alt-other))) + `(woman-bold ((,class :inherit bold :foreground ,magenta))) + `(woman-italic ((,class :inherit italic :foreground ,cyan))) + `(woman-unknown ((,class :inherit italic :foreground ,yellow))) +;;;;; xah-elisp-mode + `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) + `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) + `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) + `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) +;;;;; xref + `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(xref-line-number ((,class :inherit shadow))) + `(xref-match ((,class :inherit match))) +;;;;; yaml-mode + `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) +;;;;; yasnippet + `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) +;;;;; ztree + `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) + `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) + `(ztreep-diff-model-add-face ((,class :foreground ,green))) + `(ztreep-diff-model-diff-face ((,class :foreground ,red))) + `(ztreep-diff-model-ignored-face ((,class :inherit shadow :strike-through t))) + `(ztreep-diff-model-normal-face ((,class :inherit shadow))) + `(ztreep-expand-sign-face ((,class :foreground ,blue))) + `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-leaf-face ((,class :foreground ,cyan))) + `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) + `(ztreep-node-face ((,class :foreground ,fg-main)))) + "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"]) +;;;; awesome-tray + `(awesome-tray-mode-line-active-color ,blue) + `(awesome-tray-mode-line-inactive-color ,bg-active) +;;;; exwm + `(exwm-floating-border-color ,fg-window-divider-inner) +;;;; flymake fringe indicators + `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) + `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) + `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) +;;;; ibuffer + `(ibuffer-deletion-face 'modus-theme-mark-del) + `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) + `(ibuffer-marked-face 'modus-theme-mark-sel) + `(ibuffer-title-face 'modus-theme-pseudo-header) +;;;; highlight-tail + `(highlight-tail-colors + '((,green-subtle-bg . 0) + (,cyan-subtle-bg . 20))) +;;;; hl-todo + `(hl-todo-keyword-faces + '(("HOLD" . ,yellow-alt) + ("TODO" . ,magenta) + ("NEXT" . ,magenta-alt-other) + ("THEM" . ,magenta-alt) + ("PROG" . ,cyan) + ("OKAY" . ,cyan-alt) + ("DONT" . ,green-alt) + ("FAIL" . ,red) + ("BUG" . ,red) + ("DONE" . ,green) + ("NOTE" . ,yellow-alt-other) + ("KLUDGE" . ,yellow) + ("HACK" . ,yellow) + ("TEMP" . ,red-nuanced-fg) + ("FIXME" . ,red-alt-other) + ("XXX+" . ,red-alt) + ("REVIEW" . ,cyan-alt-other) + ("DEPRECATED" . ,blue-nuanced-fg))) +;;;; pdf-tools + `(pdf-view-midnight-colors + '(,fg-main . ,bg-dim)) +;;;; vc-annotate (C-x v g) + `(vc-annotate-background nil) + `(vc-annotate-background-mode nil) + `(vc-annotate-color-map + '((20 . ,red) + (40 . ,magenta) + (60 . ,magenta-alt) + (80 . ,red-alt) + (100 . ,yellow) + (120 . ,yellow-alt) + (140 . ,fg-special-warm) + (160 . ,fg-special-mild) + (180 . ,green) + (200 . ,green-alt) + (220 . ,cyan-alt-other) + (240 . ,cyan-alt) + (260 . ,cyan) + (280 . ,fg-special-cold) + (300 . ,blue) + (320 . ,blue-alt) + (340 . ,blue-alt-other) + (360 . ,magenta-alt-other))) + `(vc-annotate-very-old-color nil) +;;;; xterm-color + `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) + `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) + (if (eq modus-themes-org-blocks 'rainbow) + `(org-src-block-faces ; TODO this list should be expanded + `(("emacs-lisp" modus-theme-nuanced-magenta) + ("elisp" modus-theme-nuanced-magenta) + ("clojure" modus-theme-nuanced-magenta) + ("clojurescript" modus-theme-nuanced-magenta) + ("c" modus-theme-nuanced-blue) + ("c++" modus-theme-nuanced-blue) + ("sh" modus-theme-nuanced-green) + ("shell" modus-theme-nuanced-green) + ("html" modus-theme-nuanced-yellow) + ("xml" modus-theme-nuanced-yellow) + ("css" modus-theme-nuanced-red) + ("scss" modus-theme-nuanced-red) + ("python" modus-theme-nuanced-green) + ("ipython" modus-theme-nuanced-magenta) + ("r" modus-theme-nuanced-cyan) + ("yaml" modus-theme-nuanced-cyan) + ("conf" modus-theme-nuanced-cyan) + ("docker" modus-theme-nuanced-cyan))) + `(org-src-block-faces '()))) + "Custom variables for `modus-themes-theme'.") + +;;;###autoload +(when (and (boundp 'custom-theme-load-path) load-file-name) + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide 'modus-themes) +;;; modus-themes.el ends here diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el index 73f07d644b..a8f9260ccf 100644 --- a/etc/themes/modus-vivendi-theme.el +++ b/etc/themes/modus-vivendi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi +;; is the light one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-vivendi-theme-slanted-constructs (boolean) -;; modus-vivendi-theme-bold-constructs (boolean) -;; modus-vivendi-theme-variable-pitch-headings (boolean) -;; modus-vivendi-theme-no-mixed-fonts (boolean) -;; modus-vivendi-theme-headings (alist) -;; modus-vivendi-theme-scale-headings (boolean) -;; modus-vivendi-theme-fringes (choice) -;; modus-vivendi-theme-org-blocks (choice) -;; modus-vivendi-theme-prompts (choice) -;; modus-vivendi-theme-mode-line (choice) -;; modus-vivendi-theme-diffs (choice) -;; modus-vivendi-theme-faint-syntax (boolean) -;; modus-vivendi-theme-intense-hl-line (boolean) -;; modus-vivendi-theme-intense-paren-match (boolean) -;; modus-vivendi-theme-no-link-underline (boolean) -;; modus-vivendi-theme-completions (choice) -;; modus-vivendi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-vivendi-theme-scale-1 1.05 -;; modus-vivendi-theme-scale-2 1.1 -;; modus-vivendi-theme-scale-3 1.15 -;; modus-vivendi-theme-scale-4 1.2 -;; modus-vivendi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-operandi-theme.el (Light theme) ;;; Code: \f -(deftheme modus-vivendi - "Dark theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Vivendi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-vivendi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-vivendi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-vivendi-theme-proportional-fonts - 'modus-vivendi-theme-variable-pitch-headings "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-section-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-vivendi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-vivendi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-vivendi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-vivendi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-2 1.1 - "Font size slightly larger than `modus-vivendi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-3 1.15 - "Font size slightly larger than `modus-vivendi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-4 1.2 - "Font size slightly larger than `modus-vivendi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-5 1.3 - "Font size slightly larger than `modus-vivendi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-vivendi-theme-visible-fringes - 'modus-vivendi-theme-fringes - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-vivendi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-vivendi-theme-distinct-org-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-vivendi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-vivendi-theme-3d-modeline - 'modus-vivendi-theme-mode-line - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-vivendi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-vivendi-theme-subtle-diffs - 'modus-vivendi-theme-diffs - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-vivendi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-vivendi-theme-intense-standard-completions - 'modus-vivendi-theme-completions - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-vivendi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-vivendi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-vivendi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-vivendi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-vivendi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-vivendi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-vivendi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-vivendi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-vivendi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-vivendi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-vivendi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-vivendi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-vivendi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-vivendi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-vivendi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-vivendi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-vivendi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-vivendi-theme-heading-p (key) - "Query style of KEY in `modus-vivendi-theme-headings'." - (cdr (assoc key modus-vivendi-theme-headings))) - -(defun modus-vivendi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-vivendi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-vivendi-theme-heading-p `,level)) - (style (or key (modus-vivendi-theme-heading-p t))) - (var (if modus-vivendi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-vivendi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-vivendi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-vivendi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-vivendi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-vivendi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-vivendi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-vivendi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-vivendi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-vivendi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-vivendi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-vivendi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-vivendi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-vivendi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-vivendi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-vivendi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-vivendi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-vivendi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-vivendi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-vivendi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-vivendi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-vivendi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-vivendi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#000000") ("fg-main" . "#ffffff") - ("bg-alt" . "#181a20") ("fg-alt" . "#a8a8a8") - ("bg-dim" . "#110b11") ("fg-dim" . "#e0e6f0") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#323232") ("fg-active" . "#f4f4f4") - ("bg-inactive" . "#1e1e1e") ("fg-inactive" . "#bfc0c4") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#203448") ("fg-special-cold" . "#c6eaff") - ("bg-special-mild" . "#00322e") ("fg-special-mild" . "#bfebe0") - ("bg-special-warm" . "#382f27") ("fg-special-warm" . "#f8dec0") - ("bg-special-calm" . "#392a48") ("fg-special-calm" . "#fbd6f4") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#ff8059") ("green" . "#44bc44") - ("yellow" . "#eecc00") ("blue" . "#2fafff") - ("magenta" . "#feacd0") ("cyan" . "#00d3d0") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#f4923b") ("green-alt" . "#80d200") - ("yellow-alt" . "#cfdf30") ("blue-alt" . "#79a8ff") - ("magenta-alt" . "#f78fe7") ("cyan-alt" . "#4ae8fc") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#ff9977") ("green-alt-other" . "#00cd68") - ("yellow-alt-other" . "#f0ce43") ("blue-alt-other" . "#00bcff") - ("magenta-alt-other" . "#b6a0ff") ("cyan-alt-other" . "#6ae4b9") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-vivendi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#ffa0a0") ("green-faint" . "#88cf88") - ("yellow-faint" . "#d2b580") ("blue-faint" . "#92baff") - ("magenta-faint" . "#e0b2d6") ("cyan-faint" . "#a0bfdf") - - ("red-alt-faint" . "#f5aa80") ("green-alt-faint" . "#a8cf88") - ("yellow-alt-faint" . "#cabf77") ("blue-alt-faint" . "#a4b0ff") - ("magenta-alt-faint" . "#ef9fe4") ("cyan-alt-faint" . "#90c4ed") - - ("red-alt-other-faint" . "#ff9fbf") ("green-alt-other-faint" . "#88cfaf") - ("yellow-alt-other-faint" . "#d0ba95") ("blue-alt-other-faint" . "#8fc5ff") - ("magenta-alt-other-faint" . "#d0b4ff") ("cyan-alt-other-faint" . "#a4d0bb") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#ffcccc") ("green-nuanced" . "#b8e2b8") - ("yellow-nuanced" . "#dfdfb0") ("blue-nuanced" . "#bfd9ff") - ("magenta-nuanced" . "#e5cfef") ("cyan-nuanced" . "#a8e5e5") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#2c0614") ("green-nuanced-bg" . "#001904") - ("yellow-nuanced-bg" . "#221000") ("blue-nuanced-bg" . "#0f0e39") - ("magenta-nuanced-bg" . "#230631") ("cyan-nuanced-bg" . "#041529") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#fb6859") ("green-intense" . "#00fc50") - ("yellow-intense" . "#ffdd00") ("blue-intense" . "#00a2ff") - ("magenta-intense" . "#ff8bd4") ("cyan-intense" . "#30ffc0") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#762422") ("green-subtle-bg" . "#2f4a00") - ("yellow-subtle-bg" . "#604200") ("blue-subtle-bg" . "#10387c") - ("magenta-subtle-bg" . "#49366e") ("cyan-subtle-bg" . "#00415e") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#a4202a") ("green-intense-bg" . "#006800") - ("yellow-intense-bg" . "#874900") ("blue-intense-bg" . "#2a40b8") - ("magenta-intense-bg" . "#7042a2") ("cyan-intense-bg" . "#005f88") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#77002a") ("red-refine-fg" . "#ffb9ab") - ("green-refine-bg" . "#00422a") ("green-refine-fg" . "#9ff0cf") - ("yellow-refine-bg" . "#693200") ("yellow-refine-fg" . "#e2d980") - ("blue-refine-bg" . "#242679") ("blue-refine-fg" . "#8ec6ff") - ("magenta-refine-bg" . "#71206a") ("magenta-refine-fg" . "#ffcaf0") - ("cyan-refine-bg" . "#004065") ("cyan-refine-fg" . "#8ae4f2") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#ffa7ba") ("green-active" . "#70d73f") - ("yellow-active" . "#dbbe5f") ("blue-active" . "#34cfff") - ("magenta-active" . "#d5b1ff") ("cyan-active" . "#00d8b4") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#8f1f4b") ("green-fringe-bg" . "#006700") - ("yellow-fringe-bg" . "#6f4f00") ("blue-fringe-bg" . "#3f33af") - ("magenta-fringe-bg" . "#6f2f89") ("cyan-fringe-bg" . "#004f8f") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#151823") - ("bg-hl-line-intense" . "#2f2f2f") - ("bg-hl-alt" . "#181732") - ("bg-hl-alt-intense" . "#282e46") - ("bg-paren-match" . "#5f362f") - ("bg-paren-match-intense" . "#7416b5") - ("bg-region" . "#3c3c3c") - - ("bg-tab-bar" . "#2c2c2c") - ("bg-tab-active" . "#0e0e0e") - ("bg-tab-inactive" . "#3d3d3d") - ("fg-tab-active" . "#5ac3cf") - - ("fg-escape-char-construct" . "#e7a59a") - ("fg-escape-char-backslash" . "#abab00") - - ("fg-lang-error" . "#ef8690") - ("fg-lang-warning" . "#b0aa00") - ("fg-lang-note" . "#9d9def") - - ("fg-window-divider-inner" . "#646464") - ("fg-window-divider-outer" . "#969696") - - ("fg-unfocused" . "#93959b") - - ("bg-header" . "#212121") ("fg-header" . "#dddddd") - - ("bg-whitespace" . "#170016") ("fg-whitespace" . "#a4959f") - - ("bg-diff-heading" . "#304466") ("fg-diff-heading" . "#dadffe") - ("bg-diff-added" . "#0a280a") ("fg-diff-added" . "#94ba94") - ("bg-diff-changed" . "#2a2000") ("fg-diff-changed" . "#b0ba9f") - ("bg-diff-removed" . "#40160f") ("fg-diff-removed" . "#c6adaa") - - ("bg-diff-refine-added" . "#005a36") ("fg-diff-refine-added" . "#e0f6e0") - ("bg-diff-refine-changed" . "#585800") ("fg-diff-refine-changed" . "#ffffcc") - ("bg-diff-refine-removed" . "#852828") ("fg-diff-refine-removed" . "#ffd9eb") - - ("bg-diff-focus-added" . "#203d20") ("fg-diff-focus-added" . "#b4ddb4") - ("bg-diff-focus-changed" . "#4a3a10") ("fg-diff-focus-changed" . "#d0daaf") - ("bg-diff-focus-removed" . "#5e2526") ("fg-diff-focus-removed" . "#eebdba") - - ("bg-diff-neutral-0" . "#575757") ("fg-diff-neutral-0" . "#fcfcfc") - ("bg-diff-neutral-1" . "#454545") ("fg-diff-neutral-1" . "#dddddd") - ("bg-diff-neutral-2" . "#313131") ("fg-diff-neutral-2" . "#bfbfbf") - - ("bg-mark-sel" . "#002f2f") ("fg-mark-sel" . "#60cfa2") - ("bg-mark-del" . "#5a0000") ("fg-mark-del" . "#ff99aa") - ("bg-mark-alt" . "#3f2210") ("fg-mark-alt" . "#f0aa20")) - "The entire palette of `modus-vivendi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-vivendi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-vivendi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-vivendi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-vivendi-theme-default-colors-alist - modus-vivendi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-vivendi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-vivendi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-vivendi-theme-with-color-variables - (custom-theme-set-faces - 'modus-vivendi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-vivendi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-vivendi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-vivendi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-vivendi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-vivendi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-vivendi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-vivendi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-vivendi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-vivendi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-vivendi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-vivendi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-vivendi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-vivendi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-vivendi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-vivendi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-vivendi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-vivendi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-vivendi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-vivendi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-vivendi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-vivendi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-alt]) - `(xterm-color-names-bright [,bg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,fg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-vivendi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-vivendi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-vivendi + "Accessible and customizable light theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-vivendi) (provide-theme 'modus-vivendi) -(provide 'modus-vivendi-theme) - ;;; modus-vivendi-theme.el ends here -- 2.30.1 [-- Attachment #3: 20210304_162534--emacs--post-on-emacs-devel-about-update-to-the-modus-themes.txt --] [-- Type: text/plain, Size: 4981 bytes --] title: Post on emacs-devel about update to the Modus themes date: 2021-03-04 category: Emacs orig_name: ~/Documents/notes/20210304_162534--emacs--post-on-emacs-devel-about-update-to-the-modus-themes.txt orig_id: 20210304_162534 ------------------------ The following is meant to be sent to emacs-devel on the occasion of the upgrade of the Modus themes to their version 1.2.0. * * * Subject: Major changes for the Modus themes (modus-operandi, modus-vivendi) Hello everyone, A few months ago the themes 'modus-operandi' and 'modus-vivendi' became part of Emacs. These "Modus themes" are designed to meet the highest accessibility standard for legibility (WCAG AAA), which is quantified as a minimum ratio of 7:1 contrast in relative luminance between any given combination of background and foreground colours. In short: every piece of text should be readable. The version that was in Emacs until recently was '0.13.0'. In trunk we now provide version '1.2.0', which is three releases ahead. As this is a major transition, it is pertinent to warn existing users about some breaking yet necessary changes, as well as inform them about the current state of affairs. 1 Customisation options ----------------------- In the past the themes were maintained as standalone files. This meant that customisations were specific to each theme. For example: (setq modus-operandi-bold-constructs t) (setq modus-operandi-slanted-constructs t) (setq modus-vivendi-bold-constructs t) (setq modus-vivendi-slanted-constructs t) This was inconvenient for users of both items, while maintaining separate files was becoming increasingly difficult for development. The new version derives the two themes from a common source and thus unifies their customisation options. The above variables are replaced by those: (setq modus-themes-bold-constructs t) (setq modus-themes-slanted-constructs t) Same principle for all customisations, of which there are plenty (not everything is a boolean). The values that could be passed to some older variables have been revised. For example, changing the fringe's background used to be a boolean but now is a choice. Please consult the themes' manual: (info "(modus-themes) Top") Or go directly to: (info "(modus-themes) Customization Options") 2 Palette overrides ------------------- While all customisation options are unified, there remains one exception: the alists 'modus-themes-operandi-color-overrides' and 'modus-themes-vivendi-color-overrides'. Those are specific to the item they reference. Both variables are intended for "do-it-yourself" cases where the user wishes to replace some colour values with their own (e.g. to change the main background colour of 'modus-operandi' from white to a light ochre). Again this topic is expanded upon in the manual and there even are palette subsets furnished therein that retain the accessibility target, if one does indeed wish to refashion the themes. 3 Shared functions and commands ------------------------------- [ All of the following are discussed at length in the manual. ] Users of both themes can now bind the command 'modus-themes-toggle': it switches between the two items if either of them is active, else it prompts with completion for one among them. To retrieve a single value from the palette of the active Modus theme one can use 'modus-themes-color'. There is also a variant called 'modus-themes-color-alts'. Consult their doc strings. The macro 'modus-themes-with-colors' can be employed to access all of the active theme's palette. The function 'modus-themes-contrast' measures the relative luminance between two colour values expressed in hexadecimal RGB notation. It implements the 'modus-themes-wcag-formula'.[1] Comparing two colours returns a number which is between 1 and 21. Our target is 7 or higher. This is useful on its own, like this: (modus-themes-contrast "#ffffff" "#000000") But also for formulas in Org tables (using 'org-mode' or 'orgtbl-mode'): #+begin_src emacs-lisp (defalias 'L 'modus-themes-contrast) #+end_src | | #ffffff | #f0f0f0 | |---------+---------+---------| | #8f0075 | 8.66 | 7.60 | | #5317ac | 10.07 | 8.83 | | #0031a9 | 10.44 | 9.16 | #+TBLFM: $2='(L $1 @1$2);%0.2f :: $3='(L $1 @1$3);%0.2f [1]: <https://www.w3.org/TR/WCAG20-TECHS/G18.html>. 4 Further reading ----------------- The CHANGELOG of the themes is not distributed with Emacs (development is still done externally). Please consult the recent entries on my website (no javascript required): + 1.0.0 :: <https://protesilaos.com/codelog/2020-12-05-modus-themes-1-0-0/>. + 1.1.0 :: <https://protesilaos.com/codelog/2021-01-24-modus-themes-1-1-0/>. + 1.2.0 :: <https://protesilaos.com/codelog/2021-03-04-modus-themes-1-2-0/>. These amount to around 7500 words, though the aforementioned should be enough to get you started. Thank you for your attention! ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 14:54 ` bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou @ 2021-03-04 16:53 ` Mauro Aranda 2021-03-04 18:41 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios 1 sibling, 0 replies; 83+ messages in thread From: Mauro Aranda @ 2021-03-04 16:53 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Hi Protesilaos, Protesilaos Stavrou <info@protesilaos.com> writes: > Hello again! > > As noted earlier, please find attached the patch that upgrades the > themes to their newest version 1.2.0. I tested it with Basil's latest > patch for 'require-theme', though it still works with the variant of > that function currently in trunk. [...] > ;;;###autoload > (when (and (boundp 'custom-theme-load-path) load-file-name) > (add-to-list 'custom-theme-load-path > (file-name-as-directory (file-name-directory load-file-name)))) A nit: I think this code should avoid adding the value of custom-theme-directory or the built-in theme directory name to custom-theme-load-path , if `custom-theme-directory' (for the former) or t (for the latter) are already present in custom-theme-load-path. In particular, a theme distributed with Emacs should at least check for t, to avoid a repeated entry. I've noticed that the leuven theme has a similar code as well: I think that is a (really minor) bug. ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-04 14:54 ` bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou 2021-03-04 16:53 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda @ 2021-03-04 18:41 ` Basil L. Contovounesios 2021-03-04 20:57 ` Protesilaos Stavrou 1 sibling, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-04 18:41 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068, Mauro Aranda Protesilaos Stavrou <info@protesilaos.com> writes: > As noted earlier, please find attached the patch that upgrades the > themes to their newest version 1.2.0. I tested it with Basil's latest > patch for 'require-theme', though it still works with the variant of > that function currently in trunk. Thanks, they're looking good! Just a couple of nits from me below. > For your convenience, I also attach a note that I intend to post on > emacs-devel: it warns about the minor backward-incompatible refactoring > of some symbols and offers an overview of what is now available. > +Before you load a theme, it is necessary to require the main library: > > #+begin_src emacs-lisp > +(require 'modus-themes) > #+end_src Is this always true? Because M-x load-theme RET modus-{operandi,vivendi} RET works fine here with your patch, and users can set variables even before they're defined - defvar and defcustom only change the symbol's value if it's unbound. Maybe this node should clarify which users/setups/use-cases this applies to? Similarly with other suggestions below like this one: (require 'modus-themes) (require 'modus-operandi-theme) (require 'modus-vivendi-theme) which surely won't work with the built-in themes. > ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, > + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders > + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, ^^ Hopefully Org's Texinfo export can one day be taught that this is not the end of a sentence ;). > +(require 'cl-lib) In theory this should be wrapped in eval-when-compile, but it doesn't make a difference for now since built-in themes are not byte-compiled. > +(deftheme modus-vivendi > + "Accessible and customizable light theme (WCAG AAA standard). ^^^^^ dark Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-04 18:41 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios @ 2021-03-04 20:57 ` Protesilaos Stavrou 2021-03-04 22:06 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda ` (3 more replies) 0 siblings, 4 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-04 20:57 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda [-- Attachment #1: Type: text/plain, Size: 3555 bytes --] On 2021-03-04, 18:41 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> As noted earlier, please find attached the patch that upgrades the >> themes to their newest version 1.2.0. I tested it with Basil's latest >> patch for 'require-theme', though it still works with the variant of >> that function currently in trunk. > > Thanks, they're looking good! Just a couple of nits from me below. Thank you Basil and Mauro! The attached patch addresses your feedback. >> +Before you load a theme, it is necessary to require the main library: >> >> #+begin_src emacs-lisp >> +(require 'modus-themes) >> #+end_src > > Is this always true? Because M-x load-theme RET > modus-{operandi,vivendi} RET works fine here with your patch, and users > can set variables even before they're defined - defvar and defcustom > only change the symbol's value if it's unbound. > > Maybe this node should clarify which users/setups/use-cases this applies > to? I updated the language to disambiguate the use-cases. If you think it needs further work, I will rewrite it. > Similarly with other suggestions below like this one: > > (require 'modus-themes) > (require 'modus-operandi-theme) > (require 'modus-vivendi-theme) > > which surely won't work with the built-in themes. Appended a comment to the first form noting that it is not needed for the built-in themes. Replaced the latter two forms with: (load-theme 'modus-operandi t t) (load-theme 'modus-vivendi t t) >> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, > ^^ > Hopefully Org's Texinfo export can one day be taught that this is not > the end of a sentence ;). Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps by omitting the space? >> +(require 'cl-lib) > > In theory this should be wrapped in eval-when-compile, but it doesn't > make a difference for now since built-in themes are not byte-compiled. Wrapped it in eval-when-compile. >> +(deftheme modus-vivendi >> + "Accessible and customizable light theme (WCAG AAA standard). > ^^^^^ > dark Fixed! [ Answer only if it is easy: how do you draw those ^^^ below the text? ] On 2021-03-04, 13:53 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: >> ;;;###autoload >> (when (and (boundp 'custom-theme-load-path) load-file-name) >> (add-to-list 'custom-theme-load-path >> (file-name-as-directory (file-name-directory load-file-name)))) > > A nit: I think this code should avoid adding the value of > custom-theme-directory or the built-in theme directory name to > custom-theme-load-path , if `custom-theme-directory' (for the former) or > t (for the latter) are already present in custom-theme-load-path. In > particular, a theme distributed with Emacs should at least check for t, > to avoid a repeated entry. > > I've noticed that the leuven theme has a similar code as well: I think > that is a (really minor) bug. I have removed that form altogether. It makes sense for packages but here they are safe themes. Is that okay, or have I misunderstood something? Thanks again! -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: 0001-Update-Modus-themes-to-their-version-1.2.0.patch --] [-- Type: text/x-patch, Size: 1084472 bytes --] From 6ddfe88dc9daa5717f2a934578a20953e9c46e30 Mon Sep 17 00:00:00 2001 Message-Id: <6ddfe88dc9daa5717f2a934578a20953e9c46e30.1614890153.git.info@protesilaos.com> From: Protesilaos Stavrou <info@protesilaos.com> Date: Thu, 4 Mar 2021 16:20:15 +0200 Subject: [PATCH] Update Modus themes to their version 1.2.0 * doc/misc/modus-themes.org: Add new version of the manual, with changes to markup and references to the latest state of the project. * etc/themes/modus-vivendi-theme.el: * etc/themes/modus-operandi-theme.el: Provide updated version of each theme, which expands the contents of 'modus-themes.el'. * etc/themes/modus-themes.el: Add new supportive file. This is where theme data, functions, and face definitions are defined. --- doc/misc/modus-themes.org | 3265 +++++++++----- etc/themes/modus-operandi-theme.el | 4672 +------------------- etc/themes/modus-themes.el | 6436 ++++++++++++++++++++++++++++ etc/themes/modus-vivendi-theme.el | 4672 +------------------- 4 files changed, 8810 insertions(+), 10235 deletions(-) create mode 100644 etc/themes/modus-themes.el diff --git a/doc/misc/modus-themes.org b/doc/misc/modus-themes.org index 4a6150cf9d..9e3c06cb13 100644 --- a/doc/misc/modus-themes.org +++ b/doc/misc/modus-themes.org @@ -1,30 +1,51 @@ -#+TITLE: Modus themes for GNU Emacs -#+AUTHOR: Protesilaos Stavrou -#+EMAIL: info@protesilaos.com -#+TEXINFO_DIR_CATEGORY: Emacs misc features -#+TEXINFO_DIR_TITLE: Modus Themes: (modus-themes) -#+TEXINFO_DIR_DESC: Highly accessible themes (WCAG AAA) -#+OPTIONS: ':t toc:nil author:t email:t -#+MACRO: version-tag 0.13.0 -#+MACRO: release-date 2020-10-08 +#+title: Modus themes for GNU Emacs +#+author: Protesilaos Stavrou +#+email: info@protesilaos.com +#+language: en +#+options: ':t toc:nil author:t email:t + +#+macro: stable-version 1.2.0 +#+macro: release-date 2021-03-04 +#+macro: development-version 1.3.0-dev +#+macro: export-date (eval (format-time-string "%F %R %z" (current-time))) +#+macro: file @@texinfo:@file{@@$1@@texinfo:}@@ +# The "kbd" macro turns KBD into @kbd{KBD}. Additionally, it +# encloses case-sensitive special keys (SPC, RET...) within @key{...}. +# I got this from the Org source code. +#+macro: kbd (eval (let ((case-fold-search nil) (regexp (regexp-opt '("SPC" "RET" "LFD" "TAB" "BS" "ESC" "DELETE" "SHIFT" "Ctrl" "Meta" "Alt" "Cmd" "Super" "UP" "LEFT" "RIGHT" "DOWN") 'words))) (format "@@texinfo:@kbd{@@%s@@texinfo:}@@" (replace-regexp-in-string regexp "@@texinfo:@key{@@\\&@@texinfo:}@@" $1 t)))) + +#+texinfo_filename: modus-themes.info +#+texinfo_dir_category: Emacs misc features +#+texinfo_dir_title: Modus Themes: (modus-themes) +#+texinfo_dir_desc: Highly accessible themes (WCAG AAA) +#+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer webpage} +#+texinfo_header: @set MAINTAINER Protesilaos Stavrou +#+texinfo_header: @set MAINTAINEREMAIL @email{info@protesilaos.com} +#+texinfo_header: @set MAINTAINERCONTACT @uref{mailto:info@protesilaos.com,contact the maintainer} #+texinfo: @insertcopying This manual, written by Protesilaos Stavrou, describes the customization -options for the =modus-operandi= and =modus-vivendi= themes, and provides +options for the ~modus-operandi~ and ~modus-vivendi~ themes, and provides every other piece of information pertinent to them. -The documentation furnished herein corresponds to version {{{version-tag}}}, -released on {{{release-date}}}. Any reference to a newer feature which does -not yet form part of the latest tagged commit, is explicitly marked as -such. +The documentation furnished herein corresponds to stable version +{{{stable-version}}}, released on {{{release-date}}}. Any reference to a newer +feature which does not yet form part of the latest tagged commit, is +explicitly marked as such. -* Copying -:PROPERTIES: -:copying: t -:END: +# Current development target is {{{development-version}}}. This manual was +# built on {{{export-date}}}. -Copyright (C) 2020--2021 Free Software Foundation, Inc. +#+toc: headlines 8 insert TOC here, with eight headline levels + +* COPYING +:properties: +:copying: t +:custom_id: h:b14c3fcb-13dd-4144-9d92-2c58b3ed16d3 +:end: + +Copyright (C) 2020-2021 Free Software Foundation, Inc. #+begin_quote Permission is granted to copy, distribute and/or modify this @@ -34,12 +55,10 @@ * Copying and with no Back-Cover Texts. #+end_quote -#+TOC: headlines 8 insert TOC here, with eight headline levels - * Overview -:PROPERTIES: -:CUSTOM_ID: h:f0f3dbcb-602d-40cf-b918-8f929c441baf -:END: +:properties: +:custom_id: h:f0f3dbcb-602d-40cf-b918-8f929c441baf +:end: The Modus themes are designed for accessible readability. They conform with the highest standard for color contrast between any given @@ -47,9 +66,9 @@ * Overview the WCAG AAA standard, which specifies a minimum rate of distance in relative luminance of 7:1. -Modus Operandi (=modus-operandi=) is a light theme, while Modus Vivendi -(=modus-vivendi=) is dark. Each theme's color palette is designed to -meet the needs of the numerous interfaces that are possible in the Emacs +Modus Operandi (~modus-operandi~) is a light theme, while Modus Vivendi +(~modus-vivendi~) is dark. Each theme's color palette is designed to meet +the needs of the numerous interfaces that are possible in the Emacs computing environment. The overarching objective of this project is to always offer accessible @@ -59,15 +78,16 @@ * Overview To ensure that users have a consistently accessible experience, the themes strive to achieve as close to full face coverage as possible -(see [[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). +([[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). Starting with version 0.12.0 and onwards, the themes are built into GNU -Emacs (current version is {{{version-tag}}}). +Emacs. ** How do the themes look like -:PROPERTIES: -:CUSTOM_ID: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 -:END: +:properties: +:custom_id: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 +:end: +#+cindex: Screenshots Check the web page with [[https://protesilaos.com/modus-themes-pictures/][the screen shots]]. There are lots of scenarios on display that draw attention to details and important aspects in the @@ -77,596 +97,562 @@ ** How do the themes look like [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization options]]. ** Learn about the latest changes -:PROPERTIES: -:CUSTOM_ID: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 -:END: +:properties: +:custom_id: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 +:end: +#+cindex: Changelog Please refer to the [[https://protesilaos.com/modus-themes-changelog][web page with the change log]]. It is comprehensive and covers everything that goes into every tagged release of the themes. * Installation -:PROPERTIES: -:CUSTOM_ID: h:1af85373-7f81-4c35-af25-afcef490c111 -:END: +:properties: +:custom_id: h:1af85373-7f81-4c35-af25-afcef490c111 +:end: The Modus themes are distributed with Emacs starting with version 28.1. On older versions of Emacs, they can be installed using Emacs' package -manager or manually from their code repository. +manager or manually from their code repository. There also exist +packages for distributions of GNU/Linux. + +** Install manually from source +:properties: +:custom_id: h:da3414b7-1426-46b8-8e76-47b845b76fd0 +:end: + +In the following example, we are assuming that your Emacs files are +stored in =~/.emacs.d= and that you want to place the Modus themes in +=~/.emacs.d/modus-themes=. + +1. Get the source and store it in the desired path by running the + following in the command line shell: + +: $ git clone https://gitlab.com/protesilaos/modus-themes.git ~/.emacs.d/modus-themes + +2. Add that path to your known Elisp libraries' list, by placing this + snippet of Emacs Lisp in your init file (e.g. {{{file(init.el)}}}): + +#+begin_src emacs-lisp +(add-to-list 'load-path "~/.emacs.d/modus-themes") +#+end_src -Modus Operandi (light theme) and Modus Vivendi (dark) are normally -distributed as standalone packages in Emacs-specific archives. There -also exist packages for GNU/Linux distributions. +The themes are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install from the archives -:PROPERTIES: -:CUSTOM_ID: h:c4b10085-149f-43e2-bd4d-347f33aee054 -:END: +:properties: +:custom_id: h:c4b10085-149f-43e2-bd4d-347f33aee054 +:end: -=modus-operandi-theme= and =modus-vivendi-theme= are available from GNU the -ELPA archive, which is configured by default. +The =modus-themes= package is available from the GNU ELPA archive, which +is configured by default. Prior to querying any package archive, make sure to have updated the -index, with =M-x package-refresh-contents=. Then all you need to do is -type =M-x package-install= and specify the theme of your choice. +index, with {{{kbd(M-x package-refresh-contents)}}}. Then all you need to do +is type {{{kbd(M-x package-install)}}} and specify the ~modus-themes~. + +Note that older versions of the themes used to be distributed as +standalone packages. This practice has been discontinued starting with +version 1.0.0 of this project. + +Once installed, the themes are ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install on GNU/Linux -:PROPERTIES: -:CUSTOM_ID: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 -:END: +:properties: +:custom_id: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 +:end: -The themes are also available from the archives of some GNU/Linux -distributions. These should correspond to a tagged release rather than +The themes are also available from the archives of some distributions of +GNU/Linux. These should correspond to a tagged release rather than building directly from the latest Git commit. It all depends on the distro's packaging policies. *** Debian 11 Bullseye -:PROPERTIES: -:CUSTOM_ID: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 -:END: - -The two themes are distributed as a single package for Debian and its -derivatives. Currently in the unstable and testing suites and should be -available in time for Debian 11 Bullseye (next stable). +:properties: +:custom_id: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 +:end: -Get them with: +The themes are part of Debian 11 Bullseye. Get them with: #+begin_src sh sudo apt install elpa-modus-themes #+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. + *** GNU Guix -:PROPERTIES: -:CUSTOM_ID: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e -:END: +:properties: +:custom_id: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e +:end: -Users of either the Guix System (the distro) or just Guix (the package -manager) can get each theme as a standalone package. +Users of Guix can get the themes with this command: #+begin_src sh -guix package -i emacs-modus-operandi-theme +guix package -i emacs-modus-themes #+end_src -And/or: - -#+begin_src sh -guix package -i emacs-modus-vivendi-theme -#+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. * Enable and load -:PROPERTIES: -:CUSTOM_ID: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 -:END: - -This section documents how to load the theme of your choice and how to -further control its initialization. It also includes some sample code -snippets that could help you in the task, especially if you intend to -use both Modus Operandi and Modus Vivendi. +:properties: +:custom_id: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 +:end: +#+findex: modus-themes-load-themes +#+findex: modus-themes-toggle +#+findex: modus-themes-load-operandi +#+findex: modus-themes-load-vivendi +#+cindex: Essential configuration +#+vindex: modus-themes-after-load-theme-hook + +Users of the built-in themes can load and automatically enable the theme +of their preference by adding either form to their init file: -** Load automatically -:PROPERTIES: -:CUSTOM_ID: h:1777c247-1b56-46b7-a4ce-54e720b33d06 -:END: +#+begin_src emacs-lisp +(load-theme 'modus-operandi) ; Light theme +(load-theme 'modus-vivendi) ; Dark theme +#+end_src -A simple way to load the theme from your Emacs initialization file is to -include either of the following expressions: +This is all one needs. -#+BEGIN_SRC emacs-lisp -(load-theme 'modus-operandi t) ; Light theme -(load-theme 'modus-vivendi t) ; Dark theme -#+END_SRC +Users of packaged variants of the themes must add a few more lines to +ensure that everything works as intended. First, one has to require the +main library before loading either theme: -Make sure to remove any other theme that is being loaded, otherwise you -might run into unexpected issues. +#+begin_src emacs-lisp +(require 'modus-themes) +#+end_src -Note that you can always =M-x disable-theme= and specify an item. The -command does exactly what its name suggests. To deactivate all enabled -themes at once, in case you have multiple of them enabled, you may -evaluate the expression: +Then it is recommended to load the individual theme files with the +helper function ~modus-themes-load-themes~: #+begin_src emacs-lisp -(mapc #'disable-theme custom-enabled-themes) +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) #+end_src -** Load at a given time or at sunset/sunrise -:PROPERTIES: -:CUSTOM_ID: h:4e936e31-e9eb-4b50-8fdd-45d827a03cca -:END: - -It is possible to schedule a time during the day at or after which a -given theme will be loaded.[fn:: Contributed on Reddit by user =b3n=, -https://www.reddit.com/r/emacs/comments/gdtqov/weekly_tipstricketc_thread/fq9186h/.] +Once the libraries that define the themes are enabled, one can activate +a theme with either of the following expressions: #+begin_src emacs-lisp -;; Light for the day -(load-theme 'modus-operandi t t) -(run-at-time "05:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark for the night -(load-theme 'modus-vivendi t t) -(run-at-time "21:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +(modus-themes-load-operandi) ; Light theme +;; OR +(modus-themes-load-vivendi) ; Dark theme #+end_src -A modified version of the above technique is to use the sunrise and -sunset as references, instead of specifying a fixed hour value.[fn:: -Contributed directly by André Alexandre Gomes https://gitlab.com/aadcg.] -If you set =calendar-latitude= and =calendar-longitude= (defined in the -built-in =solar.el= library---read it with =M-x find-library=), you can -automatically switch between both themes at the appropriate time-of-day. -Note that /those calendar variables need to be set before loading the -themes/. +Changes to the available customization options must always be evaluated +before loading a theme ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). This is how a basic +setup could look like: #+begin_src emacs-lisp -;; Define coordinates -(setq calendar-latitude 35.17 - calendar-longitude 33.36) +(require 'modus-themes) -;; Light at sunrise -(load-theme 'modus-operandi t t) -(run-at-time (nth 1 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) +;; Your customisations here. For example: +(setq modus-themes-bold-constructs t + modus-themes-mode-line '3d) -;; Dark at sunset -(load-theme 'modus-vivendi t t) -(run-at-time (nth 4 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) -#+end_src +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) -For the sake of completeness, the =load-theme= call in these snippets is -slightly different than the one shown in [[#h:1777c247-1b56-46b7-a4ce-54e720b33d06][Load automatically]], because it -does not enable the theme directly: the subsequent =enable-theme= does -that when needed. +;; Enable the theme of your preference: +(modus-themes-load-operandi) -** Toggle between the themes on demand -:PROPERTIES: -:CUSTOM_ID: h:2a0895a6-3281-4e55-8aa1-8a737555821e -:END: +;; Optionally add a key binding for the toggle between the themes: +(define-key global-map (kbd "<f5>") #'modus-themes-toggle) +#+end_src -With both themes available, it is possible to design a simple command to -switch between them on demand. +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -#+begin_src emacs-lisp -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) -#+end_src +With those granted, bear in mind a couple of technical points on +~modus-themes-load-operandi~ and ~modus-themes-load-vivendi~, as well as +~modus-themes-toggle~ which relies on them: -You could use =(mapc #'disable-theme custom-enabled-themes)= instead of -disabling a single target, but you get the idea. +1. Those functions call ~load-theme~. Some users prefer to opt for + ~enable-theme~ instead ([[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]). -** Configure options prior to loading -:PROPERTIES: -:CUSTOM_ID: h:a897b302-8e10-4a26-beab-3caaee1e1193 -:END: +2. The functions will run the ~modus-themes-after-load-theme-hook~ as + their final step. This can be employed for bespoke configurations + ([[#h:f4651d55-8c07-46aa-b52b-bed1e53463bb][Advanced customization (do-it-yourself)]]). Experienced users may not + wish to rely on such a hook and the functions that run it: they may + prefer a custom solution ([[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]). -If you plan to use both themes and wish to apply styles consistently -(see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]), you could define wrapper functions around -the standard =load-theme= command. These extend the simple function we -presented in [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]]. +** Sample configuration for use-package +:properties: +:custom_id: h:e979734c-a9e1-4373-9365-0f2cd36107b8 +:end: +#+cindex: use-package configuration -Here is a comprehensive setup (the values assigned to the variables are -just for the sake of this demonstration):[fn:: The =defmacro= and =dolist= -method were contributed on Reddit by user =b3n= -https://www.reddit.com/r/emacs/comments/gqsz8u/weekly_tipstricketc_thread/fsfakhg/.] +It is common for Emacs users to rely on ~use-package~ for declaring +package configurations in their setup. We use this as an example: #+begin_src emacs-lisp -(defmacro modus-themes-format-sexp (sexp &rest objects) - `(eval (read (format ,(format "%S" sexp) ,@objects)))) - -(dolist (theme '("operandi" "vivendi")) - (modus-themes-format-sexp - (defun modus-%1$s-theme-load () - (setq modus-%1$s-theme-slanted-constructs t - modus-%1$s-theme-bold-constructs t - modus-%1$s-theme-fringes 'subtle ; {nil,'subtle,'intense} - modus-%1$s-theme-mode-line '3d ; {nil,'3d,'moody} - modus-%1$s-theme-syntax 'alt-syntax ; {nil,faint,'yellow-comments,'green-strings,'yellow-comments-green-strings,'alt-syntax,'alt-syntax-yellow-comments} - modus-%1$s-theme-intense-hl-line nil - modus-%1$s-theme-intense-paren-match nil - modus-%1$s-theme-links 'faint ; {nil,'faint,'neutral-underline,'faint-neutral-underline,'no-underline} - modus-%1$s-theme-no-mixed-fonts nil - modus-%1$s-theme-prompts nil ; {nil,'subtle,'intense} - modus-%1$s-theme-completions 'moderate ; {nil,'moderate,'opinionated} - modus-%1$s-theme-diffs nil ; {nil,'desaturated,'fg-only} - modus-%1$s-theme-org-blocks 'grayscale ; {nil,'grayscale,'rainbow} - modus-%1$s-theme-headings ; Read further below in the manual for this one - '((1 . section) - (2 . line) - (t . rainbow-line-no-bold)) - modus-%1$s-theme-variable-pitch-headings nil - modus-%1$s-theme-scale-headings t - modus-%1$s-theme-scale-1 1.1 - modus-%1$s-theme-scale-2 1.15 - modus-%1$s-theme-scale-3 1.21 - modus-%1$s-theme-scale-4 1.27 - modus-%1$s-theme-scale-5 1.33) - (load-theme 'modus-%1$s t)) - theme)) - -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (modus-vivendi-theme-load)) - (disable-theme 'modus-vivendi) - (modus-operandi-theme-load))) +(use-package modus-themes + :ensure ; omit this to use the built-in themes + :init + ;; Add all your customizations prior to loading the themes + (setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil) + + ;; Load the theme files before enabling a theme (else you get an error). + (modus-themes-load-themes) + :config + ;; Load the theme of your choice: + (modus-themes-load-operandi) ;; OR (modus-themes-load-vivendi) + :bind ("<f5>" . modus-themes-toggle)) #+end_src -* Customization Options -:PROPERTIES: -:CUSTOM_ID: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f -:END: - -The Modus themes are highly configurable, though they should work well -without any further tweaks. - -By default, all customization options are set to =nil=. - -All customization options need to be evaluated before loading their -theme (see [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). +[[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]. + +Note: make sure not to customize the variable ~custom-theme-load-path~ +or ~custom-theme-directory~ after the themes' package declaration. That +will lead to failures in loading the files. If either or both of those +variables need to be changed, their values should be defined before the +package declaration of the themes. + +** Differences between loading and enabling +:properties: +:custom_id: h:e68560b3-7fb0-42bc-a151-e015948f8a35 +:end: +#+cindex: load-theme VS enable-theme + +The reason we recommend ~load-theme~ instead of the other option of +~enable-theme~ is that the former does a kind of "reset" on the face +specs. It quite literally loads (or re-loads) the theme. Whereas the +latter simply puts an already loaded theme at the top of the list of +enabled items, re-using whatever state was last loaded. + +As such, ~load-theme~ reads all customizations that may happen during +any given Emacs session: even after the initial setup of a theme. +Examples are calls to ~custom-set-faces~, as well as new values assigned +to the options the Modus themes provide ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). + +Our tests show that ~enable-theme~ does not read such variables anew, so +it might appear to the unsuspecting user that the themes are somehow +broken whenever they try to assign a new value to a customization option +or some face. + +This "reset" that ~load-theme~ conducts does, however, come at the cost +of being somewhat slower than ~enable-theme~. Users who have a stable +setup and who seldom update their variables during a given Emacs +session, are better off using something like this: -** Option for more bold constructs -:PROPERTIES: -:ALT_TITLE: Bold constructs -:DESCRIPTION: Toggle bold constructs in code -:CUSTOM_ID: h:b25714f6-0fbe-41f6-89b5-6912d304091e -:END: - -Symbol names: - -+ =modus-operandi-theme-bold-constructs= -+ =modus-vivendi-theme-bold-constructs= +#+begin_src emacs-lisp +(require 'modus-themes) +(load-theme 'modus-operandi t t) +(load-theme 'modus-vivendi t t) -Possible values: +(enable-theme 'modus-operandi) ;; OR (enable-theme 'modus-vivendi) +#+end_src -1. =nil= (default) -2. =t= +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -Display several constructs in bold weight. This concerns keywords and -other important aspects of code syntax. It also affects certain mode -line indicators and command-line prompts. +With the above granted, other sections of the manual discuss how to +configure custom faces, where ~load-theme~ is expected, though +~enable-theme~ could still apply in stable setups: -The default is to only use a bold weight when it is required. +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]. -Additionally, and while not necessary, to define the precise weight for -bold constructs, you can change the typographic intensity of the =bold= -face. The standard is a bold weight. It requires no further -intervention. Assuming though that your typeface of choice supports a -"semibold" weight, adding the following snippet to your init file should -suffice. +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. -#+begin_src emacs-lisp -(set-face-attribute 'bold nil :weight 'semibold) -#+end_src +* Customization Options +:properties: +:custom_id: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f +:end: -Note that if you are switching themes, you need to re-evaluate this -expression after the new theme is loaded. +The Modus themes are highly configurable, though they should work well +without any further tweaks. By default, all customization options are +set to nil. -** Option for more slanted constructs -:PROPERTIES: -:ALT_TITLE: Slanted constructs -:DESCRIPTION: Toggle slanted constructs (italics) in code -:CUSTOM_ID: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 -:END: +Remember that all customization options must be evaluated before loading +a theme ([[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). -Symbol names: +** Option for more bold constructs +:properties: +:alt_title: Bold constructs +:description: Toggle bold constructs in code +:custom_id: h:b25714f6-0fbe-41f6-89b5-6912d304091e +:end: +#+vindex: modus-themes-bold-constructs -+ =modus-operandi-theme-slanted-constructs= -+ =modus-vivendi-theme-slanted-constructs= +Symbol: ~modus-themes-bold-constructs~ Possible values: 1. =nil= (default) 2. =t= -Choose to render more faces in slanted text (italics). This typically -affects documentation strings and code comments. - -The default is to not use italics unless it is absolutely necessary. +The default is to use a bold typographic weight only when it is +required. -** Option for faint code syntax highlighting (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Faint syntax -:DESCRIPTION: Toggle subtle coloration in code (deprecated for 0.14.0) -:CUSTOM_ID: h:741379fe-7203-4dad-a7f8-ab71f61b43e6 -:END: +With a non-nil value (=t=) display several syntactic constructs in bold +weight. This concerns keywords and other important aspects of code +syntax. It also affects certain mode line indicators and command-line +prompts. -Symbol names: +** Option for more slanted constructs +:properties: +:alt_title: Slanted constructs +:description: Toggle slanted constructs (italics) in code +:custom_id: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 +:end: +#+vindex: modus-themes-slanted-constructs -+ =modus-operandi-theme-faint-syntax= -+ =modus-vivendi-theme-faint-syntax= +Symbol: ~modus-themes-slanted-constructs~ Possible values: 1. =nil= (default) 2. =t= -Use less saturated colors in programming modes for highlighting code -syntax. The default is to use saturated colors. +The default is to not use slanted text (italics) unless it is absolutely +necessary. -This option essentially affects the font-lock faces, so it may also have -implications in other places that are hard-wired to rely directly on -them instead of specifying their own faces (which could inherit from -font-lock if that is the intent). The author is aware of =vc-dir= as a -case in point. +With a non-nil value (=t=) choose to render more faces in slanted text. +This typically affects documentation strings and code comments. ** Option for syntax highlighting -:PROPERTIES: -:ALT_TITLE: Syntax styles -:DESCRIPTION: Choose the overall aesthetic of code syntax -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: - -This option supersedes the "faint syntax" one ahead of version =0.14.0= -([[#h:741379fe-7203-4dad-a7f8-ab71f61b43e6][Option for faint code syntax highlighting]]). +:properties: +:alt_title: Syntax styles +:description: Choose the overall aesthetic of code syntax +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-syntax -Symbol names: - -+ =modus-operandi-theme-syntax= -+ =modus-vivendi-theme-syntax= +Symbol: ~modus-themes-syntax~ Possible values: 1. =nil= (default) -2. =faint= -3. =yellow-comments= -4. =green-strings= -5. =yellow-comments-green-strings= -6. =alt-syntax= -7. =alt-syntax-yellow-comments= +2. ~faint~ +3. ~yellow-comments~ +4. ~green-strings~ +5. ~yellow-comments-green-strings~ +6. ~alt-syntax~ +7. ~alt-syntax-yellow-comments~ +8. ~faint-yellow-comments~ The default style (nil) for code syntax highlighting is a balanced combination of colors on the cyan-blue-magenta side of the spectrum. There is little to no use of greens, yellows, or reds, except when it is necessary. -Option =faint= is like the default in terms of the choice of palette but +Option ~faint~ is like the default in terms of the choice of palette but applies desaturated color values. -Option =yellow-comments= applies a yellow tint to comments. The rest of -the syntax is the same as the default. +Option ~yellow-comments~ adds a yellow tint to comments. The rest of the +syntax is the same as the default. -Option =green-strings= replaces the blue/cyan/cold color variants in +Option ~green-strings~ replaces the blue/cyan/cold color variants in strings with greener alternatives. The rest of the syntax remains the same. -Option =yellow-comments-green-strings= combines yellow comments with green +Option ~yellow-comments-green-strings~ combines yellow comments with green strings and the rest of the default syntax highlighting style. -Option =alt-syntax= expands the color palette and applies new color -combinations. Strings are green. Doc strings are magenta tinted. -Comments are gray. +Option ~alt-syntax~ expands the active spectrum by applying color +combinations with more contrasting hues between them. Expect to find +red and green variants in addition to cyan, blue, magenta. -Option =alt-syntax-yellow-comments= combines =alt-syntax= with -=yellow-comments=. +Option ~alt-syntax-yellow-comments~ combines ~alt-syntax~ with +~yellow-comments~. -** Option for no font mixing -:PROPERTIES: -:ALT_TITLE: No mixed fonts -:DESCRIPTION: Toggle mixing of font families -:CUSTOM_ID: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b -:END: +Option ~faint-yellow-comments~ combines the ~faint~ style with +~yellow-comments~. -Symbol names: +** Option for no font mixing +:properties: +:alt_title: No mixed fonts +:description: Toggle mixing of font families +:custom_id: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b +:end: +#+vindex: modus-themes-no-mixed-fonts -+ =modus-operandi-theme-no-mixed-fonts= -+ =modus-vivendi-theme-no-mixed-fonts= +Symbol: ~modus-themes-no-mixed-fonts~ Possible values: 1. =nil= (default) 2. =t= -By default, the themes configure some spacing-sensitive faces, such as -Org tables and code blocks, to always inherit from the =fixed-pitch= face. -This is to ensure that those constructs remain monospaced when users opt -for something like the built-in =M-x variable-pitch-mode=. Otherwise the -layout would appear broken. To disable this behaviour, set the option -to =t=. +By default, the themes configure some spacing-sensitive faces like Org +tables and code blocks to always inherit from the ~fixed-pitch~ face. +This is to ensure that those constructs remain monospaced even when +users opt for a mode that remaps typeface families, such as the built-in +{{{kbd(M-x variable-pitch-mode)}}}. Otherwise the layout would appear +broken, due to how spacing is done. To disable this behaviour, set the +option to =t=. Users may prefer to use another package for handling mixed typeface configurations, rather than letting the theme do it, perhaps because a purpose-specific package has extra functionality. Two possible options -are =org-variable-pitch= and =mixed-pitch=. - -** Option for no link underline (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Link underline -:DESCRIPTION: Toggle underlined text in links (deprecated for 0.14.0) -:CUSTOM_ID: h:a1a639e9-d247-414c-a0ad-08adadcbc6c1 -:END: - -Note: deprecated ahead of version =0.14.0= ([[#h:c119d7b2-fcd4-4e44-890e-5e25733d5e52][Option for links]]). - -Symbol names: - -+ =modus-operandi-theme-no-link-underline= -+ =modus-vivendi-theme-no-link-underline= - -Possible values: - -1. =nil= (default) -2. =t= +are ~org-variable-pitch~ and ~mixed-pitch~. -Remove the underline effect from links, symbolic links, and buttons. -The default is to apply an underline. +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. ** Option for links -:PROPERTIES: -:ALT_TITLE: Link styles -:DESCRIPTION: Choose color intensity or no underline for links -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: - -This option supersedes the "no link underline" one ahead of version -=0.14.0= ([[#h:a1a639e9-d247-414c-a0ad-08adadcbc6c1][Option for no link underline]]). - -Symbol names: +:properties: +:alt_title: Link styles +:description: Choose among several styles, with or without underline +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-links -+ =modus-operandi-theme-links= -+ =modus-vivendi-theme-links= +Symbol: ~modus-themes-links~ Possible values: 1. =nil= (default) -2. =faint= -3. =neutral-underline= -4. =faint-neutral-underline= -5. =no-underline= +2. ~faint~ +3. ~neutral-underline~ +4. ~faint-neutral-underline~ +5. ~no-underline~ +6. ~underline-only~ +7. ~neutral-underline-only~ The default style (nil) for links is to apply an underline and a -saturated color to the affected text. The color of the two is the -same, which makes the link fairly prominent. +saturated color to the affected text. The color of the two is the same, +which makes the link fairly prominent. -Option =faint= follows the same approach as the default, but uses less +Option ~faint~ follows the same approach as the default, but uses less intense colors. -Option =neutral-underline= changes the underline's color to a subtle -gray, while retaining the default text color. +Option ~neutral-underline~ changes the underline's color to a subtle gray, +while retaining the default text color. -Option =faint-neutral-underline= combines a desaturated text color with a +Option ~faint-neutral-underline~ combines a desaturated text color with a subtle gray underline. -Option =no-underline= removes link underlines altogether, while keeping -their text color the same as the default. +Option ~no-underline~ removes link underlines altogether, while retaining +their original fairly vivid color. -** Option for command prompt styles -:PROPERTIES: -:ALT_TITLE: Command prompts -:DESCRIPTION: Choose among plain, subtle, or intense prompts -:CUSTOM_ID: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 -:END: +Option ~underline-only~ applies a prominent underline while making the +affected text colorless (it uses the same foreground as the theme's +default). + +Option ~neutral-underline-only~ makes the text colorless while using a +subtle gray underline below it. -Symbol names: +NOTE: The placement of the underline, i.e. its proximity to the affected +text, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. -+ =modus-operandi-theme-prompts= -+ =modus-vivendi-theme-prompts= +** Option for command prompt styles +:properties: +:alt_title: Command prompts +:description: Choose among plain, subtle, or intense prompts +:custom_id: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 +:end: +#+vindex: modus-themes-prompts + +Symbol: ~modus-themes-prompts~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= +2. ~subtle-accented~ (~subtle~ exists for backward compatibility) +3. ~intense-accented~ (~intense~ exists for backward compatibility) +4. ~subtle-gray~ +5. ~intense-gray~ -The symbols "subtle" and "intense" will apply a combination of accented -background and foreground to the minibuffer and other REPL prompts (like -=M-x shell= and =M-x eshell=). The difference between the two is that the -latter has a more pronounced/noticeable effect than the former. +The default does not use any background for minibuffer and command line +prompts. It relies exclusively on an accented foreground color. -The default does not use any background for such prompts, while relying -exclusively on an accented foreground color. +Options ~subtle-accented~ and ~intense-accented~ will change both the +background and the foreground values to use accented color combinations +that follow the hue of the default styles' foreground (e.g. the default +minibuffer prompt is cyan text, so these combinations will involved a +cyan background and an appropriate cyan foreground). The difference +between the two is that the latter has a more pronounced/noticeable +effect than the former. -** Option for mode line presentation -:PROPERTIES: -:ALT_TITLE: Mode line -:DESCRIPTION: Choose among plain, three-dimension, or moody-compliant styles -:CUSTOM_ID: h:27943af6-d950-42d0-bc23-106e43f50a24 -:END: +Options ~subtle-gray~, ~intense-gray~ are like their accented counterparts, +except they use grayscale values. -Symbol names: +** Option for mode line presentation +:properties: +:alt_title: Mode line +:description: Choose among several styles, with or without borders +:custom_id: h:27943af6-d950-42d0-bc23-106e43f50a24 +:end: +#+vindex: modus-themes-mode-line -+ =modus-operandi-theme-mode-line= -+ =modus-vivendi-theme-mode-line= +Symbol: ~modus-themes-mode-line~ Possible values: 1. =nil= (default) -2. =3d= -3. =moody= - -The default value (=nil=) produces a two-dimensional effect both for the -active and inactive modelines. The differences between the two are -limited to distinct shades of grayscale values, with the active being -more intense than the inactive. - -A =3d= symbol will make the active modeline look like a three-dimensional +2. ~3d~ +3. ~moody~ +4. ~borderless~ +5. ~borderless-3d~ +6. ~borderless-moody~ + +The default produces a two-dimensional effect both for the active and +inactive modelines. The differences between the two are limited to +distinct shades of grayscale values, with the active being more intense +than the inactive. + +Option ~3d~ will make the active modeline look like a three-dimensional rectangle. Inactive modelines remain 2D, though they are slightly toned -down relative to the default. This aesthetic is the same as what you -get when you run Emacs without any customizations (=emacs -Q= on the -command line). +down relative to the default. This aesthetic is virtually the same as +what you get when you run Emacs without any customizations (=emacs -Q= on +the command line). -While =moody= removes all box effects from the modelines and applies +While ~moody~ removes all box effects from the modelines and applies underline and overline properties instead. It also tones down a bit the inactive modelines. This is meant to optimize things for use with the [[https://github.com/tarsius/moody][moody package]] (hereinafter referred to as "Moody"), though it can work fine even without it. +The ~borderless~ option uses the same colors as the default (nil value), +but removes the border effect. This is done by making the box property +use the same color as the background, effectively blending the two and +creating some padding. + +The ~borderless-3d~ and ~borderless-moody~ approximate the ~3d~ and ~moody~ +options respectively, while removing the borders. However, to ensure +that the inactive modelines remain visible, they apply a slightly more +prominent background to them than what their counterparts do (same +inactive background as with the default). + Note that Moody does not expose any faces that the themes could style directly. Instead it re-purposes existing ones to render its tabs and ribbons. As such, there may be cases where the contrast ratio falls below the 7:1 target that the themes conform with (WCAG AAA). To hedge -against this, we configure a fallback foreground for the =moody= option, +against this, we configure a fallback foreground for the ~moody~ option, which will come into effect when the background of the modeline changes to something less accessible, such as Moody ribbons (read the doc string -of =set-face-attribute=, specifically =:distant-foreground=). This fallback -comes into effect when Emacs determines that the background and -foreground of the given construct are too close to each other in terms -of color distance. In effect, users would need to experiment with the -variable =face-near-same-color-threshold= to trigger the fallback color. -We find that a value of =45000= would suffice, contrary to the default -=30000=. Do not set the value too high, because that would have the -adverse effect of always overriding the default color (which has been -carefully designed to be highly accessible). +of ~set-face-attribute~, specifically ~:distant-foreground~). This fallback +is activated when Emacs determines that the background and foreground of +the given construct are too close to each other in terms of color +distance. In effect, users would need to experiment with the variable +~face-near-same-color-threshold~ to trigger the effect. We find that a +value of =45000= will suffice, contrary to the default =30000=. Do not set +the value too high, because that would have the adverse effect of always +overriding the default color (which has been carefully designed to be +highly accessible). Furthermore, because Moody expects an underline and overline instead of -a box style, it is recommended you also include this in your setup: +a box style, it is advised you include this in your setup: #+begin_src emacs-lisp (setq x-underline-at-descent-line t) #+end_src ** Option for completion framework aesthetics -:PROPERTIES: -:ALT_TITLE: Completion UIs -:DESCRIPTION: Choose among standard, moderate, or opinionated looks -:CUSTOM_ID: h:f1c20c02-7b34-4c35-9c65-99170efb2882 -:END: - -Symbol names: +:properties: +:alt_title: Completion UIs +:description: Choose among standard, moderate, or opinionated looks +:custom_id: h:f1c20c02-7b34-4c35-9c65-99170efb2882 +:end: +#+vindex: modus-themes-completions -+ =modus-operandi-theme-completions= -+ =modus-vivendi-theme-completions= +Symbol: ~modus-themes-completions~ Possible values: 1. =nil= (default) -2. =moderate= -3. =opinionated= +2. ~moderate~ +3. ~opinionated~ This is a special option that has different effects depending on the completion UI. The interfaces can be grouped in two categories, based @@ -679,512 +665,1008 @@ ** Option for completion framework aesthetics A value of =nil= will respect the metaphors of each completion framework. -The symbol =moderate= will apply a combination of background and -foreground that is fairly subtle. For Icomplete and friends this -constitutes a departure from their default aesthetics, however the -difference is small. While Helm et al will appear slightly different -than their original looks, as they are toned down a bit. +Option ~moderate~ applies a combination of background and foreground that +is fairly subtle. For Icomplete and friends this constitutes a +departure from their default aesthetics, however the difference is +small. While Helm, Ivy et al appear slightly different than their +original looks, as they are toned down a bit. -The symbol =opinionated= will apply color combinations that refashion the -completion UI. For the Icomplete camp this means that intense -background and foreground combinations are used: in effect their looks -emulate those of Ivy and co. in their original style. Whereas the other -group of packages will revert to an even more nuanced aesthetic with -some additional changes to the choice of hues. +Option ~opinionated~ uses color combinations that refashion the completion +UI. For the Icomplete camp this means that intense background and +foreground combinations are used: in effect their looks emulate those of +Helm, Ivy and co. in their original style. Whereas the other group of +packages will revert to an even more nuanced aesthetic with some +additional changes to the choice of hues. To appreciate the scope of this customization option, you should spend -some time with every one of the =nil= (default), =moderate=, and =opinionated= +some time with every one of the =nil= (default), ~moderate~, and ~opinionated~ possibilities. ** Option for fringe visibility -:PROPERTIES: -:ALT_TITLE: Fringes -:DESCRIPTION: Choose among plain, subtle, or intense fringe visibility -:CUSTOM_ID: h:1983c3fc-74f6-44f3-b917-967c403bebae -:END: +:properties: +:alt_title: Fringes +:description: Choose among invisible, subtle, or intense fringe styles +:custom_id: h:1983c3fc-74f6-44f3-b917-967c403bebae +:end: +#+vindex: modus-themes-fringes -Symbol names: - -+ =modus-operandi-theme-fringes= -+ =modus-vivendi-theme-fringes= +Symbol: ~modus-themes-fringes~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= - -The "subtle" symbol will apply a grayscale background that is visible, -yet close enough to the main background color. While the "intense" -symbol will use a more noticeable grayscale background. +2. ~subtle~ +3. ~intense~ The default is to use the same color as that of the main background, meaning that the fringes are not obvious though they still occupy the -space given to them by =fringe-mode=. +space given to them by ~fringe-mode~. -** Option for line highlighting (hl-line-mode) -:PROPERTIES: -:ALT_TITLE: Line highlighting -:DESCRIPTION: Toggle intense style for current line highlighting -:CUSTOM_ID: h:1dba1cfe-d079-4c13-a810-f768e8789177 -:END: +Options ~subtle~ and ~intense~ apply a gray background, making the fringes +visible. The difference between the two is one of degree, as their +names imply. -Symbol names: +** Option for language checkers +:properties: +:alt_title: Language checkers +:description: Control the style of language checkers/linters +:custom_id: h:4b13743a-8ebf-4d2c-a043-cceba10b1eb4 +:end: +#+vindex: modus-themes-lang-checkers -+ =modus-operandi-theme-intense-hl-line= -+ =modus-vivendi-theme-intense-hl-line= +Symbol: ~modus-themes-lang-checkers~ + +Possible values: + +1. =nil= (default) +2. ~subtle-foreground~ +3. ~intense-foreground~ +4. ~straight-underline~ +5. ~subtle-foreground-straight-underline~ +6. ~intense-foreground-straight-underline~ +7. ~colored-background~ + +Nil (the default) applies a color-coded underline to the affected text, +while it leaves the original foreground in tact. If the display spec +where Emacs runs in has support for it (e.g. Emacs GUI), the underline's +style is that of a wave, otherwise it is a straight line. + +Options ~subtle-foreground~ and ~intense-foreground~ follow the same +color-coding pattern and wavy underline of the default, while extending +it with a corresponding foreground value for the affected text. The +difference between the two options is one of degree, as their names +suggest. + +Option ~straight-underline~ is like the default but always applies a +straight line under the affected text. Same principle for +~subtle-foreground-straight-underline~ and its counterpart +~intense-foreground-straight-underline~. + +Option ~colored-background~ uses a straight underline, a tinted +background, and a suitable foreground. All are color-coded. This is +the most intense combination of face properties. + +The present variable affects packages and/or face groups such as those +of =flyspell=, =flymake=, =flycheck=, ~artbollocks-mode~, and ~writegood-mode~. + +NOTE: The placement of the straight underline, though not the wave +style, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. + +** Option for line highlighting (hl-line-mode) +:properties: +:alt_title: Line highlighting +:description: Toggle intense style for current line highlighting +:custom_id: h:1dba1cfe-d079-4c13-a810-f768e8789177 +:end: +#+vindex: modus-themes-intense-hl-line + +Symbol: ~modus-themes-intense-hl-line~ Possible values: 1. =nil= (default) 2. =t= -Draw the current line of =hl-line-mode= or its global equivalent in a more -prominent background color. This would also affect several packages -that enable =hl-line-mode=, such as =elfeed= and =mu4e=. +The default is to use a subtle gray background for ~hl-line-mode~ and its +global equivalent. -The default is to use a more subtle gray. +With a non-nil value (=t=) use a more prominent background color instead. + +This affects several packages that enable ~hl-line-mode~, such as =elfeed= +and =mu4e=. + +** Option for line numbers (display-line-numbers-mode) +:properties: +:alt_title: Line numbers +:description: Toggle subtle style for line numbers +:custom_id: h:8c4a6230-2e43-4aa2-a631-3b7179392e09 +:end: +#+vindex: modus-themes-subtle-line-numbers + +Symbol: ~modus-themes-subtle-line-numbers~ + +Possible value: + +1. =nil= (default) +2. =t= + +The default style for ~display-line-numbers-mode~ and its global variant +is to apply a subtle gray background to the line numbers. The current +line has a more pronounced background and foreground combination to +bring more attention to itself. + +Similarly, the faces for ~display-line-numbers-major-tick~ and its +counterpart ~display-line-numbers-minor-tick~ use appropriate styles that +involve a bespoke background and foreground combination. + +With a non-nil value (=t=), line numbers have no background of their own. +Instead they retain the primary background of the theme, blending with +the rest of the buffer. Foreground values for all relevant faces are +updated to accommodate this aesthetic. ** Option for parenthesis matching (show-paren-mode) -:PROPERTIES: -:ALT_TITLE: Matching parentheses -:DESCRIPTION: Toggle intense style for matching delimiters/parentheses -:CUSTOM_ID: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 -:END: +:properties: +:alt_title: Matching parentheses +:description: Choose between various styles for matching delimiters/parentheses +:custom_id: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 +:end: +#+vindex: modus-themes-paren-match + +Symbol: ~modus-themes-paren-match~ + +Possible values: + +1. =nil= (default) +2. ~subtle-bold~ +3. ~intense~ +4. ~intense-bold~ -Symbol names: +Nil means to use a subtle tinted background color for the matching +delimiters. -+ =modus-operandi-theme-intense-paren-match= -+ =modus-vivendi-theme-intense-paren-match= +Option ~intense~ applies a saturated background color. + +Option ~subtle-bold~ is the same as the default, but also makes use of +bold typographic weight (inherits the ~bold~ face). + +Option ~intense-bold~ is the same as ~intense~, while it also uses a bold +weight. + +This customization variable affects tools such as the built-in +~show-paren-mode~ and the =smartparens= package. + +** Option for active region +:properties: +:alt_title: Active region +:description: Choose between various styles for the active region +:custom_id: h:60798063-b4ad-45ea-b9a7-ff7b5c0ab74c +:end: +#+vindex: modus-themes-region + +Symbol: ~modus-themes-region~ Possible values: 1. =nil= (default) -2. =t= +2. ~no-extend~ +3. ~bg-only~ +4. ~bg-only-no-extend~ -Apply a more intense background to the matching parentheses (or -delimiters). This affects tools such as the built-in =show-paren-mode=. -The default is to use a subtle warm color for the background of those -overlays. +Nil means to only use a prominent gray background with a neutral +foreground. The foreground overrides all syntax highlighting. The +region extends to the edge of the window. -** Option for diff buffer looks -:PROPERTIES: -:ALT_TITLE: Diffs -:DESCRIPTION: Choose among intense, desaturated, or text-only diffs -:CUSTOM_ID: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 -:END: +Option ~no-extend~ preserves the default aesthetic but prevents the region +from extending to the edge of the window. + +Option ~bg-only~ applies a faint tinted background that is distinct from +all others used in the theme, while it does not override any existing +colors. It extends to the edge of the window. + +Option ~bg-only-no-extend~ is a combination of the ~bg-only~ and ~no-extend~ +options. -Symbol names: +** Option for diff buffer looks +:properties: +:alt_title: Diffs +:description: Choose among intense, desaturated, or text-only diffs +:custom_id: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 +:end: +#+vindex: modus-themes-diffs -+ =modus-operandi-theme-diffs= -+ =modus-vivendi-theme-diffs= +Symbol: ~modus-themes-diffs~ Possible values: 1. =nil= (default) -2. =desaturated= -2. =fg-only= - -By default the themes will apply richly colored backgrounds to the -output of diffs, such as those of =diff-mode=, =ediff=, =smerge-mode=, and -=magit=. These are color combinations of an accented background and -foreground so that, for example, added lines have a pronounced green -background with an appropriate shade of green for the affected text. -Word-wise or "refined" changes follow this pattern but use different -shades of those colors to remain distinct. - -A =desaturated= value tones down all relevant color values. It still +2. ~desaturated~ +3. ~fg-only~ +4. ~bg-only~ +5. ~deuteranopia~ + +By default the themes apply rich coloration to the output of diffs, such +as those of ~diff-mode~, ~ediff~, ~smerge-mode~, and Magit. These are +color combinations of an accented background and foreground so that, for +example, added lines have a pronounced green background with an +appropriate shade of green for the affected text. Word-wise or +"refined" changes follow this pattern but use different shades of those +colors to remain distinct. + +Option ~desaturated~ tones down all relevant color values. It still combines an accented background with an appropriate foreground, yet its -overall impression is very subtle. Refined changes are a bit more +overall impression is fairly subtle. Refined changes are a bit more intense to fulfil their intended function, though still less saturated than default. -While =fg-only= will remove all accented backgrounds and instead rely on -color-coded text to denote changes. For instance, added lines use an -intense green foreground, while their background is the same as the rest -of the buffer. Word-wise highlights still use a background value which -is, nonetheless, more subtle than its default equivalent. - -Concerning =magit=, an extra set of tweaks are introduced for the effect -of highlighting the current diff hunk, so as to remain consistent with -the overall experience of that mode. Expect changes that are consistent -with the overall intent of the aforementioned. +Option ~fg-only~ will remove most accented backgrounds and instead rely +on color-coded text to denote changes. For instance, added lines use a +green foreground, while their background is the same as the rest of the +buffer. Word-wise highlights still use a background value which is, +nonetheless, more subtle than its default equivalent. + +Option ~bg-only~ applies color-coded backgrounds but does not override +any syntax highlighting that may be present. This makes it suitable for +use with a non-nil value for ~diff-font-lock-syntax~ (which is the +default for ~diff-mode~ buffers in Emacs 27 or higher). + +Option ~deuteranopia~ optimizes for red-green color deficiency. It +replaces all instances of green with blue variants. This is to ensure +that indicators for "removed" and "added" states are not mistaken for +each other. + +Concerning Magit, an extra set of tweaks are introduced for the effect +of highlighting the current diff hunk, so as to remain aligned with the +overall experience of that mode. Expect changes that are consistent +with the overall intent of the aforementioned. Note, however, that the +~bg-only~ option will not deliver the intended results in Magit diffs +because no syntax highlighting is used there (last checked with Magit +version 20201116.1057, though upstream has a plan to eventually support +such a feature---this entry shall be updated accordingly). ** Option for org-mode block styles -:PROPERTIES: -:ALT_TITLE: Org mode blocks -:DESCRIPTION: Choose among plain, grayscale, or rainbow styles -:CUSTOM_ID: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 -:END: - -Symbol names: +:properties: +:alt_title: Org mode blocks +:description: Choose among plain, grayscale, or rainbow styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-blocks -+ =modus-operandi-theme-org-blocks= -+ =modus-vivendi-theme-org-blocks= +Symbol: ~modus-themes-org-blocks~ Possible values: 1. =nil= (default) -2. =grayscale= -3. =rainbow= +2. ~grayscale~ +3. ~rainbow~ The default is to use the same background as the rest of the buffer for the contents of the block. -A value of =grayscale= will apply a subtle neutral gray background to the -block's contents. It will also extend to the edge of the window the -background of the "begin" and "end" block delimiter lines (only relevant -for Emacs versions >= 27 where the 'extend' keyword is recognised by -=set-face-attribute=). +Option ~grayscale~ applies a subtle neutral gray background to the block's +contents. It will also extend to the edge of the window the background +of the "begin" and "end" block delimiter lines (only relevant for Emacs +versions >= 27 where the 'extend' keyword is part of the face +specifications). -While =rainbow= will instead use an accented background for the contents -of the block. The exact color will depend on the programming language -and is controlled by the =org-src-block-faces= variable (refer to the -theme's source code for the current association list). This is most -suitable for users who work on literate programming documents that mix -and match several languages. +Option ~rainbow~ uses an accented background for the contents of the +block. The exact color will depend on the programming language and is +controlled by the ~org-src-block-faces~ variable. This is most suitable +for users who work on literate programming documents that mix and match +several languages. Note that the "rainbow" blocks may require you to also reload the -major-mode so that the colors are applied properly: use =M-x org-mode= or -=M-x org-mode-restart= to refresh the buffer. Or start typing in each -code block (inefficient at scale, but it still works). +major-mode so that the colors are applied consistently throughout: use +{{{kbd(M-x org-mode)}}} or {{{kbd(M-x org-mode-restart)}}} to refresh the buffer. +Or start typing in each code block (inefficient at scale, but it still +works). -** Option for headings' overall style -:PROPERTIES: -:ALT_TITLE: Heading styles -:DESCRIPTION: Choose among several styles, also per heading level -:CUSTOM_ID: h:271eff19-97aa-4090-9415-a6463c2f9ae1 -:END: +** Option for org-habit graph styles +:properties: +:alt_title: Org agenda habits +:description: Choose among standard, simplified, or traffic light styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-habit + +Symbol: ~modus-themes-org-habit~ + +Possible values: + +1. =nil= (default) +2. ~simplified~ +3. ~traffic-light~ + +The default is meant to conform with the original aesthetic of +=org-habit=. It employs all four color codes that correspond to the +org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This results +in a total of eight colors in use: red, yellow, green, blue, in tinted +and shaded versions. They cover the full set of information provided by +the =org-habit= consistency graph. + +Option ~simplified~ is like the default except that it removes the +dichotomy between current and future variants by applying uniform +color-coded values. It applies a total of four colors: red, yellow, +green, blue. They produce a simplified consistency graph that is more +legible (or less "busy") than the default. The intent is to shift focus +towards the distinction between the four states of a habit task, rather +than each state's present/future outlook. + +Option ~traffic-light~ further reduces the available colors to red, +yellow, and green. As in ~simplified~, present and future variants appear +uniformly, but differently from it, the 'clear' state is rendered in a +green hue, instead of the original blue. This is meant to capture the +use-case where a habit task being "too early" is less important than it +being "too late". The difference between ready and clear states is +attenuated by painting both of them using shades of green. This option +thus highlights the alert and overdue states. + +** Option for the headings' overall style +:properties: +:alt_title: Heading styles +:description: Choose among several styles, also per heading level +:custom_id: h:271eff19-97aa-4090-9415-a6463c2f9ae1 +:end: +#+vindex: modus-themes-headings This is defined as an alist and, therefore, uses a different approach than other customization options documented in this manual. -Symbol names: - -+ =modus-operandi-theme-headings= -+ =modus-vivendi-theme-headings= +Symbol: ~modus-themes-headings~ Possible values, which can be specified for each heading level (examples further below): + nil (default fallback option---covers all heading levels) + =t= (default style for a single heading, when the fallback differs) -+ =no-bold= -+ =line= -+ =line-no-bold= -+ =rainbow= -+ =rainbow-line= -+ =rainbow-line-no-bold= -+ =highlight= -+ =highlight-no-bold= -+ =rainbow-highlight= -+ =rainbow-highlight-no-bold= -+ =section= -+ =section-no-bold= -+ =rainbow-section= -+ =rainbow-section-no-bold= - -To control faces per level from 1-8, use something like this (same for -=modus-vivendi-theme-headings=): ++ ~no-bold~ ++ ~line~ ++ ~line-no-bold~ ++ ~rainbow~ ++ ~rainbow-line~ ++ ~rainbow-line-no-bold~ ++ ~highlight~ ++ ~highlight-no-bold~ ++ ~rainbow-highlight~ ++ ~rainbow-highlight-no-bold~ ++ ~section~ ++ ~section-no-bold~ ++ ~rainbow-section~ ++ ~rainbow-section-no-bold~ ++ ~no-color~ ++ ~no-color-no-bold~ + +To control faces per level from 1-8, use something like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . section) - (2 . line) - (3 . highlight) - (t . rainbow-no-bold))) + (2 . section-no-bold) + (3 . rainbow-line) + (t . rainbow-line-no-bold))) #+end_src -The above uses the =section= value for heading levels 1, the =line= for -headings 2, =highlight= for 3. All other levels fall back to -=rainbow-line-no-bold=. +The above uses the ~section~ value for heading levels 1, ~section-no-bold~ +for headings 2, ~rainbow-line~ for 3. All other levels fall back to +~rainbow-line-no-bold~. To set a uniform value for all heading levels, use this pattern: #+begin_src emacs-lisp ;; A given style for every heading -(setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) +(setq modus-themes-headings + '((t . section))) ;; Default aesthetic for every heading -(setq modus-operandi-theme-headings - '((t . nil))) +(setq modus-themes-headings + '()) #+end_src The default style for headings uses a fairly desaturated foreground -value in combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another fallback -option), just specify the value =t= like this: +value in combination with bold typographic weight. To specify this +style for a given level N, assuming you wish to have another fallback +option, just specify the value =t= like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) #+end_src -A description of all other possible styles: +A description of all other possible styles beyond the default: -+ =no-bold= retains the default text color while removing the typographic - weight. ++ ~no-bold~ retains the default text color while removing the bold + typographic weight. -+ =line= is the same as the default plus an overline over the heading. ++ ~line~ is the same as the default plus an overline across the + heading's length. -+ =line-no-bold= is the same as =line= without bold weight. ++ ~line-no-bold~ is the same as ~line~ without bold weight. -+ =rainbow= uses a more colorful foreground in combination with bold - weight. ++ ~rainbow~ uses a more colorful foreground in combination with bold + typographic weight. -+ =rainbow-line= is the same as =rainbow= plus an overline. ++ ~rainbow-line~ is the same as ~rainbow~ plus an overline. -+ =rainbow-line-no-bold= is the same as =rainbow-line= without the bold ++ ~rainbow-line-no-bold~ is the same as ~rainbow-line~ without the bold weight. -+ =highlight= retains the default style of a fairly desaturated foreground - combined with a bold weight and adds to it a subtle accented - background. ++ ~highlight~ retains the default style of a fairly desaturated + foreground combined with a bold weight and adds to it a subtle + accented background. -+ =highlight-no-bold= is the same as =highlight= without a bold weight. ++ ~highlight-no-bold~ is the same as ~highlight~ without a bold weight. -+ =rainbow-highlight= is the same as =highlight= but with a more colorful - foreground. ++ ~rainbow-highlight~ is the same as ~highlight~ but with a more + colorful foreground. -+ =rainbow-highlight-no-bold= is the same as =rainbow-highlight= without a - bold weight. ++ ~rainbow-highlight-no-bold~ is the same as ~rainbow-highlight~ without + a bold weight. -+ =section= retains the default looks and adds to them both an overline ++ ~section~ retains the default looks and adds to them both an overline and a slightly accented background. It is, in effect, a combination - of the =line= and =highlight= values. + of the ~line~ and ~highlight~ values. -+ =section-no-bold= is the same as =section= without a bold weight. ++ ~section-no-bold~ is the same as ~section~ without a bold weight. -+ =rainbow-section= is the same as =section= but with a more colorful ++ ~rainbow-section~ is the same as ~section~ but with a more colorful foreground. -+ =rainbow-section-no-bold= is the same as =rainbow-section= without a bold - weight." ++ ~rainbow-section-no-bold~ is the same as ~rainbow-section~ without a + bold weight. + ++ ~no-color~ does not apply any color to the heading, meaning that it + uses the foreground of the ~default~ face. It still renders the text + with a bold typographic weight. -** Option for scaled headings -:PROPERTIES: -:ALT_TITLE: Scaled headings -:DESCRIPTION: Toggle scaling of headings -:CUSTOM_ID: h:075eb022-37a6-41a4-a040-cc189f6bfa1f -:END: ++ ~no-color-no-bold~ is like ~no-color~ but without the bold weight. -Symbol names: +** Option for scaled headings +:properties: +:alt_title: Scaled headings +:description: Toggle scaling of headings +:custom_id: h:075eb022-37a6-41a4-a040-cc189f6bfa1f +:end: +#+vindex: modus-themes-scale-headings -+ =modus-operandi-theme-scale-headings= -+ =modus-vivendi-theme-scale-headings= +Symbol: ~modus-themes-scale-headings~ Possible values: 1. =nil= (default) 2. =t= -Make headings larger in height relative to the main text. This is -noticeable in modes like Org. The default is to use the same size for -headings and body copy. +The default is to use the same size for headings and paragraph text. + +With a non-nil value (=t=) make headings larger in height relative to the +main text. This is noticeable in modes like Org, Markdown, and Info. *** Control the scale of headings -:PROPERTIES: -:ALT_TITLE: Scaled heading sizes -:DESCRIPTION: Specify rate of increase for scaled headings -:CUSTOM_ID: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 -:END: +:properties: +:alt_title: Scaled heading sizes +:description: Specify rate of increase for scaled headings +:custom_id: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 +:end: -In addition to toggles for enabling scaled headings, users can also +In addition to the toggle for enabling scaled headings, users can also specify a number of their own. + If it is a floating point, say, =1.5=, it is interpreted as a multiple - of the base font size. This is the recommended method. - -+ If it is an integer, it is read as an absolute font height. The - number is basically the point size multiplied by ten. So if you want - it to be =18pt= you must pass =180=. Please understand that setting an - absolute value is discouraged, as it will break the layout when you - try to change font sizes with the built-in =text-scale-adjust= command - (see [[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + of the base font size. This is the recommended method, because it + will always adapt to changes in the base font size, such as while + using the ~text-scale-adjust~ command. + ++ If it is an integer, it is read as an absolute font height that is + 1/10 of the typographic point size. Thus a value of =18pt= must be + expressed as =180=. Setting an absolute value is discouraged, as it + will break the layout in cases where the base font size must change, + such as with the ~text-scale-adjust~ command ([[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + While we discourage using absolute values, we still provide for this + option for users who do not need to perform text-scaling operations or + who are content with whatever discrepancies in height. Below are the variables in their default values, using the floating -point paradigm. The numbers are very conservative, but you are free to -change them to your liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a +point paradigm. The numbers are very conservative, but one is free to +change them to their liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a resource for finding a consistent scale: #+begin_src emacs-lisp -(setq modus-operandi-theme-scale-1 1.05 - modus-operandi-theme-scale-2 1.1 - modus-operandi-theme-scale-3 1.15 - modus-operandi-theme-scale-4 1.2 - modus-operandi-theme-scale-5 1.3) - -(setq modus-vivendi-theme-scale-1 1.05 - modus-vivendi-theme-scale-2 1.1 - modus-vivendi-theme-scale-3 1.15 - modus-vivendi-theme-scale-4 1.2 - modus-vivendi-theme-scale-5 1.3) +(setq modus-themes-scale-1 1.05 + modus-themes-scale-2 1.1 + modus-themes-scale-3 1.15 + modus-themes-scale-4 1.2 + modus-themes-scale-5 1.3) #+end_src +As for the application of that scale, the variables that range from +~modus-themes-scale-1~ up to ~modus-themes-scale-4~ apply to regular +headings within the context of the given major mode. The former is the +smallest, while the latter is the largest. "Regular headings" are those +that have a standard syntax for their scale, such as Org mode's eight +levels of asterisks or Markdown's six columns. + +Whereas ~modus-themes-scale-5~ is applied to special headings that do not +conform with the aforementioned syntax, yet which are expected to be +larger than the largest value on that implied scale. Put concretely, +Org's =#+title= meta datum is not part of the eight levels of headings in +an Org file, yet is supposed to signify the primary header. Similarly, +the Org Agenda's structure headings are not part of a recognisable scale +and so they also get ~modus-themes-scale-5~. + +Users who wish to maintain scaled headings for the normal syntax while +preventing special headings from standing out, can assign a value of =1.0= +to ~modus-themes-scale-5~ to make it the same as body text (or whatever +value would render it indistinguishable from the desired point of +reference). + Note that in earlier versions of Org, scaling would only increase the size of the heading, but not of keywords that were added to it, like "TODO". The issue has been fixed upstream: <https://protesilaos.com/codelog/2020-09-24-org-headings-adapt/>. -** Option for variable-pitch font in headings -:PROPERTIES: -:ALT_TITLE: Headings' font -:DESCRIPTION: Toggle proportionately spaced fonts in headings -:CUSTOM_ID: h:97caca76-fa13-456c-aef1-a2aa165ea274 -:END: +** Option for variable-pitch font in UI elements +:properties: +:alt_title: UI typeface +:description: Toggle the use of variable-pitch across the User Interface +:custom_id: h:16cf666c-5e65-424c-a855-7ea8a4a1fcac +:end: +#+vindex: modus-themes-variable-pitch-ui + +Symbol: ~modus-themes-variable-pitch-ui~ + +Possible values: + +1. =nil= (default) +2. =t= + +This option concerns User Interface elements that are under the direct +control of Emacs. In particular: the mode line, header line, tab bar, +and tab line. + +The default is to use the same font as the rest of Emacs, which usually +is a monospaced family. -Symbol names: +With a non-nil value (=t=) apply a proportionately spaced typeface. This +is done by assigning the ~variable-pitch~ face to the relevant items. -+ =modus-operandi-theme-variable-pitch-headings= -+ =modus-vivendi-theme-variable-pitch-headings= +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. + +** Option for variable-pitch font in headings +:properties: +:alt_title: Headings' typeface +:description: Toggle the use of variable-pitch in headings +:custom_id: h:97caca76-fa13-456c-aef1-a2aa165ea274 +:end: +#+vindex: modus-themes-variable-pitch-headings + +Symbol: ~modus-themes-variable-pitch-headings~ Possible values: 1. =nil= (default) 2. =t= -Choose to apply a proportionately spaced, else "variable-pitch", -typeface to headings (such as in Org mode). The default is to use the -main font family. +The default is to use the main font family, which typically is +monospaced. -[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. +With a non-nil value (=t=) apply a proportionately spaced typeface, else +"variable-pitch", to headings (such as in Org mode). + +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. * Advanced customization (do-it-yourself) -:PROPERTIES: -:INDEX: cp -:CUSTOM_ID: h:f4651d55-8c07-46aa-b52b-bed1e53463bb -:END: +:properties: +:custom_id: h:f4651d55-8c07-46aa-b52b-bed1e53463bb +:end: -Unlike the predefined customization options which follow a -straightforward pattern of allowing the user to quickly specify their -preference, the themes also provide a more flexible, albeit difficult, -mechanism to control things with precision (see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). +Unlike the predefined customization options which follow a clear pattern +of allowing the user to quickly specify their preference, the themes +also provide a more flexible, albeit difficult, mechanism to control +things with precision ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). This section is of interest only to users who are prepared to maintain their own local tweaks and who are willing to deal with any possible incompatibilities between versioned releases of the themes. As such, they are labelled as "do-it-yourself" or "DIY". -** Full access to the themes' palette -:PROPERTIES: -:ALT_TITLE: Tweak colors (DIY) -:DESCRIPTION: Declare your own palette overrides -:CUSTOM_ID: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 -:END: +** Per-theme customization settings (DIY) +:properties: +:custom_id: h:a897b302-8e10-4a26-beab-3caaee1e1193 +:end: + +If you prefer to maintain different customization options between the +two themes, it is best you write your own functions that first set those +options and then load the relevant theme. The following code does +exactly that by simply differentiating the two themes on the choice of +bold constructs in code syntax (enabled for one, disabled for the +other). + +#+begin_src emacs-lisp +(defun my-demo-modus-operandi () + (interactive) + (setq modus-themes-bold-constructs t) ; ENABLE bold + (modus-themes-load-operandi)) + +(defun my-demo-modus-vivendi () + (interactive) + (setq modus-themes-bold-constructs nil) ; DISABLE bold + (modus-themes-load-vivendi)) + +(defun my-demo-modus-themes-toggle () + (if (eq (car custom-enabled-themes) 'modus-operandi) + (my-demo-modus-vivendi) + (my-demo-modus-operandi))) +#+end_src + +Then assign ~my-demo-modus-themes-toggle~ to a key instead of the +equivalent the themes provide. + +For a more elaborate design, it is better to inspect the source code of +~modus-themes-toggle~ and relevant functions. + +** Case-by-case face specs using the themes' palette (DIY) +:properties: +:custom_id: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 +:end: +#+findex: modus-themes-color +#+findex: modus-themes-color-alts +#+cindex: Extracting individual colors + +This section is about tweaking individual faces. If you plan to do +things at scale, consult the next section: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Set multiple faces]]. + +We already covered in previous sections how to toggle between the themes +and how to configure options prior to loading. We also explained that +some of the functions made available to users will fire up a hook that +can be used to pass tweaks in the post-theme-load phase. + +Now assume you wish to change a single face, say, the ~cursor~. And you +would like to get the standard "blue" color value of the active Modus +theme, whether it is Modus Operandi or Modus Vivendi. To do that, you +can use the ~modus-themes-color~ function. It accepts a symbol that is +associated with a color in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~. Like this: + +#+begin_src emacs-lisp +(modus-themes-color 'blue) +#+end_src + +The function always extracts the color value of the active Modus theme. + +#+begin_src emacs-lisp +(progn + (load-theme 'modus-operandi t) + (modus-themes-color 'blue)) ; "#0031a9" for `modus-operandi' + +(progn + (load-theme 'modus-vivendi t) + (modus-themes-color 'blue)) ; "#2fafff" for `modus-vivendi' +#+end_src + +Do {{{kbd(C-h v)}}} on the aforementioned variables to check all the available +symbols that can be passed to this function. + +With that granted, let us expand the example to actually change the +~cursor~ face's background property. We employ the built-in function of +~set-face-attribute~: + +#+begin_src emacs-lisp +(set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) +#+end_src + +If you evaluate this form, your cursor will become blue. But if you +change themes, such as with ~modus-themes-toggle~, your edits will be +lost, because the newly loaded theme will override the =:background= +attribute you had assigned to that face. -The variables are: +For such changes to persist, we need to make them after loading the +theme. So we rely on ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. Here is a sample function that +tweaks two faces and then gets added to the hook: -+ =modus-operandi-theme-override-colors-alist= -+ =modus-vivendi-theme-override-colors-alist= +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) + (set-face-attribute 'font-lock-type-face nil :foreground (modus-themes-color 'magenta-alt))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src -Users can specify an association list that maps the names of color -variables to hexadecimal RGB values (in the form of =#RRGGBB=). This -means that it is possible to override the entire palette or subsets -thereof (see the source code for the actual names and values). +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. -Example: +Using this principle, it is possible to override the styles of faces +without having to find color values for each case. + +Another application is to control the precise weight for bold +constructs. This is particularly useful if your typeface has several +variants such as "heavy", "extrabold", "semibold". All you have to do +is edit the ~bold~ face. For example: #+begin_src emacs-lisp -;; Redefine the values of those three variables for the given theme -(setq modus-vivendi-theme-override-colors-alist - '(("magenta" . "#ffaabb") - ("magenta-alt" . "#ee88ff") - ("magenta-alt-other" . "#bbaaff"))) +(set-face-attribute 'bold nil :weight 'semibold) #+end_src -If you want to be creative, you can define a minor mode that refashions -the themes on demand. The following is a minor mode that gets activated -on demand. We combine it with the function to switch between Modus -Operandi and Modus Vivendi (see [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]] for -a basic command, and/or [[*Configure options prior to loading][Configure options prior to loading]] for a more -comprehensive setup). +Remember to use the custom function and hook combo we demonstrated +above. Because the themes do not hard-wire a specific weight, this +simple form is enough to change the weight of all bold constructs +throughout the interface. + +Finally, there are cases where you want to tweak colors though wish to +apply different ones to each theme, say, a blue hue for Modus Operandi +and a shade of red for Modus Vivendi. To this end, we provide +~modus-themes-color-alts~ as a convenience function to save you from the +trouble of writing separate wrappers for each theme. It still returns a +single value by querying either of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, only here you pass the two keys you want, +first for ~modus-operandi~ then ~modus-vivendi~. + +Take the previous example with the ~cursor~ face: #+begin_src emacs-lisp -(define-minor-mode modus-themes-alt-mode - "Override Modus themes' palette variables with custom values. +;; Blue for `modus-operandi' and red for `modus-vivendi' +(set-face-attribute 'cursor nil :background (modus-themes-color-alts 'blue 'red)) +#+end_src -This is intended as a proof-of-concept. It is, nonetheless, a -perfectly accessible alternative, conforming with the design -principles of the Modus themes. It still is not as good as the -default colors." +** Face specs at scale using the themes' palette (DIY) +:properties: +:custom_id: h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae +:end: +#+findex: modus-themes-with-colors +#+cindex: Extracting colors en masse + +The examples here are for large scale operations. For simple, one-off +tweaks, you may prefer the approach documented in the previous section +([[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]). + +The ~modus-themes-with-colors~ macro lets you retrieve multiple color +values by employing the backquote/backtick and comma notation. The +values are stored in the alists ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, while the macro always queries that of the +active Modus theme. + +Here is an abstract example that just returns a list of color values +while ~modus-operandi~ is enabled: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (list fg-main + blue-faint + magenta + magenta-alt-other + cyan-alt-other + fg-special-cold + blue-alt + magenta-faint + cyan + fg-main + green-faint + red-alt-faint + blue-alt-faint + fg-special-warm + cyan-alt + blue)) +;; => +;; ("#000000" "#002f88" "#721045" "#5317ac" +;; "#005a5f" "#093060" "#2544bb" "#752f50" +;; "#00538b" "#000000" "#104410" "#702f00" +;; "#003f78" "#5d3026" "#30517f" "#0031a9") +#+end_src + +Getting a list of colors may have its applications, though what you are +most likely interested in is how to use those variables to configure +several faces at once. To do so we can rely on the built-in +~custom-set-faces~ function, which sets face specifications for the +special =user= theme. That "theme" gets applied on top of regular themes +like ~modus-operandi~ and ~modus-vivendi~. + +This is how it works: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg))))) +#+end_src + +The above snippet will immediately refashion the faces it names once it +is evaluated. However, if you switch between the Modus themes, say, +from ~modus-operandi~ to ~modus-vivendi~, the colors will not get updated to +match those of the new theme. To make things work across the themes, we +need to employ the same technique we discussed in the previous section, +namely, to pass our changes at the post-theme-load phase via a hook. + +The themes provide the ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. With this knowledge, you can +wrap the macro in a function and then assign that function to the hook. +Thus: + +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg)))))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src + +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. + +To discover the faces defined by all loaded libraries, you may do +{{{kbd(M-x list-faces-display)}}}. Be warned that when you =:inherit= a face +you are introducing an implicit dependency, so try to avoid doing so for +libraries other than the built-in {{{file(faces.el)}}} (or at least understand +that things may break if you inherit from a yet-to-be-loaded face). + +Also bear in mind that these examples are meant to work with the Modus +themes. If you are cycling between multiple themes you may encounter +unforeseen issues, such as the colors of the Modus themes being applied +to a non-Modus item. + +Finally, note that you can still use other functions where those make +sense. For example, the ~modus-themes-color-alts~ that was discussed in +the previous section. Adapt the above example like this: + +#+begin_src emacs-lisp +... +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,(modus-themes-color-alts 'blue 'green)))) + ...)) +#+end_src + +** Override colors (DIY) +:properties: +:custom_id: h:307d95dd-8dbd-4ece-a543-10ae86f155a6 +:end: +#+vindex: modus-themes-operandi-color-overrides +#+vindex: modus-themes-vivendi-color-overrides +#+cindex: Change a theme's colors + +The themes provide a mechanism for overriding their color values. This +is controlled by the variables ~modus-themes-operandi-color-overrides~ and +~modus-themes-vivendi-color-overrides~, which are alists that should +mirror a subset of the associations in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ respectively. As with all customisations, +overriding must be done before loading the affected theme. + +Let us approach the present topic one step at a time. Here is a +simplified excerpt of the default palette for Modus Operandi with some +basic background values that apply to buffers and the mode line +(remember to inspect the actual value to find out all the associations +that can be overridden): + +#+begin_src emacs-lisp +(defconst modus-themes-colors-operandi + '((bg-main . "#ffffff") + (bg-dim . "#f8f8f8") + (bg-alt . "#f0f0f0") + (bg-active . "#d7d7d7") + (bg-inactive . "#efefef"))) +#+end_src + +As one can tell, we bind a key to a hexadecimal RGB color value. Now +say we wish to override those specific values and have our changes +propagate to all faces that use those keys. We could write something +like this, which adds a subtle ochre tint: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5"))) +#+end_src + +Once this is evaluated, any subsequent loading of ~modus-operandi~ will +use those values instead of the defaults. No further intervention is +required. + +To reset the changes, we apply this and reload the theme: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides nil) +#+end_src + +Users who wish to leverage such a mechanism can opt to implement it +on-demand by means of a global minor mode. The following snippet covers +both themes and expands to some more assosiations in the palette: + +#+begin_src emacs-lisp +(define-minor-mode my-modus-themes-tinted + "Tweak some Modus themes colors." :init-value nil :global t - (if modus-themes-alt-mode - (setq modus-operandi-theme-override-colors-alist - '(("bg-main" . "#fefcf4") - ("bg-dim" . "#faf6ef") - ("bg-alt" . "#f7efe5") - ("bg-hl-line" . "#f4f0e3") - ("bg-active" . "#e8dfd1") - ("bg-inactive" . "#f6ece5") - ("bg-region" . "#c6bab1") - ("bg-header" . "#ede3e0") - ("bg-tab-bar" . "#dcd3d3") - ("bg-tab-active" . "#fdf6eb") - ("bg-tab-inactive" . "#c8bab8") - ("fg-unfocused" . "#55556f")) - modus-vivendi-theme-override-colors-alist - '(("bg-main" . "#100b17") - ("bg-dim" . "#161129") - ("bg-alt" . "#181732") - ("bg-hl-line" . "#191628") - ("bg-active" . "#282e46") - ("bg-inactive" . "#1a1e39") - ("bg-region" . "#393a53") - ("bg-header" . "#202037") - ("bg-tab-bar" . "#262b41") - ("bg-tab-active" . "#120f18") - ("bg-tab-inactive" . "#3a3a5a") - ("fg-unfocused" . "#9a9aab"))) - (setq modus-operandi-theme-override-colors-alist nil - modus-vivendi-theme-override-colors-alist nil))) - -(defun modus-themes-toggle (&optional arg) - "Toggle between `modus-operandi' and `modus-vivendi' themes. - -With optional \\[universal-argument] prefix, enable -`modus-themes-alt-mode' for the loaded theme." - (interactive "P") - (if arg - (modus-themes-alt-mode 1) - (modus-themes-alt-mode -1)) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) + (if my-modus-themes-tinted + (setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-hl-line . "#f4f0e3") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5") + (bg-region . "#c6bab1") + (bg-header . "#ede3e0") + (bg-tab-bar . "#dcd3d3") + (bg-tab-active . "#fdf6eb") + (bg-tab-inactive . "#c8bab8") + (fg-unfocused . "#55556f")) + modus-themes-vivendi-color-overrides + '((bg-main . "#100b17") + (bg-dim . "#161129") + (bg-alt . "#181732") + (bg-hl-line . "#191628") + (bg-active . "#282e46") + (bg-inactive . "#1a1e39") + (bg-region . "#393a53") + (bg-header . "#202037") + (bg-tab-bar . "#262b41") + (bg-tab-active . "#120f18") + (bg-tab-inactive . "#3a3a5a") + (fg-unfocused . "#9a9aab"))) + (setq modus-themes-operandi-color-overrides nil + modus-themes-vivendi-color-overrides nil))) #+end_src -** Font configurations for Org (and others) -:PROPERTIES: -:ALT_TITLE: Font configs (DIY) -:DESCRIPTION: Optimise for mixed typeface buffers -:CUSTOM_ID: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 -:END: +With this in place, one can invoke {{{kbd(M-x my-modus-themes-tinted)}}} and +then load the Modus theme of their choice. The new palette subset will +come into effect: subtle ochre tints for Modus Operandi and night sky +shades for Modus Vivendi. Switching between the two themes, such as +with {{{kbd(M-x modus-themes-toggle)}}} will also use the overrides. + +Given that this is a user-level customisation, one is free to implement +whatever color values they desire, even if the possible combinations +fall below the minimum 7:1 contrast ratio that governs the design of the +themes (the WCAG AAA legibility standard). Preferences aside, it is +advised to inspect the source code of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ to read the inline commentary: it explains +what the intended use of each palette subset is. -The themes are designed to cope well with mixed font settings ([[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option -for no font mixing]]). Currently this applies to =org-mode= and -=markdown-mode=. +Furthermore, users may benefit from the ~modus-themes-contrast~ function +that we provide: [[#h:02e25930-e71a-493d-828a-8907fc80f874][test color combinations]]. It measures the contrast +ratio between two color values, so it can help in overriding the palette +(or a subset thereof) without making the end result inaccessible. + +** Font configurations for Org and others (DIY) +:properties: +:custom_id: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 +:end: +#+cindex: Font configurations + +The themes are designed to cope well with mixed font configurations. + +[[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option for no font mixing]]. + +This mostly concerns ~org-mode~ and ~markdown-mode~, though expect to find +it elsewhere like in ~Info-mode~. In practice it means that the user can safely opt for a more prose-friendly proportionately spaced typeface as their default, while letting spacing-sensitive elements like tables and inline code always -use a monospaced font, by inheriting from the =fixed-pitch= face. +use a monospaced font, by inheriting from the ~fixed-pitch~ face. -Users can try the built-in =M-x variable-pitch-mode= to see the effect in -action. +Users can try the built-in {{{kbd(M-x variable-pitch-mode)}}} to see the +effect in action. To make everything use your desired font families, you need to configure -the =variable-pitch= (proportional spacing) and =fixed-pitch= (monospaced) +the ~variable-pitch~ (proportional spacing) and ~fixed-pitch~ (monospaced) faces respectively. It may also be convenient to set your main typeface -by configuring the =default= face the same way. +by configuring the ~default~ face the same way. -Put something like this in your initialization file (make sure to read -the documentation of =set-face-attribute=, with =M-x describe-function=): +Put something like this in your initialization file (also consider +reading the doc string of ~set-face-attribute~): #+begin_src emacs-lisp ;; Main typeface @@ -1199,50 +1681,35 @@ ** Font configurations for Org (and others) Note the differences in the =:height= property. The =default= face must specify an absolute value, which is the point size × 10. So if you want -to use a font at point size =11=, you set the height at =110=.[fn:: =:height= +to use a font at point size =11=, you set the height to =110=.[fn:: =:height= values do not need to be rounded to multiples of ten: the likes of =115= are perfectly valid—some typefaces will change to account for those finer increments.] Whereas every other face must have a value that is relative to the default, represented as a floating point (if you use an -integer, say, =15= then that means an absolute height). This is of -paramount importance: it ensures that all fonts can scale gracefully -when using something like the =text-scale-adjust= command which only -operates on the base font size (i.e. the =default= face's absolute -height). - -An alternative syntax for the =default= face, is to pass all typeface -parameters directly to a =font= property.[fn:: Has the benefit of -accepting =fontconfig= parameters (GNU/Linux), such as ="DejaVu Sans -Mono-11:hintstyle=hintslight:autohint=false"=. -https://www.freedesktop.org/software/fontconfig/fontconfig-user.html] -Note that here we use a standard point size: - -#+begin_src emacs-lisp -(set-face-attribute 'default nil :font "DejaVu Sans Mono-11") -#+end_src - -Again, remember to only ever specify an absolute height for the =default=. - -** Org user faces (DIY) -:PROPERTIES: -:DESCRIPTION: Extend styles for org-mode keywords and priorities -:CUSTOM_ID: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad -:END: - -Users of =org-mode= have the option to configure various keywords and +integer, then that means an absolute height). This is of paramount +importance: it ensures that all fonts can scale gracefully when using +something like the ~text-scale-adjust~ command which only operates on the +base font size (i.e. the ~default~ face's absolute height). + +** Custom Org user faces (DIY) +:properties: +:custom_id: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad +:end: +#+cindex: Org extra faces + +Users of ~org-mode~ have the option to configure various keywords and priority cookies to better match their workflow. User options are -=org-todo-keyword-faces= and =org-priority-faces=. +~org-todo-keyword-faces~ and ~org-priority-faces~. -As those are meant to be custom faces, it would be futile to have the -themes try to guess what each user would want to use, which keywords to -target, and so on. Instead, we can provide guidelines on how to -customize things to one's liking with the intent of retaining the -overall aesthetics of the theme. +As those are meant to be custom faces, it is futile to have the themes +guess what each user wants to use, which keywords to target, and so on. +Instead, we can provide guidelines on how to customize things to one's +liking with the intent of retaining the overall aesthetic of the themes. Please bear in mind that the end result of those is not controlled by -the active theme but by how Org maps faces to its constructs. Editing -those while =org-mode= is active requires =M-x org-mode-restart= for changes -to take effect. +the active Modus theme but by how Org maps faces to its constructs. +Editing those while ~org-mode~ is active requires re-initialization of the +mode with {{{kbd(M-x org-mode-restart)}}} for changes to take effect. Let us assume you wish to visually differentiate your keywords. You have something like this: @@ -1257,7 +1724,7 @@ ** Org user faces (DIY) You could then use a variant of the following to inherit from a face that uses the styles you want and also to preserve the properties -applied by the =org-todo= face: +applied by the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1267,10 +1734,10 @@ ** Org user faces (DIY) #+end_src This will refashion the keywords you specify, while letting the other -items in =org-todo-keywords= use their original styles (which are defined -in the =org-todo= and =org-done= faces). +items in ~org-todo-keywords~ use their original styles (which are defined +in the ~org-todo~ and ~org-done~ faces). -If you want back the defaults, try specifying just the =org-todo= face: +If you want back the defaults, try specifying just the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1282,7 +1749,7 @@ ** Org user faces (DIY) When you inherit from multiple faces, you need to quote the list as shown further above. The order is important: the last item is applied over the previous ones. If you do not want to blend multiple faces, you -do not need a quoted list. A pattern of =keyword . face= would suffice. +do not need a quoted list. A pattern of =keyword . face= will suffice. Both approaches can be used simultaneously, as illustrated in this configuration of the priority cookies: @@ -1295,29 +1762,182 @@ ** Org user faces (DIY) #+end_src To find all the faces that are loaded in your current Emacs session, use -=M-x list-faces-display=. Also try =M-x describe-variable= and then specify -the name of each of those Org variables demonstrated above. Their -documentation strings will offer you further guidance. +{{{kbd(M-x list-faces-display)}}}. Try {{{kbd(M-x describe-variable)}}} as well and +then specify the name of each of those Org variables demonstrated above. +Their documentation strings will offer you further guidance. + +Recall that the themes let you retrieve a color from their palette. Do +it if you plan to control face attributes. + +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Custom face specs using the themes' palette]]. + +[[#h:02e25930-e71a-493d-828a-8907fc80f874][Check color combinations]]. + +** Measure color contrast (DIY) +:properties: +:custom_id: h:02e25930-e71a-493d-828a-8907fc80f874 +:end: +#+findex: modus-themes-contrast +#+findex: modus-themes-wcag-formula +#+cindex: Color contrast + +The themes provide the functions ~modus-themes-wcag-formula~ and +~modus-themes-contrast~. The former is a direct implementation of the +WCAG formula: <https://www.w3.org/TR/WCAG20-TECHS/G18.html>. It +calculates the relative luminance of a color value that is expressed in +hexadecimal RGB notation. While the latter function is just a +convenient wrapper for comparing the relative luminance between two +colors. + +In practice, one needs to work only with ~modus-themes-contrast~. It +accepts two color values and returns their contrast ratio. Values range +from 1 to 21 (lowest to highest). The themes are designed to always be +equal or higher than 7 for each combination of background and foreground +that they use (this is the WCAG AAA standard---the most demanding of its +kind). + +A couple of examples (rounded numbers): -Furthermore, consider reading the "Notes for aspiring Emacs theme -developers", published on 2020-08-28 by me (Protesilaos Stavrou): -https://protesilaos.com/codelog/2020-08-28-notes-emacs-theme-devs/. +#+begin_src emacs-lisp +;; Pure white with pure green +(modus-themes-contrast "#ffffff" "#00ff00") +;; => 1.37 +;; That is an outright inaccessible combo + +;; Pure black with pure green +(modus-themes-contrast "#000000" "#00ff00") +;; => 15.3 +;; That is is a highly accessible combo +#+end_src + +It does not matter which color value comes first. The ratio is always +the same. + +If one does not wish to read all the decimal points, it is possible to +try something like this: + +#+begin_src emacs-lisp +(format "%0.2f" (modus-themes-contrast "#000000" "#00ff00")) +#+end_src + +While it is fine to perform such calculations on a case-by-case basis, +it is preferable to implement formulas and tables for more demanding +tasks. Such instruments are provided by ~org-mode~ or ~orgtbl-mode~, both +of which are built into Emacs. Below is such a table that derives the +contrast ratio of all colors in the first column (pure red, green, blue) +relative to the color specified in the first row of the second column +(pure white) and rounds the results: + +#+begin_example +| | #ffffff | +|---------+---------| +| #ff0000 | 4.00 | +| #00ff00 | 1.37 | +| #0000ff | 8.59 | +#+tblfm: $2='(modus-themes-contrast $1 @1$2);%0.2f +#+end_example + +To measure color contrast one needs to start from a known value. This +typically is the background. The Modus themes define an expanded +palette in large part because certain colors are only meant to be used +in combination with some others. Consult the source code for the +minutia and relevant commentary. + +Such knowledge may prove valuable while attempting to override some of +the themes' colors: [[#h:307d95dd-8dbd-4ece-a543-10ae86f155a6][Override colors]]. + +** Load theme depending on time of day +:properties: +:custom_id: h:1d1ef4b4-8600-4a09-993c-6de3af0ddd26 +:end: + +While we do provide ~modus-themes-toggle~ to manually switch between the +themes, users may also set up their system to perform such a task +automatically at sunrise and sunset. + +This can be accomplished by specifying the coordinates of one's location +using the built-in {{{file(solar.el)}}} and then configuring the =circadian= +package: + +#+begin_src emacs-lisp +(use-package solar ; built-in + :config + (setq calendar-latitude 35.17 + calendar-longitude 33.36)) + +(use-package circadian ; you need to install this + :ensure + :after solar + (setq circadian-themes '((:sunrise . modus-operandi) + (:sunset . modus-vivendi))) + (circadian-setup)) +#+end_src + +** A theme-agnostic hook for theme loading (DIY) +:properties: +:custom_id: h:86f6906b-f090-46cc-9816-1fe8aeb38776 +:end: + +The themes are designed with the intent to be useful to Emacs users of +varying skill levels, from beginners to experts. This means that we try +to make things easier by not expecting anyone reading this document to +be proficient in Emacs Lisp or programming in general. + +Such a case is with the use of the ~modus-themes-after-load-theme-hook~, +which runs after ~modus-themes-toggle~, ~modus-themes-load-operandi~, or +~modus-themes-load-vivendi~ is evaluated. We recommend using that hook +for advanced customizations, because (1) we know for sure that it is +available once the themes are loaded, and (2) anyone consulting this +manual, especially the sections on enabling and loading the themes, will +be in a good position to benefit from that hook. + +Advanced users who have a need to switch between the Modus themes and +other items will find that such a hook does not meet their requirements: +it only works with the Modus themes and only with the aforementioned +functions. + +A theme-agnostic setup can be configured thus: + +#+begin_src emacs-lisp +(defvar after-enable-theme-hook nil + "Normal hook run after enabling a theme.") + +(defun run-after-enable-theme-hook (&rest _args) + "Run `after-enable-theme-hook'." + (run-hooks 'after-enable-theme-hook)) + +(advice-add 'enable-theme :after #'run-after-enable-theme-hook) +#+end_src + +This creates the ~after-enable-theme-hook~ and makes it run after each +call to ~enable-theme~, which means that it will work for all themes and +also has the benefit that it does not depend on functions such as +~modus-themes-toggle~ and the others mentioned above. ~enable-theme~ is +called internally by ~load-theme~, so the hook works everywhere. + +Now this specific piece of Elisp may be simple for experienced users, +but it is not easy to read for newcomers, including the author of the +Modus themes for the first several months of their time as an Emacs +user. Hence our hesitation to recommend it as part of the standard +setup of the Modus themes (it is generally a good idea to understand +what the implications are of advising a function). * Face coverage -:PROPERTIES: -:CUSTOM_ID: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 -:END: +:properties: +:custom_id: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 +:end: -Modus Operandi and Modus Vivendi try to provide as close to full face -coverage as possible. This is necessary to ensure a consistently -accessible reading experience across all possible interfaces. +The Modus themes try to provide as close to full face coverage as +possible. This is necessary to ensure a consistently accessible reading +experience across all available interfaces. ** Full support for packages or face groups -:PROPERTIES: -:ALT_TITLE: Supported packages -:DESCRIPTION: Full list of covered face groups -:CUSTOM_ID: h:60ed4275-60d6-49f8-9287-9a64e54bea0e -:END: +:properties: +:alt_title: Supported packages +:description: Full list of covered face groups +:custom_id: h:60ed4275-60d6-49f8-9287-9a64e54bea0e +:end: +#+cindex: Explicitly supported packages This list will always be updated to reflect the current state of the project. The idea is to offer an overview of the known status of all @@ -1337,16 +1957,18 @@ ** Full support for packages or face groups + auto-dim-other-buffers + avy + awesome-tray ++ bbdb + binder + bm + bongo + boon -+ breakpoint (provided by the built-in =gdb-mi.el= library) ++ breakpoint (provided by the built-in {{{file(gdb-mi.el)}}} library) + buffer-expose + calendar and diary + calfw + centaur-tabs -+ change-log and log-view (such as =vc-print-log= and =vc-print-root-log=) ++ cfrs ++ change-log and log-view (such as ~vc-print-log~, ~vc-print-root-log~) + cider + circe + color-rg @@ -1355,6 +1977,7 @@ ** Full support for packages or face groups + company-posframe + compilation-mode + completions ++ consult + counsel* + counsel-css + counsel-notmuch @@ -1363,7 +1986,7 @@ ** Full support for packages or face groups + cperl-mode + csv-mode + ctrlf -+ custom (=M-x customize=) ++ custom (what you get with {{{kbd(M-x customize)}}}) + dap-mode + dashboard (emacs-dashboard) + deadgrep @@ -1381,8 +2004,11 @@ ** Full support for packages or face groups + dired-git-info + dired-narrow + dired-subtree ++ diredc + diredfl ++ diredp (dired+) + disk-usage ++ display-fill-column-indicator-mode + doom-modeline + dynamic-ruler + easy-jekyll @@ -1408,8 +2034,10 @@ ** Full support for packages or face groups + eshell-syntax-highlighting + evil* (evil-mode) + evil-goggles ++ evil-snipe + evil-visual-mark-mode + eww ++ exwm + eyebrowse + fancy-dabbrev + flycheck @@ -1443,7 +2071,7 @@ ** Full support for packages or face groups + helpful + highlight-blocks + highlight-defined -+ highlight-escape-sequences (=hes-mode=) ++ highlight-escape-sequences (~hes-mode~) + highlight-indentation + highlight-numbers + highlight-symbol @@ -1468,6 +2096,7 @@ ** Full support for packages or face groups + interaction-log + ioccur + isearch, occur, etc. ++ isl (isearch-light) + ivy* + ivy-posframe + jira (org-jira) @@ -1477,19 +2106,22 @@ ** Full support for packages or face groups + jupyter + kaocha-runner + keycast -+ line numbers (=display-line-numbers-mode= and global variant) ++ line numbers (~display-line-numbers-mode~ and global variant) + lsp-mode + lsp-ui ++ macrostep + magit + magit-imerge + make-mode + man ++ marginalia + markdown-mode -+ markup-faces (=adoc-mode=) ++ markup-faces (~adoc-mode~) + mentor + messages + minibuffer-line + minimap ++ mmm-mode + modeline + mood-line + moody @@ -1512,11 +2144,12 @@ ** Full support for packages or face groups + org-roam + org-superstar + org-table-sticky-header ++ org-tree-slide + org-treescope + origami + outline-mode + outline-minor-faces -+ package (=M-x list-packages=) ++ package (what you get with {{{kbd(M-x list-packages)}}}) + page-break-lines + paradox + paren-face @@ -1532,23 +2165,28 @@ ** Full support for packages or face groups + popup + powerline + powerline-evil ++ prism ([[#h:a94272e0-99da-4149-9e80-11a7e67a2cf2][Note for prism.el]]) + proced + prodigy ++ quick-peek + racket-mode + rainbow-blocks + rainbow-identifiers + rainbow-delimiters + rcirc -+ regexp-builder (also known as =re-builder=) ++ recursion-indicator ++ regexp-builder (also known as ~re-builder~) + rg (rg.el) + ripgrep + rmail + ruler-mode + sallet + selectrum ++ selectrum-prescient + semantic + sesman + shell-script-mode ++ shortdoc + show-paren-mode + shr + side-notes @@ -1557,9 +2195,11 @@ ** Full support for packages or face groups + smart-mode-line + smartparens + smerge ++ solaire + spaceline + speedbar + spell-fu ++ spray + stripes + suggest + switch-window @@ -1570,6 +2210,7 @@ ** Full support for packages or face groups + syslog-mode + table (built-in table.el) + telephone-line ++ terraform-mode + term + tomatinho + transient (pop-up windows such as Magit's) @@ -1580,7 +2221,7 @@ ** Full support for packages or face groups + typescript + undo-tree + vc (built-in mode line status for version control) -+ vc-annotate (=C-x v g=) ++ vc-annotate (the out put of {{{kbd(C-x v g)}}}) + vdiff + vimish-fold + visible-mark @@ -1608,67 +2249,234 @@ ** Full support for packages or face groups GNU Emacs distribution. ** Indirectly covered packages -:PROPERTIES: -:CUSTOM_ID: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 -:END: +:properties: +:custom_id: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 +:end: +#+cindex: Implicitly supported packages These do not require any extra styles because they are configured to inherit from some basic faces. Please confirm. + edit-indirect + evil-owl ++ fortran-mode ++ goggles + i3wm-config-mode + perl-mode + php-mode + rjsx-mode + swift-mode - -** Will NOT be supported -:PROPERTIES: -:CUSTOM_ID: h:6c6e8d94-6782-47fc-9eef-ad78671e9eea -:END: - -I have thus far identified a single package that does fit into the -overarching objective of this project: [[https://github.com/hlissner/emacs-solaire-mode][solaire]]. It basically tries to -cast a less intense background on the main file-visiting buffers, so -that secondary elements like sidebars can have the default (pure -white/black) background. - -I will only cover this package if it ever supports the inverse effect: -less intense colors (but still accessible) for ancillary interfaces -and the intended styles for the content you are actually working on. ++ tab-bar-echo-area * Notes for individual packages -:PROPERTIES: -:CUSTOM_ID: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba -:END: +:properties: +:custom_id: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba +:end: This section covers information that may be of interest to users of individual packages. +** Note for display-fill-column-indicator-mode +:properties: +:custom_id: h:2a602816-bc1b-45bf-9675-4cbbd7bf6cab +:end: + +While designing the style for ~display-fill-column-indicator-mode~, we +stayed close to the mode's defaults: to apply a subtle foreground color +to the ~fill-column-indicator~ face, which blends well with the rest of +theme and is consistent with the role of that mode. This is to not +upset the expectations of users. + +Nevertheless, ~display-fill-column-indicator-mode~ has some known +limitations pertaining to its choice of using typographic characters to +draw its indicator. What should be a continuous vertical line might +appear as a series of dashes in certain contexts or under specific +conditions: a non-default value for ~line-spacing~, scaled and/or +variable-pitch headings have been observed to cause this effect. + +Given that we cannot control such factors, it may be better for affected +users to deviate from the default style of the ~fill-column-indicator~ +face. Instead of setting a foreground color, one could use a background +and have the foreground be indistinguishable from it. For example: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(fill-column-indicator ((,class :background ,bg-inactive + :foreground ,bg-inactive))))) +#+end_src + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +** Note for mmm-mode.el background colors +:properties: +:custom_id: h:99cf0d6c-e478-4e26-9932-3bf3427d13f6 +:end: + +The faces used by {{{file(mmm-mode.el)}}} are expected to have a colorful +background, while they should not touch any foreground value. The idea +is that they must not interfere with existing fontification. Those +background colors need to be distinct from each other, such as an +unambiguous red juxtaposed with a clear blue. + +While this design may be internally consistent with the raison d'être of +that library, it inevitably produces inaccessible color combinations. + +There are two competing goals at play: + +1. Legibility of the text, understood as the contrast ratio between the + background and the foreground. + +2. Semantic precision of each face which entails faithfulness to + color-coding of the underlying background. + +As the Modus themes are designed with the express purpose of conforming +with the first point, we have to forgo the apparent color-coding of the +background elements. Instead we use subtle colors that do not undermine +the legibility of the affected text while they still offer a sense of +added context. + +Users who might prefer to fall below the minimum 7:1 contrast ratio in +relative luminance (the accessibility target we conform with), can opt +to configure the relevant faces on their own. + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +This example uses more vivid background colors, though it comes at the +very high cost of degraded legibility. + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(mmm-cleanup-submode-face ((,class :background ,yellow-refine-bg))) + `(mmm-code-submode-face ((,class :background ,bg-active))) + `(mmm-comment-submode-face ((,class :background ,blue-refine-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-refine-bg))) + `(mmm-default-submode-face ((,class :background ,bg-alt))) + `(mmm-init-submode-face ((,class :background ,magenta-refine-bg))) + `(mmm-output-submode-face ((,class :background ,red-refine-bg))) + `(mmm-special-submode-face ((,class :background ,green-refine-bg))))) +#+end_src + +** Note for prism.el +:properties: +:alt_title: Note for prism +:custom_id: h:a94272e0-99da-4149-9e80-11a7e67a2cf2 +:end: + +This package by Adam Porter, aka "alphapapa" or "github-alphapapa", +implements an alternative to the typical coloration of code. Instead of +highlighting the syntactic constructs, it applies color to different +levels of depth in the code structure. + +As {{{file(prism.el)}}} offers a broad range of customisations, we cannot +style it directly at the theme level: that would run contrary to the +spirit of the package. Instead, we may offer preset color schemes. +Those should offer a starting point for users to adapt to their needs. + +In the following code snippets, we employ the ~modus-themes-with-colors~ +macro: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +These are the minimum recommended settings with 16 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 16) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + magenta + cyan-alt-other + magenta-alt-other + blue + magenta-alt + cyan-alt + red-alt-other + green + fg-main + cyan + yellow + blue-alt + red-alt + green-alt-other + fg-special-warm))) +#+end_src + +With 8 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 8) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-special-cold + magenta + magenta-alt-other + cyan-alt-other + fg-main + blue-alt + red-alt-other + cyan))) +#+end_src + +And this is with 4 colors, which produces results that are the closest +to the themes' default aesthetic: + +#+begin_src emacs-lisp +(setq prism-num-faces 4) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + +If you need to apply desaturation and lightening, you can use what the +{{{file(prism.el)}}} documentation recommends, like this (adapting to the +examples with the 4, 8, 16 colors): + +#+begin_src emacs-lisp +(prism-set-colors + :desaturations (cl-loop for i from 0 below 16 collect (* i 2.5)) + :lightens (cl-loop for i from 0 below 16 collect (* i 2.5)) + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + ** Note on company-mode overlay pop-up -:PROPERTIES: -:CUSTOM_ID: h:20cef8c4-d11f-4053-8b2c-2872925780b1 -:END: +:properties: +:custom_id: h:20cef8c4-d11f-4053-8b2c-2872925780b1 +:end: -By default, the =company-mode= pop-up that lists completion candidates is +By default, the ~company-mode~ pop-up that lists completion candidates is drawn using an overlay. This creates alignment issues every time it is placed above a piece of text that has a different height than the default. The solution recommended by the project's maintainer is to use an -alternative front-end for drawing the pop-up which uses child frames +alternative front-end for drawing the pop-up which draws child frames instead of overlays.[fn:: https://github.com/company-mode/company-mode/issues/1010][fn:: https://github.com/tumashu/company-posframe/] ** Note for ERC escaped color sequences -:PROPERTIES: -:CUSTOM_ID: h:98bdf319-1e32-4469-8a01-771200fba65c -:END: +:properties: +:custom_id: h:98bdf319-1e32-4469-8a01-771200fba65c +:end: -The built-in IRC client =erc= has the ability to colorise any text using -escape sequences that start with =^C= (inserted with =C-q C-c=) and are +The built-in IRC client ~erc~ has the ability to colorise any text using +escape sequences that start with =^C= (inserted with {{{kbd(C-q C-c)}}}) and are followed by a number for the foreground and background.[fn:: This page explains the basics, though it is not specific to Emacs: https://www.mirc.com/colors.html] Possible numbers are 0-15, with the @@ -1681,13 +2489,13 @@ ** Note for ERC escaped color sequences erc-interpret-mirc-color t) #+end_src -As this allows users to make arbitrary combinations, it is impossible to -guarantee a consistently high contrast ratio. All we can we do is -provide guidance on the combinations that satisfy the accessibility -standard of the themes: +As this allows users the chance to make arbitrary combinations, it is +impossible to guarantee a consistently high contrast ratio. All we can +we do is provide guidance on the combinations that satisfy the +accessibility standard of the themes: + Modus Operandi :: Use foreground color 1 for all backgrounds from - 2-15. Like so: =C-q C-c1,N= where =N= is the background. + 2-15. Like so: {{{kbd(C-q C-c1,N)}}} where =N= is the background. + Modus Vivendi :: Use foreground color 0 for all backgrounds from 2-13. Use foreground =1= for backgrounds 14, 15. @@ -1696,35 +2504,38 @@ ** Note for ERC escaped color sequences together, if you must. ** Note for powerline or spaceline -:PROPERTIES: -:CUSTOM_ID: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 -:END: +:properties: +:custom_id: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 +:end: Both Powerline and Spaceline package users will likely need to use the -command =powerline-reset= whenever they make changes to their themes +command ~powerline-reset~ whenever they make changes to their themes and/or modeline setup. -** Note on shr colors -:PROPERTIES: -:CUSTOM_ID: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf -:END: +** Note on SHR colors +:properties: +:custom_id: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf +:end: -Emacs' HTML rendering mechanism (=shr=) may need explicit configuration to -respect the theme's colors instead of whatever specifications the -webpage provides. Consult =C-h v shr-use-colors=. +Emacs' HTML rendering library ({{{file(shr.el)}}}) may need explicit +configuration to respect the theme's colors instead of whatever +specifications the webpage provides. + +Consult {{{kbd(C-h v shr-use-colors)}}}. ** Note for Helm grep -:PROPERTIES: -:CUSTOM_ID: h:d28879a2-8e4b-4525-986e-14c0f873d229 -:END: +:properties: +:custom_id: h:d28879a2-8e4b-4525-986e-14c0f873d229 +:end: There is one face from the Helm package that is meant to highlight the matches of a grep or grep-like command (=ag= or =ripgrep=). It is -=helm-grep-match=. However, this face can only apply when the user does +~helm-grep-match~. However, this face can only apply when the user does not pass =--color=always= as a command-line option for their command. Here is the docstring for that face, which is defined in the -=helm-grep.el= library (view a library with =M-x find-library=). +{{{file(helm-grep.el)}}} library (you can always visit the source code with +{{{kbd(M-x find-library)}}}). #+begin_quote Face used to highlight grep matches. Have no effect when grep backend @@ -1734,23 +2545,23 @@ ** Note for Helm grep The user must either remove =--color= from the flags passed to the grep function, or explicitly use =--color=never= (or equivalent). Helm provides user-facing customization options for controlling the grep -function's parameters, such as =helm-grep-default-command= and -=helm-grep-git-grep-command=. +function's parameters, such as ~helm-grep-default-command~ and +~helm-grep-git-grep-command~. When =--color=always= is in effect, the grep output will use red text in bold letter forms to present the matching part in the list of candidates. That style still meets the contrast ratio target of >= 7:1 (accessibility standard WCAG AAA), because it draws the reference to ANSI color number 1 (red) from the already-supported array of -=ansi-color-names-vector=. +~ansi-color-names-vector~. ** Note on vc-annotate-background-mode -:PROPERTIES: -:CUSTOM_ID: h:5095cbd1-e17a-419c-93e8-951c186362a3 -:END: +:properties: +:custom_id: h:5095cbd1-e17a-419c-93e8-951c186362a3 +:end: -Due to the unique way =vc-annotate= (=C-x v g=) applies colors, support for -its background mode (=vc-annotate-background-mode=) is disabled at the +Due to the unique way ~vc-annotate~ ({{{kbd(C-x v g)}}}) applies colors, support +for its background mode (~vc-annotate-background-mode~) is disabled at the theme level. Normally, such a drastic measure should not belong in a theme: assuming @@ -1760,35 +2571,87 @@ ** Note on vc-annotate-background-mode If there actually is a way to avoid such a course of action, without prejudice to the accessibility standard of this project, then please -report as much or send patches (see [[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). +report as much or send patches ([[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). + +** Note on pdf-tools link hints +:properties: +:custom_id: h:2659d13e-b1a5-416c-9a89-7c3ce3a76574 +:end: + +Hints are drawn by [[https://imagemagick.org/][ImageMagick]], not Emacs, i.e., ImageMagick doesn't +know about the hint face unless you tell ImageMagick about it. By +default, only the foreground and background color attributes are +passed. The below snippet adds to those the various font attributes. As +it queries various faces, specifically ~pdf-links-read-link~ and the faces +it inherits, it needs to be added to your initialization file after +you've customized any faces. + +#+begin_src emacs-lisp +(use-package pdf-links + :config + (let ((spec + (apply #'append + (mapcar + (lambda (name) + (list name + (face-attribute 'pdf-links-read-link + name nil 'default))) + '(:family :width :weight :slant))))) + (setq pdf-links-read-link-convert-commands + `("-density" "96" + "-family" ,(plist-get spec :family) + "-stretch" ,(let* ((width (plist-get spec :width)) + (name (symbol-name width))) + (replace-regexp-in-string "-" "" + (capitalize name))) + "-weight" ,(pcase (plist-get spec :weight) + ('ultra-light "Thin") + ('extra-light "ExtraLight") + ('light "Light") + ('semi-bold "SemiBold") + ('bold "Bold") + ('extra-bold "ExtraBold") + ('ultra-bold "Black") + (_weight "Normal")) + "-style" ,(pcase (plist-get spec :slant) + ('italic "Italic") + ('oblique "Oblique") + (_slant "Normal")) + "-pointsize" "%P" + "-undercolor" "%f" + "-fill" "%b" + "-draw" "text %X,%Y '%c'")))) +#+end_src * Contributing -:PROPERTIES: -:CUSTOM_ID: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 -:END: +:properties: +:custom_id: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 +:end: This section documents the canonical sources of the themes and the ways in which you can contribute to their ongoing development. ** Sources of the themes -:PROPERTIES: -:CUSTOM_ID: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c -:END: +:properties: +:custom_id: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c +:end: +#+cindex: Sources of the themes -The =modus-operandi= and =modus-vivendi= themes are built into Emacs. -Currently they are in the project's =master= branch, which is tracking the -next development release target. +The ~modus-operandi~ and ~modus-vivendi~ themes are built into Emacs. +Currently they are in Emacs' git main branch (trunk), which is tracking +the next development release target. The source code of the themes is [[https://gitlab.com/protesilaos/modus-themes/][available on Gitlab]], for the time being. A [[https://github.com/protesilaos/modus-themes/][mirror on Github]] is also on offer. -An HTML version of this manual is available as an extension to the +An HTML version of this manual is provided as an extension of the [[https://protesilaos.com/modus-themes/][author's personal website]] (does not rely on any non-free code). ** Issues you can help with -:PROPERTIES: -:CUSTOM_ID: h:6536c8d5-3f98-43ab-a787-b94120e735e8 -:END: +:properties: +:custom_id: h:6536c8d5-3f98-43ab-a787-b94120e735e8 +:end: +#+cindex: Contributing A few tasks you can help with: @@ -1802,8 +2665,8 @@ ** Issues you can help with [[#h:111773e2-f26f-4b68-8c4f-9794ca6b9633][Patches require copyright assignment to the FSF]]. -It would be great if your feedback also includes some screenshots, GIFs, -or short videos, as well as further instructions to reproduce a given +It is preferable that your feedback includes some screenshots, GIFs, or +short videos, as well as further instructions to reproduce a given setup. Though this is not a requirement. Whatever you do, bear in mind the overarching objective of the Modus @@ -1813,11 +2676,9 @@ ** Issues you can help with interest of the latter. ** Patches require copyright assignment to the FSF -:PROPERTIES: -:ALT_TITLE: Merge requests -:DESCRIPTION: Legal considerations for code patches -:CUSTOM_ID: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 -:END: +:properties: +:custom_id: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 +:end: Code contributions are most welcome. For any major edit (more than 15 lines, or so, in aggregate per person), you need to make a copyright @@ -1875,48 +2736,57 @@ ** Patches require copyright assignment to the FSF [Which files have you changed so far, and which new files have you written so far?] -Changed a couple of themes that are part of the Emacs source code: - -./etc/themes/modus-operandi-theme.el -./etc/themes/modus-vivendi-theme.el #+end_example * Acknowledgements -:PROPERTIES: -:CUSTOM_ID: h:95c3da23-217f-404e-b5f3-56c75760ebcf -:END: +:properties: +:custom_id: h:95c3da23-217f-404e-b5f3-56c75760ebcf +:end: +#+cindex: Contributors -The Modus themes are a collective effort. Every contribution counts. +The Modus themes are a collective effort. Every bit of work matters. + Author/maintainer :: Protesilaos Stavrou. + Contributions to code or documentation :: Anders Johansson, Basil - L. Contovounesios, Eli Zaretskii, Madhavan Krishnan, Markus Beppler, - Matthew Stevenson, Shreyas Ragavan, Stefan Kangas, Vincent Murphy. - -+ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Alex Griffin, - Alex Peitsinis, Alexey Shmalko, Anders Johansson, André Alexandre - Gomes, Arif Rezai, Basil L. Contovounesios, Damien Cassou, Dario - Gjorgjevski, David Edmondson, Davor Rotim, Divan Santana, Gerry - Agbobada, Gianluca Recchia, Ilja Kocken, Iris Garcia, Len Trigg, - Manuel Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Murilo - Pereira, Nicolas De Jaeghere, Paul Poloskov, Pierre Téchoueyres, Roman - Rudakov, Ryan Phillips, Shreyas Ragavan, Simon Pugnet, Tassilo Horn, - Thibaut Verron, Trey Merkley, Togan Muftuoglu, Uri Sharf, Utkarsh - Singh, Vincent Foley. As well as users: Ben, Eugene, Fourchaux, - Fredrik, Moesasji, Nick, TheBlob42, bepolymathe, dinko, doolio, - jixiuf, okamsn, tycho garen. - -+ Packaging :: Dhavan Vaidya (Debian), Stefan Kangas (core Emacs), - Stefan Monnier (GNU Elpa). + L. Contovounesios, Carlo Zancanaro, Eli Zaretskii, Kostadin Ninev, + Madhavan Krishnan, Markus Beppler, Matthew Stevenson, Nicolas De + Jaeghere, Shreyas Ragavan, Stefan Kangas, Vincent Murphy, Xinglu Chen. + ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, + Burgess Chang, Christian Tietze, Christopher Dimech, Damien Cassou, + Daniel Mendler, Dario Gjorgjevski, David Edmondson, Davor Rotim, Divan + Santana, Gerry Agbobada, Gianluca Recchia, Gustavo Barros, Hörmetjan + Yiltiz, Ilja Kocken, Iris Garcia, Jeremy Friesen, John Haman, Joshua + O'Connor, Kevin Fleming, Kostadin Ninev, Len Trigg, Manuel Uberti, + Mark Burton, Markus Beppler, Michael Goldenberg, Morgan Smith, Murilo + Pereira, Nicolas De Jaeghere, Paul Poloskov, Pete Kazmier, Peter Wu, + Philip K., Pierre Téchoueyres, Roman Rudakov, Ryan Phillips, Sam + Kleinman, Shreyas Ragavan, Simon Pugnet, Tassilo Horn, Thibaut Verron, + Trey Merkley, Togan Muftuoglu, Toon Claes, Uri Sharf, Utkarsh Singh, + Vincent Foley. As well as users: Ben, CsBigDataHub1, Emacs Contrib, + Eugene, Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, bepolymathe, + doolio, fleimgruber, iSeeU, jixiuf, okamsn. + ++ Packaging :: Basil L. Contovounesios, Eli Zaretskii, Glenn Morris, + Mauro Aranda, Richard Stallman, Stefan Kangas (core Emacs), Stefan + Monnier (GNU Elpa), André Alexandre Gomes, Dimakakos Dimos, Morgan + Smith, Nicolas Goaziou (Guix), Dhavan Vaidya (Debian). + Inspiration for certain features :: Bozhidar Batsov (zenburn-theme), Fabrice Niessen (leuven-theme). +Special thanks, in no particular order, to Manuel Uberti and Omar +Antolín Camarena for their long time contributions and insightful +commentary. + * Meta -:PROPERTIES: -:CUSTOM_ID: h:13752581-4378-478c-af17-165b6e76bc1b -:END: +:properties: +:custom_id: h:13752581-4378-478c-af17-165b6e76bc1b +:end: +#+cindex: Development notes If you are curious about the principles that govern the development of this project read the essay [[https://protesilaos.com/codelog/2020-03-17-design-modus-themes-emacs/][On the design of the Modus themes]] @@ -1931,32 +2801,501 @@ * Meta + [[https://protesilaos.com/codelog/2020-07-04-modus-themes-faint-colours/][Modus themes: new "faint syntax" option]] (2020-07-04) + [[https://protesilaos.com/codelog/2020-07-08-modus-themes-nuanced-colours/][Modus themes: major review of "nuanced" colours]] (2020-07-08) + [[https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/][Modus themes: review of blue colours]] (2020-09-14) ++ [[https://protesilaos.com/codelog/2020-12-27-modus-themes-review-rainbow-delimiters/][Modus themes: review rainbow-delimiters faces]] (2020-12-27) ++ [[https://protesilaos.com/codelog/2021-01-11-modus-themes-review-select-faint-colours/][Modus themes: review of select "faint" colours]] (2021-01-11) ++ [[https://protesilaos.com/codelog/2021-02-25-modus-themes-diffs-deuteranopia/][The Modus themes now cover deuteranopia in diffs]] (2021-02-25) -And here are the canonical sources for this project's documentation: +And here are the canonical sources of this project's documentation: + Manual :: <https://protesilaos.com/modus-themes> + Change Log :: <https://protesilaos.com/modus-themes-changelog> + Screenshots :: <https://protesilaos.com/modus-themes-pictures> -* External projects (ports) -:PROPERTIES: -:CUSTOM_ID: h:21adb7c8-2208-41e8-803c-052e42e2c05d -:END: - -The present section documents projects that extend the scope of the -Modus themes. The following list will be updated whenever relevant -information is brought to my attention. If you already have or intend -to produce such a port, feel welcome [[https://protesilaos.com/contact][to contact me]]. - -+ Modus exporter :: This is [[https://github.com/polaris64/modus-exporter][an Elisp library written by Simon Pugnet]]. - Licensed under the terms of the GNU General Public License. It is - meant to capture the color values of the active Modus theme (Operandi - or Vivendi) and output it as a valid theme for some other application. - * GNU Free Documentation License -:PROPERTIES: -:APPENDIX: t -:CUSTOM_ID: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 -:END: +:properties: +:appendix: t +:custom_id: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 +:end: #+texinfo: @include doclicense.texi + +#+begin_export html + + GNU Free Documentation License + Version 1.3, 3 November 2008 + + + Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. + <https://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +0. PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document "free" in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of "copyleft", which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + + +1. APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The "Document", below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as "you". You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A "Modified Version" of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A "Secondary Section" is a named appendix or a front-matter section of +the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall +subject (or to related matters) and contains nothing that could fall +directly within that overall subject. (Thus, if the Document is in +part a textbook of mathematics, a Secondary Section may not explain +any mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The "Invariant Sections" are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The "Cover Texts" are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A "Transparent" copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not "Transparent" is called "Opaque". + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, LaTeX input format, SGML +or XML using a publicly available DTD, and standard-conforming simple +HTML, PostScript or PDF designed for human modification. Examples of +transparent image formats include PNG, XCF and JPG. Opaque formats +include proprietary formats that can be read and edited only by +proprietary word processors, SGML or XML for which the DTD and/or +processing tools are not generally available, and the +machine-generated HTML, PostScript or PDF produced by some word +processors for output purposes only. + +The "Title Page" means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, "Title Page" means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +The "publisher" means any person or entity that distributes copies of +the Document to the public. + +A section "Entitled XYZ" means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as "Acknowledgements", +"Dedications", "Endorsements", or "History".) To "Preserve the Title" +of such a section when you modify the Document means that it remains a +section "Entitled XYZ" according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + +2. VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no +other conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + + +3. COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to +give them a chance to provide you with an updated version of the +Document. + + +4. MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +A. Use in the Title Page (and on the covers, if any) a title distinct + from that of the Document, and from those of previous versions + (which should, if there were any, be listed in the History section + of the Document). You may use the same title as a previous version + if the original publisher of that version gives permission. +B. List on the Title Page, as authors, one or more persons or entities + responsible for authorship of the modifications in the Modified + Version, together with at least five of the principal authors of the + Document (all of its principal authors, if it has fewer than five), + unless they release you from this requirement. +C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. +D. Preserve all the copyright notices of the Document. +E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. +F. Include, immediately after the copyright notices, a license notice + giving the public permission to use the Modified Version under the + terms of this License, in the form shown in the Addendum below. +G. Preserve in that license notice the full lists of Invariant Sections + and required Cover Texts given in the Document's license notice. +H. Include an unaltered copy of this License. +I. Preserve the section Entitled "History", Preserve its Title, and add + to it an item stating at least the title, year, new authors, and + publisher of the Modified Version as given on the Title Page. If + there is no section Entitled "History" in the Document, create one + stating the title, year, authors, and publisher of the Document as + given on its Title Page, then add an item describing the Modified + Version as stated in the previous sentence. +J. Preserve the network location, if any, given in the Document for + public access to a Transparent copy of the Document, and likewise + the network locations given in the Document for previous versions + it was based on. These may be placed in the "History" section. + You may omit a network location for a work that was published at + least four years before the Document itself, or if the original + publisher of the version it refers to gives permission. +K. For any section Entitled "Acknowledgements" or "Dedications", + Preserve the Title of the section, and preserve in the section all + the substance and tone of each of the contributor acknowledgements + and/or dedications given therein. +L. Preserve all the Invariant Sections of the Document, + unaltered in their text and in their titles. Section numbers + or the equivalent are not considered part of the section titles. +M. Delete any section Entitled "Endorsements". Such a section + may not be included in the Modified Version. +N. Do not retitle any existing section to be Entitled "Endorsements" + or to conflict in title with any Invariant Section. +O. Preserve any Warranty Disclaimers. + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled "Endorsements", provided it contains +nothing but endorsements of your Modified Version by various +parties--for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + + +5. COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled "History" +in the various original documents, forming one section Entitled +"History"; likewise combine any sections Entitled "Acknowledgements", +and any sections Entitled "Dedications". You must delete all sections +Entitled "Endorsements". + + +6. COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other +documents released under this License, and replace the individual +copies of this License in the various documents with a single copy +that is included in the collection, provided that you follow the rules +of this License for verbatim copying of each of the documents in all +other respects. + +You may extract a single document from such a collection, and +distribute it individually under this License, provided you insert a +copy of this License into the extracted document, and follow this +License in all other respects regarding verbatim copying of that +document. + + +7. AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an "aggregate" if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + + +8. TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled "Acknowledgements", +"Dedications", or "History", the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + + +9. TERMINATION + +You may not copy, modify, sublicense, or distribute the Document +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense, or distribute it is void, and +will automatically terminate your rights under this License. + +However, if you cease all violation of this License, then your license +from a particular copyright holder is reinstated (a) provisionally, +unless and until the copyright holder explicitly and finally +terminates your license, and (b) permanently, if the copyright holder +fails to notify you of the violation by some reasonable means prior to +60 days after the cessation. + +Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + +Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, receipt of a copy of some or all of the same material does +not give you any rights to use it. + + +10. FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions of the +GNU Free Documentation License from time to time. Such new versions +will be similar in spirit to the present version, but may differ in +detail to address new problems or concerns. See +https://www.gnu.org/licenses/. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License "or any later version" applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. If the Document +specifies that a proxy can decide which future versions of this +License can be used, that proxy's public statement of acceptance of a +version permanently authorizes you to choose that version for the +Document. + +11. RELICENSING + +"Massive Multiauthor Collaboration Site" (or "MMC Site") means any +World Wide Web server that publishes copyrightable works and also +provides prominent facilities for anybody to edit those works. A +public wiki that anybody can edit is an example of such a server. A +"Massive Multiauthor Collaboration" (or "MMC") contained in the site +means any set of copyrightable works thus published on the MMC site. + +"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 +license published by Creative Commons Corporation, a not-for-profit +corporation with a principal place of business in San Francisco, +California, as well as future copyleft versions of that license +published by that same organization. + +"Incorporate" means to publish or republish a Document, in whole or in +part, as part of another Document. + +An MMC is "eligible for relicensing" if it is licensed under this +License, and if all works that were first published under this License +somewhere other than this MMC, and subsequently incorporated in whole or +in part into the MMC, (1) had no cover texts or invariant sections, and +(2) were thus incorporated prior to November 1, 2008. + +The operator of an MMC Site may republish an MMC contained in the site +under CC-BY-SA on the same site at any time before August 1, 2009, +provided the MMC is eligible for relicensing. + + +ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + + Copyright (c) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. + A copy of the license is included in the section entitled "GNU + Free Documentation License". + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the "with...Texts." line with this: + + with the Invariant Sections being LIST THEIR TITLES, with the + Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. +#+end_export + +#+html: <!-- + +* Indices +:properties: +:custom_id: h:55104b26-8e94-46cf-9975-43ea00316489 +:end: + +** Function index +:properties: +:index: fn +:custom_id: h:6bec5005-529c-4521-ae05-3d990baffb5b +:end: + +** Variable index +:properties: +:index: vr +:custom_id: h:16ad8df6-b015-40a9-9259-03d4f7a23ee4 +:end: + +** Concept index +:properties: +:index: cp +:custom_id: h:6aa7a656-884b-4c39-b759-087e412eec13 +:end: + +#+html: --> diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el index 346000a093..ce2c75e9a8 100644 --- a/etc/themes/modus-operandi-theme.el +++ b/etc/themes/modus-operandi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Operandi is the light variant of the Modus themes (Modus +;; Vivendi is the dark one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-operandi-theme-slanted-constructs (boolean) -;; modus-operandi-theme-bold-constructs (boolean) -;; modus-operandi-theme-variable-pitch-headings (boolean) -;; modus-operandi-theme-no-mixed-fonts (boolean) -;; modus-operandi-theme-headings (alist) -;; modus-operandi-theme-scale-headings (boolean) -;; modus-operandi-theme-fringes (choice) -;; modus-operandi-theme-org-blocks (choice) -;; modus-operandi-theme-prompts (choice) -;; modus-operandi-theme-mode-line (choice) -;; modus-operandi-theme-diffs (choice) -;; modus-operandi-theme-faint-syntax (boolean) -;; modus-operandi-theme-intense-hl-line (boolean) -;; modus-operandi-theme-intense-paren-match (boolean) -;; modus-operandi-theme-no-link-underline (boolean) -;; modus-operandi-theme-completions (choice) -;; modus-operandi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-operandi-theme-scale-1 1.05 -;; modus-operandi-theme-scale-2 1.1 -;; modus-operandi-theme-scale-3 1.15 -;; modus-operandi-theme-scale-4 1.2 -;; modus-operandi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f -(deftheme modus-operandi - "Light theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Operandi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-operandi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-operandi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-operandi-theme-proportional-fonts - 'modus-operandi-theme-variable-pitch-headings "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-section-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-operandi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-operandi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-operandi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-operandi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-2 1.1 - "Font size slightly larger than `modus-operandi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-3 1.15 - "Font size slightly larger than `modus-operandi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-4 1.2 - "Font size slightly larger than `modus-operandi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-5 1.3 - "Font size slightly larger than `modus-operandi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-operandi-theme-visible-fringes - 'modus-operandi-theme-fringes - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-operandi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-operandi-theme-distinct-org-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-operandi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-operandi-theme-3d-modeline - 'modus-operandi-theme-mode-line - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-operandi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-operandi-theme-subtle-diffs - 'modus-operandi-theme-diffs - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-operandi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-operandi-theme-intense-standard-completions - 'modus-operandi-theme-completions - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-operandi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-operandi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-operandi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-operandi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-operandi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-operandi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-operandi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-operandi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-operandi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-operandi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-operandi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-operandi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-operandi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-operandi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-operandi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-operandi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-operandi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-operandi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-operandi-theme-heading-p (key) - "Query style of KEY in `modus-operandi-theme-headings'." - (cdr (assoc key modus-operandi-theme-headings))) - -(defun modus-operandi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-operandi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-operandi-theme-heading-p `,level)) - (style (or key (modus-operandi-theme-heading-p t))) - (var (if modus-operandi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-operandi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-operandi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-operandi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-operandi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-operandi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-operandi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-operandi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-operandi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-operandi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-operandi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-operandi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-operandi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-operandi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-operandi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-operandi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-operandi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-operandi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-operandi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-operandi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-operandi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-operandi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-operandi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#ffffff") ("fg-main" . "#000000") - ("bg-alt" . "#f0f0f0") ("fg-alt" . "#505050") - ("bg-dim" . "#f8f8f8") ("fg-dim" . "#282828") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#d7d7d7") ("fg-active" . "#0a0a0a") - ("bg-inactive" . "#efefef") ("fg-inactive" . "#404148") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#dde3f4") ("fg-special-cold" . "#093060") - ("bg-special-mild" . "#c4ede0") ("fg-special-mild" . "#184034") - ("bg-special-warm" . "#f0e0d4") ("fg-special-warm" . "#5d3026") - ("bg-special-calm" . "#f8ddea") ("fg-special-calm" . "#61284f") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#a60000") ("green" . "#005e00") - ("yellow" . "#813e00") ("blue" . "#0031a9") - ("magenta" . "#721045") ("cyan" . "#00538b") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#972500") ("green-alt" . "#315b00") - ("yellow-alt" . "#70480f") ("blue-alt" . "#2544bb") - ("magenta-alt" . "#8f0075") ("cyan-alt" . "#30517f") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#a0132f") ("green-alt-other" . "#145c33") - ("yellow-alt-other" . "#863927") ("blue-alt-other" . "#0000c0") - ("magenta-alt-other" . "#5317ac") ("cyan-alt-other" . "#005a5f") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-operandi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#7f1010") ("green-faint" . "#104410") - ("yellow-faint" . "#5f4400") ("blue-faint" . "#002f88") - ("magenta-faint" . "#752f50") ("cyan-faint" . "#12506f") - - ("red-alt-faint" . "#702f00") ("green-alt-faint" . "#30440f") - ("yellow-alt-faint" . "#5d5000") ("blue-alt-faint" . "#003f78") - ("magenta-alt-faint" . "#702565") ("cyan-alt-faint" . "#354f6f") - - ("red-alt-other-faint" . "#7f002f") ("green-alt-other-faint" . "#0f443f") - ("yellow-alt-other-faint" . "#5e3a20") ("blue-alt-other-faint" . "#1f2f6f") - ("magenta-alt-other-faint" . "#5f3f7f") ("cyan-alt-other-faint" . "#2e584f") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#5f0000") ("green-nuanced" . "#004000") - ("yellow-nuanced" . "#3f3000") ("blue-nuanced" . "#201f55") - ("magenta-nuanced" . "#541f4f") ("cyan-nuanced" . "#0f3360") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#fff1f0") ("green-nuanced-bg" . "#ecf7ed") - ("yellow-nuanced-bg" . "#fff3da") ("blue-nuanced-bg" . "#f3f3ff") - ("magenta-nuanced-bg" . "#fdf0ff") ("cyan-nuanced-bg" . "#ebf6fa") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#b60000") ("green-intense" . "#006800") - ("yellow-intense" . "#904200") ("blue-intense" . "#1111ee") - ("magenta-intense" . "#7000e0") ("cyan-intense" . "#205b93") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#f2b0a2") ("green-subtle-bg" . "#aecf90") - ("yellow-subtle-bg" . "#e4c340") ("blue-subtle-bg" . "#b5d0ff") - ("magenta-subtle-bg" . "#f0d3ff") ("cyan-subtle-bg" . "#c0efff") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#ff8892") ("green-intense-bg" . "#5ada88") - ("yellow-intense-bg" . "#f5df23") ("blue-intense-bg" . "#6aaeff") - ("magenta-intense-bg" . "#d5baff") ("cyan-intense-bg" . "#42cbd4") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#ffcccc") ("red-refine-fg" . "#780000") - ("green-refine-bg" . "#aceaac") ("green-refine-fg" . "#004c00") - ("yellow-refine-bg" . "#fff29a") ("yellow-refine-fg" . "#604000") - ("blue-refine-bg" . "#8ac7ff") ("blue-refine-fg" . "#002288") - ("magenta-refine-bg" . "#ffccff") ("magenta-refine-fg" . "#770077") - ("cyan-refine-bg" . "#8eecf4") ("cyan-refine-fg" . "#004850") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#8a0000") ("green-active" . "#004c2e") - ("yellow-active" . "#702d1f") ("blue-active" . "#0030b4") - ("magenta-active" . "#5c2092") ("cyan-active" . "#003f8a") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#f08290") ("green-fringe-bg" . "#62c86a") - ("yellow-fringe-bg" . "#dbba3f") ("blue-fringe-bg" . "#82afff") - ("magenta-fringe-bg" . "#e0a3ff") ("cyan-fringe-bg" . "#2fcddf") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#f2eff3") - ("bg-hl-line-intense" . "#e0e0e0") - ("bg-hl-alt" . "#fbeee0") - ("bg-hl-alt-intense" . "#e8dfd1") - ("bg-paren-match" . "#e0af82") - ("bg-paren-match-intense" . "#c488ff") - ("bg-region" . "#bcbcbc") - - ("bg-tab-bar" . "#d5d5d5") - ("bg-tab-active" . "#f6f6f6") - ("bg-tab-inactive" . "#bdbdbd") - ("fg-tab-active" . "#30169e") - - ("fg-escape-char-construct" . "#8b1030") - ("fg-escape-char-backslash" . "#654d0f") - - ("fg-lang-error" . "#9f004f") - ("fg-lang-warning" . "#604f0f") - ("fg-lang-note" . "#4040ae") - - ("fg-window-divider-inner" . "#888888") - ("fg-window-divider-outer" . "#585858") - - ("fg-unfocused" . "#56576d") - - ("bg-header" . "#e5e5e5") ("fg-header" . "#2a2a2a") - - ("bg-whitespace" . "#fff8fc") ("fg-whitespace" . "#645060") - - ("bg-diff-heading" . "#b7c2dd") ("fg-diff-heading" . "#043355") - ("bg-diff-added" . "#d4fad4") ("fg-diff-added" . "#004500") - ("bg-diff-changed" . "#fcefcf") ("fg-diff-changed" . "#524200") - ("bg-diff-removed" . "#ffe8ef") ("fg-diff-removed" . "#691616") - - ("bg-diff-refine-added" . "#94cf94") ("fg-diff-refine-added" . "#002a00") - ("bg-diff-refine-changed" . "#cccf8f") ("fg-diff-refine-changed" . "#302010") - ("bg-diff-refine-removed" . "#daa2b0") ("fg-diff-refine-removed" . "#400000") - - ("bg-diff-focus-added" . "#bbeabb") ("fg-diff-focus-added" . "#002c00") - ("bg-diff-focus-changed" . "#ecdfbf") ("fg-diff-focus-changed" . "#392900") - ("bg-diff-focus-removed" . "#efcbcf") ("fg-diff-focus-removed" . "#4a0000") - - ("bg-diff-neutral-0" . "#979797") ("fg-diff-neutral-0" . "#040404") - ("bg-diff-neutral-1" . "#b0b0b0") ("fg-diff-neutral-1" . "#252525") - ("bg-diff-neutral-2" . "#cccccc") ("fg-diff-neutral-2" . "#3a3a3a") - - ("bg-mark-sel" . "#a0f0cf") ("fg-mark-sel" . "#005040") - ("bg-mark-del" . "#ffccbb") ("fg-mark-del" . "#840040") - ("bg-mark-alt" . "#f5d88f") ("fg-mark-alt" . "#782900")) - "The entire palette of `modus-operandi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-operandi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-operandi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-operandi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-operandi-theme-default-colors-alist - modus-operandi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-operandi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-operandi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-operandi-theme-with-color-variables - (custom-theme-set-faces - 'modus-operandi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-operandi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-operandi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-operandi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-operandi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-operandi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-operandi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-operandi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-operandi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-operandi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-operandi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-operandi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-operandi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-operandi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-operandi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-operandi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-operandi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-operandi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-operandi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-operandi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-operandi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-operandi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-operandi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-operandi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-operandi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-operandi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-operandi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-operandi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-alt]) - `(xterm-color-names-bright [,fg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,bg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-operandi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-operandi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-operandi + "Accessible and customizable light theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-operandi) (provide-theme 'modus-operandi) -(provide 'modus-operandi-theme) - ;;; modus-operandi-theme.el ends here diff --git a/etc/themes/modus-themes.el b/etc/themes/modus-themes.el new file mode 100644 index 0000000000..79846dbf3a --- /dev/null +++ b/etc/themes/modus-themes.el @@ -0,0 +1,6436 @@ +;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- + +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. + +;; Author: Protesilaos Stavrou <info@protesilaos.com> +;; URL: https://gitlab.com/protesilaos/modus-themes +;; Version: 1.2.0 +;; Package-Requires: ((emacs "26.1")) +;; Keywords: faces, theme, accessibility + +;; This file is part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <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). +;; This file contains all customization options, helper functions, +;; interactive commands, and face specifications. Please refer to the +;; official Info manual for further documentation (distributed with the +;; themes, or available at: <https://protesilaos.com/modus-themes>). +;; +;; The themes share the following customization options, all of which +;; are disabled by default (nil): +;; +;; modus-themes-slanted-constructs (boolean) +;; modus-themes-bold-constructs (boolean) +;; modus-themes-variable-pitch-headings (boolean) +;; modus-themes-variable-pitch-ui (boolean) +;; modus-themes-no-mixed-fonts (boolean) +;; modus-themes-headings (alist) +;; modus-themes-scale-headings (boolean) +;; modus-themes-fringes (choice) +;; modus-themes-lang-checkers (choice) +;; modus-themes-org-blocks (choice) +;; modus-themes-org-habit (choice) +;; modus-themes-prompts (choice) +;; modus-themes-mode-line (choice) +;; modus-themes-diffs (choice) +;; modus-themes-syntax (choice) +;; modus-themes-intense-hl-line (boolean) +;; modus-themes-subtle-line-numbers (boolean) +;; modus-themes-paren-match (choice) +;; modus-themes-region (choice) +;; modus-themes-links (choice) +;; modus-themes-completions (choice) +;; +;; The default scale for headings is as follows (it can be customized as +;; well---remember, no scaling takes place by default): +;; +;; modus-themes-scale-1 1.05 +;; modus-themes-scale-2 1.1 +;; modus-themes-scale-3 1.15 +;; modus-themes-scale-4 1.2 +;; modus-themes-scale-5 1.3 +;; +;; There also exist two unique customization options for overriding +;; color palette values. The specifics are documented in the manual. +;; The symbols are: +;; +;; modus-themes-operandi-color-overrides (alist) +;; modus-themes-vivendi-color-overrides (alist) +;; +;; Below is the list of explicitly supported packages or face groups +;; (there are implicitly supported packages as well, which inherit from +;; font-lock or some basic group). You are encouraged to report any +;; missing package or change you would like to see. +;; +;; ace-window +;; ag +;; alert +;; all-the-icons +;; annotate +;; anzu +;; apropos +;; apt-sources-list +;; artbollocks-mode +;; auctex and TeX +;; auto-dim-other-buffers +;; avy +;; awesome-tray +;; bbdb +;; binder +;; bm +;; bongo +;; boon +;; breakpoint (provided by built-in gdb-mi.el) +;; buffer-expose +;; calendar and diary +;; calfw +;; centaur-tabs +;; cfrs +;; change-log and log-view (`vc-print-log' and `vc-print-root-log') +;; cider +;; circe +;; color-rg +;; column-enforce-mode +;; company-mode +;; company-posframe +;; compilation-mode +;; completions +;; consult +;; counsel +;; counsel-css +;; counsel-notmuch +;; counsel-org-capture-string +;; cov +;; cperl-mode +;; csv-mode +;; ctrlf +;; custom (M-x customize) +;; dap-mode +;; dashboard (emacs-dashboard) +;; deadgrep +;; debbugs +;; define-word +;; deft +;; dictionary +;; diff-hl +;; diff-mode +;; dim-autoload +;; dir-treeview +;; dired +;; dired-async +;; dired-git +;; dired-git-info +;; dired-narrow +;; dired-subtree +;; diredc +;; diredfl +;; diredp (dired+) +;; disk-usage +;; display-fill-column-indicator-mode +;; doom-modeline +;; dynamic-ruler +;; easy-jekyll +;; easy-kill +;; ebdb +;; ediff +;; eglot +;; el-search +;; eldoc +;; eldoc-box +;; elfeed +;; elfeed-score +;; emms +;; enhanced-ruby-mode +;; epa +;; equake +;; erc +;; eros +;; ert +;; eshell +;; eshell-fringe-status +;; eshell-git-prompt +;; eshell-prompt-extras (epe) +;; eshell-syntax-highlighting +;; evil (evil-mode) +;; evil-goggles +;; evil-snipe +;; evil-visual-mark-mode +;; eww +;; exwm +;; eyebrowse +;; fancy-dabbrev +;; flycheck +;; flycheck-color-mode-line +;; flycheck-indicator +;; flycheck-posframe +;; flymake +;; flyspell +;; flyspell-correct +;; flx +;; freeze-it +;; frog-menu +;; focus +;; fold-this +;; font-lock (generic syntax highlighting) +;; forge +;; fountain (fountain-mode) +;; geiser +;; git-commit +;; git-gutter (and variants) +;; git-lens +;; git-rebase +;; git-timemachine +;; git-walktree +;; gnus +;; golden-ratio-scroll-screen +;; helm +;; helm-ls-git +;; helm-switch-shell +;; helm-xref +;; helpful +;; highlight-blocks +;; highlight-defined +;; highlight-escape-sequences (`hes-mode') +;; highlight-indentation +;; highlight-numbers +;; highlight-symbol +;; highlight-tail +;; highlight-thing +;; hl-defined +;; hl-fill-column +;; hl-line-mode +;; hl-todo +;; hydra +;; hyperlist +;; ibuffer +;; icomplete +;; ido-mode +;; iedit +;; iflipb +;; imenu-list +;; indium +;; info +;; info-colors +;; interaction-log +;; ioccur +;; isearch, occur, etc. +;; isl (isearch-light) +;; ivy +;; ivy-posframe +;; jira (org-jira) +;; journalctl-mode +;; js2-mode +;; julia +;; jupyter +;; kaocha-runner +;; keycast +;; line numbers (`display-line-numbers-mode' and global variant) +;; lsp-mode +;; lsp-ui +;; macrostep +;; magit +;; magit-imerge +;; make-mode +;; man +;; marginalia +;; markdown-mode +;; markup-faces (`adoc-mode') +;; mentor +;; messages +;; minibuffer-line +;; minimap +;; mmm-mode +;; modeline +;; mood-line +;; mpdel +;; mu4e +;; mu4e-conversation +;; multiple-cursors +;; neotree +;; no-emoji +;; notmuch +;; num3-mode +;; nxml-mode +;; objed +;; orderless +;; org +;; org-journal +;; org-noter +;; org-pomodoro +;; org-recur +;; org-roam +;; org-superstar +;; org-table-sticky-header +;; org-tree-slide +;; org-treescope +;; origami +;; outline-mode +;; outline-minor-faces +;; package (M-x list-packages) +;; page-break-lines +;; paradox +;; paren-face +;; parrot +;; pass +;; pdf-tools +;; persp-mode +;; perspective +;; phi-grep +;; phi-search +;; pkgbuild-mode +;; pomidor +;; popup +;; powerline +;; powerline-evil +;; prism (see "Note for prism.el" in the manual) +;; proced +;; prodigy +;; quick-peek +;; racket-mode +;; rainbow-blocks +;; rainbow-identifiers +;; rainbow-delimiters +;; rcirc +;; recursion-indicator +;; regexp-builder (also known as `re-builder') +;; rg +;; ripgrep +;; rmail +;; ruler-mode +;; sallet +;; selectrum +;; selectrum-prescient +;; semantic +;; sesman +;; shell-script-mode +;; shortdoc +;; show-paren-mode +;; shr +;; side-notes +;; sieve-mode +;; skewer-mode +;; smart-mode-line +;; smartparens +;; smerge +;; spaceline +;; speedbar +;; spell-fu +;; spray +;; stripes +;; suggest +;; switch-window +;; swiper +;; swoop +;; sx +;; symbol-overlay +;; tab-bar-mode +;; tab-line-mode +;; syslog-mode +;; table (built-in table.el) +;; telephone-line +;; terraform-mode +;; term +;; tomatinho +;; transient (pop-up windows like Magit's) +;; trashed +;; treemacs +;; tty-menu +;; tuareg +;; typescript +;; undo-tree +;; vc (built-in mode line status for version control) +;; vc-annotate (C-x v g) +;; vdiff +;; vimish-fold +;; visible-mark +;; visual-regexp +;; volatile-highlights +;; vterm +;; wcheck-mode +;; web-mode +;; wgrep +;; which-function-mode +;; which-key +;; whitespace-mode +;; window-divider-mode +;; winum +;; writegood-mode +;; woman +;; xah-elisp-mode +;; xref +;; xterm-color (and ansi-colors) +;; yaml-mode +;; yasnippet +;; ztree +;; +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): +;; +;; - modus-operandi-theme.el (Light theme) +;; - modus-vivendi-theme.el (Dark theme) + +;;; Code: + +\f + +(eval-when-compile (require 'cl-lib)) + +(defgroup modus-themes () + "Options for `modus-operandi', `modus-vivendi'." + :group 'faces + :link '(info-link "(modus-themes) Top") + :prefix "modus-themes-" + :tag "Modus Themes") + +;;; Variables for each theme variant + +;;;; Modus Operandi + +(define-obsolete-variable-alias + 'modus-operandi-theme-default-colors-alist + 'modus-themes-colors-operandi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-operandi + 'modus-themes-operandi-colors + "1.1.0") + +(defconst modus-themes-operandi-colors + '(;; base values + (bg-main . "#ffffff") (fg-main . "#000000") + (bg-dim . "#f8f8f8") (fg-dim . "#282828") + (bg-alt . "#f0f0f0") (fg-alt . "#505050") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") + (bg-inactive . "#efefef") (fg-inactive . "#404148") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") + (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") + (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") + (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#a60000") + (red-alt . "#972500") + (red-alt-other . "#a0132f") + (red-faint . "#7f1010") + (red-alt-faint . "#702f00") + (red-alt-other-faint . "#7f002f") + (green . "#005e00") + (green-alt . "#315b00") + (green-alt-other . "#145c33") + (green-faint . "#104410") + (green-alt-faint . "#30440f") + (green-alt-other-faint . "#0f443f") + (yellow . "#813e00") + (yellow-alt . "#70480f") + (yellow-alt-other . "#863927") + (yellow-faint . "#5f4400") + (yellow-alt-faint . "#5d5000") + (yellow-alt-other-faint . "#5e3a20") + (blue . "#0031a9") + (blue-alt . "#2544bb") + (blue-alt-other . "#0000c0") + (blue-faint . "#003497") + (blue-alt-faint . "#0f3d8c") + (blue-alt-other-faint . "#001087") + (magenta . "#721045") + (magenta-alt . "#8f0075") + (magenta-alt-other . "#5317ac") + (magenta-faint . "#752f50") + (magenta-alt-faint . "#7b206f") + (magenta-alt-other-faint . "#55348e") + (cyan . "#00538b") + (cyan-alt . "#30517f") + (cyan-alt-other . "#005a5f") + (cyan-faint . "#005077") + (cyan-alt-faint . "#354f6f") + (cyan-alt-other-faint . "#125458") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#b60000") + (orange-intense . "#904200") + (green-intense . "#006800") + (yellow-intense . "#605b00") + (blue-intense . "#1f1fce") + (magenta-intense . "#a8007f") + (purple-intense . "#7f10d0") + (cyan-intense . "#005f88") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#8a0000") + (green-active . "#004c2e") + (yellow-active . "#702d1f") + (blue-active . "#0030b4") + (magenta-active . "#5c2092") + (cyan-active . "#003f8a") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#f2b0a2") + (red-intense-bg . "#ff8892") + (green-subtle-bg . "#aecf90") + (green-intense-bg . "#5ada88") + (yellow-subtle-bg . "#e4c340") + (yellow-intense-bg . "#f5df23") + (blue-subtle-bg . "#b5d0ff") + (blue-intense-bg . "#6aaeff") + (magenta-subtle-bg . "#f0d3ff") + (magenta-intense-bg . "#d5baff") + (cyan-subtle-bg . "#c0efff") + (cyan-intense-bg . "#42cbd4") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#f08290") + (green-fringe-bg . "#62c86a") + (yellow-fringe-bg . "#dbba3f") + (blue-fringe-bg . "#82afff") + (magenta-fringe-bg . "#e0a3ff") + (cyan-fringe-bg . "#2fcddf") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#ef6f79") + (red-graph-1-bg . "#ff9f9f") + (green-graph-0-bg . "#49d239") + (green-graph-1-bg . "#6dec6d") + (yellow-graph-0-bg . "#efec08") + (yellow-graph-1-bg . "#dbff4e") + (blue-graph-0-bg . "#55a2f0") + (blue-graph-1-bg . "#7fcfff") + (magenta-graph-0-bg . "#ba86ef") + (magenta-graph-1-bg . "#e7afff") + (cyan-graph-0-bg . "#30d3f0") + (cyan-graph-1-bg . "#6fefff") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") + (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") + (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") + (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") + (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") + (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") + (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") + (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") + (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") + (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") + (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#f2eff3") + (bg-hl-line-intense . "#e0e0e0") + (bg-hl-alt . "#fbeee0") + (bg-hl-alt-intense . "#e8dfd1") + (bg-paren-match . "#e0af82") + (bg-paren-match-intense . "#c488ff") + (bg-region . "#bcbcbc") + + (bg-tab-bar . "#d5d5d5") + (bg-tab-active . "#f6f6f6") + (bg-tab-inactive . "#bdbdbd") + (bg-tab-inactive-alt . "#999999") + (fg-tab-active . "#30169e") + + (fg-escape-char-construct . "#8b1030") + (fg-escape-char-backslash . "#654d0f") + + (fg-lang-error . "#9f004f") + (fg-lang-warning . "#604f0f") + (fg-lang-note . "#4040ae") + (fg-lang-underline-error . "#ef4f54") + (fg-lang-underline-warning . "#cf9f00") + (fg-lang-underline-note . "#3f6fef") + + (fg-window-divider-inner . "#888888") + (fg-window-divider-outer . "#585858") + + (fg-unfocused . "#56576d") + + (fg-docstring . "#2a486a") + (fg-comment-yellow . "#5f4400") + + (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") + + (bg-whitespace . "#f5efef") (fg-whitespace . "#624956") + + (bg-diff-heading . "#b7cfe0") (fg-diff-heading . "#041645") + (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") + (bg-diff-added-deuteran . "#daefff") (fg-diff-added-deuteran . "#002044") + (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") + (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") + + (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") + (bg-diff-refine-added-deuteran . "#77c0ef") (fg-diff-refine-added-deuteran . "#000035") + (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") + (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") + + (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") + (bg-diff-focus-added-deuteran . "#bacfff") (fg-diff-focus-added-deuteran . "#001755") + (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") + (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") + + (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") + (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") + (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") + + (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") + (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") + (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) + "The entire palette of `modus-operandi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +;;;; Modus Vivendi + +(define-obsolete-variable-alias + 'modus-vivendi-theme-default-colors-alist + 'modus-themes-colors-vivendi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-vivendi + 'modus-themes-vivendi-colors + "1.1.0") + +(defconst modus-themes-vivendi-colors + '(;; base values + (bg-main . "#000000") (fg-main . "#ffffff") + (bg-dim . "#110b11") (fg-dim . "#e0e6f0") + (bg-alt . "#181a20") (fg-alt . "#a8a8a8") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#323232") (fg-active . "#f4f4f4") + (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") + (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") + (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") + (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#ff8059") + (red-alt . "#f4923b") + (red-alt-other . "#ff9977") + (red-faint . "#ffa0a0") + (red-alt-faint . "#f5aa80") + (red-alt-other-faint . "#ff9fbf") + (green . "#44bc44") + (green-alt . "#70c900") + (green-alt-other . "#00cd68") + (green-faint . "#88cf88") + (green-alt-faint . "#a8cf88") + (green-alt-other-faint . "#88cfaf") + (yellow . "#eecc00") + (yellow-alt . "#cfdf30") + (yellow-alt-other . "#f0ce43") + (yellow-faint . "#d2b580") + (yellow-alt-faint . "#cabf77") + (yellow-alt-other-faint . "#d0ba95") + (blue . "#2fafff") + (blue-alt . "#79a8ff" ) + (blue-alt-other . "#00bcff") + (blue-faint . "#92baff") + (blue-alt-faint . "#a0acf5") + (blue-alt-other-faint . "#87c8ff") + (magenta . "#feacd0") + (magenta-alt . "#f78fe7") + (magenta-alt-other . "#b6a0ff") + (magenta-faint . "#e0b2d6") + (magenta-alt-faint . "#ef9fe4") + (magenta-alt-other-faint . "#cfa6ff") + (cyan . "#00d3d0") + (cyan-alt . "#4ae8fc") + (cyan-alt-other . "#6ae4b9") + (cyan-faint . "#90c4ed") + (cyan-alt-faint . "#a0bfdf") + (cyan-alt-other-faint . "#a4d0bb") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#fe6060") + (orange-intense . "#fba849") + (green-intense . "#4fe42f") + (yellow-intense . "#f0dd60") + (blue-intense . "#4fafff") + (magenta-intense . "#ff62d4") + (purple-intense . "#9f80ff") + (cyan-intense . "#3fdfd0") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#ffa7ba") + (green-active . "#70d73f") + (yellow-active . "#dbbe5f") + (blue-active . "#34cfff") + (magenta-active . "#d5b1ff") + (cyan-active . "#00d8b4") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#762422") + (red-intense-bg . "#a4202a") + (green-subtle-bg . "#2f4a00") + (green-intense-bg . "#006800") + (yellow-subtle-bg . "#604200") + (yellow-intense-bg . "#874900") + (blue-subtle-bg . "#10387c") + (blue-intense-bg . "#2a40b8") + (magenta-subtle-bg . "#49366e") + (magenta-intense-bg . "#7042a2") + (cyan-subtle-bg . "#00415e") + (cyan-intense-bg . "#005f88") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#8f1f4b") + (green-fringe-bg . "#006700") + (yellow-fringe-bg . "#6f4f00") + (blue-fringe-bg . "#3f33af") + (magenta-fringe-bg . "#6f2f89") + (cyan-fringe-bg . "#004f8f") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#af0404") + (red-graph-1-bg . "#801f2f") + (green-graph-0-bg . "#24ba2f") + (green-graph-1-bg . "#0f8f07") + (yellow-graph-0-bg . "#ffd03e") + (yellow-graph-1-bg . "#d7d800") + (blue-graph-0-bg . "#406fff") + (blue-graph-1-bg . "#2f50c8") + (magenta-graph-0-bg . "#af7bee") + (magenta-graph-1-bg . "#7f59cf") + (cyan-graph-0-bg . "#47dcfa") + (cyan-graph-1-bg . "#0bc0df") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") + (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") + (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") + (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") + (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") + (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") + (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") + (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") + (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") + (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") + (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#151823") + (bg-hl-line-intense . "#2f2f2f") + (bg-hl-alt . "#181732") + (bg-hl-alt-intense . "#282e46") + (bg-paren-match . "#5f362f") + (bg-paren-match-intense . "#7416b5") + (bg-region . "#3c3c3c") + + (bg-tab-bar . "#2c2c2c") + (bg-tab-active . "#0e0e0e") + (bg-tab-inactive . "#3d3d3d") + (bg-tab-inactive-alt . "#595959") + (fg-tab-active . "#5ac3cf") + + (fg-escape-char-construct . "#e7a59a") + (fg-escape-char-backslash . "#abab00") + + (fg-lang-error . "#ef8690") + (fg-lang-warning . "#b0aa00") + (fg-lang-note . "#9d9def") + (fg-lang-underline-error . "#ff4a6f") + (fg-lang-underline-warning . "#d0de00") + (fg-lang-underline-note . "#5f6fff") + + (fg-window-divider-inner . "#646464") + (fg-window-divider-outer . "#969696") + + (fg-unfocused . "#93959b") + + (fg-docstring . "#b0d6f5") + (fg-comment-yellow . "#cab98f") + + (bg-header . "#212121") (fg-header . "#dddddd") + + (bg-whitespace . "#101424") (fg-whitespace . "#aa9e9f") + + (bg-diff-heading . "#304466") (fg-diff-heading . "#dae7ff") + (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") + (bg-diff-added-deuteran . "#001a3f") (fg-diff-added-deuteran . "#c4cdf2") + (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") + (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") + + (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") + (bg-diff-refine-added-deuteran . "#234f8f") (fg-diff-refine-added-deuteran . "#dde4ff") + (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") + (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") + + (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") + (bg-diff-focus-added-deuteran . "#00405f") (fg-diff-focus-added-deuteran . "#bfe4ff") + (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") + (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") + + (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") + (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") + (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") + + (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") + (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") + (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) + "The entire palette of `modus-vivendi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +\f + +;;; Custom faces + +;; These faces are used internally to ensure consistency between various +;; groups and to streamline the evaluation of relevant customization +;; options. +(defface modus-theme-subtle-red nil + "Subtle red background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-green nil + "Subtle green background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-yellow nil + "Subtle yellow background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-blue nil + "Subtle blue background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-magenta nil + "Subtle magenta background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-cyan nil + "Subtle cyan background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-neutral nil + "Subtle gray background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-red nil + "Intense red background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-green nil + "Intense green background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-yellow nil + "Intense yellow background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-blue nil + "Intense blue background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-magenta nil + "Intense magenta background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-cyan nil + "Intense cyan background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-neutral nil + "Intense gray background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-red nil + "Combination of accented red background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-green nil + "Combination of accented green background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-yellow nil + "Combination of accented yellow background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-blue nil + "Combination of accented blue background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-magenta nil + "Combination of accented magenta background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-cyan nil + "Combination of accented cyan background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-red nil + "A red background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-green nil + "A green background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-yellow nil + "A yellow background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-blue nil + "A blue background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-magenta nil + "A magenta background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-cyan nil + "A cyan background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-red nil + "A red background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-green nil + "A green background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-yellow nil + "A yellow background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-blue nil + "A blue background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-magenta nil + "A magenta background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-cyan nil + "A cyan background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-red nil + "A nuanced red background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-green nil + "A nuanced green background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-yellow nil + "A nuanced yellow background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-blue nil + "A nuanced blue background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-magenta nil + "A nuanced magenta background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-cyan nil + "A nuanced cyan background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-cold nil + "Combines the 'special cold' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-mild nil + "Combines the 'special mild' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-warm nil + "Combines the 'special warm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-calm nil + "Combines the 'special calm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-added nil + "Combines green colors for the 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-changed nil + "Combines yellow colors for the 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-removed nil + "Combines red colors for the 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-added nil + "Combines green colors for word-wise 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-changed nil + "Combines yellow colors for word-wise 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-removed nil + "Combines red colors for word-wise 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-added nil + "Combines green colors for the focused 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-changed nil + "Combines yellow colors for the focused 'changed' state in. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-removed nil + "Combines red colors for the focused 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-heading nil + "Combines blue colors for the diff hunk heading. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-pseudo-header nil + "Generic style for some elements that function like headings. +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-alt nil + "Combines yellow colors for marking special lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-del nil + "Combines red colors for marking deletable lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-sel nil + "Combines green colors for marking lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-symbol nil + "Applies a blue color and other styles for mark indicators. +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-1 nil + "General purpose face for use in headings level 1 +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-2 nil + "General purpose face for use in headings level 2. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-3 nil + "General purpose face for use in headings level 3. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-4 nil + "General purpose face for use in headings level 4. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-5 nil + "General purpose face for use in headings level 5. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-6 nil + "General purpose face for use in headings level 6. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-7 nil + "General purpose face for use in headings level 7. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-8 nil + "General purpose face for use in headings level 8. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-hl-line nil + "General purpose face for the current line. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-intense-hl-line' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-bold nil + "Generic face for applying a conditional bold weight. +This behaves in accordance with `modus-themes-bold-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-slant nil + "Generic face for applying a conditional slant (italics). +This behaves in accordance with `modus-themes-slanted-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-variable-pitch nil + "Generic face for applying a conditional `variable-pitch'. +This behaves in accordance with `modus-themes-no-mixed-fonts', +`modus-themes-variable-pitch-headings' for all heading levels, and +`modus-themes-variable-pitch-ui'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-0 nil + "Special subdued red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-1 nil + "Special prominent red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-0 nil + "Special subdued green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-1 nil + "Special prominent green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-0 nil + "Special subdued yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-1 nil + "Special prominent yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-0 nil + "Special subdued blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-1 nil + "Special prominent blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-0 nil + "Special subdued magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-1 nil + "Special prominent magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-0 nil + "Special subdued cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-1 nil + "Special prominent cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-note nil + "Generic face for linter or spell checker notes. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-warning nil + "Generic face for linter or spell checker warnings. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-error nil + "Generic face for linter or spell checker errors. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +\f + +;;; Customization options + +;;;; Current customization options (>= 1.0.0) + +(defcustom modus-themes-operandi-color-overrides nil + "Override colors in the Modus Operandi palette. + +For form, see `modus-themes-operandi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +(defcustom modus-themes-vivendi-color-overrides nil + "Override colors in the Modus Vivendi palette. + +For form, see `modus-themes-vivendi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +;; The byte compiler complains when a defcustom isn't a top level form +(let* ((names (mapcar (lambda (pair) + (symbol-name (car pair))) + modus-themes-operandi-colors)) + (colors (mapcar #'intern (sort names #'string<)))) + (put 'modus-themes-operandi-color-overrides + 'custom-options (copy-sequence colors)) + (put 'modus-themes-vivendi-color-overrides + 'custom-options (copy-sequence colors))) + +(defcustom modus-themes-slanted-constructs nil + "Use slanted text in more code constructs (italics or oblique)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Slanted 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 + :link '(info-link "(modus-themes) Bold constructs")) + +(defcustom modus-themes-variable-pitch-headings nil + "Use proportional fonts (variable-pitch) in headings." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Headings' typeface")) + +(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 + :link '(info-link "(modus-themes) UI typeface")) + +(defcustom modus-themes-no-mixed-fonts nil + "Disable inheritance from `fixed-pitch' in some faces. + +This is done by default 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'. +The downside with the default is that users need to explicitly +configure the font family of `fixed-pitch' in order to get a +consistent experience. That may be something they do not want to +do. Hence this option to disable any kind of technique for +mixing fonts." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) No mixed fonts")) + +(defcustom modus-themes-headings + '((t . nil)) + "Alist of styles for headings, with optional value per level. + +To control faces per level from 1-8, use something like this: + + (setq modus-themes-headings + '((1 . highlight) + (2 . line) + (t . rainbow-line-no-bold))) + +To set a uniform value for all heading levels, use this pattern: + + (setq modus-themes-headings + '((t . rainbow-line-no-bold))) + +The default uses a fairly desaturated foreground value in +combination with a bold typographic weight. To specify this +style for a given level N (assuming you wish to have another +fallback option), just specify the value t like this: + + (setq modus-themes-headings + '((1 . t) + (2 . line) + (t . rainbow-line-no-bold))) + +A description of all possible values: + ++ `no-bold' retains the default text color while removing the + typographic weight. + ++ `line' is the same as the default plus an overline over the + heading. + ++ `line-no-bold' is the same as `line' without bold weight. + ++ `rainbow' uses a more colorful foreground in combination with + bold weight. + ++ `rainbow-line' is the same as `rainbow' plus an overline. + ++ `rainbow-line-no-bold' is the same as `rainbow-line' without + the bold weight. + ++ `highlight' retains the default style of a fairly desaturated + foreground combined with a bold weight and add to it a subtle + accented background. + ++ `highlight-no-bold' is the same as `highlight' without a bold + weight. + ++ `rainbow-highlight' is the same as `highlight' but with a more + colorful foreground. + ++ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' + without a bold weight. + ++ `section' retains the default looks and adds to them both an + overline and a slightly accented background. It is, in effect, + a combination of the `line' and `highlight' values. + ++ `section-no-bold' is the same as `section' without a bold + weight. + ++ `rainbow-section' is the same as `section' but with a more + colorful foreground. + ++ `rainbow-section-no-bold' is the same as `rainbow-section' + without a bold weight. + ++ `no-color' does not apply any color to the heading, meaning + that it uses the foreground of the `default' face. It still + renders the text with a bold typographic weight. + ++ `no-color-no-bold' is like `no-color' but without the bold + weight." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type + '(alist + :key-type symbol + :value-type + (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) + (const :tag "Like the default without bold weight" no-bold) + (const :tag "Like the default plus overline" line) + (const :tag "Like `line' without bold weight" line-no-bold) + (const :tag "Like the default but with more colorful foreground" rainbow) + (const :tag "Like `rainbow' plus overline" rainbow-line) + (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) + (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) + (const :tag "Like the default plus subtle background" highlight) + (const :tag "Like `highlight' without bold weight" highlight-no-bold) + (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) + (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) + (const :tag "Like `highlight' plus overline" section) + (const :tag "Like `section' without bold weight" section-no-bold) + (const :tag "Like `section' with more colorful foreground" rainbow-section) + (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold) + (const :tag "Do not use any distinct foreground color; just bold weight" no-color) + (const :tag "Like `no-bold' but without the distinct foreground color" no-color-no-bold))) + :link '(info-link "(modus-themes) Heading styles")) + +(defcustom modus-themes-scale-headings nil + "Use font scaling for headings. + +For regular headings the scale is controlled by the variables +`modus-themes-scale-1' (smallest) and its variants all the way up +to `modus-themes-scale-4' (larger). While `modus-themes-scale-5' +is reserved for special headings that must be the largest on the +scale. + +A special heading is, in this context, one that does not fit into +the syntax for heading levels that apply to the given mode. For +example, Org's #+title keyword lies outside the normal eight +levels of headings. Whereas, say, Markdown does not have such a +special heading." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Scaled headings")) + +(defcustom modus-themes-scale-1 1.05 + "Font size that is slightly larger than the base value. + +This size is used for level 4 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-2 1.1 + "Font size slightly larger than `modus-themes-scale-1'. + +This size is used for level 3 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-3 1.15 + "Font size slightly larger than `modus-themes-scale-2'. + +This size is used for level 2 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-4 1.2 + "Font size slightly larger than `modus-themes-scale-3'. + +This size is used for level 1 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-5 1.3 + "Font size slightly larger than `modus-themes-scale-4'. + +This size is only used for 'special' top level headings, such as +Org's file title heading, denoted by the #+title key word, and +the Org agenda structure headers. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-fringes nil + "Define the visibility of fringes. + +Nil means the fringes have no background color. Option `subtle' +will apply a greyscale value that is visible yet close to the +main buffer background color. Option `intense' will use a more +pronounced greyscale value." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No visible fringes (default)" nil) + (const :tag "Subtle greyscale background" subtle) + (const :tag "Intense greyscale background" intense)) + :link '(info-link "(modus-themes) Fringes")) + +(defcustom modus-themes-lang-checkers nil + "Control the style of spelling and code checkers/linters. + +Nil (the default) applies a color-coded underline to the affected +text, while it leaves the original foreground in tact. If the +display spec of Emacs has support for it, the underline's style +is that of a wave, otherwise it is a straight line. + +Options `subtle-foreground' and `intense-foreground' add a +color-coded underline while also changing the text's foreground +accordingly. The style of the underline is the same as with the +default option. + +Option `straight-underline' is like the default but always +applies a straight line under the affected text. Same principle +for `subtle-foreground-straight-underline' and its counterpart +`intense-foreground-straight-underline'. + +Option `colored-background' uses a straight underline, a +background, and a foreground. All are color-coded. This is the +most intense combination of face properties." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Only color-coded wavy underline (default)" nil) + (const :tag "Like the default, but with a straight underline" straight-underline) + (const :tag "Color-coded wavy underline; subtle foreground" subtle-foreground) + (const :tag "Combines `straight-underline' and `subtle-foreground'" subtle-foreground-straight-underline) + (const :tag "Color-coded wavy underline; intense foreground" intense-foreground) + (const :tag "Combines `straight-underline' and `intense-foreground'" intense-foreground-straight-underline) + (const :tag "Color-coded background, foreground, straight underline" colored-background)) + :link '(info-link "(modus-themes) Language checkers")) + +(defcustom modus-themes-org-blocks nil + "Use a subtle gray or color-coded background for Org blocks. + +Nil means that the block will have no background of its own and +will use the default that applies to the rest of the buffer. + +Option `grayscale' (or `greyscale') will apply a subtle neutral +gray background to the block's contents. It also affects the +begin and end lines of the block: their background will be +extended to the edge of the window for Emacs version >= 27 where +the ':extend' keyword is recognized by `set-face-attribute'. + +Option `rainbow' will use an accented background for the contents +of the block. The exact color will depend on the programming +language and is controlled by the `org-src-block-faces' +variable (refer to the theme's source code for the current +association list)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No Org block background (default)" nil) + (const :tag "Subtle gray block background" grayscale) + (const :tag "Subtle gray block background (alt spelling)" greyscale) + (const :tag "Color-coded background per programming language" rainbow)) + :link '(info-link "(modus-themes) Org mode blocks")) + +(defcustom modus-themes-org-habit nil + "Control the presentation of the `org-habit' graph. + +The default is meant to conform with the original aesthetic of +`org-habit'. It employs all four color codes that correspond to +the org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This +results in a total of eight colors in use: red, yellow, green, +blue, in tinted and shaded versions. They cover the full set of +information provided by the `org-habit' consistency graph. + +Option `simplified' is like the default except that it removes +the dichotomy between current and future variants by applying +uniform color-coded values. It applies a total of four colors: +red, yellow, green, blue. They produce a simplified consistency +graph that is more legible (or less \"busy\") than the default. +The intent is to shift focus towards the distinction between the +four states of a habit task, rather than each state's +present/future outlook. + +Option `traffic-light' further reduces the available colors to +red, yellow, and green. As in `simplified', present and future +variants appear uniformly, but differently from it, the 'clear' +state is rendered in a green hue, instead of the original blue. +This is meant to capture the use-case where a habit task being +\"too early\" is less important than it being \"too late\". The +difference between ready and clear states is attenuated by +painting both of them using shades of green. This option thus +highlights the alert and overdue states." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Respect the original design of org-habit (default)" nil) + (const :tag "Like the default, but do not distinguish between present and future variants" simplified) + (const :tag "Like `simplified', but only use red, yellow, green" traffic-light)) + :link '(info-link "(modus-themes) Org agenda habits")) + +(defcustom modus-themes-mode-line nil + "Adjust the overall style of the mode line. + +Nil is a two-dimensional rectangle with a border around it. The +active and the inactive modelines use different shades of +greyscale values for the background and foreground. + +A `3d' value will apply a three-dimensional effect to the active +modeline. The inactive modelines remain two-dimensional and are +toned down a bit, relative to the nil value. + +The `moody' option is meant to optimize the modeline for use with +the library of the same name. This practically means to remove +the box effect and rely on underline and overline properties +instead. It also tones down the inactive modelines. Despite its +intended purpose, this option can also be used without the +`moody' library. + +The `borderless' option uses the same colors as the default (nil +value), but removes the border effect. This is done by making +the box property use the same color as the background, +effectively blending the two and creating some padding. + +The `borderless-3d' and `borderless-moody' approximate the `3d' +and `moody' options respectively, while removing the borders. +However, to ensure that the inactive modelines remain visible, +they apply a slightly more prominent background to them than what +their counterparts do (same inactive background as with the +default)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Two-dimensional box (default)" nil) + (const :tag "Three-dimensional style for the active mode line" 3d) + (const :tag "No box effects, which are optimal for use with the `moody' library" moody) + (const :tag "Like the default, but without border effects" borderless) + (const :tag "Like `3d', but without noticeable border" borderless-3d) + (const :tag "Like `moody', but without noticeable border" borderless-moody)) + :link '(info-link "(modus-themes) Mode line")) + +(defcustom modus-themes-diffs nil + "Adjust the overall styles of diffs. + +Nil means to use fairly intense color combinations for diffs. +For example, you get a rich green background with a green +foreground for added lines. Word-wise or 'refined' diffs follow +the same pattern but use different shades of those colors to +remain distinct. + +A `desaturated' value follows the same principles as with the nil +option, while it tones down all relevant colors. + +Option `fg-only' will remove all accented backgrounds, except +from word-wise changes. It instead uses color-coded foreground +values to differentiate between added/removed/changed lines. If +a background is necessary, such as with `ediff', then a subtle +greyscale value is used. + +Option `bg-only' applies a background but does not override the +text's foreground. This makes it suitable for a non-nil value +passed to `diff-font-lock-syntax' (note: Magit does not support +syntax highlighting in diffs as of 2020-11-25, version +20201116.1057). + +Option `deuteranopia' accounts for red-green color defficiency by +replacing all instances of green with colors on the blue side of +the spectrum. Other stylistic changes are made in the interest +of optimizing for such a use-case." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Intensely colored backgrounds (default)" nil) + (const :tag "Slightly accented backgrounds with tinted text" desaturated) + (const :tag "No backgrounds, except for refined diffs" fg-only) + (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only) + (const :tag "Optimized for red-green color defficiency" deuteranopia)) + :link '(info-link "(modus-themes) Diffs")) + +(defcustom modus-themes-completions nil + "Apply special styles to the UI of completion frameworks. + +This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as +any other tool meant to enhance their experience. The effect +will vary depending on the completion framework. + +Nil means to remain faithful to the metaphors that each UI +establishes. For example, Icomplete and Ido only use foreground +colors to style their matches, whereas Ivy or Helm rely on an +aesthetic that combines colored backgrounds with appropriate text +color. + +Option `moderate' will apply a combination of background and +foreground that is fairly subtle. For Icomplete and the like, +this constitutes a departure from their standard style. While +Ivy, Helm, and the others, will use less pronounced colors for +applicable contexts. + +Option `opinionated' will apply color combinations that refashion +the completion UI. So Icomplete et al will now use styles that +resemble the defaults of Ivy and co., while the latter group will +revert to an even more nuanced aesthetic." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Respect the framework's established aesthetic (default)" nil) + (const :tag "Subtle backgrounds for various elements" moderate) + (const :tag "Radical alternative to the framework's looks" opinionated)) + :link '(info-link "(modus-themes) Completion UIs")) + +(defcustom modus-themes-prompts nil + "Use subtle or intense styles for minibuffer and REPL prompts. + +Nil means to only use an accented foreground color. + +Options `subtle-accented' and `intense-accented' will change both +the background and the foreground values to use accented color +combinations that follow the hue of the default styles' +foreground (e.g. the default minibuffer prompt is cyan text, so +these combinations will involved a cyan background and an +appropriate cyan foreground). + +Options `subtle-gray' and `intense-gray' are like their +`subtle-accented' and `intense-accented' counterparts, except +they use grayscale values instead of accented ones." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + (const :tag "No prompt background (default)" nil) + (const :tag "Subtle accented background for the prompt" subtle-accented) + (const :tag "Same as `subtle-accented' for compatibility with older versions" subtle) + (const :tag "Intense accented background and foreground for the prompt" intense-accented) + (const :tag "Same as `intense-accented' for compatibility with older versions" intense) + (const :tag "Like `subtle-accented' but grayscale" subtle-gray) + (const :tag "Like `intense-accented' but grayscale" intense-gray)) + :link '(info-link "(modus-themes) Command prompts")) + +(defcustom modus-themes-intense-hl-line nil + "Use a more prominent background for command `hl-line-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line highlighting")) + +(defcustom modus-themes-subtle-line-numbers nil + "Use more subtle style for command `display-line-numbers-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line numbers")) + +(defcustom modus-themes-paren-match nil + "Choose the style of matching parentheses or delimiters. + +Nil means to use a subtle tinted background color (the default). + +Option `intense' applies a saturated background color. + +Option `subtle-bold' is the same as the default, but also makes +use of bold typographic weight (inherits the `bold' face). + +Option `intense-bold' is the same as `intense', while it also +uses a bold weight." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Sublte tinted background (default)" nil) + (const :tag "Like the default, but also use bold typographic weight" subtle-bold) + (const :tag "Intense saturated background" intense) + (const :tag "Like `intense' but with bold weight" intense-bold)) + :link '(info-link "(modus-themes) Matching parentheses")) + +(defcustom modus-themes-syntax nil + "Control the overall style of code syntax highlighting. + +Nil (the default) means to use colors on the cyan-blue-magenta +side of the spectrum. There is little to no use of greens, +yellows, and reds. + +Option `faint' is like the default in terms of the choice of +palette but applies desaturated color values. + +Option `yellow-comments' applies a yellow tint to comments. The +rest of the syntax is the same as the default. + +Option `green-strings' replaces the blue/cyan/cold color variants +in strings with greener alternatives. The rest of the syntax +remains the same. + +Option `yellow-comments-green-strings' combines yellow comments +with green strings and the rest of the default syntax +highlighting style. + +Option `alt-syntax' expands the color palette and applies new +color combinations. Strings are green. Doc strings are magenta +tinted. Comments are gray. + +Option `alt-syntax-yellow-comments' combines `alt-syntax' with +`yellow-comments'. + +Option `faint-yellow-comments' combines the `faint' style with +`yellow-comments'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) + (const :tag "Like the default, but with desaturated color values" faint) + (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) + (const :tag "Use green for strings, keep the default style for the rest" green-strings) + (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) + (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) + (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments) + (const :tag "Like `faint' but with yellow comments" faint-yellow-comments)) + :link '(info-link "(modus-themes) Syntax styles")) + +(defcustom modus-themes-links nil + "Set the style of links. + +Nil means to use an underline that is the same color as the +foreground. + +Option `faint' applies desaturated colors to the link's text and +underline. + +Option `neutral-underline' applies a subtle grey underline, while +retaining the link's foreground. + +Option `faint-neutral-underline' combines a desaturated text +color with a subtle grey underline. + +Option `no-underline' removes link underlines altogether, while +retaining their original fairly vivid color. + +Option `underline-only' applies an underline while making the +affected text colorless (it uses the same foreground as the +theme's default). + +Option `neutral-underline-only' makes the text colorless while +using a subtle underline below it." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Undeline link using the same color as the text (default)" nil) + (const :tag "Like the default, but apply less intense colors to links" faint) + (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) + (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) + (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline) + (const :tag "Apply underline only; use default foreground" underline-only) + (const :tag "Like `underline-only' but with a subtle underline" neutral-underline-only)) + :link '(info-link "(modus-themes) Link styles")) + +(defcustom modus-themes-region nil + "Change the overall appearance of the active region. + +Nil (the default) means to only use a prominent gray background +with a neutral foreground. The foreground overrides all syntax +highlighting. The region extends to the edge of the window. + +Option `no-extend' preserves the default aesthetic but prevents +the region from extending to the edge of the window. + +Option `bg-only' applies a faint tinted background that is +distinct from all others used in the theme, while it does not +override any existing colors. It extends to the edge of the +window. + +Option `bg-only-no-extend' is a combination of the `bg-only' and +`no-extend' options." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) + (const :tag "As with the default, but does not extend" no-extend) + (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) + (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)) + :link '(info-link "(modus-themes) Active region")) + +\f + +;;;; Deprecated customization options (prior to 1.0.0) + +;;;;; Modus Operandi obsolete options + +(make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") + +;;;;; Modus Vivendi obsolete options + +(make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") + +\f + +;;; Internal functions + +(defun modus-themes--palette (theme) + "Return color palette for Modus theme THEME. +THEME is a symbol, either `modus-operandi' or `modus-vivendi'." + (pcase theme + ('modus-operandi + (append modus-themes-operandi-color-overrides + modus-themes-operandi-colors)) + ('modus-vivendi + (append modus-themes-vivendi-color-overrides + modus-themes-vivendi-colors)) + (_theme + (error "'%s' is not a Modus theme" theme)))) + +(defvar modus-themes-faces) +(defvar modus-themes-custom-variables) + +(defmacro modus-themes-theme (name) + "Bind NAME's color palette around face specs and variables. + +NAME should be the proper name of a Modus theme, either +`modus-operandi' or `modus-vivendi'. + +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." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes--palette ',name)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (custom-theme-set-faces ',name ,@modus-themes-faces) + (custom-theme-set-variables ',name ,@modus-themes-custom-variables)))) + +(defun modus-themes--current-theme () + "Return current theme." + (car custom-enabled-themes)) + +;; Helper functions that are meant to ease the implementation of the +;; above customization options. +(defun modus-themes--bold-weight () + "Conditional use of a heavier text weight." + (when modus-themes-bold-constructs + (list :inherit 'bold))) + +(defun modus-themes--mixed-fonts () + "Conditional application of `fixed-pitch' inheritance." + (unless modus-themes-no-mixed-fonts + (list :inherit 'fixed-pitch))) + +(defun modus-themes--slant () + "Conditional use of italics for slant attribute." + (if modus-themes-slanted-constructs + (list 'italic) + (list 'normal))) + +(defun modus-themes--variable-pitch () + "Conditional use of `variable-pitch' in headings." + (when modus-themes-variable-pitch-headings + (list :inherit 'variable-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--fringe (mainbg subtlebg intensebg) + "Conditional use of background colors for fringes. +MAINBG is the default. SUBTLEBG should be a subtle greyscale +value. INTENSEBG must be a more pronounced greyscale color." + (pcase modus-themes-fringes + ('intense (list :background intensebg)) + ('subtle (list :background subtlebg)) + (_ (list :background mainbg)))) + +(defun modus-themes--line-numbers (mainfg mainbg altfg &optional altbg) + "Conditional use of colors for line numbers. +MAINBG and MAINFG are the default colors. ALTFG is a color that +combines with the theme's primary background (white/black)." + (if modus-themes-subtle-line-numbers + (list :background (or altbg 'unspecified) :foreground altfg) + (list :background mainbg :foreground mainfg))) + +(defun modus-themes--lang-check (underline subtlefg intensefg bg) + "Conditional use of foreground colors for language checkers. +UNDERLINE is a color-code value for the affected text's underline +property. SUBTLEFG and INTENSEFG follow the same color-coding +pattern and represent a value that is faint or vibrant +respectively. BG is a color-coded background." + (pcase modus-themes-lang-checkers + ('colored-background + (list :underline underline :background bg :foreground intensefg)) + ('intense-foreground + (list :underline (list :color underline :style 'wave) :foreground intensefg)) + ('intense-foreground-straight-underline + (list :underline underline :foreground intensefg)) + ('subtle-foreground + (list :underline (list :color underline :style 'wave) :foreground subtlefg)) + ('subtle-foreground-straight-underline + (list :underline underline :foreground subtlefg)) + ('straight-underline + (list :underline underline)) + (_ (list :underline (list :color underline :style 'wave))))) + +(defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) + "Conditional use of background colors for prompts. +MAINFG is the prompt's standard foreground. SUBTLEBG should be a +subtle accented background that works with SUBTLEFG. INTENSEBG +must be a more pronounced accented color that should be +combinable with INTENSEFG." + (pcase modus-themes-prompts + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + ('intense-accented (list :background intensebg :foreground intensefg)) + ('intense (list :background intensebg :foreground intensefg)) + ('subtle-accented (list :background subtlebg :foreground subtlefg)) + ('subtle (list :background subtlebg :foreground subtlefg)) + ('subtle-gray (list :inherit 'modus-theme-subtle-neutral)) + ('intense-gray (list :inherit 'modus-theme-intense-neutral)) + (_ (list :background nil :foreground mainfg)))) + +(defun modus-themes--paren (normalbg intensebg) + "Conditional use of intense colors for matching parentheses. +NORMALBG should be the special palette color 'bg-paren-match' or +something similar. INTENSEBG must be easier to discern next to +other backgrounds, such as the special palette color +'bg-paren-match-intense'." + (pcase modus-themes-paren-match + ('subtle-bold (list :inherit 'bold :background normalbg)) + ('intense-bold (list :inherit 'bold :background intensebg)) + ('intense (list :background intensebg)) + (_ (list :background normalbg)))) + +(defun modus-themes--syntax-foreground (fg faint) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-extra (fg faint alt) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-string (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground alt)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-docstring (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground green)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-comment (fg yellow) + "Apply foreground value to strings in code syntax. +FG is the default. YELLOW is a color variant of that name." + (pcase modus-themes-syntax + ('yellow-comments (list :foreground yellow)) + ('yellow-comments-green-strings (list :foreground yellow)) + ('alt-syntax-yellow-comments (list :foreground yellow)) + ('faint-yellow-comments (list :foreground yellow)) + (_ (list :foreground fg)))) + +(defun modus-themes--heading-p (key) + "Query style of KEY in `modus-themes-headings'." + (cdr (assoc key modus-themes-headings))) + +(defun modus-themes--heading (level fg fg-alt bg border) + "Conditional styles for `modus-themes-headings'. + +LEVEL is the heading's position in their order. FG is the +default text color. FG-ALT is an accented, more saturated value +than the default. BG is a nuanced, typically accented, +background that can work well with either of the foreground +values. BORDER is a color value that combines well with the +background and alternative foreground." + (let* ((key (modus-themes--heading-p `,level)) + (style (or key (modus-themes--heading-p t))) + (var (when modus-themes-variable-pitch-headings + 'variable-pitch)) + (varbold (if var + (append (list 'bold) (list var)) + 'bold))) + (pcase style + ('no-bold + (list :inherit `,var :foreground fg)) + ('no-color + (list :inherit `,varbold)) + ('no-color-no-bold + (list :inherit `,var)) + ('line + (list :inherit `,varbold :foreground fg :overline border)) + ('line-no-bold + (list :inherit `,var :foreground fg :overline border)) + ('rainbow + (list :inherit `,varbold :foreground fg-alt)) + ('rainbow-no-bold + (list :inherit `,var :foreground fg-alt)) + ('rainbow-line + (list :inherit `,varbold :foreground fg-alt :overline border)) + ('rainbow-line-no-bold + (list :inherit `,var :foreground fg-alt :overline border)) + ('highlight + (list :inherit `,varbold :background bg :foreground fg)) + ('highlight-no-bold + (list :inherit `,var :background bg :foreground fg)) + ('rainbow-highlight + (list :inherit `,varbold :background bg :foreground fg-alt)) + ('rainbow-highlight-no-bold + (list :inherit `,var :background bg :foreground fg-alt)) + ('section + (list :inherit `,varbold :background bg :foreground fg :overline border :extend t)) + ('section-no-bold + (list :inherit `,var :background bg :foreground fg :overline border :extend t)) + ('rainbow-section + (list :inherit `,varbold :background bg :foreground fg-alt :overline border :extend t)) + ('rainbow-section-no-bold + (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) + (_ + (list :inherit `,varbold :foreground fg))))) + +(defun modus-themes--org-block (bgblk) + "Conditionally set the background of Org blocks. +BGBLK applies to a distinct neutral background. Else blocks have +no background of their own (the default), so they look the same +as the rest of the buffer. + +`modus-themes-org-blocks' also accepts a `rainbow' option +which is applied conditionally to `org-src-block-faces' (see the +theme's source code)." + (if (or (eq modus-themes-org-blocks 'grayscale) + (eq modus-themes-org-blocks 'greyscale)) + (list :background bgblk :extend t) + (list :background 'unspecified))) + +(defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) + "Conditionally set the styles of Org block delimiters. +BG, FG, BGACCENT, FGACCENT apply a background and foreground +color respectively. + +The former pair is a greyscale combination that should be more +distinct than the background of the block. It is applied to the +default styles or when `modus-themes-org-blocks' is set +to `greyscale'. + +The latter pair should be more subtle than the background of the +block, as it is used when `modus-themes-org-blocks' is +set to `rainbow'." + (pcase modus-themes-org-blocks + ('grayscale (list :background bg :foreground fg :extend t)) + ('greyscale (list :background bg :foreground fg :extend t)) + ('rainbow (list :background bgaccent :foreground fgaccent)) + (_ (list :background bg :foreground fg)))) + +(defun modus-themes--org-habit (default &optional traffic simple) + "Specify background values for `modus-themes-org-habit'. +If no optional TRAFFIC argument is supplied, the DEFAULT is used +instead. Same for SIMPLE." + (pcase modus-themes-org-habit + ('traffic-light (list :background (or traffic default))) + ('simplified (list :background (or simple default))) + (_ (list :background default)))) + +(defun modus-themes--mode-line-attrs + (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) + "Color combinations for `modus-themes-mode-line'. + +FG and BG are the default colors. FG-ALT and BG-ALT are meant to +accommodate the options for a 3D modeline or a `moody' compliant +one. BORDER applies to all permutations of the modeline, except +the three-dimensional effect, where BORDER-3D is used instead. + +Optional ALT-STYLE applies an appropriate style to the mode +line's box property. + +Optional BORDER-WIDTH specifies an integer for the width of the +rectangle that produces the box effect. + +Optional FG-DISTANT should be close to the main background +values. It is intended to be used as a distant-foreground +property." + (pcase modus-themes-mode-line + ('3d + `(:background ,bg-alt :foreground ,fg-alt + :box (:line-width ,(or border-width 1) + :color ,border-3d + :style ,(and alt-style 'released-button)))) + ('moody + `(:background ,bg-alt :foreground ,fg-alt + :underline ,border :overline ,border + :distant-foreground ,fg-distant)) + ('borderless + `(:foreground ,fg :background ,bg :box ,bg)) + ('borderless-3d + `(:foreground ,fg :background ,bg + :box (:line-width ,(or border-width 1) + :color ,bg + :style ,(and alt-style 'released-button)))) + ('borderless-moody + `(:background ,bg :foreground ,fg + :underline ,bg :overline ,bg + :distant-foreground ,fg-distant)) + (_ + `(:foreground ,fg :background ,bg :box ,border)))) + +(defun modus-themes--diff + (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional deuteranbg deuteranfg bg-only-fg) + "Color combinations for `modus-themes-diffs'. + +FG-ONLY-BG should be similar or the same as the main background. +FG-ONLY-FG should be a saturated accent value that can be +combined with the former. + +MAINBG must be one of the dedicated backgrounds for diffs while +MAINFG must be the same for the foreground. + +ALTBG needs to be a slightly accented background that is meant to +be combined with ALTFG. Both must be less intense than MAINBG +and MAINFG respectively. + +DEUTERANBG and DEUTERANFG must be combinations of colors that account +for red-green color defficiency (deuteranopia). + +Optional BG-ONLY-FG applies ALTFG else leaves the foreground +unspecified." + (pcase modus-themes-diffs + ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) + ('desaturated (list :background altbg :foreground altfg)) + ('deuteranopia (list :background (or deuteranbg mainbg) :foreground (or deuteranfg mainfg))) + ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) + (_ (list :background mainbg :foreground mainfg)))) + +(defun modus-themes--diff-deuteran (deuteran main) + "Determine whether the DEUTERAN or MAIN color should be used. +This is based on whether `modus-themes-diffs' has the value +`deuteranopia'." + (if (eq modus-themes-diffs 'deuteranopia) + (list deuteran) + (list main))) + +(defun modus-themes--diff-text (fg-only-fg default-fg) + "Like `modus-themes--diff', but only for foregrounds. +FG-ONLY-FG is the foreground that is used when diffs are styled +using only foreground colors. DEFAULT-FG covers all other +cases." + (pcase modus-themes-diffs + ('fg-only (list :foreground fg-only-fg)) + ('bg-only (list :foreground 'unspecified)) + (_ (list :foreground default-fg)))) + +(defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) + "Combinations for `modus-themes-completions'. + +MAINFG is an accented foreground value. SUBTLEBG is an accented +background value that can be combined with MAINFG. INTENSEBG and +INTENSEFG are accented colors that are designed to be used in +tandem. + +These are intended for Icomplete, Ido, and related." + (pcase modus-themes-completions + ('opinionated (list :background intensebg :foreground intensefg)) + ('moderate (list :background subtlebg :foreground mainfg)) + (_ (list :foreground mainfg)))) + +(defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) + "Combinations for `modus-themes-completions'. + +SUBTLEFACE and INTENSEFACE are custom theme faces that combine a +background and foreground value. The difference between the two +is a matter of degree. + +ALTFACE is a combination of colors that represents a departure +from the UI's default aesthetics. Optional ALTFG is meant to be +used in tandem with it. + +Optional BOLD will apply a heavier weight to the text. + +These are intended for Helm, Ivy, etc." + (pcase modus-themes-completions + ('opinionated (list :inherit (list altface bold) + :foreground (or altfg 'unspecified))) + ('moderate (list :inherit (list subtleface bold))) + (_ (list :inherit (list intenseface bold))))) + +(defun modus-themes--link (fg fgfaint underline) + "Conditional application of link styles. +FG is the link's default color for its text and underline +property. FGFAINT is a desaturated color for the text and +underline. UNDERLINE is a grey color only for the undeline." + (pcase modus-themes-links + ('faint (list :foreground fgfaint :underline t)) + ('neutral-underline (list :foreground fg :underline underline)) + ('faint-neutral-underline (list :foreground fgfaint :underline underline)) + ('no-underline (list :foreground fg :underline nil)) + ('underline-only (list :underline t)) + ('neutral-underline-only (list :underline underline)) + (_ (list :foreground fg :underline t)))) + +(defun modus-themes--link-color (fg fgfaint &optional neutralfg) + "Extends `modus-themes--link'. +FG is the main accented foreground. FGFAINT is also accented, +yet desaturated. Optional NEUTRALFG is a gray value." + (pcase modus-themes-links + ('faint (list :foreground fgfaint)) + ('faint-neutral-underline (list :foreground fgfaint)) + ('underline-only (list :underline t :foreground (or neutralfg 'unspecified))) + ('neutral-underline-only (list :underline 'unspecified :foreground (or neutralfg 'unspecified))) + (_ (list :foreground fg)))) + +(defun modus-themes--scale (amount) + "Scale heading by AMOUNT. +AMOUNT is a customization option." + (when modus-themes-scale-headings + (list :height amount))) + +(defun modus-themes--region (bg fg bgsubtle) + "Apply `modus-themes-region' styles. + +BG and FG are the main values that are used by default. BGSUBTLE +is a subtle background value that can be combined with all colors +used to fontify text and code syntax." + (pcase modus-themes-region + ('bg-only (list :background bgsubtle)) + ('bg-only-no-extend (list :background bgsubtle :extend nil)) + ('no-extend (list :background bg :foreground fg :extend nil)) + (_ (list :background bg :foreground fg)))) + +\f + +;;;; Utilities for DIY users + +;; 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 as those in +`modus-themes-operandi-colors' and `modus-themes-vivendi-colors'." + (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)))) + +(defun modus-themes-current-palette () + "Return current color palette." + (modus-themes--palette (modus-themes--current-theme))) + +;;;###autoload +(defun modus-themes-color (color) + "Return color value for COLOR from current palette. +COLOR is a key in `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (alist-get color (modus-themes-current-palette))) + +;;;###autoload +(defun modus-themes-color-alts (light-color dark-color) + "Return color value from current palette. +When Modus Operandi is enabled, return color value for color +LIGHT-COLOR. When Modus Vivendi is enabled, return color value +for DARK-COLOR. LIGHT-COLOR and DARK-COLOR are keys in +`modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." + (let* ((theme (modus-themes--current-theme)) + (color (pcase theme + ('modus-operandi light-color) + ('modus-vivendi dark-color) + (_theme + (error "'%s' is not a Modus theme" theme))))) + (alist-get color (modus-themes--palette theme)))) + +(defmacro modus-themes-with-colors (&rest body) + "Evaluate BODY with colors from current palette bound. +For colors bound, see `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes-current-palette)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (ignore class ,@colors) ; Silence unused variable warnings + ,@body))) + +\f + +;;;; Commands + +;;;###autoload +(defun modus-themes-load-themes () + "Ensure that the Modus themes are in `custom-enabled-themes'. + +This function is intended for use in package declarations such as +those defined with the help of `use-package'. The idea is to add +this function to the `:init' stage of the package's loading, so +that subsequent calls that assume the presence of a loaded theme, +like `modus-themes-toggle' or `modus-themes-load-operandi', will +continue to work as intended even if they are lazy-loaded (such +as when they are declared in the `:config' phase)." + (unless (or (custom-theme-p 'modus-operandi) + (custom-theme-p 'modus-vivendi)) + (load-theme 'modus-operandi t t) + (load-theme 'modus-vivendi t t))) + +(defvar modus-themes-after-load-theme-hook nil + "Hook that runs after the `modus-themes-toggle' routines.") + +;; The reason we use `load-theme' instead of `enable-theme' is that the +;; former does a kind of "reset" on the face specs. So it plays nicely +;; with `custom-set-faces', as well as defcustom user customizations, +;; including the likes of `modus-themes-operandi-color-overrides'. +;; +;; Tests show that `enable-theme' does not re-read those variables, so +;; it might appear to the unsuspecting user that the themes are somehow +;; broken. +;; +;; This "reset", however, comes at the cost of being a bit slower than +;; `enable-theme'. User who have a stable setup and seldom update their +;; variables during a given Emacs session, are better off using +;; something like this: +;; +;; (defun modus-themes-toggle-enabled () +;; "Toggle between `modus-operandi' and `modus-vivendi' themes." +;; (interactive) +;; (pcase (modus-themes--current-theme) +;; ('modus-operandi (progn (enable-theme 'modus-vivendi) +;; (disable-theme 'modus-operandi))) +;; ('modus-vivendi (progn (enable-theme 'modus-operandi) +;; (disable-theme 'modus-vivendi))) +;; (_ (error "No Modus theme is loaded; evaluate `modus-themes-load-themes' first")))) + +;;;###autoload +(defun modus-themes-load-operandi () + "Load `modus-operandi' and disable `modus-vivendi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-vivendi) + (load-theme 'modus-operandi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +;;;###autoload +(defun modus-themes-load-vivendi () + "Load `modus-vivendi' and disable `modus-operandi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-operandi) + (load-theme 'modus-vivendi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +(defun modus-themes--load-prompt () + "Helper for `modus-themes-toggle'." + (let ((theme + (intern + (completing-read "Load Modus theme (will disable all others): " + '(modus-operandi modus-vivendi) nil t)))) + (mapc #'disable-theme custom-enabled-themes) + (pcase theme + ('modus-operandi (modus-themes-load-operandi)) + ('modus-vivendi (modus-themes-load-vivendi))))) + +;;;###autoload +(defun modus-themes-toggle () + "Toggle between `modus-operandi' and `modus-vivendi' themes. +Also runs `modus-themes-after-load-theme-hook' at its last stage +by virtue of calling either of `modus-themes-load-operandi' and +`modus-themes-load-vivendi' functions." + (interactive) + (modus-themes-load-themes) + (pcase (modus-themes--current-theme) + ('modus-operandi (modus-themes-load-vivendi)) + ('modus-vivendi (modus-themes-load-operandi)) + (_ (modus-themes--load-prompt)))) + +\f + +;;;; Face specifications + +(defconst modus-themes-faces + '( +;;;; custom faces + ;; these bespoke faces are inherited by other constructs below +;;;;; subtle colored backgrounds + `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; intense colored backgrounds + `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) +;;;;; refined background and foreground combinations + ;; general purpose styles that use an accented foreground against an + ;; accented background + `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) + `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) + `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) + `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) + `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) + `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) +;;;;; "active" combinations, mostly for use on the mode line + `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) + `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) + `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) + `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) + `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) + `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) +;;;;; nuanced backgrounds + ;; useful for adding an accented background that is suitable for all + ;; main foreground colors (intended for use in Org source blocks) + `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) + `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) + `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) + `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) + `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) + `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) +;;;;; fringe-specific combinations + `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) +;;;;; special base values + ;; these are closer to the grayscale than the accents defined above + ;; and should only be used when the next closest alternative would be + ;; a greyscale value than an accented one + `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) + `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) + `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) +;;;;; diff-specific combinations + ;; intended for `diff-mode' or equivalent + `(modus-theme-diff-added + ((,class ,@(modus-themes--diff + bg-main green + bg-diff-focus-added fg-diff-focus-added + green-nuanced-bg fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-changed + ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-focus-changed fg-diff-focus-changed + yellow-nuanced-bg fg-diff-changed)))) + `(modus-theme-diff-removed + ((,class ,@(modus-themes--diff + bg-main red + bg-diff-focus-removed fg-diff-focus-removed + red-nuanced-bg fg-diff-removed)))) + `(modus-theme-diff-refine-added + ((,class ,@(modus-themes--diff + bg-diff-added fg-diff-added + bg-diff-refine-added fg-diff-refine-added + bg-diff-focus-added fg-diff-focus-added + bg-diff-refine-added-deuteran fg-diff-refine-added-deuteran)))) + `(modus-theme-diff-refine-changed + ((,class ,@(modus-themes--diff + bg-diff-changed fg-diff-changed + bg-diff-refine-changed fg-diff-refine-changed + bg-diff-focus-changed fg-diff-focus-changed)))) + `(modus-theme-diff-refine-removed + ((,class ,@(modus-themes--diff + bg-diff-removed fg-diff-removed + bg-diff-refine-removed fg-diff-refine-removed + bg-diff-focus-removed fg-diff-focus-removed)))) + `(modus-theme-diff-focus-added + ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-focus-added fg-diff-focus-added + bg-diff-added fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-focus-changed + ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-focus-changed fg-diff-focus-changed + bg-diff-changed fg-diff-changed)))) + `(modus-theme-diff-focus-removed + ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-focus-removed fg-diff-focus-removed + bg-diff-removed fg-diff-removed)))) + `(modus-theme-diff-heading + ((,class ,@(modus-themes--diff + bg-main blue + bg-diff-heading fg-diff-heading + cyan-nuanced-bg cyan-nuanced-fg + bg-header fg-main + t)))) +;;;;; mark indicators + ;; color combinations intended for Dired, Ibuffer, or equivalent + `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) + `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) + `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) + `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) + `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) +;;;;; heading levels + ;; styles for regular headings used in Org, Markdown, Info, etc. + `(modus-theme-heading-1 + ((,class ,@(modus-themes--heading + 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-4)))) + `(modus-theme-heading-2 + ((,class ,@(modus-themes--heading + 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-3)))) + `(modus-theme-heading-3 + ((,class ,@(modus-themes--heading + 3 fg-special-cold blue blue-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-2)))) + `(modus-theme-heading-4 + ((,class ,@(modus-themes--heading + 4 fg-special-mild cyan cyan-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-1)))) + `(modus-theme-heading-5 + ((,class ,@(modus-themes--heading + 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) + `(modus-theme-heading-6 + ((,class ,@(modus-themes--heading + 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) + `(modus-theme-heading-7 + ((,class ,@(modus-themes--heading + 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) + `(modus-theme-heading-8 + ((,class ,@(modus-themes--heading + 8 fg-dim magenta bg-alt bg-region)))) +;;;;; graph-specific faces + `(modus-theme-graph-red-0 ((,class :background ,red-graph-0-bg))) + `(modus-theme-graph-red-1 ((,class :background ,red-graph-1-bg))) + `(modus-theme-graph-green-0 ((,class :background ,green-graph-0-bg))) + `(modus-theme-graph-green-1 ((,class :background ,green-graph-1-bg))) + `(modus-theme-graph-yellow-0 ((,class :background ,yellow-graph-0-bg))) + `(modus-theme-graph-yellow-1 ((,class :background ,yellow-graph-1-bg))) + `(modus-theme-graph-blue-0 ((,class :background ,blue-graph-0-bg))) + `(modus-theme-graph-blue-1 ((,class :background ,blue-graph-1-bg))) + `(modus-theme-graph-magenta-0 ((,class :background ,magenta-graph-0-bg))) + `(modus-theme-graph-magenta-1 ((,class :background ,magenta-graph-1-bg))) + `(modus-theme-graph-cyan-0 ((,class :background ,cyan-graph-0-bg))) + `(modus-theme-graph-cyan-1 ((,class :background ,cyan-graph-1-bg))) +;;;;; language checkers + `(modus-theme-lang-error ((,class ,@(modus-themes--lang-check fg-lang-underline-error fg-lang-error red red-nuanced-bg)))) + `(modus-theme-lang-note ((,class ,@(modus-themes--lang-check fg-lang-underline-note fg-lang-note blue-alt blue-nuanced-bg)))) + `(modus-theme-lang-warning ((,class ,@(modus-themes--lang-check fg-lang-underline-warning fg-lang-warning yellow yellow-nuanced-bg)))) +;;;;; other custom faces + `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) + `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-line-intense bg-hl-line) + :extend t))) + `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) + `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) +;;;; standard faces +;;;;; absolute essentials + `(default ((,class :background ,bg-main :foreground ,fg-main))) + `(cursor ((,class :background ,fg-main))) + `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) + :foreground ,fg-main))) + `(vertical-border ((,class :foreground ,fg-window-divider-inner))) +;;;;; basic and/or ungrouped styles + `(bold ((,class :weight bold))) + `(bold-italic ((,class :inherit (bold italic)))) + `(buffer-menu-buffer ((,class :inherit bold))) + `(comint-highlight-input ((,class :inherit bold))) + `(comint-highlight-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + cyan + blue-nuanced-bg blue-alt + blue-refine-bg fg-main)))) + `(error ((,class :inherit bold :foreground ,red))) + `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) + `(file-name-shadow ((,class :foreground ,fg-unfocused))) + `(header-line ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-header :foreground ,fg-header))) + `(header-line-highlight ((,class :inherit modus-theme-active-blue))) + `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) + `(homoglyph ((,class :foreground ,red-alt-faint))) + `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) + `(italic ((,class :slant italic))) + `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) + `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) + `(minibuffer-prompt ((,class ,@(modus-themes--prompt + cyan-alt-other + cyan-nuanced-bg cyan + cyan-refine-bg fg-main)))) + `(mm-command-output ((,class :foreground ,red-alt-other))) + `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(next-error ((,class :inherit modus-theme-subtle-red))) + `(rectangle-preview ((,class :inherit modus-theme-special-mild))) + `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) + `(secondary-selection ((,class :inherit modus-theme-special-cold))) + `(shadow ((,class :foreground ,fg-alt))) + `(success ((,class :inherit bold :foreground ,green))) + `(trailing-whitespace ((,class :background ,red-intense-bg))) + `(warning ((,class :inherit bold :foreground ,yellow))) +;;;;; buttons, links, widgets + `(button ((,class ,@(modus-themes--link + blue-alt-other blue-alt-other-faint bg-region)))) + `(link ((,class :inherit button))) + `(link-visited ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint fg-alt)))) + `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(widget-button ((,class :inherit button))) + `(widget-button-pressed ((,class :inherit button + ,@(modus-themes--link-color + magenta magenta-faint)))) + `(widget-documentation ((,class :foreground ,green))) + `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) + `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(widget-single-line-field ((,class :inherit widget-field))) +;;;;; ag + `(ag-hit-face ((,class :foreground ,fg-special-cold))) + `(ag-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; alert + `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) + `(alert-low-face ((,class :foreground ,fg-special-mild))) + `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) + `(alert-trivial-face ((,class :foreground ,fg-special-calm))) + `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) +;;;;; all-the-icons + `(all-the-icons-blue ((,class :foreground ,blue))) + `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) + `(all-the-icons-cyan ((,class :foreground ,cyan))) + `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) + `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) + `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) + `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) + `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) + `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) + `(all-the-icons-dpink ((,class :foreground ,magenta))) + `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) + `(all-the-icons-dred ((,class :foreground ,red))) + `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-dyellow ((,class :foreground ,yellow))) + `(all-the-icons-green ((,class :foreground ,green))) + `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) + `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) + `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) + `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) + `(all-the-icons-maroon ((,class :foreground ,magenta))) + `(all-the-icons-orange ((,class :foreground ,red-alt))) + `(all-the-icons-pink ((,class :foreground ,magenta))) + `(all-the-icons-purple ((,class :foreground ,magenta-alt))) + `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-red ((,class :foreground ,red))) + `(all-the-icons-red-alt ((,class :foreground ,red-alt))) + `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-yellow ((,class :foreground ,yellow))) +;;;;; annotate + `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) + `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) + `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) + `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) +;;;;; anzu + `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) + `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) + `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) + `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) + `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) + `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) + `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; apropos + `(apropos-function-button ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint)))) + `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) + `(apropos-misc-button ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(apropos-user-option-button ((,class :inherit button + ,@(modus-themes--link-color + green-alt-other green-alt-other-faint)))) + `(apropos-variable-button ((,class :inherit button + ,@(modus-themes--link-color + blue blue-faint)))) +;;;;; apt-sources-list + `(apt-sources-list-components ((,class :foreground ,cyan))) + `(apt-sources-list-options ((,class :foreground ,yellow))) + `(apt-sources-list-suite ((,class :foreground ,green))) + `(apt-sources-list-type ((,class :foreground ,magenta))) + `(apt-sources-list-uri ((,class :foreground ,blue))) +;;;;; artbollocks-mode + `(artbollocks-face ((,class :inherit modus-theme-lang-note))) + `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(artbollocks-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(artbollocks-weasel-words-face ((,class :inherit modus-theme-lang-error))) +;;;;; auctex and Tex + `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) + `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) + `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) + `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg + ,@(modus-themes--scale modus-themes-scale-4)))) + `(font-latex-string-face ((,class :inherit font-lock-string-face))) + `(font-latex-subscript-face ((,class :height 0.95))) + `(font-latex-superscript-face ((,class :height 0.95))) + `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) + `(tex-match ((,class :foreground ,blue-alt-other))) + `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(texinfo-heading ((,class :foreground ,magenta))) + `(TeX-error-description-error ((,class :inherit error))) + `(TeX-error-description-help ((,class :foreground ,blue))) + `(TeX-error-description-tex-said ((,class :foreground ,blue))) + `(TeX-error-description-warning ((,class :inherit warning))) +;;;;; auto-dim-other-buffers + `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) +;;;;; avy + `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) + `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) + `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) + `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; aw (ace-window) + `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(aw-leading-char-face ((,class :inherit bold :height 1.5 :slant normal :background ,bg-main :foreground ,red-intense))) + `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) + `(aw-mode-line-face ((,class :inherit bold))) +;;;;; awesome-tray + `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) + `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) + `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) + `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) + `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) + `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) + `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) + `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) + `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; bbdb + `(bbdb-name ((,class :foreground ,magenta-alt-other))) + `(bbdb-organization ((,class :foreground ,red-alt-other))) + `(bbdb-field-name ((,class :foreground ,cyan-alt-other))) +;;;;; binder + `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) + `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) + `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) + `(binder-sidebar-tags ((,class :foreground ,cyan))) +;;;;; bm + `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) + `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) + `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) + `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) +;;;;; bongo + `(bongo-album-title ((,class :foreground ,yellow-active))) + `(bongo-artist ((,class :foreground ,magenta-active))) + `(bongo-currently-playing-track ((,class :inherit bold))) + `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) + `(bongo-filled-seek-bar ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) + `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) + `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) + `(bongo-track-length ((,class :foreground ,fg-active))) + `(bongo-track-title ((,class :foreground ,cyan-active))) + `(bongo-unfilled-seek-bar ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; boon + `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) + `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) + `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) + `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) +;;;;; breakpoint (built-in gdb-mi.el) + `(breakpoint-disabled ((,class :inherit shadow))) + `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) +;;;;; buffer-expose + `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) + `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) + `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) +;;;;; calendar and diary + `(calendar-month-header ((,class :inherit modus-theme-pseudo-header))) + `(calendar-today ((,class :inherit bold :underline t))) + `(calendar-weekday-header ((,class :inherit shadow))) + `(calendar-weekend-header ((,class :inherit shadow))) + `(diary ((,class :background ,green-nuanced-bg :foreground ,green-alt-other))) + `(diary-anniversary ((,class :foreground ,red-alt-other))) + `(diary-time ((,class :foreground ,blue-alt))) + `(holiday ((,class :background ,magenta-nuanced-bg :foreground ,magenta-alt))) +;;;;; calfw + `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) + `(cfw:face-day-title ((,class :foreground ,fg-main))) + `(cfw:face-default-content ((,class :foreground ,green-alt))) + `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) + `(cfw:face-disable ((,class :foreground ,fg-unfocused))) + `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) + `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) + `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) + `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) + `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) + `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-title ((,class :inherit modus-theme-variable-pitch + :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(cfw:face-today ((,class :background ,bg-inactive))) + `(cfw:face-today-title ((,class :background ,bg-active))) + `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) + `(cfw:face-toolbar-button-off ((,class :inherit shadow))) + `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg + :foreground ,blue-alt))) +;;;;; centaur-tabs + `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) + `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) + `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) + `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) + `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; cfrs + `(cfrs-border-color ((,class :background ,fg-window-divider-inner))) +;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') + `(change-log-acknowledgment ((,class :foreground ,fg-alt))) + `(change-log-conditionals ((,class :foreground ,yellow))) + `(change-log-date ((,class :foreground ,cyan))) + `(change-log-email ((,class :foreground ,cyan-alt-other))) + `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(change-log-function ((,class :foreground ,green-alt-other))) + `(change-log-list ((,class :foreground ,magenta-alt))) + `(change-log-name ((,class :foreground ,magenta-alt-other))) + `(log-edit-header ((,class :foreground ,fg-special-warm))) + `(log-edit-summary ((,class :inherit bold :foreground ,blue))) + `(log-edit-unknown-header ((,class :inherit shadow))) + `(log-view-commit-body ((,class :foreground ,blue-nuanced-fg))) + `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(log-view-message ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; cider + `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) + `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) + `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) + `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(cider-docview-literal-face ((,class :foreground ,blue-alt))) + `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(cider-docview-table-border-face ((,class :inherit shadow))) + `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) + `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(cider-error-highlight-face ((,class :foreground ,red :underline t))) + `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) + `(cider-fringe-good-face ((,class :foreground ,green-active))) + `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) + `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) + `(cider-repl-input-face ((,class :inherit bold))) + `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) + `(cider-repl-stdout-face ((,class :foreground ,blue))) + `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) + `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) + `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) + `(cider-stacktrace-face ((,class :foreground ,fg-main))) + `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) + `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) + `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) + `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) + `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) + `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) + :background ,bg-alt :foreground ,fg-alt))) + `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) + `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) + `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) + `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) + `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) +;;;;; circe (and lui) + `(circe-fool-face ((,class :inherit shadow))) + `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) + `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(circe-server-face ((,class :foreground ,fg-unfocused))) + `(lui-button-face ((,class :inherit button))) + `(lui-highlight-face ((,class :foreground ,magenta-alt))) + `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) +;;;;; color-rg + `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) + `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) + `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) + `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) + `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) + `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) + `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) + `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) + `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) + `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) + `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-position-splitter ((,class :inherit shadow))) +;;;;; column-enforce-mode + `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; company-mode + `(company-echo-common ((,class :foreground ,magenta-alt-other))) + `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) + `(company-preview-common ((,class :foreground ,blue-alt))) + `(company-preview-search ((,class :inherit modus-theme-special-calm))) + `(company-scrollbar-bg ((,class :background ,bg-active))) + `(company-scrollbar-fg ((,class :background ,fg-active))) + `(company-template-field ((,class :inherit modus-theme-intense-magenta))) + `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) + `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) + `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) + `(company-tooltip-common-selection ((,class :foreground ,fg-main))) + `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) + `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) + `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) + `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) +;;;;; company-posframe + `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) + `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) + `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; compilation feedback + `(compilation-column-number ((,class :foreground ,magenta-alt-other))) + `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(compilation-info ((,class :inherit modus-theme-bold :foreground ,fg-special-cold))) + `(compilation-line-number ((,class :foreground ,fg-special-warm))) + `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) +;;;;; completions + `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) + `(completions-common-part ((,class ,@(modus-themes--standard-completions + blue-alt blue-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) + `(completions-first-difference ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt blue-nuanced-bg + magenta-intense-bg fg-main)))) +;;;;; consult + `(consult-async-running ((,class :inherit bold :foreground ,blue))) + `(consult-async-split ((,class :foreground ,magenta-alt))) + `(consult-bookmark ((,class :foreground ,blue))) + `(consult-file ((,class :foreground ,fg-special-cold))) + `(consult-imenu-prefix ((,class :inherit shadow))) + `(consult-key ((,class :inherit modus-themes-bold :foreground ,magenta-alt-other))) + `(consult-line-number ((,class :foreground ,fg-special-warm))) + `(consult-line-number-prefix ((,class :foreground ,fg-unfocused))) + `(consult-narrow-indicator ((,class :foreground ,magenta-alt))) + `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) + `(consult-preview-error ((,class :inherit modus-theme-intense-red))) + `(consult-preview-line ((,class :background ,bg-hl-alt-intense))) +;;;;; counsel + `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) + `(counsel-application-name ((,class :foreground ,red-alt-other))) + `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) + `(counsel-outline-1 ((,class :inherit org-level-1))) + `(counsel-outline-2 ((,class :inherit org-level-2))) + `(counsel-outline-3 ((,class :inherit org-level-3))) + `(counsel-outline-4 ((,class :inherit org-level-4))) + `(counsel-outline-5 ((,class :inherit org-level-5))) + `(counsel-outline-6 ((,class :inherit org-level-6))) + `(counsel-outline-7 ((,class :inherit org-level-7))) + `(counsel-outline-8 ((,class :inherit org-level-8))) + `(counsel-outline-default ((,class :foreground ,fg-main))) + `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) +;;;;; counsel-css + `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) + `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) + `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) + `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) + `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) + `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) +;;;;; counsel-notmuch + `(counsel-notmuch-count-face ((,class :foreground ,cyan))) + `(counsel-notmuch-date-face ((,class :foreground ,blue))) + `(counsel-notmuch-people-face ((,class :foreground ,magenta))) + `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) +;;;;; counsel-org-capture-string + `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) +;;;;; cov + `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) + `(cov-coverage-run-face ((,class :foreground ,green-intense))) + `(cov-heavy-face ((,class :foreground ,magenta-intense))) + `(cov-light-face ((,class :foreground ,blue-intense))) + `(cov-med-face ((,class :foreground ,yellow-intense))) + `(cov-none-face ((,class :foreground ,cyan-intense))) +;;;;; cperl-mode + `(cperl-nonoverridable-face ((,class :foreground unspecified))) + `(cperl-array-face ((,class :inherit font-lock-keyword-face))) + `(cperl-hash-face ((,class :inherit font-lock-variable-name-face))) +;;;;; csv-mode + `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; ctrlf + `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) + `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) + `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) +;;;;; custom (M-x customize) + `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-active))) + `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) + `(custom-comment ((,class :inherit shadow))) + `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) + `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) + `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) + `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) + `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) + `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) + `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) + `(custom-set ((,class :foreground ,blue-alt))) + `(custom-state ((,class :foreground ,cyan-alt-other))) + `(custom-themed ((,class :inherit modus-theme-subtle-blue))) + `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) +;;;;; dap-mode + `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) + `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) + `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) + `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) + `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) + `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) + `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) + `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) + `(dap-ui-sessions-terminated-face ((,class :inherit shadow))) +;;;;; dashboard (emacs-dashboard) + `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) + `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) + `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) + `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) + `(dashboard-text-banner ((,class :foreground ,fg-dim))) +;;;;; deadgrep + `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) + `(deadgrep-meta-face ((,class :inherit shadow))) + `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) + `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) +;;;;; debbugs + `(debbugs-gnu-archived ((,class :inverse-video t))) + `(debbugs-gnu-done ((,class :inherit shadow))) + `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) + `(debbugs-gnu-handled ((,class :foreground ,green))) + `(debbugs-gnu-new ((,class :foreground ,red))) + `(debbugs-gnu-pending ((,class :foreground ,cyan))) + `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) + `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) + `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) + `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) + `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) + `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) +;;;;; define-word + `(define-word-face-1 ((,class :foreground ,yellow))) + `(define-word-face-2 ((,class :foreground ,fg-main))) +;;;;; deft + `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) + `(deft-filter-string-face ((,class :foreground ,green-intense))) + `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(deft-separator-face ((,class :inherit shadow))) + `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(deft-time-face ((,class :foreground ,fg-special-cold))) + `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; dictionary + `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(dictionary-reference-face ((,class :inherit button))) + `(dictionary-word-definition-face ((,class))) + `(dictionary-word-entry-face ((,class :inherit font-lock-comment-face))) +;;;;; diff-hl + `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) + `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) + `(diff-hl-dired-change ((,class :inherit diff-hl-change))) + `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) + `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) + `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) + `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) + `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) + `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) +;;;;; diff-mode + `(diff-added ((,class :inherit modus-theme-diff-added))) + `(diff-changed ((,class :inherit modus-theme-diff-changed :extend t))) + `(diff-context ((,class ,@(modus-themes--diff-text fg-main fg-unfocused)))) + `(diff-error ((,class :inherit modus-theme-intense-red))) + `(diff-file-header ((,class :inherit (bold diff-header)))) + `(diff-function ((,class :inherit modus-theme-diff-heading))) + `(diff-header ((,class ,@(modus-themes--diff-text cyan-faint fg-main)))) + `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) + `(diff-index ((,class :inherit bold :foreground ,blue-alt))) + `(diff-indicator-added ((,class :inherit (diff-added bold) + :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) + `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) + `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) + `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(diff-removed ((,class :inherit modus-theme-diff-removed))) +;;;;; dim-autoload + `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) +;;;;; dir-treeview + `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) + `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) + `(dir-treeview-audio-face ((,class :foreground ,magenta))) + `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) + `(dir-treeview-control-face ((,class :inherit shadow))) + `(dir-treeview-control-mouse-face ((,class :inherit highlight))) + `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) + `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) + `(dir-treeview-directory-face ((,class :foreground ,blue))) + `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) + `(dir-treeview-executable-face ((,class :foreground ,red-alt))) + `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) + `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) + `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) + `(dir-treeview-indent-face ((,class :inherit shadow))) + `(dir-treeview-label-mouse-face ((,class :inherit highlight))) + `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) + `(dir-treeview-symlink-face ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) + `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) +;;;;; dired + `(dired-broken-symlink ((,class :inherit button :foreground ,red))) + `(dired-directory ((,class :foreground ,blue))) + `(dired-flagged ((,class :inherit modus-theme-mark-del))) + `(dired-header ((,class :inherit modus-theme-pseudo-header))) + `(dired-ignored ((,class :inherit shadow))) + `(dired-mark ((,class :inherit modus-theme-mark-symbol))) + `(dired-marked ((,class :inherit modus-theme-mark-sel))) + `(dired-perm-write ((,class :foreground ,fg-special-warm))) + `(dired-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) + `(dired-warning ((,class :inherit bold :foreground ,yellow))) +;;;;; dired-async + `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; dired-git + `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) + `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; dired-git-info + `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) +;;;;; dired-narrow + `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan 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 (())) +;;;;; diredc + `(diredc-face-chmod-font-lock-dir ((,class :foreground ,blue-alt))) + `(diredc-face-chmod-font-lock-exec ((,class :foreground ,magenta))) + `(diredc-face-chmod-font-lock-read ((,class :foreground ,fg-main))) + `(diredc-face-chmod-font-lock-write ((,class :foreground ,cyan))) +;;;;; diredfl + `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) + `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) + `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredfl-dir-name ((,class :inherit dired-directory))) + `(diredfl-dir-priv ((,class :foreground ,blue-alt))) + `(diredfl-exec-priv ((,class :foreground ,magenta))) + `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) + `(diredfl-file-name ((,class :foreground ,fg-main))) + `(diredfl-file-suffix ((,class :foreground ,cyan))) + `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredfl-ignored-file-name ((,class :inherit shadow))) + `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) + `(diredfl-no-priv ((,class :inherit shadow))) + `(diredfl-number ((,class :foreground ,cyan-alt))) + `(diredfl-other-priv ((,class :foreground ,yellow))) + `(diredfl-rare-priv ((,class :foreground ,red-alt))) + `(diredfl-read-priv ((,class :foreground ,fg-main))) + `(diredfl-symlink ((,class :inherit dired-symlink))) + `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredfl-write-priv ((,class :foreground ,cyan))) +;;;;; dired+ + `(diredp-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredp-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredp-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredp-date-time ((,class :foreground ,cyan-alt-other))) + `(diredp-deletion ((,class :inherit modus-theme-mark-del))) + `(diredp-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredp-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredp-dir-name ((,class :inherit dired-directory))) + `(diredp-dir-priv ((,class :foreground ,blue-alt))) + `(diredp-exec-priv ((,class :foreground ,magenta))) + `(diredp-executable-tag ((,class :foreground ,magenta-alt))) + `(diredp-file-name ((,class :foreground ,fg-main))) + `(diredp-file-suffix ((,class :foreground ,cyan))) + `(diredp-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredp-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredp-ignored-file-name ((,class :inherit shadow))) + `(diredp-link-priv ((,class :foreground ,blue-alt-other))) + `(diredp-mode-line-flagged ((,class :foreground ,red-active))) + `(diredp-mode-line-marked ((,class :foreground ,green-active))) + `(diredp-no-priv ((,class :inherit shadow))) + `(diredp-number ((,class :foreground ,cyan-alt))) + `(diredp-omit-file-name ((,class :inherit shadow :strike-through t))) + `(diredp-other-priv ((,class :foreground ,yellow))) + `(diredp-rare-priv ((,class :foreground ,red-alt))) + `(diredp-read-priv ((,class :foreground ,fg-main))) + `(diredp-symlink ((,class :inherit dired-symlink))) + `(diredp-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredp-write-priv ((,class :foreground ,cyan))) +;;;;; disk-usage + `(disk-usage-children ((,class :foreground ,yellow))) + `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) + `(disk-usage-percent ((,class :foreground ,green))) + `(disk-usage-size ((,class :foreground ,cyan))) + `(disk-usage-symlink ((,class :inherit button))) + `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) +;;;;; display-fill-column-indicator-mode + `(fill-column-indicator ((,class :foreground ,bg-active))) +;;;;; doom-modeline + `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) + `(doom-modeline-battery-charging ((,class :foreground ,green-active))) + `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) + :foreground ,red-active))) + `(doom-modeline-battery-full ((,class :foreground ,blue-active))) + `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) + `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) + `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) + `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-host ((,class :inherit italic))) + `(doom-modeline-info ((,class :foreground ,green-active))) + `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) + `(doom-modeline-persp-name ((,class :foreground ,fg-active))) + `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) + `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) + `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) + `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; dynamic-ruler + `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) + `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) +;;;;; easy-jekyll + `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) +;;;;; easy-kill + `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) + `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) +;;;;; ebdb + `(ebdb-address-default ((,class :foreground ,fg-special-calm))) + `(ebdb-defunct ((,class :inherit shadow))) + `(ebdb-field-hidden ((,class :foreground ,magenta))) + `(ebdb-label ((,class :foreground ,cyan-alt-other))) + `(ebdb-mail-default ((,class :foreground ,fg-main))) + `(ebdb-mail-primary ((,class :foreground ,magenta-alt))) + `(ebdb-marked ((,class :background ,cyan-intense-bg))) + `(ebdb-organization-name ((,class :foreground ,red-alt-other))) + `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) + `(ebdb-phone-default ((,class :foreground ,cyan))) + `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) +;;;;; ediff + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(ediff-current-diff-A ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-removed fg-diff-removed + red-nuanced-bg red-faint)))) + `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff + bg-dim fg-special-cold + bg-special-cold fg-special-cold + blue-nuanced-bg blue)))) + `(ediff-current-diff-B ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-added fg-diff-added + green-nuanced-bg green-faint + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(ediff-current-diff-C ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg yellow-faint)))) + `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) + `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) + `(ediff-fine-diff-B + ((,class :background ,@(modus-themes--diff-deuteran bg-diff-focus-added-deuteran bg-diff-focus-added) + :foreground ,@(modus-themes--diff-deuteran fg-diff-focus-added-deuteran fg-diff-focus-added)))) + `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) + `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) + `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) +;;;;; eglot + `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) +;;;;; el-search + `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) + `(el-search-match ((,class :inherit modus-theme-intense-green))) + `(el-search-other-match ((,class :inherit modus-theme-special-mild))) + `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) +;;;;; eldoc + ;; NOTE: see https://github.com/purcell/package-lint/issues/187 + (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; eldoc-box + `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) + `(eldoc-box-border ((,class :background ,fg-alt))) +;;;;; elfeed + `(elfeed-log-date-face ((,class :inherit elfeed-search-date-face))) + `(elfeed-log-debug-level-face ((,class :inherit elfeed-search-filter-face))) + `(elfeed-log-error-level-face ((,class :inherit error))) + `(elfeed-log-info-level-face ((,class :inherit success))) + `(elfeed-log-warn-level-face ((,class :inherit warning))) + `(elfeed-search-date-face ((,class :foreground ,cyan))) + `(elfeed-search-feed-face ((,class :foreground ,blue-faint))) + `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) + `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) + `(elfeed-search-tag-face ((,class :foreground ,cyan-alt-other))) + `(elfeed-search-title-face ((,class :foreground ,fg-dim))) + `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) + `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; elfeed-score + `(elfeed-score-date-face ((,class :foreground ,blue))) + `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) + `(elfeed-score-error-level-face ((,class :foreground ,red))) + `(elfeed-score-info-level-face ((,class :foreground ,cyan))) + `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) +;;;;; emms + `(emms-playlist-track-face ((,class :foreground ,blue))) + `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) +;;;;; enhanced-ruby-mode + `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) + `(enh-ruby-op-face ((,class :foreground ,fg-main))) + `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) + `(enh-ruby-regexp-face ((,class :foreground ,magenta))) + `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) + `(erm-syn-errline ((,class :foreground ,red :underline t))) + `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) +;;;;; epa + `(epa-field-body ((,class :foreground ,fg-main))) + `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) + `(epa-mark ((,class :inherit bold :foreground ,magenta))) + `(epa-string ((,class :foreground ,blue-alt))) + `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) + `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) + `(epa-validity-low ((,class :inherit shadow))) + `(epa-validity-medium ((,class :foreground ,green-alt))) +;;;;; equake + `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) + `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) + `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) + `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) + `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) + `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) + `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) + `(equake-tab-inactive ((,class :foreground ,fg-inactive))) +;;;;; erc + `(erc-action-face ((,class :inherit bold :foreground ,cyan))) + `(erc-bold-face ((,class :inherit bold))) + `(erc-button ((,class :inherit button))) + `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) + `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) + `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) + `(erc-direct-msg-face ((,class :foreground ,magenta))) + `(erc-error-face ((,class :inherit bold :foreground ,red))) + `(erc-fool-face ((,class :foreground ,fg-inactive))) + `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) + `(erc-input-face ((,class :foreground ,fg-special-calm))) + `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) + `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) + `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) + `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) + `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) + `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) + `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) + `(erc-notice-face ((,class :foreground ,fg-unfocused))) + `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) + `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) + `(erc-underline-face ((,class :underline t))) + `(bg:erc-color-face0 ((,class :background "white"))) + `(bg:erc-color-face1 ((,class :background "black"))) + `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) + `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) + `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) + `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) + `(bg:erc-color-face14 ((,class :background "gray60"))) + `(bg:erc-color-face15 ((,class :background "gray80"))) + `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) + `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) + `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) + `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) + `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) + `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) + `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) + `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) + `(fg:erc-color-face0 ((,class :foreground "white"))) + `(fg:erc-color-face1 ((,class :foreground "black"))) + `(fg:erc-color-face10 ((,class :foreground ,cyan))) + `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) + `(fg:erc-color-face12 ((,class :foreground ,blue))) + `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) + `(fg:erc-color-face14 ((,class :foreground "gray60"))) + `(fg:erc-color-face15 ((,class :foreground "gray80"))) + `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) + `(fg:erc-color-face3 ((,class :foreground ,green))) + `(fg:erc-color-face4 ((,class :foreground ,red))) + `(fg:erc-color-face5 ((,class :foreground ,red-alt))) + `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) + `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) + `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) + `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) +;;;;; eros + `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) + :background ,bg-dim :foreground ,fg-dim))) +;;;;; ert + `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) + `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) +;;;;; eshell + `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) + `(eshell-ls-backup ((,class :foreground ,yellow-alt))) + `(eshell-ls-clutter ((,class :foreground ,red-alt))) + `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) + `(eshell-ls-executable ((,class :foreground ,magenta-alt))) + `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) + `(eshell-ls-product ((,class :foreground ,fg-special-warm))) + `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) + `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) + `(eshell-ls-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(eshell-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + green-alt-other + green-nuanced-bg green-alt + green-refine-bg fg-main)))) +;;;;; eshell-fringe-status + `(eshell-fringe-status-failure ((,class :foreground ,red))) + `(eshell-fringe-status-success ((,class :foreground ,green))) +;;;;; eshell-git-prompt + `(eshell-git-prompt-add-face ((,class :inherit shadow))) + `(eshell-git-prompt-branch-face ((,class :inherit shadow))) + `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) + `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) + `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) + `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) + `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) + `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) + `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) + `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) +;;;;; eshell-prompt-extras (epe) + `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) + `(epe-git-dir-face ((,class :foreground ,red-alt-other))) + `(epe-git-face ((,class :foreground ,cyan-alt))) + `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) + `(epe-pipeline-host-face ((,class :foreground ,blue))) + `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) + `(epe-pipeline-user-face ((,class :foreground ,magenta))) + `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(epe-status-face ((,class :foreground ,magenta-alt-other))) + `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) +;;;;; eshell-syntax-highlighting + `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) + `(eshell-syntax-highlighting-comment-face ((,class :inherit shadow))) + `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) + `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) + `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) + `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) + `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) + `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) +;;;;; evil-mode + `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) + `(evil-ex-info ((,class :foreground ,cyan-alt-other))) + `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(evil-ex-search ((,class :inherit modus-theme-intense-green))) + `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) + `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; evil-goggles + `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) + `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) + `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) + `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) + `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) + `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) + `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) + `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) + `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) + `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) + `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) +;;;;; evil-snipe + `(evil-snipe-first-match-face ((,class :inherit (bold modus-theme-intense-blue)))) + `(evil-snipe-matches-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; evil-visual-mark-mode + `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) +;;;;; eww + `(eww-invalid-certificate ((,class :foreground ,red-active))) + `(eww-valid-certificate ((,class :foreground ,green-active))) + `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) + `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) + `(eww-form-select ((,class :inherit eww-form-checkbox))) + `(eww-form-submit ((,class :inherit eww-form-file))) + `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) + `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) +;;;;; eyebrowse + `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) +;;;;; fancy-dabbrev + `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(fancy-dabbrev-preview-face ((,class :inherit shadow :underline t))) + `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) +;;;;; flycheck + `(flycheck-error ((,class :inherit modus-theme-lang-error))) + `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) + `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) + `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(flycheck-error-list-filename ((,class :foreground ,blue))) + `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) + `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) + `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) + `(flycheck-error-list-info ((,class :foreground ,cyan))) + `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) + `(flycheck-error-list-warning ((,class :foreground ,yellow))) + `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) + `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) + `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) + `(flycheck-info ((,class :inherit modus-theme-lang-note))) + `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) + `(flycheck-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flycheck-color-mode-line + `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) + `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) +;;;;; flycheck-indicator + `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) + `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) +;;;;; flycheck-posframe + `(flycheck-posframe-background-face ((,class :background ,bg-alt))) + `(flycheck-posframe-border-face ((,class :inherit shadow))) + `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) + `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) + `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; flymake + `(flymake-error ((,class :inherit modus-theme-lang-error))) + `(flymake-note ((,class :inherit modus-theme-lang-note))) + `(flymake-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flyspell + `(flyspell-duplicate ((,class :inherit modus-theme-lang-warning))) + `(flyspell-incorrect ((,class :inherit modus-theme-lang-error))) +;;;;; flyspell-correct + `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) +;;;;; flx + `(flx-highlight-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) +;;;;; freeze-it + `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) +;;;;; frog-menu + `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) + `(frog-menu-actions-face ((,class :foreground ,magenta))) + `(frog-menu-border ((,class :background ,bg-active))) + `(frog-menu-candidates-face ((,class :foreground ,fg-main))) + `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) + `(frog-menu-prompt-face ((,class :foreground ,cyan))) +;;;;; focus + `(focus-unfocused ((,class :foreground ,fg-unfocused))) +;;;;; fold-this + `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) +;;;;; font-lock + `(font-lock-builtin-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt magenta-alt-faint blue-alt)))) + `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) + `(font-lock-comment-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-alt fg-comment-yellow)))) + `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra + blue-alt-other blue-alt-other-faint magenta-alt-other)))) + `(font-lock-doc-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-docstring + fg-docstring green-alt-other-faint + green-alt-other-faint magenta-nuanced-fg)))) + `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra + magenta magenta-faint magenta-alt)))) + `(font-lock-keyword-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) + `(font-lock-negation-char-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow yellow-faint)))) + `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground + red-alt-other red-alt-other-faint)))) + `(font-lock-regexp-grouping-backslash ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-backslash yellow-alt-faint + magenta-alt-other blue-alt)))) + `(font-lock-regexp-grouping-construct ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-construct red-alt-other-faint + red magenta-alt)))) + `(font-lock-string-face ((,class ,@(modus-themes--syntax-string + blue-alt blue-alt-faint green green-alt)))) + `(font-lock-type-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + cyan-alt-other cyan-alt-faint cyan-alt)))) + `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra + cyan cyan-faint blue-alt-faint)))) + `(font-lock-warning-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow-active yellow-alt-faint)))) +;;;;; forge + `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) + `(forge-post-date ((,class :foreground ,fg-special-cold))) + `(forge-topic-closed ((,class :inherit shadow))) + `(forge-topic-merged ((,class :inherit shadow))) + `(forge-topic-open ((,class :foreground ,fg-special-mild))) + `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) +;;;;; fountain-mode + `(fountain-character ((,class :foreground ,blue-alt-other))) + `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(fountain-dialog ((,class :foreground ,blue-alt))) + `(fountain-metadata-key ((,class :foreground ,green-alt-other))) + `(fountain-metadata-value ((,class :foreground ,blue))) + `(fountain-non-printing ((,class :inherit shadow))) + `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) + `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) + `(fountain-paren ((,class :foreground ,cyan))) + `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) + `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) + `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) + `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) + `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) + `(fountain-synopsis ((,class :foreground ,cyan-alt))) + `(fountain-trans ((,class :foreground ,yellow-alt-other))) +;;;;; geiser + `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) + `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) + `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) + `(geiser-font-lock-doc-link ((,class :inherit button))) + `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) + `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) + `(geiser-font-lock-repl-input ((,class :inherit bold))) + `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) + `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) + `(geiser-font-lock-xref-header ((,class :inherit bold))) + `(geiser-font-lock-xref-link ((,class :inherit button))) +;;;;; git-commit + `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) + `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) + `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(git-commit-comment-file ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-commit-keyword ((,class :foreground ,magenta))) + `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) + `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-pseudo-header ((,class :foreground ,blue))) + `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) +;;;;; git-gutter + `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) +;;;;; git-gutter-fr + `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-{gutter,fringe}+ + `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) + `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-lens + `(git-lens-added ((,class :inherit bold :foreground ,green))) + `(git-lens-deleted ((,class :inherit bold :foreground ,red))) + `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) + `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) + `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) +;;;;; git-rebase + `(git-rebase-comment-hash ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-rebase-description ((,class :foreground ,fg-main))) + `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) +;;;;; git-timemachine + `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) + `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) + `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) +;;;;; git-walktree + `(git-walktree-commit-face ((,class :foreground ,yellow))) + `(git-walktree-symlink-face ((,class :inherit button))) + `(git-walktree-tree-face ((,class :foreground ,magenta))) +;;;;; gnus + `(gnus-button ((,class :inherit button))) + `(gnus-cite-1 ((,class :foreground ,blue-faint))) + `(gnus-cite-10 ((,class :foreground ,yellow-alt-other))) + `(gnus-cite-11 ((,class :foreground ,magenta-alt))) + `(gnus-cite-2 ((,class :foreground ,green-alt-other))) + `(gnus-cite-3 ((,class :foreground ,red-alt-other))) + `(gnus-cite-4 ((,class :foreground ,cyan))) + `(gnus-cite-5 ((,class :foreground ,yellow-alt))) + `(gnus-cite-6 ((,class :foreground ,magenta))) + `(gnus-cite-7 ((,class :foreground ,green-alt))) + `(gnus-cite-8 ((,class :foreground ,magenta-alt-other))) + `(gnus-cite-9 ((,class :foreground ,cyan-alt))) + `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) + `(gnus-emphasis-bold ((,class :inherit bold))) + `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) + `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) + `(gnus-emphasis-italic ((,class :inherit italic))) + `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) + `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) + `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) + `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) + `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) + `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) + `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) + `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) + `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) + `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) + `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) + `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) + `(gnus-group-news-1-empty ((,class :foreground ,green))) + `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) + `(gnus-group-news-2-empty ((,class :foreground ,cyan))) + `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) + `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-group-news-6-empty ((,class :inherit shadow))) + `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) + `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) + `(gnus-header-content ((,class :inherit message-header-other))) + `(gnus-header-from ((,class :inherit message-header-to :underline nil))) + `(gnus-header-name ((,class :inherit message-header-name))) + `(gnus-header-newsgroups ((,class :inherit message-header-newsgroups))) + `(gnus-header-subject ((,class :inherit message-header-subject))) + `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) + `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) + `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) + `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) + `(gnus-server-denied ((,class :inherit bold :foreground ,red))) + `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) + `(gnus-server-opened ((,class :inherit bold :foreground ,green))) + `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) + `(gnus-splash ((,class :inherit shadow))) + `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) + `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) + `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) + `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) + `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) + `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) + `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) + `(gnus-summary-normal-read ((,class :inherit shadow))) + `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) + `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) + `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) + `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) +;;;;; golden-ratio-scroll-screen + `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; helm + `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) + `(helm-action ((,class :underline t))) + `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) + `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) + `(helm-bookmark-file ((,class :foreground ,fg-main))) + `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) + `(helm-bookmark-gnus ((,class :foreground ,magenta))) + `(helm-bookmark-info ((,class :foreground ,cyan-alt))) + `(helm-bookmark-man ((,class :foreground ,yellow-alt))) + `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) + `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) + `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) + `(helm-buffer-file ((,class :foreground ,fg-main))) + `(helm-buffer-modified ((,class :foreground ,yellow-alt))) + `(helm-buffer-not-saved ((,class :foreground ,red-alt))) + `(helm-buffer-process ((,class :foreground ,magenta))) + `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) + `(helm-buffer-size ((,class :inherit shadow))) + `(helm-candidate-number ((,class :foreground ,cyan-active))) + `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) + `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) + `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) + `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) + `(helm-ff-backup-file ((,class :inherit shadow))) + `(helm-ff-denied ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red)))) + `(helm-ff-directory ((,class :inherit helm-buffer-directory))) + `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) + `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) + `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) + `(helm-ff-executable ((,class :foreground ,magenta-alt))) + `(helm-ff-file ((,class :foreground ,fg-main))) + `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) + `(helm-ff-invalid-symlink ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-magenta + 'modus-theme-subtle-magenta + 'modus-theme-nuanced-magenta + magenta)))) + `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-yellow + 'modus-theme-subtle-yellow + 'modus-theme-nuanced-yellow + yellow-alt-other)))) + `(helm-ff-socket ((,class :foreground ,red-alt-other))) + `(helm-ff-suid ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-refine-red + 'modus-theme-nuanced-yellow + red-alt)))) + `(helm-ff-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(helm-ff-truename ((,class :foreground ,blue-alt-other))) + `(helm-fd-finish ((,class :foreground ,green-active))) + `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) + `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-grep-finish ((,class :foreground ,green-active))) + `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) + `(helm-grep-match ((,class :inherit modus-theme-special-calm))) + `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) + `(helm-history-deleted ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red + 'bold)))) + `(helm-history-remote ((,class :foreground ,red-alt-other))) + `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) + `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-yellow + 'modus-theme-refine-yellow + 'modus-theme-nuanced-yellow + yellow + 'bold)))) + `(helm-locate-finish ((,class :foreground ,green-active))) + `(helm-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan + 'bold)))) + `(helm-match-item ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-subtle-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) + `(helm-moccur-buffer ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) + `(helm-non-file-buffer ((,class :inherit shadow))) + `(helm-prefarg ((,class :foreground ,red-active))) + `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(helm-selection ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-special-cold + nil + 'bold)))) + `(helm-selection-line ((,class :inherit modus-theme-special-cold))) + `(helm-separator ((,class :foreground ,fg-special-mild))) + `(helm-time-zone-current ((,class :foreground ,green))) + `(helm-time-zone-home ((,class :foreground ,magenta))) + `(helm-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(helm-top-columns ((,class :inherit helm-header))) + `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) + `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) +;;;;; helm-ls-git + `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) + `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) + `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) + `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) + `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) + `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) + `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) + `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) + `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) +;;;;; helm-switch-shell + `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) +;;;;; helm-xref + `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) +;;;;; helpful + `(helpful-heading ((,class :inherit modus-theme-heading-1))) +;;;;; highlight region or ad-hoc regexp + `(hi-aquamarine ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) + `(hi-black-b ((,class :inherit bold :background ,fg-main :foreground ,bg-main))) + `(hi-black-hb ((,class :inherit bold :background ,fg-alt :foreground ,bg-main))) + `(hi-blue ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(hi-blue-b ((,class :inherit (bold hi-blue)))) + `(hi-green ((,class :background ,green-subtle-bg :foreground ,fg-main))) + `(hi-green-b ((,class :inherit (bold hi-green)))) + `(hi-pink ((,class :background ,magenta-subtle-bg :foreground ,fg-main))) + `(hi-pink-b ((,class :inherit (bold hi-pink)))) + `(hi-red-b ((,class :inherit bold :background ,red-intense-bg :foreground ,fg-main))) + `(hi-salmon ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(hi-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-main))) + `(highlight ((,class :inherit modus-theme-subtle-blue))) + `(highlight-changes ((,class :foreground ,yellow-alt-other))) + `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) + `(hl-line ((,class :inherit modus-theme-hl-line))) +;;;;; highlight-blocks + `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) + `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) + `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) + `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) + `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) + `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) + `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; highlight-defined + `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) + `(highlight-defined-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) + `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) + `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) +;;;;; highlight-escape-sequences (`hes-mode') + `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) + `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) +;;;;; highlight-indentation + `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) + `(highlight-indentation-current-column-face ((,class :background ,bg-active))) +;;;;; highlight-numbers + `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) +;;;;; highlight-symbol + `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) +;;;;; highlight-thing + `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) +;;;;; hl-defined + `(hdefd-functions ((,class :foreground ,blue))) + `(hdefd-undefined ((,class :foreground ,red-alt))) + `(hdefd-variables ((,class :foreground ,cyan-alt))) +;;;;; hl-fill-column + `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) +;;;;; hl-todo + `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) +;;;;; hydra + `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) + `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) + `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) + `(hydra-face-red ((,class :inherit bold :foreground ,red))) + `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) +;;;;; hyperlist + `(hyperlist-condition ((,class :foreground ,green))) + `(hyperlist-hashtag ((,class :foreground ,yellow))) + `(hyperlist-operator ((,class :foreground ,blue-alt))) + `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) + `(hyperlist-quote ((,class :foreground ,cyan-alt))) + `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) + `(hyperlist-stars ((,class :inherit shadow))) + `(hyperlist-tag ((,class :foreground ,red))) + `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) +;;;;; icomplete + `(icomplete-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) +;;;;; icomplete-vertical + `(icomplete-vertical-separator ((,class :inherit shadow))) +;;;;; ido-mode + `(ido-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) + `(ido-incomplete-regexp ((,class :inherit error))) + `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) + `(ido-only-match ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-intense-bg fg-main)))) + `(ido-subdir ((,class :foreground ,blue))) + `(ido-virtual ((,class :foreground ,fg-special-warm))) +;;;;; iedit + `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) + `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) +;;;;; iflipb + `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) + `(iflipb-other-buffer-face ((,class :inherit shadow))) +;;;;; imenu-list + `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) + `(imenu-list-entry-face-1 ((,class :foreground ,blue))) + `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) + `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) + `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) + `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) + `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) + `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) +;;;;; indium + `(indium-breakpoint-face ((,class :foreground ,red-active))) + `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) + `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) + `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) + `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) + `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(indium-repl-stdout-face ((,class :foreground ,fg-main))) +;;;;; info + `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) ; the capitalization is canonical + :background ,bg-alt :foreground ,fg-special-calm))) + `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) + `(info-header-xref ((,class :foreground ,blue-active))) + `(info-index-match ((,class :inherit match))) + `(info-menu-header ((,class :inherit modus-theme-heading-3))) + `(info-menu-star ((,class :foreground ,red))) + `(info-node ((,class :inherit bold))) + `(info-title-1 ((,class :inherit modus-theme-heading-1))) + `(info-title-2 ((,class :inherit modus-theme-heading-2))) + `(info-title-3 ((,class :inherit modus-theme-heading-3))) + `(info-title-4 ((,class :inherit modus-theme-heading-4))) +;;;;; info-colors + `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) + `(info-colors-ref-item-command ((,class :foreground ,magenta))) + `(info-colors-ref-item-constant ((,class :inherit font-lock-constant-face))) + `(info-colors-ref-item-function ((,class :inherit font-lock-function-name-face))) + `(info-colors-ref-item-macro ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-other ((,class :inherit font-lock-doc-face))) + `(info-colors-ref-item-special-form ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-syntax-class ((,class :inherit font-lock-builtin-face))) + `(info-colors-ref-item-type ((,class :inherit font-lock-type-face))) + `(info-colors-ref-item-user-option ((,class :inherit font-lock-variable-name-face))) + `(info-colors-ref-item-variable ((,class :inherit font-lock-variable-name-face))) +;;;;; interaction-log + `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) + `(ilog-change-face ((,class :foreground ,magenta-alt))) + `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) + `(ilog-load-face ((,class :foreground ,green))) + `(ilog-message-face ((,class :inherit shadow))) + `(ilog-non-change-face ((,class :foreground ,blue))) +;;;;; ioccur + `(ioccur-cursor ((,class :foreground ,fg-main))) + `(ioccur-invalid-regexp ((,class :foreground ,red))) + `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) + `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) + `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) + `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) + `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) +;;;;; isearch, occur, and the like + `(isearch ((,class :inherit (modus-theme-intense-green bold)))) + `(isearch-fail ((,class :inherit modus-theme-refine-red))) + `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) + `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) + `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(match ((,class :inherit modus-theme-special-calm))) + `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) +;;;;; isl (isearch-light) + `(isl-line ((,class :inherit modus-theme-subtle-green))) + `(isl-match ((,class :inherit modus-theme-refine-cyan))) + `(isl-number ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(isl-on ((,class :inherit (bold modus-theme-intense-green)))) + `(isl-string ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; ivy + `(ivy-action ((,class :inherit bold :foreground ,red-alt))) + `(ivy-completions-annotations ((,class :inherit completions-annotations))) + `(ivy-confirm-face ((,class :foreground ,cyan))) + `(ivy-current-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-cyan + 'modus-theme-intense-cyan + 'modus-theme-special-cold + nil + 'bold)))) + `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) + `(ivy-grep-info ((,class :foreground ,cyan-alt))) + `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) + `(ivy-highlight-face ((,class :foreground ,magenta))) + `(ivy-match-required-face ((,class :inherit error))) + `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-intense-neutral + 'modus-theme-nuanced-cyan + fg-alt)))) + `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-green + 'modus-theme-refine-green + 'modus-theme-nuanced-green + green-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) + `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-intense-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other + 'bold)))) + `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) + `(ivy-org ((,class :foreground ,cyan-alt-other))) + `(ivy-prompt-match ((,class :inherit ivy-current-match))) + `(ivy-remote ((,class :foreground ,magenta))) + `(ivy-separator ((,class :inherit shadow))) + `(ivy-subdir ((,class :foreground ,blue-alt-other))) + `(ivy-virtual ((,class :foreground ,magenta-alt-other))) + `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt)))) +;;;;; ivy-posframe + `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) + `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) + `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) +;;;;; jira (org-jira) + `(jiralib-comment-face ((,class :background ,bg-alt))) + `(jiralib-comment-header-face ((,class :inherit bold))) + `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) + `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) + `(jiralib-issue-summary-face ((,class :inherit bold))) + `(jiralib-link-filter-face ((,class :underline t))) + `(jiralib-link-issue-face ((,class :underline t))) + `(jiralib-link-project-face ((,class :underline t))) +;;;;; journalctl-mode + `(journalctl-error-face ((,class :inherit bold :foreground ,red))) + `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) + `(journalctl-host-face ((,class :foreground ,blue))) + `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) + `(journalctl-starting-face ((,class :foreground ,green))) + `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) + `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; js2-mode + `(js2-error ((,class :foreground ,red))) + `(js2-external-variable ((,class :foreground ,cyan-alt-other))) + `(js2-function-call ((,class :foreground ,magenta))) + `(js2-function-param ((,class :foreground ,blue))) + `(js2-instance-member ((,class :foreground ,magenta-alt-other))) + `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) + `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) + `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) + `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) + `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) + `(js2-object-property ((,class :foreground ,fg-main))) + `(js2-object-property-access ((,class :foreground ,fg-main))) + `(js2-private-function-call ((,class :foreground ,green-alt-other))) + `(js2-private-member ((,class :foreground ,fg-special-mild))) + `(js2-warning ((,class :foreground ,yellow-alt :underline t))) +;;;;; julia + `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) + `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) +;;;;; jupyter + `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) + `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) + `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) + `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) +;;;;; kaocha-runner + `(kaocha-runner-error-face ((,class :foreground ,red))) + `(kaocha-runner-success-face ((,class :foreground ,green))) + `(kaocha-runner-warning-face ((,class :foreground ,yellow))) +;;;;; keycast + `(keycast-command ((,class :inherit bold :foreground ,blue-active))) + `(keycast-key ((,class ,@(modus-themes--mode-line-attrs + bg-main blue-active + bg-main blue-active + blue-active blue-intense + 'alt-style -3)))) +;;;;; line numbers (display-line-numbers-mode and global variant) + `(line-number + ((,class :inherit default + ,@(modus-themes--line-numbers + fg-alt bg-dim + fg-unfocused)))) + `(line-number-current-line + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-main bg-active + blue-alt-other)))) + `(line-number-major-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + yellow-nuanced-fg yellow-nuanced-bg + red-alt)))) + `(line-number-minor-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-alt bg-inactive + fg-inactive)))) +;;;;; lsp-mode + `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) + `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) + `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) + `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-deprecated + ((,(append '((supports :underline (:style wave))) class) + :foreground ,yellow :underline (:style wave)) + (,class :foreground ,yellow :underline t))) + `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) + `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(lsp-face-semhl-function ((,class :foreground ,magenta))) + `(lsp-face-semhl-method ((,class :foreground ,magenta))) + `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) + `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-variable ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) + `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) + `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) + `(lsp-ui-doc-background ((,class :background ,bg-alt))) + `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-doc-url ((,class :inherit button))) + `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) + `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) + `(lsp-ui-peek-line-number ((,class :inherit shadow))) + `(lsp-ui-peek-list ((,class :background ,bg-dim))) + `(lsp-ui-peek-peek ((,class :background ,bg-alt))) + `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) + `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) + `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) + `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) + `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) +;;;;; macrostep + `(macrostep-compiler-macro-face ((,class :inherit italic))) + `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) + `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) + `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) + `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) + `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) + `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) + `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) +;;;;; magit + `(magit-bisect-bad ((,class :foreground ,red-alt-other))) + `(magit-bisect-good ((,class :foreground ,green-alt-other))) + `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) + `(magit-blame-date ((,class :foreground ,blue))) + `(magit-blame-dimmed ((,class :inherit shadow))) + `(magit-blame-hash ((,class :foreground ,fg-special-warm))) + `(magit-blame-heading ((,class :background ,bg-alt))) + `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) + `(magit-blame-margin ((,class :inherit magit-blame-highlight))) + `(magit-blame-name ((,class :foreground ,magenta-alt-other))) + `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) + `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) + `(magit-branch-local ((,class :foreground ,blue-alt))) + `(magit-branch-remote ((,class :foreground ,magenta-alt))) + `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) + `(magit-branch-upstream ((,class :inherit italic))) + `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces, though only for the standard actions, + ;; not the highlighted ones. This is because Magit's interaction + ;; model relies on highlighting the current diff hunk. + `(magit-diff-added ((,class ,@(modus-themes--diff + bg-main green + bg-diff-added fg-diff-added + green-nuanced-bg fg-diff-added + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) + `(magit-diff-base ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg fg-diff-changed)))) + `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) + `(magit-diff-context ((,class :foreground ,fg-unfocused))) + `(magit-diff-context-highlight ((,class ,@(modus-themes--diff + bg-dim fg-dim + bg-inactive fg-inactive + bg-dim fg-alt)))) + `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) + `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) + `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active + :foreground ,fg-inactive))) + `(magit-diff-hunk-heading-highlight + ((,class :inherit bold + :background ,@(modus-themes--diff-deuteran bg-region bg-diff-heading) + :foreground ,@(modus-themes--diff-deuteran fg-main fg-diff-heading)))) + `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) + `(magit-diff-hunk-region ((,class :inherit bold))) + `(magit-diff-lines-boundary ((,class :background ,fg-main))) + `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) + `(magit-diff-removed ((,class ,@(modus-themes--diff + bg-main red + bg-diff-removed fg-diff-removed + red-nuanced-bg fg-diff-removed)))) + `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) + `(magit-diffstat-added ((,class :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(magit-diffstat-removed ((,class :foreground ,red))) + `(magit-dimmed ((,class :foreground ,fg-unfocused))) + `(magit-filename ((,class :foreground ,fg-special-cold))) + `(magit-hash ((,class :inherit shadow))) + `(magit-head ((,class :inherit magit-branch-local))) + `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) + `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) + `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) + `(magit-keyword ((,class :foreground ,magenta))) + `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) + `(magit-log-author ((,class :foreground ,cyan))) + `(magit-log-date ((,class :inherit shadow))) + `(magit-log-graph ((,class :foreground ,fg-dim))) + `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) + `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) + `(magit-process-ng ((,class :inherit error))) + `(magit-process-ok ((,class :inherit success))) + `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) + `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) + `(magit-refname ((,class :inherit shadow))) + `(magit-refname-pullreq ((,class :inherit shadow))) + `(magit-refname-stash ((,class :inherit shadow))) + `(magit-refname-wip ((,class :inherit shadow))) + `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) + `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) + `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) + `(magit-section-highlight ((,class :background ,bg-alt))) + `(magit-sequence-done ((,class :foreground ,green-alt))) + `(magit-sequence-drop ((,class :foreground ,red-alt))) + `(magit-sequence-exec ((,class :foreground ,magenta-alt))) + `(magit-sequence-head ((,class :foreground ,cyan-alt))) + `(magit-sequence-onto ((,class :inherit shadow))) + `(magit-sequence-part ((,class :foreground ,yellow-alt))) + `(magit-sequence-pick ((,class :foreground ,blue-alt))) + `(magit-sequence-stop ((,class :foreground ,red))) + `(magit-signature-bad ((,class :inherit bold :foreground ,red))) + `(magit-signature-error ((,class :foreground ,red-alt))) + `(magit-signature-expired ((,class :foreground ,yellow))) + `(magit-signature-expired-key ((,class :foreground ,yellow))) + `(magit-signature-good ((,class :foreground ,green))) + `(magit-signature-revoked ((,class :foreground ,magenta))) + `(magit-signature-untrusted ((,class :foreground ,cyan))) + `(magit-tag ((,class :foreground ,yellow-alt-other))) +;;;;; magit-imerge + `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) +;;;;; make-mode (makefiles) + `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) + `(makefile-space ((,class :background ,magenta-nuanced-bg))) +;;;;; man + `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) + `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) + `(Man-underline ((,class :foreground ,cyan :underline t))) +;;;;; marginalia + `(marginalia-archive ((,class :foreground ,green-nuanced-fg))) + `(marginalia-date ((,class :foreground ,blue-nuanced-fg))) + `(marginalia-char ((,class :foreground ,red-active))) + `(marginalia-documentation ((,class :foreground ,fg-special-cold :inherit modus-theme-slant))) + `(marginalia-file-modes ((,class :inherit shadow))) + `(marginalia-file-name ((,class :foreground ,fg-special-mild))) + `(marginalia-file-owner ((,class :foreground ,red-nuanced-fg))) + `(marginalia-key ((,class :foreground ,magenta-active))) + `(marginalia-mode ((,class :foreground ,cyan-active))) + `(marginalia-modified ((,class :foreground ,yellow-active))) + `(marginalia-number ((,class :foreground ,blue-active))) + `(marginalia-size ((,class :foreground ,green-active))) + `(marginalia-type ((,class :foreground ,fg-special-warm))) + `(marginalia-variable ((,class :foreground ,yellow-nuanced-fg))) + `(marginalia-version ((,class :foreground ,cyan-active))) +;;;;; markdown-mode + `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-bold-face ((,class :inherit bold))) + `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) + `(markdown-comment-face ((,class :inherit font-lock-comment-face))) + `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) + `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) + `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) + `(markdown-header-face ((t nil))) + `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) + `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) + `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) + `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) + `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) + `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) + `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,blue))) + `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-mild))) + `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,magenta-alt))) + `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt + :foreground ,fg-alt))) + `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) + `(markdown-link-face ((,class :inherit button))) + `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-list-face ((,class :foreground ,fg-dim))) + `(markdown-markup-face ((,class :inherit shadow))) + `(markdown-math-face ((,class :foreground ,magenta-alt-other))) + `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) + `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) + `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) + `(markdown-plain-url-face ((,class :inherit markdown-link-face))) + `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) + `(markdown-reference-face ((,class :inherit markdown-markup-face))) + `(markdown-strike-through-face ((,class :strike-through t))) + `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-url-face ((,class :foreground ,blue-alt))) +;;;;; markup-faces (`adoc-mode') + `(markup-anchor-face ((,class :foreground ,fg-inactive))) + `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) + `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) + `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) + `(markup-command-face ((,class :foreground ,fg-inactive))) + `(markup-comment-face ((,class :inherit font-lock-comment-face))) + `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) + :inherit modus-theme-refine-magenta))) + `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-error-face ((,class :inherit bold :foreground ,red))) + `(markup-gen-face ((,class :foreground ,magenta-alt))) + `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) + `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-list-face ((,class :inherit modus-theme-special-calm))) + `(markup-meta-face ((,class :foreground ,fg-inactive))) + `(markup-meta-hide-face ((,class :inherit shadow))) + `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) + `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) + `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) + `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) + `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) + `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) + `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) + `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) + `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) + `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) + `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) + `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) + `(markup-value-face ((,class :foreground ,fg-inactive))) + `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) +;;;;; mentor + `(mentor-download-message ((,class :foreground ,fg-special-warm))) + `(mentor-download-name ((,class :foreground ,fg-special-cold))) + `(mentor-download-progress ((,class :foreground ,blue-alt-other))) + `(mentor-download-size ((,class :foreground ,magenta-alt-other))) + `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) + `(mentor-download-speed-up ((,class :foreground ,red-alt))) + `(mentor-download-state ((,class :foreground ,yellow-alt))) + `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(mentor-tracker-name ((,class :foreground ,magenta-alt))) +;;;;; messages + `(message-cited-text-1 ((,class :foreground ,blue-faint))) + `(message-cited-text-2 ((,class :foreground ,green-alt-other))) + `(message-cited-text-3 ((,class :foreground ,red-alt-other))) + `(message-cited-text-4 ((,class :foreground ,cyan))) + `(message-header-cc ((,class :foreground ,blue-alt-other))) + `(message-header-name ((,class :inherit bold :foreground ,cyan))) + `(message-header-newsgroups ((,class :inherit message-header-other))) + `(message-header-other ((,class :foreground ,fg-special-calm))) + `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt))) + `(message-header-to ((,class :inherit bold :foreground ,magenta-alt-other))) + `(message-header-xheader ((,class :foreground ,blue-alt))) + `(message-mml ((,class :foreground ,yellow))) + `(message-separator ((,class :inherit modus-theme-intense-neutral))) +;;;;; minibuffer-line + `(minibuffer-line ((,class :foreground ,fg-main))) +;;;;; minimap + `(minimap-active-region-background ((,class :background ,bg-active))) + `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) +;;;;; mmm-mode + `(mmm-cleanup-submode-face ((,class :background ,yellow-nuanced-bg))) + `(mmm-code-submode-face ((,class :background ,bg-alt))) + `(mmm-comment-submode-face ((,class :background ,blue-nuanced-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-nuanced-bg))) + `(mmm-default-submode-face ((,class :background ,bg-dim))) + `(mmm-init-submode-face ((,class :background ,magenta-nuanced-bg))) + `(mmm-output-submode-face ((,class :background ,red-nuanced-bg))) + `(mmm-special-submode-face ((,class :background ,green-nuanced-bg))) +;;;;; modeline + `(mode-line ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-active bg-active fg-dim bg-active + fg-alt bg-active 'alt-style nil bg-main)))) + `(mode-line-buffer-id ((,class :inherit bold))) + `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) + `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) + `(mode-line-inactive ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-inactive bg-inactive fg-alt bg-dim + bg-region bg-active)))) +;;;;; mood-line + `(mood-line-modified ((,class :foreground ,magenta-active))) + `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) + `(mood-line-status-info ((,class :foreground ,cyan-active))) + `(mood-line-status-neutral ((,class :foreground ,blue-active))) + `(mood-line-status-success ((,class :foreground ,green-active))) + `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) + `(mood-line-unimportant ((,class :foreground ,fg-inactive))) +;;;;; mpdel + `(mpdel-browser-directory-face ((,class :foreground ,blue))) + `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; mu4e + `(mu4e-attach-number-face ((,class :inherit bold :foreground ,fg-dim))) + `(mu4e-cited-1-face ((,class :foreground ,blue-faint))) + `(mu4e-cited-2-face ((,class :foreground ,green-alt-other))) + `(mu4e-cited-3-face ((,class :foreground ,red-alt-other))) + `(mu4e-cited-4-face ((,class :foreground ,cyan))) + `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) + `(mu4e-cited-6-face ((,class :foreground ,magenta))) + `(mu4e-cited-7-face ((,class :foreground ,green-alt))) + `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) + `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(mu4e-contact-face ((,class :inherit message-header-to))) + `(mu4e-context-face ((,class :foreground ,blue-active))) + `(mu4e-draft-face ((,class :foreground ,magenta-alt))) + `(mu4e-flagged-face ((,class :foreground ,red-alt))) + `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) + `(mu4e-header-face ((,class :inherit shadow))) + `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) + `(mu4e-header-key-face ((,class :inherit message-header-name))) + `(mu4e-header-marks-face ((,class :inherit mu4e-special-header-value-face))) + `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) + `(mu4e-header-value-face ((,class :inherit message-header-other))) + `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(mu4e-link-face ((,class :inherit button))) + `(mu4e-modeline-face ((,class :foreground ,magenta-active))) + `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) + `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) + `(mu4e-replied-face ((,class :foreground ,blue))) + `(mu4e-special-header-value-face ((,class :inherit message-header-subject))) + `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) + `(mu4e-title-face ((,class :foreground ,fg-main))) + `(mu4e-trashed-face ((,class :foreground ,red))) + `(mu4e-unread-face ((,class :inherit bold))) + `(mu4e-url-number-face ((,class :foreground ,fg-alt))) + `(mu4e-view-body-face ((,class :foreground ,fg-main))) + `(mu4e-warning-face ((,class :inherit warning))) +;;;;; mu4e-conversation + `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) + `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) + `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) + `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) + `(mu4e-conversation-sender-4 ((,class :inherit shadow))) + `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) + `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) + `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) + `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) + `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) + `(mu4e-conversation-unread ((,class :inherit bold))) +;;;;; multiple-cursors + `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) + `(mc/cursor-face ((,class :inverse-video t))) + `(mc/region-face ((,class :inherit region))) +;;;;; neotree + `(neo-banner-face ((,class :foreground ,magenta))) + `(neo-button-face ((,class :inherit button))) + `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) + `(neo-expand-btn-face ((,class :foreground ,cyan))) + `(neo-file-link-face ((,class :foreground ,fg-main))) + `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) + `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) + `(neo-vc-added-face ((,class :foreground ,green))) + `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) + `(neo-vc-default-face ((,class :foreground ,fg-main))) + `(neo-vc-edited-face ((,class :foreground ,yellow))) + `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) + `(neo-vc-missing-face ((,class :foreground ,red-alt))) + `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) + `(neo-vc-needs-update-face ((,class :underline t))) + `(neo-vc-removed-face ((,class :strike-through t))) + `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) + `(neo-vc-up-to-date-face ((,class :inherit shadow))) + `(neo-vc-user-face ((,class :foreground ,magenta))) +;;;;; no-emoji + `(no-emoji ((,class :foreground ,cyan))) +;;;;; notmuch + `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) + `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) + `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) + `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) + `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) + `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) + `(notmuch-hello-logo-background ((,class :background "gray50"))) + `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) + `(notmuch-search-count ((,class :inherit shadow))) + `(notmuch-search-date ((,class :foreground ,cyan))) + `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) + `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) + `(notmuch-search-non-matching-authors ((,class :inherit shadow))) + `(notmuch-search-subject ((,class :foreground ,fg-dim))) + `(notmuch-search-unread-face ((,class :inherit bold))) + `(notmuch-tag-added + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,green :style wave)) + (,class :foreground ,green :underline t))) + `(notmuch-tag-deleted + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,red :style wave)) + (,class :foreground ,red :underline t))) + `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tag-flagged ((,class :foreground ,red-alt))) + `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) + `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) + `(notmuch-tree-match-date-face ((,class :inherit notmuch-search-date))) + `(notmuch-tree-match-face ((,class :foreground ,fg-main))) + `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tree-no-match-face ((,class :inherit shadow))) + `(notmuch-tree-no-match-date-face ((,class :inherit shadow))) + `(notmuch-wash-cited-text ((,class :foreground ,cyan))) + `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; num3-mode + `(num3-face-even ((,class :inherit bold :background ,bg-alt))) +;;;;; nxml-mode + `(nxml-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) + `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) + `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) + `(nxml-cdata-section-CDATA ((,class :inherit error))) + `(nxml-cdata-section-delimiter ((,class :inherit error))) + `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(nxml-delimiter ((,class :foreground ,fg-dim))) + `(nxml-element-colon ((,class :foreground ,fg-main))) + `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) + `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) + `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) + `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) + `(nxml-heading ((,class :inherit bold))) + `(nxml-name ((,class :inherit font-lock-builtin-face))) + `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) + `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) + `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) + `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(rng-error ((,class :inherit error))) +;;;;; objed + `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-alt-intense bg-hl-alt)))) + `(objed-mark ((,class :background ,bg-active))) + `(objed-mode-line ((,class :foreground ,cyan-active))) +;;;;; orderless + `(orderless-match-face-0 ((,class :inherit bold + ,@(modus-themes--standard-completions + blue-alt-other blue-nuanced-bg + blue-refine-bg blue-refine-fg)))) + `(orderless-match-face-1 ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(orderless-match-face-2 ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-refine-bg green-refine-fg)))) + `(orderless-match-face-3 ((,class :inherit bold + ,@(modus-themes--standard-completions + yellow yellow-nuanced-bg + yellow-refine-bg yellow-refine-fg)))) +;;;;; org + `(org-agenda-calendar-event ((,class :foreground ,fg-main))) + `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) + `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) + `(org-agenda-column-dateline ((,class :background ,bg-alt))) + `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) + `(org-agenda-date ((,class :foreground ,cyan))) + `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) + `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) + `(org-agenda-diary ((,class :foreground ,fg-main))) + `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) + `(org-agenda-done ((,class :foreground ,green-alt))) + `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) + `(org-agenda-structure ((,class ,@(modus-themes--scale modus-themes-scale-5) + :foreground ,blue-alt))) + `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) + `(org-block ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-main))) + `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block-delim + bg-dim fg-special-cold + bg-alt fg-special-mild)))) + `(org-block-end-line ((,class :inherit org-block-begin-line))) + `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) + :background ,bg-inactive :foreground ,fg-active))) + `(org-checkbox-statistics-done ((,class :inherit org-done))) + `(org-checkbox-statistics-todo ((,class :inherit org-todo))) + `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) + `(org-code ((,class ,@(modus-themes--mixed-fonts) + :background ,red-nuanced-bg :foreground ,magenta))) + `(org-column ((,class :background ,bg-alt))) + `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) + `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts + 'button + '(button fixed-pitch)) + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) + `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) + `(org-document-info ((,class :foreground ,fg-special-cold))) + `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(org-done ((,class :foreground ,green))) + `(org-drawer ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-ellipsis ((,class))) ; inherits from the heading's color + `(org-footnote ((,class :inherit button + ,@(modus-themes--link-color + blue-alt blue-alt-faint)))) + `(org-formula ((,class ,@(modus-themes--mixed-fonts) + :foreground ,red-alt))) + `(org-habit-alert-face ((,class ,@(modus-themes--org-habit + yellow-graph-0-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-alert-future-face ((,class ,@(modus-themes--org-habit + yellow-graph-1-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-clear-face ((,class ,@(modus-themes--org-habit + blue-graph-0-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-clear-future-face ((,class ,@(modus-themes--org-habit + blue-graph-1-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-overdue-face ((,class ,@(modus-themes--org-habit + red-graph-0-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-overdue-future-face ((,class ,@(modus-themes--org-habit + red-graph-1-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-ready-face ((,class ,@(modus-themes--org-habit + green-graph-0-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-habit-ready-future-face ((,class ,@(modus-themes--org-habit + green-graph-1-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) + `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) + `(org-hide ((,class :foreground ,bg-main))) + `(org-indent ((,class :inherit (fixed-pitch org-hide)))) + `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) + `(org-level-1 ((,class :inherit modus-theme-heading-1))) + `(org-level-2 ((,class :inherit modus-theme-heading-2))) + `(org-level-3 ((,class :inherit modus-theme-heading-3))) + `(org-level-4 ((,class :inherit modus-theme-heading-4))) + `(org-level-5 ((,class :inherit modus-theme-heading-5))) + `(org-level-6 ((,class :inherit modus-theme-heading-6))) + `(org-level-7 ((,class :inherit modus-theme-heading-7))) + `(org-level-8 ((,class :inherit modus-theme-heading-8))) + `(org-link ((,class :inherit button))) + `(org-list-dt ((,class :inherit bold))) + `(org-macro ((,class ,@(modus-themes--mixed-fonts) + :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) + `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) + `(org-mode-line-clock ((,class :foreground ,fg-main))) + `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) + `(org-priority ((,class :foreground ,magenta))) + `(org-property-value ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-quote ((,class :inherit modus-theme-slant + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-special-cold))) + `(org-scheduled ((,class :foreground ,magenta-alt))) + `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) + `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) + `(org-sexp-date ((,class :inherit org-date))) + `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-table ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) + `(org-tag ((,class :foreground ,magenta-nuanced-fg))) + `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(org-target ((,class :underline t))) + `(org-time-grid ((,class :foreground ,fg-unfocused))) + `(org-todo ((,class :foreground ,red))) + `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) + `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) + `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(org-verse ((,class :inherit org-quote))) + `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) +;;;;; org-journal + `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) + `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) + `(org-journal-highlight ((,class :foreground ,magenta-alt))) +;;;;; org-noter + `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) + `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) +;;;;; org-pomodoro + `(org-pomodoro-mode-line ((,class :foreground ,red-active))) + `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) + `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) +;;;;; org-recur + `(org-recur ((,class :foreground ,magenta-active))) +;;;;; org-roam + `(org-roam-link ((,class :inherit button + ,@(modus-themes--link-color + green green-faint)))) + `(org-roam-link-current ((,class :inherit button + ,@(modus-themes--link-color + green-alt green-alt-faint)))) + `(org-roam-link-invalid ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(org-roam-link-shielded ((,class :inherit button + ,@(modus-themes--link-color + yellow yellow-faint)))) + `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) +;;;;; org-superstar + `(org-superstar-item ((,class :foreground ,fg-main))) + `(org-superstar-leading ((,class :foreground ,fg-whitespace))) +;;;;; org-table-sticky-header + `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) +;;;;; org-tree-slide + `(org-tree-slide-header-overlay-face + ((,class :inherit (bold modus-theme-variable-pitch) :background ,bg-main + :foreground ,fg-special-cold :overline nil + ,@(modus-themes--scale modus-themes-scale-5)))) +;;;;; org-treescope + `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) + `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) +;;;;; origami + `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) + `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; outline-mode + `(outline-1 ((,class :inherit modus-theme-heading-1))) + `(outline-2 ((,class :inherit modus-theme-heading-2))) + `(outline-3 ((,class :inherit modus-theme-heading-3))) + `(outline-4 ((,class :inherit modus-theme-heading-4))) + `(outline-5 ((,class :inherit modus-theme-heading-5))) + `(outline-6 ((,class :inherit modus-theme-heading-6))) + `(outline-7 ((,class :inherit modus-theme-heading-7))) + `(outline-8 ((,class :inherit modus-theme-heading-8))) +;;;;; outline-minor-faces + `(outline-minor-0 ((,class :background ,bg-alt))) +;;;;; package (M-x list-packages) + `(package-description ((,class :foreground ,fg-special-cold))) + `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) + `(package-name ((,class :inherit button))) + `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) + `(package-status-available ((,class :foreground ,fg-special-mild))) + `(package-status-built-in ((,class :foreground ,magenta))) + `(package-status-dependency ((,class :foreground ,magenta-alt-other))) + `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) + `(package-status-external ((,class :foreground ,cyan-alt-other))) + `(package-status-held ((,class :foreground ,yellow-alt))) + `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) + `(package-status-installed ((,class :foreground ,fg-special-warm))) + `(package-status-new ((,class :inherit bold :foreground ,green))) + `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) +;;;;; page-break-lines + `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) +;;;;; paradox + `(paradox-archive-face ((,class :foreground ,fg-special-mild))) + `(paradox-comment-face ((,class :inherit font-lock-comment-face))) + `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) + `(paradox-description-face ((,class :foreground ,fg-special-cold))) + `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) + `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) + `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) + `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) + `(paradox-name-face ((,class :foreground ,blue :underline t))) + `(paradox-star-face ((,class :foreground ,magenta))) + `(paradox-starred-face ((,class :foreground ,magenta-alt))) +;;;;; paren-face + `(parenthesis ((,class :foreground ,fg-unfocused))) +;;;;; parrot + `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; pass + `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) + `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) +;;;;; pdf-tools + `(pdf-links-read-link ((,class :background ,fg-main :foreground ,magenta-intense-bg :inherit bold))) ; Foreground is background and vice versa + `(pdf-occur-document-face ((,class :inherit shadow))) + `(pdf-occur-page-face ((,class :inherit shadow))) +;;;;; persp-mode + `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) + `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) + `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) +;;;;; perspective + `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) +;;;;; phi-grep + `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) + `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) + `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) + `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) +;;;;; phi-search + `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) + `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) + `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) + `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; pkgbuild-mode + `(pkgbuild-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; pomidor + `(pomidor-break-face ((,class :foreground ,blue-alt-other))) + `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) + `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(pomidor-work-face ((,class :foreground ,green-alt-other))) +;;;;; popup + `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) + `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) + `(popup-scroll-bar-background-face ((,class :background ,bg-active))) + `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) + `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) + `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; powerline + `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) + `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) + `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) + `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) + `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; powerline-evil + `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) + `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) + `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) + `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) + `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) + `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) + `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) + `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) +;;;;; proced + `(proced-mark ((,class :inherit modus-theme-mark-symbol))) + `(proced-marked ((,class :inherit modus-theme-mark-alt))) + `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) +;;;;; prodigy + `(prodigy-green-face ((,class :foreground ,green))) + `(prodigy-red-face ((,class :foreground ,red))) + `(prodigy-yellow-face ((,class :foreground ,yellow))) +;;;;; quick-peek + `(quick-peek-background-face ((,class :background ,bg-alt))) + `(quick-peek-border-face ((,class :background ,fg-window-divider-inner :height 1))) + `(quick-peek-padding-face ((,class :background ,bg-alt :height 0.15))) +;;;;; racket-mode + `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) + `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) + :foreground ,green-alt-other))) + `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) + :foreground ,green))) + `(racket-here-string-face ((,class :foreground ,blue-alt))) + `(racket-keyword-argument-face ((,class :foreground ,red-alt))) + `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) + `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) + `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(racket-selfeval-face ((,class :foreground ,green-alt))) + `(racket-xp-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; rainbow-blocks + `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) + `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) + `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) + `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) + `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) + `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) + `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) + `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) + `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) + `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) +;;;;; rainbow-identifiers + `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) + `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) + `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) + `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) + `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) + `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) + `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) + `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) + `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) + `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) + `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) + `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) + `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) + `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) + `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) +;;;;; rainbow-delimiters + `(rainbow-delimiters-base-error-face ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-intense))) + `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-intense))) + `(rainbow-delimiters-depth-4-face ((,class :foreground ,orange-intense))) + `(rainbow-delimiters-depth-5-face ((,class :foreground ,purple-intense))) + `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-intense))) + `(rainbow-delimiters-depth-7-face ((,class :foreground ,red-intense))) + `(rainbow-delimiters-depth-8-face ((,class :foreground ,blue-intense))) + `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-intense))) + `(rainbow-delimiters-mismatched-face ((,class :inherit (bold modus-theme-refine-yellow)))) + `(rainbow-delimiters-unmatched-face ((,class :inherit (bold modus-theme-refine-red)))) +;;;;; rcirc + `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) + `(rcirc-dim-nick ((,class :inherit shadow))) + `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) + `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) + `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) + `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) + `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) + `(rcirc-server ((,class :foreground ,fg-unfocused))) + `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) + `(rcirc-url ((,class :foreground ,blue :underline t))) +;;;;; recursion-indicator + `(recursion-indicator-general ((,class :foreground ,blue-active))) + `(recursion-indicator-minibuffer ((,class :foreground ,red-active))) +;;;;; regexp-builder (re-builder) + `(reb-match-0 ((,class :inherit modus-theme-refine-cyan))) + `(reb-match-1 ((,class :inherit modus-theme-subtle-magenta))) + `(reb-match-2 ((,class :inherit modus-theme-subtle-green))) + `(reb-match-3 ((,class :inherit modus-theme-refine-yellow))) + `(reb-regexp-grouping-backslash ((,class :inherit font-lock-regexp-grouping-backslash))) + `(reb-regexp-grouping-construct ((,class :inherit font-lock-regexp-grouping-construct))) +;;;;; rg (rg.el) + `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) + `(rg-context-face ((,class :foreground ,fg-unfocused))) + `(rg-error-face ((,class :inherit bold :foreground ,red))) + `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) + `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(rg-line-number-face ((,class :foreground ,fg-special-warm))) + `(rg-literal-face ((,class :foreground ,blue-alt))) + `(rg-match-face ((,class :inherit modus-theme-special-calm))) + `(rg-regexp-face ((,class :foreground ,magenta-active))) + `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) + `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) + `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; ripgrep + `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) + `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) + `(ripgrep-hit-face ((,class :foreground ,cyan))) + `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; rmail + `(rmail-header-name ((,class :foreground ,cyan-alt-other))) + `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) +;;;;; ruler-mode + `(ruler-mode-column-number ((,class :inherit ruler-mode-default :foreground ,fg-main))) + `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red))) + `(ruler-mode-current-column ((,class :inherit ruler-mode-default :background ,blue-subtle-bg :foreground ,fg-main))) + `(ruler-mode-default ((,class :inherit default :background ,bg-alt :foreground ,fg-unfocused))) + `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green))) + `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,cyan))) + `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,blue))) + `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) + `(ruler-mode-pad ((,class :inherit ruler-mode-default :background ,bg-active :foreground ,fg-inactive))) + `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,fg-special-warm))) +;;;;; sallet + `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) + `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) + `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) + `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) + `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) + `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) + `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) + `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) + `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) + `(sallet-flx-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) + `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) + `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(sallet-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(sallet-substring-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other)))) +;;;;; selectrum +;; NOTE 2021-02-22: The `selectrum-primary-highlight' and +;; `selectrum-secondary-highlight' are deprecated upstream in favour of +;; their selectrum-prescient counterparts. We shall remove those faces +;; from the themes once we are certain that they are no longer relevant. + `(selectrum-current-candidate + ((,class :inherit bold :foreground ,fg-main + :background ,@(pcase modus-themes-completions + ('opinionated (list bg-active)) + (_ (list bg-inactive)))))) + `(selectrum-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; selectrum-prescient + `(selectrum-prescient-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-prescient-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; semantic + `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) + `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) + `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) + `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) + `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) + `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) + `(semantic-highlight-edits-face ((,class :background ,bg-alt))) + `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) + `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) + `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) + `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) +;;;;; sesman + `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) + `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) + `(sesman-buffer-face ((,class :foreground ,magenta))) + `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) + `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; shell-script-mode + `(sh-heredoc ((,class :foreground ,blue-alt))) + `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) +;;;;; shortdoc + `(shortdoc-heading ((,class :inherit modus-theme-pseudo-header))) + `(shortdoc-section ((,class))) ; remove the default's variable-pitch style +;;;;; show-paren-mode + `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) + `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) +;;;;; shr + `(shr-abbreviation + ((,(append '((supports :underline (:style wave))) class) + :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) + (,class :foreground ,fg-docstring :underline t))) + `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) +;;;;; side-notes + `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) +;;;;; sieve-mode + `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) + `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) + `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) + `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) +;;;;; skewer-mode + `(skewer-error-face ((,class :foreground ,red :underline t))) +;;;;; smart-mode-line + `(sml/charging ((,class :foreground ,green-active))) + `(sml/discharging ((,class :foreground ,red-active))) + `(sml/filename ((,class :inherit bold :foreground ,blue-active))) + `(sml/folder ((,class :foreground ,fg-active))) + `(sml/git ((,class :inherit bold :foreground ,green-active))) + `(sml/global ((,class :foreground ,fg-active))) + `(sml/line-number ((,class :inherit sml/global))) + `(sml/minor-modes ((,class :inherit sml/global))) + `(sml/modes ((,class :inherit bold :foreground ,fg-active))) + `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) + `(sml/mule-info ((,class :inherit sml/global))) + `(sml/name-filling ((,class :foreground ,yellow-active))) + `(sml/not-modified ((,class :inherit sml/global))) + `(sml/numbers-separator ((,class :inherit sml/global))) + `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) + `(sml/position-percentage ((,class :inherit sml/global))) + `(sml/prefix ((,class :foreground ,green-active))) + `(sml/process ((,class :inherit sml/prefix))) + `(sml/projectile ((,class :inherit sml/git))) + `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) + `(sml/remote ((,class :inherit sml/global))) + `(sml/sudo ((,class :inherit modus-theme-subtle-red))) + `(sml/time ((,class :inherit sml/global))) + `(sml/vc ((,class :inherit sml/git))) + `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) +;;;;; smartparens + `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) + `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) + `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) + `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) +;;;;; smerge + `(smerge-base ((,class :inherit modus-theme-diff-changed))) + `(smerge-lower ((,class :inherit modus-theme-diff-added))) + `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) + `(smerge-refined-changed ((,class))) + `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(smerge-upper ((,class :inherit modus-theme-diff-removed))) +;;;;; solaire + `(solaire-default-face ((,class :inherit default :background ,bg-alt :foreground ,fg-dim))) + `(solaire-line-number-face ((,class :inherit solaire-default-face :foreground ,fg-unfocused))) + `(solaire-hl-line-face ((,class :background ,bg-active))) + `(solaire-org-hide-face ((,class :background ,bg-alt :foreground ,bg-alt))) +;;;;; spaceline + `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) + `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) + `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) + `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) + `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) + `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) + `(spaceline-flycheck-error ((,class :foreground ,red-active))) + `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) + `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) + `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) + `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) + `(spaceline-python-venv ((,class :foreground ,magenta-active))) + `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) + `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) +;;;;; speedbar + `(speedbar-button-face ((,class :inherit button))) + `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) + `(speedbar-file-face ((,class :foreground ,fg-main))) + `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) + `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) +;;;;; spell-fu + `(spell-fu-incorrect-face ((,class :inherit modus-theme-lang-error))) +;;;;; spray + `(spray-accent-face ((,class :foreground ,red-intense))) + `(spray-base-face ((,class :inherit default :foreground ,fg-special-cold))) +;;;;; stripes + `(stripes ((,class :inherit modus-theme-hl-line))) +;;;;; success + `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) +;;;;; switch-window + `(switch-window-background ((,class :background ,bg-dim))) + `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) +;;;;; swiper + `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) + `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) + `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) + `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) + `(swiper-line-face ((,class :inherit modus-theme-special-cold))) + `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) + `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) + `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) + `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) +;;;;; swoop + `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-3)))) + `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) + `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) + `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) +;;;;; sx + `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) + `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) + `(sx-question-list-answers ((,class :foreground ,green))) + `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) + `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) + `(sx-question-list-date ((,class :foreground ,fg-special-cold))) + `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) + `(sx-question-list-parent ((,class :foreground ,fg-main))) + `(sx-question-list-read-question ((,class :inherit shadow))) + `(sx-question-list-score ((,class :foreground ,fg-special-mild))) + `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) + `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) + `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) + `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) + `(sx-question-mode-content-face ((,class :background ,bg-dim))) + `(sx-question-mode-date ((,class :foreground ,blue))) + `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) + `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) + `(sx-question-mode-score ((,class :foreground ,fg-dim))) + `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) + `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) + `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) + `(sx-tag ((,class :foreground ,magenta-alt))) + `(sx-user-name ((,class :foreground ,blue-alt))) + `(sx-user-reputation ((,class :inherit shadow))) +;;;;; symbol-overlay + `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) + `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) + `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) + `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) + `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) + `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) + `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) + `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) + `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) +;;;;; syslog-mode + `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) + `(syslog-error ((,class :inherit bold :foreground ,red))) + `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) + `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) + `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) + `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) + `(syslog-su ((,class :inherit bold :foreground ,red-alt))) + `(syslog-warn ((,class :inherit bold :foreground ,yellow))) +;;;;; tab-bar-mode + `(tab-bar ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; tab-line-mode + `(tab-line ((,class ,@(modus-themes--variable-pitch-ui) + :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-line-close-highlight ((,class :foreground ,red))) + `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-line-tab-current ((,class :inherit tab-line-tab))) + `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) + `(tab-line-tab-inactive-alternate ((,class :box (:line-width 2 :color ,bg-tab-inactive-alt) + :background ,bg-tab-inactive-alt :foreground ,fg-main))) +;;;;; table (built-in table.el) + `(table-cell ((,class :background ,blue-nuanced-bg))) +;;;;; telephone-line + `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) + `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) + `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) + `(telephone-line-evil ((,class :foreground ,fg-main))) + `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) + `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) + `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) + `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) + `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) + `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) + `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) + `(telephone-line-projectile ((,class :foreground ,cyan-active))) + `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) + `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; terraform-mode + `(terraform--resource-name-face ((,class ,@(modus-themes--syntax-string + magenta-alt-other magenta-alt-other-faint + red-alt red-alt)))) + `(terraform--resource-type-face ((,class ,@(modus-themes--syntax-string + green green-faint + blue-alt magenta-alt)))) +;;;;; term + `(term ((,class :background ,bg-main :foreground ,fg-main))) + `(term-bold ((,class :inherit bold))) + `(term-color-black ((,class :background "gray35" :foreground "gray35"))) + `(term-color-blue ((,class :background ,blue :foreground ,blue))) + `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(term-color-green ((,class :background ,green :foreground ,green))) + `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(term-color-red ((,class :background ,red :foreground ,red))) + `(term-color-white ((,class :background "gray65" :foreground "gray65"))) + `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) + `(term-underline ((,class :underline t))) +;;;;; tomatinho + `(tomatinho-ok-face ((,class :foreground ,blue-intense))) + `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) + `(tomatinho-reset-face ((,class :inherit shadow))) +;;;;; transient + `(transient-active-infix ((,class :inherit modus-theme-special-mild))) + `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) + `(transient-argument ((,class :inherit bold :foreground ,red-alt))) + `(transient-blue ((,class :inherit bold :foreground ,blue))) + `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) + `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) + `(transient-heading ((,class :inherit bold :foreground ,fg-main))) + `(transient-inactive-argument ((,class :inherit shadow))) + `(transient-inactive-value ((,class :inherit shadow))) + `(transient-key ((,class :inherit bold :foreground ,blue))) + `(transient-mismatched-key ((,class :underline t))) + `(transient-nonstandard-key ((,class :underline t))) + `(transient-pink ((,class :inherit bold :foreground ,magenta))) + `(transient-red ((,class :inherit bold :foreground ,red-intense))) + `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) + `(transient-unreachable ((,class :foreground ,fg-unfocused))) + `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) + `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; trashed + `(trashed-deleted ((,class :inherit modus-theme-mark-del))) + `(trashed-directory ((,class :foreground ,blue))) + `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) + `(trashed-marked ((,class :inherit modus-theme-mark-alt))) + `(trashed-restored ((,class :inherit modus-theme-mark-sel))) + `(trashed-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) +;;;;; treemacs + `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) + `(treemacs-directory-face ((,class :inherit dired-directory))) + `(treemacs-file-face ((,class :foreground ,fg-main))) + `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) + `(treemacs-git-added-face ((,class :foreground ,green-intense))) + `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) + `(treemacs-git-ignored-face ((,class :inherit shadow))) + `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) + `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) + `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) + `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) + `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) + `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) + `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) + `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) + `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) + `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) + `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) + `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) + `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) + `(treemacs-tags-face ((,class :foreground ,blue-alt))) + `(treemacs-tags-face ((,class :foreground ,magenta-alt))) +;;;;; tty-menu + `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) + `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) +;;;;; tuareg + `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) + `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) + `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) + `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) + `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) + `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) + `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) + `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) + `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) + `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) + `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) + `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) + `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) + `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground ,blue))) + `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-opam-error-face ((,class :inherit error))) + `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) +;;;;; typescript + `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) + `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) + `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) +;;;;; undo-tree + `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) + `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) + `(undo-tree-visualizer-default-face ((,class :inherit shadow))) + `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) + `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) +;;;;; vc (vc-dir.el, vc-hooks.el) + `(vc-dir-directory ((,class :foreground ,blue))) + `(vc-dir-file ((,class :foreground ,fg-main))) + `(vc-dir-header ((,class :foreground ,cyan-alt-other))) + `(vc-dir-header-value ((,class :foreground ,magenta-alt-other))) + `(vc-dir-mark-indicator ((,class :foreground ,blue-alt-other))) + `(vc-dir-status-edited ((,class :foreground ,yellow))) + `(vc-dir-status-ignored ((,class :foreground ,fg-unfocused))) + `(vc-dir-status-up-to-date ((,class :foreground ,cyan))) + `(vc-dir-status-warning ((,class :foreground ,red))) + `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) + `(vc-edited-state ((,class :foreground ,yellow-active))) + `(vc-locally-added-state ((,class :foreground ,cyan-active))) + `(vc-locked-state ((,class :foreground ,blue-active))) + `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) + `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) + `(vc-removed-state ((,class :foreground ,red-active))) + `(vc-state-base ((,class :foreground ,fg-active))) + `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) +;;;;; vdiff + `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) + `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) + `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) + `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) +;;;;; vimish-fold + `(vimish-fold-fringe ((,class :foreground ,cyan-active))) + `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) +;;;;; visible-mark + `(visible-mark-active ((,class :background ,blue-intense-bg))) + `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) + `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) + `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) + `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) +;;;;; visual-regexp + `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) + `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) + `(vr/group-2 ((,class :inherit modus-theme-intense-green))) + `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) +;;;;; volatile-highlights + `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) +;;;;; vterm + `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) + `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) + `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) + `(vterm-color-green ((,class :background ,green :foreground ,green))) + `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) + `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(vterm-color-red ((,class :background ,red :foreground ,red))) + `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) + `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) + `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) +;;;;; wcheck-mode + `(wcheck-default-face ((,class :foreground ,red :underline t))) +;;;;; web-mode + `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) + `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) + `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) + `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) + `(web-mode-block-face ((,class :background ,bg-dim))) + `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-bold-face ((,class :inherit bold))) + `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) + `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) + `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) + `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) + `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) + `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) + `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) + `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) + `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-folded-face ((,class :underline t))) + `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) + `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) + `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) + `(web-mode-inlay-face ((,class :background ,bg-alt))) + `(web-mode-italic-face ((,class :inherit italic))) + `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) + `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) + `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) + `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) + `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-part-face ((,class :inherit web-mode-block-face))) + `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) + `(web-mode-script-face ((,class :inherit web-mode-part-face))) + `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-string-face ((,class :inherit font-lock-string-face))) + `(web-mode-style-face ((,class :inherit web-mode-part-face))) + `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) + `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-underline-face ((,class :underline t))) + `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) + `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) +;;;;; wgrep + `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) + `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) + `(wgrep-face ((,class :inherit modus-theme-refine-green))) + `(wgrep-file-face ((,class :foreground ,fg-special-warm))) + `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) +;;;;; which-function-mode + `(which-func ((,class :foreground ,magenta-active))) +;;;;; which-key + `(which-key-command-description-face ((,class :foreground ,fg-main))) + `(which-key-group-description-face ((,class :foreground ,magenta-alt))) + `(which-key-highlighted-command-face ((,class :foreground ,yellow :underline t))) + `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(which-key-local-map-description-face ((,class :foreground ,fg-main))) + `(which-key-note-face ((,class :foreground ,fg-special-warm))) + `(which-key-separator-face ((,class :inherit shadow))) + `(which-key-special-key-face ((,class :inherit bold :foreground ,orange-intense))) +;;;;; whitespace-mode + `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) + `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) + `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-line ((,class :background ,bg-alt))) + `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) + `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) + `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) +;;;;; window-divider-mode + `(window-divider ((,class :foreground ,fg-window-divider-inner))) + `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) + `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) +;;;;; winum + `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; writegood-mode + `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(writegood-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(writegood-weasels-face ((,class :inherit modus-theme-lang-error))) +;;;;; woman + `(woman-addition ((,class :foreground ,magenta-alt-other))) + `(woman-bold ((,class :inherit bold :foreground ,magenta))) + `(woman-italic ((,class :inherit italic :foreground ,cyan))) + `(woman-unknown ((,class :inherit italic :foreground ,yellow))) +;;;;; xah-elisp-mode + `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) + `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) + `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) + `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) +;;;;; xref + `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(xref-line-number ((,class :inherit shadow))) + `(xref-match ((,class :inherit match))) +;;;;; yaml-mode + `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) +;;;;; yasnippet + `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) +;;;;; ztree + `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) + `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) + `(ztreep-diff-model-add-face ((,class :foreground ,green))) + `(ztreep-diff-model-diff-face ((,class :foreground ,red))) + `(ztreep-diff-model-ignored-face ((,class :inherit shadow :strike-through t))) + `(ztreep-diff-model-normal-face ((,class :inherit shadow))) + `(ztreep-expand-sign-face ((,class :foreground ,blue))) + `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-leaf-face ((,class :foreground ,cyan))) + `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) + `(ztreep-node-face ((,class :foreground ,fg-main)))) + "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"]) +;;;; awesome-tray + `(awesome-tray-mode-line-active-color ,blue) + `(awesome-tray-mode-line-inactive-color ,bg-active) +;;;; exwm + `(exwm-floating-border-color ,fg-window-divider-inner) +;;;; flymake fringe indicators + `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) + `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) + `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) +;;;; ibuffer + `(ibuffer-deletion-face 'modus-theme-mark-del) + `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) + `(ibuffer-marked-face 'modus-theme-mark-sel) + `(ibuffer-title-face 'modus-theme-pseudo-header) +;;;; highlight-tail + `(highlight-tail-colors + '((,green-subtle-bg . 0) + (,cyan-subtle-bg . 20))) +;;;; hl-todo + `(hl-todo-keyword-faces + '(("HOLD" . ,yellow-alt) + ("TODO" . ,magenta) + ("NEXT" . ,magenta-alt-other) + ("THEM" . ,magenta-alt) + ("PROG" . ,cyan) + ("OKAY" . ,cyan-alt) + ("DONT" . ,green-alt) + ("FAIL" . ,red) + ("BUG" . ,red) + ("DONE" . ,green) + ("NOTE" . ,yellow-alt-other) + ("KLUDGE" . ,yellow) + ("HACK" . ,yellow) + ("TEMP" . ,red-nuanced-fg) + ("FIXME" . ,red-alt-other) + ("XXX+" . ,red-alt) + ("REVIEW" . ,cyan-alt-other) + ("DEPRECATED" . ,blue-nuanced-fg))) +;;;; pdf-tools + `(pdf-view-midnight-colors + '(,fg-main . ,bg-dim)) +;;;; vc-annotate (C-x v g) + `(vc-annotate-background nil) + `(vc-annotate-background-mode nil) + `(vc-annotate-color-map + '((20 . ,red) + (40 . ,magenta) + (60 . ,magenta-alt) + (80 . ,red-alt) + (100 . ,yellow) + (120 . ,yellow-alt) + (140 . ,fg-special-warm) + (160 . ,fg-special-mild) + (180 . ,green) + (200 . ,green-alt) + (220 . ,cyan-alt-other) + (240 . ,cyan-alt) + (260 . ,cyan) + (280 . ,fg-special-cold) + (300 . ,blue) + (320 . ,blue-alt) + (340 . ,blue-alt-other) + (360 . ,magenta-alt-other))) + `(vc-annotate-very-old-color nil) +;;;; xterm-color + `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) + `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) + (if (eq modus-themes-org-blocks 'rainbow) + `(org-src-block-faces ; TODO this list should be expanded + `(("emacs-lisp" modus-theme-nuanced-magenta) + ("elisp" modus-theme-nuanced-magenta) + ("clojure" modus-theme-nuanced-magenta) + ("clojurescript" modus-theme-nuanced-magenta) + ("c" modus-theme-nuanced-blue) + ("c++" modus-theme-nuanced-blue) + ("sh" modus-theme-nuanced-green) + ("shell" modus-theme-nuanced-green) + ("html" modus-theme-nuanced-yellow) + ("xml" modus-theme-nuanced-yellow) + ("css" modus-theme-nuanced-red) + ("scss" modus-theme-nuanced-red) + ("python" modus-theme-nuanced-green) + ("ipython" modus-theme-nuanced-magenta) + ("r" modus-theme-nuanced-cyan) + ("yaml" modus-theme-nuanced-cyan) + ("conf" modus-theme-nuanced-cyan) + ("docker" modus-theme-nuanced-cyan))) + `(org-src-block-faces '()))) + "Custom variables for `modus-themes-theme'.") + +(provide 'modus-themes) +;;; modus-themes.el ends here diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el index 73f07d644b..fd7f5df24d 100644 --- a/etc/themes/modus-vivendi-theme.el +++ b/etc/themes/modus-vivendi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi +;; is the light one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-vivendi-theme-slanted-constructs (boolean) -;; modus-vivendi-theme-bold-constructs (boolean) -;; modus-vivendi-theme-variable-pitch-headings (boolean) -;; modus-vivendi-theme-no-mixed-fonts (boolean) -;; modus-vivendi-theme-headings (alist) -;; modus-vivendi-theme-scale-headings (boolean) -;; modus-vivendi-theme-fringes (choice) -;; modus-vivendi-theme-org-blocks (choice) -;; modus-vivendi-theme-prompts (choice) -;; modus-vivendi-theme-mode-line (choice) -;; modus-vivendi-theme-diffs (choice) -;; modus-vivendi-theme-faint-syntax (boolean) -;; modus-vivendi-theme-intense-hl-line (boolean) -;; modus-vivendi-theme-intense-paren-match (boolean) -;; modus-vivendi-theme-no-link-underline (boolean) -;; modus-vivendi-theme-completions (choice) -;; modus-vivendi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-vivendi-theme-scale-1 1.05 -;; modus-vivendi-theme-scale-2 1.1 -;; modus-vivendi-theme-scale-3 1.15 -;; modus-vivendi-theme-scale-4 1.2 -;; modus-vivendi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-operandi-theme.el (Light theme) ;;; Code: \f -(deftheme modus-vivendi - "Dark theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Vivendi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-vivendi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-vivendi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-vivendi-theme-proportional-fonts - 'modus-vivendi-theme-variable-pitch-headings "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-section-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-vivendi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-vivendi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-vivendi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-vivendi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-2 1.1 - "Font size slightly larger than `modus-vivendi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-3 1.15 - "Font size slightly larger than `modus-vivendi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-4 1.2 - "Font size slightly larger than `modus-vivendi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-5 1.3 - "Font size slightly larger than `modus-vivendi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-vivendi-theme-visible-fringes - 'modus-vivendi-theme-fringes - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-vivendi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-vivendi-theme-distinct-org-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-vivendi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-vivendi-theme-3d-modeline - 'modus-vivendi-theme-mode-line - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-vivendi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-vivendi-theme-subtle-diffs - 'modus-vivendi-theme-diffs - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-vivendi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-vivendi-theme-intense-standard-completions - 'modus-vivendi-theme-completions - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-vivendi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-vivendi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-vivendi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-vivendi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-vivendi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-vivendi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-vivendi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-vivendi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-vivendi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-vivendi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-vivendi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-vivendi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-vivendi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-vivendi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-vivendi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-vivendi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-vivendi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-vivendi-theme-heading-p (key) - "Query style of KEY in `modus-vivendi-theme-headings'." - (cdr (assoc key modus-vivendi-theme-headings))) - -(defun modus-vivendi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-vivendi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-vivendi-theme-heading-p `,level)) - (style (or key (modus-vivendi-theme-heading-p t))) - (var (if modus-vivendi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-vivendi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-vivendi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-vivendi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-vivendi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-vivendi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-vivendi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-vivendi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-vivendi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-vivendi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-vivendi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-vivendi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-vivendi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-vivendi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-vivendi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-vivendi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-vivendi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-vivendi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-vivendi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-vivendi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-vivendi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-vivendi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-vivendi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#000000") ("fg-main" . "#ffffff") - ("bg-alt" . "#181a20") ("fg-alt" . "#a8a8a8") - ("bg-dim" . "#110b11") ("fg-dim" . "#e0e6f0") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#323232") ("fg-active" . "#f4f4f4") - ("bg-inactive" . "#1e1e1e") ("fg-inactive" . "#bfc0c4") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#203448") ("fg-special-cold" . "#c6eaff") - ("bg-special-mild" . "#00322e") ("fg-special-mild" . "#bfebe0") - ("bg-special-warm" . "#382f27") ("fg-special-warm" . "#f8dec0") - ("bg-special-calm" . "#392a48") ("fg-special-calm" . "#fbd6f4") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#ff8059") ("green" . "#44bc44") - ("yellow" . "#eecc00") ("blue" . "#2fafff") - ("magenta" . "#feacd0") ("cyan" . "#00d3d0") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#f4923b") ("green-alt" . "#80d200") - ("yellow-alt" . "#cfdf30") ("blue-alt" . "#79a8ff") - ("magenta-alt" . "#f78fe7") ("cyan-alt" . "#4ae8fc") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#ff9977") ("green-alt-other" . "#00cd68") - ("yellow-alt-other" . "#f0ce43") ("blue-alt-other" . "#00bcff") - ("magenta-alt-other" . "#b6a0ff") ("cyan-alt-other" . "#6ae4b9") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-vivendi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#ffa0a0") ("green-faint" . "#88cf88") - ("yellow-faint" . "#d2b580") ("blue-faint" . "#92baff") - ("magenta-faint" . "#e0b2d6") ("cyan-faint" . "#a0bfdf") - - ("red-alt-faint" . "#f5aa80") ("green-alt-faint" . "#a8cf88") - ("yellow-alt-faint" . "#cabf77") ("blue-alt-faint" . "#a4b0ff") - ("magenta-alt-faint" . "#ef9fe4") ("cyan-alt-faint" . "#90c4ed") - - ("red-alt-other-faint" . "#ff9fbf") ("green-alt-other-faint" . "#88cfaf") - ("yellow-alt-other-faint" . "#d0ba95") ("blue-alt-other-faint" . "#8fc5ff") - ("magenta-alt-other-faint" . "#d0b4ff") ("cyan-alt-other-faint" . "#a4d0bb") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#ffcccc") ("green-nuanced" . "#b8e2b8") - ("yellow-nuanced" . "#dfdfb0") ("blue-nuanced" . "#bfd9ff") - ("magenta-nuanced" . "#e5cfef") ("cyan-nuanced" . "#a8e5e5") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#2c0614") ("green-nuanced-bg" . "#001904") - ("yellow-nuanced-bg" . "#221000") ("blue-nuanced-bg" . "#0f0e39") - ("magenta-nuanced-bg" . "#230631") ("cyan-nuanced-bg" . "#041529") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#fb6859") ("green-intense" . "#00fc50") - ("yellow-intense" . "#ffdd00") ("blue-intense" . "#00a2ff") - ("magenta-intense" . "#ff8bd4") ("cyan-intense" . "#30ffc0") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#762422") ("green-subtle-bg" . "#2f4a00") - ("yellow-subtle-bg" . "#604200") ("blue-subtle-bg" . "#10387c") - ("magenta-subtle-bg" . "#49366e") ("cyan-subtle-bg" . "#00415e") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#a4202a") ("green-intense-bg" . "#006800") - ("yellow-intense-bg" . "#874900") ("blue-intense-bg" . "#2a40b8") - ("magenta-intense-bg" . "#7042a2") ("cyan-intense-bg" . "#005f88") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#77002a") ("red-refine-fg" . "#ffb9ab") - ("green-refine-bg" . "#00422a") ("green-refine-fg" . "#9ff0cf") - ("yellow-refine-bg" . "#693200") ("yellow-refine-fg" . "#e2d980") - ("blue-refine-bg" . "#242679") ("blue-refine-fg" . "#8ec6ff") - ("magenta-refine-bg" . "#71206a") ("magenta-refine-fg" . "#ffcaf0") - ("cyan-refine-bg" . "#004065") ("cyan-refine-fg" . "#8ae4f2") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#ffa7ba") ("green-active" . "#70d73f") - ("yellow-active" . "#dbbe5f") ("blue-active" . "#34cfff") - ("magenta-active" . "#d5b1ff") ("cyan-active" . "#00d8b4") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#8f1f4b") ("green-fringe-bg" . "#006700") - ("yellow-fringe-bg" . "#6f4f00") ("blue-fringe-bg" . "#3f33af") - ("magenta-fringe-bg" . "#6f2f89") ("cyan-fringe-bg" . "#004f8f") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#151823") - ("bg-hl-line-intense" . "#2f2f2f") - ("bg-hl-alt" . "#181732") - ("bg-hl-alt-intense" . "#282e46") - ("bg-paren-match" . "#5f362f") - ("bg-paren-match-intense" . "#7416b5") - ("bg-region" . "#3c3c3c") - - ("bg-tab-bar" . "#2c2c2c") - ("bg-tab-active" . "#0e0e0e") - ("bg-tab-inactive" . "#3d3d3d") - ("fg-tab-active" . "#5ac3cf") - - ("fg-escape-char-construct" . "#e7a59a") - ("fg-escape-char-backslash" . "#abab00") - - ("fg-lang-error" . "#ef8690") - ("fg-lang-warning" . "#b0aa00") - ("fg-lang-note" . "#9d9def") - - ("fg-window-divider-inner" . "#646464") - ("fg-window-divider-outer" . "#969696") - - ("fg-unfocused" . "#93959b") - - ("bg-header" . "#212121") ("fg-header" . "#dddddd") - - ("bg-whitespace" . "#170016") ("fg-whitespace" . "#a4959f") - - ("bg-diff-heading" . "#304466") ("fg-diff-heading" . "#dadffe") - ("bg-diff-added" . "#0a280a") ("fg-diff-added" . "#94ba94") - ("bg-diff-changed" . "#2a2000") ("fg-diff-changed" . "#b0ba9f") - ("bg-diff-removed" . "#40160f") ("fg-diff-removed" . "#c6adaa") - - ("bg-diff-refine-added" . "#005a36") ("fg-diff-refine-added" . "#e0f6e0") - ("bg-diff-refine-changed" . "#585800") ("fg-diff-refine-changed" . "#ffffcc") - ("bg-diff-refine-removed" . "#852828") ("fg-diff-refine-removed" . "#ffd9eb") - - ("bg-diff-focus-added" . "#203d20") ("fg-diff-focus-added" . "#b4ddb4") - ("bg-diff-focus-changed" . "#4a3a10") ("fg-diff-focus-changed" . "#d0daaf") - ("bg-diff-focus-removed" . "#5e2526") ("fg-diff-focus-removed" . "#eebdba") - - ("bg-diff-neutral-0" . "#575757") ("fg-diff-neutral-0" . "#fcfcfc") - ("bg-diff-neutral-1" . "#454545") ("fg-diff-neutral-1" . "#dddddd") - ("bg-diff-neutral-2" . "#313131") ("fg-diff-neutral-2" . "#bfbfbf") - - ("bg-mark-sel" . "#002f2f") ("fg-mark-sel" . "#60cfa2") - ("bg-mark-del" . "#5a0000") ("fg-mark-del" . "#ff99aa") - ("bg-mark-alt" . "#3f2210") ("fg-mark-alt" . "#f0aa20")) - "The entire palette of `modus-vivendi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-vivendi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-vivendi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-vivendi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-vivendi-theme-default-colors-alist - modus-vivendi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-vivendi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-vivendi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-vivendi-theme-with-color-variables - (custom-theme-set-faces - 'modus-vivendi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-vivendi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-vivendi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-vivendi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-vivendi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-vivendi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-vivendi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-vivendi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-vivendi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-vivendi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-vivendi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-vivendi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-vivendi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-vivendi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-vivendi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-vivendi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-vivendi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-vivendi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-vivendi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-vivendi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-vivendi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-vivendi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-alt]) - `(xterm-color-names-bright [,bg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,fg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-vivendi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-vivendi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-vivendi + "Accessible and customizable dark theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-vivendi) (provide-theme 'modus-vivendi) -(provide 'modus-vivendi-theme) - ;;; modus-vivendi-theme.el ends here -- 2.30.1 ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 20:57 ` Protesilaos Stavrou @ 2021-03-04 22:06 ` Mauro Aranda 2021-03-05 6:34 ` Protesilaos Stavrou 2021-03-04 22:40 ` Mauro Aranda ` (2 subsequent siblings) 3 siblings, 1 reply; 83+ messages in thread From: Mauro Aranda @ 2021-03-04 22:06 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-04, 13:53 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > >>> ;;;###autoload >>> (when (and (boundp 'custom-theme-load-path) load-file-name) >>> (add-to-list 'custom-theme-load-path >>> (file-name-as-directory (file-name-directory load-file-name)))) >> >> A nit: I think this code should avoid adding the value of >> custom-theme-directory or the built-in theme directory name to >> custom-theme-load-path , if `custom-theme-directory' (for the former) or >> t (for the latter) are already present in custom-theme-load-path. In >> particular, a theme distributed with Emacs should at least check for t, >> to avoid a repeated entry. >> >> I've noticed that the leuven theme has a similar code as well: I think >> that is a (really minor) bug. > > I have removed that form altogether. It makes sense for packages but > here they are safe themes. Is that okay, or have I misunderstood > something? Sounds OK to me; for themes that are only distributed with Emacs, it doesn't seem to be needed. But if you plan to keep distributing them as packages via ELPA, then it might make sense to keep it. I don't know what's the plan, so I can't say for sure if the form should stay or not. > Thanks again! Thanks to you! ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 22:06 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda @ 2021-03-05 6:34 ` Protesilaos Stavrou 2021-03-05 17:11 ` Basil L. Contovounesios 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-05 6:34 UTC (permalink / raw) To: Mauro Aranda; +Cc: Basil L. Contovounesios, 45068 On 2021-03-04, 19:06 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> On 2021-03-04, 13:53 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: >> >>>> ;;;###autoload >>>> (when (and (boundp 'custom-theme-load-path) load-file-name) >>>> (add-to-list 'custom-theme-load-path >>>> (file-name-as-directory (file-name-directory load-file-name)))) >>> >>> A nit: I think this code should avoid adding the value of >>> custom-theme-directory or the built-in theme directory name to >>> custom-theme-load-path , if `custom-theme-directory' (for the former) or >>> t (for the latter) are already present in custom-theme-load-path. In >>> particular, a theme distributed with Emacs should at least check for t, >>> to avoid a repeated entry. >>> >>> I've noticed that the leuven theme has a similar code as well: I think >>> that is a (really minor) bug. >> >> I have removed that form altogether. It makes sense for packages but >> here they are safe themes. Is that okay, or have I misunderstood >> something? > > Sounds OK to me; for themes that are only distributed with Emacs, it > doesn't seem to be needed. That is my impression as well. > But if you plan to keep distributing them as packages via ELPA, then > it might make sense to keep it. I don't know what's the plan, so I > can't say for sure if the form should stay or not. My original plan was to update the themes in emacs.git and then figure out what needs to be done for elpa.git to treat them as ":core" packages instead of ":external". So I had this and would have used a similar technique for the above-quoted code: (if (and (>= emacs-major-version 28) (functionp 'require-theme)) (require-theme 'modus-themes) (require 'modus-themes)) But that produced a major bug of not loading the desired theme in certain setups.[1] I suspect it is because 'require' needs to be at the top level? Not sure... Maybe there is some clean way to fix that, though I would need more time to research and test it; a time frame that I cannot estimate right now. [1]: <https://gitlab.com/protesilaos/modus-themes/-/issues/162>. So I prefer to use files that 100% work in emacs.git and then I will treat elpa.git separately. Using all those untested conditional clauses will give me trouble. Perhaps the themes in elpa.git should not be ":core" after all? Keeping them as ":external", though updated to the newest release, seems like the most reliable path forward. Ultimately this means more work for me, though I prefer to not have to deal with packaging-related bugs (notwithstanding the fact that I need to ask for someone else to push changes for me in Emacs/ELPA and I would rather not bother them). >> Thanks again! > > Thanks to you! I appreciate your contributions ("your" singular and plural). For me this is all part of a learning process and am happy to be part of a community that (i) tolerates my errors and (ii) helps me learn through them without making any discounts on technical requirements. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-05 6:34 ` Protesilaos Stavrou @ 2021-03-05 17:11 ` Basil L. Contovounesios 2021-03-05 17:34 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-05 17:11 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068, Mauro Aranda Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-04, 19:06 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > >> But if you plan to keep distributing them as packages via ELPA, then >> it might make sense to keep it. I don't know what's the plan, so I >> can't say for sure if the form should stay or not. > > My original plan was to update the themes in emacs.git and then figure > out what needs to be done for elpa.git to treat them as ":core" packages > instead of ":external". > > So I had this and would have used a similar technique for the > above-quoted code: > > (if (and (>= emacs-major-version 28) > (functionp 'require-theme)) > (require-theme 'modus-themes) > (require 'modus-themes)) > > But that produced a major bug of not loading the desired theme in > certain setups.[1] I suspect it is because 'require' needs to be at the > top level? Not sure... Maybe there is some clean way to fix that, > though I would need more time to research and test it; a time frame that > I cannot estimate right now. > > [1]: <https://gitlab.com/protesilaos/modus-themes/-/issues/162>. > > So I prefer to use files that 100% work in emacs.git and then I will > treat elpa.git separately. Using all those untested conditional clauses > will give me trouble. Perhaps the themes in elpa.git should not be > ":core" after all? Keeping them as ":external", though updated to the > newest release, seems like the most reliable path forward. > > Ultimately this means more work for me, though I prefer to not have to > deal with packaging-related bugs (notwithstanding the fact that I need > to ask for someone else to push changes for me in Emacs/ELPA and I would > rather not bother them). Ultimately it's your decision as the maintainer, but after addressing the issue you reference above in modus-themes.git, I no longer see any significant hurdles to keeping modus-themes.git / elpa.git / emacs.git in sync, unless I'm missing something? > I appreciate your contributions ("your" singular and plural). For me > this is all part of a learning process and am happy to be part of a > community that (i) tolerates my errors and (ii) helps me learn through > them without making any discounts on technical requirements. That should/does apply to everyone here :). -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-05 17:11 ` Basil L. Contovounesios @ 2021-03-05 17:34 ` Protesilaos Stavrou 0 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-05 17:34 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda On 2021-03-05, 17:11 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> On 2021-03-04, 19:06 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: >> >>> But if you plan to keep distributing them as packages via ELPA, then >>> it might make sense to keep it. I don't know what's the plan, so I >>> can't say for sure if the form should stay or not. >> >> My original plan was to update the themes in emacs.git and then figure >> out what needs to be done for elpa.git to treat them as ":core" packages >> instead of ":external". >> >> So I had this and would have used a similar technique for the >> above-quoted code: >> >> (if (and (>= emacs-major-version 28) >> (functionp 'require-theme)) >> (require-theme 'modus-themes) >> (require 'modus-themes)) >> >> But that produced a major bug of not loading the desired theme in >> certain setups.[1] I suspect it is because 'require' needs to be at the >> top level? Not sure... Maybe there is some clean way to fix that, >> though I would need more time to research and test it; a time frame that >> I cannot estimate right now. >> >> [1]: <https://gitlab.com/protesilaos/modus-themes/-/issues/162>. >> >> So I prefer to use files that 100% work in emacs.git and then I will >> treat elpa.git separately. Using all those untested conditional clauses >> will give me trouble. Perhaps the themes in elpa.git should not be >> ":core" after all? Keeping them as ":external", though updated to the >> newest release, seems like the most reliable path forward. >> >> Ultimately this means more work for me, though I prefer to not have to >> deal with packaging-related bugs (notwithstanding the fact that I need >> to ask for someone else to push changes for me in Emacs/ELPA and I would >> rather not bother them). > > Ultimately it's your decision as the maintainer, but after addressing > the issue you reference above in modus-themes.git, I no longer see any > significant hurdles to keeping modus-themes.git / elpa.git / emacs.git > in sync, unless I'm missing something? In principle I want to keep everything in sync. I think things should work now, thanks to your contributions. I need to prepare the elpa.git patch separately though, as I have not yet studied exactly what needs to be changed. >> I appreciate your contributions ("your" singular and plural). For me >> this is all part of a learning process and am happy to be part of a >> community that (i) tolerates my errors and (ii) helps me learn through >> them without making any discounts on technical requirements. > > That should/does apply to everyone here :). Very well! -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 20:57 ` Protesilaos Stavrou 2021-03-04 22:06 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda @ 2021-03-04 22:40 ` Mauro Aranda 2021-03-05 6:07 ` Protesilaos Stavrou 2021-03-05 17:11 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios 2021-03-05 21:11 ` Gregory Heytings 3 siblings, 1 reply; 83+ messages in thread From: Mauro Aranda @ 2021-03-04 22:40 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: Basil L. Contovounesios, 45068 Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-04, 18:41 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > >> Protesilaos Stavrou <info@protesilaos.com> writes: >>> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >>> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >>> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, >> ^^ >> Hopefully Org's Texinfo export can one day be taught that this is not >> the end of a sentence ;). > > Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps > by omitting the space? Perhaps hide it from ox-texinfo like this: @@texinfo:Basil L.@tie{}Contovounesios@@ ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 22:40 ` Mauro Aranda @ 2021-03-05 6:07 ` Protesilaos Stavrou 0 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-05 6:07 UTC (permalink / raw) To: Mauro Aranda; +Cc: Basil L. Contovounesios, 45068 [-- Attachment #1: Type: text/plain, Size: 1178 bytes --] On 2021-03-04, 19:40 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > Protesilaos Stavrou <info@protesilaos.com> writes: > >> On 2021-03-04, 18:41 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: >> >>> Protesilaos Stavrou <info@protesilaos.com> writes: > >>>> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >>>> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >>>> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, >>> ^^ >>> Hopefully Org's Texinfo export can one day be taught that this is not >>> the end of a sentence ;). >> >> Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps >> by omitting the space? > > Perhaps hide it from ox-texinfo like this: > @@texinfo:Basil L.@tie{}Contovounesios@@ Thank you Mauro! I first did what you suggested, but felt that it made the Org version more difficult to read. So I used "@:" instead. Described here: (info "(texinfo) Not Ending a Sentence") Please find attached the revised patch. -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: 0001-Update-Modus-themes-to-their-version-1.2.0.patch --] [-- Type: text/x-patch, Size: 1084542 bytes --] From 3a1e839da5928c430ac5a38b22e671fcd35035a9 Mon Sep 17 00:00:00 2001 Message-Id: <3a1e839da5928c430ac5a38b22e671fcd35035a9.1614924124.git.info@protesilaos.com> From: Protesilaos Stavrou <info@protesilaos.com> Date: Thu, 4 Mar 2021 16:20:15 +0200 Subject: [PATCH] Update Modus themes to their version 1.2.0 * doc/misc/modus-themes.org: Add new version of the manual, with changes to markup and references to the latest state of the project. * etc/themes/modus-vivendi-theme.el: * etc/themes/modus-operandi-theme.el: Provide updated version of each theme, which expands the contents of 'modus-themes.el'. * etc/themes/modus-themes.el: Add new supportive file. This is where theme data, functions, and face definitions are defined. --- doc/misc/modus-themes.org | 3267 +++++++++----- etc/themes/modus-operandi-theme.el | 4672 +------------------- etc/themes/modus-themes.el | 6436 ++++++++++++++++++++++++++++ etc/themes/modus-vivendi-theme.el | 4672 +------------------- 4 files changed, 8812 insertions(+), 10235 deletions(-) create mode 100644 etc/themes/modus-themes.el diff --git a/doc/misc/modus-themes.org b/doc/misc/modus-themes.org index 4a6150cf9d..20d7767053 100644 --- a/doc/misc/modus-themes.org +++ b/doc/misc/modus-themes.org @@ -1,30 +1,52 @@ -#+TITLE: Modus themes for GNU Emacs -#+AUTHOR: Protesilaos Stavrou -#+EMAIL: info@protesilaos.com -#+TEXINFO_DIR_CATEGORY: Emacs misc features -#+TEXINFO_DIR_TITLE: Modus Themes: (modus-themes) -#+TEXINFO_DIR_DESC: Highly accessible themes (WCAG AAA) -#+OPTIONS: ':t toc:nil author:t email:t -#+MACRO: version-tag 0.13.0 -#+MACRO: release-date 2020-10-08 +#+title: Modus themes for GNU Emacs +#+author: Protesilaos Stavrou +#+email: info@protesilaos.com +#+language: en +#+options: ':t toc:nil author:t email:t + +#+macro: stable-version 1.2.0 +#+macro: release-date 2021-03-04 +#+macro: development-version 1.3.0-dev +#+macro: export-date (eval (format-time-string "%F %R %z" (current-time))) +#+macro: file @@texinfo:@file{@@$1@@texinfo:}@@ +#+macro: space @@texinfo:@: @@ +# The "kbd" macro turns KBD into @kbd{KBD}. Additionally, it +# encloses case-sensitive special keys (SPC, RET...) within @key{...}. +# I got this from the Org source code. +#+macro: kbd (eval (let ((case-fold-search nil) (regexp (regexp-opt '("SPC" "RET" "LFD" "TAB" "BS" "ESC" "DELETE" "SHIFT" "Ctrl" "Meta" "Alt" "Cmd" "Super" "UP" "LEFT" "RIGHT" "DOWN") 'words))) (format "@@texinfo:@kbd{@@%s@@texinfo:}@@" (replace-regexp-in-string regexp "@@texinfo:@key{@@\\&@@texinfo:}@@" $1 t)))) + +#+texinfo_filename: modus-themes.info +#+texinfo_dir_category: Emacs misc features +#+texinfo_dir_title: Modus Themes: (modus-themes) +#+texinfo_dir_desc: Highly accessible themes (WCAG AAA) +#+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer webpage} +#+texinfo_header: @set MAINTAINER Protesilaos Stavrou +#+texinfo_header: @set MAINTAINEREMAIL @email{info@protesilaos.com} +#+texinfo_header: @set MAINTAINERCONTACT @uref{mailto:info@protesilaos.com,contact the maintainer} #+texinfo: @insertcopying This manual, written by Protesilaos Stavrou, describes the customization -options for the =modus-operandi= and =modus-vivendi= themes, and provides +options for the ~modus-operandi~ and ~modus-vivendi~ themes, and provides every other piece of information pertinent to them. -The documentation furnished herein corresponds to version {{{version-tag}}}, -released on {{{release-date}}}. Any reference to a newer feature which does -not yet form part of the latest tagged commit, is explicitly marked as -such. +The documentation furnished herein corresponds to stable version +{{{stable-version}}}, released on {{{release-date}}}. Any reference to a newer +feature which does not yet form part of the latest tagged commit, is +explicitly marked as such. -* Copying -:PROPERTIES: -:copying: t -:END: +# Current development target is {{{development-version}}}. This manual was +# built on {{{export-date}}}. -Copyright (C) 2020--2021 Free Software Foundation, Inc. +#+toc: headlines 8 insert TOC here, with eight headline levels + +* COPYING +:properties: +:copying: t +:custom_id: h:b14c3fcb-13dd-4144-9d92-2c58b3ed16d3 +:end: + +Copyright (C) 2020-2021 Free Software Foundation, Inc. #+begin_quote Permission is granted to copy, distribute and/or modify this @@ -34,12 +56,10 @@ * Copying and with no Back-Cover Texts. #+end_quote -#+TOC: headlines 8 insert TOC here, with eight headline levels - * Overview -:PROPERTIES: -:CUSTOM_ID: h:f0f3dbcb-602d-40cf-b918-8f929c441baf -:END: +:properties: +:custom_id: h:f0f3dbcb-602d-40cf-b918-8f929c441baf +:end: The Modus themes are designed for accessible readability. They conform with the highest standard for color contrast between any given @@ -47,9 +67,9 @@ * Overview the WCAG AAA standard, which specifies a minimum rate of distance in relative luminance of 7:1. -Modus Operandi (=modus-operandi=) is a light theme, while Modus Vivendi -(=modus-vivendi=) is dark. Each theme's color palette is designed to -meet the needs of the numerous interfaces that are possible in the Emacs +Modus Operandi (~modus-operandi~) is a light theme, while Modus Vivendi +(~modus-vivendi~) is dark. Each theme's color palette is designed to meet +the needs of the numerous interfaces that are possible in the Emacs computing environment. The overarching objective of this project is to always offer accessible @@ -59,15 +79,16 @@ * Overview To ensure that users have a consistently accessible experience, the themes strive to achieve as close to full face coverage as possible -(see [[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). +([[#h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19][Face coverage]]). Starting with version 0.12.0 and onwards, the themes are built into GNU -Emacs (current version is {{{version-tag}}}). +Emacs. ** How do the themes look like -:PROPERTIES: -:CUSTOM_ID: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 -:END: +:properties: +:custom_id: h:69b92089-069c-4ba1-9d94-cc3415fc4f87 +:end: +#+cindex: Screenshots Check the web page with [[https://protesilaos.com/modus-themes-pictures/][the screen shots]]. There are lots of scenarios on display that draw attention to details and important aspects in the @@ -77,596 +98,562 @@ ** How do the themes look like [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization options]]. ** Learn about the latest changes -:PROPERTIES: -:CUSTOM_ID: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 -:END: +:properties: +:custom_id: h:2cc37c36-6c1a-48b2-a010-1050b270ee18 +:end: +#+cindex: Changelog Please refer to the [[https://protesilaos.com/modus-themes-changelog][web page with the change log]]. It is comprehensive and covers everything that goes into every tagged release of the themes. * Installation -:PROPERTIES: -:CUSTOM_ID: h:1af85373-7f81-4c35-af25-afcef490c111 -:END: +:properties: +:custom_id: h:1af85373-7f81-4c35-af25-afcef490c111 +:end: The Modus themes are distributed with Emacs starting with version 28.1. On older versions of Emacs, they can be installed using Emacs' package -manager or manually from their code repository. +manager or manually from their code repository. There also exist +packages for distributions of GNU/Linux. + +** Install manually from source +:properties: +:custom_id: h:da3414b7-1426-46b8-8e76-47b845b76fd0 +:end: + +In the following example, we are assuming that your Emacs files are +stored in =~/.emacs.d= and that you want to place the Modus themes in +=~/.emacs.d/modus-themes=. + +1. Get the source and store it in the desired path by running the + following in the command line shell: + +: $ git clone https://gitlab.com/protesilaos/modus-themes.git ~/.emacs.d/modus-themes + +2. Add that path to your known Elisp libraries' list, by placing this + snippet of Emacs Lisp in your init file (e.g. {{{file(init.el)}}}): + +#+begin_src emacs-lisp +(add-to-list 'load-path "~/.emacs.d/modus-themes") +#+end_src -Modus Operandi (light theme) and Modus Vivendi (dark) are normally -distributed as standalone packages in Emacs-specific archives. There -also exist packages for GNU/Linux distributions. +The themes are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install from the archives -:PROPERTIES: -:CUSTOM_ID: h:c4b10085-149f-43e2-bd4d-347f33aee054 -:END: +:properties: +:custom_id: h:c4b10085-149f-43e2-bd4d-347f33aee054 +:end: -=modus-operandi-theme= and =modus-vivendi-theme= are available from GNU the -ELPA archive, which is configured by default. +The =modus-themes= package is available from the GNU ELPA archive, which +is configured by default. Prior to querying any package archive, make sure to have updated the -index, with =M-x package-refresh-contents=. Then all you need to do is -type =M-x package-install= and specify the theme of your choice. +index, with {{{kbd(M-x package-refresh-contents)}}}. Then all you need to do +is type {{{kbd(M-x package-install)}}} and specify the ~modus-themes~. + +Note that older versions of the themes used to be distributed as +standalone packages. This practice has been discontinued starting with +version 1.0.0 of this project. + +Once installed, the themes are ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. ** Install on GNU/Linux -:PROPERTIES: -:CUSTOM_ID: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 -:END: +:properties: +:custom_id: h:da640eb1-95dd-4e86-bb4e-1027b27885f0 +:end: -The themes are also available from the archives of some GNU/Linux -distributions. These should correspond to a tagged release rather than +The themes are also available from the archives of some distributions of +GNU/Linux. These should correspond to a tagged release rather than building directly from the latest Git commit. It all depends on the distro's packaging policies. *** Debian 11 Bullseye -:PROPERTIES: -:CUSTOM_ID: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 -:END: - -The two themes are distributed as a single package for Debian and its -derivatives. Currently in the unstable and testing suites and should be -available in time for Debian 11 Bullseye (next stable). +:properties: +:custom_id: h:7e570360-9ee6-4bc5-8c04-9dc11418a3e4 +:end: -Get them with: +The themes are part of Debian 11 Bullseye. Get them with: #+begin_src sh sudo apt install elpa-modus-themes #+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. + *** GNU Guix -:PROPERTIES: -:CUSTOM_ID: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e -:END: +:properties: +:custom_id: h:a4ca52cd-869f-46a5-9e16-4d9665f5b88e +:end: -Users of either the Guix System (the distro) or just Guix (the package -manager) can get each theme as a standalone package. +Users of Guix can get the themes with this command: #+begin_src sh -guix package -i emacs-modus-operandi-theme +guix package -i emacs-modus-themes #+end_src -And/or: - -#+begin_src sh -guix package -i emacs-modus-vivendi-theme -#+end_src +They are now ready to be used: [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]. * Enable and load -:PROPERTIES: -:CUSTOM_ID: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 -:END: - -This section documents how to load the theme of your choice and how to -further control its initialization. It also includes some sample code -snippets that could help you in the task, especially if you intend to -use both Modus Operandi and Modus Vivendi. +:properties: +:custom_id: h:3f3c3728-1b34-437d-9d0c-b110f5b161a9 +:end: +#+findex: modus-themes-load-themes +#+findex: modus-themes-toggle +#+findex: modus-themes-load-operandi +#+findex: modus-themes-load-vivendi +#+cindex: Essential configuration +#+vindex: modus-themes-after-load-theme-hook + +Users of the built-in themes can load and automatically enable the theme +of their preference by adding either form to their init file: -** Load automatically -:PROPERTIES: -:CUSTOM_ID: h:1777c247-1b56-46b7-a4ce-54e720b33d06 -:END: +#+begin_src emacs-lisp +(load-theme 'modus-operandi) ; Light theme +(load-theme 'modus-vivendi) ; Dark theme +#+end_src -A simple way to load the theme from your Emacs initialization file is to -include either of the following expressions: +This is all one needs. -#+BEGIN_SRC emacs-lisp -(load-theme 'modus-operandi t) ; Light theme -(load-theme 'modus-vivendi t) ; Dark theme -#+END_SRC +Users of packaged variants of the themes must add a few more lines to +ensure that everything works as intended. First, one has to require the +main library before loading either theme: -Make sure to remove any other theme that is being loaded, otherwise you -might run into unexpected issues. +#+begin_src emacs-lisp +(require 'modus-themes) +#+end_src -Note that you can always =M-x disable-theme= and specify an item. The -command does exactly what its name suggests. To deactivate all enabled -themes at once, in case you have multiple of them enabled, you may -evaluate the expression: +Then it is recommended to load the individual theme files with the +helper function ~modus-themes-load-themes~: #+begin_src emacs-lisp -(mapc #'disable-theme custom-enabled-themes) +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) #+end_src -** Load at a given time or at sunset/sunrise -:PROPERTIES: -:CUSTOM_ID: h:4e936e31-e9eb-4b50-8fdd-45d827a03cca -:END: - -It is possible to schedule a time during the day at or after which a -given theme will be loaded.[fn:: Contributed on Reddit by user =b3n=, -https://www.reddit.com/r/emacs/comments/gdtqov/weekly_tipstricketc_thread/fq9186h/.] +Once the libraries that define the themes are enabled, one can activate +a theme with either of the following expressions: #+begin_src emacs-lisp -;; Light for the day -(load-theme 'modus-operandi t t) -(run-at-time "05:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) - -;; Dark for the night -(load-theme 'modus-vivendi t t) -(run-at-time "21:00" (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) +(modus-themes-load-operandi) ; Light theme +;; OR +(modus-themes-load-vivendi) ; Dark theme #+end_src -A modified version of the above technique is to use the sunrise and -sunset as references, instead of specifying a fixed hour value.[fn:: -Contributed directly by André Alexandre Gomes https://gitlab.com/aadcg.] -If you set =calendar-latitude= and =calendar-longitude= (defined in the -built-in =solar.el= library---read it with =M-x find-library=), you can -automatically switch between both themes at the appropriate time-of-day. -Note that /those calendar variables need to be set before loading the -themes/. +Changes to the available customization options must always be evaluated +before loading a theme ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). This is how a basic +setup could look like: #+begin_src emacs-lisp -;; Define coordinates -(setq calendar-latitude 35.17 - calendar-longitude 33.36) +(require 'modus-themes) -;; Light at sunrise -(load-theme 'modus-operandi t t) -(run-at-time (nth 1 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-operandi))) +;; Your customisations here. For example: +(setq modus-themes-bold-constructs t + modus-themes-mode-line '3d) -;; Dark at sunset -(load-theme 'modus-vivendi t t) -(run-at-time (nth 4 (split-string (sunrise-sunset))) - (* 60 60 24) - (lambda () - (enable-theme 'modus-vivendi))) -#+end_src +;; Load the theme files before enabling a theme (else you get an error). +(modus-themes-load-themes) -For the sake of completeness, the =load-theme= call in these snippets is -slightly different than the one shown in [[#h:1777c247-1b56-46b7-a4ce-54e720b33d06][Load automatically]], because it -does not enable the theme directly: the subsequent =enable-theme= does -that when needed. +;; Enable the theme of your preference: +(modus-themes-load-operandi) -** Toggle between the themes on demand -:PROPERTIES: -:CUSTOM_ID: h:2a0895a6-3281-4e55-8aa1-8a737555821e -:END: +;; Optionally add a key binding for the toggle between the themes: +(define-key global-map (kbd "<f5>") #'modus-themes-toggle) +#+end_src -With both themes available, it is possible to design a simple command to -switch between them on demand. +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -#+begin_src emacs-lisp -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) -#+end_src +With those granted, bear in mind a couple of technical points on +~modus-themes-load-operandi~ and ~modus-themes-load-vivendi~, as well as +~modus-themes-toggle~ which relies on them: -You could use =(mapc #'disable-theme custom-enabled-themes)= instead of -disabling a single target, but you get the idea. +1. Those functions call ~load-theme~. Some users prefer to opt for + ~enable-theme~ instead ([[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]). -** Configure options prior to loading -:PROPERTIES: -:CUSTOM_ID: h:a897b302-8e10-4a26-beab-3caaee1e1193 -:END: +2. The functions will run the ~modus-themes-after-load-theme-hook~ as + their final step. This can be employed for bespoke configurations + ([[#h:f4651d55-8c07-46aa-b52b-bed1e53463bb][Advanced customization (do-it-yourself)]]). Experienced users may not + wish to rely on such a hook and the functions that run it: they may + prefer a custom solution ([[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]). -If you plan to use both themes and wish to apply styles consistently -(see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]), you could define wrapper functions around -the standard =load-theme= command. These extend the simple function we -presented in [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]]. +** Sample configuration for use-package +:properties: +:custom_id: h:e979734c-a9e1-4373-9365-0f2cd36107b8 +:end: +#+cindex: use-package configuration -Here is a comprehensive setup (the values assigned to the variables are -just for the sake of this demonstration):[fn:: The =defmacro= and =dolist= -method were contributed on Reddit by user =b3n= -https://www.reddit.com/r/emacs/comments/gqsz8u/weekly_tipstricketc_thread/fsfakhg/.] +It is common for Emacs users to rely on ~use-package~ for declaring +package configurations in their setup. We use this as an example: #+begin_src emacs-lisp -(defmacro modus-themes-format-sexp (sexp &rest objects) - `(eval (read (format ,(format "%S" sexp) ,@objects)))) - -(dolist (theme '("operandi" "vivendi")) - (modus-themes-format-sexp - (defun modus-%1$s-theme-load () - (setq modus-%1$s-theme-slanted-constructs t - modus-%1$s-theme-bold-constructs t - modus-%1$s-theme-fringes 'subtle ; {nil,'subtle,'intense} - modus-%1$s-theme-mode-line '3d ; {nil,'3d,'moody} - modus-%1$s-theme-syntax 'alt-syntax ; {nil,faint,'yellow-comments,'green-strings,'yellow-comments-green-strings,'alt-syntax,'alt-syntax-yellow-comments} - modus-%1$s-theme-intense-hl-line nil - modus-%1$s-theme-intense-paren-match nil - modus-%1$s-theme-links 'faint ; {nil,'faint,'neutral-underline,'faint-neutral-underline,'no-underline} - modus-%1$s-theme-no-mixed-fonts nil - modus-%1$s-theme-prompts nil ; {nil,'subtle,'intense} - modus-%1$s-theme-completions 'moderate ; {nil,'moderate,'opinionated} - modus-%1$s-theme-diffs nil ; {nil,'desaturated,'fg-only} - modus-%1$s-theme-org-blocks 'grayscale ; {nil,'grayscale,'rainbow} - modus-%1$s-theme-headings ; Read further below in the manual for this one - '((1 . section) - (2 . line) - (t . rainbow-line-no-bold)) - modus-%1$s-theme-variable-pitch-headings nil - modus-%1$s-theme-scale-headings t - modus-%1$s-theme-scale-1 1.1 - modus-%1$s-theme-scale-2 1.15 - modus-%1$s-theme-scale-3 1.21 - modus-%1$s-theme-scale-4 1.27 - modus-%1$s-theme-scale-5 1.33) - (load-theme 'modus-%1$s t)) - theme)) - -(defun modus-themes-toggle () - "Toggle between `modus-operandi' and `modus-vivendi' themes." - (interactive) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (modus-vivendi-theme-load)) - (disable-theme 'modus-vivendi) - (modus-operandi-theme-load))) +(use-package modus-themes + :ensure ; omit this to use the built-in themes + :init + ;; Add all your customizations prior to loading the themes + (setq modus-themes-slanted-constructs t + modus-themes-bold-constructs nil) + + ;; Load the theme files before enabling a theme (else you get an error). + (modus-themes-load-themes) + :config + ;; Load the theme of your choice: + (modus-themes-load-operandi) ;; OR (modus-themes-load-vivendi) + :bind ("<f5>" . modus-themes-toggle)) #+end_src -* Customization Options -:PROPERTIES: -:CUSTOM_ID: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f -:END: - -The Modus themes are highly configurable, though they should work well -without any further tweaks. - -By default, all customization options are set to =nil=. - -All customization options need to be evaluated before loading their -theme (see [[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). +[[#h:e68560b3-7fb0-42bc-a151-e015948f8a35][Differences between loading and enabling]]. + +Note: make sure not to customize the variable ~custom-theme-load-path~ +or ~custom-theme-directory~ after the themes' package declaration. That +will lead to failures in loading the files. If either or both of those +variables need to be changed, their values should be defined before the +package declaration of the themes. + +** Differences between loading and enabling +:properties: +:custom_id: h:e68560b3-7fb0-42bc-a151-e015948f8a35 +:end: +#+cindex: load-theme VS enable-theme + +The reason we recommend ~load-theme~ instead of the other option of +~enable-theme~ is that the former does a kind of "reset" on the face +specs. It quite literally loads (or re-loads) the theme. Whereas the +latter simply puts an already loaded theme at the top of the list of +enabled items, re-using whatever state was last loaded. + +As such, ~load-theme~ reads all customizations that may happen during +any given Emacs session: even after the initial setup of a theme. +Examples are calls to ~custom-set-faces~, as well as new values assigned +to the options the Modus themes provide ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). + +Our tests show that ~enable-theme~ does not read such variables anew, so +it might appear to the unsuspecting user that the themes are somehow +broken whenever they try to assign a new value to a customization option +or some face. + +This "reset" that ~load-theme~ conducts does, however, come at the cost +of being somewhat slower than ~enable-theme~. Users who have a stable +setup and who seldom update their variables during a given Emacs +session, are better off using something like this: -** Option for more bold constructs -:PROPERTIES: -:ALT_TITLE: Bold constructs -:DESCRIPTION: Toggle bold constructs in code -:CUSTOM_ID: h:b25714f6-0fbe-41f6-89b5-6912d304091e -:END: - -Symbol names: - -+ =modus-operandi-theme-bold-constructs= -+ =modus-vivendi-theme-bold-constructs= +#+begin_src emacs-lisp +(require 'modus-themes) +(load-theme 'modus-operandi t t) +(load-theme 'modus-vivendi t t) -Possible values: +(enable-theme 'modus-operandi) ;; OR (enable-theme 'modus-vivendi) +#+end_src -1. =nil= (default) -2. =t= +[[#h:e979734c-a9e1-4373-9365-0f2cd36107b8][Sample configuration for use-package]]. -Display several constructs in bold weight. This concerns keywords and -other important aspects of code syntax. It also affects certain mode -line indicators and command-line prompts. +With the above granted, other sections of the manual discuss how to +configure custom faces, where ~load-theme~ is expected, though +~enable-theme~ could still apply in stable setups: -The default is to only use a bold weight when it is required. +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]. -Additionally, and while not necessary, to define the precise weight for -bold constructs, you can change the typographic intensity of the =bold= -face. The standard is a bold weight. It requires no further -intervention. Assuming though that your typeface of choice supports a -"semibold" weight, adding the following snippet to your init file should -suffice. +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. -#+begin_src emacs-lisp -(set-face-attribute 'bold nil :weight 'semibold) -#+end_src +* Customization Options +:properties: +:custom_id: h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f +:end: -Note that if you are switching themes, you need to re-evaluate this -expression after the new theme is loaded. +The Modus themes are highly configurable, though they should work well +without any further tweaks. By default, all customization options are +set to nil. -** Option for more slanted constructs -:PROPERTIES: -:ALT_TITLE: Slanted constructs -:DESCRIPTION: Toggle slanted constructs (italics) in code -:CUSTOM_ID: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 -:END: +Remember that all customization options must be evaluated before loading +a theme ([[#h:3f3c3728-1b34-437d-9d0c-b110f5b161a9][Enable and load]]). -Symbol names: +** Option for more bold constructs +:properties: +:alt_title: Bold constructs +:description: Toggle bold constructs in code +:custom_id: h:b25714f6-0fbe-41f6-89b5-6912d304091e +:end: +#+vindex: modus-themes-bold-constructs -+ =modus-operandi-theme-slanted-constructs= -+ =modus-vivendi-theme-slanted-constructs= +Symbol: ~modus-themes-bold-constructs~ Possible values: 1. =nil= (default) 2. =t= -Choose to render more faces in slanted text (italics). This typically -affects documentation strings and code comments. - -The default is to not use italics unless it is absolutely necessary. +The default is to use a bold typographic weight only when it is +required. -** Option for faint code syntax highlighting (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Faint syntax -:DESCRIPTION: Toggle subtle coloration in code (deprecated for 0.14.0) -:CUSTOM_ID: h:741379fe-7203-4dad-a7f8-ab71f61b43e6 -:END: +With a non-nil value (=t=) display several syntactic constructs in bold +weight. This concerns keywords and other important aspects of code +syntax. It also affects certain mode line indicators and command-line +prompts. -Symbol names: +** Option for more slanted constructs +:properties: +:alt_title: Slanted constructs +:description: Toggle slanted constructs (italics) in code +:custom_id: h:977c900d-0d6d-4dbb-82d9-c2aae69543d6 +:end: +#+vindex: modus-themes-slanted-constructs -+ =modus-operandi-theme-faint-syntax= -+ =modus-vivendi-theme-faint-syntax= +Symbol: ~modus-themes-slanted-constructs~ Possible values: 1. =nil= (default) 2. =t= -Use less saturated colors in programming modes for highlighting code -syntax. The default is to use saturated colors. +The default is to not use slanted text (italics) unless it is absolutely +necessary. -This option essentially affects the font-lock faces, so it may also have -implications in other places that are hard-wired to rely directly on -them instead of specifying their own faces (which could inherit from -font-lock if that is the intent). The author is aware of =vc-dir= as a -case in point. +With a non-nil value (=t=) choose to render more faces in slanted text. +This typically affects documentation strings and code comments. ** Option for syntax highlighting -:PROPERTIES: -:ALT_TITLE: Syntax styles -:DESCRIPTION: Choose the overall aesthetic of code syntax -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: - -This option supersedes the "faint syntax" one ahead of version =0.14.0= -([[#h:741379fe-7203-4dad-a7f8-ab71f61b43e6][Option for faint code syntax highlighting]]). +:properties: +:alt_title: Syntax styles +:description: Choose the overall aesthetic of code syntax +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-syntax -Symbol names: - -+ =modus-operandi-theme-syntax= -+ =modus-vivendi-theme-syntax= +Symbol: ~modus-themes-syntax~ Possible values: 1. =nil= (default) -2. =faint= -3. =yellow-comments= -4. =green-strings= -5. =yellow-comments-green-strings= -6. =alt-syntax= -7. =alt-syntax-yellow-comments= +2. ~faint~ +3. ~yellow-comments~ +4. ~green-strings~ +5. ~yellow-comments-green-strings~ +6. ~alt-syntax~ +7. ~alt-syntax-yellow-comments~ +8. ~faint-yellow-comments~ The default style (nil) for code syntax highlighting is a balanced combination of colors on the cyan-blue-magenta side of the spectrum. There is little to no use of greens, yellows, or reds, except when it is necessary. -Option =faint= is like the default in terms of the choice of palette but +Option ~faint~ is like the default in terms of the choice of palette but applies desaturated color values. -Option =yellow-comments= applies a yellow tint to comments. The rest of -the syntax is the same as the default. +Option ~yellow-comments~ adds a yellow tint to comments. The rest of the +syntax is the same as the default. -Option =green-strings= replaces the blue/cyan/cold color variants in +Option ~green-strings~ replaces the blue/cyan/cold color variants in strings with greener alternatives. The rest of the syntax remains the same. -Option =yellow-comments-green-strings= combines yellow comments with green +Option ~yellow-comments-green-strings~ combines yellow comments with green strings and the rest of the default syntax highlighting style. -Option =alt-syntax= expands the color palette and applies new color -combinations. Strings are green. Doc strings are magenta tinted. -Comments are gray. +Option ~alt-syntax~ expands the active spectrum by applying color +combinations with more contrasting hues between them. Expect to find +red and green variants in addition to cyan, blue, magenta. -Option =alt-syntax-yellow-comments= combines =alt-syntax= with -=yellow-comments=. +Option ~alt-syntax-yellow-comments~ combines ~alt-syntax~ with +~yellow-comments~. -** Option for no font mixing -:PROPERTIES: -:ALT_TITLE: No mixed fonts -:DESCRIPTION: Toggle mixing of font families -:CUSTOM_ID: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b -:END: +Option ~faint-yellow-comments~ combines the ~faint~ style with +~yellow-comments~. -Symbol names: +** Option for no font mixing +:properties: +:alt_title: No mixed fonts +:description: Toggle mixing of font families +:custom_id: h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b +:end: +#+vindex: modus-themes-no-mixed-fonts -+ =modus-operandi-theme-no-mixed-fonts= -+ =modus-vivendi-theme-no-mixed-fonts= +Symbol: ~modus-themes-no-mixed-fonts~ Possible values: 1. =nil= (default) 2. =t= -By default, the themes configure some spacing-sensitive faces, such as -Org tables and code blocks, to always inherit from the =fixed-pitch= face. -This is to ensure that those constructs remain monospaced when users opt -for something like the built-in =M-x variable-pitch-mode=. Otherwise the -layout would appear broken. To disable this behaviour, set the option -to =t=. +By default, the themes configure some spacing-sensitive faces like Org +tables and code blocks to always inherit from the ~fixed-pitch~ face. +This is to ensure that those constructs remain monospaced even when +users opt for a mode that remaps typeface families, such as the built-in +{{{kbd(M-x variable-pitch-mode)}}}. Otherwise the layout would appear +broken, due to how spacing is done. To disable this behaviour, set the +option to =t=. Users may prefer to use another package for handling mixed typeface configurations, rather than letting the theme do it, perhaps because a purpose-specific package has extra functionality. Two possible options -are =org-variable-pitch= and =mixed-pitch=. - -** Option for no link underline (deprecated for ~0.14.0~) -:PROPERTIES: -:ALT_TITLE: Link underline -:DESCRIPTION: Toggle underlined text in links (deprecated for 0.14.0) -:CUSTOM_ID: h:a1a639e9-d247-414c-a0ad-08adadcbc6c1 -:END: - -Note: deprecated ahead of version =0.14.0= ([[#h:c119d7b2-fcd4-4e44-890e-5e25733d5e52][Option for links]]). - -Symbol names: - -+ =modus-operandi-theme-no-link-underline= -+ =modus-vivendi-theme-no-link-underline= - -Possible values: - -1. =nil= (default) -2. =t= +are ~org-variable-pitch~ and ~mixed-pitch~. -Remove the underline effect from links, symbolic links, and buttons. -The default is to apply an underline. +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. ** Option for links -:PROPERTIES: -:ALT_TITLE: Link styles -:DESCRIPTION: Choose color intensity or no underline for links -:CUSTOM_ID: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 -:END: - -This option supersedes the "no link underline" one ahead of version -=0.14.0= ([[#h:a1a639e9-d247-414c-a0ad-08adadcbc6c1][Option for no link underline]]). - -Symbol names: +:properties: +:alt_title: Link styles +:description: Choose among several styles, with or without underline +:custom_id: h:c119d7b2-fcd4-4e44-890e-5e25733d5e52 +:end: +#+vindex: modus-themes-links -+ =modus-operandi-theme-links= -+ =modus-vivendi-theme-links= +Symbol: ~modus-themes-links~ Possible values: 1. =nil= (default) -2. =faint= -3. =neutral-underline= -4. =faint-neutral-underline= -5. =no-underline= +2. ~faint~ +3. ~neutral-underline~ +4. ~faint-neutral-underline~ +5. ~no-underline~ +6. ~underline-only~ +7. ~neutral-underline-only~ The default style (nil) for links is to apply an underline and a -saturated color to the affected text. The color of the two is the -same, which makes the link fairly prominent. +saturated color to the affected text. The color of the two is the same, +which makes the link fairly prominent. -Option =faint= follows the same approach as the default, but uses less +Option ~faint~ follows the same approach as the default, but uses less intense colors. -Option =neutral-underline= changes the underline's color to a subtle -gray, while retaining the default text color. +Option ~neutral-underline~ changes the underline's color to a subtle gray, +while retaining the default text color. -Option =faint-neutral-underline= combines a desaturated text color with a +Option ~faint-neutral-underline~ combines a desaturated text color with a subtle gray underline. -Option =no-underline= removes link underlines altogether, while keeping -their text color the same as the default. +Option ~no-underline~ removes link underlines altogether, while retaining +their original fairly vivid color. -** Option for command prompt styles -:PROPERTIES: -:ALT_TITLE: Command prompts -:DESCRIPTION: Choose among plain, subtle, or intense prompts -:CUSTOM_ID: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 -:END: +Option ~underline-only~ applies a prominent underline while making the +affected text colorless (it uses the same foreground as the theme's +default). + +Option ~neutral-underline-only~ makes the text colorless while using a +subtle gray underline below it. -Symbol names: +NOTE: The placement of the underline, i.e. its proximity to the affected +text, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. -+ =modus-operandi-theme-prompts= -+ =modus-vivendi-theme-prompts= +** Option for command prompt styles +:properties: +:alt_title: Command prompts +:description: Choose among plain, subtle, or intense prompts +:custom_id: h:db5a9a7c-2928-4a28-b0f0-6f2b9bd52ba1 +:end: +#+vindex: modus-themes-prompts + +Symbol: ~modus-themes-prompts~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= +2. ~subtle-accented~ (~subtle~ exists for backward compatibility) +3. ~intense-accented~ (~intense~ exists for backward compatibility) +4. ~subtle-gray~ +5. ~intense-gray~ -The symbols "subtle" and "intense" will apply a combination of accented -background and foreground to the minibuffer and other REPL prompts (like -=M-x shell= and =M-x eshell=). The difference between the two is that the -latter has a more pronounced/noticeable effect than the former. +The default does not use any background for minibuffer and command line +prompts. It relies exclusively on an accented foreground color. -The default does not use any background for such prompts, while relying -exclusively on an accented foreground color. +Options ~subtle-accented~ and ~intense-accented~ will change both the +background and the foreground values to use accented color combinations +that follow the hue of the default styles' foreground (e.g. the default +minibuffer prompt is cyan text, so these combinations will involved a +cyan background and an appropriate cyan foreground). The difference +between the two is that the latter has a more pronounced/noticeable +effect than the former. -** Option for mode line presentation -:PROPERTIES: -:ALT_TITLE: Mode line -:DESCRIPTION: Choose among plain, three-dimension, or moody-compliant styles -:CUSTOM_ID: h:27943af6-d950-42d0-bc23-106e43f50a24 -:END: +Options ~subtle-gray~, ~intense-gray~ are like their accented counterparts, +except they use grayscale values. -Symbol names: +** Option for mode line presentation +:properties: +:alt_title: Mode line +:description: Choose among several styles, with or without borders +:custom_id: h:27943af6-d950-42d0-bc23-106e43f50a24 +:end: +#+vindex: modus-themes-mode-line -+ =modus-operandi-theme-mode-line= -+ =modus-vivendi-theme-mode-line= +Symbol: ~modus-themes-mode-line~ Possible values: 1. =nil= (default) -2. =3d= -3. =moody= - -The default value (=nil=) produces a two-dimensional effect both for the -active and inactive modelines. The differences between the two are -limited to distinct shades of grayscale values, with the active being -more intense than the inactive. - -A =3d= symbol will make the active modeline look like a three-dimensional +2. ~3d~ +3. ~moody~ +4. ~borderless~ +5. ~borderless-3d~ +6. ~borderless-moody~ + +The default produces a two-dimensional effect both for the active and +inactive modelines. The differences between the two are limited to +distinct shades of grayscale values, with the active being more intense +than the inactive. + +Option ~3d~ will make the active modeline look like a three-dimensional rectangle. Inactive modelines remain 2D, though they are slightly toned -down relative to the default. This aesthetic is the same as what you -get when you run Emacs without any customizations (=emacs -Q= on the -command line). +down relative to the default. This aesthetic is virtually the same as +what you get when you run Emacs without any customizations (=emacs -Q= on +the command line). -While =moody= removes all box effects from the modelines and applies +While ~moody~ removes all box effects from the modelines and applies underline and overline properties instead. It also tones down a bit the inactive modelines. This is meant to optimize things for use with the [[https://github.com/tarsius/moody][moody package]] (hereinafter referred to as "Moody"), though it can work fine even without it. +The ~borderless~ option uses the same colors as the default (nil value), +but removes the border effect. This is done by making the box property +use the same color as the background, effectively blending the two and +creating some padding. + +The ~borderless-3d~ and ~borderless-moody~ approximate the ~3d~ and ~moody~ +options respectively, while removing the borders. However, to ensure +that the inactive modelines remain visible, they apply a slightly more +prominent background to them than what their counterparts do (same +inactive background as with the default). + Note that Moody does not expose any faces that the themes could style directly. Instead it re-purposes existing ones to render its tabs and ribbons. As such, there may be cases where the contrast ratio falls below the 7:1 target that the themes conform with (WCAG AAA). To hedge -against this, we configure a fallback foreground for the =moody= option, +against this, we configure a fallback foreground for the ~moody~ option, which will come into effect when the background of the modeline changes to something less accessible, such as Moody ribbons (read the doc string -of =set-face-attribute=, specifically =:distant-foreground=). This fallback -comes into effect when Emacs determines that the background and -foreground of the given construct are too close to each other in terms -of color distance. In effect, users would need to experiment with the -variable =face-near-same-color-threshold= to trigger the fallback color. -We find that a value of =45000= would suffice, contrary to the default -=30000=. Do not set the value too high, because that would have the -adverse effect of always overriding the default color (which has been -carefully designed to be highly accessible). +of ~set-face-attribute~, specifically ~:distant-foreground~). This fallback +is activated when Emacs determines that the background and foreground of +the given construct are too close to each other in terms of color +distance. In effect, users would need to experiment with the variable +~face-near-same-color-threshold~ to trigger the effect. We find that a +value of =45000= will suffice, contrary to the default =30000=. Do not set +the value too high, because that would have the adverse effect of always +overriding the default color (which has been carefully designed to be +highly accessible). Furthermore, because Moody expects an underline and overline instead of -a box style, it is recommended you also include this in your setup: +a box style, it is advised you include this in your setup: #+begin_src emacs-lisp (setq x-underline-at-descent-line t) #+end_src ** Option for completion framework aesthetics -:PROPERTIES: -:ALT_TITLE: Completion UIs -:DESCRIPTION: Choose among standard, moderate, or opinionated looks -:CUSTOM_ID: h:f1c20c02-7b34-4c35-9c65-99170efb2882 -:END: - -Symbol names: +:properties: +:alt_title: Completion UIs +:description: Choose among standard, moderate, or opinionated looks +:custom_id: h:f1c20c02-7b34-4c35-9c65-99170efb2882 +:end: +#+vindex: modus-themes-completions -+ =modus-operandi-theme-completions= -+ =modus-vivendi-theme-completions= +Symbol: ~modus-themes-completions~ Possible values: 1. =nil= (default) -2. =moderate= -3. =opinionated= +2. ~moderate~ +3. ~opinionated~ This is a special option that has different effects depending on the completion UI. The interfaces can be grouped in two categories, based @@ -679,512 +666,1008 @@ ** Option for completion framework aesthetics A value of =nil= will respect the metaphors of each completion framework. -The symbol =moderate= will apply a combination of background and -foreground that is fairly subtle. For Icomplete and friends this -constitutes a departure from their default aesthetics, however the -difference is small. While Helm et al will appear slightly different -than their original looks, as they are toned down a bit. +Option ~moderate~ applies a combination of background and foreground that +is fairly subtle. For Icomplete and friends this constitutes a +departure from their default aesthetics, however the difference is +small. While Helm, Ivy et al appear slightly different than their +original looks, as they are toned down a bit. -The symbol =opinionated= will apply color combinations that refashion the -completion UI. For the Icomplete camp this means that intense -background and foreground combinations are used: in effect their looks -emulate those of Ivy and co. in their original style. Whereas the other -group of packages will revert to an even more nuanced aesthetic with -some additional changes to the choice of hues. +Option ~opinionated~ uses color combinations that refashion the completion +UI. For the Icomplete camp this means that intense background and +foreground combinations are used: in effect their looks emulate those of +Helm, Ivy and co. in their original style. Whereas the other group of +packages will revert to an even more nuanced aesthetic with some +additional changes to the choice of hues. To appreciate the scope of this customization option, you should spend -some time with every one of the =nil= (default), =moderate=, and =opinionated= +some time with every one of the =nil= (default), ~moderate~, and ~opinionated~ possibilities. ** Option for fringe visibility -:PROPERTIES: -:ALT_TITLE: Fringes -:DESCRIPTION: Choose among plain, subtle, or intense fringe visibility -:CUSTOM_ID: h:1983c3fc-74f6-44f3-b917-967c403bebae -:END: +:properties: +:alt_title: Fringes +:description: Choose among invisible, subtle, or intense fringe styles +:custom_id: h:1983c3fc-74f6-44f3-b917-967c403bebae +:end: +#+vindex: modus-themes-fringes -Symbol names: - -+ =modus-operandi-theme-fringes= -+ =modus-vivendi-theme-fringes= +Symbol: ~modus-themes-fringes~ Possible values: 1. =nil= (default) -2. =subtle= -3. =intense= - -The "subtle" symbol will apply a grayscale background that is visible, -yet close enough to the main background color. While the "intense" -symbol will use a more noticeable grayscale background. +2. ~subtle~ +3. ~intense~ The default is to use the same color as that of the main background, meaning that the fringes are not obvious though they still occupy the -space given to them by =fringe-mode=. +space given to them by ~fringe-mode~. -** Option for line highlighting (hl-line-mode) -:PROPERTIES: -:ALT_TITLE: Line highlighting -:DESCRIPTION: Toggle intense style for current line highlighting -:CUSTOM_ID: h:1dba1cfe-d079-4c13-a810-f768e8789177 -:END: +Options ~subtle~ and ~intense~ apply a gray background, making the fringes +visible. The difference between the two is one of degree, as their +names imply. -Symbol names: +** Option for language checkers +:properties: +:alt_title: Language checkers +:description: Control the style of language checkers/linters +:custom_id: h:4b13743a-8ebf-4d2c-a043-cceba10b1eb4 +:end: +#+vindex: modus-themes-lang-checkers -+ =modus-operandi-theme-intense-hl-line= -+ =modus-vivendi-theme-intense-hl-line= +Symbol: ~modus-themes-lang-checkers~ + +Possible values: + +1. =nil= (default) +2. ~subtle-foreground~ +3. ~intense-foreground~ +4. ~straight-underline~ +5. ~subtle-foreground-straight-underline~ +6. ~intense-foreground-straight-underline~ +7. ~colored-background~ + +Nil (the default) applies a color-coded underline to the affected text, +while it leaves the original foreground in tact. If the display spec +where Emacs runs in has support for it (e.g. Emacs GUI), the underline's +style is that of a wave, otherwise it is a straight line. + +Options ~subtle-foreground~ and ~intense-foreground~ follow the same +color-coding pattern and wavy underline of the default, while extending +it with a corresponding foreground value for the affected text. The +difference between the two options is one of degree, as their names +suggest. + +Option ~straight-underline~ is like the default but always applies a +straight line under the affected text. Same principle for +~subtle-foreground-straight-underline~ and its counterpart +~intense-foreground-straight-underline~. + +Option ~colored-background~ uses a straight underline, a tinted +background, and a suitable foreground. All are color-coded. This is +the most intense combination of face properties. + +The present variable affects packages and/or face groups such as those +of =flyspell=, =flymake=, =flycheck=, ~artbollocks-mode~, and ~writegood-mode~. + +NOTE: The placement of the straight underline, though not the wave +style, is controlled by the built-in ~x-underline-at-descent-line~, +~x-use-underline-position-properties~, ~underline-minimum-offset~. Please +refer to their documentation strings. + +** Option for line highlighting (hl-line-mode) +:properties: +:alt_title: Line highlighting +:description: Toggle intense style for current line highlighting +:custom_id: h:1dba1cfe-d079-4c13-a810-f768e8789177 +:end: +#+vindex: modus-themes-intense-hl-line + +Symbol: ~modus-themes-intense-hl-line~ Possible values: 1. =nil= (default) 2. =t= -Draw the current line of =hl-line-mode= or its global equivalent in a more -prominent background color. This would also affect several packages -that enable =hl-line-mode=, such as =elfeed= and =mu4e=. +The default is to use a subtle gray background for ~hl-line-mode~ and its +global equivalent. -The default is to use a more subtle gray. +With a non-nil value (=t=) use a more prominent background color instead. + +This affects several packages that enable ~hl-line-mode~, such as =elfeed= +and =mu4e=. + +** Option for line numbers (display-line-numbers-mode) +:properties: +:alt_title: Line numbers +:description: Toggle subtle style for line numbers +:custom_id: h:8c4a6230-2e43-4aa2-a631-3b7179392e09 +:end: +#+vindex: modus-themes-subtle-line-numbers + +Symbol: ~modus-themes-subtle-line-numbers~ + +Possible value: + +1. =nil= (default) +2. =t= + +The default style for ~display-line-numbers-mode~ and its global variant +is to apply a subtle gray background to the line numbers. The current +line has a more pronounced background and foreground combination to +bring more attention to itself. + +Similarly, the faces for ~display-line-numbers-major-tick~ and its +counterpart ~display-line-numbers-minor-tick~ use appropriate styles that +involve a bespoke background and foreground combination. + +With a non-nil value (=t=), line numbers have no background of their own. +Instead they retain the primary background of the theme, blending with +the rest of the buffer. Foreground values for all relevant faces are +updated to accommodate this aesthetic. ** Option for parenthesis matching (show-paren-mode) -:PROPERTIES: -:ALT_TITLE: Matching parentheses -:DESCRIPTION: Toggle intense style for matching delimiters/parentheses -:CUSTOM_ID: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 -:END: +:properties: +:alt_title: Matching parentheses +:description: Choose between various styles for matching delimiters/parentheses +:custom_id: h:e66a7e4d-a512-4bc7-9f86-fbbb5923bf37 +:end: +#+vindex: modus-themes-paren-match + +Symbol: ~modus-themes-paren-match~ + +Possible values: + +1. =nil= (default) +2. ~subtle-bold~ +3. ~intense~ +4. ~intense-bold~ -Symbol names: +Nil means to use a subtle tinted background color for the matching +delimiters. -+ =modus-operandi-theme-intense-paren-match= -+ =modus-vivendi-theme-intense-paren-match= +Option ~intense~ applies a saturated background color. + +Option ~subtle-bold~ is the same as the default, but also makes use of +bold typographic weight (inherits the ~bold~ face). + +Option ~intense-bold~ is the same as ~intense~, while it also uses a bold +weight. + +This customization variable affects tools such as the built-in +~show-paren-mode~ and the =smartparens= package. + +** Option for active region +:properties: +:alt_title: Active region +:description: Choose between various styles for the active region +:custom_id: h:60798063-b4ad-45ea-b9a7-ff7b5c0ab74c +:end: +#+vindex: modus-themes-region + +Symbol: ~modus-themes-region~ Possible values: 1. =nil= (default) -2. =t= +2. ~no-extend~ +3. ~bg-only~ +4. ~bg-only-no-extend~ -Apply a more intense background to the matching parentheses (or -delimiters). This affects tools such as the built-in =show-paren-mode=. -The default is to use a subtle warm color for the background of those -overlays. +Nil means to only use a prominent gray background with a neutral +foreground. The foreground overrides all syntax highlighting. The +region extends to the edge of the window. -** Option for diff buffer looks -:PROPERTIES: -:ALT_TITLE: Diffs -:DESCRIPTION: Choose among intense, desaturated, or text-only diffs -:CUSTOM_ID: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 -:END: +Option ~no-extend~ preserves the default aesthetic but prevents the region +from extending to the edge of the window. + +Option ~bg-only~ applies a faint tinted background that is distinct from +all others used in the theme, while it does not override any existing +colors. It extends to the edge of the window. + +Option ~bg-only-no-extend~ is a combination of the ~bg-only~ and ~no-extend~ +options. -Symbol names: +** Option for diff buffer looks +:properties: +:alt_title: Diffs +:description: Choose among intense, desaturated, or text-only diffs +:custom_id: h:ea7ac54f-5827-49bd-b09f-62424b3b6427 +:end: +#+vindex: modus-themes-diffs -+ =modus-operandi-theme-diffs= -+ =modus-vivendi-theme-diffs= +Symbol: ~modus-themes-diffs~ Possible values: 1. =nil= (default) -2. =desaturated= -2. =fg-only= - -By default the themes will apply richly colored backgrounds to the -output of diffs, such as those of =diff-mode=, =ediff=, =smerge-mode=, and -=magit=. These are color combinations of an accented background and -foreground so that, for example, added lines have a pronounced green -background with an appropriate shade of green for the affected text. -Word-wise or "refined" changes follow this pattern but use different -shades of those colors to remain distinct. - -A =desaturated= value tones down all relevant color values. It still +2. ~desaturated~ +3. ~fg-only~ +4. ~bg-only~ +5. ~deuteranopia~ + +By default the themes apply rich coloration to the output of diffs, such +as those of ~diff-mode~, ~ediff~, ~smerge-mode~, and Magit. These are +color combinations of an accented background and foreground so that, for +example, added lines have a pronounced green background with an +appropriate shade of green for the affected text. Word-wise or +"refined" changes follow this pattern but use different shades of those +colors to remain distinct. + +Option ~desaturated~ tones down all relevant color values. It still combines an accented background with an appropriate foreground, yet its -overall impression is very subtle. Refined changes are a bit more +overall impression is fairly subtle. Refined changes are a bit more intense to fulfil their intended function, though still less saturated than default. -While =fg-only= will remove all accented backgrounds and instead rely on -color-coded text to denote changes. For instance, added lines use an -intense green foreground, while their background is the same as the rest -of the buffer. Word-wise highlights still use a background value which -is, nonetheless, more subtle than its default equivalent. - -Concerning =magit=, an extra set of tweaks are introduced for the effect -of highlighting the current diff hunk, so as to remain consistent with -the overall experience of that mode. Expect changes that are consistent -with the overall intent of the aforementioned. +Option ~fg-only~ will remove most accented backgrounds and instead rely +on color-coded text to denote changes. For instance, added lines use a +green foreground, while their background is the same as the rest of the +buffer. Word-wise highlights still use a background value which is, +nonetheless, more subtle than its default equivalent. + +Option ~bg-only~ applies color-coded backgrounds but does not override +any syntax highlighting that may be present. This makes it suitable for +use with a non-nil value for ~diff-font-lock-syntax~ (which is the +default for ~diff-mode~ buffers in Emacs 27 or higher). + +Option ~deuteranopia~ optimizes for red-green color deficiency. It +replaces all instances of green with blue variants. This is to ensure +that indicators for "removed" and "added" states are not mistaken for +each other. + +Concerning Magit, an extra set of tweaks are introduced for the effect +of highlighting the current diff hunk, so as to remain aligned with the +overall experience of that mode. Expect changes that are consistent +with the overall intent of the aforementioned. Note, however, that the +~bg-only~ option will not deliver the intended results in Magit diffs +because no syntax highlighting is used there (last checked with Magit +version 20201116.1057, though upstream has a plan to eventually support +such a feature---this entry shall be updated accordingly). ** Option for org-mode block styles -:PROPERTIES: -:ALT_TITLE: Org mode blocks -:DESCRIPTION: Choose among plain, grayscale, or rainbow styles -:CUSTOM_ID: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 -:END: - -Symbol names: +:properties: +:alt_title: Org mode blocks +:description: Choose among plain, grayscale, or rainbow styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-blocks -+ =modus-operandi-theme-org-blocks= -+ =modus-vivendi-theme-org-blocks= +Symbol: ~modus-themes-org-blocks~ Possible values: 1. =nil= (default) -2. =grayscale= -3. =rainbow= +2. ~grayscale~ +3. ~rainbow~ The default is to use the same background as the rest of the buffer for the contents of the block. -A value of =grayscale= will apply a subtle neutral gray background to the -block's contents. It will also extend to the edge of the window the -background of the "begin" and "end" block delimiter lines (only relevant -for Emacs versions >= 27 where the 'extend' keyword is recognised by -=set-face-attribute=). +Option ~grayscale~ applies a subtle neutral gray background to the block's +contents. It will also extend to the edge of the window the background +of the "begin" and "end" block delimiter lines (only relevant for Emacs +versions >= 27 where the 'extend' keyword is part of the face +specifications). -While =rainbow= will instead use an accented background for the contents -of the block. The exact color will depend on the programming language -and is controlled by the =org-src-block-faces= variable (refer to the -theme's source code for the current association list). This is most -suitable for users who work on literate programming documents that mix -and match several languages. +Option ~rainbow~ uses an accented background for the contents of the +block. The exact color will depend on the programming language and is +controlled by the ~org-src-block-faces~ variable. This is most suitable +for users who work on literate programming documents that mix and match +several languages. Note that the "rainbow" blocks may require you to also reload the -major-mode so that the colors are applied properly: use =M-x org-mode= or -=M-x org-mode-restart= to refresh the buffer. Or start typing in each -code block (inefficient at scale, but it still works). +major-mode so that the colors are applied consistently throughout: use +{{{kbd(M-x org-mode)}}} or {{{kbd(M-x org-mode-restart)}}} to refresh the buffer. +Or start typing in each code block (inefficient at scale, but it still +works). -** Option for headings' overall style -:PROPERTIES: -:ALT_TITLE: Heading styles -:DESCRIPTION: Choose among several styles, also per heading level -:CUSTOM_ID: h:271eff19-97aa-4090-9415-a6463c2f9ae1 -:END: +** Option for org-habit graph styles +:properties: +:alt_title: Org agenda habits +:description: Choose among standard, simplified, or traffic light styles +:custom_id: h:b7e328c0-3034-4db7-9cdf-d5ba12081ca2 +:end: +#+vindex: modus-themes-org-habit + +Symbol: ~modus-themes-org-habit~ + +Possible values: + +1. =nil= (default) +2. ~simplified~ +3. ~traffic-light~ + +The default is meant to conform with the original aesthetic of +=org-habit=. It employs all four color codes that correspond to the +org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This results +in a total of eight colors in use: red, yellow, green, blue, in tinted +and shaded versions. They cover the full set of information provided by +the =org-habit= consistency graph. + +Option ~simplified~ is like the default except that it removes the +dichotomy between current and future variants by applying uniform +color-coded values. It applies a total of four colors: red, yellow, +green, blue. They produce a simplified consistency graph that is more +legible (or less "busy") than the default. The intent is to shift focus +towards the distinction between the four states of a habit task, rather +than each state's present/future outlook. + +Option ~traffic-light~ further reduces the available colors to red, +yellow, and green. As in ~simplified~, present and future variants appear +uniformly, but differently from it, the 'clear' state is rendered in a +green hue, instead of the original blue. This is meant to capture the +use-case where a habit task being "too early" is less important than it +being "too late". The difference between ready and clear states is +attenuated by painting both of them using shades of green. This option +thus highlights the alert and overdue states. + +** Option for the headings' overall style +:properties: +:alt_title: Heading styles +:description: Choose among several styles, also per heading level +:custom_id: h:271eff19-97aa-4090-9415-a6463c2f9ae1 +:end: +#+vindex: modus-themes-headings This is defined as an alist and, therefore, uses a different approach than other customization options documented in this manual. -Symbol names: - -+ =modus-operandi-theme-headings= -+ =modus-vivendi-theme-headings= +Symbol: ~modus-themes-headings~ Possible values, which can be specified for each heading level (examples further below): + nil (default fallback option---covers all heading levels) + =t= (default style for a single heading, when the fallback differs) -+ =no-bold= -+ =line= -+ =line-no-bold= -+ =rainbow= -+ =rainbow-line= -+ =rainbow-line-no-bold= -+ =highlight= -+ =highlight-no-bold= -+ =rainbow-highlight= -+ =rainbow-highlight-no-bold= -+ =section= -+ =section-no-bold= -+ =rainbow-section= -+ =rainbow-section-no-bold= - -To control faces per level from 1-8, use something like this (same for -=modus-vivendi-theme-headings=): ++ ~no-bold~ ++ ~line~ ++ ~line-no-bold~ ++ ~rainbow~ ++ ~rainbow-line~ ++ ~rainbow-line-no-bold~ ++ ~highlight~ ++ ~highlight-no-bold~ ++ ~rainbow-highlight~ ++ ~rainbow-highlight-no-bold~ ++ ~section~ ++ ~section-no-bold~ ++ ~rainbow-section~ ++ ~rainbow-section-no-bold~ ++ ~no-color~ ++ ~no-color-no-bold~ + +To control faces per level from 1-8, use something like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . section) - (2 . line) - (3 . highlight) - (t . rainbow-no-bold))) + (2 . section-no-bold) + (3 . rainbow-line) + (t . rainbow-line-no-bold))) #+end_src -The above uses the =section= value for heading levels 1, the =line= for -headings 2, =highlight= for 3. All other levels fall back to -=rainbow-line-no-bold=. +The above uses the ~section~ value for heading levels 1, ~section-no-bold~ +for headings 2, ~rainbow-line~ for 3. All other levels fall back to +~rainbow-line-no-bold~. To set a uniform value for all heading levels, use this pattern: #+begin_src emacs-lisp ;; A given style for every heading -(setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) +(setq modus-themes-headings + '((t . section))) ;; Default aesthetic for every heading -(setq modus-operandi-theme-headings - '((t . nil))) +(setq modus-themes-headings + '()) #+end_src The default style for headings uses a fairly desaturated foreground -value in combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another fallback -option), just specify the value =t= like this: +value in combination with bold typographic weight. To specify this +style for a given level N, assuming you wish to have another fallback +option, just specify the value =t= like this: #+begin_src emacs-lisp -(setq modus-operandi-theme-headings +(setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) #+end_src -A description of all other possible styles: +A description of all other possible styles beyond the default: -+ =no-bold= retains the default text color while removing the typographic - weight. ++ ~no-bold~ retains the default text color while removing the bold + typographic weight. -+ =line= is the same as the default plus an overline over the heading. ++ ~line~ is the same as the default plus an overline across the + heading's length. -+ =line-no-bold= is the same as =line= without bold weight. ++ ~line-no-bold~ is the same as ~line~ without bold weight. -+ =rainbow= uses a more colorful foreground in combination with bold - weight. ++ ~rainbow~ uses a more colorful foreground in combination with bold + typographic weight. -+ =rainbow-line= is the same as =rainbow= plus an overline. ++ ~rainbow-line~ is the same as ~rainbow~ plus an overline. -+ =rainbow-line-no-bold= is the same as =rainbow-line= without the bold ++ ~rainbow-line-no-bold~ is the same as ~rainbow-line~ without the bold weight. -+ =highlight= retains the default style of a fairly desaturated foreground - combined with a bold weight and adds to it a subtle accented - background. ++ ~highlight~ retains the default style of a fairly desaturated + foreground combined with a bold weight and adds to it a subtle + accented background. -+ =highlight-no-bold= is the same as =highlight= without a bold weight. ++ ~highlight-no-bold~ is the same as ~highlight~ without a bold weight. -+ =rainbow-highlight= is the same as =highlight= but with a more colorful - foreground. ++ ~rainbow-highlight~ is the same as ~highlight~ but with a more + colorful foreground. -+ =rainbow-highlight-no-bold= is the same as =rainbow-highlight= without a - bold weight. ++ ~rainbow-highlight-no-bold~ is the same as ~rainbow-highlight~ without + a bold weight. -+ =section= retains the default looks and adds to them both an overline ++ ~section~ retains the default looks and adds to them both an overline and a slightly accented background. It is, in effect, a combination - of the =line= and =highlight= values. + of the ~line~ and ~highlight~ values. -+ =section-no-bold= is the same as =section= without a bold weight. ++ ~section-no-bold~ is the same as ~section~ without a bold weight. -+ =rainbow-section= is the same as =section= but with a more colorful ++ ~rainbow-section~ is the same as ~section~ but with a more colorful foreground. -+ =rainbow-section-no-bold= is the same as =rainbow-section= without a bold - weight." ++ ~rainbow-section-no-bold~ is the same as ~rainbow-section~ without a + bold weight. + ++ ~no-color~ does not apply any color to the heading, meaning that it + uses the foreground of the ~default~ face. It still renders the text + with a bold typographic weight. -** Option for scaled headings -:PROPERTIES: -:ALT_TITLE: Scaled headings -:DESCRIPTION: Toggle scaling of headings -:CUSTOM_ID: h:075eb022-37a6-41a4-a040-cc189f6bfa1f -:END: ++ ~no-color-no-bold~ is like ~no-color~ but without the bold weight. -Symbol names: +** Option for scaled headings +:properties: +:alt_title: Scaled headings +:description: Toggle scaling of headings +:custom_id: h:075eb022-37a6-41a4-a040-cc189f6bfa1f +:end: +#+vindex: modus-themes-scale-headings -+ =modus-operandi-theme-scale-headings= -+ =modus-vivendi-theme-scale-headings= +Symbol: ~modus-themes-scale-headings~ Possible values: 1. =nil= (default) 2. =t= -Make headings larger in height relative to the main text. This is -noticeable in modes like Org. The default is to use the same size for -headings and body copy. +The default is to use the same size for headings and paragraph text. + +With a non-nil value (=t=) make headings larger in height relative to the +main text. This is noticeable in modes like Org, Markdown, and Info. *** Control the scale of headings -:PROPERTIES: -:ALT_TITLE: Scaled heading sizes -:DESCRIPTION: Specify rate of increase for scaled headings -:CUSTOM_ID: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 -:END: +:properties: +:alt_title: Scaled heading sizes +:description: Specify rate of increase for scaled headings +:custom_id: h:6868baa1-beba-45ed-baa5-5fd68322ccb3 +:end: -In addition to toggles for enabling scaled headings, users can also +In addition to the toggle for enabling scaled headings, users can also specify a number of their own. + If it is a floating point, say, =1.5=, it is interpreted as a multiple - of the base font size. This is the recommended method. - -+ If it is an integer, it is read as an absolute font height. The - number is basically the point size multiplied by ten. So if you want - it to be =18pt= you must pass =180=. Please understand that setting an - absolute value is discouraged, as it will break the layout when you - try to change font sizes with the built-in =text-scale-adjust= command - (see [[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + of the base font size. This is the recommended method, because it + will always adapt to changes in the base font size, such as while + using the ~text-scale-adjust~ command. + ++ If it is an integer, it is read as an absolute font height that is + 1/10 of the typographic point size. Thus a value of =18pt= must be + expressed as =180=. Setting an absolute value is discouraged, as it + will break the layout in cases where the base font size must change, + such as with the ~text-scale-adjust~ command ([[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations]]). + While we discourage using absolute values, we still provide for this + option for users who do not need to perform text-scaling operations or + who are content with whatever discrepancies in height. Below are the variables in their default values, using the floating -point paradigm. The numbers are very conservative, but you are free to -change them to your liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a +point paradigm. The numbers are very conservative, but one is free to +change them to their liking, such as =1.2=, =1.4=, =1.6=, =1.8=, =2.0=---or use a resource for finding a consistent scale: #+begin_src emacs-lisp -(setq modus-operandi-theme-scale-1 1.05 - modus-operandi-theme-scale-2 1.1 - modus-operandi-theme-scale-3 1.15 - modus-operandi-theme-scale-4 1.2 - modus-operandi-theme-scale-5 1.3) - -(setq modus-vivendi-theme-scale-1 1.05 - modus-vivendi-theme-scale-2 1.1 - modus-vivendi-theme-scale-3 1.15 - modus-vivendi-theme-scale-4 1.2 - modus-vivendi-theme-scale-5 1.3) +(setq modus-themes-scale-1 1.05 + modus-themes-scale-2 1.1 + modus-themes-scale-3 1.15 + modus-themes-scale-4 1.2 + modus-themes-scale-5 1.3) #+end_src +As for the application of that scale, the variables that range from +~modus-themes-scale-1~ up to ~modus-themes-scale-4~ apply to regular +headings within the context of the given major mode. The former is the +smallest, while the latter is the largest. "Regular headings" are those +that have a standard syntax for their scale, such as Org mode's eight +levels of asterisks or Markdown's six columns. + +Whereas ~modus-themes-scale-5~ is applied to special headings that do not +conform with the aforementioned syntax, yet which are expected to be +larger than the largest value on that implied scale. Put concretely, +Org's =#+title= meta datum is not part of the eight levels of headings in +an Org file, yet is supposed to signify the primary header. Similarly, +the Org Agenda's structure headings are not part of a recognisable scale +and so they also get ~modus-themes-scale-5~. + +Users who wish to maintain scaled headings for the normal syntax while +preventing special headings from standing out, can assign a value of =1.0= +to ~modus-themes-scale-5~ to make it the same as body text (or whatever +value would render it indistinguishable from the desired point of +reference). + Note that in earlier versions of Org, scaling would only increase the size of the heading, but not of keywords that were added to it, like "TODO". The issue has been fixed upstream: <https://protesilaos.com/codelog/2020-09-24-org-headings-adapt/>. -** Option for variable-pitch font in headings -:PROPERTIES: -:ALT_TITLE: Headings' font -:DESCRIPTION: Toggle proportionately spaced fonts in headings -:CUSTOM_ID: h:97caca76-fa13-456c-aef1-a2aa165ea274 -:END: +** Option for variable-pitch font in UI elements +:properties: +:alt_title: UI typeface +:description: Toggle the use of variable-pitch across the User Interface +:custom_id: h:16cf666c-5e65-424c-a855-7ea8a4a1fcac +:end: +#+vindex: modus-themes-variable-pitch-ui + +Symbol: ~modus-themes-variable-pitch-ui~ + +Possible values: + +1. =nil= (default) +2. =t= + +This option concerns User Interface elements that are under the direct +control of Emacs. In particular: the mode line, header line, tab bar, +and tab line. + +The default is to use the same font as the rest of Emacs, which usually +is a monospaced family. -Symbol names: +With a non-nil value (=t=) apply a proportionately spaced typeface. This +is done by assigning the ~variable-pitch~ face to the relevant items. -+ =modus-operandi-theme-variable-pitch-headings= -+ =modus-vivendi-theme-variable-pitch-headings= +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. + +** Option for variable-pitch font in headings +:properties: +:alt_title: Headings' typeface +:description: Toggle the use of variable-pitch in headings +:custom_id: h:97caca76-fa13-456c-aef1-a2aa165ea274 +:end: +#+vindex: modus-themes-variable-pitch-headings + +Symbol: ~modus-themes-variable-pitch-headings~ Possible values: 1. =nil= (default) 2. =t= -Choose to apply a proportionately spaced, else "variable-pitch", -typeface to headings (such as in Org mode). The default is to use the -main font family. +The default is to use the main font family, which typically is +monospaced. -[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org (and others)]]. +With a non-nil value (=t=) apply a proportionately spaced typeface, else +"variable-pitch", to headings (such as in Org mode). + +[[#h:defcf4fc-8fa8-4c29-b12e-7119582cc929][Font configurations for Org and others]]. * Advanced customization (do-it-yourself) -:PROPERTIES: -:INDEX: cp -:CUSTOM_ID: h:f4651d55-8c07-46aa-b52b-bed1e53463bb -:END: +:properties: +:custom_id: h:f4651d55-8c07-46aa-b52b-bed1e53463bb +:end: -Unlike the predefined customization options which follow a -straightforward pattern of allowing the user to quickly specify their -preference, the themes also provide a more flexible, albeit difficult, -mechanism to control things with precision (see [[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). +Unlike the predefined customization options which follow a clear pattern +of allowing the user to quickly specify their preference, the themes +also provide a more flexible, albeit difficult, mechanism to control +things with precision ([[#h:bf1c82f2-46c7-4eb2-ad00-dd11fdd8b53f][Customization Options]]). This section is of interest only to users who are prepared to maintain their own local tweaks and who are willing to deal with any possible incompatibilities between versioned releases of the themes. As such, they are labelled as "do-it-yourself" or "DIY". -** Full access to the themes' palette -:PROPERTIES: -:ALT_TITLE: Tweak colors (DIY) -:DESCRIPTION: Declare your own palette overrides -:CUSTOM_ID: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 -:END: +** Per-theme customization settings (DIY) +:properties: +:custom_id: h:a897b302-8e10-4a26-beab-3caaee1e1193 +:end: + +If you prefer to maintain different customization options between the +two themes, it is best you write your own functions that first set those +options and then load the relevant theme. The following code does +exactly that by simply differentiating the two themes on the choice of +bold constructs in code syntax (enabled for one, disabled for the +other). + +#+begin_src emacs-lisp +(defun my-demo-modus-operandi () + (interactive) + (setq modus-themes-bold-constructs t) ; ENABLE bold + (modus-themes-load-operandi)) + +(defun my-demo-modus-vivendi () + (interactive) + (setq modus-themes-bold-constructs nil) ; DISABLE bold + (modus-themes-load-vivendi)) + +(defun my-demo-modus-themes-toggle () + (if (eq (car custom-enabled-themes) 'modus-operandi) + (my-demo-modus-vivendi) + (my-demo-modus-operandi))) +#+end_src + +Then assign ~my-demo-modus-themes-toggle~ to a key instead of the +equivalent the themes provide. + +For a more elaborate design, it is better to inspect the source code of +~modus-themes-toggle~ and relevant functions. + +** Case-by-case face specs using the themes' palette (DIY) +:properties: +:custom_id: h:1487c631-f4fe-490d-8d58-d72ffa3bd474 +:end: +#+findex: modus-themes-color +#+findex: modus-themes-color-alts +#+cindex: Extracting individual colors + +This section is about tweaking individual faces. If you plan to do +things at scale, consult the next section: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Set multiple faces]]. + +We already covered in previous sections how to toggle between the themes +and how to configure options prior to loading. We also explained that +some of the functions made available to users will fire up a hook that +can be used to pass tweaks in the post-theme-load phase. + +Now assume you wish to change a single face, say, the ~cursor~. And you +would like to get the standard "blue" color value of the active Modus +theme, whether it is Modus Operandi or Modus Vivendi. To do that, you +can use the ~modus-themes-color~ function. It accepts a symbol that is +associated with a color in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~. Like this: + +#+begin_src emacs-lisp +(modus-themes-color 'blue) +#+end_src + +The function always extracts the color value of the active Modus theme. + +#+begin_src emacs-lisp +(progn + (load-theme 'modus-operandi t) + (modus-themes-color 'blue)) ; "#0031a9" for `modus-operandi' + +(progn + (load-theme 'modus-vivendi t) + (modus-themes-color 'blue)) ; "#2fafff" for `modus-vivendi' +#+end_src + +Do {{{kbd(C-h v)}}} on the aforementioned variables to check all the available +symbols that can be passed to this function. + +With that granted, let us expand the example to actually change the +~cursor~ face's background property. We employ the built-in function of +~set-face-attribute~: + +#+begin_src emacs-lisp +(set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) +#+end_src + +If you evaluate this form, your cursor will become blue. But if you +change themes, such as with ~modus-themes-toggle~, your edits will be +lost, because the newly loaded theme will override the =:background= +attribute you had assigned to that face. -The variables are: +For such changes to persist, we need to make them after loading the +theme. So we rely on ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. Here is a sample function that +tweaks two faces and then gets added to the hook: -+ =modus-operandi-theme-override-colors-alist= -+ =modus-vivendi-theme-override-colors-alist= +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (set-face-attribute 'cursor nil :background (modus-themes-color 'blue)) + (set-face-attribute 'font-lock-type-face nil :foreground (modus-themes-color 'magenta-alt))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src -Users can specify an association list that maps the names of color -variables to hexadecimal RGB values (in the form of =#RRGGBB=). This -means that it is possible to override the entire palette or subsets -thereof (see the source code for the actual names and values). +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. -Example: +Using this principle, it is possible to override the styles of faces +without having to find color values for each case. + +Another application is to control the precise weight for bold +constructs. This is particularly useful if your typeface has several +variants such as "heavy", "extrabold", "semibold". All you have to do +is edit the ~bold~ face. For example: #+begin_src emacs-lisp -;; Redefine the values of those three variables for the given theme -(setq modus-vivendi-theme-override-colors-alist - '(("magenta" . "#ffaabb") - ("magenta-alt" . "#ee88ff") - ("magenta-alt-other" . "#bbaaff"))) +(set-face-attribute 'bold nil :weight 'semibold) #+end_src -If you want to be creative, you can define a minor mode that refashions -the themes on demand. The following is a minor mode that gets activated -on demand. We combine it with the function to switch between Modus -Operandi and Modus Vivendi (see [[#h:2a0895a6-3281-4e55-8aa1-8a737555821e][Toggle between the themes on demand]] for -a basic command, and/or [[*Configure options prior to loading][Configure options prior to loading]] for a more -comprehensive setup). +Remember to use the custom function and hook combo we demonstrated +above. Because the themes do not hard-wire a specific weight, this +simple form is enough to change the weight of all bold constructs +throughout the interface. + +Finally, there are cases where you want to tweak colors though wish to +apply different ones to each theme, say, a blue hue for Modus Operandi +and a shade of red for Modus Vivendi. To this end, we provide +~modus-themes-color-alts~ as a convenience function to save you from the +trouble of writing separate wrappers for each theme. It still returns a +single value by querying either of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, only here you pass the two keys you want, +first for ~modus-operandi~ then ~modus-vivendi~. + +Take the previous example with the ~cursor~ face: #+begin_src emacs-lisp -(define-minor-mode modus-themes-alt-mode - "Override Modus themes' palette variables with custom values. +;; Blue for `modus-operandi' and red for `modus-vivendi' +(set-face-attribute 'cursor nil :background (modus-themes-color-alts 'blue 'red)) +#+end_src -This is intended as a proof-of-concept. It is, nonetheless, a -perfectly accessible alternative, conforming with the design -principles of the Modus themes. It still is not as good as the -default colors." +** Face specs at scale using the themes' palette (DIY) +:properties: +:custom_id: h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae +:end: +#+findex: modus-themes-with-colors +#+cindex: Extracting colors en masse + +The examples here are for large scale operations. For simple, one-off +tweaks, you may prefer the approach documented in the previous section +([[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Case-by-case face specs using the themes' palette]]). + +The ~modus-themes-with-colors~ macro lets you retrieve multiple color +values by employing the backquote/backtick and comma notation. The +values are stored in the alists ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~, while the macro always queries that of the +active Modus theme. + +Here is an abstract example that just returns a list of color values +while ~modus-operandi~ is enabled: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (list fg-main + blue-faint + magenta + magenta-alt-other + cyan-alt-other + fg-special-cold + blue-alt + magenta-faint + cyan + fg-main + green-faint + red-alt-faint + blue-alt-faint + fg-special-warm + cyan-alt + blue)) +;; => +;; ("#000000" "#002f88" "#721045" "#5317ac" +;; "#005a5f" "#093060" "#2544bb" "#752f50" +;; "#00538b" "#000000" "#104410" "#702f00" +;; "#003f78" "#5d3026" "#30517f" "#0031a9") +#+end_src + +Getting a list of colors may have its applications, though what you are +most likely interested in is how to use those variables to configure +several faces at once. To do so we can rely on the built-in +~custom-set-faces~ function, which sets face specifications for the +special =user= theme. That "theme" gets applied on top of regular themes +like ~modus-operandi~ and ~modus-vivendi~. + +This is how it works: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg))))) +#+end_src + +The above snippet will immediately refashion the faces it names once it +is evaluated. However, if you switch between the Modus themes, say, +from ~modus-operandi~ to ~modus-vivendi~, the colors will not get updated to +match those of the new theme. To make things work across the themes, we +need to employ the same technique we discussed in the previous section, +namely, to pass our changes at the post-theme-load phase via a hook. + +The themes provide the ~modus-themes-after-load-theme-hook~, which gets +called from ~modus-themes-load-operandi~, ~modus-themes-load-vivendi~, as +well as the command ~modus-themes-toggle~. With this knowledge, you can +wrap the macro in a function and then assign that function to the hook. +Thus: + +#+begin_src emacs-lisp +(defun my-modus-themes-custom-faces () + (modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,blue))) + `(mode-line ((,class :background ,yellow-nuanced-bg + :foreground ,yellow-nuanced-fg))) + `(mode-line-inactive ((,class :background ,blue-nuanced-bg + :foreground ,blue-nuanced-fg)))))) + +(add-hook 'modus-themes-after-load-theme-hook #'my-modus-themes-custom-faces) +#+end_src + +[[#h:86f6906b-f090-46cc-9816-1fe8aeb38776][A theme-agnostic hook for theme loading]]. + +To discover the faces defined by all loaded libraries, you may do +{{{kbd(M-x list-faces-display)}}}. Be warned that when you =:inherit= a face +you are introducing an implicit dependency, so try to avoid doing so for +libraries other than the built-in {{{file(faces.el)}}} (or at least understand +that things may break if you inherit from a yet-to-be-loaded face). + +Also bear in mind that these examples are meant to work with the Modus +themes. If you are cycling between multiple themes you may encounter +unforeseen issues, such as the colors of the Modus themes being applied +to a non-Modus item. + +Finally, note that you can still use other functions where those make +sense. For example, the ~modus-themes-color-alts~ that was discussed in +the previous section. Adapt the above example like this: + +#+begin_src emacs-lisp +... +(modus-themes-with-colors + (custom-set-faces + `(cursor ((,class :background ,(modus-themes-color-alts 'blue 'green)))) + ...)) +#+end_src + +** Override colors (DIY) +:properties: +:custom_id: h:307d95dd-8dbd-4ece-a543-10ae86f155a6 +:end: +#+vindex: modus-themes-operandi-color-overrides +#+vindex: modus-themes-vivendi-color-overrides +#+cindex: Change a theme's colors + +The themes provide a mechanism for overriding their color values. This +is controlled by the variables ~modus-themes-operandi-color-overrides~ and +~modus-themes-vivendi-color-overrides~, which are alists that should +mirror a subset of the associations in ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ respectively. As with all customisations, +overriding must be done before loading the affected theme. + +Let us approach the present topic one step at a time. Here is a +simplified excerpt of the default palette for Modus Operandi with some +basic background values that apply to buffers and the mode line +(remember to inspect the actual value to find out all the associations +that can be overridden): + +#+begin_src emacs-lisp +(defconst modus-themes-colors-operandi + '((bg-main . "#ffffff") + (bg-dim . "#f8f8f8") + (bg-alt . "#f0f0f0") + (bg-active . "#d7d7d7") + (bg-inactive . "#efefef"))) +#+end_src + +As one can tell, we bind a key to a hexadecimal RGB color value. Now +say we wish to override those specific values and have our changes +propagate to all faces that use those keys. We could write something +like this, which adds a subtle ochre tint: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5"))) +#+end_src + +Once this is evaluated, any subsequent loading of ~modus-operandi~ will +use those values instead of the defaults. No further intervention is +required. + +To reset the changes, we apply this and reload the theme: + +#+begin_src emacs-lisp +(setq modus-themes-operandi-color-overrides nil) +#+end_src + +Users who wish to leverage such a mechanism can opt to implement it +on-demand by means of a global minor mode. The following snippet covers +both themes and expands to some more assosiations in the palette: + +#+begin_src emacs-lisp +(define-minor-mode my-modus-themes-tinted + "Tweak some Modus themes colors." :init-value nil :global t - (if modus-themes-alt-mode - (setq modus-operandi-theme-override-colors-alist - '(("bg-main" . "#fefcf4") - ("bg-dim" . "#faf6ef") - ("bg-alt" . "#f7efe5") - ("bg-hl-line" . "#f4f0e3") - ("bg-active" . "#e8dfd1") - ("bg-inactive" . "#f6ece5") - ("bg-region" . "#c6bab1") - ("bg-header" . "#ede3e0") - ("bg-tab-bar" . "#dcd3d3") - ("bg-tab-active" . "#fdf6eb") - ("bg-tab-inactive" . "#c8bab8") - ("fg-unfocused" . "#55556f")) - modus-vivendi-theme-override-colors-alist - '(("bg-main" . "#100b17") - ("bg-dim" . "#161129") - ("bg-alt" . "#181732") - ("bg-hl-line" . "#191628") - ("bg-active" . "#282e46") - ("bg-inactive" . "#1a1e39") - ("bg-region" . "#393a53") - ("bg-header" . "#202037") - ("bg-tab-bar" . "#262b41") - ("bg-tab-active" . "#120f18") - ("bg-tab-inactive" . "#3a3a5a") - ("fg-unfocused" . "#9a9aab"))) - (setq modus-operandi-theme-override-colors-alist nil - modus-vivendi-theme-override-colors-alist nil))) - -(defun modus-themes-toggle (&optional arg) - "Toggle between `modus-operandi' and `modus-vivendi' themes. - -With optional \\[universal-argument] prefix, enable -`modus-themes-alt-mode' for the loaded theme." - (interactive "P") - (if arg - (modus-themes-alt-mode 1) - (modus-themes-alt-mode -1)) - (if (eq (car custom-enabled-themes) 'modus-operandi) - (progn - (disable-theme 'modus-operandi) - (load-theme 'modus-vivendi t)) - (disable-theme 'modus-vivendi) - (load-theme 'modus-operandi t))) + (if my-modus-themes-tinted + (setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4") + (bg-dim . "#faf6ef") + (bg-alt . "#f7efe5") + (bg-hl-line . "#f4f0e3") + (bg-active . "#e8dfd1") + (bg-inactive . "#f6ece5") + (bg-region . "#c6bab1") + (bg-header . "#ede3e0") + (bg-tab-bar . "#dcd3d3") + (bg-tab-active . "#fdf6eb") + (bg-tab-inactive . "#c8bab8") + (fg-unfocused . "#55556f")) + modus-themes-vivendi-color-overrides + '((bg-main . "#100b17") + (bg-dim . "#161129") + (bg-alt . "#181732") + (bg-hl-line . "#191628") + (bg-active . "#282e46") + (bg-inactive . "#1a1e39") + (bg-region . "#393a53") + (bg-header . "#202037") + (bg-tab-bar . "#262b41") + (bg-tab-active . "#120f18") + (bg-tab-inactive . "#3a3a5a") + (fg-unfocused . "#9a9aab"))) + (setq modus-themes-operandi-color-overrides nil + modus-themes-vivendi-color-overrides nil))) #+end_src -** Font configurations for Org (and others) -:PROPERTIES: -:ALT_TITLE: Font configs (DIY) -:DESCRIPTION: Optimise for mixed typeface buffers -:CUSTOM_ID: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 -:END: +With this in place, one can invoke {{{kbd(M-x my-modus-themes-tinted)}}} and +then load the Modus theme of their choice. The new palette subset will +come into effect: subtle ochre tints for Modus Operandi and night sky +shades for Modus Vivendi. Switching between the two themes, such as +with {{{kbd(M-x modus-themes-toggle)}}} will also use the overrides. + +Given that this is a user-level customisation, one is free to implement +whatever color values they desire, even if the possible combinations +fall below the minimum 7:1 contrast ratio that governs the design of the +themes (the WCAG AAA legibility standard). Preferences aside, it is +advised to inspect the source code of ~modus-themes-operandi-colors~ and +~modus-themes-vivendi-colors~ to read the inline commentary: it explains +what the intended use of each palette subset is. -The themes are designed to cope well with mixed font settings ([[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option -for no font mixing]]). Currently this applies to =org-mode= and -=markdown-mode=. +Furthermore, users may benefit from the ~modus-themes-contrast~ function +that we provide: [[#h:02e25930-e71a-493d-828a-8907fc80f874][test color combinations]]. It measures the contrast +ratio between two color values, so it can help in overriding the palette +(or a subset thereof) without making the end result inaccessible. + +** Font configurations for Org and others (DIY) +:properties: +:custom_id: h:defcf4fc-8fa8-4c29-b12e-7119582cc929 +:end: +#+cindex: Font configurations + +The themes are designed to cope well with mixed font configurations. + +[[#h:115e6c23-ee35-4a16-8cef-e2fcbb08e28b][Option for no font mixing]]. + +This mostly concerns ~org-mode~ and ~markdown-mode~, though expect to find +it elsewhere like in ~Info-mode~. In practice it means that the user can safely opt for a more prose-friendly proportionately spaced typeface as their default, while letting spacing-sensitive elements like tables and inline code always -use a monospaced font, by inheriting from the =fixed-pitch= face. +use a monospaced font, by inheriting from the ~fixed-pitch~ face. -Users can try the built-in =M-x variable-pitch-mode= to see the effect in -action. +Users can try the built-in {{{kbd(M-x variable-pitch-mode)}}} to see the +effect in action. To make everything use your desired font families, you need to configure -the =variable-pitch= (proportional spacing) and =fixed-pitch= (monospaced) +the ~variable-pitch~ (proportional spacing) and ~fixed-pitch~ (monospaced) faces respectively. It may also be convenient to set your main typeface -by configuring the =default= face the same way. +by configuring the ~default~ face the same way. -Put something like this in your initialization file (make sure to read -the documentation of =set-face-attribute=, with =M-x describe-function=): +Put something like this in your initialization file (also consider +reading the doc string of ~set-face-attribute~): #+begin_src emacs-lisp ;; Main typeface @@ -1199,50 +1682,35 @@ ** Font configurations for Org (and others) Note the differences in the =:height= property. The =default= face must specify an absolute value, which is the point size × 10. So if you want -to use a font at point size =11=, you set the height at =110=.[fn:: =:height= +to use a font at point size =11=, you set the height to =110=.[fn:: =:height= values do not need to be rounded to multiples of ten: the likes of =115= are perfectly valid—some typefaces will change to account for those finer increments.] Whereas every other face must have a value that is relative to the default, represented as a floating point (if you use an -integer, say, =15= then that means an absolute height). This is of -paramount importance: it ensures that all fonts can scale gracefully -when using something like the =text-scale-adjust= command which only -operates on the base font size (i.e. the =default= face's absolute -height). - -An alternative syntax for the =default= face, is to pass all typeface -parameters directly to a =font= property.[fn:: Has the benefit of -accepting =fontconfig= parameters (GNU/Linux), such as ="DejaVu Sans -Mono-11:hintstyle=hintslight:autohint=false"=. -https://www.freedesktop.org/software/fontconfig/fontconfig-user.html] -Note that here we use a standard point size: - -#+begin_src emacs-lisp -(set-face-attribute 'default nil :font "DejaVu Sans Mono-11") -#+end_src - -Again, remember to only ever specify an absolute height for the =default=. - -** Org user faces (DIY) -:PROPERTIES: -:DESCRIPTION: Extend styles for org-mode keywords and priorities -:CUSTOM_ID: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad -:END: - -Users of =org-mode= have the option to configure various keywords and +integer, then that means an absolute height). This is of paramount +importance: it ensures that all fonts can scale gracefully when using +something like the ~text-scale-adjust~ command which only operates on the +base font size (i.e. the ~default~ face's absolute height). + +** Custom Org user faces (DIY) +:properties: +:custom_id: h:89f0678d-c5c3-4a57-a526-668b2bb2d7ad +:end: +#+cindex: Org extra faces + +Users of ~org-mode~ have the option to configure various keywords and priority cookies to better match their workflow. User options are -=org-todo-keyword-faces= and =org-priority-faces=. +~org-todo-keyword-faces~ and ~org-priority-faces~. -As those are meant to be custom faces, it would be futile to have the -themes try to guess what each user would want to use, which keywords to -target, and so on. Instead, we can provide guidelines on how to -customize things to one's liking with the intent of retaining the -overall aesthetics of the theme. +As those are meant to be custom faces, it is futile to have the themes +guess what each user wants to use, which keywords to target, and so on. +Instead, we can provide guidelines on how to customize things to one's +liking with the intent of retaining the overall aesthetic of the themes. Please bear in mind that the end result of those is not controlled by -the active theme but by how Org maps faces to its constructs. Editing -those while =org-mode= is active requires =M-x org-mode-restart= for changes -to take effect. +the active Modus theme but by how Org maps faces to its constructs. +Editing those while ~org-mode~ is active requires re-initialization of the +mode with {{{kbd(M-x org-mode-restart)}}} for changes to take effect. Let us assume you wish to visually differentiate your keywords. You have something like this: @@ -1257,7 +1725,7 @@ ** Org user faces (DIY) You could then use a variant of the following to inherit from a face that uses the styles you want and also to preserve the properties -applied by the =org-todo= face: +applied by the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1267,10 +1735,10 @@ ** Org user faces (DIY) #+end_src This will refashion the keywords you specify, while letting the other -items in =org-todo-keywords= use their original styles (which are defined -in the =org-todo= and =org-done= faces). +items in ~org-todo-keywords~ use their original styles (which are defined +in the ~org-todo~ and ~org-done~ faces). -If you want back the defaults, try specifying just the =org-todo= face: +If you want back the defaults, try specifying just the ~org-todo~ face: #+begin_src emacs-lisp (setq org-todo-keyword-faces @@ -1282,7 +1750,7 @@ ** Org user faces (DIY) When you inherit from multiple faces, you need to quote the list as shown further above. The order is important: the last item is applied over the previous ones. If you do not want to blend multiple faces, you -do not need a quoted list. A pattern of =keyword . face= would suffice. +do not need a quoted list. A pattern of =keyword . face= will suffice. Both approaches can be used simultaneously, as illustrated in this configuration of the priority cookies: @@ -1295,29 +1763,182 @@ ** Org user faces (DIY) #+end_src To find all the faces that are loaded in your current Emacs session, use -=M-x list-faces-display=. Also try =M-x describe-variable= and then specify -the name of each of those Org variables demonstrated above. Their -documentation strings will offer you further guidance. +{{{kbd(M-x list-faces-display)}}}. Try {{{kbd(M-x describe-variable)}}} as well and +then specify the name of each of those Org variables demonstrated above. +Their documentation strings will offer you further guidance. + +Recall that the themes let you retrieve a color from their palette. Do +it if you plan to control face attributes. + +[[#h:1487c631-f4fe-490d-8d58-d72ffa3bd474][Custom face specs using the themes' palette]]. + +[[#h:02e25930-e71a-493d-828a-8907fc80f874][Check color combinations]]. + +** Measure color contrast (DIY) +:properties: +:custom_id: h:02e25930-e71a-493d-828a-8907fc80f874 +:end: +#+findex: modus-themes-contrast +#+findex: modus-themes-wcag-formula +#+cindex: Color contrast + +The themes provide the functions ~modus-themes-wcag-formula~ and +~modus-themes-contrast~. The former is a direct implementation of the +WCAG formula: <https://www.w3.org/TR/WCAG20-TECHS/G18.html>. It +calculates the relative luminance of a color value that is expressed in +hexadecimal RGB notation. While the latter function is just a +convenient wrapper for comparing the relative luminance between two +colors. + +In practice, one needs to work only with ~modus-themes-contrast~. It +accepts two color values and returns their contrast ratio. Values range +from 1 to 21 (lowest to highest). The themes are designed to always be +equal or higher than 7 for each combination of background and foreground +that they use (this is the WCAG AAA standard---the most demanding of its +kind). + +A couple of examples (rounded numbers): -Furthermore, consider reading the "Notes for aspiring Emacs theme -developers", published on 2020-08-28 by me (Protesilaos Stavrou): -https://protesilaos.com/codelog/2020-08-28-notes-emacs-theme-devs/. +#+begin_src emacs-lisp +;; Pure white with pure green +(modus-themes-contrast "#ffffff" "#00ff00") +;; => 1.37 +;; That is an outright inaccessible combo + +;; Pure black with pure green +(modus-themes-contrast "#000000" "#00ff00") +;; => 15.3 +;; That is is a highly accessible combo +#+end_src + +It does not matter which color value comes first. The ratio is always +the same. + +If one does not wish to read all the decimal points, it is possible to +try something like this: + +#+begin_src emacs-lisp +(format "%0.2f" (modus-themes-contrast "#000000" "#00ff00")) +#+end_src + +While it is fine to perform such calculations on a case-by-case basis, +it is preferable to implement formulas and tables for more demanding +tasks. Such instruments are provided by ~org-mode~ or ~orgtbl-mode~, both +of which are built into Emacs. Below is such a table that derives the +contrast ratio of all colors in the first column (pure red, green, blue) +relative to the color specified in the first row of the second column +(pure white) and rounds the results: + +#+begin_example +| | #ffffff | +|---------+---------| +| #ff0000 | 4.00 | +| #00ff00 | 1.37 | +| #0000ff | 8.59 | +#+tblfm: $2='(modus-themes-contrast $1 @1$2);%0.2f +#+end_example + +To measure color contrast one needs to start from a known value. This +typically is the background. The Modus themes define an expanded +palette in large part because certain colors are only meant to be used +in combination with some others. Consult the source code for the +minutia and relevant commentary. + +Such knowledge may prove valuable while attempting to override some of +the themes' colors: [[#h:307d95dd-8dbd-4ece-a543-10ae86f155a6][Override colors]]. + +** Load theme depending on time of day +:properties: +:custom_id: h:1d1ef4b4-8600-4a09-993c-6de3af0ddd26 +:end: + +While we do provide ~modus-themes-toggle~ to manually switch between the +themes, users may also set up their system to perform such a task +automatically at sunrise and sunset. + +This can be accomplished by specifying the coordinates of one's location +using the built-in {{{file(solar.el)}}} and then configuring the =circadian= +package: + +#+begin_src emacs-lisp +(use-package solar ; built-in + :config + (setq calendar-latitude 35.17 + calendar-longitude 33.36)) + +(use-package circadian ; you need to install this + :ensure + :after solar + (setq circadian-themes '((:sunrise . modus-operandi) + (:sunset . modus-vivendi))) + (circadian-setup)) +#+end_src + +** A theme-agnostic hook for theme loading (DIY) +:properties: +:custom_id: h:86f6906b-f090-46cc-9816-1fe8aeb38776 +:end: + +The themes are designed with the intent to be useful to Emacs users of +varying skill levels, from beginners to experts. This means that we try +to make things easier by not expecting anyone reading this document to +be proficient in Emacs Lisp or programming in general. + +Such a case is with the use of the ~modus-themes-after-load-theme-hook~, +which runs after ~modus-themes-toggle~, ~modus-themes-load-operandi~, or +~modus-themes-load-vivendi~ is evaluated. We recommend using that hook +for advanced customizations, because (1) we know for sure that it is +available once the themes are loaded, and (2) anyone consulting this +manual, especially the sections on enabling and loading the themes, will +be in a good position to benefit from that hook. + +Advanced users who have a need to switch between the Modus themes and +other items will find that such a hook does not meet their requirements: +it only works with the Modus themes and only with the aforementioned +functions. + +A theme-agnostic setup can be configured thus: + +#+begin_src emacs-lisp +(defvar after-enable-theme-hook nil + "Normal hook run after enabling a theme.") + +(defun run-after-enable-theme-hook (&rest _args) + "Run `after-enable-theme-hook'." + (run-hooks 'after-enable-theme-hook)) + +(advice-add 'enable-theme :after #'run-after-enable-theme-hook) +#+end_src + +This creates the ~after-enable-theme-hook~ and makes it run after each +call to ~enable-theme~, which means that it will work for all themes and +also has the benefit that it does not depend on functions such as +~modus-themes-toggle~ and the others mentioned above. ~enable-theme~ is +called internally by ~load-theme~, so the hook works everywhere. + +Now this specific piece of Elisp may be simple for experienced users, +but it is not easy to read for newcomers, including the author of the +Modus themes for the first several months of their time as an Emacs +user. Hence our hesitation to recommend it as part of the standard +setup of the Modus themes (it is generally a good idea to understand +what the implications are of advising a function). * Face coverage -:PROPERTIES: -:CUSTOM_ID: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 -:END: +:properties: +:custom_id: h:a9c8f29d-7f72-4b54-b74b-ddefe15d6a19 +:end: -Modus Operandi and Modus Vivendi try to provide as close to full face -coverage as possible. This is necessary to ensure a consistently -accessible reading experience across all possible interfaces. +The Modus themes try to provide as close to full face coverage as +possible. This is necessary to ensure a consistently accessible reading +experience across all available interfaces. ** Full support for packages or face groups -:PROPERTIES: -:ALT_TITLE: Supported packages -:DESCRIPTION: Full list of covered face groups -:CUSTOM_ID: h:60ed4275-60d6-49f8-9287-9a64e54bea0e -:END: +:properties: +:alt_title: Supported packages +:description: Full list of covered face groups +:custom_id: h:60ed4275-60d6-49f8-9287-9a64e54bea0e +:end: +#+cindex: Explicitly supported packages This list will always be updated to reflect the current state of the project. The idea is to offer an overview of the known status of all @@ -1337,16 +1958,18 @@ ** Full support for packages or face groups + auto-dim-other-buffers + avy + awesome-tray ++ bbdb + binder + bm + bongo + boon -+ breakpoint (provided by the built-in =gdb-mi.el= library) ++ breakpoint (provided by the built-in {{{file(gdb-mi.el)}}} library) + buffer-expose + calendar and diary + calfw + centaur-tabs -+ change-log and log-view (such as =vc-print-log= and =vc-print-root-log=) ++ cfrs ++ change-log and log-view (such as ~vc-print-log~, ~vc-print-root-log~) + cider + circe + color-rg @@ -1355,6 +1978,7 @@ ** Full support for packages or face groups + company-posframe + compilation-mode + completions ++ consult + counsel* + counsel-css + counsel-notmuch @@ -1363,7 +1987,7 @@ ** Full support for packages or face groups + cperl-mode + csv-mode + ctrlf -+ custom (=M-x customize=) ++ custom (what you get with {{{kbd(M-x customize)}}}) + dap-mode + dashboard (emacs-dashboard) + deadgrep @@ -1381,8 +2005,11 @@ ** Full support for packages or face groups + dired-git-info + dired-narrow + dired-subtree ++ diredc + diredfl ++ diredp (dired+) + disk-usage ++ display-fill-column-indicator-mode + doom-modeline + dynamic-ruler + easy-jekyll @@ -1408,8 +2035,10 @@ ** Full support for packages or face groups + eshell-syntax-highlighting + evil* (evil-mode) + evil-goggles ++ evil-snipe + evil-visual-mark-mode + eww ++ exwm + eyebrowse + fancy-dabbrev + flycheck @@ -1443,7 +2072,7 @@ ** Full support for packages or face groups + helpful + highlight-blocks + highlight-defined -+ highlight-escape-sequences (=hes-mode=) ++ highlight-escape-sequences (~hes-mode~) + highlight-indentation + highlight-numbers + highlight-symbol @@ -1468,6 +2097,7 @@ ** Full support for packages or face groups + interaction-log + ioccur + isearch, occur, etc. ++ isl (isearch-light) + ivy* + ivy-posframe + jira (org-jira) @@ -1477,19 +2107,22 @@ ** Full support for packages or face groups + jupyter + kaocha-runner + keycast -+ line numbers (=display-line-numbers-mode= and global variant) ++ line numbers (~display-line-numbers-mode~ and global variant) + lsp-mode + lsp-ui ++ macrostep + magit + magit-imerge + make-mode + man ++ marginalia + markdown-mode -+ markup-faces (=adoc-mode=) ++ markup-faces (~adoc-mode~) + mentor + messages + minibuffer-line + minimap ++ mmm-mode + modeline + mood-line + moody @@ -1512,11 +2145,12 @@ ** Full support for packages or face groups + org-roam + org-superstar + org-table-sticky-header ++ org-tree-slide + org-treescope + origami + outline-mode + outline-minor-faces -+ package (=M-x list-packages=) ++ package (what you get with {{{kbd(M-x list-packages)}}}) + page-break-lines + paradox + paren-face @@ -1532,23 +2166,28 @@ ** Full support for packages or face groups + popup + powerline + powerline-evil ++ prism ([[#h:a94272e0-99da-4149-9e80-11a7e67a2cf2][Note for prism.el]]) + proced + prodigy ++ quick-peek + racket-mode + rainbow-blocks + rainbow-identifiers + rainbow-delimiters + rcirc -+ regexp-builder (also known as =re-builder=) ++ recursion-indicator ++ regexp-builder (also known as ~re-builder~) + rg (rg.el) + ripgrep + rmail + ruler-mode + sallet + selectrum ++ selectrum-prescient + semantic + sesman + shell-script-mode ++ shortdoc + show-paren-mode + shr + side-notes @@ -1557,9 +2196,11 @@ ** Full support for packages or face groups + smart-mode-line + smartparens + smerge ++ solaire + spaceline + speedbar + spell-fu ++ spray + stripes + suggest + switch-window @@ -1570,6 +2211,7 @@ ** Full support for packages or face groups + syslog-mode + table (built-in table.el) + telephone-line ++ terraform-mode + term + tomatinho + transient (pop-up windows such as Magit's) @@ -1580,7 +2222,7 @@ ** Full support for packages or face groups + typescript + undo-tree + vc (built-in mode line status for version control) -+ vc-annotate (=C-x v g=) ++ vc-annotate (the out put of {{{kbd(C-x v g)}}}) + vdiff + vimish-fold + visible-mark @@ -1608,67 +2250,234 @@ ** Full support for packages or face groups GNU Emacs distribution. ** Indirectly covered packages -:PROPERTIES: -:CUSTOM_ID: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 -:END: +:properties: +:custom_id: h:2cb359c7-3a84-4262-bab3-dcdc1d0034d7 +:end: +#+cindex: Implicitly supported packages These do not require any extra styles because they are configured to inherit from some basic faces. Please confirm. + edit-indirect + evil-owl ++ fortran-mode ++ goggles + i3wm-config-mode + perl-mode + php-mode + rjsx-mode + swift-mode - -** Will NOT be supported -:PROPERTIES: -:CUSTOM_ID: h:6c6e8d94-6782-47fc-9eef-ad78671e9eea -:END: - -I have thus far identified a single package that does fit into the -overarching objective of this project: [[https://github.com/hlissner/emacs-solaire-mode][solaire]]. It basically tries to -cast a less intense background on the main file-visiting buffers, so -that secondary elements like sidebars can have the default (pure -white/black) background. - -I will only cover this package if it ever supports the inverse effect: -less intense colors (but still accessible) for ancillary interfaces -and the intended styles for the content you are actually working on. ++ tab-bar-echo-area * Notes for individual packages -:PROPERTIES: -:CUSTOM_ID: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba -:END: +:properties: +:custom_id: h:4c4d901a-84d7-4f20-bd99-0808c2b06eba +:end: This section covers information that may be of interest to users of individual packages. +** Note for display-fill-column-indicator-mode +:properties: +:custom_id: h:2a602816-bc1b-45bf-9675-4cbbd7bf6cab +:end: + +While designing the style for ~display-fill-column-indicator-mode~, we +stayed close to the mode's defaults: to apply a subtle foreground color +to the ~fill-column-indicator~ face, which blends well with the rest of +theme and is consistent with the role of that mode. This is to not +upset the expectations of users. + +Nevertheless, ~display-fill-column-indicator-mode~ has some known +limitations pertaining to its choice of using typographic characters to +draw its indicator. What should be a continuous vertical line might +appear as a series of dashes in certain contexts or under specific +conditions: a non-default value for ~line-spacing~, scaled and/or +variable-pitch headings have been observed to cause this effect. + +Given that we cannot control such factors, it may be better for affected +users to deviate from the default style of the ~fill-column-indicator~ +face. Instead of setting a foreground color, one could use a background +and have the foreground be indistinguishable from it. For example: + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(fill-column-indicator ((,class :background ,bg-inactive + :foreground ,bg-inactive))))) +#+end_src + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +** Note for mmm-mode.el background colors +:properties: +:custom_id: h:99cf0d6c-e478-4e26-9932-3bf3427d13f6 +:end: + +The faces used by {{{file(mmm-mode.el)}}} are expected to have a colorful +background, while they should not touch any foreground value. The idea +is that they must not interfere with existing fontification. Those +background colors need to be distinct from each other, such as an +unambiguous red juxtaposed with a clear blue. + +While this design may be internally consistent with the raison d'être of +that library, it inevitably produces inaccessible color combinations. + +There are two competing goals at play: + +1. Legibility of the text, understood as the contrast ratio between the + background and the foreground. + +2. Semantic precision of each face which entails faithfulness to + color-coding of the underlying background. + +As the Modus themes are designed with the express purpose of conforming +with the first point, we have to forgo the apparent color-coding of the +background elements. Instead we use subtle colors that do not undermine +the legibility of the affected text while they still offer a sense of +added context. + +Users who might prefer to fall below the minimum 7:1 contrast ratio in +relative luminance (the accessibility target we conform with), can opt +to configure the relevant faces on their own. + +[[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +This example uses more vivid background colors, though it comes at the +very high cost of degraded legibility. + +#+begin_src emacs-lisp +(modus-themes-with-colors + (custom-set-faces + `(mmm-cleanup-submode-face ((,class :background ,yellow-refine-bg))) + `(mmm-code-submode-face ((,class :background ,bg-active))) + `(mmm-comment-submode-face ((,class :background ,blue-refine-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-refine-bg))) + `(mmm-default-submode-face ((,class :background ,bg-alt))) + `(mmm-init-submode-face ((,class :background ,magenta-refine-bg))) + `(mmm-output-submode-face ((,class :background ,red-refine-bg))) + `(mmm-special-submode-face ((,class :background ,green-refine-bg))))) +#+end_src + +** Note for prism.el +:properties: +:alt_title: Note for prism +:custom_id: h:a94272e0-99da-4149-9e80-11a7e67a2cf2 +:end: + +This package by Adam Porter, aka "alphapapa" or "github-alphapapa", +implements an alternative to the typical coloration of code. Instead of +highlighting the syntactic constructs, it applies color to different +levels of depth in the code structure. + +As {{{file(prism.el)}}} offers a broad range of customisations, we cannot +style it directly at the theme level: that would run contrary to the +spirit of the package. Instead, we may offer preset color schemes. +Those should offer a starting point for users to adapt to their needs. + +In the following code snippets, we employ the ~modus-themes-with-colors~ +macro: [[#h:51ba3547-b8c8-40d6-ba5a-4586477fd4ae][Face specs at scale using the themes' palette]]. + +These are the minimum recommended settings with 16 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 16) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + magenta + cyan-alt-other + magenta-alt-other + blue + magenta-alt + cyan-alt + red-alt-other + green + fg-main + cyan + yellow + blue-alt + red-alt + green-alt-other + fg-special-warm))) +#+end_src + +With 8 colors: + +#+begin_src emacs-lisp +(setq prism-num-faces 8) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-special-cold + magenta + magenta-alt-other + cyan-alt-other + fg-main + blue-alt + red-alt-other + cyan))) +#+end_src + +And this is with 4 colors, which produces results that are the closest +to the themes' default aesthetic: + +#+begin_src emacs-lisp +(setq prism-num-faces 4) + +(prism-set-colors + :desaturations '(0) ; do not change---may lower the contrast ratio + :lightens '(0) ; same + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + +If you need to apply desaturation and lightening, you can use what the +{{{file(prism.el)}}} documentation recommends, like this (adapting to the +examples with the 4, 8, 16 colors): + +#+begin_src emacs-lisp +(prism-set-colors + :desaturations (cl-loop for i from 0 below 16 collect (* i 2.5)) + :lightens (cl-loop for i from 0 below 16 collect (* i 2.5)) + :colors (modus-themes-with-colors + (list fg-main + cyan-alt-other + magenta-alt-other + magenta))) +#+end_src + ** Note on company-mode overlay pop-up -:PROPERTIES: -:CUSTOM_ID: h:20cef8c4-d11f-4053-8b2c-2872925780b1 -:END: +:properties: +:custom_id: h:20cef8c4-d11f-4053-8b2c-2872925780b1 +:end: -By default, the =company-mode= pop-up that lists completion candidates is +By default, the ~company-mode~ pop-up that lists completion candidates is drawn using an overlay. This creates alignment issues every time it is placed above a piece of text that has a different height than the default. The solution recommended by the project's maintainer is to use an -alternative front-end for drawing the pop-up which uses child frames +alternative front-end for drawing the pop-up which draws child frames instead of overlays.[fn:: https://github.com/company-mode/company-mode/issues/1010][fn:: https://github.com/tumashu/company-posframe/] ** Note for ERC escaped color sequences -:PROPERTIES: -:CUSTOM_ID: h:98bdf319-1e32-4469-8a01-771200fba65c -:END: +:properties: +:custom_id: h:98bdf319-1e32-4469-8a01-771200fba65c +:end: -The built-in IRC client =erc= has the ability to colorise any text using -escape sequences that start with =^C= (inserted with =C-q C-c=) and are +The built-in IRC client ~erc~ has the ability to colorise any text using +escape sequences that start with =^C= (inserted with {{{kbd(C-q C-c)}}}) and are followed by a number for the foreground and background.[fn:: This page explains the basics, though it is not specific to Emacs: https://www.mirc.com/colors.html] Possible numbers are 0-15, with the @@ -1681,13 +2490,13 @@ ** Note for ERC escaped color sequences erc-interpret-mirc-color t) #+end_src -As this allows users to make arbitrary combinations, it is impossible to -guarantee a consistently high contrast ratio. All we can we do is -provide guidance on the combinations that satisfy the accessibility -standard of the themes: +As this allows users the chance to make arbitrary combinations, it is +impossible to guarantee a consistently high contrast ratio. All we can +we do is provide guidance on the combinations that satisfy the +accessibility standard of the themes: + Modus Operandi :: Use foreground color 1 for all backgrounds from - 2-15. Like so: =C-q C-c1,N= where =N= is the background. + 2-15. Like so: {{{kbd(C-q C-c1,N)}}} where =N= is the background. + Modus Vivendi :: Use foreground color 0 for all backgrounds from 2-13. Use foreground =1= for backgrounds 14, 15. @@ -1696,35 +2505,38 @@ ** Note for ERC escaped color sequences together, if you must. ** Note for powerline or spaceline -:PROPERTIES: -:CUSTOM_ID: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 -:END: +:properties: +:custom_id: h:9130a8ba-d8e3-41be-a58b-3cb1eb7b6d17 +:end: Both Powerline and Spaceline package users will likely need to use the -command =powerline-reset= whenever they make changes to their themes +command ~powerline-reset~ whenever they make changes to their themes and/or modeline setup. -** Note on shr colors -:PROPERTIES: -:CUSTOM_ID: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf -:END: +** Note on SHR colors +:properties: +:custom_id: h:4cc767dc-ffef-4c5c-9f10-82eb7b8921bf +:end: -Emacs' HTML rendering mechanism (=shr=) may need explicit configuration to -respect the theme's colors instead of whatever specifications the -webpage provides. Consult =C-h v shr-use-colors=. +Emacs' HTML rendering library ({{{file(shr.el)}}}) may need explicit +configuration to respect the theme's colors instead of whatever +specifications the webpage provides. + +Consult {{{kbd(C-h v shr-use-colors)}}}. ** Note for Helm grep -:PROPERTIES: -:CUSTOM_ID: h:d28879a2-8e4b-4525-986e-14c0f873d229 -:END: +:properties: +:custom_id: h:d28879a2-8e4b-4525-986e-14c0f873d229 +:end: There is one face from the Helm package that is meant to highlight the matches of a grep or grep-like command (=ag= or =ripgrep=). It is -=helm-grep-match=. However, this face can only apply when the user does +~helm-grep-match~. However, this face can only apply when the user does not pass =--color=always= as a command-line option for their command. Here is the docstring for that face, which is defined in the -=helm-grep.el= library (view a library with =M-x find-library=). +{{{file(helm-grep.el)}}} library (you can always visit the source code with +{{{kbd(M-x find-library)}}}). #+begin_quote Face used to highlight grep matches. Have no effect when grep backend @@ -1734,23 +2546,23 @@ ** Note for Helm grep The user must either remove =--color= from the flags passed to the grep function, or explicitly use =--color=never= (or equivalent). Helm provides user-facing customization options for controlling the grep -function's parameters, such as =helm-grep-default-command= and -=helm-grep-git-grep-command=. +function's parameters, such as ~helm-grep-default-command~ and +~helm-grep-git-grep-command~. When =--color=always= is in effect, the grep output will use red text in bold letter forms to present the matching part in the list of candidates. That style still meets the contrast ratio target of >= 7:1 (accessibility standard WCAG AAA), because it draws the reference to ANSI color number 1 (red) from the already-supported array of -=ansi-color-names-vector=. +~ansi-color-names-vector~. ** Note on vc-annotate-background-mode -:PROPERTIES: -:CUSTOM_ID: h:5095cbd1-e17a-419c-93e8-951c186362a3 -:END: +:properties: +:custom_id: h:5095cbd1-e17a-419c-93e8-951c186362a3 +:end: -Due to the unique way =vc-annotate= (=C-x v g=) applies colors, support for -its background mode (=vc-annotate-background-mode=) is disabled at the +Due to the unique way ~vc-annotate~ ({{{kbd(C-x v g)}}}) applies colors, support +for its background mode (~vc-annotate-background-mode~) is disabled at the theme level. Normally, such a drastic measure should not belong in a theme: assuming @@ -1760,35 +2572,87 @@ ** Note on vc-annotate-background-mode If there actually is a way to avoid such a course of action, without prejudice to the accessibility standard of this project, then please -report as much or send patches (see [[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). +report as much or send patches ([[#h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1][Contributing]]). + +** Note on pdf-tools link hints +:properties: +:custom_id: h:2659d13e-b1a5-416c-9a89-7c3ce3a76574 +:end: + +Hints are drawn by [[https://imagemagick.org/][ImageMagick]], not Emacs, i.e., ImageMagick doesn't +know about the hint face unless you tell ImageMagick about it. By +default, only the foreground and background color attributes are +passed. The below snippet adds to those the various font attributes. As +it queries various faces, specifically ~pdf-links-read-link~ and the faces +it inherits, it needs to be added to your initialization file after +you've customized any faces. + +#+begin_src emacs-lisp +(use-package pdf-links + :config + (let ((spec + (apply #'append + (mapcar + (lambda (name) + (list name + (face-attribute 'pdf-links-read-link + name nil 'default))) + '(:family :width :weight :slant))))) + (setq pdf-links-read-link-convert-commands + `("-density" "96" + "-family" ,(plist-get spec :family) + "-stretch" ,(let* ((width (plist-get spec :width)) + (name (symbol-name width))) + (replace-regexp-in-string "-" "" + (capitalize name))) + "-weight" ,(pcase (plist-get spec :weight) + ('ultra-light "Thin") + ('extra-light "ExtraLight") + ('light "Light") + ('semi-bold "SemiBold") + ('bold "Bold") + ('extra-bold "ExtraBold") + ('ultra-bold "Black") + (_weight "Normal")) + "-style" ,(pcase (plist-get spec :slant) + ('italic "Italic") + ('oblique "Oblique") + (_slant "Normal")) + "-pointsize" "%P" + "-undercolor" "%f" + "-fill" "%b" + "-draw" "text %X,%Y '%c'")))) +#+end_src * Contributing -:PROPERTIES: -:CUSTOM_ID: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 -:END: +:properties: +:custom_id: h:9c3cd842-14b7-44d7-84b2-a5c8bc3fc3b1 +:end: This section documents the canonical sources of the themes and the ways in which you can contribute to their ongoing development. ** Sources of the themes -:PROPERTIES: -:CUSTOM_ID: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c -:END: +:properties: +:custom_id: h:89504f1c-c9a1-4bd9-ab39-78fd0eddb47c +:end: +#+cindex: Sources of the themes -The =modus-operandi= and =modus-vivendi= themes are built into Emacs. -Currently they are in the project's =master= branch, which is tracking the -next development release target. +The ~modus-operandi~ and ~modus-vivendi~ themes are built into Emacs. +Currently they are in Emacs' git main branch (trunk), which is tracking +the next development release target. The source code of the themes is [[https://gitlab.com/protesilaos/modus-themes/][available on Gitlab]], for the time being. A [[https://github.com/protesilaos/modus-themes/][mirror on Github]] is also on offer. -An HTML version of this manual is available as an extension to the +An HTML version of this manual is provided as an extension of the [[https://protesilaos.com/modus-themes/][author's personal website]] (does not rely on any non-free code). ** Issues you can help with -:PROPERTIES: -:CUSTOM_ID: h:6536c8d5-3f98-43ab-a787-b94120e735e8 -:END: +:properties: +:custom_id: h:6536c8d5-3f98-43ab-a787-b94120e735e8 +:end: +#+cindex: Contributing A few tasks you can help with: @@ -1802,8 +2666,8 @@ ** Issues you can help with [[#h:111773e2-f26f-4b68-8c4f-9794ca6b9633][Patches require copyright assignment to the FSF]]. -It would be great if your feedback also includes some screenshots, GIFs, -or short videos, as well as further instructions to reproduce a given +It is preferable that your feedback includes some screenshots, GIFs, or +short videos, as well as further instructions to reproduce a given setup. Though this is not a requirement. Whatever you do, bear in mind the overarching objective of the Modus @@ -1813,11 +2677,9 @@ ** Issues you can help with interest of the latter. ** Patches require copyright assignment to the FSF -:PROPERTIES: -:ALT_TITLE: Merge requests -:DESCRIPTION: Legal considerations for code patches -:CUSTOM_ID: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 -:END: +:properties: +:custom_id: h:111773e2-f26f-4b68-8c4f-9794ca6b9633 +:end: Code contributions are most welcome. For any major edit (more than 15 lines, or so, in aggregate per person), you need to make a copyright @@ -1875,48 +2737,58 @@ ** Patches require copyright assignment to the FSF [Which files have you changed so far, and which new files have you written so far?] -Changed a couple of themes that are part of the Emacs source code: - -./etc/themes/modus-operandi-theme.el -./etc/themes/modus-vivendi-theme.el #+end_example * Acknowledgements -:PROPERTIES: -:CUSTOM_ID: h:95c3da23-217f-404e-b5f3-56c75760ebcf -:END: +:properties: +:custom_id: h:95c3da23-217f-404e-b5f3-56c75760ebcf +:end: +#+cindex: Contributors -The Modus themes are a collective effort. Every contribution counts. +The Modus themes are a collective effort. Every bit of work matters. + Author/maintainer :: Protesilaos Stavrou. + Contributions to code or documentation :: Anders Johansson, Basil - L. Contovounesios, Eli Zaretskii, Madhavan Krishnan, Markus Beppler, - Matthew Stevenson, Shreyas Ragavan, Stefan Kangas, Vincent Murphy. - -+ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Alex Griffin, - Alex Peitsinis, Alexey Shmalko, Anders Johansson, André Alexandre - Gomes, Arif Rezai, Basil L. Contovounesios, Damien Cassou, Dario - Gjorgjevski, David Edmondson, Davor Rotim, Divan Santana, Gerry - Agbobada, Gianluca Recchia, Ilja Kocken, Iris Garcia, Len Trigg, - Manuel Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Murilo - Pereira, Nicolas De Jaeghere, Paul Poloskov, Pierre Téchoueyres, Roman - Rudakov, Ryan Phillips, Shreyas Ragavan, Simon Pugnet, Tassilo Horn, - Thibaut Verron, Trey Merkley, Togan Muftuoglu, Uri Sharf, Utkarsh - Singh, Vincent Foley. As well as users: Ben, Eugene, Fourchaux, - Fredrik, Moesasji, Nick, TheBlob42, bepolymathe, dinko, doolio, - jixiuf, okamsn, tycho garen. - -+ Packaging :: Dhavan Vaidya (Debian), Stefan Kangas (core Emacs), - Stefan Monnier (GNU Elpa). + L.{{{space()}}} Contovounesios, Carlo Zancanaro, Eli Zaretskii, Kostadin + Ninev, Madhavan Krishnan, Markus Beppler, Matthew Stevenson, Nicolas + De Jaeghere, Shreyas Ragavan, Stefan Kangas, Vincent Murphy, Xinglu + Chen. + ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders + Johansson, André Alexandre Gomes, Arif Rezai, Basil L.{{{space()}}} + Contovounesios, Burgess Chang, Christian Tietze, Christopher Dimech, + Damien Cassou, Daniel Mendler, Dario Gjorgjevski, David Edmondson, + Davor Rotim, Divan Santana, Gerry Agbobada, Gianluca Recchia, Gustavo + Barros, Hörmetjan Yiltiz, Ilja Kocken, Iris Garcia, Jeremy Friesen, + John Haman, Joshua O'Connor, Kevin Fleming, Kostadin Ninev, Len Trigg, + Manuel Uberti, Mark Burton, Markus Beppler, Michael Goldenberg, Morgan + Smith, Murilo Pereira, Nicolas De Jaeghere, Paul Poloskov, Pete + Kazmier, Peter Wu, Philip K., Pierre Téchoueyres, Roman Rudakov, Ryan + Phillips, Sam Kleinman, Shreyas Ragavan, Simon Pugnet, Tassilo Horn, + Thibaut Verron, Trey Merkley, Togan Muftuoglu, Toon Claes, Uri Sharf, + Utkarsh Singh, Vincent Foley. As well as users: Ben, CsBigDataHub1, + Emacs Contrib, Eugene, Fourchaux, Fredrik, Moesasji, Nick, TheBlob42, + bepolymathe, doolio, fleimgruber, iSeeU, jixiuf, okamsn. + ++ Packaging :: Basil L.{{{space()}}} Contovounesios, Eli Zaretskii, Glenn + Morris, Mauro Aranda, Richard Stallman, Stefan Kangas (core Emacs), + Stefan Monnier (GNU Elpa), André Alexandre Gomes, Dimakakos Dimos, + Morgan Smith, Nicolas Goaziou (Guix), Dhavan Vaidya (Debian). + Inspiration for certain features :: Bozhidar Batsov (zenburn-theme), Fabrice Niessen (leuven-theme). +Special thanks, in no particular order, to Manuel Uberti and Omar +Antolín Camarena for their long time contributions and insightful +commentary. + * Meta -:PROPERTIES: -:CUSTOM_ID: h:13752581-4378-478c-af17-165b6e76bc1b -:END: +:properties: +:custom_id: h:13752581-4378-478c-af17-165b6e76bc1b +:end: +#+cindex: Development notes If you are curious about the principles that govern the development of this project read the essay [[https://protesilaos.com/codelog/2020-03-17-design-modus-themes-emacs/][On the design of the Modus themes]] @@ -1931,32 +2803,501 @@ * Meta + [[https://protesilaos.com/codelog/2020-07-04-modus-themes-faint-colours/][Modus themes: new "faint syntax" option]] (2020-07-04) + [[https://protesilaos.com/codelog/2020-07-08-modus-themes-nuanced-colours/][Modus themes: major review of "nuanced" colours]] (2020-07-08) + [[https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/][Modus themes: review of blue colours]] (2020-09-14) ++ [[https://protesilaos.com/codelog/2020-12-27-modus-themes-review-rainbow-delimiters/][Modus themes: review rainbow-delimiters faces]] (2020-12-27) ++ [[https://protesilaos.com/codelog/2021-01-11-modus-themes-review-select-faint-colours/][Modus themes: review of select "faint" colours]] (2021-01-11) ++ [[https://protesilaos.com/codelog/2021-02-25-modus-themes-diffs-deuteranopia/][The Modus themes now cover deuteranopia in diffs]] (2021-02-25) -And here are the canonical sources for this project's documentation: +And here are the canonical sources of this project's documentation: + Manual :: <https://protesilaos.com/modus-themes> + Change Log :: <https://protesilaos.com/modus-themes-changelog> + Screenshots :: <https://protesilaos.com/modus-themes-pictures> -* External projects (ports) -:PROPERTIES: -:CUSTOM_ID: h:21adb7c8-2208-41e8-803c-052e42e2c05d -:END: - -The present section documents projects that extend the scope of the -Modus themes. The following list will be updated whenever relevant -information is brought to my attention. If you already have or intend -to produce such a port, feel welcome [[https://protesilaos.com/contact][to contact me]]. - -+ Modus exporter :: This is [[https://github.com/polaris64/modus-exporter][an Elisp library written by Simon Pugnet]]. - Licensed under the terms of the GNU General Public License. It is - meant to capture the color values of the active Modus theme (Operandi - or Vivendi) and output it as a valid theme for some other application. - * GNU Free Documentation License -:PROPERTIES: -:APPENDIX: t -:CUSTOM_ID: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 -:END: +:properties: +:appendix: t +:custom_id: h:3077c3d2-7f90-4228-8f0a-73124f4026f6 +:end: #+texinfo: @include doclicense.texi + +#+begin_export html + + GNU Free Documentation License + Version 1.3, 3 November 2008 + + + Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. + <https://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +0. PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document "free" in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of "copyleft", which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + + +1. APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The "Document", below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as "you". You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A "Modified Version" of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A "Secondary Section" is a named appendix or a front-matter section of +the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall +subject (or to related matters) and contains nothing that could fall +directly within that overall subject. (Thus, if the Document is in +part a textbook of mathematics, a Secondary Section may not explain +any mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The "Invariant Sections" are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The "Cover Texts" are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A "Transparent" copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not "Transparent" is called "Opaque". + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, LaTeX input format, SGML +or XML using a publicly available DTD, and standard-conforming simple +HTML, PostScript or PDF designed for human modification. Examples of +transparent image formats include PNG, XCF and JPG. Opaque formats +include proprietary formats that can be read and edited only by +proprietary word processors, SGML or XML for which the DTD and/or +processing tools are not generally available, and the +machine-generated HTML, PostScript or PDF produced by some word +processors for output purposes only. + +The "Title Page" means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, "Title Page" means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +The "publisher" means any person or entity that distributes copies of +the Document to the public. + +A section "Entitled XYZ" means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as "Acknowledgements", +"Dedications", "Endorsements", or "History".) To "Preserve the Title" +of such a section when you modify the Document means that it remains a +section "Entitled XYZ" according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + +2. VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no +other conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + + +3. COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to +give them a chance to provide you with an updated version of the +Document. + + +4. MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +A. Use in the Title Page (and on the covers, if any) a title distinct + from that of the Document, and from those of previous versions + (which should, if there were any, be listed in the History section + of the Document). You may use the same title as a previous version + if the original publisher of that version gives permission. +B. List on the Title Page, as authors, one or more persons or entities + responsible for authorship of the modifications in the Modified + Version, together with at least five of the principal authors of the + Document (all of its principal authors, if it has fewer than five), + unless they release you from this requirement. +C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. +D. Preserve all the copyright notices of the Document. +E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. +F. Include, immediately after the copyright notices, a license notice + giving the public permission to use the Modified Version under the + terms of this License, in the form shown in the Addendum below. +G. Preserve in that license notice the full lists of Invariant Sections + and required Cover Texts given in the Document's license notice. +H. Include an unaltered copy of this License. +I. Preserve the section Entitled "History", Preserve its Title, and add + to it an item stating at least the title, year, new authors, and + publisher of the Modified Version as given on the Title Page. If + there is no section Entitled "History" in the Document, create one + stating the title, year, authors, and publisher of the Document as + given on its Title Page, then add an item describing the Modified + Version as stated in the previous sentence. +J. Preserve the network location, if any, given in the Document for + public access to a Transparent copy of the Document, and likewise + the network locations given in the Document for previous versions + it was based on. These may be placed in the "History" section. + You may omit a network location for a work that was published at + least four years before the Document itself, or if the original + publisher of the version it refers to gives permission. +K. For any section Entitled "Acknowledgements" or "Dedications", + Preserve the Title of the section, and preserve in the section all + the substance and tone of each of the contributor acknowledgements + and/or dedications given therein. +L. Preserve all the Invariant Sections of the Document, + unaltered in their text and in their titles. Section numbers + or the equivalent are not considered part of the section titles. +M. Delete any section Entitled "Endorsements". Such a section + may not be included in the Modified Version. +N. Do not retitle any existing section to be Entitled "Endorsements" + or to conflict in title with any Invariant Section. +O. Preserve any Warranty Disclaimers. + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled "Endorsements", provided it contains +nothing but endorsements of your Modified Version by various +parties--for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + + +5. COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled "History" +in the various original documents, forming one section Entitled +"History"; likewise combine any sections Entitled "Acknowledgements", +and any sections Entitled "Dedications". You must delete all sections +Entitled "Endorsements". + + +6. COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other +documents released under this License, and replace the individual +copies of this License in the various documents with a single copy +that is included in the collection, provided that you follow the rules +of this License for verbatim copying of each of the documents in all +other respects. + +You may extract a single document from such a collection, and +distribute it individually under this License, provided you insert a +copy of this License into the extracted document, and follow this +License in all other respects regarding verbatim copying of that +document. + + +7. AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an "aggregate" if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + + +8. TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled "Acknowledgements", +"Dedications", or "History", the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + + +9. TERMINATION + +You may not copy, modify, sublicense, or distribute the Document +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense, or distribute it is void, and +will automatically terminate your rights under this License. + +However, if you cease all violation of this License, then your license +from a particular copyright holder is reinstated (a) provisionally, +unless and until the copyright holder explicitly and finally +terminates your license, and (b) permanently, if the copyright holder +fails to notify you of the violation by some reasonable means prior to +60 days after the cessation. + +Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + +Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, receipt of a copy of some or all of the same material does +not give you any rights to use it. + + +10. FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions of the +GNU Free Documentation License from time to time. Such new versions +will be similar in spirit to the present version, but may differ in +detail to address new problems or concerns. See +https://www.gnu.org/licenses/. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License "or any later version" applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. If the Document +specifies that a proxy can decide which future versions of this +License can be used, that proxy's public statement of acceptance of a +version permanently authorizes you to choose that version for the +Document. + +11. RELICENSING + +"Massive Multiauthor Collaboration Site" (or "MMC Site") means any +World Wide Web server that publishes copyrightable works and also +provides prominent facilities for anybody to edit those works. A +public wiki that anybody can edit is an example of such a server. A +"Massive Multiauthor Collaboration" (or "MMC") contained in the site +means any set of copyrightable works thus published on the MMC site. + +"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 +license published by Creative Commons Corporation, a not-for-profit +corporation with a principal place of business in San Francisco, +California, as well as future copyleft versions of that license +published by that same organization. + +"Incorporate" means to publish or republish a Document, in whole or in +part, as part of another Document. + +An MMC is "eligible for relicensing" if it is licensed under this +License, and if all works that were first published under this License +somewhere other than this MMC, and subsequently incorporated in whole or +in part into the MMC, (1) had no cover texts or invariant sections, and +(2) were thus incorporated prior to November 1, 2008. + +The operator of an MMC Site may republish an MMC contained in the site +under CC-BY-SA on the same site at any time before August 1, 2009, +provided the MMC is eligible for relicensing. + + +ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + + Copyright (c) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. + A copy of the license is included in the section entitled "GNU + Free Documentation License". + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the "with...Texts." line with this: + + with the Invariant Sections being LIST THEIR TITLES, with the + Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. +#+end_export + +#+html: <!-- + +* Indices +:properties: +:custom_id: h:55104b26-8e94-46cf-9975-43ea00316489 +:end: + +** Function index +:properties: +:index: fn +:custom_id: h:6bec5005-529c-4521-ae05-3d990baffb5b +:end: + +** Variable index +:properties: +:index: vr +:custom_id: h:16ad8df6-b015-40a9-9259-03d4f7a23ee4 +:end: + +** Concept index +:properties: +:index: cp +:custom_id: h:6aa7a656-884b-4c39-b759-087e412eec13 +:end: + +#+html: --> diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el index 346000a093..ce2c75e9a8 100644 --- a/etc/themes/modus-operandi-theme.el +++ b/etc/themes/modus-operandi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Operandi is the light variant of the Modus themes (Modus +;; Vivendi is the dark one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-operandi-theme-slanted-constructs (boolean) -;; modus-operandi-theme-bold-constructs (boolean) -;; modus-operandi-theme-variable-pitch-headings (boolean) -;; modus-operandi-theme-no-mixed-fonts (boolean) -;; modus-operandi-theme-headings (alist) -;; modus-operandi-theme-scale-headings (boolean) -;; modus-operandi-theme-fringes (choice) -;; modus-operandi-theme-org-blocks (choice) -;; modus-operandi-theme-prompts (choice) -;; modus-operandi-theme-mode-line (choice) -;; modus-operandi-theme-diffs (choice) -;; modus-operandi-theme-faint-syntax (boolean) -;; modus-operandi-theme-intense-hl-line (boolean) -;; modus-operandi-theme-intense-paren-match (boolean) -;; modus-operandi-theme-no-link-underline (boolean) -;; modus-operandi-theme-completions (choice) -;; modus-operandi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-operandi-theme-scale-1 1.05 -;; modus-operandi-theme-scale-2 1.1 -;; modus-operandi-theme-scale-3 1.15 -;; modus-operandi-theme-scale-4 1.2 -;; modus-operandi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f -(deftheme modus-operandi - "Light theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Operandi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-operandi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-operandi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-operandi-theme-proportional-fonts - 'modus-operandi-theme-variable-pitch-headings "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-section-headings - 'modus-operandi-theme-headings - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-operandi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-operandi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-operandi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-operandi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-operandi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-operandi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-2 1.1 - "Font size slightly larger than `modus-operandi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-3 1.15 - "Font size slightly larger than `modus-operandi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-4 1.2 - "Font size slightly larger than `modus-operandi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-operandi-theme-scale-5 1.3 - "Font size slightly larger than `modus-operandi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-operandi-theme-visible-fringes - 'modus-operandi-theme-fringes - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-operandi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-operandi-theme-distinct-org-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks - 'modus-operandi-theme-org-blocks - "`modus-operandi-theme' 0.11.0") - -(defcustom modus-operandi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-operandi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-operandi-theme-3d-modeline - 'modus-operandi-theme-mode-line - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-operandi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-operandi-theme-subtle-diffs - 'modus-operandi-theme-diffs - "`modus-operandi-theme' 0.13.0") - -(defcustom modus-operandi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-operandi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-operandi-theme-intense-standard-completions - 'modus-operandi-theme-completions - "`modus-operandi-theme' 0.12.0") - -(defcustom modus-operandi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-operandi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-operandi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-operandi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-operandi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-operandi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-operandi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-operandi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-operandi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-operandi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-operandi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-operandi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-operandi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-operandi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-operandi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-operandi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-operandi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-operandi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-operandi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-operandi-theme-heading-p (key) - "Query style of KEY in `modus-operandi-theme-headings'." - (cdr (assoc key modus-operandi-theme-headings))) - -(defun modus-operandi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-operandi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-operandi-theme-heading-p `,level)) - (style (or key (modus-operandi-theme-heading-p t))) - (var (if modus-operandi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-operandi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-operandi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-operandi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-operandi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-operandi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-operandi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-operandi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-operandi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-operandi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-operandi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-operandi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-operandi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-operandi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-operandi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-operandi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-operandi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-operandi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-operandi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-operandi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-operandi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-operandi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-operandi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#ffffff") ("fg-main" . "#000000") - ("bg-alt" . "#f0f0f0") ("fg-alt" . "#505050") - ("bg-dim" . "#f8f8f8") ("fg-dim" . "#282828") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#d7d7d7") ("fg-active" . "#0a0a0a") - ("bg-inactive" . "#efefef") ("fg-inactive" . "#404148") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#dde3f4") ("fg-special-cold" . "#093060") - ("bg-special-mild" . "#c4ede0") ("fg-special-mild" . "#184034") - ("bg-special-warm" . "#f0e0d4") ("fg-special-warm" . "#5d3026") - ("bg-special-calm" . "#f8ddea") ("fg-special-calm" . "#61284f") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#a60000") ("green" . "#005e00") - ("yellow" . "#813e00") ("blue" . "#0031a9") - ("magenta" . "#721045") ("cyan" . "#00538b") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#972500") ("green-alt" . "#315b00") - ("yellow-alt" . "#70480f") ("blue-alt" . "#2544bb") - ("magenta-alt" . "#8f0075") ("cyan-alt" . "#30517f") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#a0132f") ("green-alt-other" . "#145c33") - ("yellow-alt-other" . "#863927") ("blue-alt-other" . "#0000c0") - ("magenta-alt-other" . "#5317ac") ("cyan-alt-other" . "#005a5f") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-operandi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#7f1010") ("green-faint" . "#104410") - ("yellow-faint" . "#5f4400") ("blue-faint" . "#002f88") - ("magenta-faint" . "#752f50") ("cyan-faint" . "#12506f") - - ("red-alt-faint" . "#702f00") ("green-alt-faint" . "#30440f") - ("yellow-alt-faint" . "#5d5000") ("blue-alt-faint" . "#003f78") - ("magenta-alt-faint" . "#702565") ("cyan-alt-faint" . "#354f6f") - - ("red-alt-other-faint" . "#7f002f") ("green-alt-other-faint" . "#0f443f") - ("yellow-alt-other-faint" . "#5e3a20") ("blue-alt-other-faint" . "#1f2f6f") - ("magenta-alt-other-faint" . "#5f3f7f") ("cyan-alt-other-faint" . "#2e584f") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#5f0000") ("green-nuanced" . "#004000") - ("yellow-nuanced" . "#3f3000") ("blue-nuanced" . "#201f55") - ("magenta-nuanced" . "#541f4f") ("cyan-nuanced" . "#0f3360") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#fff1f0") ("green-nuanced-bg" . "#ecf7ed") - ("yellow-nuanced-bg" . "#fff3da") ("blue-nuanced-bg" . "#f3f3ff") - ("magenta-nuanced-bg" . "#fdf0ff") ("cyan-nuanced-bg" . "#ebf6fa") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#b60000") ("green-intense" . "#006800") - ("yellow-intense" . "#904200") ("blue-intense" . "#1111ee") - ("magenta-intense" . "#7000e0") ("cyan-intense" . "#205b93") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#f2b0a2") ("green-subtle-bg" . "#aecf90") - ("yellow-subtle-bg" . "#e4c340") ("blue-subtle-bg" . "#b5d0ff") - ("magenta-subtle-bg" . "#f0d3ff") ("cyan-subtle-bg" . "#c0efff") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#ff8892") ("green-intense-bg" . "#5ada88") - ("yellow-intense-bg" . "#f5df23") ("blue-intense-bg" . "#6aaeff") - ("magenta-intense-bg" . "#d5baff") ("cyan-intense-bg" . "#42cbd4") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#ffcccc") ("red-refine-fg" . "#780000") - ("green-refine-bg" . "#aceaac") ("green-refine-fg" . "#004c00") - ("yellow-refine-bg" . "#fff29a") ("yellow-refine-fg" . "#604000") - ("blue-refine-bg" . "#8ac7ff") ("blue-refine-fg" . "#002288") - ("magenta-refine-bg" . "#ffccff") ("magenta-refine-fg" . "#770077") - ("cyan-refine-bg" . "#8eecf4") ("cyan-refine-fg" . "#004850") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#8a0000") ("green-active" . "#004c2e") - ("yellow-active" . "#702d1f") ("blue-active" . "#0030b4") - ("magenta-active" . "#5c2092") ("cyan-active" . "#003f8a") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#f08290") ("green-fringe-bg" . "#62c86a") - ("yellow-fringe-bg" . "#dbba3f") ("blue-fringe-bg" . "#82afff") - ("magenta-fringe-bg" . "#e0a3ff") ("cyan-fringe-bg" . "#2fcddf") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#f2eff3") - ("bg-hl-line-intense" . "#e0e0e0") - ("bg-hl-alt" . "#fbeee0") - ("bg-hl-alt-intense" . "#e8dfd1") - ("bg-paren-match" . "#e0af82") - ("bg-paren-match-intense" . "#c488ff") - ("bg-region" . "#bcbcbc") - - ("bg-tab-bar" . "#d5d5d5") - ("bg-tab-active" . "#f6f6f6") - ("bg-tab-inactive" . "#bdbdbd") - ("fg-tab-active" . "#30169e") - - ("fg-escape-char-construct" . "#8b1030") - ("fg-escape-char-backslash" . "#654d0f") - - ("fg-lang-error" . "#9f004f") - ("fg-lang-warning" . "#604f0f") - ("fg-lang-note" . "#4040ae") - - ("fg-window-divider-inner" . "#888888") - ("fg-window-divider-outer" . "#585858") - - ("fg-unfocused" . "#56576d") - - ("bg-header" . "#e5e5e5") ("fg-header" . "#2a2a2a") - - ("bg-whitespace" . "#fff8fc") ("fg-whitespace" . "#645060") - - ("bg-diff-heading" . "#b7c2dd") ("fg-diff-heading" . "#043355") - ("bg-diff-added" . "#d4fad4") ("fg-diff-added" . "#004500") - ("bg-diff-changed" . "#fcefcf") ("fg-diff-changed" . "#524200") - ("bg-diff-removed" . "#ffe8ef") ("fg-diff-removed" . "#691616") - - ("bg-diff-refine-added" . "#94cf94") ("fg-diff-refine-added" . "#002a00") - ("bg-diff-refine-changed" . "#cccf8f") ("fg-diff-refine-changed" . "#302010") - ("bg-diff-refine-removed" . "#daa2b0") ("fg-diff-refine-removed" . "#400000") - - ("bg-diff-focus-added" . "#bbeabb") ("fg-diff-focus-added" . "#002c00") - ("bg-diff-focus-changed" . "#ecdfbf") ("fg-diff-focus-changed" . "#392900") - ("bg-diff-focus-removed" . "#efcbcf") ("fg-diff-focus-removed" . "#4a0000") - - ("bg-diff-neutral-0" . "#979797") ("fg-diff-neutral-0" . "#040404") - ("bg-diff-neutral-1" . "#b0b0b0") ("fg-diff-neutral-1" . "#252525") - ("bg-diff-neutral-2" . "#cccccc") ("fg-diff-neutral-2" . "#3a3a3a") - - ("bg-mark-sel" . "#a0f0cf") ("fg-mark-sel" . "#005040") - ("bg-mark-del" . "#ffccbb") ("fg-mark-del" . "#840040") - ("bg-mark-alt" . "#f5d88f") ("fg-mark-alt" . "#782900")) - "The entire palette of `modus-operandi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-operandi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-operandi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-operandi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-operandi-theme-default-colors-alist - modus-operandi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-operandi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-operandi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-operandi-theme-with-color-variables - (custom-theme-set-faces - 'modus-operandi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-operandi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-operandi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-operandi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-operandi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-operandi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-operandi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-operandi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-operandi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-operandi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-operandi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-operandi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-operandi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-operandi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-operandi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-operandi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-operandi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-operandi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-operandi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-operandi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-operandi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-operandi-theme-bold-weight) - ,@(modus-operandi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-operandi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-operandi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-operandi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-operandi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-operandi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-operandi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-operandi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-operandi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-operandi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-operandi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-operandi-theme-mixed-fonts) - ,@(modus-operandi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-operandi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-operandi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-operandi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-operandi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-operandi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-operandi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-operandi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-operandi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-operandi-theme-scale modus-operandi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-operandi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-operandi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-operandi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-operandi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-operandi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-operandi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-operandi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-operandi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-operandi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-operandi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-operandi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-operandi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-operandi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,fg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,bg-alt]) - `(xterm-color-names-bright [,fg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,bg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-operandi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-operandi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-operandi + "Accessible and customizable light theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-operandi) (provide-theme 'modus-operandi) -(provide 'modus-operandi-theme) - ;;; modus-operandi-theme.el ends here diff --git a/etc/themes/modus-themes.el b/etc/themes/modus-themes.el new file mode 100644 index 0000000000..79846dbf3a --- /dev/null +++ b/etc/themes/modus-themes.el @@ -0,0 +1,6436 @@ +;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- + +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. + +;; Author: Protesilaos Stavrou <info@protesilaos.com> +;; URL: https://gitlab.com/protesilaos/modus-themes +;; Version: 1.2.0 +;; Package-Requires: ((emacs "26.1")) +;; Keywords: faces, theme, accessibility + +;; This file is part of GNU Emacs. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <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). +;; This file contains all customization options, helper functions, +;; interactive commands, and face specifications. Please refer to the +;; official Info manual for further documentation (distributed with the +;; themes, or available at: <https://protesilaos.com/modus-themes>). +;; +;; The themes share the following customization options, all of which +;; are disabled by default (nil): +;; +;; modus-themes-slanted-constructs (boolean) +;; modus-themes-bold-constructs (boolean) +;; modus-themes-variable-pitch-headings (boolean) +;; modus-themes-variable-pitch-ui (boolean) +;; modus-themes-no-mixed-fonts (boolean) +;; modus-themes-headings (alist) +;; modus-themes-scale-headings (boolean) +;; modus-themes-fringes (choice) +;; modus-themes-lang-checkers (choice) +;; modus-themes-org-blocks (choice) +;; modus-themes-org-habit (choice) +;; modus-themes-prompts (choice) +;; modus-themes-mode-line (choice) +;; modus-themes-diffs (choice) +;; modus-themes-syntax (choice) +;; modus-themes-intense-hl-line (boolean) +;; modus-themes-subtle-line-numbers (boolean) +;; modus-themes-paren-match (choice) +;; modus-themes-region (choice) +;; modus-themes-links (choice) +;; modus-themes-completions (choice) +;; +;; The default scale for headings is as follows (it can be customized as +;; well---remember, no scaling takes place by default): +;; +;; modus-themes-scale-1 1.05 +;; modus-themes-scale-2 1.1 +;; modus-themes-scale-3 1.15 +;; modus-themes-scale-4 1.2 +;; modus-themes-scale-5 1.3 +;; +;; There also exist two unique customization options for overriding +;; color palette values. The specifics are documented in the manual. +;; The symbols are: +;; +;; modus-themes-operandi-color-overrides (alist) +;; modus-themes-vivendi-color-overrides (alist) +;; +;; Below is the list of explicitly supported packages or face groups +;; (there are implicitly supported packages as well, which inherit from +;; font-lock or some basic group). You are encouraged to report any +;; missing package or change you would like to see. +;; +;; ace-window +;; ag +;; alert +;; all-the-icons +;; annotate +;; anzu +;; apropos +;; apt-sources-list +;; artbollocks-mode +;; auctex and TeX +;; auto-dim-other-buffers +;; avy +;; awesome-tray +;; bbdb +;; binder +;; bm +;; bongo +;; boon +;; breakpoint (provided by built-in gdb-mi.el) +;; buffer-expose +;; calendar and diary +;; calfw +;; centaur-tabs +;; cfrs +;; change-log and log-view (`vc-print-log' and `vc-print-root-log') +;; cider +;; circe +;; color-rg +;; column-enforce-mode +;; company-mode +;; company-posframe +;; compilation-mode +;; completions +;; consult +;; counsel +;; counsel-css +;; counsel-notmuch +;; counsel-org-capture-string +;; cov +;; cperl-mode +;; csv-mode +;; ctrlf +;; custom (M-x customize) +;; dap-mode +;; dashboard (emacs-dashboard) +;; deadgrep +;; debbugs +;; define-word +;; deft +;; dictionary +;; diff-hl +;; diff-mode +;; dim-autoload +;; dir-treeview +;; dired +;; dired-async +;; dired-git +;; dired-git-info +;; dired-narrow +;; dired-subtree +;; diredc +;; diredfl +;; diredp (dired+) +;; disk-usage +;; display-fill-column-indicator-mode +;; doom-modeline +;; dynamic-ruler +;; easy-jekyll +;; easy-kill +;; ebdb +;; ediff +;; eglot +;; el-search +;; eldoc +;; eldoc-box +;; elfeed +;; elfeed-score +;; emms +;; enhanced-ruby-mode +;; epa +;; equake +;; erc +;; eros +;; ert +;; eshell +;; eshell-fringe-status +;; eshell-git-prompt +;; eshell-prompt-extras (epe) +;; eshell-syntax-highlighting +;; evil (evil-mode) +;; evil-goggles +;; evil-snipe +;; evil-visual-mark-mode +;; eww +;; exwm +;; eyebrowse +;; fancy-dabbrev +;; flycheck +;; flycheck-color-mode-line +;; flycheck-indicator +;; flycheck-posframe +;; flymake +;; flyspell +;; flyspell-correct +;; flx +;; freeze-it +;; frog-menu +;; focus +;; fold-this +;; font-lock (generic syntax highlighting) +;; forge +;; fountain (fountain-mode) +;; geiser +;; git-commit +;; git-gutter (and variants) +;; git-lens +;; git-rebase +;; git-timemachine +;; git-walktree +;; gnus +;; golden-ratio-scroll-screen +;; helm +;; helm-ls-git +;; helm-switch-shell +;; helm-xref +;; helpful +;; highlight-blocks +;; highlight-defined +;; highlight-escape-sequences (`hes-mode') +;; highlight-indentation +;; highlight-numbers +;; highlight-symbol +;; highlight-tail +;; highlight-thing +;; hl-defined +;; hl-fill-column +;; hl-line-mode +;; hl-todo +;; hydra +;; hyperlist +;; ibuffer +;; icomplete +;; ido-mode +;; iedit +;; iflipb +;; imenu-list +;; indium +;; info +;; info-colors +;; interaction-log +;; ioccur +;; isearch, occur, etc. +;; isl (isearch-light) +;; ivy +;; ivy-posframe +;; jira (org-jira) +;; journalctl-mode +;; js2-mode +;; julia +;; jupyter +;; kaocha-runner +;; keycast +;; line numbers (`display-line-numbers-mode' and global variant) +;; lsp-mode +;; lsp-ui +;; macrostep +;; magit +;; magit-imerge +;; make-mode +;; man +;; marginalia +;; markdown-mode +;; markup-faces (`adoc-mode') +;; mentor +;; messages +;; minibuffer-line +;; minimap +;; mmm-mode +;; modeline +;; mood-line +;; mpdel +;; mu4e +;; mu4e-conversation +;; multiple-cursors +;; neotree +;; no-emoji +;; notmuch +;; num3-mode +;; nxml-mode +;; objed +;; orderless +;; org +;; org-journal +;; org-noter +;; org-pomodoro +;; org-recur +;; org-roam +;; org-superstar +;; org-table-sticky-header +;; org-tree-slide +;; org-treescope +;; origami +;; outline-mode +;; outline-minor-faces +;; package (M-x list-packages) +;; page-break-lines +;; paradox +;; paren-face +;; parrot +;; pass +;; pdf-tools +;; persp-mode +;; perspective +;; phi-grep +;; phi-search +;; pkgbuild-mode +;; pomidor +;; popup +;; powerline +;; powerline-evil +;; prism (see "Note for prism.el" in the manual) +;; proced +;; prodigy +;; quick-peek +;; racket-mode +;; rainbow-blocks +;; rainbow-identifiers +;; rainbow-delimiters +;; rcirc +;; recursion-indicator +;; regexp-builder (also known as `re-builder') +;; rg +;; ripgrep +;; rmail +;; ruler-mode +;; sallet +;; selectrum +;; selectrum-prescient +;; semantic +;; sesman +;; shell-script-mode +;; shortdoc +;; show-paren-mode +;; shr +;; side-notes +;; sieve-mode +;; skewer-mode +;; smart-mode-line +;; smartparens +;; smerge +;; spaceline +;; speedbar +;; spell-fu +;; spray +;; stripes +;; suggest +;; switch-window +;; swiper +;; swoop +;; sx +;; symbol-overlay +;; tab-bar-mode +;; tab-line-mode +;; syslog-mode +;; table (built-in table.el) +;; telephone-line +;; terraform-mode +;; term +;; tomatinho +;; transient (pop-up windows like Magit's) +;; trashed +;; treemacs +;; tty-menu +;; tuareg +;; typescript +;; undo-tree +;; vc (built-in mode line status for version control) +;; vc-annotate (C-x v g) +;; vdiff +;; vimish-fold +;; visible-mark +;; visual-regexp +;; volatile-highlights +;; vterm +;; wcheck-mode +;; web-mode +;; wgrep +;; which-function-mode +;; which-key +;; whitespace-mode +;; window-divider-mode +;; winum +;; writegood-mode +;; woman +;; xah-elisp-mode +;; xref +;; xterm-color (and ansi-colors) +;; yaml-mode +;; yasnippet +;; ztree +;; +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): +;; +;; - modus-operandi-theme.el (Light theme) +;; - modus-vivendi-theme.el (Dark theme) + +;;; Code: + +\f + +(eval-when-compile (require 'cl-lib)) + +(defgroup modus-themes () + "Options for `modus-operandi', `modus-vivendi'." + :group 'faces + :link '(info-link "(modus-themes) Top") + :prefix "modus-themes-" + :tag "Modus Themes") + +;;; Variables for each theme variant + +;;;; Modus Operandi + +(define-obsolete-variable-alias + 'modus-operandi-theme-default-colors-alist + 'modus-themes-colors-operandi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-operandi + 'modus-themes-operandi-colors + "1.1.0") + +(defconst modus-themes-operandi-colors + '(;; base values + (bg-main . "#ffffff") (fg-main . "#000000") + (bg-dim . "#f8f8f8") (fg-dim . "#282828") + (bg-alt . "#f0f0f0") (fg-alt . "#505050") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") + (bg-inactive . "#efefef") (fg-inactive . "#404148") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") + (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") + (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") + (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#a60000") + (red-alt . "#972500") + (red-alt-other . "#a0132f") + (red-faint . "#7f1010") + (red-alt-faint . "#702f00") + (red-alt-other-faint . "#7f002f") + (green . "#005e00") + (green-alt . "#315b00") + (green-alt-other . "#145c33") + (green-faint . "#104410") + (green-alt-faint . "#30440f") + (green-alt-other-faint . "#0f443f") + (yellow . "#813e00") + (yellow-alt . "#70480f") + (yellow-alt-other . "#863927") + (yellow-faint . "#5f4400") + (yellow-alt-faint . "#5d5000") + (yellow-alt-other-faint . "#5e3a20") + (blue . "#0031a9") + (blue-alt . "#2544bb") + (blue-alt-other . "#0000c0") + (blue-faint . "#003497") + (blue-alt-faint . "#0f3d8c") + (blue-alt-other-faint . "#001087") + (magenta . "#721045") + (magenta-alt . "#8f0075") + (magenta-alt-other . "#5317ac") + (magenta-faint . "#752f50") + (magenta-alt-faint . "#7b206f") + (magenta-alt-other-faint . "#55348e") + (cyan . "#00538b") + (cyan-alt . "#30517f") + (cyan-alt-other . "#005a5f") + (cyan-faint . "#005077") + (cyan-alt-faint . "#354f6f") + (cyan-alt-other-faint . "#125458") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#b60000") + (orange-intense . "#904200") + (green-intense . "#006800") + (yellow-intense . "#605b00") + (blue-intense . "#1f1fce") + (magenta-intense . "#a8007f") + (purple-intense . "#7f10d0") + (cyan-intense . "#005f88") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#8a0000") + (green-active . "#004c2e") + (yellow-active . "#702d1f") + (blue-active . "#0030b4") + (magenta-active . "#5c2092") + (cyan-active . "#003f8a") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#f2b0a2") + (red-intense-bg . "#ff8892") + (green-subtle-bg . "#aecf90") + (green-intense-bg . "#5ada88") + (yellow-subtle-bg . "#e4c340") + (yellow-intense-bg . "#f5df23") + (blue-subtle-bg . "#b5d0ff") + (blue-intense-bg . "#6aaeff") + (magenta-subtle-bg . "#f0d3ff") + (magenta-intense-bg . "#d5baff") + (cyan-subtle-bg . "#c0efff") + (cyan-intense-bg . "#42cbd4") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#f08290") + (green-fringe-bg . "#62c86a") + (yellow-fringe-bg . "#dbba3f") + (blue-fringe-bg . "#82afff") + (magenta-fringe-bg . "#e0a3ff") + (cyan-fringe-bg . "#2fcddf") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#ef6f79") + (red-graph-1-bg . "#ff9f9f") + (green-graph-0-bg . "#49d239") + (green-graph-1-bg . "#6dec6d") + (yellow-graph-0-bg . "#efec08") + (yellow-graph-1-bg . "#dbff4e") + (blue-graph-0-bg . "#55a2f0") + (blue-graph-1-bg . "#7fcfff") + (magenta-graph-0-bg . "#ba86ef") + (magenta-graph-1-bg . "#e7afff") + (cyan-graph-0-bg . "#30d3f0") + (cyan-graph-1-bg . "#6fefff") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") + (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") + (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") + (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") + (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") + (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") + (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") + (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") + (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") + (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") + (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#f2eff3") + (bg-hl-line-intense . "#e0e0e0") + (bg-hl-alt . "#fbeee0") + (bg-hl-alt-intense . "#e8dfd1") + (bg-paren-match . "#e0af82") + (bg-paren-match-intense . "#c488ff") + (bg-region . "#bcbcbc") + + (bg-tab-bar . "#d5d5d5") + (bg-tab-active . "#f6f6f6") + (bg-tab-inactive . "#bdbdbd") + (bg-tab-inactive-alt . "#999999") + (fg-tab-active . "#30169e") + + (fg-escape-char-construct . "#8b1030") + (fg-escape-char-backslash . "#654d0f") + + (fg-lang-error . "#9f004f") + (fg-lang-warning . "#604f0f") + (fg-lang-note . "#4040ae") + (fg-lang-underline-error . "#ef4f54") + (fg-lang-underline-warning . "#cf9f00") + (fg-lang-underline-note . "#3f6fef") + + (fg-window-divider-inner . "#888888") + (fg-window-divider-outer . "#585858") + + (fg-unfocused . "#56576d") + + (fg-docstring . "#2a486a") + (fg-comment-yellow . "#5f4400") + + (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") + + (bg-whitespace . "#f5efef") (fg-whitespace . "#624956") + + (bg-diff-heading . "#b7cfe0") (fg-diff-heading . "#041645") + (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") + (bg-diff-added-deuteran . "#daefff") (fg-diff-added-deuteran . "#002044") + (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") + (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") + + (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") + (bg-diff-refine-added-deuteran . "#77c0ef") (fg-diff-refine-added-deuteran . "#000035") + (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") + (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") + + (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") + (bg-diff-focus-added-deuteran . "#bacfff") (fg-diff-focus-added-deuteran . "#001755") + (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") + (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") + + (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") + (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") + (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") + + (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") + (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") + (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) + "The entire palette of `modus-operandi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +;;;; Modus Vivendi + +(define-obsolete-variable-alias + 'modus-vivendi-theme-default-colors-alist + 'modus-themes-colors-vivendi + "1.0.0") + +(define-obsolete-variable-alias + 'modus-themes-colors-vivendi + 'modus-themes-vivendi-colors + "1.1.0") + +(defconst modus-themes-vivendi-colors + '(;; base values + (bg-main . "#000000") (fg-main . "#ffffff") + (bg-dim . "#110b11") (fg-dim . "#e0e6f0") + (bg-alt . "#181a20") (fg-alt . "#a8a8a8") + ;; specifically for on/off states and must be combined with + ;; themselves, though the backgrounds are also meant to be used with + ;; other "active" values, defined further below + (bg-active . "#323232") (fg-active . "#f4f4f4") + (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") + ;; these special values are intended as alternatives to the base + ;; values for cases where we need to avoid confusion between the + ;; highlighted constructs; they must either be used as pairs based + ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} + ;; always in accordance with their role as background or foreground + (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") + (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") + (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") + (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") + ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt + (red . "#ff8059") + (red-alt . "#f4923b") + (red-alt-other . "#ff9977") + (red-faint . "#ffa0a0") + (red-alt-faint . "#f5aa80") + (red-alt-other-faint . "#ff9fbf") + (green . "#44bc44") + (green-alt . "#70c900") + (green-alt-other . "#00cd68") + (green-faint . "#88cf88") + (green-alt-faint . "#a8cf88") + (green-alt-other-faint . "#88cfaf") + (yellow . "#eecc00") + (yellow-alt . "#cfdf30") + (yellow-alt-other . "#f0ce43") + (yellow-faint . "#d2b580") + (yellow-alt-faint . "#cabf77") + (yellow-alt-other-faint . "#d0ba95") + (blue . "#2fafff") + (blue-alt . "#79a8ff" ) + (blue-alt-other . "#00bcff") + (blue-faint . "#92baff") + (blue-alt-faint . "#a0acf5") + (blue-alt-other-faint . "#87c8ff") + (magenta . "#feacd0") + (magenta-alt . "#f78fe7") + (magenta-alt-other . "#b6a0ff") + (magenta-faint . "#e0b2d6") + (magenta-alt-faint . "#ef9fe4") + (magenta-alt-other-faint . "#cfa6ff") + (cyan . "#00d3d0") + (cyan-alt . "#4ae8fc") + (cyan-alt-other . "#6ae4b9") + (cyan-faint . "#90c4ed") + (cyan-alt-faint . "#a0bfdf") + (cyan-alt-other-faint . "#a4d0bb") + ;; these foreground values can only be combined with bg-main and are + ;; thus not suitable for general purpose highlighting + (red-intense . "#fe6060") + (orange-intense . "#fba849") + (green-intense . "#4fe42f") + (yellow-intense . "#f0dd60") + (blue-intense . "#4fafff") + (magenta-intense . "#ff62d4") + (purple-intense . "#9f80ff") + (cyan-intense . "#3fdfd0") + ;; those foregrounds are meant exclusively for bg-active, bg-inactive + (red-active . "#ffa7ba") + (green-active . "#70d73f") + (yellow-active . "#dbbe5f") + (blue-active . "#34cfff") + (magenta-active . "#d5b1ff") + (cyan-active . "#00d8b4") + ;; the "subtle" values below be combined with fg-dim, while the + ;; "intense" should be paired with fg-main + (red-subtle-bg . "#762422") + (red-intense-bg . "#a4202a") + (green-subtle-bg . "#2f4a00") + (green-intense-bg . "#006800") + (yellow-subtle-bg . "#604200") + (yellow-intense-bg . "#874900") + (blue-subtle-bg . "#10387c") + (blue-intense-bg . "#2a40b8") + (magenta-subtle-bg . "#49366e") + (magenta-intense-bg . "#7042a2") + (cyan-subtle-bg . "#00415e") + (cyan-intense-bg . "#005f88") + ;; those background values must be combined with fg-main and should + ;; only be used for indicators that are placed on the fringes + (red-fringe-bg . "#8f1f4b") + (green-fringe-bg . "#006700") + (yellow-fringe-bg . "#6f4f00") + (blue-fringe-bg . "#3f33af") + (magenta-fringe-bg . "#6f2f89") + (cyan-fringe-bg . "#004f8f") + ;; those background values should only be used for graphs or similar + ;; applications where colored blocks are expected to be positioned + ;; next to each other + (red-graph-0-bg . "#af0404") + (red-graph-1-bg . "#801f2f") + (green-graph-0-bg . "#24ba2f") + (green-graph-1-bg . "#0f8f07") + (yellow-graph-0-bg . "#ffd03e") + (yellow-graph-1-bg . "#d7d800") + (blue-graph-0-bg . "#406fff") + (blue-graph-1-bg . "#2f50c8") + (magenta-graph-0-bg . "#af7bee") + (magenta-graph-1-bg . "#7f59cf") + (cyan-graph-0-bg . "#47dcfa") + (cyan-graph-1-bg . "#0bc0df") + ;; the following are for cases where both the foreground and the + ;; background need to have a similar hue and so must be combined + ;; with themselves, even though the foregrounds can be paired with + ;; any of the base backgrounds + (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") + (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") + (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") + (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") + (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") + (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") + ;; the "nuanced" backgrounds can be combined with all of the above + ;; foregrounds, as well as those included here, while the "nuanced" + ;; foregrounds can in turn also be combined with bg-main, bg-dim, + ;; bg-alt + (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") + (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") + (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") + (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") + (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") + (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") + ;; the following are reserved for specific cases + ;; + ;; bg-hl-line is between bg-dim and bg-alt, so it should + ;; work with all accents that cover those two, plus bg-main + ;; + ;; bg-hl-alt and bg-hl-alt-intense should only be used when no + ;; other greyscale or fairly neutral background is available to + ;; properly draw attention to a given construct + ;; + ;; bg-header is between bg-active and bg-inactive, so it + ;; can be combined with any of the "active" values, plus the + ;; "special" and base foreground colors + ;; + ;; bg-paren-match, bg-paren-match-intense, bg-region and + ;; bg-tab-active must be combined with fg-main, while + ;; bg-tab-inactive should be combined with fg-dim, whereas + ;; bg-tab-inactive-alt goes together with fg-main + ;; + ;; bg-tab-bar is only intended for the bar that holds the tabs and + ;; can only be combined with fg-main + ;; + ;; fg-tab-active is meant to be combined with bg-tab-active, + ;; though only for styling special elements, such as underlining + ;; the current tab + ;; + ;; fg-escape-char-construct and fg-escape-char-backslash can + ;; be combined bg-main, bg-dim, bg-alt + ;; + ;; fg-lang-error, fg-lang-warning, fg-lang-note can be + ;; combined with bg-main, bg-dim, bg-alt + ;; + ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined + ;; with bg-main, bg-dim, bg-alt, bg-hl-line + ;; + ;; fg-unfocused must be combined with bg-main + ;; + ;; fg-docstring, fg-comment-yellow can be combined with + ;; bg-main, bg-dim, bg-alt + ;; + ;; the window divider colors apply to faces with just an fg value + ;; + ;; all pairs are combinable with themselves + (bg-hl-line . "#151823") + (bg-hl-line-intense . "#2f2f2f") + (bg-hl-alt . "#181732") + (bg-hl-alt-intense . "#282e46") + (bg-paren-match . "#5f362f") + (bg-paren-match-intense . "#7416b5") + (bg-region . "#3c3c3c") + + (bg-tab-bar . "#2c2c2c") + (bg-tab-active . "#0e0e0e") + (bg-tab-inactive . "#3d3d3d") + (bg-tab-inactive-alt . "#595959") + (fg-tab-active . "#5ac3cf") + + (fg-escape-char-construct . "#e7a59a") + (fg-escape-char-backslash . "#abab00") + + (fg-lang-error . "#ef8690") + (fg-lang-warning . "#b0aa00") + (fg-lang-note . "#9d9def") + (fg-lang-underline-error . "#ff4a6f") + (fg-lang-underline-warning . "#d0de00") + (fg-lang-underline-note . "#5f6fff") + + (fg-window-divider-inner . "#646464") + (fg-window-divider-outer . "#969696") + + (fg-unfocused . "#93959b") + + (fg-docstring . "#b0d6f5") + (fg-comment-yellow . "#cab98f") + + (bg-header . "#212121") (fg-header . "#dddddd") + + (bg-whitespace . "#101424") (fg-whitespace . "#aa9e9f") + + (bg-diff-heading . "#304466") (fg-diff-heading . "#dae7ff") + (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") + (bg-diff-added-deuteran . "#001a3f") (fg-diff-added-deuteran . "#c4cdf2") + (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") + (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") + + (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") + (bg-diff-refine-added-deuteran . "#234f8f") (fg-diff-refine-added-deuteran . "#dde4ff") + (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") + (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") + + (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") + (bg-diff-focus-added-deuteran . "#00405f") (fg-diff-focus-added-deuteran . "#bfe4ff") + (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") + (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") + + (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") + (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") + (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") + + (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") + (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") + (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) + "The entire palette of `modus-vivendi' theme. +Each element has the form (NAME . HEX) with the former as a +symbol and the latter as a string.") + +\f + +;;; Custom faces + +;; These faces are used internally to ensure consistency between various +;; groups and to streamline the evaluation of relevant customization +;; options. +(defface modus-theme-subtle-red nil + "Subtle red background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-green nil + "Subtle green background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-yellow nil + "Subtle yellow background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-blue nil + "Subtle blue background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-magenta nil + "Subtle magenta background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-cyan nil + "Subtle cyan background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-subtle-neutral nil + "Subtle gray background combined with a dimmed foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-red nil + "Intense red background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-green nil + "Intense green background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-yellow nil + "Intense yellow background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-blue nil + "Intense blue background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-magenta nil + "Intense magenta background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-cyan nil + "Intense cyan background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-intense-neutral nil + "Intense gray background combined with the main foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-red nil + "Combination of accented red background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-green nil + "Combination of accented green background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-yellow nil + "Combination of accented yellow background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-blue nil + "Combination of accented blue background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-magenta nil + "Combination of accented magenta background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-refine-cyan nil + "Combination of accented cyan background and foreground. +This is used for general purpose highlighting, mostly in buffers +or for completion interfaces. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-red nil + "A red background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-green nil + "A green background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-yellow nil + "A yellow background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-blue nil + "A blue background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-magenta nil + "A magenta background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-active-cyan nil + "A cyan background meant for use on the modeline or similar. +This is combined with the modelines primary foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-red nil + "A red background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-green nil + "A green background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-yellow nil + "A yellow background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-blue nil + "A blue background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-magenta nil + "A magenta background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-fringe-cyan nil + "A cyan background meant for use on the fringe or similar. +This is combined with the main foreground value. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-red nil + "A nuanced red background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-green nil + "A nuanced green background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-yellow nil + "A nuanced yellow background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-blue nil + "A nuanced blue background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-magenta nil + "A nuanced magenta background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-nuanced-cyan nil + "A nuanced cyan background. +This does not specify a foreground of its own. Instead it is meant to +serve as the backdrop for elements such as Org blocks, headings, and any +other surface that needs to retain the colors on display. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-cold nil + "Combines the 'special cold' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-mild nil + "Combines the 'special mild' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-warm nil + "Combines the 'special warm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-special-calm nil + "Combines the 'special calm' background and foreground values. +This is intended for cases when a neutral gray background is not +suitable and where a combination of more saturated colors would not be +appropriate. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-added nil + "Combines green colors for the 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-changed nil + "Combines yellow colors for the 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-removed nil + "Combines red colors for the 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-added nil + "Combines green colors for word-wise 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-changed nil + "Combines yellow colors for word-wise 'changed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-refine-removed nil + "Combines red colors for word-wise 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-added nil + "Combines green colors for the focused 'added' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-changed nil + "Combines yellow colors for the focused 'changed' state in. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-focus-removed nil + "Combines red colors for the focused 'removed' state in diffs. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-diff-heading nil + "Combines blue colors for the diff hunk heading. +The applied colors are contingent on the value assigned to +`modus-themes-diffs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-pseudo-header nil + "Generic style for some elements that function like headings. +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-alt nil + "Combines yellow colors for marking special lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-del nil + "Combines red colors for marking deletable lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-sel nil + "Combines green colors for marking lines +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-mark-symbol nil + "Applies a blue color and other styles for mark indicators. +This is intended for use in modes such as Dired, Ibuffer, Proced. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-1 nil + "General purpose face for use in headings level 1 +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-2 nil + "General purpose face for use in headings level 2. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-3 nil + "General purpose face for use in headings level 3. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-4 nil + "General purpose face for use in headings level 4. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-5 nil + "General purpose face for use in headings level 5. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-6 nil + "General purpose face for use in headings level 6. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-7 nil + "General purpose face for use in headings level 7. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-heading-8 nil + "General purpose face for use in headings level 8. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-headings' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-hl-line nil + "General purpose face for the current line. +The exact attributes assigned to this face are contingent on the values +assigned to the `modus-themes-intense-hl-line' variable. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-bold nil + "Generic face for applying a conditional bold weight. +This behaves in accordance with `modus-themes-bold-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-slant nil + "Generic face for applying a conditional slant (italics). +This behaves in accordance with `modus-themes-slanted-constructs'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-variable-pitch nil + "Generic face for applying a conditional `variable-pitch'. +This behaves in accordance with `modus-themes-no-mixed-fonts', +`modus-themes-variable-pitch-headings' for all heading levels, and +`modus-themes-variable-pitch-ui'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-0 nil + "Special subdued red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-red-1 nil + "Special prominent red face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-0 nil + "Special subdued green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-green-1 nil + "Special prominent green face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-0 nil + "Special subdued yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-yellow-1 nil + "Special prominent yellow face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-0 nil + "Special subdued blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-blue-1 nil + "Special prominent blue face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-0 nil + "Special subdued magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-magenta-1 nil + "Special prominent magenta face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-0 nil + "Special subdued cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-graph-cyan-1 nil + "Special prominent cyan face for use in graphs. +This is intended to be applied in contexts such as the Org agenda habit +graph where faithfulness to the semantics of a color value is of +paramount importance. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-note nil + "Generic face for linter or spell checker notes. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-warning nil + "Generic face for linter or spell checker warnings. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +(defface modus-theme-lang-error nil + "Generic face for linter or spell checker errors. +The exact attributes and color combinations are controlled by +`modus-themes-lang-checkers'. + +The actual styling of the face is done by `modus-themes-faces'.") + +\f + +;;; Customization options + +;;;; Current customization options (>= 1.0.0) + +(defcustom modus-themes-operandi-color-overrides nil + "Override colors in the Modus Operandi palette. + +For form, see `modus-themes-operandi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +(defcustom modus-themes-vivendi-color-overrides nil + "Override colors in the Modus Vivendi palette. + +For form, see `modus-themes-vivendi-colors'." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(alist :key-type symbol :value-type color) + :link '(info-link "(modus-themes) Override colors (DIY)")) + +;; The byte compiler complains when a defcustom isn't a top level form +(let* ((names (mapcar (lambda (pair) + (symbol-name (car pair))) + modus-themes-operandi-colors)) + (colors (mapcar #'intern (sort names #'string<)))) + (put 'modus-themes-operandi-color-overrides + 'custom-options (copy-sequence colors)) + (put 'modus-themes-vivendi-color-overrides + 'custom-options (copy-sequence colors))) + +(defcustom modus-themes-slanted-constructs nil + "Use slanted text in more code constructs (italics or oblique)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Slanted 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 + :link '(info-link "(modus-themes) Bold constructs")) + +(defcustom modus-themes-variable-pitch-headings nil + "Use proportional fonts (variable-pitch) in headings." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Headings' typeface")) + +(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 + :link '(info-link "(modus-themes) UI typeface")) + +(defcustom modus-themes-no-mixed-fonts nil + "Disable inheritance from `fixed-pitch' in some faces. + +This is done by default 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'. +The downside with the default is that users need to explicitly +configure the font family of `fixed-pitch' in order to get a +consistent experience. That may be something they do not want to +do. Hence this option to disable any kind of technique for +mixing fonts." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) No mixed fonts")) + +(defcustom modus-themes-headings + '((t . nil)) + "Alist of styles for headings, with optional value per level. + +To control faces per level from 1-8, use something like this: + + (setq modus-themes-headings + '((1 . highlight) + (2 . line) + (t . rainbow-line-no-bold))) + +To set a uniform value for all heading levels, use this pattern: + + (setq modus-themes-headings + '((t . rainbow-line-no-bold))) + +The default uses a fairly desaturated foreground value in +combination with a bold typographic weight. To specify this +style for a given level N (assuming you wish to have another +fallback option), just specify the value t like this: + + (setq modus-themes-headings + '((1 . t) + (2 . line) + (t . rainbow-line-no-bold))) + +A description of all possible values: + ++ `no-bold' retains the default text color while removing the + typographic weight. + ++ `line' is the same as the default plus an overline over the + heading. + ++ `line-no-bold' is the same as `line' without bold weight. + ++ `rainbow' uses a more colorful foreground in combination with + bold weight. + ++ `rainbow-line' is the same as `rainbow' plus an overline. + ++ `rainbow-line-no-bold' is the same as `rainbow-line' without + the bold weight. + ++ `highlight' retains the default style of a fairly desaturated + foreground combined with a bold weight and add to it a subtle + accented background. + ++ `highlight-no-bold' is the same as `highlight' without a bold + weight. + ++ `rainbow-highlight' is the same as `highlight' but with a more + colorful foreground. + ++ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' + without a bold weight. + ++ `section' retains the default looks and adds to them both an + overline and a slightly accented background. It is, in effect, + a combination of the `line' and `highlight' values. + ++ `section-no-bold' is the same as `section' without a bold + weight. + ++ `rainbow-section' is the same as `section' but with a more + colorful foreground. + ++ `rainbow-section-no-bold' is the same as `rainbow-section' + without a bold weight. + ++ `no-color' does not apply any color to the heading, meaning + that it uses the foreground of the `default' face. It still + renders the text with a bold typographic weight. + ++ `no-color-no-bold' is like `no-color' but without the bold + weight." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type + '(alist + :key-type symbol + :value-type + (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) + (const :tag "Like the default without bold weight" no-bold) + (const :tag "Like the default plus overline" line) + (const :tag "Like `line' without bold weight" line-no-bold) + (const :tag "Like the default but with more colorful foreground" rainbow) + (const :tag "Like `rainbow' plus overline" rainbow-line) + (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) + (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) + (const :tag "Like the default plus subtle background" highlight) + (const :tag "Like `highlight' without bold weight" highlight-no-bold) + (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) + (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) + (const :tag "Like `highlight' plus overline" section) + (const :tag "Like `section' without bold weight" section-no-bold) + (const :tag "Like `section' with more colorful foreground" rainbow-section) + (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold) + (const :tag "Do not use any distinct foreground color; just bold weight" no-color) + (const :tag "Like `no-bold' but without the distinct foreground color" no-color-no-bold))) + :link '(info-link "(modus-themes) Heading styles")) + +(defcustom modus-themes-scale-headings nil + "Use font scaling for headings. + +For regular headings the scale is controlled by the variables +`modus-themes-scale-1' (smallest) and its variants all the way up +to `modus-themes-scale-4' (larger). While `modus-themes-scale-5' +is reserved for special headings that must be the largest on the +scale. + +A special heading is, in this context, one that does not fit into +the syntax for heading levels that apply to the given mode. For +example, Org's #+title keyword lies outside the normal eight +levels of headings. Whereas, say, Markdown does not have such a +special heading." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Scaled headings")) + +(defcustom modus-themes-scale-1 1.05 + "Font size that is slightly larger than the base value. + +This size is used for level 4 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-2 1.1 + "Font size slightly larger than `modus-themes-scale-1'. + +This size is used for level 3 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-3 1.15 + "Font size slightly larger than `modus-themes-scale-2'. + +This size is used for level 2 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-4 1.2 + "Font size slightly larger than `modus-themes-scale-3'. + +This size is used for level 1 headings, such as in Org and +Markdown files. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-scale-5 1.3 + "Font size slightly larger than `modus-themes-scale-4'. + +This size is only used for 'special' top level headings, such as +Org's file title heading, denoted by the #+title key word, and +the Org agenda structure headers. + +The default value is a floating point that is interpreted as a +multiple of the base font size. It is recommended to use such a +value. + +However, the variable also accepts an integer, understood as an +absolute height that is 1/10 of the typeface's point size (e.g. a +value of 140 is the same as setting the font at 14 point size). +This will ignore the base font size and, thus, will not scale in +accordance with it in cases where it changes, such as while using +`text-scale-adjust'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'number + :link '(info-link "(modus-themes) Scaled heading sizes")) + +(defcustom modus-themes-fringes nil + "Define the visibility of fringes. + +Nil means the fringes have no background color. Option `subtle' +will apply a greyscale value that is visible yet close to the +main buffer background color. Option `intense' will use a more +pronounced greyscale value." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No visible fringes (default)" nil) + (const :tag "Subtle greyscale background" subtle) + (const :tag "Intense greyscale background" intense)) + :link '(info-link "(modus-themes) Fringes")) + +(defcustom modus-themes-lang-checkers nil + "Control the style of spelling and code checkers/linters. + +Nil (the default) applies a color-coded underline to the affected +text, while it leaves the original foreground in tact. If the +display spec of Emacs has support for it, the underline's style +is that of a wave, otherwise it is a straight line. + +Options `subtle-foreground' and `intense-foreground' add a +color-coded underline while also changing the text's foreground +accordingly. The style of the underline is the same as with the +default option. + +Option `straight-underline' is like the default but always +applies a straight line under the affected text. Same principle +for `subtle-foreground-straight-underline' and its counterpart +`intense-foreground-straight-underline'. + +Option `colored-background' uses a straight underline, a +background, and a foreground. All are color-coded. This is the +most intense combination of face properties." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Only color-coded wavy underline (default)" nil) + (const :tag "Like the default, but with a straight underline" straight-underline) + (const :tag "Color-coded wavy underline; subtle foreground" subtle-foreground) + (const :tag "Combines `straight-underline' and `subtle-foreground'" subtle-foreground-straight-underline) + (const :tag "Color-coded wavy underline; intense foreground" intense-foreground) + (const :tag "Combines `straight-underline' and `intense-foreground'" intense-foreground-straight-underline) + (const :tag "Color-coded background, foreground, straight underline" colored-background)) + :link '(info-link "(modus-themes) Language checkers")) + +(defcustom modus-themes-org-blocks nil + "Use a subtle gray or color-coded background for Org blocks. + +Nil means that the block will have no background of its own and +will use the default that applies to the rest of the buffer. + +Option `grayscale' (or `greyscale') will apply a subtle neutral +gray background to the block's contents. It also affects the +begin and end lines of the block: their background will be +extended to the edge of the window for Emacs version >= 27 where +the ':extend' keyword is recognized by `set-face-attribute'. + +Option `rainbow' will use an accented background for the contents +of the block. The exact color will depend on the programming +language and is controlled by the `org-src-block-faces' +variable (refer to the theme's source code for the current +association list)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "No Org block background (default)" nil) + (const :tag "Subtle gray block background" grayscale) + (const :tag "Subtle gray block background (alt spelling)" greyscale) + (const :tag "Color-coded background per programming language" rainbow)) + :link '(info-link "(modus-themes) Org mode blocks")) + +(defcustom modus-themes-org-habit nil + "Control the presentation of the `org-habit' graph. + +The default is meant to conform with the original aesthetic of +`org-habit'. It employs all four color codes that correspond to +the org-habit states---clear, ready, alert, and overdue---while +distinguishing between their present and future variants. This +results in a total of eight colors in use: red, yellow, green, +blue, in tinted and shaded versions. They cover the full set of +information provided by the `org-habit' consistency graph. + +Option `simplified' is like the default except that it removes +the dichotomy between current and future variants by applying +uniform color-coded values. It applies a total of four colors: +red, yellow, green, blue. They produce a simplified consistency +graph that is more legible (or less \"busy\") than the default. +The intent is to shift focus towards the distinction between the +four states of a habit task, rather than each state's +present/future outlook. + +Option `traffic-light' further reduces the available colors to +red, yellow, and green. As in `simplified', present and future +variants appear uniformly, but differently from it, the 'clear' +state is rendered in a green hue, instead of the original blue. +This is meant to capture the use-case where a habit task being +\"too early\" is less important than it being \"too late\". The +difference between ready and clear states is attenuated by +painting both of them using shades of green. This option thus +highlights the alert and overdue states." + :group 'modus-themes + :package-version '(modus-themes . "1.1.0") + :version "28.1" + :type '(choice + (const :tag "Respect the original design of org-habit (default)" nil) + (const :tag "Like the default, but do not distinguish between present and future variants" simplified) + (const :tag "Like `simplified', but only use red, yellow, green" traffic-light)) + :link '(info-link "(modus-themes) Org agenda habits")) + +(defcustom modus-themes-mode-line nil + "Adjust the overall style of the mode line. + +Nil is a two-dimensional rectangle with a border around it. The +active and the inactive modelines use different shades of +greyscale values for the background and foreground. + +A `3d' value will apply a three-dimensional effect to the active +modeline. The inactive modelines remain two-dimensional and are +toned down a bit, relative to the nil value. + +The `moody' option is meant to optimize the modeline for use with +the library of the same name. This practically means to remove +the box effect and rely on underline and overline properties +instead. It also tones down the inactive modelines. Despite its +intended purpose, this option can also be used without the +`moody' library. + +The `borderless' option uses the same colors as the default (nil +value), but removes the border effect. This is done by making +the box property use the same color as the background, +effectively blending the two and creating some padding. + +The `borderless-3d' and `borderless-moody' approximate the `3d' +and `moody' options respectively, while removing the borders. +However, to ensure that the inactive modelines remain visible, +they apply a slightly more prominent background to them than what +their counterparts do (same inactive background as with the +default)." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Two-dimensional box (default)" nil) + (const :tag "Three-dimensional style for the active mode line" 3d) + (const :tag "No box effects, which are optimal for use with the `moody' library" moody) + (const :tag "Like the default, but without border effects" borderless) + (const :tag "Like `3d', but without noticeable border" borderless-3d) + (const :tag "Like `moody', but without noticeable border" borderless-moody)) + :link '(info-link "(modus-themes) Mode line")) + +(defcustom modus-themes-diffs nil + "Adjust the overall styles of diffs. + +Nil means to use fairly intense color combinations for diffs. +For example, you get a rich green background with a green +foreground for added lines. Word-wise or 'refined' diffs follow +the same pattern but use different shades of those colors to +remain distinct. + +A `desaturated' value follows the same principles as with the nil +option, while it tones down all relevant colors. + +Option `fg-only' will remove all accented backgrounds, except +from word-wise changes. It instead uses color-coded foreground +values to differentiate between added/removed/changed lines. If +a background is necessary, such as with `ediff', then a subtle +greyscale value is used. + +Option `bg-only' applies a background but does not override the +text's foreground. This makes it suitable for a non-nil value +passed to `diff-font-lock-syntax' (note: Magit does not support +syntax highlighting in diffs as of 2020-11-25, version +20201116.1057). + +Option `deuteranopia' accounts for red-green color defficiency by +replacing all instances of green with colors on the blue side of +the spectrum. Other stylistic changes are made in the interest +of optimizing for such a use-case." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Intensely colored backgrounds (default)" nil) + (const :tag "Slightly accented backgrounds with tinted text" desaturated) + (const :tag "No backgrounds, except for refined diffs" fg-only) + (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only) + (const :tag "Optimized for red-green color defficiency" deuteranopia)) + :link '(info-link "(modus-themes) Diffs")) + +(defcustom modus-themes-completions nil + "Apply special styles to the UI of completion frameworks. + +This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as +any other tool meant to enhance their experience. The effect +will vary depending on the completion framework. + +Nil means to remain faithful to the metaphors that each UI +establishes. For example, Icomplete and Ido only use foreground +colors to style their matches, whereas Ivy or Helm rely on an +aesthetic that combines colored backgrounds with appropriate text +color. + +Option `moderate' will apply a combination of background and +foreground that is fairly subtle. For Icomplete and the like, +this constitutes a departure from their standard style. While +Ivy, Helm, and the others, will use less pronounced colors for +applicable contexts. + +Option `opinionated' will apply color combinations that refashion +the completion UI. So Icomplete et al will now use styles that +resemble the defaults of Ivy and co., while the latter group will +revert to an even more nuanced aesthetic." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Respect the framework's established aesthetic (default)" nil) + (const :tag "Subtle backgrounds for various elements" moderate) + (const :tag "Radical alternative to the framework's looks" opinionated)) + :link '(info-link "(modus-themes) Completion UIs")) + +(defcustom modus-themes-prompts nil + "Use subtle or intense styles for minibuffer and REPL prompts. + +Nil means to only use an accented foreground color. + +Options `subtle-accented' and `intense-accented' will change both +the background and the foreground values to use accented color +combinations that follow the hue of the default styles' +foreground (e.g. the default minibuffer prompt is cyan text, so +these combinations will involved a cyan background and an +appropriate cyan foreground). + +Options `subtle-gray' and `intense-gray' are like their +`subtle-accented' and `intense-accented' counterparts, except +they use grayscale values instead of accented ones." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + (const :tag "No prompt background (default)" nil) + (const :tag "Subtle accented background for the prompt" subtle-accented) + (const :tag "Same as `subtle-accented' for compatibility with older versions" subtle) + (const :tag "Intense accented background and foreground for the prompt" intense-accented) + (const :tag "Same as `intense-accented' for compatibility with older versions" intense) + (const :tag "Like `subtle-accented' but grayscale" subtle-gray) + (const :tag "Like `intense-accented' but grayscale" intense-gray)) + :link '(info-link "(modus-themes) Command prompts")) + +(defcustom modus-themes-intense-hl-line nil + "Use a more prominent background for command `hl-line-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line highlighting")) + +(defcustom modus-themes-subtle-line-numbers nil + "Use more subtle style for command `display-line-numbers-mode'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type 'boolean + :link '(info-link "(modus-themes) Line numbers")) + +(defcustom modus-themes-paren-match nil + "Choose the style of matching parentheses or delimiters. + +Nil means to use a subtle tinted background color (the default). + +Option `intense' applies a saturated background color. + +Option `subtle-bold' is the same as the default, but also makes +use of bold typographic weight (inherits the `bold' face). + +Option `intense-bold' is the same as `intense', while it also +uses a bold weight." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Sublte tinted background (default)" nil) + (const :tag "Like the default, but also use bold typographic weight" subtle-bold) + (const :tag "Intense saturated background" intense) + (const :tag "Like `intense' but with bold weight" intense-bold)) + :link '(info-link "(modus-themes) Matching parentheses")) + +(defcustom modus-themes-syntax nil + "Control the overall style of code syntax highlighting. + +Nil (the default) means to use colors on the cyan-blue-magenta +side of the spectrum. There is little to no use of greens, +yellows, and reds. + +Option `faint' is like the default in terms of the choice of +palette but applies desaturated color values. + +Option `yellow-comments' applies a yellow tint to comments. The +rest of the syntax is the same as the default. + +Option `green-strings' replaces the blue/cyan/cold color variants +in strings with greener alternatives. The rest of the syntax +remains the same. + +Option `yellow-comments-green-strings' combines yellow comments +with green strings and the rest of the default syntax +highlighting style. + +Option `alt-syntax' expands the color palette and applies new +color combinations. Strings are green. Doc strings are magenta +tinted. Comments are gray. + +Option `alt-syntax-yellow-comments' combines `alt-syntax' with +`yellow-comments'. + +Option `faint-yellow-comments' combines the `faint' style with +`yellow-comments'." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) + (const :tag "Like the default, but with desaturated color values" faint) + (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) + (const :tag "Use green for strings, keep the default style for the rest" green-strings) + (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) + (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) + (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments) + (const :tag "Like `faint' but with yellow comments" faint-yellow-comments)) + :link '(info-link "(modus-themes) Syntax styles")) + +(defcustom modus-themes-links nil + "Set the style of links. + +Nil means to use an underline that is the same color as the +foreground. + +Option `faint' applies desaturated colors to the link's text and +underline. + +Option `neutral-underline' applies a subtle grey underline, while +retaining the link's foreground. + +Option `faint-neutral-underline' combines a desaturated text +color with a subtle grey underline. + +Option `no-underline' removes link underlines altogether, while +retaining their original fairly vivid color. + +Option `underline-only' applies an underline while making the +affected text colorless (it uses the same foreground as the +theme's default). + +Option `neutral-underline-only' makes the text colorless while +using a subtle underline below it." + :group 'modus-themes + :package-version '(modus-themes . "1.2.0") + :version "28.1" + :type '(choice + (const :tag "Undeline link using the same color as the text (default)" nil) + (const :tag "Like the default, but apply less intense colors to links" faint) + (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) + (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) + (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline) + (const :tag "Apply underline only; use default foreground" underline-only) + (const :tag "Like `underline-only' but with a subtle underline" neutral-underline-only)) + :link '(info-link "(modus-themes) Link styles")) + +(defcustom modus-themes-region nil + "Change the overall appearance of the active region. + +Nil (the default) means to only use a prominent gray background +with a neutral foreground. The foreground overrides all syntax +highlighting. The region extends to the edge of the window. + +Option `no-extend' preserves the default aesthetic but prevents +the region from extending to the edge of the window. + +Option `bg-only' applies a faint tinted background that is +distinct from all others used in the theme, while it does not +override any existing colors. It extends to the edge of the +window. + +Option `bg-only-no-extend' is a combination of the `bg-only' and +`no-extend' options." + :group 'modus-themes + :package-version '(modus-themes . "1.0.0") + :version "28.1" + :type '(choice + (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) + (const :tag "As with the default, but does not extend" no-extend) + (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) + (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)) + :link '(info-link "(modus-themes) Active region")) + +\f + +;;;; Deprecated customization options (prior to 1.0.0) + +;;;;; Modus Operandi obsolete options + +(make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") + +;;;;; Modus Vivendi obsolete options + +(make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") +(make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") +(make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") +(make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") +(make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") +(make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") +(make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") +(make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") +(make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") +(make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") +(make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") +(make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") + +\f + +;;; Internal functions + +(defun modus-themes--palette (theme) + "Return color palette for Modus theme THEME. +THEME is a symbol, either `modus-operandi' or `modus-vivendi'." + (pcase theme + ('modus-operandi + (append modus-themes-operandi-color-overrides + modus-themes-operandi-colors)) + ('modus-vivendi + (append modus-themes-vivendi-color-overrides + modus-themes-vivendi-colors)) + (_theme + (error "'%s' is not a Modus theme" theme)))) + +(defvar modus-themes-faces) +(defvar modus-themes-custom-variables) + +(defmacro modus-themes-theme (name) + "Bind NAME's color palette around face specs and variables. + +NAME should be the proper name of a Modus theme, either +`modus-operandi' or `modus-vivendi'. + +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." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes--palette ',name)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (custom-theme-set-faces ',name ,@modus-themes-faces) + (custom-theme-set-variables ',name ,@modus-themes-custom-variables)))) + +(defun modus-themes--current-theme () + "Return current theme." + (car custom-enabled-themes)) + +;; Helper functions that are meant to ease the implementation of the +;; above customization options. +(defun modus-themes--bold-weight () + "Conditional use of a heavier text weight." + (when modus-themes-bold-constructs + (list :inherit 'bold))) + +(defun modus-themes--mixed-fonts () + "Conditional application of `fixed-pitch' inheritance." + (unless modus-themes-no-mixed-fonts + (list :inherit 'fixed-pitch))) + +(defun modus-themes--slant () + "Conditional use of italics for slant attribute." + (if modus-themes-slanted-constructs + (list 'italic) + (list 'normal))) + +(defun modus-themes--variable-pitch () + "Conditional use of `variable-pitch' in headings." + (when modus-themes-variable-pitch-headings + (list :inherit 'variable-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--fringe (mainbg subtlebg intensebg) + "Conditional use of background colors for fringes. +MAINBG is the default. SUBTLEBG should be a subtle greyscale +value. INTENSEBG must be a more pronounced greyscale color." + (pcase modus-themes-fringes + ('intense (list :background intensebg)) + ('subtle (list :background subtlebg)) + (_ (list :background mainbg)))) + +(defun modus-themes--line-numbers (mainfg mainbg altfg &optional altbg) + "Conditional use of colors for line numbers. +MAINBG and MAINFG are the default colors. ALTFG is a color that +combines with the theme's primary background (white/black)." + (if modus-themes-subtle-line-numbers + (list :background (or altbg 'unspecified) :foreground altfg) + (list :background mainbg :foreground mainfg))) + +(defun modus-themes--lang-check (underline subtlefg intensefg bg) + "Conditional use of foreground colors for language checkers. +UNDERLINE is a color-code value for the affected text's underline +property. SUBTLEFG and INTENSEFG follow the same color-coding +pattern and represent a value that is faint or vibrant +respectively. BG is a color-coded background." + (pcase modus-themes-lang-checkers + ('colored-background + (list :underline underline :background bg :foreground intensefg)) + ('intense-foreground + (list :underline (list :color underline :style 'wave) :foreground intensefg)) + ('intense-foreground-straight-underline + (list :underline underline :foreground intensefg)) + ('subtle-foreground + (list :underline (list :color underline :style 'wave) :foreground subtlefg)) + ('subtle-foreground-straight-underline + (list :underline underline :foreground subtlefg)) + ('straight-underline + (list :underline underline)) + (_ (list :underline (list :color underline :style 'wave))))) + +(defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) + "Conditional use of background colors for prompts. +MAINFG is the prompt's standard foreground. SUBTLEBG should be a +subtle accented background that works with SUBTLEFG. INTENSEBG +must be a more pronounced accented color that should be +combinable with INTENSEFG." + (pcase modus-themes-prompts + ;; `subtle' is the same as `subtle-accented', while `intense' is + ;; equal to `intense-accented' for backward compatibility + ('intense-accented (list :background intensebg :foreground intensefg)) + ('intense (list :background intensebg :foreground intensefg)) + ('subtle-accented (list :background subtlebg :foreground subtlefg)) + ('subtle (list :background subtlebg :foreground subtlefg)) + ('subtle-gray (list :inherit 'modus-theme-subtle-neutral)) + ('intense-gray (list :inherit 'modus-theme-intense-neutral)) + (_ (list :background nil :foreground mainfg)))) + +(defun modus-themes--paren (normalbg intensebg) + "Conditional use of intense colors for matching parentheses. +NORMALBG should be the special palette color 'bg-paren-match' or +something similar. INTENSEBG must be easier to discern next to +other backgrounds, such as the special palette color +'bg-paren-match-intense'." + (pcase modus-themes-paren-match + ('subtle-bold (list :inherit 'bold :background normalbg)) + ('intense-bold (list :inherit 'bold :background intensebg)) + ('intense (list :background intensebg)) + (_ (list :background normalbg)))) + +(defun modus-themes--syntax-foreground (fg faint) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-extra (fg faint alt) + "Apply foreground value to code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-string (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground alt)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-docstring (fg faint green alt) + "Apply foreground value to strings in code syntax. +FG is the default. FAINT is typically the same color in its +desaturated version. GREEN is a color variant in that side of +the spectrum. ALT is another hue." + (pcase modus-themes-syntax + ('faint (list :foreground faint)) + ('faint-yellow-comments (list :foreground faint)) + ('green-strings (list :foreground green)) + ('yellow-comments-green-strings (list :foreground green)) + ('alt-syntax (list :foreground alt)) + ('alt-syntax-yellow-comments (list :foreground alt)) + (_ (list :foreground fg)))) + +(defun modus-themes--syntax-comment (fg yellow) + "Apply foreground value to strings in code syntax. +FG is the default. YELLOW is a color variant of that name." + (pcase modus-themes-syntax + ('yellow-comments (list :foreground yellow)) + ('yellow-comments-green-strings (list :foreground yellow)) + ('alt-syntax-yellow-comments (list :foreground yellow)) + ('faint-yellow-comments (list :foreground yellow)) + (_ (list :foreground fg)))) + +(defun modus-themes--heading-p (key) + "Query style of KEY in `modus-themes-headings'." + (cdr (assoc key modus-themes-headings))) + +(defun modus-themes--heading (level fg fg-alt bg border) + "Conditional styles for `modus-themes-headings'. + +LEVEL is the heading's position in their order. FG is the +default text color. FG-ALT is an accented, more saturated value +than the default. BG is a nuanced, typically accented, +background that can work well with either of the foreground +values. BORDER is a color value that combines well with the +background and alternative foreground." + (let* ((key (modus-themes--heading-p `,level)) + (style (or key (modus-themes--heading-p t))) + (var (when modus-themes-variable-pitch-headings + 'variable-pitch)) + (varbold (if var + (append (list 'bold) (list var)) + 'bold))) + (pcase style + ('no-bold + (list :inherit `,var :foreground fg)) + ('no-color + (list :inherit `,varbold)) + ('no-color-no-bold + (list :inherit `,var)) + ('line + (list :inherit `,varbold :foreground fg :overline border)) + ('line-no-bold + (list :inherit `,var :foreground fg :overline border)) + ('rainbow + (list :inherit `,varbold :foreground fg-alt)) + ('rainbow-no-bold + (list :inherit `,var :foreground fg-alt)) + ('rainbow-line + (list :inherit `,varbold :foreground fg-alt :overline border)) + ('rainbow-line-no-bold + (list :inherit `,var :foreground fg-alt :overline border)) + ('highlight + (list :inherit `,varbold :background bg :foreground fg)) + ('highlight-no-bold + (list :inherit `,var :background bg :foreground fg)) + ('rainbow-highlight + (list :inherit `,varbold :background bg :foreground fg-alt)) + ('rainbow-highlight-no-bold + (list :inherit `,var :background bg :foreground fg-alt)) + ('section + (list :inherit `,varbold :background bg :foreground fg :overline border :extend t)) + ('section-no-bold + (list :inherit `,var :background bg :foreground fg :overline border :extend t)) + ('rainbow-section + (list :inherit `,varbold :background bg :foreground fg-alt :overline border :extend t)) + ('rainbow-section-no-bold + (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) + (_ + (list :inherit `,varbold :foreground fg))))) + +(defun modus-themes--org-block (bgblk) + "Conditionally set the background of Org blocks. +BGBLK applies to a distinct neutral background. Else blocks have +no background of their own (the default), so they look the same +as the rest of the buffer. + +`modus-themes-org-blocks' also accepts a `rainbow' option +which is applied conditionally to `org-src-block-faces' (see the +theme's source code)." + (if (or (eq modus-themes-org-blocks 'grayscale) + (eq modus-themes-org-blocks 'greyscale)) + (list :background bgblk :extend t) + (list :background 'unspecified))) + +(defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) + "Conditionally set the styles of Org block delimiters. +BG, FG, BGACCENT, FGACCENT apply a background and foreground +color respectively. + +The former pair is a greyscale combination that should be more +distinct than the background of the block. It is applied to the +default styles or when `modus-themes-org-blocks' is set +to `greyscale'. + +The latter pair should be more subtle than the background of the +block, as it is used when `modus-themes-org-blocks' is +set to `rainbow'." + (pcase modus-themes-org-blocks + ('grayscale (list :background bg :foreground fg :extend t)) + ('greyscale (list :background bg :foreground fg :extend t)) + ('rainbow (list :background bgaccent :foreground fgaccent)) + (_ (list :background bg :foreground fg)))) + +(defun modus-themes--org-habit (default &optional traffic simple) + "Specify background values for `modus-themes-org-habit'. +If no optional TRAFFIC argument is supplied, the DEFAULT is used +instead. Same for SIMPLE." + (pcase modus-themes-org-habit + ('traffic-light (list :background (or traffic default))) + ('simplified (list :background (or simple default))) + (_ (list :background default)))) + +(defun modus-themes--mode-line-attrs + (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) + "Color combinations for `modus-themes-mode-line'. + +FG and BG are the default colors. FG-ALT and BG-ALT are meant to +accommodate the options for a 3D modeline or a `moody' compliant +one. BORDER applies to all permutations of the modeline, except +the three-dimensional effect, where BORDER-3D is used instead. + +Optional ALT-STYLE applies an appropriate style to the mode +line's box property. + +Optional BORDER-WIDTH specifies an integer for the width of the +rectangle that produces the box effect. + +Optional FG-DISTANT should be close to the main background +values. It is intended to be used as a distant-foreground +property." + (pcase modus-themes-mode-line + ('3d + `(:background ,bg-alt :foreground ,fg-alt + :box (:line-width ,(or border-width 1) + :color ,border-3d + :style ,(and alt-style 'released-button)))) + ('moody + `(:background ,bg-alt :foreground ,fg-alt + :underline ,border :overline ,border + :distant-foreground ,fg-distant)) + ('borderless + `(:foreground ,fg :background ,bg :box ,bg)) + ('borderless-3d + `(:foreground ,fg :background ,bg + :box (:line-width ,(or border-width 1) + :color ,bg + :style ,(and alt-style 'released-button)))) + ('borderless-moody + `(:background ,bg :foreground ,fg + :underline ,bg :overline ,bg + :distant-foreground ,fg-distant)) + (_ + `(:foreground ,fg :background ,bg :box ,border)))) + +(defun modus-themes--diff + (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional deuteranbg deuteranfg bg-only-fg) + "Color combinations for `modus-themes-diffs'. + +FG-ONLY-BG should be similar or the same as the main background. +FG-ONLY-FG should be a saturated accent value that can be +combined with the former. + +MAINBG must be one of the dedicated backgrounds for diffs while +MAINFG must be the same for the foreground. + +ALTBG needs to be a slightly accented background that is meant to +be combined with ALTFG. Both must be less intense than MAINBG +and MAINFG respectively. + +DEUTERANBG and DEUTERANFG must be combinations of colors that account +for red-green color defficiency (deuteranopia). + +Optional BG-ONLY-FG applies ALTFG else leaves the foreground +unspecified." + (pcase modus-themes-diffs + ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) + ('desaturated (list :background altbg :foreground altfg)) + ('deuteranopia (list :background (or deuteranbg mainbg) :foreground (or deuteranfg mainfg))) + ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) + (_ (list :background mainbg :foreground mainfg)))) + +(defun modus-themes--diff-deuteran (deuteran main) + "Determine whether the DEUTERAN or MAIN color should be used. +This is based on whether `modus-themes-diffs' has the value +`deuteranopia'." + (if (eq modus-themes-diffs 'deuteranopia) + (list deuteran) + (list main))) + +(defun modus-themes--diff-text (fg-only-fg default-fg) + "Like `modus-themes--diff', but only for foregrounds. +FG-ONLY-FG is the foreground that is used when diffs are styled +using only foreground colors. DEFAULT-FG covers all other +cases." + (pcase modus-themes-diffs + ('fg-only (list :foreground fg-only-fg)) + ('bg-only (list :foreground 'unspecified)) + (_ (list :foreground default-fg)))) + +(defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) + "Combinations for `modus-themes-completions'. + +MAINFG is an accented foreground value. SUBTLEBG is an accented +background value that can be combined with MAINFG. INTENSEBG and +INTENSEFG are accented colors that are designed to be used in +tandem. + +These are intended for Icomplete, Ido, and related." + (pcase modus-themes-completions + ('opinionated (list :background intensebg :foreground intensefg)) + ('moderate (list :background subtlebg :foreground mainfg)) + (_ (list :foreground mainfg)))) + +(defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) + "Combinations for `modus-themes-completions'. + +SUBTLEFACE and INTENSEFACE are custom theme faces that combine a +background and foreground value. The difference between the two +is a matter of degree. + +ALTFACE is a combination of colors that represents a departure +from the UI's default aesthetics. Optional ALTFG is meant to be +used in tandem with it. + +Optional BOLD will apply a heavier weight to the text. + +These are intended for Helm, Ivy, etc." + (pcase modus-themes-completions + ('opinionated (list :inherit (list altface bold) + :foreground (or altfg 'unspecified))) + ('moderate (list :inherit (list subtleface bold))) + (_ (list :inherit (list intenseface bold))))) + +(defun modus-themes--link (fg fgfaint underline) + "Conditional application of link styles. +FG is the link's default color for its text and underline +property. FGFAINT is a desaturated color for the text and +underline. UNDERLINE is a grey color only for the undeline." + (pcase modus-themes-links + ('faint (list :foreground fgfaint :underline t)) + ('neutral-underline (list :foreground fg :underline underline)) + ('faint-neutral-underline (list :foreground fgfaint :underline underline)) + ('no-underline (list :foreground fg :underline nil)) + ('underline-only (list :underline t)) + ('neutral-underline-only (list :underline underline)) + (_ (list :foreground fg :underline t)))) + +(defun modus-themes--link-color (fg fgfaint &optional neutralfg) + "Extends `modus-themes--link'. +FG is the main accented foreground. FGFAINT is also accented, +yet desaturated. Optional NEUTRALFG is a gray value." + (pcase modus-themes-links + ('faint (list :foreground fgfaint)) + ('faint-neutral-underline (list :foreground fgfaint)) + ('underline-only (list :underline t :foreground (or neutralfg 'unspecified))) + ('neutral-underline-only (list :underline 'unspecified :foreground (or neutralfg 'unspecified))) + (_ (list :foreground fg)))) + +(defun modus-themes--scale (amount) + "Scale heading by AMOUNT. +AMOUNT is a customization option." + (when modus-themes-scale-headings + (list :height amount))) + +(defun modus-themes--region (bg fg bgsubtle) + "Apply `modus-themes-region' styles. + +BG and FG are the main values that are used by default. BGSUBTLE +is a subtle background value that can be combined with all colors +used to fontify text and code syntax." + (pcase modus-themes-region + ('bg-only (list :background bgsubtle)) + ('bg-only-no-extend (list :background bgsubtle :extend nil)) + ('no-extend (list :background bg :foreground fg :extend nil)) + (_ (list :background bg :foreground fg)))) + +\f + +;;;; Utilities for DIY users + +;; 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 as those in +`modus-themes-operandi-colors' and `modus-themes-vivendi-colors'." + (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)))) + +(defun modus-themes-current-palette () + "Return current color palette." + (modus-themes--palette (modus-themes--current-theme))) + +;;;###autoload +(defun modus-themes-color (color) + "Return color value for COLOR from current palette. +COLOR is a key in `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (alist-get color (modus-themes-current-palette))) + +;;;###autoload +(defun modus-themes-color-alts (light-color dark-color) + "Return color value from current palette. +When Modus Operandi is enabled, return color value for color +LIGHT-COLOR. When Modus Vivendi is enabled, return color value +for DARK-COLOR. LIGHT-COLOR and DARK-COLOR are keys in +`modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." + (let* ((theme (modus-themes--current-theme)) + (color (pcase theme + ('modus-operandi light-color) + ('modus-vivendi dark-color) + (_theme + (error "'%s' is not a Modus theme" theme))))) + (alist-get color (modus-themes--palette theme)))) + +(defmacro modus-themes-with-colors (&rest body) + "Evaluate BODY with colors from current palette bound. +For colors bound, see `modus-themes-operandi-colors' or +`modus-themes-vivendi-colors'." + (declare (indent 0)) + (let ((palette-sym (gensym)) + (colors (mapcar #'car modus-themes-operandi-colors))) + `(let* ((class '((class color) (min-colors 89))) + (,palette-sym (modus-themes-current-palette)) + ,@(mapcar (lambda (color) + (list color `(alist-get ',color ,palette-sym))) + colors)) + (ignore class ,@colors) ; Silence unused variable warnings + ,@body))) + +\f + +;;;; Commands + +;;;###autoload +(defun modus-themes-load-themes () + "Ensure that the Modus themes are in `custom-enabled-themes'. + +This function is intended for use in package declarations such as +those defined with the help of `use-package'. The idea is to add +this function to the `:init' stage of the package's loading, so +that subsequent calls that assume the presence of a loaded theme, +like `modus-themes-toggle' or `modus-themes-load-operandi', will +continue to work as intended even if they are lazy-loaded (such +as when they are declared in the `:config' phase)." + (unless (or (custom-theme-p 'modus-operandi) + (custom-theme-p 'modus-vivendi)) + (load-theme 'modus-operandi t t) + (load-theme 'modus-vivendi t t))) + +(defvar modus-themes-after-load-theme-hook nil + "Hook that runs after the `modus-themes-toggle' routines.") + +;; The reason we use `load-theme' instead of `enable-theme' is that the +;; former does a kind of "reset" on the face specs. So it plays nicely +;; with `custom-set-faces', as well as defcustom user customizations, +;; including the likes of `modus-themes-operandi-color-overrides'. +;; +;; Tests show that `enable-theme' does not re-read those variables, so +;; it might appear to the unsuspecting user that the themes are somehow +;; broken. +;; +;; This "reset", however, comes at the cost of being a bit slower than +;; `enable-theme'. User who have a stable setup and seldom update their +;; variables during a given Emacs session, are better off using +;; something like this: +;; +;; (defun modus-themes-toggle-enabled () +;; "Toggle between `modus-operandi' and `modus-vivendi' themes." +;; (interactive) +;; (pcase (modus-themes--current-theme) +;; ('modus-operandi (progn (enable-theme 'modus-vivendi) +;; (disable-theme 'modus-operandi))) +;; ('modus-vivendi (progn (enable-theme 'modus-operandi) +;; (disable-theme 'modus-vivendi))) +;; (_ (error "No Modus theme is loaded; evaluate `modus-themes-load-themes' first")))) + +;;;###autoload +(defun modus-themes-load-operandi () + "Load `modus-operandi' and disable `modus-vivendi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-vivendi) + (load-theme 'modus-operandi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +;;;###autoload +(defun modus-themes-load-vivendi () + "Load `modus-vivendi' and disable `modus-operandi'. +Also run `modus-themes-after-load-theme-hook'." + (disable-theme 'modus-operandi) + (load-theme 'modus-vivendi t) + (run-hooks 'modus-themes-after-load-theme-hook)) + +(defun modus-themes--load-prompt () + "Helper for `modus-themes-toggle'." + (let ((theme + (intern + (completing-read "Load Modus theme (will disable all others): " + '(modus-operandi modus-vivendi) nil t)))) + (mapc #'disable-theme custom-enabled-themes) + (pcase theme + ('modus-operandi (modus-themes-load-operandi)) + ('modus-vivendi (modus-themes-load-vivendi))))) + +;;;###autoload +(defun modus-themes-toggle () + "Toggle between `modus-operandi' and `modus-vivendi' themes. +Also runs `modus-themes-after-load-theme-hook' at its last stage +by virtue of calling either of `modus-themes-load-operandi' and +`modus-themes-load-vivendi' functions." + (interactive) + (modus-themes-load-themes) + (pcase (modus-themes--current-theme) + ('modus-operandi (modus-themes-load-vivendi)) + ('modus-vivendi (modus-themes-load-operandi)) + (_ (modus-themes--load-prompt)))) + +\f + +;;;; Face specifications + +(defconst modus-themes-faces + '( +;;;; custom faces + ;; these bespoke faces are inherited by other constructs below +;;;;; subtle colored backgrounds + `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) + `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; intense colored backgrounds + `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) + `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) +;;;;; refined background and foreground combinations + ;; general purpose styles that use an accented foreground against an + ;; accented background + `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) + `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) + `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) + `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) + `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) + `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) +;;;;; "active" combinations, mostly for use on the mode line + `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) + `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) + `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) + `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) + `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) + `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) +;;;;; nuanced backgrounds + ;; useful for adding an accented background that is suitable for all + ;; main foreground colors (intended for use in Org source blocks) + `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) + `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) + `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) + `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) + `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) + `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) +;;;;; fringe-specific combinations + `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) + `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) +;;;;; special base values + ;; these are closer to the grayscale than the accents defined above + ;; and should only be used when the next closest alternative would be + ;; a greyscale value than an accented one + `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) + `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) + `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) +;;;;; diff-specific combinations + ;; intended for `diff-mode' or equivalent + `(modus-theme-diff-added + ((,class ,@(modus-themes--diff + bg-main green + bg-diff-focus-added fg-diff-focus-added + green-nuanced-bg fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-changed + ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-focus-changed fg-diff-focus-changed + yellow-nuanced-bg fg-diff-changed)))) + `(modus-theme-diff-removed + ((,class ,@(modus-themes--diff + bg-main red + bg-diff-focus-removed fg-diff-focus-removed + red-nuanced-bg fg-diff-removed)))) + `(modus-theme-diff-refine-added + ((,class ,@(modus-themes--diff + bg-diff-added fg-diff-added + bg-diff-refine-added fg-diff-refine-added + bg-diff-focus-added fg-diff-focus-added + bg-diff-refine-added-deuteran fg-diff-refine-added-deuteran)))) + `(modus-theme-diff-refine-changed + ((,class ,@(modus-themes--diff + bg-diff-changed fg-diff-changed + bg-diff-refine-changed fg-diff-refine-changed + bg-diff-focus-changed fg-diff-focus-changed)))) + `(modus-theme-diff-refine-removed + ((,class ,@(modus-themes--diff + bg-diff-removed fg-diff-removed + bg-diff-refine-removed fg-diff-refine-removed + bg-diff-focus-removed fg-diff-focus-removed)))) + `(modus-theme-diff-focus-added + ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-focus-added fg-diff-focus-added + bg-diff-added fg-diff-added + bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) + `(modus-theme-diff-focus-changed + ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-focus-changed fg-diff-focus-changed + bg-diff-changed fg-diff-changed)))) + `(modus-theme-diff-focus-removed + ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-focus-removed fg-diff-focus-removed + bg-diff-removed fg-diff-removed)))) + `(modus-theme-diff-heading + ((,class ,@(modus-themes--diff + bg-main blue + bg-diff-heading fg-diff-heading + cyan-nuanced-bg cyan-nuanced-fg + bg-header fg-main + t)))) +;;;;; mark indicators + ;; color combinations intended for Dired, Ibuffer, or equivalent + `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) + `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) + `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) + `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) + `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) +;;;;; heading levels + ;; styles for regular headings used in Org, Markdown, Info, etc. + `(modus-theme-heading-1 + ((,class ,@(modus-themes--heading + 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-4)))) + `(modus-theme-heading-2 + ((,class ,@(modus-themes--heading + 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-3)))) + `(modus-theme-heading-3 + ((,class ,@(modus-themes--heading + 3 fg-special-cold blue blue-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-2)))) + `(modus-theme-heading-4 + ((,class ,@(modus-themes--heading + 4 fg-special-mild cyan cyan-nuanced-bg bg-region) + ,@(modus-themes--scale modus-themes-scale-1)))) + `(modus-theme-heading-5 + ((,class ,@(modus-themes--heading + 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) + `(modus-theme-heading-6 + ((,class ,@(modus-themes--heading + 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) + `(modus-theme-heading-7 + ((,class ,@(modus-themes--heading + 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) + `(modus-theme-heading-8 + ((,class ,@(modus-themes--heading + 8 fg-dim magenta bg-alt bg-region)))) +;;;;; graph-specific faces + `(modus-theme-graph-red-0 ((,class :background ,red-graph-0-bg))) + `(modus-theme-graph-red-1 ((,class :background ,red-graph-1-bg))) + `(modus-theme-graph-green-0 ((,class :background ,green-graph-0-bg))) + `(modus-theme-graph-green-1 ((,class :background ,green-graph-1-bg))) + `(modus-theme-graph-yellow-0 ((,class :background ,yellow-graph-0-bg))) + `(modus-theme-graph-yellow-1 ((,class :background ,yellow-graph-1-bg))) + `(modus-theme-graph-blue-0 ((,class :background ,blue-graph-0-bg))) + `(modus-theme-graph-blue-1 ((,class :background ,blue-graph-1-bg))) + `(modus-theme-graph-magenta-0 ((,class :background ,magenta-graph-0-bg))) + `(modus-theme-graph-magenta-1 ((,class :background ,magenta-graph-1-bg))) + `(modus-theme-graph-cyan-0 ((,class :background ,cyan-graph-0-bg))) + `(modus-theme-graph-cyan-1 ((,class :background ,cyan-graph-1-bg))) +;;;;; language checkers + `(modus-theme-lang-error ((,class ,@(modus-themes--lang-check fg-lang-underline-error fg-lang-error red red-nuanced-bg)))) + `(modus-theme-lang-note ((,class ,@(modus-themes--lang-check fg-lang-underline-note fg-lang-note blue-alt blue-nuanced-bg)))) + `(modus-theme-lang-warning ((,class ,@(modus-themes--lang-check fg-lang-underline-warning fg-lang-warning yellow yellow-nuanced-bg)))) +;;;;; other custom faces + `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) + `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-line-intense bg-hl-line) + :extend t))) + `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) + `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) +;;;; standard faces +;;;;; absolute essentials + `(default ((,class :background ,bg-main :foreground ,fg-main))) + `(cursor ((,class :background ,fg-main))) + `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) + :foreground ,fg-main))) + `(vertical-border ((,class :foreground ,fg-window-divider-inner))) +;;;;; basic and/or ungrouped styles + `(bold ((,class :weight bold))) + `(bold-italic ((,class :inherit (bold italic)))) + `(buffer-menu-buffer ((,class :inherit bold))) + `(comint-highlight-input ((,class :inherit bold))) + `(comint-highlight-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + cyan + blue-nuanced-bg blue-alt + blue-refine-bg fg-main)))) + `(error ((,class :inherit bold :foreground ,red))) + `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) + `(file-name-shadow ((,class :foreground ,fg-unfocused))) + `(header-line ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-header :foreground ,fg-header))) + `(header-line-highlight ((,class :inherit modus-theme-active-blue))) + `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) + `(homoglyph ((,class :foreground ,red-alt-faint))) + `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) + `(italic ((,class :slant italic))) + `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) + `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) + `(minibuffer-prompt ((,class ,@(modus-themes--prompt + cyan-alt-other + cyan-nuanced-bg cyan + cyan-refine-bg fg-main)))) + `(mm-command-output ((,class :foreground ,red-alt-other))) + `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(next-error ((,class :inherit modus-theme-subtle-red))) + `(rectangle-preview ((,class :inherit modus-theme-special-mild))) + `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) + `(secondary-selection ((,class :inherit modus-theme-special-cold))) + `(shadow ((,class :foreground ,fg-alt))) + `(success ((,class :inherit bold :foreground ,green))) + `(trailing-whitespace ((,class :background ,red-intense-bg))) + `(warning ((,class :inherit bold :foreground ,yellow))) +;;;;; buttons, links, widgets + `(button ((,class ,@(modus-themes--link + blue-alt-other blue-alt-other-faint bg-region)))) + `(link ((,class :inherit button))) + `(link-visited ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint fg-alt)))) + `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(widget-button ((,class :inherit button))) + `(widget-button-pressed ((,class :inherit button + ,@(modus-themes--link-color + magenta magenta-faint)))) + `(widget-documentation ((,class :foreground ,green))) + `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) + `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(widget-single-line-field ((,class :inherit widget-field))) +;;;;; ag + `(ag-hit-face ((,class :foreground ,fg-special-cold))) + `(ag-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; alert + `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) + `(alert-low-face ((,class :foreground ,fg-special-mild))) + `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) + `(alert-trivial-face ((,class :foreground ,fg-special-calm))) + `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) +;;;;; all-the-icons + `(all-the-icons-blue ((,class :foreground ,blue))) + `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) + `(all-the-icons-cyan ((,class :foreground ,cyan))) + `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) + `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) + `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) + `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) + `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) + `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) + `(all-the-icons-dpink ((,class :foreground ,magenta))) + `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) + `(all-the-icons-dred ((,class :foreground ,red))) + `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-dyellow ((,class :foreground ,yellow))) + `(all-the-icons-green ((,class :foreground ,green))) + `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) + `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) + `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) + `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) + `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) + `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) + `(all-the-icons-maroon ((,class :foreground ,magenta))) + `(all-the-icons-orange ((,class :foreground ,red-alt))) + `(all-the-icons-pink ((,class :foreground ,magenta))) + `(all-the-icons-purple ((,class :foreground ,magenta-alt))) + `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) + `(all-the-icons-red ((,class :foreground ,red))) + `(all-the-icons-red-alt ((,class :foreground ,red-alt))) + `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) + `(all-the-icons-yellow ((,class :foreground ,yellow))) +;;;;; annotate + `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) + `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) + `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) + `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) +;;;;; anzu + `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) + `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) + `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) + `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) + `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) + `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) + `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; apropos + `(apropos-function-button ((,class :inherit button + ,@(modus-themes--link-color + magenta-alt-other magenta-alt-other-faint)))) + `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) + `(apropos-misc-button ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(apropos-user-option-button ((,class :inherit button + ,@(modus-themes--link-color + green-alt-other green-alt-other-faint)))) + `(apropos-variable-button ((,class :inherit button + ,@(modus-themes--link-color + blue blue-faint)))) +;;;;; apt-sources-list + `(apt-sources-list-components ((,class :foreground ,cyan))) + `(apt-sources-list-options ((,class :foreground ,yellow))) + `(apt-sources-list-suite ((,class :foreground ,green))) + `(apt-sources-list-type ((,class :foreground ,magenta))) + `(apt-sources-list-uri ((,class :foreground ,blue))) +;;;;; artbollocks-mode + `(artbollocks-face ((,class :inherit modus-theme-lang-note))) + `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(artbollocks-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(artbollocks-weasel-words-face ((,class :inherit modus-theme-lang-error))) +;;;;; auctex and Tex + `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) + `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) + `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) + `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) + `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) + `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) + `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) + `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg + ,@(modus-themes--scale modus-themes-scale-4)))) + `(font-latex-string-face ((,class :inherit font-lock-string-face))) + `(font-latex-subscript-face ((,class :height 0.95))) + `(font-latex-superscript-face ((,class :height 0.95))) + `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) + `(tex-match ((,class :foreground ,blue-alt-other))) + `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) + `(texinfo-heading ((,class :foreground ,magenta))) + `(TeX-error-description-error ((,class :inherit error))) + `(TeX-error-description-help ((,class :foreground ,blue))) + `(TeX-error-description-tex-said ((,class :foreground ,blue))) + `(TeX-error-description-warning ((,class :inherit warning))) +;;;;; auto-dim-other-buffers + `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) +;;;;; avy + `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) + `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) + `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) + `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; aw (ace-window) + `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) + `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(aw-leading-char-face ((,class :inherit bold :height 1.5 :slant normal :background ,bg-main :foreground ,red-intense))) + `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) + `(aw-mode-line-face ((,class :inherit bold))) +;;;;; awesome-tray + `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) + `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) + `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) + `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) + `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) + `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) + `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) + `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) + `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; bbdb + `(bbdb-name ((,class :foreground ,magenta-alt-other))) + `(bbdb-organization ((,class :foreground ,red-alt-other))) + `(bbdb-field-name ((,class :foreground ,cyan-alt-other))) +;;;;; binder + `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) + `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) + `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) + `(binder-sidebar-tags ((,class :foreground ,cyan))) +;;;;; bm + `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) + `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) + `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) + `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) +;;;;; bongo + `(bongo-album-title ((,class :foreground ,yellow-active))) + `(bongo-artist ((,class :foreground ,magenta-active))) + `(bongo-currently-playing-track ((,class :inherit bold))) + `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) + `(bongo-filled-seek-bar ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) + `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) + `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) + `(bongo-track-length ((,class :foreground ,fg-active))) + `(bongo-track-title ((,class :foreground ,cyan-active))) + `(bongo-unfilled-seek-bar ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; boon + `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) + `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) + `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) + `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) +;;;;; breakpoint (built-in gdb-mi.el) + `(breakpoint-disabled ((,class :inherit shadow))) + `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) +;;;;; buffer-expose + `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) + `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) + `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) +;;;;; calendar and diary + `(calendar-month-header ((,class :inherit modus-theme-pseudo-header))) + `(calendar-today ((,class :inherit bold :underline t))) + `(calendar-weekday-header ((,class :inherit shadow))) + `(calendar-weekend-header ((,class :inherit shadow))) + `(diary ((,class :background ,green-nuanced-bg :foreground ,green-alt-other))) + `(diary-anniversary ((,class :foreground ,red-alt-other))) + `(diary-time ((,class :foreground ,blue-alt))) + `(holiday ((,class :background ,magenta-nuanced-bg :foreground ,magenta-alt))) +;;;;; calfw + `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) + `(cfw:face-day-title ((,class :foreground ,fg-main))) + `(cfw:face-default-content ((,class :foreground ,green-alt))) + `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) + `(cfw:face-disable ((,class :foreground ,fg-unfocused))) + `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) + `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) + `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) + `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) + `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) + `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) + `(cfw:face-title ((,class :inherit modus-theme-variable-pitch + :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(cfw:face-today ((,class :background ,bg-inactive))) + `(cfw:face-today-title ((,class :background ,bg-active))) + `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) + `(cfw:face-toolbar-button-off ((,class :inherit shadow))) + `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg + :foreground ,blue-alt))) +;;;;; centaur-tabs + `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) + `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) + `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) + `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) + `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) + `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) + `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) + `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; cfrs + `(cfrs-border-color ((,class :background ,fg-window-divider-inner))) +;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') + `(change-log-acknowledgment ((,class :foreground ,fg-alt))) + `(change-log-conditionals ((,class :foreground ,yellow))) + `(change-log-date ((,class :foreground ,cyan))) + `(change-log-email ((,class :foreground ,cyan-alt-other))) + `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(change-log-function ((,class :foreground ,green-alt-other))) + `(change-log-list ((,class :foreground ,magenta-alt))) + `(change-log-name ((,class :foreground ,magenta-alt-other))) + `(log-edit-header ((,class :foreground ,fg-special-warm))) + `(log-edit-summary ((,class :inherit bold :foreground ,blue))) + `(log-edit-unknown-header ((,class :inherit shadow))) + `(log-view-commit-body ((,class :foreground ,blue-nuanced-fg))) + `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(log-view-message ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; cider + `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) + `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) + `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) + `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(cider-docview-literal-face ((,class :foreground ,blue-alt))) + `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(cider-docview-table-border-face ((,class :inherit shadow))) + `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) + `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) + `(cider-error-highlight-face ((,class :foreground ,red :underline t))) + `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) + `(cider-fringe-good-face ((,class :foreground ,green-active))) + `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) + `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) + `(cider-repl-input-face ((,class :inherit bold))) + `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) + `(cider-repl-stdout-face ((,class :foreground ,blue))) + `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) + `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) + `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) + `(cider-stacktrace-face ((,class :foreground ,fg-main))) + `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) + `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) + `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) + `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) + `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) + `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) + :background ,bg-alt :foreground ,fg-alt))) + `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) + `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) + `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) + `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) + `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) +;;;;; circe (and lui) + `(circe-fool-face ((,class :inherit shadow))) + `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) + `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(circe-server-face ((,class :foreground ,fg-unfocused))) + `(lui-button-face ((,class :inherit button))) + `(lui-highlight-face ((,class :foreground ,magenta-alt))) + `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) +;;;;; color-rg + `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) + `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) + `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) + `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) + `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) + `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) + `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) + `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) + `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) + `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) + `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) + `(color-rg-font-lock-position-splitter ((,class :inherit shadow))) +;;;;; column-enforce-mode + `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; company-mode + `(company-echo-common ((,class :foreground ,magenta-alt-other))) + `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) + `(company-preview-common ((,class :foreground ,blue-alt))) + `(company-preview-search ((,class :inherit modus-theme-special-calm))) + `(company-scrollbar-bg ((,class :background ,bg-active))) + `(company-scrollbar-fg ((,class :background ,fg-active))) + `(company-template-field ((,class :inherit modus-theme-intense-magenta))) + `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) + `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) + `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) + `(company-tooltip-common-selection ((,class :foreground ,fg-main))) + `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) + `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) + `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) + `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) +;;;;; company-posframe + `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) + `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) + `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; compilation feedback + `(compilation-column-number ((,class :foreground ,magenta-alt-other))) + `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(compilation-info ((,class :inherit modus-theme-bold :foreground ,fg-special-cold))) + `(compilation-line-number ((,class :foreground ,fg-special-warm))) + `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) +;;;;; completions + `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) + `(completions-common-part ((,class ,@(modus-themes--standard-completions + blue-alt blue-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) + `(completions-first-difference ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt blue-nuanced-bg + magenta-intense-bg fg-main)))) +;;;;; consult + `(consult-async-running ((,class :inherit bold :foreground ,blue))) + `(consult-async-split ((,class :foreground ,magenta-alt))) + `(consult-bookmark ((,class :foreground ,blue))) + `(consult-file ((,class :foreground ,fg-special-cold))) + `(consult-imenu-prefix ((,class :inherit shadow))) + `(consult-key ((,class :inherit modus-themes-bold :foreground ,magenta-alt-other))) + `(consult-line-number ((,class :foreground ,fg-special-warm))) + `(consult-line-number-prefix ((,class :foreground ,fg-unfocused))) + `(consult-narrow-indicator ((,class :foreground ,magenta-alt))) + `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) + `(consult-preview-error ((,class :inherit modus-theme-intense-red))) + `(consult-preview-line ((,class :background ,bg-hl-alt-intense))) +;;;;; counsel + `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) + `(counsel-application-name ((,class :foreground ,red-alt-other))) + `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) + `(counsel-outline-1 ((,class :inherit org-level-1))) + `(counsel-outline-2 ((,class :inherit org-level-2))) + `(counsel-outline-3 ((,class :inherit org-level-3))) + `(counsel-outline-4 ((,class :inherit org-level-4))) + `(counsel-outline-5 ((,class :inherit org-level-5))) + `(counsel-outline-6 ((,class :inherit org-level-6))) + `(counsel-outline-7 ((,class :inherit org-level-7))) + `(counsel-outline-8 ((,class :inherit org-level-8))) + `(counsel-outline-default ((,class :foreground ,fg-main))) + `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) +;;;;; counsel-css + `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) + `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) + `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) + `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) + `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) + `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) +;;;;; counsel-notmuch + `(counsel-notmuch-count-face ((,class :foreground ,cyan))) + `(counsel-notmuch-date-face ((,class :foreground ,blue))) + `(counsel-notmuch-people-face ((,class :foreground ,magenta))) + `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) +;;;;; counsel-org-capture-string + `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) +;;;;; cov + `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) + `(cov-coverage-run-face ((,class :foreground ,green-intense))) + `(cov-heavy-face ((,class :foreground ,magenta-intense))) + `(cov-light-face ((,class :foreground ,blue-intense))) + `(cov-med-face ((,class :foreground ,yellow-intense))) + `(cov-none-face ((,class :foreground ,cyan-intense))) +;;;;; cperl-mode + `(cperl-nonoverridable-face ((,class :foreground unspecified))) + `(cperl-array-face ((,class :inherit font-lock-keyword-face))) + `(cperl-hash-face ((,class :inherit font-lock-variable-name-face))) +;;;;; csv-mode + `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) +;;;;; ctrlf + `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) + `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) + `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) +;;;;; custom (M-x customize) + `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) + :background ,bg-active :foreground ,fg-active))) + `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) + :background ,bg-active :foreground ,fg-main))) + `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) + `(custom-comment ((,class :inherit shadow))) + `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) + `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) + `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) + `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) + `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) + `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) + `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) + `(custom-set ((,class :foreground ,blue-alt))) + `(custom-state ((,class :foreground ,cyan-alt-other))) + `(custom-themed ((,class :inherit modus-theme-subtle-blue))) + `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) +;;;;; dap-mode + `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) + :background ,bg-active :foreground ,fg-main))) + `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) + `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) + `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) + `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) + `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) + `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) + `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) + `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) + `(dap-ui-sessions-terminated-face ((,class :inherit shadow))) +;;;;; dashboard (emacs-dashboard) + `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) + `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) + `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) + `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) + `(dashboard-text-banner ((,class :foreground ,fg-dim))) +;;;;; deadgrep + `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) + `(deadgrep-meta-face ((,class :inherit shadow))) + `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) + `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) +;;;;; debbugs + `(debbugs-gnu-archived ((,class :inverse-video t))) + `(debbugs-gnu-done ((,class :inherit shadow))) + `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) + `(debbugs-gnu-handled ((,class :foreground ,green))) + `(debbugs-gnu-new ((,class :foreground ,red))) + `(debbugs-gnu-pending ((,class :foreground ,cyan))) + `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) + `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) + `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) + `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) + `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) + `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) +;;;;; define-word + `(define-word-face-1 ((,class :foreground ,yellow))) + `(define-word-face-2 ((,class :foreground ,fg-main))) +;;;;; deft + `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) + `(deft-filter-string-face ((,class :foreground ,green-intense))) + `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(deft-separator-face ((,class :inherit shadow))) + `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(deft-time-face ((,class :foreground ,fg-special-cold))) + `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; dictionary + `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(dictionary-reference-face ((,class :inherit button))) + `(dictionary-word-definition-face ((,class))) + `(dictionary-word-entry-face ((,class :inherit font-lock-comment-face))) +;;;;; diff-hl + `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) + `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) + `(diff-hl-dired-change ((,class :inherit diff-hl-change))) + `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) + `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) + `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) + `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) + `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) + `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) +;;;;; diff-mode + `(diff-added ((,class :inherit modus-theme-diff-added))) + `(diff-changed ((,class :inherit modus-theme-diff-changed :extend t))) + `(diff-context ((,class ,@(modus-themes--diff-text fg-main fg-unfocused)))) + `(diff-error ((,class :inherit modus-theme-intense-red))) + `(diff-file-header ((,class :inherit (bold diff-header)))) + `(diff-function ((,class :inherit modus-theme-diff-heading))) + `(diff-header ((,class ,@(modus-themes--diff-text cyan-faint fg-main)))) + `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) + `(diff-index ((,class :inherit bold :foreground ,blue-alt))) + `(diff-indicator-added ((,class :inherit (diff-added bold) + :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) + `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) + `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) + `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(diff-removed ((,class :inherit modus-theme-diff-removed))) +;;;;; dim-autoload + `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) +;;;;; dir-treeview + `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) + `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) + `(dir-treeview-audio-face ((,class :foreground ,magenta))) + `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) + `(dir-treeview-control-face ((,class :inherit shadow))) + `(dir-treeview-control-mouse-face ((,class :inherit highlight))) + `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) + `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) + `(dir-treeview-directory-face ((,class :foreground ,blue))) + `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) + `(dir-treeview-executable-face ((,class :foreground ,red-alt))) + `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) + `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) + `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) + `(dir-treeview-indent-face ((,class :inherit shadow))) + `(dir-treeview-label-mouse-face ((,class :inherit highlight))) + `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) + `(dir-treeview-symlink-face ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) + `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) +;;;;; dired + `(dired-broken-symlink ((,class :inherit button :foreground ,red))) + `(dired-directory ((,class :foreground ,blue))) + `(dired-flagged ((,class :inherit modus-theme-mark-del))) + `(dired-header ((,class :inherit modus-theme-pseudo-header))) + `(dired-ignored ((,class :inherit shadow))) + `(dired-mark ((,class :inherit modus-theme-mark-symbol))) + `(dired-marked ((,class :inherit modus-theme-mark-sel))) + `(dired-perm-write ((,class :foreground ,fg-special-warm))) + `(dired-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) + `(dired-warning ((,class :inherit bold :foreground ,yellow))) +;;;;; dired-async + `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; dired-git + `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) + `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; dired-git-info + `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) +;;;;; dired-narrow + `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan 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 (())) +;;;;; diredc + `(diredc-face-chmod-font-lock-dir ((,class :foreground ,blue-alt))) + `(diredc-face-chmod-font-lock-exec ((,class :foreground ,magenta))) + `(diredc-face-chmod-font-lock-read ((,class :foreground ,fg-main))) + `(diredc-face-chmod-font-lock-write ((,class :foreground ,cyan))) +;;;;; diredfl + `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) + `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) + `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredfl-dir-name ((,class :inherit dired-directory))) + `(diredfl-dir-priv ((,class :foreground ,blue-alt))) + `(diredfl-exec-priv ((,class :foreground ,magenta))) + `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) + `(diredfl-file-name ((,class :foreground ,fg-main))) + `(diredfl-file-suffix ((,class :foreground ,cyan))) + `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredfl-ignored-file-name ((,class :inherit shadow))) + `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) + `(diredfl-no-priv ((,class :inherit shadow))) + `(diredfl-number ((,class :foreground ,cyan-alt))) + `(diredfl-other-priv ((,class :foreground ,yellow))) + `(diredfl-rare-priv ((,class :foreground ,red-alt))) + `(diredfl-read-priv ((,class :foreground ,fg-main))) + `(diredfl-symlink ((,class :inherit dired-symlink))) + `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredfl-write-priv ((,class :foreground ,cyan))) +;;;;; dired+ + `(diredp-autofile-name ((,class :inherit modus-theme-special-cold))) + `(diredp-compressed-file-name ((,class :foreground ,fg-special-warm))) + `(diredp-compressed-file-suffix ((,class :foreground ,red-alt))) + `(diredp-date-time ((,class :foreground ,cyan-alt-other))) + `(diredp-deletion ((,class :inherit modus-theme-mark-del))) + `(diredp-deletion-file-name ((,class :inherit modus-theme-mark-del))) + `(diredp-dir-heading ((,class :inherit modus-theme-pseudo-header))) + `(diredp-dir-name ((,class :inherit dired-directory))) + `(diredp-dir-priv ((,class :foreground ,blue-alt))) + `(diredp-exec-priv ((,class :foreground ,magenta))) + `(diredp-executable-tag ((,class :foreground ,magenta-alt))) + `(diredp-file-name ((,class :foreground ,fg-main))) + `(diredp-file-suffix ((,class :foreground ,cyan))) + `(diredp-flag-mark ((,class :inherit modus-theme-mark-sel))) + `(diredp-flag-mark-line ((,class :inherit modus-theme-mark-sel))) + `(diredp-ignored-file-name ((,class :inherit shadow))) + `(diredp-link-priv ((,class :foreground ,blue-alt-other))) + `(diredp-mode-line-flagged ((,class :foreground ,red-active))) + `(diredp-mode-line-marked ((,class :foreground ,green-active))) + `(diredp-no-priv ((,class :inherit shadow))) + `(diredp-number ((,class :foreground ,cyan-alt))) + `(diredp-omit-file-name ((,class :inherit shadow :strike-through t))) + `(diredp-other-priv ((,class :foreground ,yellow))) + `(diredp-rare-priv ((,class :foreground ,red-alt))) + `(diredp-read-priv ((,class :foreground ,fg-main))) + `(diredp-symlink ((,class :inherit dired-symlink))) + `(diredp-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) + `(diredp-write-priv ((,class :foreground ,cyan))) +;;;;; disk-usage + `(disk-usage-children ((,class :foreground ,yellow))) + `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) + `(disk-usage-percent ((,class :foreground ,green))) + `(disk-usage-size ((,class :foreground ,cyan))) + `(disk-usage-symlink ((,class :inherit button))) + `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) +;;;;; display-fill-column-indicator-mode + `(fill-column-indicator ((,class :foreground ,bg-active))) +;;;;; doom-modeline + `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) + `(doom-modeline-battery-charging ((,class :foreground ,green-active))) + `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) + :foreground ,red-active))) + `(doom-modeline-battery-full ((,class :foreground ,blue-active))) + `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) + `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) + `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) + `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) + `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) + `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) + `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-host ((,class :inherit italic))) + `(doom-modeline-info ((,class :foreground ,green-active))) + `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) + `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) + `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) + `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) + `(doom-modeline-persp-name ((,class :foreground ,fg-active))) + `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) + `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) + `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) + `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) + `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) + `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; dynamic-ruler + `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) + `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) +;;;;; easy-jekyll + `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) +;;;;; easy-kill + `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) + `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) +;;;;; ebdb + `(ebdb-address-default ((,class :foreground ,fg-special-calm))) + `(ebdb-defunct ((,class :inherit shadow))) + `(ebdb-field-hidden ((,class :foreground ,magenta))) + `(ebdb-label ((,class :foreground ,cyan-alt-other))) + `(ebdb-mail-default ((,class :foreground ,fg-main))) + `(ebdb-mail-primary ((,class :foreground ,magenta-alt))) + `(ebdb-marked ((,class :background ,cyan-intense-bg))) + `(ebdb-organization-name ((,class :foreground ,red-alt-other))) + `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) + `(ebdb-phone-default ((,class :foreground ,cyan))) + `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) +;;;;; ediff + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(ediff-current-diff-A ((,class ,@(modus-themes--diff + bg-dim red + bg-diff-removed fg-diff-removed + red-nuanced-bg red-faint)))) + `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff + bg-dim fg-special-cold + bg-special-cold fg-special-cold + blue-nuanced-bg blue)))) + `(ediff-current-diff-B ((,class ,@(modus-themes--diff + bg-dim green + bg-diff-added fg-diff-added + green-nuanced-bg green-faint + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(ediff-current-diff-C ((,class ,@(modus-themes--diff + bg-dim yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg yellow-faint)))) + `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) + `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) + `(ediff-fine-diff-B + ((,class :background ,@(modus-themes--diff-deuteran bg-diff-focus-added-deuteran bg-diff-focus-added) + :foreground ,@(modus-themes--diff-deuteran fg-diff-focus-added-deuteran fg-diff-focus-added)))) + `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) + `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) + `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) +;;;;; eglot + `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) +;;;;; el-search + `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) + `(el-search-match ((,class :inherit modus-theme-intense-green))) + `(el-search-other-match ((,class :inherit modus-theme-special-mild))) + `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) +;;;;; eldoc + ;; NOTE: see https://github.com/purcell/package-lint/issues/187 + (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; eldoc-box + `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) + `(eldoc-box-border ((,class :background ,fg-alt))) +;;;;; elfeed + `(elfeed-log-date-face ((,class :inherit elfeed-search-date-face))) + `(elfeed-log-debug-level-face ((,class :inherit elfeed-search-filter-face))) + `(elfeed-log-error-level-face ((,class :inherit error))) + `(elfeed-log-info-level-face ((,class :inherit success))) + `(elfeed-log-warn-level-face ((,class :inherit warning))) + `(elfeed-search-date-face ((,class :foreground ,cyan))) + `(elfeed-search-feed-face ((,class :foreground ,blue-faint))) + `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) + `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) + `(elfeed-search-tag-face ((,class :foreground ,cyan-alt-other))) + `(elfeed-search-title-face ((,class :foreground ,fg-dim))) + `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) + `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) +;;;;; elfeed-score + `(elfeed-score-date-face ((,class :foreground ,blue))) + `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) + `(elfeed-score-error-level-face ((,class :foreground ,red))) + `(elfeed-score-info-level-face ((,class :foreground ,cyan))) + `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) +;;;;; emms + `(emms-playlist-track-face ((,class :foreground ,blue))) + `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) +;;;;; enhanced-ruby-mode + `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) + `(enh-ruby-op-face ((,class :foreground ,fg-main))) + `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) + `(enh-ruby-regexp-face ((,class :foreground ,magenta))) + `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) + `(erm-syn-errline ((,class :foreground ,red :underline t))) + `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) +;;;;; epa + `(epa-field-body ((,class :foreground ,fg-main))) + `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) + `(epa-mark ((,class :inherit bold :foreground ,magenta))) + `(epa-string ((,class :foreground ,blue-alt))) + `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) + `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) + `(epa-validity-low ((,class :inherit shadow))) + `(epa-validity-medium ((,class :foreground ,green-alt))) +;;;;; equake + `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) + `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) + `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) + `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) + `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) + `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) + `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) + `(equake-tab-inactive ((,class :foreground ,fg-inactive))) +;;;;; erc + `(erc-action-face ((,class :inherit bold :foreground ,cyan))) + `(erc-bold-face ((,class :inherit bold))) + `(erc-button ((,class :inherit button))) + `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) + `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) + `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) + `(erc-direct-msg-face ((,class :foreground ,magenta))) + `(erc-error-face ((,class :inherit bold :foreground ,red))) + `(erc-fool-face ((,class :foreground ,fg-inactive))) + `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) + `(erc-input-face ((,class :foreground ,fg-special-calm))) + `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) + `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) + `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) + `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) + `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) + `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) + `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) + `(erc-notice-face ((,class :foreground ,fg-unfocused))) + `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) + `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) + `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) + `(erc-underline-face ((,class :underline t))) + `(bg:erc-color-face0 ((,class :background "white"))) + `(bg:erc-color-face1 ((,class :background "black"))) + `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) + `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) + `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) + `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) + `(bg:erc-color-face14 ((,class :background "gray60"))) + `(bg:erc-color-face15 ((,class :background "gray80"))) + `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) + `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) + `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) + `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) + `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) + `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) + `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) + `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) + `(fg:erc-color-face0 ((,class :foreground "white"))) + `(fg:erc-color-face1 ((,class :foreground "black"))) + `(fg:erc-color-face10 ((,class :foreground ,cyan))) + `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) + `(fg:erc-color-face12 ((,class :foreground ,blue))) + `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) + `(fg:erc-color-face14 ((,class :foreground "gray60"))) + `(fg:erc-color-face15 ((,class :foreground "gray80"))) + `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) + `(fg:erc-color-face3 ((,class :foreground ,green))) + `(fg:erc-color-face4 ((,class :foreground ,red))) + `(fg:erc-color-face5 ((,class :foreground ,red-alt))) + `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) + `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) + `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) + `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) +;;;;; eros + `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) + :background ,bg-dim :foreground ,fg-dim))) +;;;;; ert + `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) + `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) +;;;;; eshell + `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) + `(eshell-ls-backup ((,class :foreground ,yellow-alt))) + `(eshell-ls-clutter ((,class :foreground ,red-alt))) + `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) + `(eshell-ls-executable ((,class :foreground ,magenta-alt))) + `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) + `(eshell-ls-product ((,class :foreground ,fg-special-warm))) + `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) + `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) + `(eshell-ls-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) + `(eshell-prompt ((,class :inherit modus-theme-bold + ,@(modus-themes--prompt + green-alt-other + green-nuanced-bg green-alt + green-refine-bg fg-main)))) +;;;;; eshell-fringe-status + `(eshell-fringe-status-failure ((,class :foreground ,red))) + `(eshell-fringe-status-success ((,class :foreground ,green))) +;;;;; eshell-git-prompt + `(eshell-git-prompt-add-face ((,class :inherit shadow))) + `(eshell-git-prompt-branch-face ((,class :inherit shadow))) + `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) + `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) + `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) + `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) + `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) + `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) + `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) + `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) + `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) +;;;;; eshell-prompt-extras (epe) + `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) + `(epe-git-dir-face ((,class :foreground ,red-alt-other))) + `(epe-git-face ((,class :foreground ,cyan-alt))) + `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) + `(epe-pipeline-host-face ((,class :foreground ,blue))) + `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) + `(epe-pipeline-user-face ((,class :foreground ,magenta))) + `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(epe-status-face ((,class :foreground ,magenta-alt-other))) + `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) +;;;;; eshell-syntax-highlighting + `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) + `(eshell-syntax-highlighting-comment-face ((,class :inherit shadow))) + `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) + `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) + `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) + `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) + `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) + `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) +;;;;; evil-mode + `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) + `(evil-ex-info ((,class :foreground ,cyan-alt-other))) + `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(evil-ex-search ((,class :inherit modus-theme-intense-green))) + `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) + `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; evil-goggles + `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) + `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) + `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) + `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) + `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) + `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) + `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) + `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) + `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) + `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) + `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) + `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) +;;;;; evil-snipe + `(evil-snipe-first-match-face ((,class :inherit (bold modus-theme-intense-blue)))) + `(evil-snipe-matches-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; evil-visual-mark-mode + `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) +;;;;; eww + `(eww-invalid-certificate ((,class :foreground ,red-active))) + `(eww-valid-certificate ((,class :foreground ,green-active))) + `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) + `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) + `(eww-form-select ((,class :inherit eww-form-checkbox))) + `(eww-form-submit ((,class :inherit eww-form-file))) + `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) + `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) +;;;;; eyebrowse + `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) +;;;;; fancy-dabbrev + `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(fancy-dabbrev-preview-face ((,class :inherit shadow :underline t))) + `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) +;;;;; flycheck + `(flycheck-error ((,class :inherit modus-theme-lang-error))) + `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) + `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) + `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) + `(flycheck-error-list-filename ((,class :foreground ,blue))) + `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) + `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) + `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) + `(flycheck-error-list-info ((,class :foreground ,cyan))) + `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) + `(flycheck-error-list-warning ((,class :foreground ,yellow))) + `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) + `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) + `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) + `(flycheck-info ((,class :inherit modus-theme-lang-note))) + `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) + `(flycheck-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flycheck-color-mode-line + `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) + `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) + `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) +;;;;; flycheck-indicator + `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) + `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) + `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) + `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) + `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) +;;;;; flycheck-posframe + `(flycheck-posframe-background-face ((,class :background ,bg-alt))) + `(flycheck-posframe-border-face ((,class :inherit shadow))) + `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) + `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) + `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; flymake + `(flymake-error ((,class :inherit modus-theme-lang-error))) + `(flymake-note ((,class :inherit modus-theme-lang-note))) + `(flymake-warning ((,class :inherit modus-theme-lang-warning))) +;;;;; flyspell + `(flyspell-duplicate ((,class :inherit modus-theme-lang-warning))) + `(flyspell-incorrect ((,class :inherit modus-theme-lang-error))) +;;;;; flyspell-correct + `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) +;;;;; flx + `(flx-highlight-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) +;;;;; freeze-it + `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) +;;;;; frog-menu + `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) + `(frog-menu-actions-face ((,class :foreground ,magenta))) + `(frog-menu-border ((,class :background ,bg-active))) + `(frog-menu-candidates-face ((,class :foreground ,fg-main))) + `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) + `(frog-menu-prompt-face ((,class :foreground ,cyan))) +;;;;; focus + `(focus-unfocused ((,class :foreground ,fg-unfocused))) +;;;;; fold-this + `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) +;;;;; font-lock + `(font-lock-builtin-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt magenta-alt-faint blue-alt)))) + `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) + `(font-lock-comment-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-alt fg-comment-yellow)))) + `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra + blue-alt-other blue-alt-other-faint magenta-alt-other)))) + `(font-lock-doc-face ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-docstring + fg-docstring green-alt-other-faint + green-alt-other-faint magenta-nuanced-fg)))) + `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra + magenta magenta-faint magenta-alt)))) + `(font-lock-keyword-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) + `(font-lock-negation-char-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow yellow-faint)))) + `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground + red-alt-other red-alt-other-faint)))) + `(font-lock-regexp-grouping-backslash ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-backslash yellow-alt-faint + magenta-alt-other blue-alt)))) + `(font-lock-regexp-grouping-construct ((,class :inherit bold + ,@(modus-themes--syntax-string + fg-escape-char-construct red-alt-other-faint + red magenta-alt)))) + `(font-lock-string-face ((,class ,@(modus-themes--syntax-string + blue-alt blue-alt-faint green green-alt)))) + `(font-lock-type-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-extra + cyan-alt-other cyan-alt-faint cyan-alt)))) + `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra + cyan cyan-faint blue-alt-faint)))) + `(font-lock-warning-face ((,class :inherit modus-theme-bold + ,@(modus-themes--syntax-foreground + yellow-active yellow-alt-faint)))) +;;;;; forge + `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) + `(forge-post-date ((,class :foreground ,fg-special-cold))) + `(forge-topic-closed ((,class :inherit shadow))) + `(forge-topic-merged ((,class :inherit shadow))) + `(forge-topic-open ((,class :foreground ,fg-special-mild))) + `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) +;;;;; fountain-mode + `(fountain-character ((,class :foreground ,blue-alt-other))) + `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(fountain-dialog ((,class :foreground ,blue-alt))) + `(fountain-metadata-key ((,class :foreground ,green-alt-other))) + `(fountain-metadata-value ((,class :foreground ,blue))) + `(fountain-non-printing ((,class :inherit shadow))) + `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) + `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) + `(fountain-paren ((,class :foreground ,cyan))) + `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) + `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) + `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) + `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) + `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) + `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) + `(fountain-synopsis ((,class :foreground ,cyan-alt))) + `(fountain-trans ((,class :foreground ,yellow-alt-other))) +;;;;; geiser + `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) + `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) + `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) + `(geiser-font-lock-doc-link ((,class :inherit button))) + `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) + `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) + `(geiser-font-lock-repl-input ((,class :inherit bold))) + `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) + `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) + `(geiser-font-lock-xref-header ((,class :inherit bold))) + `(geiser-font-lock-xref-link ((,class :inherit button))) +;;;;; git-commit + `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) + `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) + `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(git-commit-comment-file ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-commit-keyword ((,class :foreground ,magenta))) + `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) + `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) + `(git-commit-pseudo-header ((,class :foreground ,blue))) + `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) +;;;;; git-gutter + `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) +;;;;; git-gutter-fr + `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-{gutter,fringe}+ + `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) + `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) + `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) + `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) + `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) + `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) +;;;;; git-lens + `(git-lens-added ((,class :inherit bold :foreground ,green))) + `(git-lens-deleted ((,class :inherit bold :foreground ,red))) + `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) + `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) + `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) +;;;;; git-rebase + `(git-rebase-comment-hash ((,class :inherit modus-theme-slant + ,@(modus-themes--syntax-comment + fg-special-cold red-nuanced-fg)))) + `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) + ,@(modus-themes--syntax-comment + fg-dim fg-special-warm)))) + `(git-rebase-description ((,class :foreground ,fg-main))) + `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) +;;;;; git-timemachine + `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) + `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) + `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) +;;;;; git-walktree + `(git-walktree-commit-face ((,class :foreground ,yellow))) + `(git-walktree-symlink-face ((,class :inherit button))) + `(git-walktree-tree-face ((,class :foreground ,magenta))) +;;;;; gnus + `(gnus-button ((,class :inherit button))) + `(gnus-cite-1 ((,class :foreground ,blue-faint))) + `(gnus-cite-10 ((,class :foreground ,yellow-alt-other))) + `(gnus-cite-11 ((,class :foreground ,magenta-alt))) + `(gnus-cite-2 ((,class :foreground ,green-alt-other))) + `(gnus-cite-3 ((,class :foreground ,red-alt-other))) + `(gnus-cite-4 ((,class :foreground ,cyan))) + `(gnus-cite-5 ((,class :foreground ,yellow-alt))) + `(gnus-cite-6 ((,class :foreground ,magenta))) + `(gnus-cite-7 ((,class :foreground ,green-alt))) + `(gnus-cite-8 ((,class :foreground ,magenta-alt-other))) + `(gnus-cite-9 ((,class :foreground ,cyan-alt))) + `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) + `(gnus-emphasis-bold ((,class :inherit bold))) + `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) + `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) + `(gnus-emphasis-italic ((,class :inherit italic))) + `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) + `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) + `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) + `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) + `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) + `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) + `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) + `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) + `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) + `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) + `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) + `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) + `(gnus-group-news-1-empty ((,class :foreground ,green))) + `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) + `(gnus-group-news-2-empty ((,class :foreground ,cyan))) + `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) + `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) + `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) + `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-group-news-6-empty ((,class :inherit shadow))) + `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) + `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) + `(gnus-header-content ((,class :inherit message-header-other))) + `(gnus-header-from ((,class :inherit message-header-to :underline nil))) + `(gnus-header-name ((,class :inherit message-header-name))) + `(gnus-header-newsgroups ((,class :inherit message-header-newsgroups))) + `(gnus-header-subject ((,class :inherit message-header-subject))) + `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) + `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) + `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) + `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) + `(gnus-server-denied ((,class :inherit bold :foreground ,red))) + `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) + `(gnus-server-opened ((,class :inherit bold :foreground ,green))) + `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) + `(gnus-splash ((,class :inherit shadow))) + `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) + `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) + `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) + `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) + `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) + `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) + `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) + `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) + `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) + `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) + `(gnus-summary-normal-read ((,class :inherit shadow))) + `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) + `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) + `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) + `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) +;;;;; golden-ratio-scroll-screen + `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; helm + `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) + `(helm-action ((,class :underline t))) + `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) + `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) + `(helm-bookmark-file ((,class :foreground ,fg-main))) + `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) + `(helm-bookmark-gnus ((,class :foreground ,magenta))) + `(helm-bookmark-info ((,class :foreground ,cyan-alt))) + `(helm-bookmark-man ((,class :foreground ,yellow-alt))) + `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) + `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) + `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) + `(helm-buffer-file ((,class :foreground ,fg-main))) + `(helm-buffer-modified ((,class :foreground ,yellow-alt))) + `(helm-buffer-not-saved ((,class :foreground ,red-alt))) + `(helm-buffer-process ((,class :foreground ,magenta))) + `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) + `(helm-buffer-size ((,class :inherit shadow))) + `(helm-candidate-number ((,class :foreground ,cyan-active))) + `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) + `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) + `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) + `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) + `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) + `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) + `(helm-ff-backup-file ((,class :inherit shadow))) + `(helm-ff-denied ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red)))) + `(helm-ff-directory ((,class :inherit helm-buffer-directory))) + `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) + `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) + `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) + `(helm-ff-executable ((,class :foreground ,magenta-alt))) + `(helm-ff-file ((,class :foreground ,fg-main))) + `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) + `(helm-ff-invalid-symlink ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-magenta + 'modus-theme-subtle-magenta + 'modus-theme-nuanced-magenta + magenta)))) + `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-yellow + 'modus-theme-subtle-yellow + 'modus-theme-nuanced-yellow + yellow-alt-other)))) + `(helm-ff-socket ((,class :foreground ,red-alt-other))) + `(helm-ff-suid ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-refine-red + 'modus-theme-nuanced-yellow + red-alt)))) + `(helm-ff-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(helm-ff-truename ((,class :foreground ,blue-alt-other))) + `(helm-fd-finish ((,class :foreground ,green-active))) + `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) + `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-grep-finish ((,class :foreground ,green-active))) + `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) + `(helm-grep-match ((,class :inherit modus-theme-special-calm))) + `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) + `(helm-history-deleted ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-red + 'modus-theme-intense-red + 'modus-theme-nuanced-red + red + 'bold)))) + `(helm-history-remote ((,class :foreground ,red-alt-other))) + `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) + `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-yellow + 'modus-theme-refine-yellow + 'modus-theme-nuanced-yellow + yellow + 'bold)))) + `(helm-locate-finish ((,class :foreground ,green-active))) + `(helm-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan + 'bold)))) + `(helm-match-item ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-subtle-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) + `(helm-moccur-buffer ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt-other cyan-alt-other-faint)))) + `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-intense-magenta + 'modus-theme-nuanced-magenta + magenta-alt + 'bold)))) + `(helm-non-file-buffer ((,class :inherit shadow))) + `(helm-prefarg ((,class :foreground ,red-active))) + `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(helm-selection ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-special-cold + nil + 'bold)))) + `(helm-selection-line ((,class :inherit modus-theme-special-cold))) + `(helm-separator ((,class :foreground ,fg-special-mild))) + `(helm-time-zone-current ((,class :foreground ,green))) + `(helm-time-zone-home ((,class :foreground ,magenta))) + `(helm-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(helm-top-columns ((,class :inherit helm-header))) + `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) + `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) +;;;;; helm-ls-git + `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) + `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) + `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) + `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) + `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) + `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) + `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) + `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) + `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) +;;;;; helm-switch-shell + `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) +;;;;; helm-xref + `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) + `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) +;;;;; helpful + `(helpful-heading ((,class :inherit modus-theme-heading-1))) +;;;;; highlight region or ad-hoc regexp + `(hi-aquamarine ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) + `(hi-black-b ((,class :inherit bold :background ,fg-main :foreground ,bg-main))) + `(hi-black-hb ((,class :inherit bold :background ,fg-alt :foreground ,bg-main))) + `(hi-blue ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(hi-blue-b ((,class :inherit (bold hi-blue)))) + `(hi-green ((,class :background ,green-subtle-bg :foreground ,fg-main))) + `(hi-green-b ((,class :inherit (bold hi-green)))) + `(hi-pink ((,class :background ,magenta-subtle-bg :foreground ,fg-main))) + `(hi-pink-b ((,class :inherit (bold hi-pink)))) + `(hi-red-b ((,class :inherit bold :background ,red-intense-bg :foreground ,fg-main))) + `(hi-salmon ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(hi-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-main))) + `(highlight ((,class :inherit modus-theme-subtle-blue))) + `(highlight-changes ((,class :foreground ,yellow-alt-other))) + `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) + `(hl-line ((,class :inherit modus-theme-hl-line))) +;;;;; highlight-blocks + `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) + `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) + `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) + `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) + `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) + `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) + `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) + `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) +;;;;; highlight-defined + `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) + `(highlight-defined-function-name-face ((,class :foreground ,magenta))) + `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) + `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) + `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) +;;;;; highlight-escape-sequences (`hes-mode') + `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) + `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) +;;;;; highlight-indentation + `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) + `(highlight-indentation-current-column-face ((,class :background ,bg-active))) +;;;;; highlight-numbers + `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) +;;;;; highlight-symbol + `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) +;;;;; highlight-thing + `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) +;;;;; hl-defined + `(hdefd-functions ((,class :foreground ,blue))) + `(hdefd-undefined ((,class :foreground ,red-alt))) + `(hdefd-variables ((,class :foreground ,cyan-alt))) +;;;;; hl-fill-column + `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) +;;;;; hl-todo + `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) +;;;;; hydra + `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) + `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) + `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) + `(hydra-face-red ((,class :inherit bold :foreground ,red))) + `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) +;;;;; hyperlist + `(hyperlist-condition ((,class :foreground ,green))) + `(hyperlist-hashtag ((,class :foreground ,yellow))) + `(hyperlist-operator ((,class :foreground ,blue-alt))) + `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) + `(hyperlist-quote ((,class :foreground ,cyan-alt))) + `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) + `(hyperlist-stars ((,class :inherit shadow))) + `(hyperlist-tag ((,class :foreground ,red))) + `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) +;;;;; icomplete + `(icomplete-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) +;;;;; icomplete-vertical + `(icomplete-vertical-separator ((,class :inherit shadow))) +;;;;; ido-mode + `(ido-first-match ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta bg-alt + bg-active fg-main)))) + `(ido-incomplete-regexp ((,class :inherit error))) + `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) + `(ido-only-match ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-intense-bg fg-main)))) + `(ido-subdir ((,class :foreground ,blue))) + `(ido-virtual ((,class :foreground ,fg-special-warm))) +;;;;; iedit + `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) + `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) +;;;;; iflipb + `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) + `(iflipb-other-buffer-face ((,class :inherit shadow))) +;;;;; imenu-list + `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) + `(imenu-list-entry-face-1 ((,class :foreground ,blue))) + `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) + `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) + `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) + `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) + `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) + `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) +;;;;; indium + `(indium-breakpoint-face ((,class :foreground ,red-active))) + `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) + `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) + `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) + `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) + `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) + `(indium-repl-stdout-face ((,class :foreground ,fg-main))) +;;;;; info + `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) ; the capitalization is canonical + :background ,bg-alt :foreground ,fg-special-calm))) + `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) + `(info-header-xref ((,class :foreground ,blue-active))) + `(info-index-match ((,class :inherit match))) + `(info-menu-header ((,class :inherit modus-theme-heading-3))) + `(info-menu-star ((,class :foreground ,red))) + `(info-node ((,class :inherit bold))) + `(info-title-1 ((,class :inherit modus-theme-heading-1))) + `(info-title-2 ((,class :inherit modus-theme-heading-2))) + `(info-title-3 ((,class :inherit modus-theme-heading-3))) + `(info-title-4 ((,class :inherit modus-theme-heading-4))) +;;;;; info-colors + `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) + `(info-colors-ref-item-command ((,class :foreground ,magenta))) + `(info-colors-ref-item-constant ((,class :inherit font-lock-constant-face))) + `(info-colors-ref-item-function ((,class :inherit font-lock-function-name-face))) + `(info-colors-ref-item-macro ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-other ((,class :inherit font-lock-doc-face))) + `(info-colors-ref-item-special-form ((,class :inherit font-lock-keyword-face))) + `(info-colors-ref-item-syntax-class ((,class :inherit font-lock-builtin-face))) + `(info-colors-ref-item-type ((,class :inherit font-lock-type-face))) + `(info-colors-ref-item-user-option ((,class :inherit font-lock-variable-name-face))) + `(info-colors-ref-item-variable ((,class :inherit font-lock-variable-name-face))) +;;;;; interaction-log + `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) + `(ilog-change-face ((,class :foreground ,magenta-alt))) + `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) + `(ilog-load-face ((,class :foreground ,green))) + `(ilog-message-face ((,class :inherit shadow))) + `(ilog-non-change-face ((,class :foreground ,blue))) +;;;;; ioccur + `(ioccur-cursor ((,class :foreground ,fg-main))) + `(ioccur-invalid-regexp ((,class :foreground ,red))) + `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) + `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) + `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) + `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) + `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) + `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) +;;;;; isearch, occur, and the like + `(isearch ((,class :inherit (modus-theme-intense-green bold)))) + `(isearch-fail ((,class :inherit modus-theme-refine-red))) + `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) + `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) + `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) + `(match ((,class :inherit modus-theme-special-calm))) + `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) +;;;;; isl (isearch-light) + `(isl-line ((,class :inherit modus-theme-subtle-green))) + `(isl-match ((,class :inherit modus-theme-refine-cyan))) + `(isl-number ((,class :inherit modus-theme-bold :foreground ,green-active))) + `(isl-on ((,class :inherit (bold modus-theme-intense-green)))) + `(isl-string ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; ivy + `(ivy-action ((,class :inherit bold :foreground ,red-alt))) + `(ivy-completions-annotations ((,class :inherit completions-annotations))) + `(ivy-confirm-face ((,class :foreground ,cyan))) + `(ivy-current-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-refine-cyan + 'modus-theme-intense-cyan + 'modus-theme-special-cold + nil + 'bold)))) + `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) + `(ivy-grep-info ((,class :foreground ,cyan-alt))) + `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) + `(ivy-highlight-face ((,class :foreground ,magenta))) + `(ivy-match-required-face ((,class :inherit error))) + `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-neutral + 'modus-theme-intense-neutral + 'modus-theme-nuanced-cyan + fg-alt)))) + `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-green + 'modus-theme-refine-green + 'modus-theme-nuanced-green + green-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other + 'bold)))) + `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other + 'bold)))) + `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-intense-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other + 'bold)))) + `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) + `(ivy-org ((,class :foreground ,cyan-alt-other))) + `(ivy-prompt-match ((,class :inherit ivy-current-match))) + `(ivy-remote ((,class :foreground ,magenta))) + `(ivy-separator ((,class :inherit shadow))) + `(ivy-subdir ((,class :foreground ,blue-alt-other))) + `(ivy-virtual ((,class :foreground ,magenta-alt-other))) + `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt)))) +;;;;; ivy-posframe + `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) + `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) + `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) +;;;;; jira (org-jira) + `(jiralib-comment-face ((,class :background ,bg-alt))) + `(jiralib-comment-header-face ((,class :inherit bold))) + `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) + `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) + `(jiralib-issue-summary-face ((,class :inherit bold))) + `(jiralib-link-filter-face ((,class :underline t))) + `(jiralib-link-issue-face ((,class :underline t))) + `(jiralib-link-project-face ((,class :underline t))) +;;;;; journalctl-mode + `(journalctl-error-face ((,class :inherit bold :foreground ,red))) + `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) + `(journalctl-host-face ((,class :foreground ,blue))) + `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) + `(journalctl-starting-face ((,class :foreground ,green))) + `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) + `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; js2-mode + `(js2-error ((,class :foreground ,red))) + `(js2-external-variable ((,class :foreground ,cyan-alt-other))) + `(js2-function-call ((,class :foreground ,magenta))) + `(js2-function-param ((,class :foreground ,blue))) + `(js2-instance-member ((,class :foreground ,magenta-alt-other))) + `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) + `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) + `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) + `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) + `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) + `(js2-object-property ((,class :foreground ,fg-main))) + `(js2-object-property-access ((,class :foreground ,fg-main))) + `(js2-private-function-call ((,class :foreground ,green-alt-other))) + `(js2-private-member ((,class :foreground ,fg-special-mild))) + `(js2-warning ((,class :foreground ,yellow-alt :underline t))) +;;;;; julia + `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) + `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) +;;;;; jupyter + `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) + `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) + `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) + `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) +;;;;; kaocha-runner + `(kaocha-runner-error-face ((,class :foreground ,red))) + `(kaocha-runner-success-face ((,class :foreground ,green))) + `(kaocha-runner-warning-face ((,class :foreground ,yellow))) +;;;;; keycast + `(keycast-command ((,class :inherit bold :foreground ,blue-active))) + `(keycast-key ((,class ,@(modus-themes--mode-line-attrs + bg-main blue-active + bg-main blue-active + blue-active blue-intense + 'alt-style -3)))) +;;;;; line numbers (display-line-numbers-mode and global variant) + `(line-number + ((,class :inherit default + ,@(modus-themes--line-numbers + fg-alt bg-dim + fg-unfocused)))) + `(line-number-current-line + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-main bg-active + blue-alt-other)))) + `(line-number-major-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + yellow-nuanced-fg yellow-nuanced-bg + red-alt)))) + `(line-number-minor-tick + ((,class :inherit (bold default) + ,@(modus-themes--line-numbers + fg-alt bg-inactive + fg-inactive)))) +;;;;; lsp-mode + `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) + `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) + `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) + `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-deprecated + ((,(append '((supports :underline (:style wave))) class) + :foreground ,yellow :underline (:style wave)) + (,class :foreground ,yellow :underline t))) + `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) + `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) + `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) + `(lsp-face-semhl-function ((,class :foreground ,magenta))) + `(lsp-face-semhl-method ((,class :foreground ,magenta))) + `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) + `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) + `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) + `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) + `(lsp-face-semhl-variable ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) + `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) + `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) + `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) + `(lsp-ui-doc-background ((,class :background ,bg-alt))) + `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-doc-url ((,class :inherit button))) + `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) + `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) + `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) + `(lsp-ui-peek-line-number ((,class :inherit shadow))) + `(lsp-ui-peek-list ((,class :background ,bg-dim))) + `(lsp-ui-peek-peek ((,class :background ,bg-alt))) + `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) + `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) + `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) + `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) + `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) +;;;;; macrostep + `(macrostep-compiler-macro-face ((,class :inherit italic))) + `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) + `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) + `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) + `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) + `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) + `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) + `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) +;;;;; magit + `(magit-bisect-bad ((,class :foreground ,red-alt-other))) + `(magit-bisect-good ((,class :foreground ,green-alt-other))) + `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) + `(magit-blame-date ((,class :foreground ,blue))) + `(magit-blame-dimmed ((,class :inherit shadow))) + `(magit-blame-hash ((,class :foreground ,fg-special-warm))) + `(magit-blame-heading ((,class :background ,bg-alt))) + `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) + `(magit-blame-margin ((,class :inherit magit-blame-highlight))) + `(magit-blame-name ((,class :foreground ,magenta-alt-other))) + `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) + `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) + `(magit-branch-local ((,class :foreground ,blue-alt))) + `(magit-branch-remote ((,class :foreground ,magenta-alt))) + `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) + `(magit-branch-upstream ((,class :inherit italic))) + `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces, though only for the standard actions, + ;; not the highlighted ones. This is because Magit's interaction + ;; model relies on highlighting the current diff hunk. + `(magit-diff-added ((,class ,@(modus-themes--diff + bg-main green + bg-diff-added fg-diff-added + green-nuanced-bg fg-diff-added + bg-diff-added-deuteran fg-diff-added-deuteran)))) + `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) + `(magit-diff-base ((,class ,@(modus-themes--diff + bg-main yellow + bg-diff-changed fg-diff-changed + yellow-nuanced-bg fg-diff-changed)))) + `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) + `(magit-diff-context ((,class :foreground ,fg-unfocused))) + `(magit-diff-context-highlight ((,class ,@(modus-themes--diff + bg-dim fg-dim + bg-inactive fg-inactive + bg-dim fg-alt)))) + `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) + `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) + `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) + ;; NOTE: here we break from the pattern of inheriting from the + ;; modus-theme-diff-* faces. + `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active + :foreground ,fg-inactive))) + `(magit-diff-hunk-heading-highlight + ((,class :inherit bold + :background ,@(modus-themes--diff-deuteran bg-region bg-diff-heading) + :foreground ,@(modus-themes--diff-deuteran fg-main fg-diff-heading)))) + `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) + `(magit-diff-hunk-region ((,class :inherit bold))) + `(magit-diff-lines-boundary ((,class :background ,fg-main))) + `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) + `(magit-diff-removed ((,class ,@(modus-themes--diff + bg-main red + bg-diff-removed fg-diff-removed + red-nuanced-bg fg-diff-removed)))) + `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) + `(magit-diffstat-added ((,class :foreground ,@(modus-themes--diff-deuteran blue green)))) + `(magit-diffstat-removed ((,class :foreground ,red))) + `(magit-dimmed ((,class :foreground ,fg-unfocused))) + `(magit-filename ((,class :foreground ,fg-special-cold))) + `(magit-hash ((,class :inherit shadow))) + `(magit-head ((,class :inherit magit-branch-local))) + `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) + `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) + `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) + `(magit-keyword ((,class :foreground ,magenta))) + `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) + `(magit-log-author ((,class :foreground ,cyan))) + `(magit-log-date ((,class :inherit shadow))) + `(magit-log-graph ((,class :foreground ,fg-dim))) + `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) + `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) + `(magit-process-ng ((,class :inherit error))) + `(magit-process-ok ((,class :inherit success))) + `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) + `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) + `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) + `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) + `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) + `(magit-refname ((,class :inherit shadow))) + `(magit-refname-pullreq ((,class :inherit shadow))) + `(magit-refname-stash ((,class :inherit shadow))) + `(magit-refname-wip ((,class :inherit shadow))) + `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) + `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) + `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) + `(magit-section-highlight ((,class :background ,bg-alt))) + `(magit-sequence-done ((,class :foreground ,green-alt))) + `(magit-sequence-drop ((,class :foreground ,red-alt))) + `(magit-sequence-exec ((,class :foreground ,magenta-alt))) + `(magit-sequence-head ((,class :foreground ,cyan-alt))) + `(magit-sequence-onto ((,class :inherit shadow))) + `(magit-sequence-part ((,class :foreground ,yellow-alt))) + `(magit-sequence-pick ((,class :foreground ,blue-alt))) + `(magit-sequence-stop ((,class :foreground ,red))) + `(magit-signature-bad ((,class :inherit bold :foreground ,red))) + `(magit-signature-error ((,class :foreground ,red-alt))) + `(magit-signature-expired ((,class :foreground ,yellow))) + `(magit-signature-expired-key ((,class :foreground ,yellow))) + `(magit-signature-good ((,class :foreground ,green))) + `(magit-signature-revoked ((,class :foreground ,magenta))) + `(magit-signature-untrusted ((,class :foreground ,cyan))) + `(magit-tag ((,class :foreground ,yellow-alt-other))) +;;;;; magit-imerge + `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) +;;;;; make-mode (makefiles) + `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) + `(makefile-space ((,class :background ,magenta-nuanced-bg))) +;;;;; man + `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) + `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) + `(Man-underline ((,class :foreground ,cyan :underline t))) +;;;;; marginalia + `(marginalia-archive ((,class :foreground ,green-nuanced-fg))) + `(marginalia-date ((,class :foreground ,blue-nuanced-fg))) + `(marginalia-char ((,class :foreground ,red-active))) + `(marginalia-documentation ((,class :foreground ,fg-special-cold :inherit modus-theme-slant))) + `(marginalia-file-modes ((,class :inherit shadow))) + `(marginalia-file-name ((,class :foreground ,fg-special-mild))) + `(marginalia-file-owner ((,class :foreground ,red-nuanced-fg))) + `(marginalia-key ((,class :foreground ,magenta-active))) + `(marginalia-mode ((,class :foreground ,cyan-active))) + `(marginalia-modified ((,class :foreground ,yellow-active))) + `(marginalia-number ((,class :foreground ,blue-active))) + `(marginalia-size ((,class :foreground ,green-active))) + `(marginalia-type ((,class :foreground ,fg-special-warm))) + `(marginalia-variable ((,class :foreground ,yellow-nuanced-fg))) + `(marginalia-version ((,class :foreground ,cyan-active))) +;;;;; markdown-mode + `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-bold-face ((,class :inherit bold))) + `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) + `(markdown-comment-face ((,class :inherit font-lock-comment-face))) + `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) + `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) + `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) + `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) + `(markdown-header-face ((t nil))) + `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) + `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) + `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) + `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) + `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) + `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) + `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) + `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,blue))) + `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,cyan))) + `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-mild))) + `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,magenta-alt))) + `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt + :foreground ,fg-alt))) + `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) + `(markdown-link-face ((,class :inherit button))) + `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(markdown-list-face ((,class :foreground ,fg-dim))) + `(markdown-markup-face ((,class :inherit shadow))) + `(markdown-math-face ((,class :foreground ,magenta-alt-other))) + `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) + `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) + `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) + `(markdown-plain-url-face ((,class :inherit markdown-link-face))) + `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) + `(markdown-reference-face ((,class :inherit markdown-markup-face))) + `(markdown-strike-through-face ((,class :strike-through t))) + `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(markdown-url-face ((,class :foreground ,blue-alt))) +;;;;; markup-faces (`adoc-mode') + `(markup-anchor-face ((,class :foreground ,fg-inactive))) + `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) + `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) + `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) + `(markup-command-face ((,class :foreground ,fg-inactive))) + `(markup-comment-face ((,class :inherit font-lock-comment-face))) + `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) + :inherit modus-theme-refine-magenta))) + `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-error-face ((,class :inherit bold :foreground ,red))) + `(markup-gen-face ((,class :foreground ,magenta-alt))) + `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) + `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) + `(markup-list-face ((,class :inherit modus-theme-special-calm))) + `(markup-meta-face ((,class :foreground ,fg-inactive))) + `(markup-meta-hide-face ((,class :inherit shadow))) + `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) + `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) + `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) + `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) + `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) + `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) + `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) + `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) + `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) + `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) + `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) + `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) + `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) + `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) + `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) + `(markup-value-face ((,class :foreground ,fg-inactive))) + `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) +;;;;; mentor + `(mentor-download-message ((,class :foreground ,fg-special-warm))) + `(mentor-download-name ((,class :foreground ,fg-special-cold))) + `(mentor-download-progress ((,class :foreground ,blue-alt-other))) + `(mentor-download-size ((,class :foreground ,magenta-alt-other))) + `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) + `(mentor-download-speed-up ((,class :foreground ,red-alt))) + `(mentor-download-state ((,class :foreground ,yellow-alt))) + `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(mentor-tracker-name ((,class :foreground ,magenta-alt))) +;;;;; messages + `(message-cited-text-1 ((,class :foreground ,blue-faint))) + `(message-cited-text-2 ((,class :foreground ,green-alt-other))) + `(message-cited-text-3 ((,class :foreground ,red-alt-other))) + `(message-cited-text-4 ((,class :foreground ,cyan))) + `(message-header-cc ((,class :foreground ,blue-alt-other))) + `(message-header-name ((,class :inherit bold :foreground ,cyan))) + `(message-header-newsgroups ((,class :inherit message-header-other))) + `(message-header-other ((,class :foreground ,fg-special-calm))) + `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt))) + `(message-header-to ((,class :inherit bold :foreground ,magenta-alt-other))) + `(message-header-xheader ((,class :foreground ,blue-alt))) + `(message-mml ((,class :foreground ,yellow))) + `(message-separator ((,class :inherit modus-theme-intense-neutral))) +;;;;; minibuffer-line + `(minibuffer-line ((,class :foreground ,fg-main))) +;;;;; minimap + `(minimap-active-region-background ((,class :background ,bg-active))) + `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) +;;;;; mmm-mode + `(mmm-cleanup-submode-face ((,class :background ,yellow-nuanced-bg))) + `(mmm-code-submode-face ((,class :background ,bg-alt))) + `(mmm-comment-submode-face ((,class :background ,blue-nuanced-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-nuanced-bg))) + `(mmm-default-submode-face ((,class :background ,bg-dim))) + `(mmm-init-submode-face ((,class :background ,magenta-nuanced-bg))) + `(mmm-output-submode-face ((,class :background ,red-nuanced-bg))) + `(mmm-special-submode-face ((,class :background ,green-nuanced-bg))) +;;;;; modeline + `(mode-line ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-active bg-active fg-dim bg-active + fg-alt bg-active 'alt-style nil bg-main)))) + `(mode-line-buffer-id ((,class :inherit bold))) + `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) + `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) + `(mode-line-inactive ((,class ,@(modus-themes--variable-pitch-ui) + ,@(modus-themes--mode-line-attrs + fg-inactive bg-inactive fg-alt bg-dim + bg-region bg-active)))) +;;;;; mood-line + `(mood-line-modified ((,class :foreground ,magenta-active))) + `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) + `(mood-line-status-info ((,class :foreground ,cyan-active))) + `(mood-line-status-neutral ((,class :foreground ,blue-active))) + `(mood-line-status-success ((,class :foreground ,green-active))) + `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) + `(mood-line-unimportant ((,class :foreground ,fg-inactive))) +;;;;; mpdel + `(mpdel-browser-directory-face ((,class :foreground ,blue))) + `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) +;;;;; mu4e + `(mu4e-attach-number-face ((,class :inherit bold :foreground ,fg-dim))) + `(mu4e-cited-1-face ((,class :foreground ,blue-faint))) + `(mu4e-cited-2-face ((,class :foreground ,green-alt-other))) + `(mu4e-cited-3-face ((,class :foreground ,red-alt-other))) + `(mu4e-cited-4-face ((,class :foreground ,cyan))) + `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) + `(mu4e-cited-6-face ((,class :foreground ,magenta))) + `(mu4e-cited-7-face ((,class :foreground ,green-alt))) + `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) + `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(mu4e-contact-face ((,class :inherit message-header-to))) + `(mu4e-context-face ((,class :foreground ,blue-active))) + `(mu4e-draft-face ((,class :foreground ,magenta-alt))) + `(mu4e-flagged-face ((,class :foreground ,red-alt))) + `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) + `(mu4e-header-face ((,class :inherit shadow))) + `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) + `(mu4e-header-key-face ((,class :inherit message-header-name))) + `(mu4e-header-marks-face ((,class :inherit mu4e-special-header-value-face))) + `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) + `(mu4e-header-value-face ((,class :inherit message-header-other))) + `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) + `(mu4e-link-face ((,class :inherit button))) + `(mu4e-modeline-face ((,class :foreground ,magenta-active))) + `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) + `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) + `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) + `(mu4e-replied-face ((,class :foreground ,blue))) + `(mu4e-special-header-value-face ((,class :inherit message-header-subject))) + `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) + `(mu4e-title-face ((,class :foreground ,fg-main))) + `(mu4e-trashed-face ((,class :foreground ,red))) + `(mu4e-unread-face ((,class :inherit bold))) + `(mu4e-url-number-face ((,class :foreground ,fg-alt))) + `(mu4e-view-body-face ((,class :foreground ,fg-main))) + `(mu4e-warning-face ((,class :inherit warning))) +;;;;; mu4e-conversation + `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) + `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) + `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) + `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) + `(mu4e-conversation-sender-4 ((,class :inherit shadow))) + `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) + `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) + `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) + `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) + `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) + `(mu4e-conversation-unread ((,class :inherit bold))) +;;;;; multiple-cursors + `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) + `(mc/cursor-face ((,class :inverse-video t))) + `(mc/region-face ((,class :inherit region))) +;;;;; neotree + `(neo-banner-face ((,class :foreground ,magenta))) + `(neo-button-face ((,class :inherit button))) + `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) + `(neo-expand-btn-face ((,class :foreground ,cyan))) + `(neo-file-link-face ((,class :foreground ,fg-main))) + `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) + `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) + `(neo-vc-added-face ((,class :foreground ,green))) + `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) + `(neo-vc-default-face ((,class :foreground ,fg-main))) + `(neo-vc-edited-face ((,class :foreground ,yellow))) + `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) + `(neo-vc-missing-face ((,class :foreground ,red-alt))) + `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) + `(neo-vc-needs-update-face ((,class :underline t))) + `(neo-vc-removed-face ((,class :strike-through t))) + `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) + `(neo-vc-up-to-date-face ((,class :inherit shadow))) + `(neo-vc-user-face ((,class :foreground ,magenta))) +;;;;; no-emoji + `(no-emoji ((,class :foreground ,cyan))) +;;;;; notmuch + `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) + `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) + `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) + `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) + `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) + `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) + `(notmuch-hello-logo-background ((,class :background "gray50"))) + `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) + `(notmuch-search-count ((,class :inherit shadow))) + `(notmuch-search-date ((,class :foreground ,cyan))) + `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) + `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) + `(notmuch-search-non-matching-authors ((,class :inherit shadow))) + `(notmuch-search-subject ((,class :foreground ,fg-dim))) + `(notmuch-search-unread-face ((,class :inherit bold))) + `(notmuch-tag-added + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,green :style wave)) + (,class :foreground ,green :underline t))) + `(notmuch-tag-deleted + ((,(append '((supports :underline (:style wave))) class) + :underline (:color ,red :style wave)) + (,class :foreground ,red :underline t))) + `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tag-flagged ((,class :foreground ,red-alt))) + `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) + `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) + `(notmuch-tree-match-date-face ((,class :inherit notmuch-search-date))) + `(notmuch-tree-match-face ((,class :foreground ,fg-main))) + `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) + `(notmuch-tree-no-match-face ((,class :inherit shadow))) + `(notmuch-tree-no-match-date-face ((,class :inherit shadow))) + `(notmuch-wash-cited-text ((,class :foreground ,cyan))) + `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; num3-mode + `(num3-face-even ((,class :inherit bold :background ,bg-alt))) +;;;;; nxml-mode + `(nxml-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) + `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) + `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) + `(nxml-cdata-section-CDATA ((,class :inherit error))) + `(nxml-cdata-section-delimiter ((,class :inherit error))) + `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(nxml-delimiter ((,class :foreground ,fg-dim))) + `(nxml-element-colon ((,class :foreground ,fg-main))) + `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) + `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) + `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) + `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) + `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) + `(nxml-heading ((,class :inherit bold))) + `(nxml-name ((,class :inherit font-lock-builtin-face))) + `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) + `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) + `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) + `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) + `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) + `(rng-error ((,class :inherit error))) +;;;;; objed + `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line + bg-hl-alt-intense bg-hl-alt)))) + `(objed-mark ((,class :background ,bg-active))) + `(objed-mode-line ((,class :foreground ,cyan-active))) +;;;;; orderless + `(orderless-match-face-0 ((,class :inherit bold + ,@(modus-themes--standard-completions + blue-alt-other blue-nuanced-bg + blue-refine-bg blue-refine-fg)))) + `(orderless-match-face-1 ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(orderless-match-face-2 ((,class :inherit bold + ,@(modus-themes--standard-completions + green green-nuanced-bg + green-refine-bg green-refine-fg)))) + `(orderless-match-face-3 ((,class :inherit bold + ,@(modus-themes--standard-completions + yellow yellow-nuanced-bg + yellow-refine-bg yellow-refine-fg)))) +;;;;; org + `(org-agenda-calendar-event ((,class :foreground ,fg-main))) + `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) + `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) + `(org-agenda-column-dateline ((,class :background ,bg-alt))) + `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) + `(org-agenda-date ((,class :foreground ,cyan))) + `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) + `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) + `(org-agenda-diary ((,class :foreground ,fg-main))) + `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) + `(org-agenda-done ((,class :foreground ,green-alt))) + `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) + `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) + `(org-agenda-structure ((,class ,@(modus-themes--scale modus-themes-scale-5) + :foreground ,blue-alt))) + `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) + `(org-block ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-main))) + `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) + ,@(modus-themes--org-block-delim + bg-dim fg-special-cold + bg-alt fg-special-mild)))) + `(org-block-end-line ((,class :inherit org-block-begin-line))) + `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) + :background ,bg-inactive :foreground ,fg-active))) + `(org-checkbox-statistics-done ((,class :inherit org-done))) + `(org-checkbox-statistics-todo ((,class :inherit org-todo))) + `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) + `(org-code ((,class ,@(modus-themes--mixed-fonts) + :background ,red-nuanced-bg :foreground ,magenta))) + `(org-column ((,class :background ,bg-alt))) + `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) + `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts + 'button + '(button fixed-pitch)) + ,@(modus-themes--link-color + cyan cyan-faint)))) + `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) + `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) + `(org-document-info ((,class :foreground ,fg-special-cold))) + `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold + ,@(modus-themes--scale modus-themes-scale-5)))) + `(org-done ((,class :foreground ,green))) + `(org-drawer ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-ellipsis ((,class))) ; inherits from the heading's color + `(org-footnote ((,class :inherit button + ,@(modus-themes--link-color + blue-alt blue-alt-faint)))) + `(org-formula ((,class ,@(modus-themes--mixed-fonts) + :foreground ,red-alt))) + `(org-habit-alert-face ((,class ,@(modus-themes--org-habit + yellow-graph-0-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-alert-future-face ((,class ,@(modus-themes--org-habit + yellow-graph-1-bg + yellow-graph-0-bg + yellow-graph-1-bg)))) + `(org-habit-clear-face ((,class ,@(modus-themes--org-habit + blue-graph-0-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-clear-future-face ((,class ,@(modus-themes--org-habit + blue-graph-1-bg + green-graph-1-bg + blue-graph-1-bg)))) + `(org-habit-overdue-face ((,class ,@(modus-themes--org-habit + red-graph-0-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-overdue-future-face ((,class ,@(modus-themes--org-habit + red-graph-1-bg + red-graph-0-bg + red-graph-1-bg)))) + `(org-habit-ready-face ((,class ,@(modus-themes--org-habit + green-graph-0-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-habit-ready-future-face ((,class ,@(modus-themes--org-habit + green-graph-1-bg + green-graph-0-bg + green-graph-1-bg)))) + `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) + `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) + `(org-hide ((,class :foreground ,bg-main))) + `(org-indent ((,class :inherit (fixed-pitch org-hide)))) + `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) + `(org-level-1 ((,class :inherit modus-theme-heading-1))) + `(org-level-2 ((,class :inherit modus-theme-heading-2))) + `(org-level-3 ((,class :inherit modus-theme-heading-3))) + `(org-level-4 ((,class :inherit modus-theme-heading-4))) + `(org-level-5 ((,class :inherit modus-theme-heading-5))) + `(org-level-6 ((,class :inherit modus-theme-heading-6))) + `(org-level-7 ((,class :inherit modus-theme-heading-7))) + `(org-level-8 ((,class :inherit modus-theme-heading-8))) + `(org-link ((,class :inherit button))) + `(org-list-dt ((,class :inherit bold))) + `(org-macro ((,class ,@(modus-themes--mixed-fonts) + :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) + `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) + `(org-mode-line-clock ((,class :foreground ,fg-main))) + `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) + `(org-priority ((,class :foreground ,magenta))) + `(org-property-value ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-quote ((,class :inherit modus-theme-slant + ,@(modus-themes--org-block bg-dim) + :foreground ,fg-special-cold))) + `(org-scheduled ((,class :foreground ,magenta-alt))) + `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) + `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) + `(org-sexp-date ((,class :inherit org-date))) + `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-alt))) + `(org-table ((,class ,@(modus-themes--mixed-fonts) + :foreground ,fg-special-cold))) + `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) + `(org-tag ((,class :foreground ,magenta-nuanced-fg))) + `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) + `(org-target ((,class :underline t))) + `(org-time-grid ((,class :foreground ,fg-unfocused))) + `(org-todo ((,class :foreground ,red))) + `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) + `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) + `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) + :background ,bg-alt :foreground ,fg-special-calm))) + `(org-verse ((,class :inherit org-quote))) + `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) +;;;;; org-journal + `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) + `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) + `(org-journal-highlight ((,class :foreground ,magenta-alt))) +;;;;; org-noter + `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) + `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) +;;;;; org-pomodoro + `(org-pomodoro-mode-line ((,class :foreground ,red-active))) + `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) + `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) +;;;;; org-recur + `(org-recur ((,class :foreground ,magenta-active))) +;;;;; org-roam + `(org-roam-link ((,class :inherit button + ,@(modus-themes--link-color + green green-faint)))) + `(org-roam-link-current ((,class :inherit button + ,@(modus-themes--link-color + green-alt green-alt-faint)))) + `(org-roam-link-invalid ((,class :inherit button + ,@(modus-themes--link-color + red red-faint)))) + `(org-roam-link-shielded ((,class :inherit button + ,@(modus-themes--link-color + yellow yellow-faint)))) + `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) +;;;;; org-superstar + `(org-superstar-item ((,class :foreground ,fg-main))) + `(org-superstar-leading ((,class :foreground ,fg-whitespace))) +;;;;; org-table-sticky-header + `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) +;;;;; org-tree-slide + `(org-tree-slide-header-overlay-face + ((,class :inherit (bold modus-theme-variable-pitch) :background ,bg-main + :foreground ,fg-special-cold :overline nil + ,@(modus-themes--scale modus-themes-scale-5)))) +;;;;; org-treescope + `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) + `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) +;;;;; origami + `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) + `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) +;;;;; outline-mode + `(outline-1 ((,class :inherit modus-theme-heading-1))) + `(outline-2 ((,class :inherit modus-theme-heading-2))) + `(outline-3 ((,class :inherit modus-theme-heading-3))) + `(outline-4 ((,class :inherit modus-theme-heading-4))) + `(outline-5 ((,class :inherit modus-theme-heading-5))) + `(outline-6 ((,class :inherit modus-theme-heading-6))) + `(outline-7 ((,class :inherit modus-theme-heading-7))) + `(outline-8 ((,class :inherit modus-theme-heading-8))) +;;;;; outline-minor-faces + `(outline-minor-0 ((,class :background ,bg-alt))) +;;;;; package (M-x list-packages) + `(package-description ((,class :foreground ,fg-special-cold))) + `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) + `(package-name ((,class :inherit button))) + `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) + `(package-status-available ((,class :foreground ,fg-special-mild))) + `(package-status-built-in ((,class :foreground ,magenta))) + `(package-status-dependency ((,class :foreground ,magenta-alt-other))) + `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) + `(package-status-external ((,class :foreground ,cyan-alt-other))) + `(package-status-held ((,class :foreground ,yellow-alt))) + `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) + `(package-status-installed ((,class :foreground ,fg-special-warm))) + `(package-status-new ((,class :inherit bold :foreground ,green))) + `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) +;;;;; page-break-lines + `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) +;;;;; paradox + `(paradox-archive-face ((,class :foreground ,fg-special-mild))) + `(paradox-comment-face ((,class :inherit font-lock-comment-face))) + `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) + `(paradox-description-face ((,class :foreground ,fg-special-cold))) + `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) + `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) + `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) + `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) + `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) + `(paradox-name-face ((,class :foreground ,blue :underline t))) + `(paradox-star-face ((,class :foreground ,magenta))) + `(paradox-starred-face ((,class :foreground ,magenta-alt))) +;;;;; paren-face + `(parenthesis ((,class :foreground ,fg-unfocused))) +;;;;; parrot + `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) +;;;;; pass + `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) + `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) +;;;;; pdf-tools + `(pdf-links-read-link ((,class :background ,fg-main :foreground ,magenta-intense-bg :inherit bold))) ; Foreground is background and vice versa + `(pdf-occur-document-face ((,class :inherit shadow))) + `(pdf-occur-page-face ((,class :inherit shadow))) +;;;;; persp-mode + `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) + `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) + `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) +;;;;; perspective + `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) +;;;;; phi-grep + `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) + `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) + `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) + `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) +;;;;; phi-search + `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) + `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) + `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) + `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) +;;;;; pkgbuild-mode + `(pkgbuild-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; pomidor + `(pomidor-break-face ((,class :foreground ,blue-alt-other))) + `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) + `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(pomidor-work-face ((,class :foreground ,green-alt-other))) +;;;;; popup + `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) + `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) + `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) + `(popup-scroll-bar-background-face ((,class :background ,bg-active))) + `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) + `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) + `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) +;;;;; powerline + `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) + `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) + `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) + `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) + `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) +;;;;; powerline-evil + `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) + `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) + `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) + `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) + `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) + `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) + `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) + `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) +;;;;; proced + `(proced-mark ((,class :inherit modus-theme-mark-symbol))) + `(proced-marked ((,class :inherit modus-theme-mark-alt))) + `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) +;;;;; prodigy + `(prodigy-green-face ((,class :foreground ,green))) + `(prodigy-red-face ((,class :foreground ,red))) + `(prodigy-yellow-face ((,class :foreground ,yellow))) +;;;;; quick-peek + `(quick-peek-background-face ((,class :background ,bg-alt))) + `(quick-peek-border-face ((,class :background ,fg-window-divider-inner :height 1))) + `(quick-peek-padding-face ((,class :background ,bg-alt :height 0.15))) +;;;;; racket-mode + `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) + `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) + :foreground ,green-alt-other))) + `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) + :foreground ,green))) + `(racket-here-string-face ((,class :foreground ,blue-alt))) + `(racket-keyword-argument-face ((,class :foreground ,red-alt))) + `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) + `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) + `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) + `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) + `(racket-selfeval-face ((,class :foreground ,green-alt))) + `(racket-xp-error-face ((,class :inherit modus-theme-lang-error))) +;;;;; rainbow-blocks + `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) + `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) + `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) + `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) + `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) + `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) + `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) + `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) + `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) + `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) +;;;;; rainbow-identifiers + `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) + `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) + `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) + `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) + `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) + `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) + `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) + `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) + `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) + `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) + `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) + `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) + `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) + `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) + `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) +;;;;; rainbow-delimiters + `(rainbow-delimiters-base-error-face ((,class :background ,red-subtle-bg :foreground ,fg-main))) + `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg-main))) + `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-intense))) + `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-intense))) + `(rainbow-delimiters-depth-4-face ((,class :foreground ,orange-intense))) + `(rainbow-delimiters-depth-5-face ((,class :foreground ,purple-intense))) + `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-intense))) + `(rainbow-delimiters-depth-7-face ((,class :foreground ,red-intense))) + `(rainbow-delimiters-depth-8-face ((,class :foreground ,blue-intense))) + `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-intense))) + `(rainbow-delimiters-mismatched-face ((,class :inherit (bold modus-theme-refine-yellow)))) + `(rainbow-delimiters-unmatched-face ((,class :inherit (bold modus-theme-refine-red)))) +;;;;; rcirc + `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) + `(rcirc-dim-nick ((,class :inherit shadow))) + `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) + `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) + `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) + `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) + `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) + `(rcirc-server ((,class :foreground ,fg-unfocused))) + `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) + `(rcirc-url ((,class :foreground ,blue :underline t))) +;;;;; recursion-indicator + `(recursion-indicator-general ((,class :foreground ,blue-active))) + `(recursion-indicator-minibuffer ((,class :foreground ,red-active))) +;;;;; regexp-builder (re-builder) + `(reb-match-0 ((,class :inherit modus-theme-refine-cyan))) + `(reb-match-1 ((,class :inherit modus-theme-subtle-magenta))) + `(reb-match-2 ((,class :inherit modus-theme-subtle-green))) + `(reb-match-3 ((,class :inherit modus-theme-refine-yellow))) + `(reb-regexp-grouping-backslash ((,class :inherit font-lock-regexp-grouping-backslash))) + `(reb-regexp-grouping-construct ((,class :inherit font-lock-regexp-grouping-construct))) +;;;;; rg (rg.el) + `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) + `(rg-context-face ((,class :foreground ,fg-unfocused))) + `(rg-error-face ((,class :inherit bold :foreground ,red))) + `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) + `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) + `(rg-line-number-face ((,class :foreground ,fg-special-warm))) + `(rg-literal-face ((,class :foreground ,blue-alt))) + `(rg-match-face ((,class :inherit modus-theme-special-calm))) + `(rg-regexp-face ((,class :foreground ,magenta-active))) + `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) + `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) + `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) +;;;;; ripgrep + `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) + `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) + `(ripgrep-hit-face ((,class :foreground ,cyan))) + `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) +;;;;; rmail + `(rmail-header-name ((,class :foreground ,cyan-alt-other))) + `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) +;;;;; ruler-mode + `(ruler-mode-column-number ((,class :inherit ruler-mode-default :foreground ,fg-main))) + `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red))) + `(ruler-mode-current-column ((,class :inherit ruler-mode-default :background ,blue-subtle-bg :foreground ,fg-main))) + `(ruler-mode-default ((,class :inherit default :background ,bg-alt :foreground ,fg-unfocused))) + `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green))) + `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,cyan))) + `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,blue))) + `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) + `(ruler-mode-pad ((,class :inherit ruler-mode-default :background ,bg-active :foreground ,fg-inactive))) + `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,fg-special-warm))) +;;;;; sallet + `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) + `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) + `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) + `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) + `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) + `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) + `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) + `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) + `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) + `(sallet-flx-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-cyan + 'modus-theme-refine-cyan + 'modus-theme-nuanced-cyan + cyan-alt-other)))) + `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) + `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) + `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-magenta + 'modus-theme-refine-magenta + 'modus-theme-nuanced-magenta + magenta-alt-other)))) + `(sallet-source-header ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(sallet-substring-match ((,class ,@(modus-themes--extra-completions + 'modus-theme-subtle-blue + 'modus-theme-refine-blue + 'modus-theme-nuanced-blue + blue-alt-other)))) +;;;;; selectrum +;; NOTE 2021-02-22: The `selectrum-primary-highlight' and +;; `selectrum-secondary-highlight' are deprecated upstream in favour of +;; their selectrum-prescient counterparts. We shall remove those faces +;; from the themes once we are certain that they are no longer relevant. + `(selectrum-current-candidate + ((,class :inherit bold :foreground ,fg-main + :background ,@(pcase modus-themes-completions + ('opinionated (list bg-active)) + (_ (list bg-inactive)))))) + `(selectrum-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; selectrum-prescient + `(selectrum-prescient-primary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + magenta-alt magenta-nuanced-bg + magenta-refine-bg magenta-refine-fg)))) + `(selectrum-prescient-secondary-highlight + ((,class :inherit bold + ,@(modus-themes--standard-completions + cyan-alt-other cyan-nuanced-bg + cyan-refine-bg cyan-refine-fg)))) +;;;;; semantic + `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) + `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) + `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) + `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) + `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) + `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) + `(semantic-highlight-edits-face ((,class :background ,bg-alt))) + `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) + `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) + `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) + `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) +;;;;; sesman + `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) + `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) + `(sesman-buffer-face ((,class :foreground ,magenta))) + `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) + `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; shell-script-mode + `(sh-heredoc ((,class :foreground ,blue-alt))) + `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) +;;;;; shortdoc + `(shortdoc-heading ((,class :inherit modus-theme-pseudo-header))) + `(shortdoc-section ((,class))) ; remove the default's variable-pitch style +;;;;; show-paren-mode + `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) + `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) +;;;;; shr + `(shr-abbreviation + ((,(append '((supports :underline (:style wave))) class) + :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) + (,class :foreground ,fg-docstring :underline t))) + `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) +;;;;; side-notes + `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) +;;;;; sieve-mode + `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) + `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) + `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) + `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) +;;;;; skewer-mode + `(skewer-error-face ((,class :foreground ,red :underline t))) +;;;;; smart-mode-line + `(sml/charging ((,class :foreground ,green-active))) + `(sml/discharging ((,class :foreground ,red-active))) + `(sml/filename ((,class :inherit bold :foreground ,blue-active))) + `(sml/folder ((,class :foreground ,fg-active))) + `(sml/git ((,class :inherit bold :foreground ,green-active))) + `(sml/global ((,class :foreground ,fg-active))) + `(sml/line-number ((,class :inherit sml/global))) + `(sml/minor-modes ((,class :inherit sml/global))) + `(sml/modes ((,class :inherit bold :foreground ,fg-active))) + `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) + `(sml/mule-info ((,class :inherit sml/global))) + `(sml/name-filling ((,class :foreground ,yellow-active))) + `(sml/not-modified ((,class :inherit sml/global))) + `(sml/numbers-separator ((,class :inherit sml/global))) + `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) + `(sml/position-percentage ((,class :inherit sml/global))) + `(sml/prefix ((,class :foreground ,green-active))) + `(sml/process ((,class :inherit sml/prefix))) + `(sml/projectile ((,class :inherit sml/git))) + `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) + `(sml/remote ((,class :inherit sml/global))) + `(sml/sudo ((,class :inherit modus-theme-subtle-red))) + `(sml/time ((,class :inherit sml/global))) + `(sml/vc ((,class :inherit sml/git))) + `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) +;;;;; smartparens + `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) + `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) + `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match + bg-paren-match-intense) + :foreground ,fg-main))) + `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) + `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) + `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) +;;;;; smerge + `(smerge-base ((,class :inherit modus-theme-diff-changed))) + `(smerge-lower ((,class :inherit modus-theme-diff-added))) + `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) + `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) + `(smerge-refined-changed ((,class))) + `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) + `(smerge-upper ((,class :inherit modus-theme-diff-removed))) +;;;;; solaire + `(solaire-default-face ((,class :inherit default :background ,bg-alt :foreground ,fg-dim))) + `(solaire-line-number-face ((,class :inherit solaire-default-face :foreground ,fg-unfocused))) + `(solaire-hl-line-face ((,class :background ,bg-active))) + `(solaire-org-hide-face ((,class :background ,bg-alt :foreground ,bg-alt))) +;;;;; spaceline + `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) + `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) + `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) + `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) + `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) + `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) + `(spaceline-flycheck-error ((,class :foreground ,red-active))) + `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) + `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) + `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) + `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) + `(spaceline-python-venv ((,class :foreground ,magenta-active))) + `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) + `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) +;;;;; speedbar + `(speedbar-button-face ((,class :inherit button))) + `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) + `(speedbar-file-face ((,class :foreground ,fg-main))) + `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) + `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) + `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) + `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) +;;;;; spell-fu + `(spell-fu-incorrect-face ((,class :inherit modus-theme-lang-error))) +;;;;; spray + `(spray-accent-face ((,class :foreground ,red-intense))) + `(spray-base-face ((,class :inherit default :foreground ,fg-special-cold))) +;;;;; stripes + `(stripes ((,class :inherit modus-theme-hl-line))) +;;;;; success + `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) +;;;;; switch-window + `(switch-window-background ((,class :background ,bg-dim))) + `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) +;;;;; swiper + `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) + `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) + `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) + `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) + `(swiper-line-face ((,class :inherit modus-theme-special-cold))) + `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) + `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) + `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) + `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) +;;;;; swoop + `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt + ,@(modus-themes--scale modus-themes-scale-3)))) + `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt + ,@(modus-themes--scale modus-themes-scale-4)))) + `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) + `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) + `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) +;;;;; sx + `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) + `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) + `(sx-question-list-answers ((,class :foreground ,green))) + `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) + `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) + `(sx-question-list-date ((,class :foreground ,fg-special-cold))) + `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) + `(sx-question-list-parent ((,class :foreground ,fg-main))) + `(sx-question-list-read-question ((,class :inherit shadow))) + `(sx-question-list-score ((,class :foreground ,fg-special-mild))) + `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) + `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) + `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) + `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) + `(sx-question-mode-content-face ((,class :background ,bg-dim))) + `(sx-question-mode-date ((,class :foreground ,blue))) + `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) + `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) + `(sx-question-mode-score ((,class :foreground ,fg-dim))) + `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) + `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) + `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) + `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) + `(sx-tag ((,class :foreground ,magenta-alt))) + `(sx-user-name ((,class :foreground ,blue-alt))) + `(sx-user-reputation ((,class :inherit shadow))) +;;;;; symbol-overlay + `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) + `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) + `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) + `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) + `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) + `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) + `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) + `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) + `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) +;;;;; syslog-mode + `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) + `(syslog-error ((,class :inherit bold :foreground ,red))) + `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) + `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) + `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) + `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) + `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) + `(syslog-su ((,class :inherit bold :foreground ,red-alt))) + `(syslog-warn ((,class :inherit bold :foreground ,yellow))) +;;;;; tab-bar-mode + `(tab-bar ((,class ,@(modus-themes--variable-pitch-ui) + :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) +;;;;; tab-line-mode + `(tab-line ((,class ,@(modus-themes--variable-pitch-ui) + :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) + `(tab-line-close-highlight ((,class :foreground ,red))) + `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) + `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) + :background ,bg-tab-active :foreground ,fg-main))) + `(tab-line-tab-current ((,class :inherit tab-line-tab))) + `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) + :background ,bg-tab-inactive :foreground ,fg-dim))) + `(tab-line-tab-inactive-alternate ((,class :box (:line-width 2 :color ,bg-tab-inactive-alt) + :background ,bg-tab-inactive-alt :foreground ,fg-main))) +;;;;; table (built-in table.el) + `(table-cell ((,class :background ,blue-nuanced-bg))) +;;;;; telephone-line + `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) + `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) + `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) + `(telephone-line-evil ((,class :foreground ,fg-main))) + `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) + `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) + `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) + `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) + `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) + `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) + `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) + `(telephone-line-projectile ((,class :foreground ,cyan-active))) + `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) + `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) +;;;;; terraform-mode + `(terraform--resource-name-face ((,class ,@(modus-themes--syntax-string + magenta-alt-other magenta-alt-other-faint + red-alt red-alt)))) + `(terraform--resource-type-face ((,class ,@(modus-themes--syntax-string + green green-faint + blue-alt magenta-alt)))) +;;;;; term + `(term ((,class :background ,bg-main :foreground ,fg-main))) + `(term-bold ((,class :inherit bold))) + `(term-color-black ((,class :background "gray35" :foreground "gray35"))) + `(term-color-blue ((,class :background ,blue :foreground ,blue))) + `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(term-color-green ((,class :background ,green :foreground ,green))) + `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(term-color-red ((,class :background ,red :foreground ,red))) + `(term-color-white ((,class :background "gray65" :foreground "gray65"))) + `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) + `(term-underline ((,class :underline t))) +;;;;; tomatinho + `(tomatinho-ok-face ((,class :foreground ,blue-intense))) + `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) + `(tomatinho-reset-face ((,class :inherit shadow))) +;;;;; transient + `(transient-active-infix ((,class :inherit modus-theme-special-mild))) + `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) + `(transient-argument ((,class :inherit bold :foreground ,red-alt))) + `(transient-blue ((,class :inherit bold :foreground ,blue))) + `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) + `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) + `(transient-heading ((,class :inherit bold :foreground ,fg-main))) + `(transient-inactive-argument ((,class :inherit shadow))) + `(transient-inactive-value ((,class :inherit shadow))) + `(transient-key ((,class :inherit bold :foreground ,blue))) + `(transient-mismatched-key ((,class :underline t))) + `(transient-nonstandard-key ((,class :underline t))) + `(transient-pink ((,class :inherit bold :foreground ,magenta))) + `(transient-red ((,class :inherit bold :foreground ,red-intense))) + `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) + `(transient-unreachable ((,class :foreground ,fg-unfocused))) + `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) + `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) +;;;;; trashed + `(trashed-deleted ((,class :inherit modus-theme-mark-del))) + `(trashed-directory ((,class :foreground ,blue))) + `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) + `(trashed-marked ((,class :inherit modus-theme-mark-alt))) + `(trashed-restored ((,class :inherit modus-theme-mark-sel))) + `(trashed-symlink ((,class :inherit button + ,@(modus-themes--link-color + cyan-alt cyan-alt-faint)))) +;;;;; treemacs + `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) + `(treemacs-directory-face ((,class :inherit dired-directory))) + `(treemacs-file-face ((,class :foreground ,fg-main))) + `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) + `(treemacs-git-added-face ((,class :foreground ,green-intense))) + `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) + `(treemacs-git-ignored-face ((,class :inherit shadow))) + `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) + `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) + `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) + `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) + `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) + `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) + `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) + `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) + `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) + `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) + `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) + `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) + `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) + `(treemacs-tags-face ((,class :foreground ,blue-alt))) + `(treemacs-tags-face ((,class :foreground ,magenta-alt))) +;;;;; tty-menu + `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) + `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) + `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) +;;;;; tuareg + `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) + `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) + `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) + `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) + `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) + `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) + `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) + `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) + `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) + `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) + `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) + `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) + `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) + `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) + `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) + `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground ,blue))) + `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) + `(tuareg-opam-error-face ((,class :inherit error))) + `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) +;;;;; typescript + `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) + `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) + `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) +;;;;; undo-tree + `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) + `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) + `(undo-tree-visualizer-default-face ((,class :inherit shadow))) + `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) + `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) +;;;;; vc (vc-dir.el, vc-hooks.el) + `(vc-dir-directory ((,class :foreground ,blue))) + `(vc-dir-file ((,class :foreground ,fg-main))) + `(vc-dir-header ((,class :foreground ,cyan-alt-other))) + `(vc-dir-header-value ((,class :foreground ,magenta-alt-other))) + `(vc-dir-mark-indicator ((,class :foreground ,blue-alt-other))) + `(vc-dir-status-edited ((,class :foreground ,yellow))) + `(vc-dir-status-ignored ((,class :foreground ,fg-unfocused))) + `(vc-dir-status-up-to-date ((,class :foreground ,cyan))) + `(vc-dir-status-warning ((,class :foreground ,red))) + `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) + `(vc-edited-state ((,class :foreground ,yellow-active))) + `(vc-locally-added-state ((,class :foreground ,cyan-active))) + `(vc-locked-state ((,class :foreground ,blue-active))) + `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) + `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) + `(vc-removed-state ((,class :foreground ,red-active))) + `(vc-state-base ((,class :foreground ,fg-active))) + `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) +;;;;; vdiff + `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) + `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) + `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) + `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) + `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) + `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) + `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) +;;;;; vimish-fold + `(vimish-fold-fringe ((,class :foreground ,cyan-active))) + `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) + `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) +;;;;; visible-mark + `(visible-mark-active ((,class :background ,blue-intense-bg))) + `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) + `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) + `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) + `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) +;;;;; visual-regexp + `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) + `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) + `(vr/group-2 ((,class :inherit modus-theme-intense-green))) + `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) + `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) +;;;;; volatile-highlights + `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) +;;;;; vterm + `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) + `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) + `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) + `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) + `(vterm-color-green ((,class :background ,green :foreground ,green))) + `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) + `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) + `(vterm-color-red ((,class :background ,red :foreground ,red))) + `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) + `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) + `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) +;;;;; wcheck-mode + `(wcheck-default-face ((,class :foreground ,red :underline t))) +;;;;; web-mode + `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) + `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) + `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) + `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) + `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) + `(web-mode-block-face ((,class :background ,bg-dim))) + `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-bold-face ((,class :inherit bold))) + `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) + `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) + `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) + `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) + `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) + `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) + `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) + `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) + `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) + `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) + `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) + `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-folded-face ((,class :underline t))) + `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) + `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) + `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) + `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) + `(web-mode-inlay-face ((,class :background ,bg-alt))) + `(web-mode-italic-face ((,class :inherit italic))) + `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) + `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) + `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) + `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) + `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) + `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) + `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) + `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) + `(web-mode-part-face ((,class :inherit web-mode-block-face))) + `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) + `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) + `(web-mode-script-face ((,class :inherit web-mode-part-face))) + `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) + `(web-mode-string-face ((,class :inherit font-lock-string-face))) + `(web-mode-style-face ((,class :inherit web-mode-part-face))) + `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) + `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) + `(web-mode-underline-face ((,class :underline t))) + `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) + `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) + `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) +;;;;; wgrep + `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) + `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) + `(wgrep-face ((,class :inherit modus-theme-refine-green))) + `(wgrep-file-face ((,class :foreground ,fg-special-warm))) + `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) +;;;;; which-function-mode + `(which-func ((,class :foreground ,magenta-active))) +;;;;; which-key + `(which-key-command-description-face ((,class :foreground ,fg-main))) + `(which-key-group-description-face ((,class :foreground ,magenta-alt))) + `(which-key-highlighted-command-face ((,class :foreground ,yellow :underline t))) + `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) + `(which-key-local-map-description-face ((,class :foreground ,fg-main))) + `(which-key-note-face ((,class :foreground ,fg-special-warm))) + `(which-key-separator-face ((,class :inherit shadow))) + `(which-key-special-key-face ((,class :inherit bold :foreground ,orange-intense))) +;;;;; whitespace-mode + `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) + `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) + `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-line ((,class :background ,bg-alt))) + `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) + `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) + `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) + `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) +;;;;; window-divider-mode + `(window-divider ((,class :foreground ,fg-window-divider-inner))) + `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) + `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) +;;;;; winum + `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) +;;;;; writegood-mode + `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) + `(writegood-passive-voice-face ((,class :inherit modus-theme-lang-warning))) + `(writegood-weasels-face ((,class :inherit modus-theme-lang-error))) +;;;;; woman + `(woman-addition ((,class :foreground ,magenta-alt-other))) + `(woman-bold ((,class :inherit bold :foreground ,magenta))) + `(woman-italic ((,class :inherit italic :foreground ,cyan))) + `(woman-unknown ((,class :inherit italic :foreground ,yellow))) +;;;;; xah-elisp-mode + `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) + `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) + `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) + `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) +;;;;; xref + `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) + `(xref-line-number ((,class :inherit shadow))) + `(xref-match ((,class :inherit match))) +;;;;; yaml-mode + `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) +;;;;; yasnippet + `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) +;;;;; ztree + `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) + `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) + `(ztreep-diff-model-add-face ((,class :foreground ,green))) + `(ztreep-diff-model-diff-face ((,class :foreground ,red))) + `(ztreep-diff-model-ignored-face ((,class :inherit shadow :strike-through t))) + `(ztreep-diff-model-normal-face ((,class :inherit shadow))) + `(ztreep-expand-sign-face ((,class :foreground ,blue))) + `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) + `(ztreep-leaf-face ((,class :foreground ,cyan))) + `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) + `(ztreep-node-face ((,class :foreground ,fg-main)))) + "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"]) +;;;; awesome-tray + `(awesome-tray-mode-line-active-color ,blue) + `(awesome-tray-mode-line-inactive-color ,bg-active) +;;;; exwm + `(exwm-floating-border-color ,fg-window-divider-inner) +;;;; flymake fringe indicators + `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) + `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) + `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) +;;;; ibuffer + `(ibuffer-deletion-face 'modus-theme-mark-del) + `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) + `(ibuffer-marked-face 'modus-theme-mark-sel) + `(ibuffer-title-face 'modus-theme-pseudo-header) +;;;; highlight-tail + `(highlight-tail-colors + '((,green-subtle-bg . 0) + (,cyan-subtle-bg . 20))) +;;;; hl-todo + `(hl-todo-keyword-faces + '(("HOLD" . ,yellow-alt) + ("TODO" . ,magenta) + ("NEXT" . ,magenta-alt-other) + ("THEM" . ,magenta-alt) + ("PROG" . ,cyan) + ("OKAY" . ,cyan-alt) + ("DONT" . ,green-alt) + ("FAIL" . ,red) + ("BUG" . ,red) + ("DONE" . ,green) + ("NOTE" . ,yellow-alt-other) + ("KLUDGE" . ,yellow) + ("HACK" . ,yellow) + ("TEMP" . ,red-nuanced-fg) + ("FIXME" . ,red-alt-other) + ("XXX+" . ,red-alt) + ("REVIEW" . ,cyan-alt-other) + ("DEPRECATED" . ,blue-nuanced-fg))) +;;;; pdf-tools + `(pdf-view-midnight-colors + '(,fg-main . ,bg-dim)) +;;;; vc-annotate (C-x v g) + `(vc-annotate-background nil) + `(vc-annotate-background-mode nil) + `(vc-annotate-color-map + '((20 . ,red) + (40 . ,magenta) + (60 . ,magenta-alt) + (80 . ,red-alt) + (100 . ,yellow) + (120 . ,yellow-alt) + (140 . ,fg-special-warm) + (160 . ,fg-special-mild) + (180 . ,green) + (200 . ,green-alt) + (220 . ,cyan-alt-other) + (240 . ,cyan-alt) + (260 . ,cyan) + (280 . ,fg-special-cold) + (300 . ,blue) + (320 . ,blue-alt) + (340 . ,blue-alt-other) + (360 . ,magenta-alt-other))) + `(vc-annotate-very-old-color nil) +;;;; xterm-color + `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) + `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) + (if (eq modus-themes-org-blocks 'rainbow) + `(org-src-block-faces ; TODO this list should be expanded + `(("emacs-lisp" modus-theme-nuanced-magenta) + ("elisp" modus-theme-nuanced-magenta) + ("clojure" modus-theme-nuanced-magenta) + ("clojurescript" modus-theme-nuanced-magenta) + ("c" modus-theme-nuanced-blue) + ("c++" modus-theme-nuanced-blue) + ("sh" modus-theme-nuanced-green) + ("shell" modus-theme-nuanced-green) + ("html" modus-theme-nuanced-yellow) + ("xml" modus-theme-nuanced-yellow) + ("css" modus-theme-nuanced-red) + ("scss" modus-theme-nuanced-red) + ("python" modus-theme-nuanced-green) + ("ipython" modus-theme-nuanced-magenta) + ("r" modus-theme-nuanced-cyan) + ("yaml" modus-theme-nuanced-cyan) + ("conf" modus-theme-nuanced-cyan) + ("docker" modus-theme-nuanced-cyan))) + `(org-src-block-faces '()))) + "Custom variables for `modus-themes-theme'.") + +(provide 'modus-themes) +;;; modus-themes.el ends here diff --git a/etc/themes/modus-vivendi-theme.el b/etc/themes/modus-vivendi-theme.el index 73f07d644b..fd7f5df24d 100644 --- a/etc/themes/modus-vivendi-theme.el +++ b/etc/themes/modus-vivendi-theme.el @@ -1,4666 +1,66 @@ ;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*- -;; Copyright (C) 2019-2021 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes -;; Version: 0.13.0 +;; Version: 1.2.0 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. -;; GNU Emacs is free software: you can redistribute it and/or modify +;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; 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. - +;; the Free Software Foundation, either version 3 of the License, or (at +;; your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; -;; This theme is designed for colour-contrast accessibility. -;; -;; 1. Provide a consistent minimum contrast ratio between background and -;; foreground values of 7:1 or higher. This meets the highest such -;; accessibility criterion per the guidelines of the Worldwide Web -;; Consortium's Working Group on Accessibility (WCAG AAA standard). +;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi +;; is the light one). The themes are designed for color-contrast +;; accessibility. More specifically: ;; -;; 2. Offer as close to full face coverage as possible. The list is -;; already quite long (see further below), with more additions to follow -;; as part of the ongoing development process. +;; 1. Provide a consistent minimum contrast ratio between background +;; and foreground values of 7:1 or higher. This meets the highest +;; such accessibility criterion per the guidelines of the Worldwide +;; Web Consortium's Working Group on Accessibility (WCAG AAA +;; standard). ;; -;; The theme provides the following customisation options, all of which -;; are disabled by default: +;; 2. Offer as close to full face coverage as possible. The list is +;; already quite long, with more additions to follow as part of the +;; ongoing development process. ;; -;; modus-vivendi-theme-slanted-constructs (boolean) -;; modus-vivendi-theme-bold-constructs (boolean) -;; modus-vivendi-theme-variable-pitch-headings (boolean) -;; modus-vivendi-theme-no-mixed-fonts (boolean) -;; modus-vivendi-theme-headings (alist) -;; modus-vivendi-theme-scale-headings (boolean) -;; modus-vivendi-theme-fringes (choice) -;; modus-vivendi-theme-org-blocks (choice) -;; modus-vivendi-theme-prompts (choice) -;; modus-vivendi-theme-mode-line (choice) -;; modus-vivendi-theme-diffs (choice) -;; modus-vivendi-theme-faint-syntax (boolean) -;; modus-vivendi-theme-intense-hl-line (boolean) -;; modus-vivendi-theme-intense-paren-match (boolean) -;; modus-vivendi-theme-no-link-underline (boolean) -;; modus-vivendi-theme-completions (choice) -;; modus-vivendi-theme-override-colors-alist (alist) +;; For a complete view of the project, also refer to the following files +;; (should be distributed in the same repository/directory as the +;; current item): ;; -;; The default scale is as follows (it can be customised as well): -;; -;; modus-vivendi-theme-scale-1 1.05 -;; modus-vivendi-theme-scale-2 1.1 -;; modus-vivendi-theme-scale-3 1.15 -;; modus-vivendi-theme-scale-4 1.2 -;; modus-vivendi-theme-scale-5 1.3 -;; -;; What follows is the list of explicitly supported packages or face -;; groups (there are implicitly supported packages as well, which -;; inherit from font-lock or some basic group). You are encouraged to -;; notify me of any missing package or change you would like to see. -;; -;; ace-window -;; ag -;; alert -;; all-the-icons -;; annotate -;; anzu -;; apropos -;; apt-sources-list -;; artbollocks-mode -;; auctex and TeX -;; auto-dim-other-buffers -;; avy -;; awesome-tray -;; binder -;; bm -;; bongo -;; boon -;; breakpoint (provided by built-in gdb-mi.el) -;; buffer-expose -;; calendar and diary -;; calfw -;; centaur-tabs -;; change-log and log-view (`vc-print-log' and `vc-print-root-log') -;; cider -;; circe -;; color-rg -;; column-enforce-mode -;; company-mode -;; company-posframe -;; compilation-mode -;; completions -;; counsel -;; counsel-css -;; counsel-notmuch -;; counsel-org-capture-string -;; cov -;; cperl-mode -;; csv-mode -;; ctrlf -;; custom (M-x customize) -;; dap-mode -;; dashboard (emacs-dashboard) -;; deadgrep -;; debbugs -;; define-word -;; deft -;; dictionary -;; diff-hl -;; diff-mode -;; dim-autoload -;; dir-treeview -;; dired -;; dired-async -;; dired-git -;; dired-git-info -;; dired-narrow -;; dired-subtree -;; diredfl -;; disk-usage -;; doom-modeline -;; dynamic-ruler -;; easy-jekyll -;; easy-kill -;; ebdb -;; ediff -;; eglot -;; el-search -;; eldoc -;; eldoc-box -;; elfeed -;; elfeed-score -;; emms -;; enhanced-ruby-mode -;; epa -;; equake -;; erc -;; eros -;; ert -;; eshell -;; eshell-fringe-status -;; eshell-git-prompt -;; eshell-prompt-extras (epe) -;; eshell-syntax-highlighting -;; evil (evil-mode) -;; evil-goggles -;; evil-visual-mark-mode -;; eww -;; eyebrowse -;; fancy-dabbrev -;; flycheck -;; flycheck-color-mode-line -;; flycheck-indicator -;; flycheck-posframe -;; flymake -;; flyspell -;; flyspell-correct -;; flx -;; freeze-it -;; frog-menu -;; focus -;; fold-this -;; font-lock (generic syntax highlighting) -;; forge -;; fountain (fountain-mode) -;; geiser -;; git-commit -;; git-gutter (and variants) -;; git-lens -;; git-rebase -;; git-timemachine -;; git-walktree -;; gnus -;; golden-ratio-scroll-screen -;; helm -;; helm-ls-git -;; helm-switch-shell -;; helm-xref -;; helpful -;; highlight-blocks -;; highlight-defined -;; highlight-escape-sequences (`hes-mode') -;; highlight-indentation -;; highlight-numbers -;; highlight-symbol -;; highlight-tail -;; highlight-thing -;; hl-defined -;; hl-fill-column -;; hl-line-mode -;; hl-todo -;; hydra -;; hyperlist -;; ibuffer -;; icomplete -;; ido-mode -;; iedit -;; iflipb -;; imenu-list -;; indium -;; info -;; info-colors -;; interaction-log -;; ioccur -;; isearch, occur, etc. -;; ivy -;; ivy-posframe -;; jira (org-jira) -;; journalctl-mode -;; js2-mode -;; julia -;; jupyter -;; kaocha-runner -;; keycast -;; line numbers (`display-line-numbers-mode' and global variant) -;; lsp-mode -;; lsp-ui -;; magit -;; magit-imerge -;; man -;; markdown-mode -;; markup-faces (`adoc-mode') -;; mentor -;; messages -;; minibuffer-line -;; minimap -;; modeline -;; mood-line -;; mpdel -;; mu4e -;; mu4e-conversation -;; multiple-cursors -;; neotree -;; no-emoji -;; notmuch -;; num3-mode -;; nxml-mode -;; objed -;; orderless -;; org -;; org-journal -;; org-noter -;; org-pomodoro -;; org-recur -;; org-roam -;; org-superstar -;; org-table-sticky-header -;; org-treescope -;; origami -;; outline-mode -;; outline-minor-faces -;; package (M-x list-packages) -;; page-break-lines -;; paradox -;; paren-face -;; parrot -;; pass -;; persp-mode -;; perspective -;; phi-grep -;; phi-search -;; pkgbuild-mode -;; pomidor -;; powerline -;; powerline-evil -;; proced -;; prodigy -;; racket-mode -;; rainbow-blocks -;; rainbow-identifiers -;; rainbow-delimiters -;; rcirc -;; regexp-builder (also known as `re-builder') -;; rg -;; ripgrep -;; rmail -;; ruler-mode -;; sallet -;; selectrum -;; semantic -;; sesman -;; shell-script-mode -;; show-paren-mode -;; side-notes -;; skewer-mode -;; smart-mode-line -;; smartparens -;; smerge -;; spaceline -;; speedbar -;; spell-fu -;; stripes -;; suggest -;; switch-window -;; swiper -;; swoop -;; sx -;; symbol-overlay -;; tab-bar-mode -;; tab-line-mode -;; syslog-mode -;; table (built-in table.el) -;; telephone-line -;; term -;; tomatinho -;; transient (pop-up windows like Magit's) -;; trashed -;; treemacs -;; tty-menu -;; tuareg -;; typescript -;; undo-tree -;; vc (built-in mode line status for version control) -;; vc-annotate (C-x v g) -;; vdiff -;; vimish-fold -;; visible-mark -;; visual-regexp -;; volatile-highlights -;; vterm -;; wcheck-mode -;; web-mode -;; wgrep -;; which-function-mode -;; which-key -;; whitespace-mode -;; window-divider-mode -;; winum -;; writegood-mode -;; woman -;; xah-elisp-mode -;; xref -;; xterm-color (and ansi-colors) -;; yaml-mode -;; yasnippet -;; ztree +;; - modus-themes.el (Main code shared between the themes) +;; - modus-operandi-theme.el (Light theme) ;;; Code: \f -(deftheme modus-vivendi - "Dark theme that conforms with the highest accessibility - standard for colour contrast between background and - foreground elements (WCAG AAA).") - -;;; Custom faces - -;; These faces will be inherited by actual constructs. They are meant -;; for those cases where a face needs to distinguish its output from -;; the rest of the text, such as `isearch' and `occur'… We define -;; these separately in order to combine each colour with its -;; appropriate foreground value. This is to ensure a consistent -;; contrast ratio of >= 7:1. -(defgroup modus-theme () - "Theme that ensures WCAG AAA accessibility (contrast ratio -between foreground and background is >= 7:1)." - :group 'faces - :prefix "modus-theme-" - :link '(url-link :tag "GitLab" "https://gitlab.com/protesilaos/modus-themes") - :tag "Modus Vivendi") - -(defface modus-theme-subtle-red nil nil) -(defface modus-theme-subtle-green nil nil) -(defface modus-theme-subtle-yellow nil nil) -(defface modus-theme-subtle-blue nil nil) -(defface modus-theme-subtle-magenta nil nil) -(defface modus-theme-subtle-cyan nil nil) -(defface modus-theme-subtle-neutral nil nil) -(defface modus-theme-intense-red nil nil) -(defface modus-theme-intense-green nil nil) -(defface modus-theme-intense-yellow nil nil) -(defface modus-theme-intense-blue nil nil) -(defface modus-theme-intense-magenta nil nil) -(defface modus-theme-intense-cyan nil nil) -(defface modus-theme-intense-neutral nil nil) -(defface modus-theme-refine-red nil nil) -(defface modus-theme-refine-green nil nil) -(defface modus-theme-refine-yellow nil nil) -(defface modus-theme-refine-blue nil nil) -(defface modus-theme-refine-magenta nil nil) -(defface modus-theme-refine-cyan nil nil) -(defface modus-theme-active-red nil nil) -(defface modus-theme-active-green nil nil) -(defface modus-theme-active-yellow nil nil) -(defface modus-theme-active-blue nil nil) -(defface modus-theme-active-magenta nil nil) -(defface modus-theme-active-cyan nil nil) -(defface modus-theme-fringe-red nil nil) -(defface modus-theme-fringe-green nil nil) -(defface modus-theme-fringe-yellow nil nil) -(defface modus-theme-fringe-blue nil nil) -(defface modus-theme-fringe-magenta nil nil) -(defface modus-theme-fringe-cyan nil nil) -(defface modus-theme-nuanced-red nil nil) -(defface modus-theme-nuanced-green nil nil) -(defface modus-theme-nuanced-yellow nil nil) -(defface modus-theme-nuanced-blue nil nil) -(defface modus-theme-nuanced-magenta nil nil) -(defface modus-theme-nuanced-cyan nil nil) -(defface modus-theme-special-cold nil nil) -(defface modus-theme-special-mild nil nil) -(defface modus-theme-special-warm nil nil) -(defface modus-theme-special-calm nil nil) -(defface modus-theme-diff-added nil nil) -(defface modus-theme-diff-changed nil nil) -(defface modus-theme-diff-removed nil nil) -(defface modus-theme-diff-refine-added nil nil) -(defface modus-theme-diff-refine-changed nil nil) -(defface modus-theme-diff-refine-removed nil nil) -(defface modus-theme-diff-focus-added nil nil) -(defface modus-theme-diff-focus-changed nil nil) -(defface modus-theme-diff-focus-removed nil nil) -(defface modus-theme-diff-heading nil nil) -(defface modus-theme-pseudo-header nil nil) -(defface modus-theme-mark-alt nil nil) -(defface modus-theme-mark-del nil nil) -(defface modus-theme-mark-sel nil nil) -(defface modus-theme-mark-symbol nil nil) -(defface modus-theme-heading-1 nil nil) -(defface modus-theme-heading-2 nil nil) -(defface modus-theme-heading-3 nil nil) -(defface modus-theme-heading-4 nil nil) -(defface modus-theme-heading-5 nil nil) -(defface modus-theme-heading-6 nil nil) -(defface modus-theme-heading-7 nil nil) -(defface modus-theme-heading-8 nil nil) -(defface modus-theme-hl-line nil nil) - -;;; Customisation options - -;; User-facing customisation options. They are all deactivated by -;; default (users must opt in). -(defcustom modus-vivendi-theme-slanted-constructs nil - "Use slanted text in more code constructs (italics or oblique)." - :type 'boolean) - -(defcustom modus-vivendi-theme-bold-constructs nil - "Use bold text in more code constructs." - :type 'boolean) - -(define-obsolete-variable-alias 'modus-vivendi-theme-proportional-fonts - 'modus-vivendi-theme-variable-pitch-headings "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-proportional-fonts nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-variable-pitch-headings nil - "Use proportional fonts (variable-pitch) in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-mixed-fonts nil - "Disable inheritance from `fixed-pitch' in some faces. - -This is done by default 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'. -The downside with the default is that users need to explicitly -configure the font family of `fixed-pitch' in order to get a -consistent experience. That may be something they do not want to -do. Hence this option to disable any kind of technique for -mixing fonts." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-rainbow-headings nil - "Use more saturated colours for headings." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-section-headings - 'modus-vivendi-theme-headings - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-section-headings nil - "Use a background and an overline in headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-headings - '((t . nil)) - "Alist of styles for headings, with optional value per level. - -To control faces per level from 1-8, use something like this: - - (setq modus-vivendi-theme-headings - '((1 . highlight) - (2 . line) - (t . rainbow-line-no-bold))) - -To set a uniform value for all heading levels, use this pattern: - - (setq modus-vivendi-theme-headings - '((t . rainbow-line-no-bold))) - -The default uses a fairly desaturated foreground value in -combination with a bold typographic weight. To specify this -style for a given level N (assuming you wish to have another -fallback option), just specify the value t like this: - - (setq modus-vivendi-theme-headings - '((1 . t) - (2 . line) - (t . rainbow-line-no-bold))) - -A description of all possible values: - -+ `no-bold' retains the default text colour while removing - the typographic weight. - -+ `line' is the same as the default plus an overline over the - heading. - -+ `line-no-bold' is the same as `line' without bold weight. - -+ `rainbow' uses a more colourful foreground in combination - with bold weight. - -+ `rainbow-line' is the same as `rainbow' plus an overline. - -+ `rainbow-line-no-bold' is the same as `rainbow-line' without - the bold weight. - -+ `highlight' retains the default style of a fairly desaturated - foreground combined with a bold weight and add to it a subtle - accented background. - -+ `highlight-no-bold' is the same as `highlight' without a bold - weight. - -+ `rainbow-highlight' is the same as `highlight' but with a more - colourful foreground. - -+ `rainbow-highlight-no-bold' is the same as `rainbow-highlight' - without a bold weight. - -+ `section' retains the default looks and adds to them both an - overline and a slightly accented background. It is, in effect, - a combination of the `line' and `highlight' values. - -+ `section-no-bold' is the same as `section' without a bold - weight. - -+ `rainbow-section' is the same as `section' but with a more - colourful foreground. - -+ `rainbow-section-no-bold' is the same as `rainbow-section' - without a bold weight." - :type - '(alist - :key-type symbol - :value-type - (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) - (const :tag "Like the default without bold weight" no-bold) - (const :tag "Like the default plus overline" line) - (const :tag "Like `line' without bold weight" line-no-bold) - (const :tag "Like the default but with more colourful foreground" rainbow) - (const :tag "Like `rainbow' plus overline" rainbow-line) - (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) - (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) - (const :tag "Like the default plus subtle background" highlight) - (const :tag "Like `highlight' without bold weight" highlight-no-bold) - (const :tag "Like `highlight' with more colourful foreground" rainbow-highlight) - (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) - (const :tag "Like `highlight' plus overline" section) - (const :tag "Like `section' without bold weight" section-no-bold) - (const :tag "Like `section' with more colourful foreground" rainbow-section) - (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold)))) - -(defcustom modus-vivendi-theme-scale-headings nil - "Use font scaling for headings." - :type 'boolean) - -(defcustom modus-vivendi-theme-scale-1 1.05 - "Font size that is slightly larger than the base value. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-2 1.1 - "Font size slightly larger than `modus-vivendi-theme-scale-1'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-3 1.15 - "Font size slightly larger than `modus-vivendi-theme-scale-2'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-4 1.2 - "Font size slightly larger than `modus-vivendi-theme-scale-3'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(defcustom modus-vivendi-theme-scale-5 1.3 - "Font size slightly larger than `modus-vivendi-theme-scale-4'. -The default is a floating point that is interpreted as a multiple -of the base font size. However, the variable also accepts an -integer, understood as an absolute height (e.g. a value of 140 is -the same as setting the font at 14 point size). - -For more on the matter, read the documentation of -`set-face-attribute', specifically the ':height' section." - :type 'number) - -(make-obsolete 'modus-vivendi-theme-visible-fringes - 'modus-vivendi-theme-fringes - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-visible-fringes nil - "Use a visible style for fringes." - :type 'boolean) - -(defcustom modus-vivendi-theme-fringes nil - "Define the visibility of fringes. - -Nil means the fringes have no background colour. Option `subtle' -will apply a greyscale value that is visible yet close to the -main buffer background colour. Option `intense' will use a more -pronounced greyscale value." - :type '(choice - (const :tag "No visible fringes (default)" nil) - (const :tag "Subtle greyscale background" subtle) - (const :tag "Intense greyscale background" intense))) - -(make-obsolete 'modus-vivendi-theme-distinct-org-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-distinct-org-blocks nil - "Use a distinct neutral background for `org-mode' blocks." - :type 'boolean) - -(make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks - 'modus-vivendi-theme-org-blocks - "`modus-vivendi-theme' 0.11.0") - -(defcustom modus-vivendi-theme-rainbow-org-src-blocks nil - "Use colour-coded backgrounds for `org-mode' source blocks. -The colour in use depends on the language (send feedback to -include more languages)." - :type 'boolean) - -(defcustom modus-vivendi-theme-org-blocks nil - "Use a subtle grey or colour-coded background for Org blocks. - -Nil means that the block will have no background of its own and -will use the default that applies to the rest of the buffer. - -Option `greyscale' will apply a subtle neutral grey background to -the block's contents. It also affects the begin and end lines of -the block: their background will be extended to the edge of the -window for Emacs version >= 27 where the ':extend' keyword is -recognised by `set-face-attribute'. - -Option `rainbow' will use an accented background for the contents -of the block. The exact colour will depend on the programming -language and is controlled by the `org-src-block-faces' -variable (refer to the theme's source code for the current -association list)." - :type '(choice - (const :tag "No Org block background (default)" nil) - (const :tag "Subtle grey block background" greyscale) - (const :tag "Colour-coded background per programming language" rainbow))) - -(make-obsolete 'modus-vivendi-theme-3d-modeline - 'modus-vivendi-theme-mode-line - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-3d-modeline nil - "Use a three-dimensional style for the active mode line." - :type 'boolean) - -(defcustom modus-vivendi-theme-mode-line nil - "Adjust the overall style of the mode line. - -Nil is a two-dimensional rectangle with a border around it. The -active and the inactive modelines use different shades of -greyscale values for the background and foreground. - -A `3d' value will apply a three-dimensional effect to the active -modeline. The inactive modelines remain two-dimensional and are -toned down a bit, relative to the nil value. - -The `moody' option is meant to optimise the modeline for use with -the library of the same name. This practically means to remove -the box effect and rely on underline and overline properties -instead. It also tones down the inactive modelines. Despite its -intended purpose, this option can also be used without the -`moody' library." - :type '(choice - (const :tag "Two-dimensional box (default)" nil) - (const :tag "Three-dimensional style for the active mode line" 3d) - (const :tag "No box effects, which are optimal for use with the `moody' library" moody))) - -(make-obsolete 'modus-vivendi-theme-subtle-diffs - 'modus-vivendi-theme-diffs - "`modus-vivendi-theme' 0.13.0") - -(defcustom modus-vivendi-theme-subtle-diffs nil - "Use fewer/dim backgrounds in `diff-mode', `ediff',`magit'." - :type 'boolean) - -(defcustom modus-vivendi-theme-diffs nil - "Adjust the overall styles of diffs. - -Nil means to use fairly intense colour combinations for diffs. -For example, you get a rich green background with a green -foreground for added lines. Word-wise or 'refined' diffs follow -the same pattern but use different shades of those colours to -remain distinct. - -A `desaturated' value follows the same principles as with the nil -option, while it tones down all relevant colours. - -Option `fg-only' will remove all accented backgrounds, except -from word-wise changes. It instead uses colour-coded foreground -values to differentiate between added/removed/changed lines. If -a background is necessary, such as with `ediff', then a subtle -greyscale value is used." - :type '(choice - (const :tag "Intensely coloured backgrounds (default)" nil) - (const :tag "Slightly accented backgrounds with tinted text" desaturated) - (const :tag "No backgrounds, except for refined diffs" fg-only))) - -(make-obsolete 'modus-vivendi-theme-intense-standard-completions - 'modus-vivendi-theme-completions - "`modus-vivendi-theme' 0.12.0") - -(defcustom modus-vivendi-theme-intense-standard-completions nil - "Use prominent backgrounds for Icomplete, Ido, or similar." - :type 'boolean) - -(defcustom modus-vivendi-theme-completions nil - "Apply special styles to the UI of completion frameworks. - -This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as -any other tool meant to enhance their experience. The effect -will vary depending on the completion framework. - -Nil means to remain faithful to the metaphors that each UI -establishes. For example, Icomplete and Ido only use foreground -colours to style their matches, whereas Ivy or Helm rely on an -aesthetic that combines coloured backgrounds with appropriate -text colour. - -Option `moderate' will apply a combination of background and -foreground that is fairly subtle. For Icomplete and the like, -this constitutes a departure from their standard style. While -Ivy, Helm, and the others, will use less pronounced colours for -applicable contexts. - -Option `opinionated' will apply colour combinations that -refashion the completion UI. So Icomplete et al will now use -styles that resemble the defaults of Ivy and co., while the -latter group will revert to an even more nuanced aesthetic." - :type '(choice - (const :tag "Respect the framework's established aesthetic (default)" nil) - (const :tag "Subtle backgrounds for various elements" moderate) - (const :tag "Radical alternative to the framework's looks" opinionated))) - -(defcustom modus-vivendi-theme-prompts nil - "Use subtle or intense styles for minibuffer and REPL prompts. - -Nil means to only use an accented foreground colour. - -Options `subtle' and `intense' will change both the background -and the foreground values. The latter has a more pronounced -effect than the former." - :type '(choice - (const :tag "No prompt background (default)" nil) - (const :tag "Subtle accented background for the prompt" subtle) - (const :tag "Intense background and foreground for the prompt" intense))) - -(defcustom modus-vivendi-theme-intense-hl-line nil - "Use more prominent background for command `hl-line-mode'." - :type 'boolean) - -(defcustom modus-vivendi-theme-intense-paren-match nil - "Use more prominent colour for parenthesis matching." - :type 'boolean) - -(defcustom modus-vivendi-theme-faint-syntax nil - "Use less saturated colours for code syntax highlighting." - :type 'boolean) - -(defcustom modus-vivendi-theme-no-link-underline nil - "Do not underline links." - :type 'boolean) - -;;; Internal functions - -;; Helper functions that are meant to ease the implementation of the -;; above customisation options. -(defun modus-vivendi-theme-bold-weight () - "Conditional use of a heavier text weight." - (when modus-vivendi-theme-bold-constructs - (list :inherit 'bold))) - -(defun modus-vivendi-theme-mixed-fonts () - "Conditional application of `fixed-pitch' inheritance." - (unless modus-vivendi-theme-no-mixed-fonts - (list :inherit 'fixed-pitch))) - -(defun modus-vivendi-theme-fringe (subtlebg intensebg) - "Conditional use of background colours for fringes. -SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a -more pronounced greyscale colour." - (pcase modus-vivendi-theme-fringes - ('intense (list :background intensebg)) - ('subtle (list :background subtlebg)) - (_ (list :background nil)))) - -(defun modus-vivendi-theme-prompt (mainfg subtlebg subtlefg intensebg intensefg) - "Conditional use of background colours for prompts. -MAINFG is the prompt's standard foreground. SUBTLEBG should be a -subtle accented background that works with SUBTLEFG. INTENSEBG -must be a more pronounced accented colour that should be -combinable with INTENSEFG." - (pcase modus-vivendi-theme-prompts - ('intense (list :background intensebg :foreground intensefg)) - ('subtle (list :background subtlebg :foreground subtlefg)) - (_ (list :background nil :foreground mainfg)))) - -(defun modus-vivendi-theme-paren (normalbg intensebg) - "Conditional use of intense colours for matching parentheses. -NORMALBG should the special palette colour 'bg-paren-match' or -something similar. INTENSEBG must be easier to discern next to -other backgrounds, such as the special palette colour -'bg-paren-match-intense'." - (if modus-vivendi-theme-intense-paren-match - (list :background intensebg) - (list :background normalbg))) - -(defun modus-vivendi-theme-syntax-foreground (normal faint) - "Apply foreground value to code syntax. -NORMAL is the more saturated colour, which should be the default. -FAINT is the less saturated colour." - (if modus-vivendi-theme-faint-syntax - (list :foreground faint) - (list :foreground normal))) - -(defun modus-vivendi-theme-heading-p (key) - "Query style of KEY in `modus-vivendi-theme-headings'." - (cdr (assoc key modus-vivendi-theme-headings))) - -(defun modus-vivendi-theme-heading (level fg fg-alt bg border) - "Conditional styles for `modus-vivendi-theme-headings'. - -LEVEL is the heading's position in their order. FG is the -default text colour. FG-ALT is an accented, more saturated value -than the default. BG is a nuanced, typically accented, -background that can work well with either of the foreground -values. BORDER is a colour value that combines well with the -background and alternative foreground." - (let* ((key (modus-vivendi-theme-heading-p `,level)) - (style (or key (modus-vivendi-theme-heading-p t))) - (var (if modus-vivendi-theme-variable-pitch-headings - 'variable-pitch - 'default))) - (pcase style - ('no-bold - (list :inherit `,var :foreground fg)) - ('line - (list :inherit `(bold ,var) :foreground fg :overline border)) - ('line-no-bold - (list :inherit `,var :foreground fg :overline border)) - ('rainbow - (list :inherit `(bold ,var) :foreground fg-alt)) - ('rainbow-no-bold - (list :inherit `,var :foreground fg-alt)) - ('rainbow-line - (list :inherit `(bold ,var) :foreground fg-alt :overline border)) - ('rainbow-line-no-bold - (list :inherit `,var :foreground fg-alt :overline border)) - ('highlight - (list :inherit `(bold ,var) :background bg :foreground fg)) - ('highlight-no-bold - (list :inherit `,var :background bg :foreground fg)) - ('rainbow-highlight - (list :inherit `(bold ,var) :background bg :foreground fg-alt)) - ('rainbow-highlight-no-bold - (list :inherit `,var :background bg :foreground fg-alt)) - ('section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg :overline border))) - ('section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg :overline border))) - ('rainbow-section - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `(bold ,var) :background bg :foreground fg-alt :overline border))) - ('rainbow-section-no-bold - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :inherit `,var :background bg :foreground fg-alt :overline border))) - (_ - (list :inherit `(bold ,var) :foreground fg))))) - -(defun modus-vivendi-theme-org-block (bgblk) - "Conditionally set the background of Org blocks. -BGBLK applies to a distinct neutral background. Else blocks have -no background of their own (the default), so they look the same -as the rest of the buffer. - -`modus-vivendi-theme-org-blocks' also accepts a `rainbow' option -which is applied conditionally to `org-src-block-faces' (see the -theme's source code)." - (if (eq modus-vivendi-theme-org-blocks 'greyscale) - (append - (and (>= emacs-major-version 27) '(:extend t)) - (list :background bgblk)) - (list :background nil))) - -(defun modus-vivendi-theme-org-block-delim (bgaccent fgaccent bg fg) - "Conditionally set the styles of Org block delimiters. -BG, FG, BGACCENT, FGACCENT apply a background and foreground -colour respectively. - -The former pair is a greyscale combination that should be more -distinct than the background of the block. It is applied to the -default styles or when `modus-vivendi-theme-org-blocks' is set -to `greyscale'. - -The latter pair should be more subtle than the background of the -block, as it is used when `modus-vivendi-theme-org-blocks' is -set to `rainbow'." - (pcase modus-vivendi-theme-org-blocks - ('greyscale (append (and (>= emacs-major-version 27) '(:extend t)) - (list :background bg :foreground fg))) - ('rainbow (list :background bgaccent :foreground fgaccent)) - (_ (list :background bg :foreground fg)))) - -(defun modus-vivendi-theme-mode-line-attrs - (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) - "Colour combinations for `modus-vivendi-theme-mode-line'. - -FG and BG are the default colours. FG-ALT and BG-ALT are meant -to accommodate the options for a 3D modeline or a `moody' -compliant one. BORDER applies to all permutations of the -modeline, except the three-dimensional effect, where BORDER-3D is -used instead. - -Optional ALT-STYLE applies an appropriate style to the mode -line's box property. - -Optional BORDER-WIDTH specifies an integer for the width of the -rectangle that produces the box effect. - -Optional FG-DISTANT should be close to the main background -values. It is intended to be used as a distant-foreground -property." - (pcase modus-vivendi-theme-mode-line - ('3d - `(:background ,bg-alt :foreground ,fg-alt - :box (:line-width ,(or border-width 1) - :color ,border-3d - :style ,(and alt-style 'released-button)))) - ('moody - `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border - :distant-foreground ,fg-distant)) - (_ - `(:foreground ,fg :background ,bg :box ,border)))) - -(defun modus-vivendi-theme-diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg) - "Colour combinations for `modus-vivendi-theme-diffs'. - -FG-ONLY-BG should be similar or the same as the main background. -FG-ONLY-FG should be a saturated accent value that can be -combined with the former. - -MAINBG must be one of the dedicated backgrounds for diffs while -MAINFG must be the same for the foreground. - -ALTBG needs to be a slightly accented background that is meant to -be combined with ALTFG. Both must be less intense than MAINBG -and MAINFG respectively." - (pcase modus-vivendi-theme-diffs - ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) - ('desaturated (list :background altbg :foreground altfg)) - (_ (list :background mainbg :foreground mainfg)))) - -(defun modus-vivendi-theme-standard-completions (mainfg subtlebg intensebg intensefg) - "Combinations for `modus-vivendi-theme-completions'. - -MAINFG is an accented foreground value. SUBTLEBG is an accented -background value that can be combined with MAINFG. INTENSEBG and -INTENSEFG are accented colours that are designed to be used in -tandem. - -These are intended for Icomplete, Ido, and related." - (pcase modus-vivendi-theme-completions - ('opinionated (list :background intensebg :foreground intensefg)) - ('moderate (list :background subtlebg :foreground mainfg)) - (_ (list :foreground mainfg)))) - -(defun modus-vivendi-theme-extra-completions (subtleface intenseface altface &optional altfg bold) - "Combinations for `modus-vivendi-theme-completions'. - -SUBTLEFACE and INTENSEFACE are custom theme faces that combine a -background and foreground value. The difference between the two -is a matter of degree. - -ALTFACE is a combination of colours that represents a departure -from the UI's default aesthetics. Optional ALTFG is meant to be -used in tandem with it. - -Optional BOLD will apply a heavier weight to the text. - -These are intended for Helm, Ivy, etc." - (pcase modus-vivendi-theme-completions - ('opinionated (list :inherit (list altface bold) - :foreground (or altfg 'unspecified))) - ('moderate (list :inherit (list subtleface bold))) - (_ (list :inherit (list intenseface bold))))) - -(defun modus-vivendi-theme-scale (amount) - "Scale heading by AMOUNT. - -AMOUNT is a customisation option." - (when modus-vivendi-theme-scale-headings - (list :height amount))) - -;;; Colour palette - -;; Define colour palette. Each colour must have a >= 7:1 contrast -;; ratio relative to the foreground/background colour it is rendered -;; against. -;; -;; The design of the colour palette as a macro that maps it to faces is -;; adapted from zenbern-theme.el, last seen at commit 7dd7968: -;; https://github.com/bbatsov/zenburn-emacs -(eval-and-compile - (defconst modus-vivendi-theme-default-colors-alist - '(;; base values - ("bg-main" . "#000000") ("fg-main" . "#ffffff") - ("bg-alt" . "#181a20") ("fg-alt" . "#a8a8a8") - ("bg-dim" . "#110b11") ("fg-dim" . "#e0e6f0") - ;; specifically for on/off states (e.g. `mode-line') - ;; - ;; must be combined with themselves - ("bg-active" . "#323232") ("fg-active" . "#f4f4f4") - ("bg-inactive" . "#1e1e1e") ("fg-inactive" . "#bfc0c4") - ;; special base values, used only for cases where the above - ;; fg-* or bg-* cannot or should not be used (to avoid confusion) - ;; must be combined with: {fg,bg}-{main,alt,dim} - ("bg-special-cold" . "#203448") ("fg-special-cold" . "#c6eaff") - ("bg-special-mild" . "#00322e") ("fg-special-mild" . "#bfebe0") - ("bg-special-warm" . "#382f27") ("fg-special-warm" . "#f8dec0") - ("bg-special-calm" . "#392a48") ("fg-special-calm" . "#fbd6f4") - ;; styles for the main constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red" . "#ff8059") ("green" . "#44bc44") - ("yellow" . "#eecc00") ("blue" . "#2fafff") - ("magenta" . "#feacd0") ("cyan" . "#00d3d0") - ;; styles for common, but still specialised constructs - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt" . "#f4923b") ("green-alt" . "#80d200") - ("yellow-alt" . "#cfdf30") ("blue-alt" . "#79a8ff") - ("magenta-alt" . "#f78fe7") ("cyan-alt" . "#4ae8fc") - ;; same purpose as above, just slight differences - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-alt-other" . "#ff9977") ("green-alt-other" . "#00cd68") - ("yellow-alt-other" . "#f0ce43") ("blue-alt-other" . "#00bcff") - ("magenta-alt-other" . "#b6a0ff") ("cyan-alt-other" . "#6ae4b9") - ;; styles for desaturated foreground text, intended for use with - ;; the `modus-vivendi-theme-faint-syntax' option - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' - ("red-faint" . "#ffa0a0") ("green-faint" . "#88cf88") - ("yellow-faint" . "#d2b580") ("blue-faint" . "#92baff") - ("magenta-faint" . "#e0b2d6") ("cyan-faint" . "#a0bfdf") - - ("red-alt-faint" . "#f5aa80") ("green-alt-faint" . "#a8cf88") - ("yellow-alt-faint" . "#cabf77") ("blue-alt-faint" . "#a4b0ff") - ("magenta-alt-faint" . "#ef9fe4") ("cyan-alt-faint" . "#90c4ed") - - ("red-alt-other-faint" . "#ff9fbf") ("green-alt-other-faint" . "#88cfaf") - ("yellow-alt-other-faint" . "#d0ba95") ("blue-alt-other-faint" . "#8fc5ff") - ("magenta-alt-other-faint" . "#d0b4ff") ("cyan-alt-other-faint" . "#a4d0bb") - ;; styles for elements that should be very subtle, yet accented - ;; - ;; must be combined with: `bg-main', `bg-alt', `bg-dim' or any of - ;; the "nuanced" backgrounds - ("red-nuanced" . "#ffcccc") ("green-nuanced" . "#b8e2b8") - ("yellow-nuanced" . "#dfdfb0") ("blue-nuanced" . "#bfd9ff") - ("magenta-nuanced" . "#e5cfef") ("cyan-nuanced" . "#a8e5e5") - ;; styles for slightly accented background - ;; - ;; must be combined with any of the above foreground values - ("red-nuanced-bg" . "#2c0614") ("green-nuanced-bg" . "#001904") - ("yellow-nuanced-bg" . "#221000") ("blue-nuanced-bg" . "#0f0e39") - ("magenta-nuanced-bg" . "#230631") ("cyan-nuanced-bg" . "#041529") - ;; styles for elements that should draw attention to themselves - ;; - ;; must be combined with: `bg-main' - ("red-intense" . "#fb6859") ("green-intense" . "#00fc50") - ("yellow-intense" . "#ffdd00") ("blue-intense" . "#00a2ff") - ("magenta-intense" . "#ff8bd4") ("cyan-intense" . "#30ffc0") - ;; styles for background elements that should be visible yet - ;; subtle - ;; - ;; must be combined with: `fg-dim' - ("red-subtle-bg" . "#762422") ("green-subtle-bg" . "#2f4a00") - ("yellow-subtle-bg" . "#604200") ("blue-subtle-bg" . "#10387c") - ("magenta-subtle-bg" . "#49366e") ("cyan-subtle-bg" . "#00415e") - ;; styles for background elements that should be visible and - ;; distinguishable - ;; - ;; must be combined with: `fg-main' - ("red-intense-bg" . "#a4202a") ("green-intense-bg" . "#006800") - ("yellow-intense-bg" . "#874900") ("blue-intense-bg" . "#2a40b8") - ("magenta-intense-bg" . "#7042a2") ("cyan-intense-bg" . "#005f88") - ;; styles for refined contexts where both the foreground and the - ;; background need to have the same/similar hue - ;; - ;; must be combined with themselves OR the foregrounds can be - ;; combined with any of the base backgrounds - ("red-refine-bg" . "#77002a") ("red-refine-fg" . "#ffb9ab") - ("green-refine-bg" . "#00422a") ("green-refine-fg" . "#9ff0cf") - ("yellow-refine-bg" . "#693200") ("yellow-refine-fg" . "#e2d980") - ("blue-refine-bg" . "#242679") ("blue-refine-fg" . "#8ec6ff") - ("magenta-refine-bg" . "#71206a") ("magenta-refine-fg" . "#ffcaf0") - ("cyan-refine-bg" . "#004065") ("cyan-refine-fg" . "#8ae4f2") - ;; styles that are meant exclusively for the mode line - ;; - ;; must be combined with: `bg-active', `bg-inactive' - ("red-active" . "#ffa7ba") ("green-active" . "#70d73f") - ("yellow-active" . "#dbbe5f") ("blue-active" . "#34cfff") - ("magenta-active" . "#d5b1ff") ("cyan-active" . "#00d8b4") - ;; styles that are meant exclusively for the fringes - ;; - ;; must be combined with `fg-main' - ("red-fringe-bg" . "#8f1f4b") ("green-fringe-bg" . "#006700") - ("yellow-fringe-bg" . "#6f4f00") ("blue-fringe-bg" . "#3f33af") - ("magenta-fringe-bg" . "#6f2f89") ("cyan-fringe-bg" . "#004f8f") - ;; styles reserved for specific faces - ;; - ;; `bg-hl-line' is between `bg-dim' and `bg-alt', so it should - ;; work with all accents that cover those two, plus `bg-main' - ;; - ;; `bg-hl-alt' and `bg-hl-alt-intense' should only be used when no - ;; other greyscale or fairly neutral background is available to - ;; properly draw attention to a given construct - ;; - ;; `bg-header' is between `bg-active' and `bg-inactive', so it - ;; can be combined with any of the "active" values, plus the - ;; "special" and base foreground colours - ;; - ;; `bg-paren-match', `bg-paren-match-intense', `bg-region' and - ;; `bg-tab-active' must be combined with `fg-main', while - ;; `bg-tab-inactive' should be combined with `fg-dim' - ;; - ;; `bg-tab-bar' is only intended for the bar that holds the tabs and - ;; can only be combined with `fg-main' - ;; - ;; `fg-tab-active' is meant to be combined with `bg-tab-active', - ;; though only for styling special elements, such as underlining - ;; the current tab - ;; - ;; `fg-escape-char-construct' and `fg-escape-char-backslash' can - ;; be combined `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-lang-error', `fg-lang-warning', `fg-lang-note' can be - ;; combined with `bg-main', `bg-dim', `bg-alt' - ;; - ;; `fg-mark-sel', `fg-mark-del', `fg-mark-alt' can be combined - ;; with `bg-main', `bg-dim', `bg-alt', `bg-hl-line' - ;; - ;; `fg-unfocused' must be combined with `fg-main' - ;; - ;; the window divider colours apply to faces with just an fg value - ;; - ;; all pairs are combinable with themselves - ("bg-hl-line" . "#151823") - ("bg-hl-line-intense" . "#2f2f2f") - ("bg-hl-alt" . "#181732") - ("bg-hl-alt-intense" . "#282e46") - ("bg-paren-match" . "#5f362f") - ("bg-paren-match-intense" . "#7416b5") - ("bg-region" . "#3c3c3c") - - ("bg-tab-bar" . "#2c2c2c") - ("bg-tab-active" . "#0e0e0e") - ("bg-tab-inactive" . "#3d3d3d") - ("fg-tab-active" . "#5ac3cf") - - ("fg-escape-char-construct" . "#e7a59a") - ("fg-escape-char-backslash" . "#abab00") - - ("fg-lang-error" . "#ef8690") - ("fg-lang-warning" . "#b0aa00") - ("fg-lang-note" . "#9d9def") - - ("fg-window-divider-inner" . "#646464") - ("fg-window-divider-outer" . "#969696") - - ("fg-unfocused" . "#93959b") - - ("bg-header" . "#212121") ("fg-header" . "#dddddd") - - ("bg-whitespace" . "#170016") ("fg-whitespace" . "#a4959f") - - ("bg-diff-heading" . "#304466") ("fg-diff-heading" . "#dadffe") - ("bg-diff-added" . "#0a280a") ("fg-diff-added" . "#94ba94") - ("bg-diff-changed" . "#2a2000") ("fg-diff-changed" . "#b0ba9f") - ("bg-diff-removed" . "#40160f") ("fg-diff-removed" . "#c6adaa") - - ("bg-diff-refine-added" . "#005a36") ("fg-diff-refine-added" . "#e0f6e0") - ("bg-diff-refine-changed" . "#585800") ("fg-diff-refine-changed" . "#ffffcc") - ("bg-diff-refine-removed" . "#852828") ("fg-diff-refine-removed" . "#ffd9eb") - - ("bg-diff-focus-added" . "#203d20") ("fg-diff-focus-added" . "#b4ddb4") - ("bg-diff-focus-changed" . "#4a3a10") ("fg-diff-focus-changed" . "#d0daaf") - ("bg-diff-focus-removed" . "#5e2526") ("fg-diff-focus-removed" . "#eebdba") - - ("bg-diff-neutral-0" . "#575757") ("fg-diff-neutral-0" . "#fcfcfc") - ("bg-diff-neutral-1" . "#454545") ("fg-diff-neutral-1" . "#dddddd") - ("bg-diff-neutral-2" . "#313131") ("fg-diff-neutral-2" . "#bfbfbf") - - ("bg-mark-sel" . "#002f2f") ("fg-mark-sel" . "#60cfa2") - ("bg-mark-del" . "#5a0000") ("fg-mark-del" . "#ff99aa") - ("bg-mark-alt" . "#3f2210") ("fg-mark-alt" . "#f0aa20")) - "The entire palette of `modus-vivendi-theme'. -Each element has the form (NAME . HEX).") - - (defcustom modus-vivendi-theme-override-colors-alist '() - "Association list of palette colour overrides. -Values can be mapped to variables, using the same syntax as the -one present in `modus-vivendi-theme-default-colors-alist'. - -This is only meant for do-it-yourself usage, with the -understanding that the user is responsible for the resulting -contrast ratio between new and existing colours." - :type '(alist - :key-type (string :tag "Name") - :value-type (string :tag " Hex"))) - - (defmacro modus-vivendi-theme-with-color-variables (&rest body) - "`let' bind all colours around BODY. -Also bind `class' to ((class color) (min-colors 89))." - (declare (indent 0)) - `(let ((class '((class color) (min-colors 89))) - ,@(mapcar (lambda (cons) - (list (intern (car cons)) (cdr cons))) - (append modus-vivendi-theme-default-colors-alist - modus-vivendi-theme-override-colors-alist)) - ;; simple conditional styles that evaluate user-facing - ;; customisation options - (modus-theme-slant - (if modus-vivendi-theme-slanted-constructs 'italic 'normal)) - (modus-theme-variable-pitch - (if modus-vivendi-theme-variable-pitch-headings 'variable-pitch 'default))) - ,@body))) - -\f - -;;; Faces +(require-theme 'modus-themes) -(modus-vivendi-theme-with-color-variables - (custom-theme-set-faces - 'modus-vivendi -;;;; custom faces - ;; these bespoke faces are inherited by other constructs below -;;;;; subtle coloured backgrounds - `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) - `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; intense coloured backgrounds - `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) - `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) -;;;;; refined background and foreground combinations - ;; general purpose styles that use an accented foreground against an - ;; accented background - `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) - `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) - `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) - `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) - `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) - `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) -;;;;; "active" combinations, mostly for use on the mode line - `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) - `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) - `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) - `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) - `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) - `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) -;;;;; nuanced backgrounds - ;; useful for adding an accented background that is suitable for all - ;; main foreground colours (intended for use in Org source blocks) - `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; fringe-specific combinations - `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) - `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) -;;;;; special base values - ;; these are closer to the grayscale than the accents defined above - ;; and should only be used when the next closest alternative would be - ;; a greyscale value than an accented one - `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) - `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) - `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) -;;;;; diff-specific combinations - ;; intended for `diff-mode' or equivalent - `(modus-theme-diff-added - ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-focus-added fg-diff-focus-added - green-nuanced-bg fg-diff-added)))) - `(modus-theme-diff-changed - ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-focus-changed fg-diff-focus-changed - yellow-nuanced-bg fg-diff-changed)))) - `(modus-theme-diff-removed - ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-focus-removed fg-diff-focus-removed - red-nuanced-bg fg-diff-removed)))) - `(modus-theme-diff-refine-added - ((,class ,@(modus-vivendi-theme-diff - bg-diff-added fg-diff-added - bg-diff-refine-added fg-diff-refine-added - bg-diff-focus-added fg-diff-focus-added)))) - `(modus-theme-diff-refine-changed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-changed fg-diff-changed - bg-diff-refine-changed fg-diff-refine-changed - bg-diff-focus-changed fg-diff-focus-changed)))) - `(modus-theme-diff-refine-removed - ((,class ,@(modus-vivendi-theme-diff - bg-diff-removed fg-diff-removed - bg-diff-refine-removed fg-diff-refine-removed - bg-diff-focus-removed fg-diff-focus-removed)))) - `(modus-theme-diff-focus-added - ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-focus-added fg-diff-focus-added - bg-diff-added fg-diff-added)))) - `(modus-theme-diff-focus-changed - ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-focus-changed fg-diff-focus-changed - bg-diff-changed fg-diff-changed)))) - `(modus-theme-diff-focus-removed - ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-focus-removed fg-diff-focus-removed - bg-diff-removed fg-diff-removed)))) - `(modus-theme-diff-heading - ((,class ,@(modus-vivendi-theme-diff - bg-alt blue-alt - bg-diff-heading fg-diff-heading - blue-nuanced-bg blue)))) -;;;;; mark indicators - ;; colour combinations intended for Dired, Ibuffer, or equivalent - `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) - `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) - `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) - `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) - `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) -;;;;; heading levels - ;; styles for regular headings used in Org, Markdown, Info, etc. - `(modus-theme-heading-1 - ((,class ,@(modus-vivendi-theme-heading - 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(modus-theme-heading-2 - ((,class ,@(modus-vivendi-theme-heading - 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(modus-theme-heading-3 - ((,class ,@(modus-vivendi-theme-heading - 3 fg-special-cold blue blue-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(modus-theme-heading-4 - ((,class ,@(modus-vivendi-theme-heading - 4 fg-special-mild cyan cyan-nuanced-bg bg-region) - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(modus-theme-heading-5 - ((,class ,@(modus-vivendi-theme-heading - 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) - `(modus-theme-heading-6 - ((,class ,@(modus-vivendi-theme-heading - 6 yellow-nuanced yellow-alt-other yellow-nuanced-bg bg-region)))) - `(modus-theme-heading-7 - ((,class ,@(modus-vivendi-theme-heading - 7 red-nuanced red-alt red-nuanced-bg bg-region)))) - `(modus-theme-heading-8 - ((,class ,@(modus-vivendi-theme-heading - 8 fg-dim magenta bg-alt bg-region)))) -;;;;; other custom faces - `(modus-theme-hl-line ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-line-intense bg-hl-line) - (and (>= emacs-major-version 27) '(:extend t))))) -;;;; standard faces -;;;;; absolute essentials - `(default ((,class :background ,bg-main :foreground ,fg-main))) - `(cursor ((,class :background ,fg-main))) - `(fringe ((,class ,@(modus-vivendi-theme-fringe bg-inactive bg-active) - :foreground ,fg-main))) - `(vertical-border ((,class :foreground ,fg-window-divider-inner))) -;;;;; basic and/or ungrouped styles - ;; Modify the `bold' face to change the weight of all "bold" elements - ;; defined by the theme. You need a typeface that supports a - ;; multitude of heavier weights than the regular one and then you - ;; must specify the exact name of the one you wish to apply. Example - ;; for your init.el: - ;; - ;; (set-face-attribute 'bold nil :weight 'semibold) - `(bold ((,class :weight bold))) - `(comint-highlight-input ((,class :inherit bold))) - `(comint-highlight-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - cyan - blue-nuanced-bg blue-alt - blue-refine-bg fg-main)))) - `(error ((,class :inherit bold :foreground ,red))) - `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) - `(file-name-shadow ((,class :foreground ,fg-unfocused))) - `(header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(header-line-highlight ((,class :inherit modus-theme-active-blue))) - `(help-argument-name ((,class :foreground ,cyan :slant ,modus-theme-slant))) - `(homoglyph ((,class :foreground ,fg-escape-char-construct))) - `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other))) - `(italic ((,class :slant italic))) - `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) - `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) - `(minibuffer-prompt ((,class ,@(modus-vivendi-theme-prompt - cyan-alt-other - cyan-nuanced-bg cyan - cyan-refine-bg fg-main)))) - `(mm-command-output ((,class :foreground ,red-alt-other))) - `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(next-error ((,class :inherit modus-theme-subtle-red))) - `(rectangle-preview ((,class :inherit modus-theme-special-mild))) - `(region ((,class :background ,bg-region :foreground ,fg-main))) - `(secondary-selection ((,class :inherit modus-theme-special-cold))) - `(shadow ((,class :foreground ,fg-alt))) - `(success ((,class :inherit bold :foreground ,green))) - `(trailing-whitespace ((,class :background ,red-intense-bg))) - `(warning ((,class :inherit bold :foreground ,yellow))) -;;;;; buttons, links, widgets - `(button ((,class :foreground ,blue-alt-other - ,@(unless modus-vivendi-theme-no-link-underline - (list :underline t))))) - `(link ((,class :inherit button))) - `(link-visited ((,class :inherit link :foreground ,magenta-alt-other))) - `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(widget-button ((,class :inherit button))) - `(widget-button-pressed ((,class :inherit button :foreground ,magenta))) - `(widget-documentation ((,class :foreground ,green))) - `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) - `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(widget-single-line-field ((,class :inherit widget-field))) -;;;;; ag - `(ag-hit-face ((,class :foreground ,fg-special-cold))) - `(ag-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; alert - `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) - `(alert-low-face ((,class :foreground ,fg-special-mild))) - `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) - `(alert-trivial-face ((,class :foreground ,fg-special-calm))) - `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) -;;;;; all-the-icons - `(all-the-icons-blue ((,class :foreground ,blue))) - `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) - `(all-the-icons-cyan ((,class :foreground ,cyan))) - `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) - `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) - `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) - `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) - `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) - `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) - `(all-the-icons-dpink ((,class :foreground ,magenta))) - `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) - `(all-the-icons-dred ((,class :foreground ,red))) - `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-dyellow ((,class :foreground ,yellow))) - `(all-the-icons-green ((,class :foreground ,green))) - `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) - `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) - `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) - `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) - `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) - `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) - `(all-the-icons-maroon ((,class :foreground ,magenta))) - `(all-the-icons-orange ((,class :foreground ,red-alt))) - `(all-the-icons-pink ((,class :foreground ,magenta))) - `(all-the-icons-purple ((,class :foreground ,magenta-alt))) - `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) - `(all-the-icons-red ((,class :foreground ,red))) - `(all-the-icons-red-alt ((,class :foreground ,red-alt))) - `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) - `(all-the-icons-yellow ((,class :foreground ,yellow))) -;;;;; annotate - `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) - `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) - `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) - `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) -;;;;; anzu - `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) - `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) - `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) - `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) - `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) - `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) - `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; apropos - `(apropos-function-button ((,class :inherit button :foreground ,magenta-alt-other))) - `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) - `(apropos-misc-button ((,class :inherit button :foreground ,cyan-alt-other))) - `(apropos-property ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(apropos-symbol ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(apropos-user-option-button ((,class :inherit button :foreground ,green-alt-other))) - `(apropos-variable-button ((,class :inherit button :foreground ,blue))) -;;;;; apt-sources-list - `(apt-sources-list-components ((,class :foreground ,cyan))) - `(apt-sources-list-options ((,class :foreground ,yellow))) - `(apt-sources-list-suite ((,class :foreground ,green))) - `(apt-sources-list-type ((,class :foreground ,magenta))) - `(apt-sources-list-uri ((,class :foreground ,blue))) -;;;;; artbollocks-mode - `(artbollocks-face ((,class :foreground ,cyan-nuanced :underline ,fg-lang-note))) - `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(artbollocks-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(artbollocks-weasel-words-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; auctex and Tex - `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) - `(font-latex-doctex-documentation-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(font-latex-doctex-preprocessor-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-alt-other))) - `(font-latex-italic-face ((,class :foreground ,fg-special-calm :slant italic))) - `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) - `(font-latex-sectioning-0-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sectioning-1-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-2-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-3-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-4-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,blue-nuanced))) - `(font-latex-sectioning-5-face ((,class :inherit ,modus-theme-variable-pitch :foreground ,blue-nuanced))) - `(font-latex-sedate-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(font-latex-slide-title-face ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,cyan-nuanced - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(font-latex-string-face ((,class :foreground ,blue-alt))) - `(font-latex-subscript-face ((,class :height 0.95))) - `(font-latex-superscript-face ((,class :height 0.95))) - `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(font-latex-warning-face ((,class :foreground ,yellow-alt-other))) - `(tex-match ((,class :foreground ,blue-alt-other))) - `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(texinfo-heading ((,class :foreground ,magenta))) - `(TeX-error-description-error ((,class :inherit bold :foreground ,red))) - `(TeX-error-description-help ((,class :foreground ,blue))) - `(TeX-error-description-tex-said ((,class :foreground ,blue))) - `(TeX-error-description-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; auto-dim-other-buffers - `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) -;;;;; avy - `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) - `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) - `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) - `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; aw (ace-window) - `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) - `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(aw-leading-char-face ((,class :inherit bold :height 1.5 :background ,bg-main :foreground ,red-intense))) - `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) - `(aw-mode-line-face ((,class :inherit bold))) -;;;;; awesome-tray - `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) - `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) - `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) - `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) - `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) - `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) - `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) - `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) - `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; binder - `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) - `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) - `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) - `(binder-sidebar-tags ((,class :foreground ,cyan))) -;;;;; bm - `(bm-face ((,class :inherit modus-theme-subtle-yellow - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) - `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) - `(bm-persistent-face ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) -;;;;; bongo - `(bongo-album-title ((,class :foreground ,cyan-active))) - `(bongo-artist ((,class :foreground ,magenta-active))) - `(bongo-currently-playing-track ((,class :inherit bold))) - `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) - `(bongo-filled-seek-bar ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) - `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) - `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) - `(bongo-track-length ((,class :foreground ,blue-alt-other))) - `(bongo-track-title ((,class :foreground ,blue-active))) - `(bongo-unfilled-seek-bar ((,class :background ,blue-nuanced-bg :foreground ,fg-main))) -;;;;; boon - `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) - `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) - `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) - `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) -;;;;; breakpoint (built-in gdb-mi.el) - `(breakpoint-disabled ((,class :foreground ,fg-alt))) - `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) -;;;;; buffer-expose - `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) - `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) - `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) -;;;;; calendar and diary - `(calendar-month-header ((,class :inherit bold :foreground ,fg-main))) - `(calendar-today ((,class :underline t))) - `(calendar-weekday-header ((,class :foreground ,fg-dim))) - `(calendar-weekend-header ((,class :foreground ,fg-alt))) - `(diary ((,class :foreground ,cyan-alt-other))) - `(diary-anniversary ((,class :foreground ,red-alt-other))) - `(diary-time ((,class :foreground ,blue-alt))) - `(holiday ((,class :foreground ,magenta-alt))) -;;;;; calfw - `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) - `(cfw:face-day-title ((,class :foreground ,fg-main))) - `(cfw:face-default-content ((,class :foreground ,green-alt))) - `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) - `(cfw:face-disable ((,class :foreground ,fg-unfocused))) - `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) - `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) - `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) - `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) - `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) - `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) - `(cfw:face-title ((,class :inherit ,modus-theme-variable-pitch - :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(cfw:face-today ((,class :background ,bg-inactive))) - `(cfw:face-today-title ((,class :background ,bg-active))) - `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) - `(cfw:face-toolbar-button-off ((,class :foreground ,fg-alt))) - `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg - :foreground ,blue-alt))) -;;;;; centaur-tabs - `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) - `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) - `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) - `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) - `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) - `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) - `(centaur-tabs-selected-modified ((,class :background ,bg-tab-active :foreground ,fg-main :slant italic))) - `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) - `(centaur-tabs-unselected-modified ((,class :background ,bg-tab-inactive :foreground ,fg-dim :slant italic))) -;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') - `(change-log-acknowledgment ((,class :foreground ,fg-alt))) - `(change-log-conditionals ((,class :foreground ,magenta-alt))) - `(change-log-date ((,class :foreground ,cyan-alt-other))) - `(change-log-email ((,class :foreground ,cyan))) - `(change-log-file ((,class :foreground ,blue))) - `(change-log-function ((,class :foreground ,green-alt-other))) - `(change-log-list ((,class :foreground ,magenta-alt-other))) - `(change-log-name ((,class :foreground ,cyan))) - `(log-edit-header ((,class :foreground ,fg-special-warm))) - `(log-edit-summary ((,class :inherit bold :foreground ,cyan))) - `(log-edit-unknown-header ((,class :foreground ,fg-alt))) - `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(log-view-message ((,class :foreground ,fg-alt))) -;;;;; cider - `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) - `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) - `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) - `(cider-docview-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(cider-docview-literal-face ((,class :foreground ,blue-alt))) - `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(cider-docview-table-border-face ((,class :foreground ,fg-alt))) - `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) - `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) - `(cider-error-highlight-face ((,class :foreground ,red :underline t))) - `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) - `(cider-fringe-good-face ((,class :foreground ,green-active))) - `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) - `(cider-reader-conditional-face ((,class :foreground ,fg-special-warm :slant italic))) - `(cider-repl-input-face ((,class :inherit bold))) - `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) - `(cider-repl-stdout-face ((,class :foreground ,blue))) - `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) - `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) - `(cider-stacktrace-error-message-face ((,class :foreground ,red-alt-other :slant italic))) - `(cider-stacktrace-face ((,class :foreground ,fg-main))) - `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) - `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) - `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) - `(cider-stacktrace-ns-face ((,class :foreground ,fg-alt :slant italic))) - `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) - `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) - :background ,bg-alt :foreground ,fg-alt))) - `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) - `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) - `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) - `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) - `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) -;;;;; circe (and lui) - `(circe-fool-face ((,class :foreground ,fg-alt))) - `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) - `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(circe-server-face ((,class :foreground ,fg-unfocused))) - `(lui-button-face ((,class :inherit button :foreground ,blue))) - `(lui-highlight-face ((,class :foreground ,magenta-alt))) - `(lui-time-stamp-face ((,class :foreground ,blue-nuanced))) -;;;;; color-rg - `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) - `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) - `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) - `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) - `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) - `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) - `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) - `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) - `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) - `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) - `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) - `(color-rg-font-lock-position-splitter ((,class :foreground ,fg-alt))) -;;;;; column-enforce-mode - `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) -;;;;; company-mode - `(company-echo-common ((,class :foreground ,magenta-alt-other))) - `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) - `(company-preview-common ((,class :foreground ,blue-alt))) - `(company-preview-search ((,class :inherit modus-theme-special-calm))) - `(company-scrollbar-bg ((,class :background ,bg-active))) - `(company-scrollbar-fg ((,class :background ,fg-active))) - `(company-template-field ((,class :inherit modus-theme-intense-magenta))) - `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) - `(company-tooltip-annotation ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) - `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) - `(company-tooltip-common-selection ((,class :foreground ,fg-main))) - `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) - `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) - `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) - `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; company-posframe - `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) - `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) - `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; compilation feedback - `(compilation-column-number ((,class :foreground ,magenta-alt-other))) - `(compilation-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(compilation-info ((,class :foreground ,fg-special-cold))) - `(compilation-line-number ((,class :foreground ,fg-special-warm))) - `(compilation-mode-line-exit ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(compilation-mode-line-fail ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(compilation-mode-line-run ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(compilation-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow))) -;;;;; completions - `(completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(completions-common-part ((,class ,@(modus-vivendi-theme-standard-completions - blue-alt blue-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) - `(completions-first-difference ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt blue-nuanced-bg - magenta-intense-bg fg-main)))) -;;;;; counsel - `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) - `(counsel-application-name ((,class :foreground ,red-alt-other))) - `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) - `(counsel-outline-1 ((,class :inherit outline-1))) - `(counsel-outline-2 ((,class :inherit outline-2))) - `(counsel-outline-3 ((,class :inherit outline-3))) - `(counsel-outline-4 ((,class :inherit outline-4))) - `(counsel-outline-5 ((,class :inherit outline-5))) - `(counsel-outline-6 ((,class :inherit outline-6))) - `(counsel-outline-7 ((,class :inherit outline-7))) - `(counsel-outline-8 ((,class :inherit outline-8))) - `(counsel-outline-default ((,class :inherit bold :foreground ,green-alt-other))) - `(counsel-variable-documentation ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) -;;;;; counsel-css - `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) - `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) - `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) - `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) - `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) - `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) -;;;;; counsel-notmuch - `(counsel-notmuch-count-face ((,class :foreground ,cyan))) - `(counsel-notmuch-date-face ((,class :foreground ,blue))) - `(counsel-notmuch-people-face ((,class :foreground ,magenta))) - `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) -;;;;; counsel-org-capture-string - `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) -;;;;; cov - `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) - `(cov-coverage-run-face ((,class :foreground ,green-intense))) - `(cov-heavy-face ((,class :foreground ,magenta-intense))) - `(cov-light-face ((,class :foreground ,blue-intense))) - `(cov-med-face ((,class :foreground ,yellow-intense))) - `(cov-none-face ((,class :foreground ,cyan-intense))) -;;;;; cperl-mode - `(cperl-nonoverridable-face ((,class :foreground ,yellow-alt-other))) - `(cperl-array-face ((,class :inherit bold :background ,bg-alt :foreground ,magenta-alt))) - `(cperl-hash-face ((,class :inherit bold :background ,bg-alt :foreground ,red-alt :slant ,modus-theme-slant))) -;;;;; csv-mode - `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) -;;;;; ctrlf - `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) - `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) - `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) -;;;;; custom (M-x customize) - `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) - :background ,bg-active :foreground ,fg-active))) - `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) - :background ,bg-active :foreground ,fg-main))) - `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) - `(custom-comment ((,class :foreground ,fg-alt))) - `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) - `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) - `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) - `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) - `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) - `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) - `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) - `(custom-set ((,class :foreground ,blue-alt))) - `(custom-state ((,class :foreground ,cyan-alt-other))) - `(custom-themed ((,class :inherit modus-theme-subtle-blue))) - `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) -;;;;; dap-mode - `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) - :background ,bg-active :foreground ,fg-main))) - `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) - `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) - `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) - `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) - `(dap-ui-locals-variable-leaf-face ((,class :foreground ,cyan-alt-other :slant italic))) - `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) - `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) - `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) - `(dap-ui-sessions-terminated-face ((,class :foreground ,fg-alt))) -;;;;; dashboard (emacs-dashboard) - `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) - `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) - `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) - `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) - `(dashboard-text-banner ((,class :foreground ,fg-dim))) -;;;;; deadgrep - `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) - `(deadgrep-meta-face ((,class :foreground ,fg-alt))) - `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) - `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) -;;;;; debbugs - `(debbugs-gnu-archived ((,class :inverse-video t))) - `(debbugs-gnu-done ((,class :foreground ,fg-alt))) - `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) - `(debbugs-gnu-handled ((,class :foreground ,green))) - `(debbugs-gnu-new ((,class :foreground ,red))) - `(debbugs-gnu-pending ((,class :foreground ,cyan))) - `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced))) - `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) - `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) - `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) - `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) - `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) -;;;;; define-word - `(define-word-face-1 ((,class :foreground ,yellow))) - `(define-word-face-2 ((,class :foreground ,fg-main))) -;;;;; deft - `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) - `(deft-filter-string-face ((,class :foreground ,green-intense))) - `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(deft-separator-face ((,class :foreground ,fg-alt))) - `(deft-summary-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(deft-time-face ((,class :foreground ,fg-special-cold))) - `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; dictionary - `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(dictionary-reference-face ((,class :inherit button :foreground ,blue-alt-other))) - `(dictionary-word-definition-face ((,class :foreground ,fg-main))) - `(dictionary-word-entry-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; diff-hl - `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) - `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) - `(diff-hl-dired-change ((,class :inherit diff-hl-change))) - `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) - `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) - `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) - `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) - `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) - `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) -;;;;; diff-mode - `(diff-added ((,class :inherit modus-theme-diff-added))) - `(diff-changed ((,class :inherit modus-theme-diff-changed))) - `(diff-context ((,class :foreground ,fg-unfocused))) - `(diff-file-header ((,class :inherit bold :foreground ,blue))) - `(diff-function ((,class :foreground ,fg-special-cold))) - `(diff-header ((,class :foreground ,blue-nuanced))) - `(diff-hunk-header ((,class :inherit modus-theme-diff-heading))) - `(diff-index ((,class :inherit bold :foreground ,blue-alt))) - `(diff-indicator-added ((,class :inherit diff-added))) - `(diff-indicator-changed ((,class :inherit diff-changed))) - `(diff-indicator-removed ((,class :inherit diff-removed))) - `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) - `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(diff-removed ((,class :inherit modus-theme-diff-removed))) -;;;;; dim-autoload - `(dim-autoload-cookie-line ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; dir-treeview - `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) - `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) - `(dir-treeview-audio-face ((,class :foreground ,magenta))) - `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) - `(dir-treeview-control-face ((,class :foreground ,fg-alt))) - `(dir-treeview-control-mouse-face ((,class :inherit highlight))) - `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) - `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) - `(dir-treeview-directory-face ((,class :foreground ,blue))) - `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) - `(dir-treeview-executable-face ((,class :foreground ,red-alt))) - `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) - `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) - `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) - `(dir-treeview-indent-face ((,class :foreground ,fg-alt))) - `(dir-treeview-label-mouse-face ((,class :inherit highlight))) - `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) - `(dir-treeview-symlink-face ((,class :inherit button :foreground ,cyan))) - `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) - `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) -;;;;; dired - `(dired-directory ((,class :foreground ,blue))) - `(dired-flagged ((,class :inherit modus-theme-mark-del))) - `(dired-header ((,class :inherit modus-theme-pseudo-header))) - `(dired-ignored ((,class :foreground ,fg-alt))) - `(dired-mark ((,class :inherit modus-theme-mark-symbol))) - `(dired-marked ((,class :inherit modus-theme-mark-sel))) - `(dired-perm-write ((,class :foreground ,fg-special-warm))) - `(dired-symlink ((,class :inherit button :foreground ,cyan-alt))) - `(dired-warning ((,class :inherit bold :foreground ,yellow))) -;;;;; dired-async - `(dired-async-failures ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(dired-async-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(dired-async-mode-message ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; dired-git - `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) - `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; dired-git-info - `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) -;;;;; dired-narrow - `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan bold)))) -;;;;; dired-subtree - ;; remove background from dired-subtree, else it breaks - ;; dired-{flagged,marked} and any other face that sets a background - ;; such as hl-line - `(dired-subtree-depth-1-face ((,class :background nil))) - `(dired-subtree-depth-2-face ((,class :background nil))) - `(dired-subtree-depth-3-face ((,class :background nil))) - `(dired-subtree-depth-4-face ((,class :background nil))) - `(dired-subtree-depth-5-face ((,class :background nil))) - `(dired-subtree-depth-6-face ((,class :background nil))) -;;;;; diredfl - `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) - `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) - `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) - `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) - `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) - `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) - `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) - `(diredfl-dir-name ((,class :inherit dired-directory))) - `(diredfl-dir-priv ((,class :foreground ,blue-alt))) - `(diredfl-exec-priv ((,class :foreground ,magenta))) - `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) - `(diredfl-file-name ((,class :foreground ,fg-main))) - `(diredfl-file-suffix ((,class :foreground ,cyan))) - `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) - `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) - `(diredfl-ignored-file-name ((,class :foreground ,fg-alt))) - `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) - `(diredfl-no-priv ((,class :foreground ,fg-alt))) - `(diredfl-number ((,class :foreground ,cyan-alt))) - `(diredfl-other-priv ((,class :foreground ,yellow))) - `(diredfl-rare-priv ((,class :foreground ,red-alt))) - `(diredfl-read-priv ((,class :foreground ,fg-main))) - `(diredfl-symlink ((,class :inherit dired-symlink))) - `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) - `(diredfl-write-priv ((,class :foreground ,cyan))) -;;;;; disk-usage - `(disk-usage-children ((,class :foreground ,yellow))) - `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) - `(disk-usage-percent ((,class :foreground ,green))) - `(disk-usage-size ((,class :foreground ,cyan))) - `(disk-usage-symlink ((,class :inherit button :foreground ,blue))) - `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) -;;;;; doom-modeline - `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) - `(doom-modeline-battery-charging ((,class :foreground ,green-active))) - `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) - :foreground ,red-active))) - `(doom-modeline-battery-full ((,class :foreground ,blue-active))) - `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) - `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) - `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) - `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) - `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) - `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) - `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-host ((,class :slant italic))) - `(doom-modeline-info ((,class :foreground ,green-active))) - `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) - `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) - `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) - `(doom-modeline-persp-buffer-not-in-persp ((,class :foreground ,yellow-active :slant italic))) - `(doom-modeline-persp-name ((,class :foreground ,fg-active))) - `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) - `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) - `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) - `(doom-modeline-unread-number ((,class :foreground ,fg-active :slant italic))) - `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) - `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; dynamic-ruler - `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) - `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) -;;;;; easy-jekyll - `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) -;;;;; easy-kill - `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) - `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) -;;;;; ebdb - `(ebdb-address-default ((,class :foreground ,fg-main))) - `(ebdb-db-char ((,class :foreground ,fg-special-cold))) - `(ebdb-defunct ((,class :foreground ,fg-alt))) - `(ebdb-field-hidden ((,class :foreground ,magenta))) - `(ebdb-field-url ((,class :foreground ,blue))) - `(ebdb-label ((,class :foreground ,cyan-alt-other))) - `(ebdb-mail-default ((,class :foreground ,fg-main))) - `(ebdb-mail-primary ((,class :foreground ,blue-alt))) - `(ebdb-marked ((,class :background ,cyan-intense-bg))) - `(ebdb-organization-name ((,class :foreground ,fg-special-calm))) - `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) - `(ebdb-phone-default ((,class :foreground ,fg-special-warm))) - `(ebdb-role-defunct ((,class :foreground ,fg-alt))) - `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) -;;;;; ediff - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(ediff-current-diff-A ((,class ,@(modus-vivendi-theme-diff - bg-dim red - bg-diff-removed fg-diff-removed - red-nuanced-bg red-faint)))) - `(ediff-current-diff-Ancestor ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-special-cold - bg-special-cold fg-special-cold - blue-nuanced-bg blue)))) - `(ediff-current-diff-B ((,class ,@(modus-vivendi-theme-diff - bg-dim green - bg-diff-added fg-diff-added - green-nuanced-bg green-faint)))) - `(ediff-current-diff-C ((,class ,@(modus-vivendi-theme-diff - bg-dim yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg yellow-faint)))) - `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) - `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) - `(ediff-fine-diff-B ((,class :background ,bg-diff-focus-added :foreground ,fg-diff-focus-added))) - `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) - `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) - `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) -;;;;; eglot - `(eglot-mode-line ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) -;;;;; el-search - `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) - `(el-search-match ((,class :inherit modus-theme-intense-green))) - `(el-search-other-match ((,class :inherit modus-theme-special-mild))) - `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) -;;;;; eldoc - ;; NOTE: see https://github.com/purcell/package-lint/issues/187 - (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; eldoc-box - `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) - `(eldoc-box-border ((,class :background ,fg-alt))) -;;;;; elfeed - `(elfeed-log-date-face ((,class :foreground ,cyan-alt))) - `(elfeed-log-debug-level-face ((,class :foreground ,magenta))) - `(elfeed-log-error-level-face ((,class :foreground ,red))) - `(elfeed-log-info-level-face ((,class :foreground ,green))) - `(elfeed-log-warn-level-face ((,class :foreground ,yellow))) - `(elfeed-search-date-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-feed-face ((,class :foreground ,cyan))) - `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) - `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) - `(elfeed-search-tag-face ((,class :foreground ,blue-nuanced))) - `(elfeed-search-title-face ((,class :foreground ,fg-dim))) - `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) - `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) -;;;;; elfeed-score - `(elfeed-score-date-face ((,class :foreground ,blue))) - `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) - `(elfeed-score-error-level-face ((,class :foreground ,red))) - `(elfeed-score-info-level-face ((,class :foreground ,cyan))) - `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) -;;;;; emms - `(emms-playlist-track-face ((,class :foreground ,blue))) - `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) -;;;;; enhanced-ruby-mode - `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) - `(enh-ruby-op-face ((,class :foreground ,fg-main))) - `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) - `(enh-ruby-regexp-face ((,class :foreground ,magenta))) - `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) - `(erm-syn-errline ((,class :foreground ,red :underline t))) - `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) -;;;;; epa - `(epa-field-body ((,class :foreground ,fg-main))) - `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) - `(epa-mark ((,class :inherit bold :foreground ,magenta))) - `(epa-string ((,class :foreground ,blue-alt))) - `(epa-validity-disabled ((,class :inherit modus-theme-refine-red))) - `(epa-validity-high ((,class :inherit bold :foreground ,green-alt-other))) - `(epa-validity-low ((,class :foreground ,fg-alt))) - `(epa-validity-medium ((,class :foreground ,green-alt))) -;;;;; equake - `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) - `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) - `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) - `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) - `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) - `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) - `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) - `(equake-tab-inactive ((,class :foreground ,fg-inactive))) -;;;;; erc - `(erc-action-face ((,class :inherit bold :foreground ,cyan))) - `(erc-bold-face ((,class :inherit bold))) - `(erc-button ((,class :inherit button))) - `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) - `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) - `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) - `(erc-direct-msg-face ((,class :foreground ,magenta))) - `(erc-error-face ((,class :inherit bold :foreground ,red))) - `(erc-fool-face ((,class :foreground ,fg-inactive))) - `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) - `(erc-input-face ((,class :foreground ,fg-special-calm))) - `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) - `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) - `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) - `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) - `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) - `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) - `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) - `(erc-notice-face ((,class :foreground ,fg-unfocused))) - `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) - `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(erc-timestamp-face ((,class :foreground ,blue-nuanced))) - `(erc-underline-face ((,class :underline t))) - `(bg:erc-color-face0 ((,class :background "white"))) - `(bg:erc-color-face1 ((,class :background "black"))) - `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) - `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) - `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) - `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) - `(bg:erc-color-face14 ((,class :background "gray60"))) - `(bg:erc-color-face15 ((,class :background "gray80"))) - `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) - `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) - `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) - `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) - `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) - `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) - `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) - `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) - `(fg:erc-color-face0 ((,class :foreground "white"))) - `(fg:erc-color-face1 ((,class :foreground "black"))) - `(fg:erc-color-face10 ((,class :foreground ,cyan))) - `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) - `(fg:erc-color-face12 ((,class :foreground ,blue))) - `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) - `(fg:erc-color-face14 ((,class :foreground "gray60"))) - `(fg:erc-color-face15 ((,class :foreground "gray80"))) - `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) - `(fg:erc-color-face3 ((,class :foreground ,green))) - `(fg:erc-color-face4 ((,class :foreground ,red))) - `(fg:erc-color-face5 ((,class :foreground ,red-alt))) - `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) - `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) - `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) - `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) -;;;;; eros - `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) - :background ,bg-dim :foreground ,fg-dim))) -;;;;; ert - `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) - `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) -;;;;; eshell - `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) - `(eshell-ls-backup ((,class :foreground ,yellow-alt))) - `(eshell-ls-clutter ((,class :foreground ,red-alt))) - `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) - `(eshell-ls-executable ((,class :foreground ,magenta-alt))) - `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) - `(eshell-ls-product ((,class :foreground ,fg-special-warm))) - `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) - `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) - `(eshell-ls-symlink ((,class :inherit button :foreground ,cyan))) - `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(eshell-prompt ((,class ,@(modus-vivendi-theme-bold-weight) - ,@(modus-vivendi-theme-prompt - green-alt-other - green-nuanced-bg green-alt - green-refine-bg fg-main)))) -;;;;; eshell-fringe-status - `(eshell-fringe-status-failure ((,class :foreground ,red))) - `(eshell-fringe-status-success ((,class :foreground ,green))) -;;;;; eshell-git-prompt - `(eshell-git-prompt-add-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-branch-face ((,class :foreground ,fg-alt))) - `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) - `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) - `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) - `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) - `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) - `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) - `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) - `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) - `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) -;;;;; eshell-prompt-extras (epe) - `(epe-dir-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue))) - `(epe-git-dir-face ((,class :foreground ,red-alt-other))) - `(epe-git-face ((,class :foreground ,cyan-alt))) - `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) - `(epe-pipeline-host-face ((,class :foreground ,blue))) - `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) - `(epe-pipeline-user-face ((,class :foreground ,magenta))) - `(epe-remote-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(epe-status-face ((,class :foreground ,magenta-alt-other))) - `(epe-venv-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) -;;;;; eshell-syntax-highlighting - `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) - `(eshell-syntax-highlighting-comment-face ((,class :foreground ,fg-alt))) - `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) - `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) - `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) - `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) - `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) - `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) -;;;;; evil-mode - `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) - `(evil-ex-info ((,class :foreground ,cyan-alt-other))) - `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(evil-ex-search ((,class :inherit modus-theme-intense-green))) - `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) - `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; evil-goggles - `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) - `(evil-goggles-commentary-face ((,class :inherit modus-theme-subtle-neutral :slant ,modus-theme-slant))) - `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) - `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) - `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) - `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) - `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) - `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) - `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) - `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) - `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) - `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) -;;;;; evil-visual-mark-mode - `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) -;;;;; eww - `(eww-invalid-certificate ((,class :foreground ,red-active))) - `(eww-valid-certificate ((,class :foreground ,green-active))) - `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) - `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) - `(eww-form-select ((,class :inherit eww-form-checkbox))) - `(eww-form-submit ((,class :inherit eww-form-file))) - `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) - `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; eyebrowse - `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) -;;;;; fancy-dabbrev - `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(fancy-dabbrev-preview-face ((,class :foreground ,fg-alt :underline t))) - `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) -;;;;; flycheck - `(flycheck-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) - `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) - `(flycheck-error-list-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red))) - `(flycheck-error-list-filename ((,class :foreground ,blue))) - `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) - `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) - `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) - `(flycheck-error-list-info ((,class :foreground ,cyan))) - `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) - `(flycheck-error-list-warning ((,class :foreground ,yellow))) - `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) - `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) - `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) - `(flycheck-info - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) - `(flycheck-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flycheck-color-mode-line - `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) - `(flycheck-color-mode-line-running-face ((,class :foreground ,fg-inactive :slant italic))) - `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) -;;;;; flycheck-indicator - `(flycheck-indicator-disabled ((,class :foreground ,fg-inactive :slant ,modus-theme-slant))) - `(flycheck-indicator-error ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,red-active))) - `(flycheck-indicator-info ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-active))) - `(flycheck-indicator-running ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-active))) - `(flycheck-indicator-success ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,green-active))) - `(flycheck-indicator-warning ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,yellow-active))) -;;;;; flycheck-posframe - `(flycheck-posframe-background-face ((,class :background ,bg-alt))) - `(flycheck-posframe-border-face ((,class :foreground ,fg-alt))) - `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) - `(flycheck-posframe-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) - `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; flymake - `(flymake-error - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) - `(flymake-note - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-note :style wave)) - (,class :foreground ,fg-lang-note :underline t))) - `(flymake-warning - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) -;;;;; flyspell - `(flyspell-duplicate - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-warning :style wave)) - (,class :foreground ,fg-lang-warning :underline t))) - `(flyspell-incorrect - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; flyspell-correct - `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) -;;;;; flx - `(flx-highlight-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) -;;;;; freeze-it - `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) -;;;;; frog-menu - `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) - `(frog-menu-actions-face ((,class :foreground ,magenta))) - `(frog-menu-border ((,class :background ,bg-active))) - `(frog-menu-candidates-face ((,class :foreground ,fg-main))) - `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) - `(frog-menu-prompt-face ((,class :foreground ,cyan))) -;;;;; focus - `(focus-unfocused ((,class :foreground ,fg-unfocused))) -;;;;; fold-this - `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) -;;;;; font-lock - `(font-lock-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-comment-delimiter-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(font-lock-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(font-lock-doc-face ((,class ,@(modus-vivendi-theme-syntax-foreground - fg-special-cold cyan-alt-other-faint) - :slant ,modus-theme-slant))) - `(font-lock-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(font-lock-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-negation-char-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(font-lock-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(font-lock-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(font-lock-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(font-lock-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(font-lock-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(font-lock-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(font-lock-warning-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-active yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; forge - `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) - `(forge-post-date ((,class :foreground ,fg-special-cold))) - `(forge-topic-closed ((,class :foreground ,fg-alt))) - `(forge-topic-merged ((,class :foreground ,fg-alt))) - `(forge-topic-open ((,class :foreground ,fg-special-mild))) - `(forge-topic-unmerged ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) -;;;;; fountain-mode - `(fountain-character ((,class :foreground ,blue-alt-other))) - `(fountain-comment ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(fountain-dialog ((,class :foreground ,blue-alt))) - `(fountain-metadata-key ((,class :foreground ,green-alt-other))) - `(fountain-metadata-value ((,class :foreground ,blue))) - `(fountain-non-printing ((,class :foreground ,fg-alt))) - `(fountain-note ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) - `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) - `(fountain-paren ((,class :foreground ,cyan))) - `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced))) - `(fountain-section-heading ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-1 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-main - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(fountain-section-heading-2 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-warm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(fountain-section-heading-3 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-mild - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-2)))) - `(fountain-section-heading-4 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-1)))) - `(fountain-section-heading-5 ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-calm))) - `(fountain-synopsis ((,class :foreground ,cyan-alt))) - `(fountain-trans ((,class :foreground ,yellow-alt-other))) -;;;;; geiser - `(geiser-font-lock-autodoc-current-arg ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(geiser-font-lock-autodoc-identifier ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(geiser-font-lock-doc-button ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint) - :underline t))) - `(geiser-font-lock-doc-link ((,class :inherit link))) - `(geiser-font-lock-error-link ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - :underline t))) - `(geiser-font-lock-image-button ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt green-alt-faint) - :underline t))) - `(geiser-font-lock-repl-input ((,class :inherit bold))) - `(geiser-font-lock-repl-output ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint)))) - `(geiser-font-lock-repl-prompt ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(geiser-font-lock-xref-header ((,class :inherit bold))) - `(geiser-font-lock-xref-link ((,class :inherit link))) -;;;;; git-commit - `(git-commit-comment-action ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-local ((,class :foreground ,blue-alt :slant ,modus-theme-slant))) - `(git-commit-comment-branch-remote ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(git-commit-comment-detached ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(git-commit-comment-file ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-commit-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-commit-keyword ((,class :foreground ,magenta))) - `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) - `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) - `(git-commit-pseudo-header ((,class :foreground ,blue))) - `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) -;;;;; git-gutter - `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) -;;;;; git-gutter-fr - `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-{gutter,fringe}+ - `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) - `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) - `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) - `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) - `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) - `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) -;;;;; git-lens - `(git-lens-added ((,class :inherit bold :foreground ,green))) - `(git-lens-deleted ((,class :inherit bold :foreground ,red))) - `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) - `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) - `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) -;;;;; git-rebase - `(git-rebase-comment-hash ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(git-rebase-comment-heading ((,class :inherit bold :foreground ,fg-dim :slant ,modus-theme-slant))) - `(git-rebase-description ((,class :foreground ,fg-main))) - `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) -;;;;; git-timemachine - `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) - `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) - `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) -;;;;; git-walktree - `(git-walktree-commit-face ((,class :foreground ,yellow))) - `(git-walktree-symlink-face ((,class :inherit button :foreground ,cyan))) - `(git-walktree-tree-face ((,class :foreground ,magenta))) -;;;;; gnus - `(gnus-button ((,class :inherit button))) - `(gnus-cite-1 ((,class :foreground ,blue-alt))) - `(gnus-cite-10 ((,class :foreground ,magenta-alt-other))) - `(gnus-cite-11 ((,class :foreground ,yellow-alt-other))) - `(gnus-cite-2 ((,class :foreground ,red-alt))) - `(gnus-cite-3 ((,class :foreground ,green-alt))) - `(gnus-cite-4 ((,class :foreground ,magenta-alt))) - `(gnus-cite-5 ((,class :foreground ,yellow-alt))) - `(gnus-cite-6 ((,class :foreground ,cyan-alt))) - `(gnus-cite-7 ((,class :foreground ,blue-alt-other))) - `(gnus-cite-8 ((,class :foreground ,red-alt-other))) - `(gnus-cite-9 ((,class :foreground ,green-alt-other))) - `(gnus-cite-attribution ((,class :foreground ,fg-main :slant italic))) - `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) - `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) - `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) - `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) - `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) - `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) - `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced))) - `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced))) - `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) - `(gnus-group-news-1-empty ((,class :foreground ,green))) - `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) - `(gnus-group-news-2-empty ((,class :foreground ,cyan))) - `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced))) - `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced))) - `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced))) - `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced))) - `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced))) - `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced))) - `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-group-news-6-empty ((,class :foreground ,fg-alt))) - `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced))) - `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced))) - `(gnus-header-content ((,class :foreground ,cyan))) - `(gnus-header-from ((,class :inherit bold :foreground ,cyan-alt-other :underline nil))) - `(gnus-header-name ((,class :foreground ,green))) - `(gnus-header-newsgroups ((,class :inherit bold :foreground ,blue-alt))) - `(gnus-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) - `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) - `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) - `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) - `(gnus-server-denied ((,class :inherit bold :foreground ,red))) - `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) - `(gnus-server-opened ((,class :inherit bold :foreground ,green))) - `(gnus-signature ((,class :foreground ,fg-special-cold :slant italic))) - `(gnus-splash ((,class :foreground ,fg-alt))) - `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) - `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) - `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) - `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) - `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) - `(gnus-summary-low-ancient ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-read ((,class :foreground ,fg-alt :slant italic))) - `(gnus-summary-low-ticked ((,class :foreground ,red-refine-fg :slant italic))) - `(gnus-summary-low-undownloaded ((,class :foreground ,yellow-refine-fg :slant italic))) - `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) - `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) - `(gnus-summary-normal-read ((,class :foreground ,fg-alt))) - `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) - `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) - `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) - `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) -;;;;; golden-ratio-scroll-screen - `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; helm - `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) - `(helm-action ((,class :underline t))) - `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) - `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) - `(helm-bookmark-file ((,class :foreground ,fg-main))) - `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) - `(helm-bookmark-gnus ((,class :foreground ,magenta))) - `(helm-bookmark-info ((,class :foreground ,cyan-alt))) - `(helm-bookmark-man ((,class :foreground ,yellow-alt))) - `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) - `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) - `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) - `(helm-buffer-file ((,class :foreground ,fg-main))) - `(helm-buffer-modified ((,class :foreground ,yellow-alt))) - `(helm-buffer-not-saved ((,class :foreground ,red-alt))) - `(helm-buffer-process ((,class :foreground ,magenta))) - `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) - `(helm-buffer-size ((,class :foreground ,fg-alt))) - `(helm-candidate-number ((,class :foreground ,cyan-active))) - `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) - `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) - `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) - `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) - `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) - `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) - `(helm-ff-backup-file ((,class :foreground ,fg-alt))) - `(helm-ff-denied ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red)))) - `(helm-ff-directory ((,class :inherit helm-buffer-directory))) - `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) - `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) - `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) - `(helm-ff-executable ((,class :foreground ,magenta-alt))) - `(helm-ff-file ((,class :foreground ,fg-main))) - `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) - `(helm-ff-invalid-symlink ((,class :inherit button :foreground ,red))) - `(helm-ff-pipe ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-magenta - 'modus-theme-subtle-magenta - 'modus-theme-nuanced-magenta - magenta)))) - `(helm-ff-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-yellow - 'modus-theme-subtle-yellow - 'modus-theme-nuanced-yellow - yellow-alt-other)))) - `(helm-ff-socket ((,class :foreground ,red-alt-other))) - `(helm-ff-suid ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-refine-red - 'modus-theme-nuanced-yellow - red-alt)))) - `(helm-ff-symlink ((,class :inherit button :foreground ,cyan))) - `(helm-ff-truename ((,class :foreground ,blue-alt-other))) - `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) - `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-grep-finish ((,class :foreground ,green-active))) - `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) - `(helm-grep-match ((,class :inherit modus-theme-special-calm))) - `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) - `(helm-history-deleted ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-red - 'modus-theme-intense-red - 'modus-theme-nuanced-red - red - 'bold)))) - `(helm-history-remote ((,class :foreground ,red-alt-other))) - `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) - `(helm-lisp-show-completion ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-yellow - 'modus-theme-refine-yellow - 'modus-theme-nuanced-yellow - yellow - 'bold)))) - `(helm-locate-finish ((,class :foreground ,green-active))) - `(helm-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan - 'bold)))) - `(helm-match-item ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-subtle-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) - `(helm-moccur-buffer ((,class :inherit button :foreground ,cyan-alt-other))) - `(helm-mode-prefix ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-intense-magenta - 'modus-theme-nuanced-magenta - magenta-alt - 'bold)))) - `(helm-non-file-buffer ((,class :foreground ,fg-alt))) - `(helm-prefarg ((,class :foreground ,red-active))) - `(helm-resume-need-update ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(helm-selection ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-special-cold - nil - 'bold)))) - `(helm-selection-line ((,class :inherit modus-theme-special-cold))) - `(helm-separator ((,class :foreground ,fg-special-mild))) - `(helm-time-zone-current ((,class :foreground ,green))) - `(helm-time-zone-home ((,class :foreground ,magenta))) - `(helm-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(helm-top-columns ((,class :inherit helm-header))) - `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) - `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) -;;;;; helm-ls-git - `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) - `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) - `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) - `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced))) - `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) - `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced))) - `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) - `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) - `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) -;;;;; helm-switch-shell - `(helm-switch-shell-new-shell-face ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) -;;;;; helm-xref - `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) - `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) -;;;;; helpful - `(helpful-heading ((,class :inherit modus-theme-heading-1))) -;;;;; highlight region or ad-hoc regexp - `(hi-black-b ((,class :background ,fg-main :foreground ,bg-main))) - `(hi-blue ((,class :background ,bg-alt :foreground ,blue :underline t))) - `(hi-blue-b ((,class :inherit modus-theme-intense-blue))) - `(hi-green ((,class :background ,bg-alt :foreground ,green :underline t))) - `(hi-green-b ((,class :inherit modus-theme-intense-green))) - `(hi-pink ((,class :background ,bg-alt :foreground ,magenta :underline t))) - `(hi-red-b ((,class :inherit modus-theme-intense-red))) - `(hi-yellow ((,class :background ,bg-alt :foreground ,yellow :underline t))) - `(highlight ((,class :inherit modus-theme-subtle-blue))) - `(highlight-changes ((,class :foreground ,yellow-alt-other))) - `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) - `(hl-line ((,class :inherit modus-theme-hl-line))) -;;;;; highlight-blocks - `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) - `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) - `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) - `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) - `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) - `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) - `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) - `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) - `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) -;;;;; highlight-defined - `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) - `(highlight-defined-function-name-face ((,class :foreground ,magenta))) - `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) - `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) - `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) -;;;;; highlight-escape-sequences (`hes-mode') - `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) - `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) -;;;;; highlight-indentation - `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) - `(highlight-indentation-current-column-face ((,class :background ,bg-active))) -;;;;; highlight-numbers - `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) -;;;;; highlight-symbol - `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) -;;;;; highlight-thing - `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) -;;;;; hl-defined - `(hdefd-functions ((,class :foreground ,blue))) - `(hdefd-undefined ((,class :foreground ,red-alt))) - `(hdefd-variables ((,class :foreground ,cyan-alt))) -;;;;; hl-fill-column - `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) -;;;;; hl-todo - `(hl-todo ((,class :inherit bold :foreground ,red-alt-other :slant ,modus-theme-slant))) -;;;;; hydra - `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) - `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) - `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) - `(hydra-face-red ((,class :inherit bold :foreground ,red))) - `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) -;;;;; hyperlist - `(hyperlist-condition ((,class :foreground ,green))) - `(hyperlist-hashtag ((,class :foreground ,yellow))) - `(hyperlist-operator ((,class :foreground ,blue-alt))) - `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) - `(hyperlist-quote ((,class :foreground ,cyan-alt))) - `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) - `(hyperlist-stars ((,class :foreground ,fg-alt))) - `(hyperlist-tag ((,class :foreground ,red))) - `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) -;;;;; icomplete - `(icomplete-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) -;;;;; icomplete-vertical - `(icomplete-vertical-separator ((,class :foreground ,fg-alt))) -;;;;; ido-mode - `(ido-first-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta bg-alt - bg-active fg-main)))) - `(ido-incomplete-regexp ((,class :inherit error))) - `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) - `(ido-only-match ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-intense-bg fg-main)))) - `(ido-subdir ((,class :foreground ,blue))) - `(ido-virtual ((,class :foreground ,fg-special-warm))) -;;;;; iedit - `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) - `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) -;;;;; iflipb - `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) - `(iflipb-other-buffer-face ((,class :foreground ,fg-alt))) -;;;;; imenu-list - `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) - `(imenu-list-entry-face-1 ((,class :foreground ,blue))) - `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) - `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) - `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) - `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) - `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) - `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) -;;;;; indium - `(indium-breakpoint-face ((,class :foreground ,red-active))) - `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) - `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) - `(indium-litable-face ((,class :foreground ,fg-special-warm :slant ,modus-theme-slant))) - `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) - `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) - `(indium-repl-stdout-face ((,class :foreground ,fg-main))) -;;;;; info - `(Info-quoted ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) ; the capitalisation is canonical - `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) - `(info-header-xref ((,class :foreground ,blue-active))) - `(info-index-match ((,class :inherit match))) - `(info-menu-header ((,class :inherit modus-theme-heading-3))) - `(info-menu-star ((,class :foreground ,red))) - `(info-node ((,class :inherit bold))) - `(info-title-1 ((,class :inherit modus-theme-heading-1))) - `(info-title-2 ((,class :inherit modus-theme-heading-2))) - `(info-title-3 ((,class :inherit modus-theme-heading-3))) - `(info-title-4 ((,class :inherit modus-theme-heading-4))) -;;;;; info-colors - `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) - `(info-colors-ref-item-command ((,class :foreground ,magenta))) - `(info-colors-ref-item-constant ((,class :foreground ,blue-alt-other))) - `(info-colors-ref-item-function ((,class :foreground ,magenta))) - `(info-colors-ref-item-macro ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-other ((,class :foreground ,cyan))) - `(info-colors-ref-item-special-form ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other))) - `(info-colors-ref-item-syntax-class ((,class :foreground ,magenta))) - `(info-colors-ref-item-type ((,class :foreground ,magenta-alt))) - `(info-colors-ref-item-user-option ((,class :foreground ,cyan))) - `(info-colors-ref-item-variable ((,class :foreground ,cyan))) -;;;;; interaction-log - `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) - `(ilog-change-face ((,class :foreground ,magenta-alt))) - `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) - `(ilog-load-face ((,class :foreground ,green))) - `(ilog-message-face ((,class :foreground ,fg-alt))) - `(ilog-non-change-face ((,class :foreground ,blue))) -;;;;; ioccur - `(ioccur-cursor ((,class :foreground ,fg-main))) - `(ioccur-invalid-regexp ((,class :foreground ,red))) - `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) - `(ioccur-match-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) - `(ioccur-overlay-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-refine-blue))) - `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) - `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) -;;;;; isearch, occur, and the like - `(isearch ((,class :inherit (modus-theme-intense-green bold)))) - `(isearch-fail ((,class :inherit modus-theme-refine-red))) - `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) - `(match ((,class :inherit modus-theme-special-calm))) - `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) -;;;;; ivy - `(ivy-action ((,class :inherit bold :foreground ,red-alt))) - `(ivy-completions-annotations ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(ivy-confirm-face ((,class :foreground ,cyan))) - `(ivy-current-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-refine-cyan - 'modus-theme-intense-cyan - 'modus-theme-special-warm - nil - 'bold)))) - `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) - `(ivy-grep-info ((,class :foreground ,cyan-alt))) - `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) - `(ivy-highlight-face ((,class :foreground ,magenta))) - `(ivy-match-required-face ((,class :inherit error))) - `(ivy-minibuffer-match-face-1 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-neutral - 'modus-theme-intense-neutral - 'modus-theme-subtle-neutral - fg-alt)))) - `(ivy-minibuffer-match-face-2 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-green - 'modus-theme-refine-green - 'modus-theme-nuanced-green - green-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-3 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other - 'bold)))) - `(ivy-minibuffer-match-face-4 ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other - 'bold)))) - `(ivy-minibuffer-match-highlight ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-intense-blue - 'modus-theme-nuanced-blue - blue-alt-other - 'bold)))) - `(ivy-modified-buffer ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(ivy-modified-outside-buffer ((,class :foreground ,yellow-alt :slant ,modus-theme-slant))) - `(ivy-org ((,class :foreground ,cyan-alt-other))) - `(ivy-prompt-match ((,class :inherit ivy-current-match))) - `(ivy-remote ((,class :foreground ,magenta))) - `(ivy-separator ((,class :foreground ,fg-alt))) - `(ivy-subdir ((,class :foreground ,blue-alt-other))) - `(ivy-virtual ((,class :foreground ,magenta-alt-other))) - `(ivy-yanked-word ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt)))) -;;;;; ivy-posframe - `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) - `(ivy-posframe-border ((,class :background ,bg-active))) - `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) -;;;;; jira (org-jira) - `(jiralib-comment-face ((,class :background ,bg-alt))) - `(jiralib-comment-header-face ((,class :inherit bold))) - `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) - `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) - `(jiralib-issue-summary-face ((,class :inherit bold))) - `(jiralib-link-filter-face ((,class :underline t))) - `(jiralib-link-issue-face ((,class :underline t))) - `(jiralib-link-project-face ((,class :underline t))) -;;;;; journalctl-mode - `(journalctl-error-face ((,class :inherit bold :foreground ,red))) - `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) - `(journalctl-host-face ((,class :foreground ,blue))) - `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) - `(journalctl-starting-face ((,class :foreground ,green))) - `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) - `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; js2-mode - `(js2-error ((,class :foreground ,red))) - `(js2-external-variable ((,class :foreground ,cyan-alt-other))) - `(js2-function-call ((,class :foreground ,magenta))) - `(js2-function-param ((,class :foreground ,blue))) - `(js2-instance-member ((,class :foreground ,magenta-alt-other))) - `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) - `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) - `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) - `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) - `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) - `(js2-object-property ((,class :foreground ,fg-main))) - `(js2-object-property-access ((,class :foreground ,fg-main))) - `(js2-private-function-call ((,class :foreground ,green-alt-other))) - `(js2-private-member ((,class :foreground ,fg-special-mild))) - `(js2-warning ((,class :foreground ,yellow-alt :underline t))) -;;;;; julia - `(julia-macro-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta))) - `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) -;;;;; jupyter - `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) - `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) - `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) - `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) -;;;;; kaocha-runner - `(kaocha-runner-error-face ((,class :foreground ,red))) - `(kaocha-runner-success-face ((,class :foreground ,green))) - `(kaocha-runner-warning-face ((,class :foreground ,yellow))) -;;;;; keycast - `(keycast-command ((,class :inherit bold :foreground ,blue-active))) - `(keycast-key ((,class ,@(modus-vivendi-theme-mode-line-attrs - bg-main blue-active - bg-main blue-active - blue-active blue-intense - 'alt-style -3)))) -;;;;; line numbers (display-line-numbers-mode and global variant) - `(line-number ((,class :inherit default :background ,bg-dim :foreground ,fg-alt))) - `(line-number-current-line ((,class :inherit default :background ,bg-active :foreground ,fg-main))) -;;;;; lsp-mode - `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) - `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) - `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) - `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-deprecated - ((,(append '((supports :underline (:style wave))) class) - :foreground ,yellow :underline (:style wave)) - (,class :foreground ,yellow :underline t))) - `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) - `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) - `(lsp-face-semhl-field-static ((,class :foreground ,cyan-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-function ((,class :foreground ,magenta))) - `(lsp-face-semhl-method ((,class :foreground ,magenta))) - `(lsp-face-semhl-namespace ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) - `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) - `(lsp-face-semhl-static-method ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) - `(lsp-face-semhl-type-primitive ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-template ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-type-typedef ((,class :foreground ,magenta-alt :slant ,modus-theme-slant))) - `(lsp-face-semhl-variable ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) - `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) - `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) - `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) - `(lsp-ui-doc-background ((,class :background ,bg-alt))) - `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-doc-url ((,class :inherit button :foreground ,blue-alt-other))) - `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) - `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) - `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) - `(lsp-ui-peek-line-number ((,class :foreground ,fg-alt))) - `(lsp-ui-peek-list ((,class :background ,bg-dim))) - `(lsp-ui-peek-peek ((,class :background ,bg-alt))) - `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) - `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) - `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) - `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) - `(lsp-ui-sideline-symbol-info ((,class :height 0.99 :slant italic))) -;;;;; magit - `(magit-bisect-bad ((,class :foreground ,red-alt-other))) - `(magit-bisect-good ((,class :foreground ,green-alt-other))) - `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) - `(magit-blame-date ((,class :foreground ,blue))) - `(magit-blame-dimmed ((,class :foreground ,fg-alt))) - `(magit-blame-hash ((,class :foreground ,fg-special-warm))) - `(magit-blame-heading ((,class :background ,bg-alt))) - `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) - `(magit-blame-margin ((,class :inherit magit-blame-highlight))) - `(magit-blame-name ((,class :foreground ,magenta-alt-other))) - `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) - `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) - `(magit-branch-local ((,class :foreground ,blue-alt))) - `(magit-branch-remote ((,class :foreground ,magenta-alt))) - `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) - `(magit-branch-upstream ((,class :slant italic))) - `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces, though only for the standard actions, - ;; not the highlighted ones. This is because Magit's interaction - ;; model relies on highlighting the current diff hunk. - `(magit-diff-added ((,class ,@(modus-vivendi-theme-diff - bg-main green - bg-diff-added fg-diff-added - green-nuanced-bg fg-diff-added)))) - `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) - `(magit-diff-base ((,class ,@(modus-vivendi-theme-diff - bg-main yellow - bg-diff-changed fg-diff-changed - yellow-nuanced-bg fg-diff-changed)))) - `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) - `(magit-diff-context ((,class :foreground ,fg-unfocused))) - `(magit-diff-context-highlight ((,class ,@(modus-vivendi-theme-diff - bg-dim fg-dim - bg-inactive fg-inactive - bg-dim fg-alt)))) - `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) - `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) - `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) - ;; NOTE: here we break from the pattern of inheriting from the - ;; modus-theme-diff-* faces. - `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active - :foreground ,fg-inactive))) - `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,bg-diff-heading - :foreground ,fg-diff-heading))) - `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) - `(magit-diff-hunk-region ((,class :inherit bold))) - `(magit-diff-lines-boundary ((,class :background ,fg-main))) - `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) - `(magit-diff-removed ((,class ,@(modus-vivendi-theme-diff - bg-main red - bg-diff-removed fg-diff-removed - red-nuanced-bg fg-diff-removed)))) - `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) - `(magit-diffstat-added ((,class :foreground ,green))) - `(magit-diffstat-removed ((,class :foreground ,red))) - `(magit-dimmed ((,class :foreground ,fg-unfocused))) - `(magit-filename ((,class :foreground ,fg-special-cold))) - `(magit-hash ((,class :foreground ,fg-alt))) - `(magit-head ((,class :inherit magit-branch-local))) - `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) - `(magit-header-line-key ((,class :inherit bold :foreground ,red-active))) - `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) - `(magit-keyword ((,class :foreground ,magenta))) - `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) - `(magit-log-author ((,class :foreground ,cyan))) - `(magit-log-date ((,class :foreground ,fg-alt))) - `(magit-log-graph ((,class :foreground ,fg-dim))) - `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) - `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) - `(magit-process-ng ((,class :inherit error))) - `(magit-process-ok ((,class :inherit success))) - `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) - `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) - `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) - `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) - `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) - `(magit-refname ((,class :foreground ,fg-alt))) - `(magit-refname-pullreq ((,class :foreground ,fg-alt))) - `(magit-refname-stash ((,class :foreground ,fg-alt))) - `(magit-refname-wip ((,class :foreground ,fg-alt))) - `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) - `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) - `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) - `(magit-section-highlight ((,class :background ,bg-alt))) - `(magit-sequence-done ((,class :foreground ,green-alt))) - `(magit-sequence-drop ((,class :foreground ,red-alt))) - `(magit-sequence-exec ((,class :foreground ,magenta-alt))) - `(magit-sequence-head ((,class :foreground ,cyan-alt))) - `(magit-sequence-onto ((,class :foreground ,fg-alt))) - `(magit-sequence-part ((,class :foreground ,yellow-alt))) - `(magit-sequence-pick ((,class :foreground ,blue-alt))) - `(magit-sequence-stop ((,class :foreground ,red))) - `(magit-signature-bad ((,class :inherit bold :foreground ,red))) - `(magit-signature-error ((,class :foreground ,red-alt))) - `(magit-signature-expired ((,class :foreground ,yellow))) - `(magit-signature-expired-key ((,class :foreground ,yellow))) - `(magit-signature-good ((,class :foreground ,green))) - `(magit-signature-revoked ((,class :foreground ,magenta))) - `(magit-signature-untrusted ((,class :foreground ,cyan))) - `(magit-tag ((,class :foreground ,yellow-alt-other))) -;;;;; magit-imerge - `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) -;;;;; man - `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) - `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) - `(Man-underline ((,class :foreground ,cyan :underline t))) -;;;;; markdown-mode - `(markdown-blockquote-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-bold-face ((,class :inherit bold))) - `(markdown-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts)))) - `(markdown-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) - `(markdown-footnote-text-face ((,class :foreground ,fg-main :slant ,modus-theme-slant))) - `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) - `(markdown-header-delimiter-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,fg-dim))) - `(markdown-header-face ((t nil))) - `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) - `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) - `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) - `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) - `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) - `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) - `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) - `(markdown-html-attr-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-attr-value-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue))) - `(markdown-html-entity-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(markdown-html-tag-delimiter-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-mild))) - `(markdown-html-tag-name-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta-alt))) - `(markdown-inline-code-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,magenta))) - `(markdown-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markdown-language-info-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-language-keyword-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,green-alt-other))) - `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) - `(markdown-link-face ((,class :inherit link))) - `(markdown-link-title-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(markdown-list-face ((,class :foreground ,fg-dim))) - `(markdown-markup-face ((,class :foreground ,fg-alt))) - `(markdown-math-face ((,class :foreground ,magenta-alt-other))) - `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) - `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) - `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) - `(markdown-plain-url-face ((,class :inherit markdown-link-face))) - `(markdown-pre-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-dim - :foreground ,fg-special-mild))) - `(markdown-reference-face ((,class :inherit markdown-markup-face))) - `(markdown-strike-through-face ((,class :strike-through t))) - `(markdown-table-face ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(markdown-url-face ((,class :foreground ,blue-alt))) -;;;;; markup-faces (`adoc-mode') - `(markup-anchor-face ((,class :foreground ,fg-inactive))) - `(markup-attribute-face ((,class :foreground ,fg-inactive :slant italic))) - `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced))) - `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) - `(markup-command-face ((,class :foreground ,fg-inactive))) - `(markup-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) - :inherit modus-theme-refine-magenta))) - `(markup-emphasis-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-error-face ((,class :inherit bold :foreground ,red))) - `(markup-gen-face ((,class :foreground ,magenta-alt))) - `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-inactive))) - `(markup-italic-face ((,class :foreground ,fg-special-cold :slant italic))) - `(markup-list-face ((,class :inherit modus-theme-special-calm))) - `(markup-meta-face ((,class :foreground ,fg-inactive))) - `(markup-meta-hide-face ((,class :foreground ,fg-alt))) - `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) - `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) - `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) - `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced))) - `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) - `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced))) - `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) - `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) - `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) - `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced))) - `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced))) - `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced))) - `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced))) - `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced))) - `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced :underline t))) - `(markup-value-face ((,class :foreground ,fg-inactive))) - `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) -;;;;; mentor - `(mentor-download-message ((,class :foreground ,fg-special-warm))) - `(mentor-download-name ((,class :foreground ,fg-special-cold))) - `(mentor-download-progress ((,class :foreground ,blue-alt-other))) - `(mentor-download-size ((,class :foreground ,magenta-alt-other))) - `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) - `(mentor-download-speed-up ((,class :foreground ,red-alt))) - `(mentor-download-state ((,class :foreground ,yellow-alt))) - `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(mentor-tracker-name ((,class :foreground ,magenta-alt))) -;;;;; messages - `(message-cited-text-1 ((,class :foreground ,blue-alt))) - `(message-cited-text-2 ((,class :foreground ,red-alt))) - `(message-cited-text-3 ((,class :foreground ,green-alt))) - `(message-cited-text-4 ((,class :foreground ,magenta-alt))) - `(message-header-cc ((,class :inherit bold :foreground ,cyan-alt))) - `(message-header-name ((,class :foreground ,green-alt-other))) - `(message-header-newsgroups ((,class :inherit bold :foreground ,green-alt))) - `(message-header-other ((,class :inherit bold :foreground ,cyan-alt-other))) - `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt-other))) - `(message-header-to ((,class :inherit bold :foreground ,blue))) - `(message-header-xheader ((,class :foreground ,cyan))) - `(message-mml ((,class :foreground ,fg-special-warm))) - `(message-separator ((,class :inherit modus-theme-intense-neutral))) -;;;;; minibuffer-line - `(minibuffer-line ((,class :foreground ,fg-main))) -;;;;; minimap - `(minimap-active-region-background ((,class :background ,bg-active))) - `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) -;;;;; modeline - `(mode-line ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-active bg-active fg-dim bg-active - fg-alt bg-active 'alt-style nil bg-main)))) - `(mode-line-buffer-id ((,class :inherit bold))) - `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) - `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) - `(mode-line-inactive ((,class ,@(modus-vivendi-theme-mode-line-attrs - fg-inactive bg-inactive fg-alt bg-dim - bg-region bg-active)))) -;;;;; mood-line - `(mood-line-modified ((,class :foreground ,magenta-active))) - `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) - `(mood-line-status-info ((,class :foreground ,cyan-active))) - `(mood-line-status-neutral ((,class :foreground ,blue-active))) - `(mood-line-status-success ((,class :foreground ,green-active))) - `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) - `(mood-line-unimportant ((,class :foreground ,fg-inactive))) -;;;;; mpdel - `(mpdel-browser-directory-face ((,class :foreground ,blue))) - `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) -;;;;; mu4e - `(mu4e-attach-number-face ((,class :inherit bold :foreground ,cyan-alt))) - `(mu4e-cited-1-face ((,class :foreground ,blue-alt))) - `(mu4e-cited-2-face ((,class :foreground ,red-alt))) - `(mu4e-cited-3-face ((,class :foreground ,green-alt))) - `(mu4e-cited-4-face ((,class :foreground ,magenta-alt))) - `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) - `(mu4e-cited-6-face ((,class :foreground ,cyan-alt))) - `(mu4e-cited-7-face ((,class :foreground ,magenta))) - `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) - `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(mu4e-contact-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-context-face ((,class :foreground ,blue-active))) - `(mu4e-draft-face ((,class :foreground ,magenta-alt))) - `(mu4e-flagged-face ((,class :foreground ,red-alt))) - `(mu4e-footer-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) - `(mu4e-header-face ((,class :foreground ,fg-alt))) - `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) - `(mu4e-header-key-face ((,class :foreground ,cyan))) - `(mu4e-header-marks-face ((,class :inherit bold :foreground ,magenta-alt))) - `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) - `(mu4e-header-value-face ((,class :inherit bold :foreground ,magenta-alt-other))) - `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-link-face ((,class :inherit link))) - `(mu4e-modeline-face ((,class :foreground ,magenta-active))) - `(mu4e-moved-face ((,class :foreground ,yellow :slant ,modus-theme-slant))) - `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) - `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) - `(mu4e-replied-face ((,class :foreground ,blue-faint))) - `(mu4e-special-header-value-face ((,class :inherit bold :foreground ,blue-alt-other))) - `(mu4e-system-face ((,class :foreground ,fg-mark-del :slant ,modus-theme-slant))) - `(mu4e-title-face ((,class :foreground ,fg-main))) - `(mu4e-trashed-face ((,class :foreground ,red))) - `(mu4e-unread-face ((,class :inherit bold :foreground ,fg-main))) - `(mu4e-url-number-face ((,class :inherit bold :foreground ,cyan-alt-other))) - `(mu4e-view-body-face ((,class :foreground ,fg-main))) - `(mu4e-warning-face ((,class :inherit warning))) -;;;;; mu4e-conversation - `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) - `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) - `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) - `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) - `(mu4e-conversation-sender-4 ((,class :foreground ,fg-alt))) - `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) - `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) - `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) - `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) - `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) - `(mu4e-conversation-unread ((,class :inherit bold))) -;;;;; multiple-cursors - `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) - `(mc/cursor-face ((,class :inverse-video t))) - `(mc/region-face ((,class :inherit region))) -;;;;; neotree - `(neo-banner-face ((,class :foreground ,magenta))) - `(neo-button-face ((,class :inherit button))) - `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) - `(neo-expand-btn-face ((,class :foreground ,cyan))) - `(neo-file-link-face ((,class :foreground ,fg-main))) - `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) - `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) - `(neo-vc-added-face ((,class :foreground ,green))) - `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) - `(neo-vc-default-face ((,class :foreground ,fg-main))) - `(neo-vc-edited-face ((,class :foreground ,yellow))) - `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) - `(neo-vc-missing-face ((,class :foreground ,red-alt))) - `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) - `(neo-vc-needs-update-face ((,class :underline t))) - `(neo-vc-removed-face ((,class :strike-through t))) - `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) - `(neo-vc-up-to-date-face ((,class :foreground ,fg-alt))) - `(neo-vc-user-face ((,class :foreground ,magenta))) -;;;;; no-emoji - `(no-emoji ((,class :foreground ,cyan))) -;;;;; notmuch - `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) - `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) - `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) - `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) - `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) - `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) - `(notmuch-hello-logo-background ((,class :background ,bg-main))) - `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) - `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) - `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) - `(notmuch-search-non-matching-authors ((,class :foreground ,fg-alt))) - `(notmuch-search-unread-face ((,class :inherit bold))) - `(notmuch-tag-added - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,green :style wave)) - (,class :foreground ,green :underline t))) - `(notmuch-tag-deleted - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,red :style wave)) - (,class :foreground ,red :underline t))) - `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tag-flagged ((,class :foreground ,red-alt))) - `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) - `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) - `(notmuch-tree-match-face ((,class :foreground ,fg-main))) - `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) - `(notmuch-tree-no-match-face ((,class :foreground ,fg-alt))) - `(notmuch-wash-cited-text ((,class :foreground ,cyan))) - `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; num3-mode - `(num3-face-even ((,class :inherit bold :background ,bg-alt))) -;;;;; nxml-mode - `(nxml-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-attribute-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt cyan-alt-faint)))) - `(nxml-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-attribute-value ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(nxml-cdata-section-CDATA ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-cdata-section-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(nxml-char-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-char-ref-number ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-delimited-data ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(nxml-delimiter ((,class :foreground ,fg-dim))) - `(nxml-element-colon ((,class :foreground ,fg-main))) - `(nxml-element-local-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(nxml-element-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-entity-ref-delimiter ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint)))) - `(nxml-entity-ref-name ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) - `(nxml-hash ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-heading ((,class :inherit bold))) - `(nxml-name ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) - `(nxml-namespace-attribute-prefix ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(nxml-processing-instruction-target ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-prolog-keyword ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(nxml-ref ((,class ,@(modus-vivendi-theme-syntax-foreground - green-alt-other green-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) -;;;;; objed - `(objed-hl ((,class :background ,(if modus-vivendi-theme-intense-hl-line - bg-hl-alt-intense bg-hl-alt)))) - `(objed-mark ((,class :background ,bg-active))) - `(objed-mode-line ((,class :foreground ,cyan-active))) -;;;;; orderless - `(orderless-match-face-0 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - blue-alt-other blue-nuanced-bg - blue-refine-bg blue-refine-fg)))) - `(orderless-match-face-1 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(orderless-match-face-2 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - green green-nuanced-bg - green-refine-bg green-refine-fg)))) - `(orderless-match-face-3 ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - yellow yellow-nuanced-bg - yellow-refine-bg yellow-refine-fg)))) -;;;;; org - `(org-agenda-calendar-event ((,class :foreground ,fg-main))) - `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) - `(org-agenda-clocking ((,class :inherit modus-theme-special-cold - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(org-agenda-column-dateline ((,class :background ,bg-alt))) - `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) - `(org-agenda-date ((,class :foreground ,cyan))) - `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) - `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) - `(org-agenda-diary ((,class :foreground ,fg-main))) - `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) - `(org-agenda-done ((,class :foreground ,green-alt))) - `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) - `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) - `(org-agenda-structure ((,class :foreground ,blue-alt))) - `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) - `(org-block ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-main))) - `(org-block-begin-line ((,class ,@(modus-vivendi-theme-mixed-fonts) - ,@(modus-vivendi-theme-org-block-delim - bg-dim fg-special-cold - bg-alt fg-special-mild)))) - `(org-block-end-line ((,class :inherit org-block-begin-line))) - `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) - :background ,bg-inactive :foreground ,fg-active))) - `(org-checkbox-statistics-done ((,class :inherit org-done))) - `(org-checkbox-statistics-todo ((,class :inherit org-todo))) - `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) - `(org-code ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,magenta))) - `(org-column ((,class :background ,bg-alt))) - `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) - `(org-date ((,class :inherit (button fixed-pitch) :foreground ,cyan-alt-other))) - `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) - `(org-document-info ((,class :foreground ,fg-special-cold))) - `(org-document-info-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-alt))) - `(org-document-title ((,class :inherit (bold ,modus-theme-variable-pitch) :foreground ,fg-special-cold - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-5)))) - `(org-done ((,class :box ,bg-region :background ,bg-dim :foreground ,green))) - `(org-drawer ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan))) - `(org-ellipsis ((,class :foreground nil))) ; inherits from the heading's colour - `(org-footnote ((,class :inherit button :foreground ,blue-alt))) - `(org-formula ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,red-alt))) - `(org-habit-alert-face ((,class :inherit modus-theme-intense-yellow))) - `(org-habit-alert-future-face ((,class :inherit modus-theme-refine-yellow))) - `(org-habit-clear-face ((,class :inherit modus-theme-intense-magenta))) - `(org-habit-clear-future-face ((,class :inherit modus-theme-refine-magenta))) - `(org-habit-overdue-face ((,class :inherit modus-theme-intense-red))) - `(org-habit-overdue-future-face ((,class :inherit modus-theme-refine-red))) - `(org-habit-ready-face ((,class :inherit modus-theme-intense-blue))) - `(org-habit-ready-future-face ((,class :inherit modus-theme-refine-blue))) - `(org-headline-done ((,class :inherit ,modus-theme-variable-pitch :foreground ,green-nuanced))) - `(org-headline-todo ((,class :inherit ,modus-theme-variable-pitch :foreground ,red-nuanced))) - `(org-hide ((,class :foreground ,bg-main))) - `(org-indent ((,class :inherit (fixed-pitch org-hide)))) - `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) - `(org-level-1 ((,class :inherit modus-theme-heading-1))) - `(org-level-2 ((,class :inherit modus-theme-heading-2))) - `(org-level-3 ((,class :inherit modus-theme-heading-3))) - `(org-level-4 ((,class :inherit modus-theme-heading-4))) - `(org-level-5 ((,class :inherit modus-theme-heading-5))) - `(org-level-6 ((,class :inherit modus-theme-heading-6))) - `(org-level-7 ((,class :inherit modus-theme-heading-7))) - `(org-level-8 ((,class :inherit modus-theme-heading-8))) - `(org-link ((,class :inherit link))) - `(org-list-dt ((,class :inherit bold))) - `(org-macro ((,class :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) - `(org-meta-line ((,class ,@(modus-vivendi-theme-mixed-fonts) :foreground ,fg-alt))) - `(org-mode-line-clock ((,class :foreground ,fg-main))) - `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) - `(org-priority ((,class :box ,bg-region :background ,bg-dim :foreground ,magenta))) - `(org-property-value ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,cyan-alt-other))) - `(org-quote ((,class ,@(modus-vivendi-theme-org-block bg-dim) - :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(org-scheduled ((,class :foreground ,fg-special-warm))) - `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) - `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) - `(org-sexp-date ((,class :inherit org-date))) - `(org-special-keyword ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,blue-nuanced))) - `(org-table ((,class ,@(modus-vivendi-theme-mixed-fonts) - :foreground ,fg-special-cold))) - `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) - `(org-tag ((,class :foreground ,magenta-nuanced))) - `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced))) - `(org-target ((,class :underline t))) - `(org-time-grid ((,class :foreground ,fg-unfocused))) - `(org-todo ((,class :box ,bg-region :background ,bg-dim :foreground ,red-alt))) - `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) - `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced))) - `(org-verbatim ((,class ,@(modus-vivendi-theme-mixed-fonts) - :background ,bg-alt :foreground ,fg-special-calm))) - `(org-verse ((,class :inherit org-quote))) - `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) -;;;;; org-journal - `(org-journal-calendar-entry-face ((,class :foreground ,yellow-alt-other :slant ,modus-theme-slant))) - `(org-journal-calendar-scheduled-face ((,class :foreground ,red-alt-other :slant ,modus-theme-slant))) - `(org-journal-highlight ((,class :foreground ,magenta-alt))) -;;;;; org-noter - `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) - `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) -;;;;; org-pomodoro - `(org-pomodoro-mode-line ((,class :foreground ,red-active))) - `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) - `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) -;;;;; org-recur - `(org-recur ((,class :foreground ,magenta-active))) -;;;;; org-roam - `(org-roam-link ((,class :inherit button :foreground ,green))) - `(org-roam-link-current ((,class :inherit button :foreground ,green-alt))) - `(org-roam-link-invalid ((,class :inherit button :foreground ,red))) - `(org-roam-link-shielded ((,class :inherit button :foreground ,yellow))) - `(org-roam-tag ((,class :foreground ,fg-alt :slant italic))) -;;;;; org-superstar - `(org-superstar-item ((,class :foreground ,fg-main))) - `(org-superstar-leading ((,class :foreground ,fg-whitespace))) -;;;;; org-table-sticky-header - `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) -;;;;; org-treescope - `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) - `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) -;;;;; origami - `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) - `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) -;;;;; outline-mode - `(outline-1 ((,class :inherit modus-theme-heading-1))) - `(outline-2 ((,class :inherit modus-theme-heading-2))) - `(outline-3 ((,class :inherit modus-theme-heading-3))) - `(outline-4 ((,class :inherit modus-theme-heading-4))) - `(outline-5 ((,class :inherit modus-theme-heading-5))) - `(outline-6 ((,class :inherit modus-theme-heading-6))) - `(outline-7 ((,class :inherit modus-theme-heading-7))) - `(outline-8 ((,class :inherit modus-theme-heading-8))) -;;;;; outline-minor-faces - `(outline-minor-0 ((,class nil))) -;;;;; package (M-x list-packages) - `(package-description ((,class :foreground ,fg-special-cold))) - `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) - `(package-name ((,class :inherit link))) - `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) - `(package-status-available ((,class :foreground ,fg-special-mild))) - `(package-status-built-in ((,class :foreground ,magenta))) - `(package-status-dependency ((,class :foreground ,magenta-alt-other))) - `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) - `(package-status-external ((,class :foreground ,cyan-alt-other))) - `(package-status-held ((,class :foreground ,yellow-alt))) - `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) - `(package-status-installed ((,class :foreground ,fg-special-warm))) - `(package-status-new ((,class :inherit bold :foreground ,green))) - `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) -;;;;; page-break-lines - `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) -;;;;; paradox - `(paradox-archive-face ((,class :foreground ,fg-special-mild))) - `(paradox-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) - `(paradox-description-face ((,class :foreground ,fg-special-cold))) - `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) - `(paradox-download-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,blue-alt-other))) - `(paradox-highlight-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-alt-other))) - `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) - `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) - `(paradox-name-face ((,class :foreground ,blue :underline t))) - `(paradox-star-face ((,class :foreground ,magenta))) - `(paradox-starred-face ((,class :foreground ,magenta-alt))) -;;;;; paren-face - `(parenthesis ((,class :foreground ,fg-unfocused))) -;;;;; parrot - `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) -;;;;; pass - `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) - `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) -;;;;; persp-mode - `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) - `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) - `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) -;;;;; perspective - `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) -;;;;; phi-grep - `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) - `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) - `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) - `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) -;;;;; phi-search - `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) - `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) - `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) - `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) -;;;;; pkgbuild-mode - `(pkgbuild-error-face ((,class :underline ,fg-lang-error))) -;;;;; pomidor - `(pomidor-break-face ((,class :foreground ,blue-alt-other))) - `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) - `(pomidor-skip-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(pomidor-work-face ((,class :foreground ,green-alt-other))) -;;;;; powerline - `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) - `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced))) - `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) - `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) - `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) -;;;;; powerline-evil - `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) - `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) - `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) - `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) - `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) - `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) - `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) - `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) -;;;;; proced - `(proced-mark ((,class :inherit modus-theme-mark-symbol))) - `(proced-marked ((,class :inherit modus-theme-mark-alt))) - `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) -;;;;; prodigy - `(prodigy-green-face ((,class :foreground ,green))) - `(prodigy-red-face ((,class :foreground ,red))) - `(prodigy-yellow-face ((,class :foreground ,yellow))) -;;;;; racket-mode - `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) - `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) - :foreground ,green-alt-other))) - `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) - :foreground ,green))) - `(racket-here-string-face ((,class :foreground ,blue-alt))) - `(racket-keyword-argument-face ((,class :foreground ,red-alt))) - `(racket-logger-config-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) - `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) - `(racket-logger-topic-face ((,class :foreground ,magenta :slant ,modus-theme-slant))) - `(racket-selfeval-face ((,class :foreground ,green-alt))) - `(racket-xp-error-face - ((,(append '((supports :underline (:style wave))) class) - :underline (:color ,fg-lang-error :style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; rainbow-blocks - `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) - `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) - `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) - `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) - `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) - `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) - `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) - `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) -;;;;; rainbow-identifiers - `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) - `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) - `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) - `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) - `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) - `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) - `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) - `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) - `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) - `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) - `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) - `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) - `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) - `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) - `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) -;;;;; rainbow-delimiters - `(rainbow-delimiters-base-face-error ((,class :foreground ,red))) - `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) - `(rainbow-delimiters-depth-1-face ((,class :foreground ,green-alt-other))) - `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-alt-other))) - `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-alt-other))) - `(rainbow-delimiters-depth-4-face ((,class :foreground ,yellow-alt-other))) - `(rainbow-delimiters-depth-5-face ((,class :foreground ,blue-alt-other))) - `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-alt))) - `(rainbow-delimiters-depth-7-face ((,class :foreground ,magenta-alt))) - `(rainbow-delimiters-depth-8-face ((,class :foreground ,cyan-alt))) - `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-alt))) - `(rainbow-delimiters-mismatched-face ((,class :inherit bold :foreground ,red-alt))) - `(rainbow-delimiters-unmatched-face ((,class :inherit bold :foreground ,red))) -;;;;; rcirc - `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) - `(rcirc-dim-nick ((,class :foreground ,fg-alt))) - `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) - `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) - `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) - `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) - `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) - `(rcirc-server ((,class :foreground ,fg-unfocused))) - `(rcirc-timestamp ((,class :foreground ,blue-nuanced))) - `(rcirc-url ((,class :foreground ,blue :underline t))) -;;;;; regexp-builder (re-builder) - `(reb-match-0 ((,class :inherit modus-theme-intense-blue))) - `(reb-match-1 ((,class :inherit modus-theme-intense-magenta))) - `(reb-match-2 ((,class :inherit modus-theme-intense-green))) - `(reb-match-3 ((,class :inherit modus-theme-intense-red))) - `(reb-regexp-grouping-backslash ((,class :inherit bold :foreground ,fg-escape-char-backslash))) - `(reb-regexp-grouping-construct ((,class :inherit bold :foreground ,fg-escape-char-construct))) -;;;;; rg (rg.el) - `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) - `(rg-context-face ((,class :foreground ,fg-unfocused))) - `(rg-error-face ((,class :inherit bold :foreground ,red))) - `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) - `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) - `(rg-line-number-face ((,class :foreground ,fg-special-warm))) - `(rg-literal-face ((,class :foreground ,blue-alt))) - `(rg-match-face ((,class :inherit modus-theme-special-calm))) - `(rg-regexp-face ((,class :foreground ,magenta-active))) - `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) - `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) - `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) -;;;;; ripgrep - `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) - `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) - `(ripgrep-hit-face ((,class :foreground ,cyan))) - `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) -;;;;; rmail - `(rmail-header-name ((,class :foreground ,cyan-alt-other))) - `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) -;;;;; ruler-mode - `(ruler-mode-column-number ((,class :inherit (ruler-mode-default bold) :foreground ,fg-main))) - `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red-active))) - `(ruler-mode-current-column ((,class :inherit ruler-mode-default :foreground ,cyan-active :box t))) - `(ruler-mode-default ((,class :background ,bg-inactive :foreground ,fg-inactive))) - `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green-active))) - `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,blue-active))) - `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,magenta-active))) - `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) - `(ruler-mode-pad ((,class :background ,bg-active :foreground ,fg-inactive))) - `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,yellow-active))) -;;;;; sallet - `(sallet-buffer-compressed ((,class :foreground ,yellow-nuanced :slant italic))) - `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced))) - `(sallet-buffer-directory ((,class :foreground ,blue-nuanced))) - `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) - `(sallet-buffer-modified ((,class :foreground ,yellow-alt-other :slant italic))) - `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) - `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) - `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) - `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) - `(sallet-flx-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-cyan - 'modus-theme-refine-cyan - 'modus-theme-nuanced-cyan - cyan-alt-other)))) - `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced))) - `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) - `(sallet-regexp-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-magenta - 'modus-theme-refine-magenta - 'modus-theme-nuanced-magenta - magenta-alt-other)))) - `(sallet-source-header ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(sallet-substring-match ((,class ,@(modus-vivendi-theme-extra-completions - 'modus-theme-subtle-blue - 'modus-theme-refine-blue - 'modus-theme-nuanced-blue - blue-alt-other)))) -;;;;; selectrum - `(selectrum-current-candidate - ((,class :inherit bold :foreground ,fg-main :underline ,fg-main - :background ,@(pcase modus-vivendi-theme-completions - ('opinionated (list bg-active)) - (_ (list bg-inactive)))))) - `(selectrum-primary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - magenta-alt magenta-nuanced-bg - magenta-refine-bg magenta-refine-fg)))) - `(selectrum-secondary-highlight ((,class :inherit bold - ,@(modus-vivendi-theme-standard-completions - cyan-alt-other cyan-nuanced-bg - cyan-refine-bg cyan-refine-fg)))) -;;;;; semantic - `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) - `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) - `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) - `(semantic-highlight-edits-face ((,class :background ,bg-alt))) - `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) - `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) - `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) - `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) -;;;;; sesman - `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) - `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) - `(sesman-buffer-face ((,class :foreground ,magenta))) - `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) - `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) -;;;;; shell-script-mode - `(sh-heredoc ((,class :foreground ,blue-alt))) - `(sh-quoted-exec ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt))) -;;;;; show-paren-mode - `(show-paren-match ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) - `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) -;;;;; side-notes - `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) -;;;;; skewer-mode - `(skewer-error-face ((,class :foreground ,red :underline t))) -;;;;; smart-mode-line - `(sml/charging ((,class :foreground ,green-active))) - `(sml/discharging ((,class :foreground ,red-active))) - `(sml/filename ((,class :inherit bold :foreground ,blue-active))) - `(sml/folder ((,class :foreground ,fg-active))) - `(sml/git ((,class :inherit bold :foreground ,green-active))) - `(sml/global ((,class :foreground ,fg-active))) - `(sml/line-number ((,class :inherit sml/global))) - `(sml/minor-modes ((,class :inherit sml/global))) - `(sml/modes ((,class :inherit bold :foreground ,fg-active))) - `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) - `(sml/mule-info ((,class :inherit sml/global))) - `(sml/name-filling ((,class :foreground ,yellow-active))) - `(sml/not-modified ((,class :inherit sml/global))) - `(sml/numbers-separator ((,class :inherit sml/global))) - `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) - `(sml/position-percentage ((,class :inherit sml/global))) - `(sml/prefix ((,class :foreground ,green-active))) - `(sml/process ((,class :inherit sml/prefix))) - `(sml/projectile ((,class :inherit sml/git))) - `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) - `(sml/remote ((,class :inherit sml/global))) - `(sml/sudo ((,class :inherit modus-theme-subtle-red))) - `(sml/time ((,class :inherit sml/global))) - `(sml/vc ((,class :inherit sml/git))) - `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) -;;;;; smartparens - `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) - `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) - `(sp-show-pair-match-face ((,class ,@(modus-vivendi-theme-paren bg-paren-match - bg-paren-match-intense) - :foreground ,fg-main))) - `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) - `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) - `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) -;;;;; smerge - `(smerge-base ((,class :inherit modus-theme-diff-changed))) - `(smerge-lower ((,class :inherit modus-theme-diff-added))) - `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) - `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) - `(smerge-refined-changed ((,class))) - `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) - `(smerge-upper ((,class :inherit modus-theme-diff-removed))) -;;;;; spaceline - `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) - `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) - `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) - `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) - `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) - `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) - `(spaceline-flycheck-error ((,class :foreground ,red-active))) - `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) - `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) - `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) - `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) - `(spaceline-python-venv ((,class :foreground ,magenta-active))) - `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) - `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) -;;;;; speedbar - `(speedbar-button-face ((,class :inherit link))) - `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) - `(speedbar-file-face ((,class :foreground ,fg-main))) - `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) - `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) - `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) - `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) -;;;;; spell-fu - `(spell-fu-incorrect-face - ((,(append '((supports :underline (:style wave))) class) - :foreground ,fg-lang-error :underline (:style wave)) - (,class :foreground ,fg-lang-error :underline t))) -;;;;; stripes - `(stripes ((,class :inherit modus-theme-hl-line))) -;;;;; success - `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) -;;;;; switch-window - `(switch-window-background ((,class :background ,bg-dim))) - `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) -;;;;; swiper - `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) - `(swiper-background-match-face-2 ((,class :inherit modus-theme-subtle-cyan))) - `(swiper-background-match-face-3 ((,class :inherit modus-theme-subtle-magenta))) - `(swiper-background-match-face-4 ((,class :inherit modus-theme-subtle-green))) - `(swiper-line-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :inherit modus-theme-special-cold))) - `(swiper-match-face-1 ((,class :inherit swiper-line-face))) - `(swiper-match-face-2 ((,class :inherit swiper-line-face))) - `(swiper-match-face-3 ((,class :inherit swiper-line-face))) - `(swiper-match-face-4 ((,class :inherit swiper-line-face))) -;;;;; swoop - `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-3)))) - `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt - ,@(modus-vivendi-theme-scale modus-vivendi-theme-scale-4)))) - `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) - `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue - ,@(and (>= emacs-major-version 27) '(:extend t))))) - `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) -;;;;; sx - `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) - `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) - `(sx-question-list-answers ((,class :foreground ,green))) - `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) - `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) - `(sx-question-list-date ((,class :foreground ,fg-special-cold))) - `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) - `(sx-question-list-parent ((,class :foreground ,fg-main))) - `(sx-question-list-read-question ((,class :foreground ,fg-alt))) - `(sx-question-list-score ((,class :foreground ,fg-special-mild))) - `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) - `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) - `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) - `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) - `(sx-question-mode-content-face ((,class :background ,bg-dim))) - `(sx-question-mode-date ((,class :foreground ,blue))) - `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) - `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) - `(sx-question-mode-score ((,class :foreground ,fg-dim))) - `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) - `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) - `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) - `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) - `(sx-tag ((,class :foreground ,magenta-alt))) - `(sx-user-name ((,class :foreground ,blue-alt))) - `(sx-user-reputation ((,class :foreground ,fg-alt))) -;;;;; symbol-overlay - `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) - `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) - `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) - `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) - `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) - `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) - `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) - `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) - `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) -;;;;; syslog-mode - `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) - `(syslog-error ((,class :inherit bold :foreground ,red))) - `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) - `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) - `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) - `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) - `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) - `(syslog-su ((,class :inherit bold :foreground ,red-alt))) - `(syslog-warn ((,class :inherit bold :foreground ,yellow))) -;;;;; table (built-in table.el) - `(table-cell ((,class :background ,blue-nuanced-bg))) -;;;;; telephone-line - `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) - `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) - `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) - `(telephone-line-evil ((,class :foreground ,fg-main))) - `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) - `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) - `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) - `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) - `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) - `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) - `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) - `(telephone-line-projectile ((,class :foreground ,cyan-active))) - `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) - `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) -;;;;; term - `(term ((,class :background ,bg-main :foreground ,fg-main))) - `(term-bold ((,class :inherit bold))) - `(term-color-blue ((,class :background ,blue :foreground ,blue))) - `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(term-color-green ((,class :background ,green :foreground ,green))) - `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(term-color-red ((,class :background ,red :foreground ,red))) - `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) - `(term-underline ((,class :underline t))) -;;;;; tomatinho - `(tomatinho-ok-face ((,class :foreground ,blue-intense))) - `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) - `(tomatinho-reset-face ((,class :foreground ,fg-alt))) -;;;;; transient - `(transient-active-infix ((,class :inherit modus-theme-special-mild))) - `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) - `(transient-argument ((,class :inherit bold :foreground ,red-alt))) - `(transient-blue ((,class :inherit bold :foreground ,blue))) - `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) - `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) - `(transient-heading ((,class :inherit bold :foreground ,fg-main))) - `(transient-inactive-argument ((,class :foreground ,fg-alt))) - `(transient-inactive-value ((,class :foreground ,fg-alt))) - `(transient-key ((,class :inherit bold :foreground ,blue))) - `(transient-mismatched-key ((,class :underline t))) - `(transient-nonstandard-key ((,class :underline t))) - `(transient-pink ((,class :inherit bold :foreground ,magenta))) - `(transient-red ((,class :inherit bold :foreground ,red-intense))) - `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) - `(transient-unreachable ((,class :foreground ,fg-unfocused))) - `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) - `(transient-value ((,class :foreground ,magenta-alt))) -;;;;; trashed - `(trashed-deleted ((,class :inherit modus-theme-mark-del))) - `(trashed-directory ((,class :foreground ,blue))) - `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) - `(trashed-marked ((,class :inherit modus-theme-mark-alt))) - `(trashed-restored ((,class :inherit modus-theme-mark-sel))) - `(trashed-symlink ((,class :inherit button :foreground ,cyan-alt))) -;;;;; treemacs - `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) - `(treemacs-directory-face ((,class :inherit dired-directory))) - `(treemacs-file-face ((,class :foreground ,fg-main))) - `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) - `(treemacs-git-added-face ((,class :foreground ,green-intense))) - `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) - `(treemacs-git-ignored-face ((,class :foreground ,fg-alt))) - `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) - `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) - `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) - `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) - `(treemacs-help-column-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,magenta-alt-other :underline t))) - `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) - `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) - `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) - `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) - `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) - `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) - `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) - `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) - `(treemacs-tags-face ((,class :foreground ,blue-alt))) - `(treemacs-tags-face ((,class :foreground ,magenta-alt))) -;;;;; tty-menu - `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) - `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) - `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) -;;;;; tuareg - `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) - `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) - `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) - `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) - `(tuareg-font-double-semicolon-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-font-lock-attribute-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) - `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) - `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) - `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) - `(tuareg-font-lock-infix-extension-node-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) - `(tuareg-font-lock-interactive-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-font-lock-interactive-output-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(tuareg-font-lock-label-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) - `(tuareg-font-lock-module-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(tuareg-font-lock-operator-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(tuareg-opam-error-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red red-faint)))) - `(tuareg-opam-pkg-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint) - :slant ,modus-theme-slant))) -;;;;; typescript - `(typescript-jsdoc-tag ((,class :foreground ,fg-special-mild :slant ,modus-theme-slant))) - `(typescript-jsdoc-type ((,class :foreground ,fg-special-calm :slant ,modus-theme-slant))) - `(typescript-jsdoc-value ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) -;;;;; undo-tree - `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) - `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) - `(undo-tree-visualizer-default-face ((,class :foreground ,fg-alt))) - `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) - `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) -;;;;; vc (vc-hooks.el) - `(vc-conflict-state ((,class :foreground ,red-active :slant ,modus-theme-slant))) - `(vc-edited-state ((,class :foreground ,yellow-active))) - `(vc-locally-added-state ((,class :foreground ,cyan-active))) - `(vc-locked-state ((,class :foreground ,blue-active))) - `(vc-missing-state ((,class :foreground ,magenta-active :slant ,modus-theme-slant))) - `(vc-needs-update-state ((,class :foreground ,green-active :slant ,modus-theme-slant))) - `(vc-removed-state ((,class :foreground ,red-active))) - `(vc-state-base ((,class :foreground ,fg-active))) - `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) -;;;;; vdiff - `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) - `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) - `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) - `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) - `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) - `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) - `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) -;;;;; vimish-fold - `(vimish-fold-fringe ((,class :foreground ,cyan-active))) - `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) - `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) -;;;;; visible-mark - `(visible-mark-active ((,class :background ,blue-intense-bg))) - `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) - `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) - `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) - `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) -;;;;; visual-regexp - `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) - `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) - `(vr/group-2 ((,class :inherit modus-theme-intense-green))) - `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) - `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) -;;;;; volatile-highlights - `(vhl/default-face ((,class ,@(and (>= emacs-major-version 27) '(:extend t)) - :background ,bg-alt :foreground ,blue-nuanced))) -;;;;; vterm - `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) - `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) - `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) - `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) - `(vterm-color-green ((,class :background ,green :foreground ,green))) - `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) - `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) - `(vterm-color-red ((,class :background ,red :foreground ,red))) - `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) - `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) - `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) -;;;;; wcheck-mode - `(wcheck-default-face ((,class :foreground ,red :underline t))) -;;;;; web-mode - `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) - `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) - `(web-mode-block-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue blue-faint)))) - `(web-mode-block-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-block-control-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) - `(web-mode-block-face ((,class :background ,bg-dim))) - `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-bold-face ((,class :inherit bold))) - `(web-mode-builtin-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-comment-face ((,class :foreground ,fg-alt :slant ,modus-theme-slant))) - `(web-mode-comment-keyword-face ((,class :inherit bold :background ,bg-dim - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-constant-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-at-rule-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-css-color-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-css-function-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-priority-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt yellow-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-property-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-css-pseudo-class-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(web-mode-css-selector-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) - `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) - `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) - `(web-mode-doctype-face ((,class :foreground ,fg-special-cold :slant ,modus-theme-slant))) - `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) - `(web-mode-filter-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-folded-face ((,class :underline t))) - `(web-mode-function-call-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-function-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-attr-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) - `(web-mode-html-attr-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-html-attr-value-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-html-entity-face ((,class ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint) - :slant ,modus-theme-slant))) - `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) - `(web-mode-html-tag-custom-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-html-tag-namespaced-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-html-tag-unclosed-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red red-faint) - :underline t))) - `(web-mode-inlay-face ((,class :background ,bg-alt))) - `(web-mode-italic-face ((,class :slant italic))) - `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-json-context-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-json-key-face ((,class :foreground ,blue-nuanced))) - `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) - `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) - `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) - `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced))) - `(web-mode-keyword-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt-other magenta-alt-other-faint) - ,@(modus-vivendi-theme-bold-weight)))) - `(web-mode-param-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta magenta-faint)))) - `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) - `(web-mode-part-face ((,class :inherit web-mode-block-face))) - `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) - `(web-mode-preprocessor-face ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(web-mode-script-face ((,class :inherit web-mode-part-face))) - `(web-mode-sql-keyword-face ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - yellow yellow-faint)))) - `(web-mode-string-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt blue-alt-faint)))) - `(web-mode-style-face ((,class :inherit web-mode-part-face))) - `(web-mode-symbol-face ((,class ,@(modus-vivendi-theme-syntax-foreground - blue-alt-other blue-alt-other-faint)))) - `(web-mode-type-face ((,class ,@(modus-vivendi-theme-syntax-foreground - magenta-alt magenta-alt-faint)))) - `(web-mode-underline-face ((,class :underline t))) - `(web-mode-variable-name-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan cyan-faint)))) - `(web-mode-warning-face ((,class :inherit bold :background ,bg-alt - ,@(modus-vivendi-theme-syntax-foreground - yellow-alt-other yellow-alt-other-faint)))) - `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) -;;;;; wgrep - `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) - `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) - `(wgrep-face ((,class :inherit modus-theme-refine-green))) - `(wgrep-file-face ((,class :foreground ,fg-special-warm))) - `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) -;;;;; which-function-mode - `(which-func ((,class :foreground ,magenta-active))) -;;;;; which-key - `(which-key-command-description-face ((,class :foreground ,cyan))) - `(which-key-group-description-face ((,class :foreground ,magenta-alt))) - `(which-key-highlighted-command-face ((,class :foreground ,cyan-alt :underline t))) - `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) - `(which-key-local-map-description-face ((,class :foreground ,fg-main))) - `(which-key-note-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) - `(which-key-separator-face ((,class :foreground ,fg-alt))) - `(which-key-special-key-face ((,class :inherit bold :foreground ,yellow-intense))) -;;;;; whitespace-mode - `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) - `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) - `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-line ((,class :inherit modus-theme-special-warm))) - `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) - `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) - `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) - `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) -;;;;; window-divider-mode - `(window-divider ((,class :foreground ,fg-window-divider-inner))) - `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) - `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) -;;;;; winum - `(winum-face ((,class ,@(modus-vivendi-theme-bold-weight) :foreground ,cyan-active))) -;;;;; writegood-mode - `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) - `(writegood-passive-voice-face ((,class :foreground ,yellow-nuanced :underline ,fg-lang-warning))) - `(writegood-weasels-face ((,class :foreground ,red-nuanced :underline ,fg-lang-error))) -;;;;; woman - `(woman-addition ((,class :foreground ,magenta-alt-other))) - `(woman-bold ((,class :inherit bold :foreground ,magenta))) - `(woman-italic ((,class :foreground ,cyan :slant italic))) - `(woman-unknown ((,class :foreground ,yellow :slant italic))) -;;;;; xah-elisp-mode - `(xah-elisp-at-symbol ((,class :inherit bold - ,@(modus-vivendi-theme-syntax-foreground - red-alt red-alt-faint)))) - `(xah-elisp-cap-variable ((,class ,@(modus-vivendi-theme-syntax-foreground - red-alt-other red-alt-other-faint)))) - `(xah-elisp-command-face ((,class ,@(modus-vivendi-theme-syntax-foreground - cyan-alt-other cyan-alt-other-faint)))) - `(xah-elisp-dollar-symbol ((,class ,@(modus-vivendi-theme-syntax-foreground - green green-faint)))) -;;;;; xref - `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) - `(xref-line-number ((,class :foreground ,fg-alt))) - `(xref-match ((,class :inherit match))) -;;;;; yaml-mode - `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) -;;;;; yasnippet - `(yas-field-highlight-face ((,class :background ,bg-alt :foreground ,fg-main))) -;;;;; ztree - `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) - `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) - `(ztreep-diff-model-add-face ((,class :foreground ,green))) - `(ztreep-diff-model-diff-face ((,class :foreground ,red))) - `(ztreep-diff-model-ignored-face ((,class :foreground ,fg-alt :strike-through t))) - `(ztreep-diff-model-normal-face ((,class :foreground ,fg-alt))) - `(ztreep-expand-sign-face ((,class :foreground ,blue))) - `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) - `(ztreep-leaf-face ((,class :foreground ,cyan))) - `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) - `(ztreep-node-face ((,class :foreground ,fg-main)))) -;;;; Emacs 27+ - (when (>= emacs-major-version 27) - (custom-theme-set-faces - 'modus-vivendi -;;;;; line numbers (`display-line-numbers-mode' and global variant) - ;; NOTE that this is specifically for the faces that were - ;; introduced in Emacs 27, as the other faces are already - ;; supported. - `(line-number-major-tick ((,class :inherit (bold default) - :background ,yellow-nuanced-bg - :foreground ,yellow-nuanced))) - `(line-number-minor-tick ((,class :inherit (bold default) - :background ,bg-inactive - :foreground ,fg-inactive))) -;;;;; tab-bar-mode - `(tab-bar ((,class :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))) -;;;;; tab-line-mode - `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) - `(tab-line-close-highlight ((,class :foreground ,red))) - `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) - `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) - :background ,bg-tab-active :foreground ,fg-main))) - `(tab-line-tab-current ((,class :inherit tab-line-tab))) - `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) - :background ,bg-tab-inactive :foreground ,fg-dim))))) -;;;; Emacs 28+ - (when (>= emacs-major-version 28) - (custom-theme-set-faces - 'modus-vivendi -;;;;; isearch regexp groups - `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) - `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))))) -;;; variables - (custom-theme-set-variables - 'modus-vivendi -;;;; ansi-colors - `(ansi-color-faces-vector [default bold shadow italic underline success warning error]) - `(ansi-color-names-vector [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-main]) -;;;; awesome-tray - `(awesome-tray-mode-line-active-color ,blue) - `(awesome-tray-mode-line-inactive-color ,bg-active) -;;;; flymake fringe indicators - `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) - `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) - `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) -;;;; ibuffer - `(ibuffer-deletion-face 'modus-theme-mark-del) - `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) - `(ibuffer-marked-face 'modus-theme-mark-sel) - `(ibuffer-title-face 'modus-theme-pseudo-header) -;;;; highlight-tail - `(highlight-tail-colors - '((,green-subtle-bg . 0) - (,cyan-subtle-bg . 20))) -;;;; hl-todo - `(hl-todo-keyword-faces - '(("HOLD" . ,yellow-alt) - ("TODO" . ,magenta) - ("NEXT" . ,magenta-alt-other) - ("THEM" . ,magenta-alt) - ("PROG" . ,cyan) - ("OKAY" . ,cyan-alt) - ("DONT" . ,green-alt) - ("FAIL" . ,red) - ("BUG" . ,red) - ("DONE" . ,green) - ("NOTE" . ,yellow-alt-other) - ("KLUDGE" . ,yellow) - ("HACK" . ,yellow) - ("TEMP" . ,red-nuanced) - ("FIXME" . ,red-alt-other) - ("XXX+" . ,red-alt) - ("REVIEW" . ,cyan-alt-other) - ("DEPRECATED" . ,blue-nuanced))) -;;;; vc-annotate (C-x v g) - `(vc-annotate-background nil) - `(vc-annotate-background-mode nil) - `(vc-annotate-color-map - '((20 . ,red) - (40 . ,magenta) - (60 . ,magenta-alt) - (80 . ,red-alt) - (100 . ,yellow) - (120 . ,yellow-alt) - (140 . ,fg-special-warm) - (160 . ,fg-special-mild) - (180 . ,green) - (200 . ,green-alt) - (220 . ,cyan-alt-other) - (240 . ,cyan-alt) - (260 . ,cyan) - (280 . ,fg-special-cold) - (300 . ,blue) - (320 . ,blue-alt) - (340 . ,blue-alt-other) - (360 . ,magenta-alt-other))) - `(vc-annotate-very-old-color nil) -;;;; xterm-color - `(xterm-color-names [,bg-main ,red ,green ,yellow ,blue ,magenta ,cyan ,fg-alt]) - `(xterm-color-names-bright [,bg-alt ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt ,fg-main])) -;;; Conditional theme variables -;;;; org-src-block-faces - ;; this is a user option to add a colour-coded background to source - ;; blocks for various programming languages - (when (eq modus-vivendi-theme-org-blocks 'rainbow) - (custom-theme-set-variables - 'modus-vivendi - `(org-src-block-faces ; TODO this list should be expanded - `(("emacs-lisp" modus-theme-nuanced-magenta) - ("elisp" modus-theme-nuanced-magenta) - ("clojure" modus-theme-nuanced-magenta) - ("clojurescript" modus-theme-nuanced-magenta) - ("c" modus-theme-nuanced-blue) - ("c++" modus-theme-nuanced-blue) - ("sh" modus-theme-nuanced-green) - ("shell" modus-theme-nuanced-green) - ("html" modus-theme-nuanced-yellow) - ("xml" modus-theme-nuanced-yellow) - ("css" modus-theme-nuanced-red) - ("scss" modus-theme-nuanced-red) - ("python" modus-theme-nuanced-green) - ("ipython" modus-theme-nuanced-magenta) - ("r" modus-theme-nuanced-cyan) - ("yaml" modus-theme-nuanced-cyan) - ("conf" modus-theme-nuanced-cyan) - ("docker" modus-theme-nuanced-cyan) - ("json" modus-theme-nuanced-cyan)))))) +(deftheme modus-vivendi + "Accessible and customizable dark theme (WCAG AAA standard). +Conforms with the highest legibility standard for color contrast +between background and foreground in any given piece of text, +which corresponds to a minimum contrast in relative luminance of +7:1.") -;;; library provides -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) +(modus-themes-theme modus-vivendi) (provide-theme 'modus-vivendi) -(provide 'modus-vivendi-theme) - ;;; modus-vivendi-theme.el ends here -- 2.30.1 ^ permalink raw reply related [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-04 20:57 ` Protesilaos Stavrou 2021-03-04 22:06 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda 2021-03-04 22:40 ` Mauro Aranda @ 2021-03-05 17:11 ` Basil L. Contovounesios 2021-03-05 17:50 ` Protesilaos Stavrou 2021-03-05 21:11 ` Gregory Heytings 3 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-05 17:11 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068, Mauro Aranda Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-04, 18:41 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > >> Protesilaos Stavrou <info@protesilaos.com> writes: >> > I updated the language to disambiguate the use-cases. If you think it > needs further work, I will rewrite it. I think it's fine now, thanks. >>> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >>> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >>> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, >> ^^ >> Hopefully Org's Texinfo export can one day be taught that this is not >> the end of a sentence ;). > > Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps > by omitting the space? Or the 'L. ' wholesale, but using @: as you've done is also fine ;). >>> +(deftheme modus-vivendi >>> + "Accessible and customizable light theme (WCAG AAA standard). >> ^^^^^ >> dark > > Fixed! > > [ Answer only if it is easy: how do you draw those ^^^ below the text? ] If the answer is easy, or drawing the circumflexes is easy? ;) Either way, the answer is boring: I create a new line, add the appropriate indentation e.g. using indent-relative, and then add the circumflexes manually. Maybe someone else knows a faster trick. > On 2021-03-04, 13:53 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: > >>> ;;;###autoload >>> (when (and (boundp 'custom-theme-load-path) load-file-name) >>> (add-to-list 'custom-theme-load-path >>> (file-name-as-directory (file-name-directory load-file-name)))) >> >> A nit: I think this code should avoid adding the value of >> custom-theme-directory or the built-in theme directory name to >> custom-theme-load-path , if `custom-theme-directory' (for the former) or >> t (for the latter) are already present in custom-theme-load-path. In >> particular, a theme distributed with Emacs should at least check for t, >> to avoid a repeated entry. >> >> I've noticed that the leuven theme has a similar code as well: I think >> that is a (really minor) bug. > > I have removed that form altogether. It makes sense for packages but > here they are safe themes. Is that okay, or have I misunderstood > something? If you don't mind the (minor) maintenance overhead of removing the form in emacs.git, then that's fine. Alternatively, a more DWIM approach could be something like this: ;;;###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)))) I'm not sure if this works on non-GNU/Linux platforms, though. Does anyone else know or have a better suggestion? It could probably use file-in-directory-p instead, but that's quite a bit slower than file-name-directory + expand-file-name, at least in relative terms. Let me know what works best for you. Following the discussion in: https://gitlab.com/protesilaos/modus-themes/-/issues/162 I'm preparing to update emacs.git to Modus version 1.2.2. I just want to clarify a thing here and there first, so stay tuned. Thanks, -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-05 17:11 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios @ 2021-03-05 17:50 ` Protesilaos Stavrou 2021-03-05 22:00 ` Basil L. Contovounesios 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-05 17:50 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda [-- Attachment #1: Type: text/plain, Size: 3862 bytes --] On 2021-03-05, 17:11 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: >>>> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >>>> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >>>> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, >>> ^^ >>> Hopefully Org's Texinfo export can one day be taught that this is not >>> the end of a sentence ;). >> >> Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps >> by omitting the space? > > Or the 'L. ' wholesale, but using @: as you've done is also fine ;). I preferred to keep the name the way you use it, so as to avoid ambiguity (though I would not mind if your doppelgänger was also hacking on Elisp!). >>>> +(deftheme modus-vivendi >>>> + "Accessible and customizable light theme (WCAG AAA standard). >>> ^^^^^ >>> dark >> >> Fixed! >> >> [ Answer only if it is easy: how do you draw those ^^^ below the text? ] > > If the answer is easy, or drawing the circumflexes is easy? ;) > > Either way, the answer is boring: I create a new line, add the > appropriate indentation e.g. using indent-relative, and then add the > circumflexes manually. Maybe someone else knows a faster trick. Ah okay, thanks! >> On 2021-03-04, 13:53 -0300, Mauro Aranda <maurooaranda@gmail.com> wrote: >> >>>> ;;;###autoload >>>> (when (and (boundp 'custom-theme-load-path) load-file-name) >>>> (add-to-list 'custom-theme-load-path >>>> (file-name-as-directory (file-name-directory load-file-name)))) >>> >>> A nit: I think this code should avoid adding the value of >>> custom-theme-directory or the built-in theme directory name to >>> custom-theme-load-path , if `custom-theme-directory' (for the former) or >>> t (for the latter) are already present in custom-theme-load-path. In >>> particular, a theme distributed with Emacs should at least check for t, >>> to avoid a repeated entry. >>> >>> I've noticed that the leuven theme has a similar code as well: I think >>> that is a (really minor) bug. >> >> I have removed that form altogether. It makes sense for packages but >> here they are safe themes. Is that okay, or have I misunderstood >> something? > > If you don't mind the (minor) maintenance overhead of removing the form > in emacs.git, then that's fine. Alternatively, a more DWIM approach > could be something like this: > > ;;;###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)))) > > I'm not sure if this works on non-GNU/Linux platforms, though. > Does anyone else know or have a better suggestion? > > It could probably use file-in-directory-p instead, but that's quite a > bit slower than file-name-directory + expand-file-name, at least in > relative terms. > > Let me know what works best for you. I would prefer to avoid the extra maintenance cost, not because I mind doing the added work, but it can be a cause for errors. To me your snippet looks right, though I am using GNU/Linux exclusively. I just added it to my file (citing you as the author) and updated my repo to version 1.2.3, which includes every change we have covered in this thread. > Following the discussion in: > > https://gitlab.com/protesilaos/modus-themes/-/issues/162 > > I'm preparing to update emacs.git to Modus version 1.2.2. I just want > to clarify a thing here and there first, so stay tuned. Now version 1.2.3. I guess you prefer the files over a patch? I attach them. -- Protesilaos Stavrou protesilaos.com [-- Attachment #2: modus-operandi-theme.el --] [-- Type: text/plain, Size: 2550 bytes --] ;;; modus-operandi-theme.el --- Accessible light theme (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.2.3 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Modus Operandi is the light variant of the Modus themes (Modus ;; Vivendi is the dark one). The themes are designed for color-contrast ;; accessibility. More specifically: ;; ;; 1. Provide a consistent minimum contrast ratio between background ;; and foreground values of 7:1 or higher. This meets the highest ;; such accessibility criterion per the guidelines of the Worldwide ;; Web Consortium's Working Group on Accessibility (WCAG AAA ;; standard). ;; ;; 2. Offer as close to full face coverage as possible. The list is ;; already quite long, with more additions to follow as part of the ;; ongoing development process. ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-themes.el (Main code shared between the themes) ;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f (eval-and-compile (unless (and (fboundp 'require-theme) (require-theme 'modus-themes t)) (require 'modus-themes))) (deftheme modus-operandi "Accessible and customizable light theme (WCAG AAA standard). Conforms with the highest legibility standard for color contrast between background and foreground in any given piece of text, which corresponds to a minimum contrast in relative luminance of 7:1.") (modus-themes-theme modus-operandi) (provide-theme 'modus-operandi) ;;; modus-operandi-theme.el ends here [-- Attachment #3: modus-themes.el --] [-- Type: text/plain, Size: 343994 bytes --] ;;; modus-themes.el --- Highly accessible themes (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.2.3 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <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). ;; This file contains all customization options, helper functions, ;; interactive commands, and face specifications. Please refer to the ;; official Info manual for further documentation (distributed with the ;; themes, or available at: <https://protesilaos.com/modus-themes>). ;; ;; The themes share the following customization options, all of which ;; are disabled by default (nil): ;; ;; modus-themes-slanted-constructs (boolean) ;; modus-themes-bold-constructs (boolean) ;; modus-themes-variable-pitch-headings (boolean) ;; modus-themes-variable-pitch-ui (boolean) ;; modus-themes-no-mixed-fonts (boolean) ;; modus-themes-headings (alist) ;; modus-themes-scale-headings (boolean) ;; modus-themes-fringes (choice) ;; modus-themes-lang-checkers (choice) ;; modus-themes-org-blocks (choice) ;; modus-themes-org-habit (choice) ;; modus-themes-prompts (choice) ;; modus-themes-mode-line (choice) ;; modus-themes-diffs (choice) ;; modus-themes-syntax (choice) ;; modus-themes-intense-hl-line (boolean) ;; modus-themes-subtle-line-numbers (boolean) ;; modus-themes-paren-match (choice) ;; modus-themes-region (choice) ;; modus-themes-links (choice) ;; modus-themes-completions (choice) ;; ;; The default scale for headings is as follows (it can be customized as ;; well---remember, no scaling takes place by default): ;; ;; modus-themes-scale-1 1.05 ;; modus-themes-scale-2 1.1 ;; modus-themes-scale-3 1.15 ;; modus-themes-scale-4 1.2 ;; modus-themes-scale-5 1.3 ;; ;; There also exist two unique customization options for overriding ;; color palette values. The specifics are documented in the manual. ;; The symbols are: ;; ;; modus-themes-operandi-color-overrides (alist) ;; modus-themes-vivendi-color-overrides (alist) ;; ;; Below is the list of explicitly supported packages or face groups ;; (there are implicitly supported packages as well, which inherit from ;; font-lock or some basic group). You are encouraged to report any ;; missing package or change you would like to see. ;; ;; ace-window ;; ag ;; alert ;; all-the-icons ;; annotate ;; anzu ;; apropos ;; apt-sources-list ;; artbollocks-mode ;; auctex and TeX ;; auto-dim-other-buffers ;; avy ;; awesome-tray ;; bbdb ;; binder ;; bm ;; bongo ;; boon ;; breakpoint (provided by built-in gdb-mi.el) ;; buffer-expose ;; calendar and diary ;; calfw ;; centaur-tabs ;; cfrs ;; change-log and log-view (`vc-print-log' and `vc-print-root-log') ;; cider ;; circe ;; color-rg ;; column-enforce-mode ;; company-mode ;; company-posframe ;; compilation-mode ;; completions ;; consult ;; counsel ;; counsel-css ;; counsel-notmuch ;; counsel-org-capture-string ;; cov ;; cperl-mode ;; csv-mode ;; ctrlf ;; custom (M-x customize) ;; dap-mode ;; dashboard (emacs-dashboard) ;; deadgrep ;; debbugs ;; define-word ;; deft ;; dictionary ;; diff-hl ;; diff-mode ;; dim-autoload ;; dir-treeview ;; dired ;; dired-async ;; dired-git ;; dired-git-info ;; dired-narrow ;; dired-subtree ;; diredc ;; diredfl ;; diredp (dired+) ;; disk-usage ;; display-fill-column-indicator-mode ;; doom-modeline ;; dynamic-ruler ;; easy-jekyll ;; easy-kill ;; ebdb ;; ediff ;; eglot ;; el-search ;; eldoc ;; eldoc-box ;; elfeed ;; elfeed-score ;; emms ;; enhanced-ruby-mode ;; epa ;; equake ;; erc ;; eros ;; ert ;; eshell ;; eshell-fringe-status ;; eshell-git-prompt ;; eshell-prompt-extras (epe) ;; eshell-syntax-highlighting ;; evil (evil-mode) ;; evil-goggles ;; evil-snipe ;; evil-visual-mark-mode ;; eww ;; exwm ;; eyebrowse ;; fancy-dabbrev ;; flycheck ;; flycheck-color-mode-line ;; flycheck-indicator ;; flycheck-posframe ;; flymake ;; flyspell ;; flyspell-correct ;; flx ;; freeze-it ;; frog-menu ;; focus ;; fold-this ;; font-lock (generic syntax highlighting) ;; forge ;; fountain (fountain-mode) ;; geiser ;; git-commit ;; git-gutter (and variants) ;; git-lens ;; git-rebase ;; git-timemachine ;; git-walktree ;; gnus ;; golden-ratio-scroll-screen ;; helm ;; helm-ls-git ;; helm-switch-shell ;; helm-xref ;; helpful ;; highlight-blocks ;; highlight-defined ;; highlight-escape-sequences (`hes-mode') ;; highlight-indentation ;; highlight-numbers ;; highlight-symbol ;; highlight-tail ;; highlight-thing ;; hl-defined ;; hl-fill-column ;; hl-line-mode ;; hl-todo ;; hydra ;; hyperlist ;; ibuffer ;; icomplete ;; ido-mode ;; iedit ;; iflipb ;; imenu-list ;; indium ;; info ;; info-colors ;; interaction-log ;; ioccur ;; isearch, occur, etc. ;; isl (isearch-light) ;; ivy ;; ivy-posframe ;; jira (org-jira) ;; journalctl-mode ;; js2-mode ;; julia ;; jupyter ;; kaocha-runner ;; keycast ;; line numbers (`display-line-numbers-mode' and global variant) ;; lsp-mode ;; lsp-ui ;; macrostep ;; magit ;; magit-imerge ;; make-mode ;; man ;; marginalia ;; markdown-mode ;; markup-faces (`adoc-mode') ;; mentor ;; messages ;; minibuffer-line ;; minimap ;; mmm-mode ;; modeline ;; mood-line ;; mpdel ;; mu4e ;; mu4e-conversation ;; multiple-cursors ;; neotree ;; no-emoji ;; notmuch ;; num3-mode ;; nxml-mode ;; objed ;; orderless ;; org ;; org-journal ;; org-noter ;; org-pomodoro ;; org-recur ;; org-roam ;; org-superstar ;; org-table-sticky-header ;; org-tree-slide ;; org-treescope ;; origami ;; outline-mode ;; outline-minor-faces ;; package (M-x list-packages) ;; page-break-lines ;; paradox ;; paren-face ;; parrot ;; pass ;; pdf-tools ;; persp-mode ;; perspective ;; phi-grep ;; phi-search ;; pkgbuild-mode ;; pomidor ;; popup ;; powerline ;; powerline-evil ;; prism (see "Note for prism.el" in the manual) ;; proced ;; prodigy ;; quick-peek ;; racket-mode ;; rainbow-blocks ;; rainbow-identifiers ;; rainbow-delimiters ;; rcirc ;; recursion-indicator ;; regexp-builder (also known as `re-builder') ;; rg ;; ripgrep ;; rmail ;; ruler-mode ;; sallet ;; selectrum ;; selectrum-prescient ;; semantic ;; sesman ;; shell-script-mode ;; shortdoc ;; show-paren-mode ;; shr ;; side-notes ;; sieve-mode ;; skewer-mode ;; smart-mode-line ;; smartparens ;; smerge ;; spaceline ;; speedbar ;; spell-fu ;; spray ;; stripes ;; suggest ;; switch-window ;; swiper ;; swoop ;; sx ;; symbol-overlay ;; tab-bar-mode ;; tab-line-mode ;; syslog-mode ;; table (built-in table.el) ;; telephone-line ;; terraform-mode ;; term ;; tomatinho ;; transient (pop-up windows like Magit's) ;; trashed ;; treemacs ;; tty-menu ;; tuareg ;; typescript ;; undo-tree ;; vc (built-in mode line status for version control) ;; vc-annotate (C-x v g) ;; vdiff ;; vimish-fold ;; visible-mark ;; visual-regexp ;; volatile-highlights ;; vterm ;; wcheck-mode ;; web-mode ;; wgrep ;; which-function-mode ;; which-key ;; whitespace-mode ;; window-divider-mode ;; winum ;; writegood-mode ;; woman ;; xah-elisp-mode ;; xref ;; xterm-color (and ansi-colors) ;; yaml-mode ;; yasnippet ;; ztree ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-operandi-theme.el (Light theme) ;; - modus-vivendi-theme.el (Dark theme) ;;; Code: \f (eval-when-compile (require 'cl-lib)) (defgroup modus-themes () "Options for `modus-operandi', `modus-vivendi'." :group 'faces :link '(info-link "(modus-themes) Top") :prefix "modus-themes-" :tag "Modus Themes") ;;; Variables for each theme variant ;;;; Modus Operandi (define-obsolete-variable-alias 'modus-operandi-theme-default-colors-alist 'modus-themes-colors-operandi "1.0.0") (define-obsolete-variable-alias 'modus-themes-colors-operandi 'modus-themes-operandi-colors "1.1.0") (defconst modus-themes-operandi-colors '(;; base values (bg-main . "#ffffff") (fg-main . "#000000") (bg-dim . "#f8f8f8") (fg-dim . "#282828") (bg-alt . "#f0f0f0") (fg-alt . "#505050") ;; specifically for on/off states and must be combined with ;; themselves, though the backgrounds are also meant to be used with ;; other "active" values, defined further below (bg-active . "#d7d7d7") (fg-active . "#0a0a0a") (bg-inactive . "#efefef") (fg-inactive . "#404148") ;; these special values are intended as alternatives to the base ;; values for cases where we need to avoid confusion between the ;; highlighted constructs; they must either be used as pairs based ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} ;; always in accordance with their role as background or foreground (bg-special-cold . "#dde3f4") (fg-special-cold . "#093060") (bg-special-mild . "#c4ede0") (fg-special-mild . "#184034") (bg-special-warm . "#f0e0d4") (fg-special-warm . "#5d3026") (bg-special-calm . "#f8ddea") (fg-special-calm . "#61284f") ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt (red . "#a60000") (red-alt . "#972500") (red-alt-other . "#a0132f") (red-faint . "#7f1010") (red-alt-faint . "#702f00") (red-alt-other-faint . "#7f002f") (green . "#005e00") (green-alt . "#315b00") (green-alt-other . "#145c33") (green-faint . "#104410") (green-alt-faint . "#30440f") (green-alt-other-faint . "#0f443f") (yellow . "#813e00") (yellow-alt . "#70480f") (yellow-alt-other . "#863927") (yellow-faint . "#5f4400") (yellow-alt-faint . "#5d5000") (yellow-alt-other-faint . "#5e3a20") (blue . "#0031a9") (blue-alt . "#2544bb") (blue-alt-other . "#0000c0") (blue-faint . "#003497") (blue-alt-faint . "#0f3d8c") (blue-alt-other-faint . "#001087") (magenta . "#721045") (magenta-alt . "#8f0075") (magenta-alt-other . "#5317ac") (magenta-faint . "#752f50") (magenta-alt-faint . "#7b206f") (magenta-alt-other-faint . "#55348e") (cyan . "#00538b") (cyan-alt . "#30517f") (cyan-alt-other . "#005a5f") (cyan-faint . "#005077") (cyan-alt-faint . "#354f6f") (cyan-alt-other-faint . "#125458") ;; these foreground values can only be combined with bg-main and are ;; thus not suitable for general purpose highlighting (red-intense . "#b60000") (orange-intense . "#904200") (green-intense . "#006800") (yellow-intense . "#605b00") (blue-intense . "#1f1fce") (magenta-intense . "#a8007f") (purple-intense . "#7f10d0") (cyan-intense . "#005f88") ;; those foregrounds are meant exclusively for bg-active, bg-inactive (red-active . "#8a0000") (green-active . "#004c2e") (yellow-active . "#702d1f") (blue-active . "#0030b4") (magenta-active . "#5c2092") (cyan-active . "#003f8a") ;; the "subtle" values below be combined with fg-dim, while the ;; "intense" should be paired with fg-main (red-subtle-bg . "#f2b0a2") (red-intense-bg . "#ff8892") (green-subtle-bg . "#aecf90") (green-intense-bg . "#5ada88") (yellow-subtle-bg . "#e4c340") (yellow-intense-bg . "#f5df23") (blue-subtle-bg . "#b5d0ff") (blue-intense-bg . "#6aaeff") (magenta-subtle-bg . "#f0d3ff") (magenta-intense-bg . "#d5baff") (cyan-subtle-bg . "#c0efff") (cyan-intense-bg . "#42cbd4") ;; those background values must be combined with fg-main and should ;; only be used for indicators that are placed on the fringes (red-fringe-bg . "#f08290") (green-fringe-bg . "#62c86a") (yellow-fringe-bg . "#dbba3f") (blue-fringe-bg . "#82afff") (magenta-fringe-bg . "#e0a3ff") (cyan-fringe-bg . "#2fcddf") ;; those background values should only be used for graphs or similar ;; applications where colored blocks are expected to be positioned ;; next to each other (red-graph-0-bg . "#ef6f79") (red-graph-1-bg . "#ff9f9f") (green-graph-0-bg . "#49d239") (green-graph-1-bg . "#6dec6d") (yellow-graph-0-bg . "#efec08") (yellow-graph-1-bg . "#dbff4e") (blue-graph-0-bg . "#55a2f0") (blue-graph-1-bg . "#7fcfff") (magenta-graph-0-bg . "#ba86ef") (magenta-graph-1-bg . "#e7afff") (cyan-graph-0-bg . "#30d3f0") (cyan-graph-1-bg . "#6fefff") ;; the following are for cases where both the foreground and the ;; background need to have a similar hue and so must be combined ;; with themselves, even though the foregrounds can be paired with ;; any of the base backgrounds (red-refine-bg . "#ffcccc") (red-refine-fg . "#780000") (green-refine-bg . "#aceaac") (green-refine-fg . "#004c00") (yellow-refine-bg . "#fff29a") (yellow-refine-fg . "#604000") (blue-refine-bg . "#8ac7ff") (blue-refine-fg . "#002288") (magenta-refine-bg . "#ffccff") (magenta-refine-fg . "#770077") (cyan-refine-bg . "#8eecf4") (cyan-refine-fg . "#004850") ;; the "nuanced" backgrounds can be combined with all of the above ;; foregrounds, as well as those included here, while the "nuanced" ;; foregrounds can in turn also be combined with bg-main, bg-dim, ;; bg-alt (red-nuanced-bg . "#fff1f0") (red-nuanced-fg . "#5f0000") (green-nuanced-bg . "#ecf7ed") (green-nuanced-fg . "#004000") (yellow-nuanced-bg . "#fff3da") (yellow-nuanced-fg . "#3f3000") (blue-nuanced-bg . "#f3f3ff") (blue-nuanced-fg . "#201f55") (magenta-nuanced-bg . "#fdf0ff") (magenta-nuanced-fg . "#541f4f") (cyan-nuanced-bg . "#ebf6fa") (cyan-nuanced-fg . "#0f3360") ;; the following are reserved for specific cases ;; ;; bg-hl-line is between bg-dim and bg-alt, so it should ;; work with all accents that cover those two, plus bg-main ;; ;; bg-hl-alt and bg-hl-alt-intense should only be used when no ;; other greyscale or fairly neutral background is available to ;; properly draw attention to a given construct ;; ;; bg-header is between bg-active and bg-inactive, so it ;; can be combined with any of the "active" values, plus the ;; "special" and base foreground colors ;; ;; bg-paren-match, bg-paren-match-intense, bg-region and ;; bg-tab-active must be combined with fg-main, while ;; bg-tab-inactive should be combined with fg-dim, whereas ;; bg-tab-inactive-alt goes together with fg-main ;; ;; bg-tab-bar is only intended for the bar that holds the tabs and ;; can only be combined with fg-main ;; ;; fg-tab-active is meant to be combined with bg-tab-active, ;; though only for styling special elements, such as underlining ;; the current tab ;; ;; fg-escape-char-construct and fg-escape-char-backslash can ;; be combined bg-main, bg-dim, bg-alt ;; ;; fg-lang-error, fg-lang-warning, fg-lang-note can be ;; combined with bg-main, bg-dim, bg-alt ;; ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined ;; with bg-main, bg-dim, bg-alt, bg-hl-line ;; ;; fg-unfocused must be combined with bg-main ;; ;; fg-docstring, fg-comment-yellow can be combined with ;; bg-main, bg-dim, bg-alt ;; ;; the window divider colors apply to faces with just an fg value ;; ;; all pairs are combinable with themselves (bg-hl-line . "#f2eff3") (bg-hl-line-intense . "#e0e0e0") (bg-hl-alt . "#fbeee0") (bg-hl-alt-intense . "#e8dfd1") (bg-paren-match . "#e0af82") (bg-paren-match-intense . "#c488ff") (bg-region . "#bcbcbc") (bg-tab-bar . "#d5d5d5") (bg-tab-active . "#f6f6f6") (bg-tab-inactive . "#bdbdbd") (bg-tab-inactive-alt . "#999999") (fg-tab-active . "#30169e") (fg-escape-char-construct . "#8b1030") (fg-escape-char-backslash . "#654d0f") (fg-lang-error . "#9f004f") (fg-lang-warning . "#604f0f") (fg-lang-note . "#4040ae") (fg-lang-underline-error . "#ef4f54") (fg-lang-underline-warning . "#cf9f00") (fg-lang-underline-note . "#3f6fef") (fg-window-divider-inner . "#888888") (fg-window-divider-outer . "#585858") (fg-unfocused . "#56576d") (fg-docstring . "#2a486a") (fg-comment-yellow . "#5f4400") (bg-header . "#e5e5e5") (fg-header . "#2a2a2a") (bg-whitespace . "#f5efef") (fg-whitespace . "#624956") (bg-diff-heading . "#b7cfe0") (fg-diff-heading . "#041645") (bg-diff-added . "#d4fad4") (fg-diff-added . "#004500") (bg-diff-added-deuteran . "#daefff") (fg-diff-added-deuteran . "#002044") (bg-diff-changed . "#fcefcf") (fg-diff-changed . "#524200") (bg-diff-removed . "#ffe8ef") (fg-diff-removed . "#691616") (bg-diff-refine-added . "#94cf94") (fg-diff-refine-added . "#002a00") (bg-diff-refine-added-deuteran . "#77c0ef") (fg-diff-refine-added-deuteran . "#000035") (bg-diff-refine-changed . "#cccf8f") (fg-diff-refine-changed . "#302010") (bg-diff-refine-removed . "#daa2b0") (fg-diff-refine-removed . "#400000") (bg-diff-focus-added . "#bbeabb") (fg-diff-focus-added . "#002c00") (bg-diff-focus-added-deuteran . "#bacfff") (fg-diff-focus-added-deuteran . "#001755") (bg-diff-focus-changed . "#ecdfbf") (fg-diff-focus-changed . "#392900") (bg-diff-focus-removed . "#efcbcf") (fg-diff-focus-removed . "#4a0000") (bg-diff-neutral-0 . "#979797") (fg-diff-neutral-0 . "#040404") (bg-diff-neutral-1 . "#b0b0b0") (fg-diff-neutral-1 . "#252525") (bg-diff-neutral-2 . "#cccccc") (fg-diff-neutral-2 . "#3a3a3a") (bg-mark-sel . "#a0f0cf") (fg-mark-sel . "#005040") (bg-mark-del . "#ffccbb") (fg-mark-del . "#840040") (bg-mark-alt . "#f5d88f") (fg-mark-alt . "#782900")) "The entire palette of `modus-operandi' theme. Each element has the form (NAME . HEX) with the former as a symbol and the latter as a string.") ;;;; Modus Vivendi (define-obsolete-variable-alias 'modus-vivendi-theme-default-colors-alist 'modus-themes-colors-vivendi "1.0.0") (define-obsolete-variable-alias 'modus-themes-colors-vivendi 'modus-themes-vivendi-colors "1.1.0") (defconst modus-themes-vivendi-colors '(;; base values (bg-main . "#000000") (fg-main . "#ffffff") (bg-dim . "#110b11") (fg-dim . "#e0e6f0") (bg-alt . "#181a20") (fg-alt . "#a8a8a8") ;; specifically for on/off states and must be combined with ;; themselves, though the backgrounds are also meant to be used with ;; other "active" values, defined further below (bg-active . "#323232") (fg-active . "#f4f4f4") (bg-inactive . "#1e1e1e") (fg-inactive . "#bfc0c4") ;; these special values are intended as alternatives to the base ;; values for cases where we need to avoid confusion between the ;; highlighted constructs; they must either be used as pairs based ;; on their name or each can be combined with {fg,bg}-{main,alt,dim} ;; always in accordance with their role as background or foreground (bg-special-cold . "#203448") (fg-special-cold . "#c6eaff") (bg-special-mild . "#00322e") (fg-special-mild . "#bfebe0") (bg-special-warm . "#382f27") (fg-special-warm . "#f8dec0") (bg-special-calm . "#392a48") (fg-special-calm . "#fbd6f4") ;; foregrounds that can be combined with bg-main, bg-dim, bg-alt (red . "#ff8059") (red-alt . "#f4923b") (red-alt-other . "#ff9977") (red-faint . "#ffa0a0") (red-alt-faint . "#f5aa80") (red-alt-other-faint . "#ff9fbf") (green . "#44bc44") (green-alt . "#70c900") (green-alt-other . "#00cd68") (green-faint . "#88cf88") (green-alt-faint . "#a8cf88") (green-alt-other-faint . "#88cfaf") (yellow . "#eecc00") (yellow-alt . "#cfdf30") (yellow-alt-other . "#f0ce43") (yellow-faint . "#d2b580") (yellow-alt-faint . "#cabf77") (yellow-alt-other-faint . "#d0ba95") (blue . "#2fafff") (blue-alt . "#79a8ff" ) (blue-alt-other . "#00bcff") (blue-faint . "#92baff") (blue-alt-faint . "#a0acf5") (blue-alt-other-faint . "#87c8ff") (magenta . "#feacd0") (magenta-alt . "#f78fe7") (magenta-alt-other . "#b6a0ff") (magenta-faint . "#e0b2d6") (magenta-alt-faint . "#ef9fe4") (magenta-alt-other-faint . "#cfa6ff") (cyan . "#00d3d0") (cyan-alt . "#4ae8fc") (cyan-alt-other . "#6ae4b9") (cyan-faint . "#90c4ed") (cyan-alt-faint . "#a0bfdf") (cyan-alt-other-faint . "#a4d0bb") ;; these foreground values can only be combined with bg-main and are ;; thus not suitable for general purpose highlighting (red-intense . "#fe6060") (orange-intense . "#fba849") (green-intense . "#4fe42f") (yellow-intense . "#f0dd60") (blue-intense . "#4fafff") (magenta-intense . "#ff62d4") (purple-intense . "#9f80ff") (cyan-intense . "#3fdfd0") ;; those foregrounds are meant exclusively for bg-active, bg-inactive (red-active . "#ffa7ba") (green-active . "#70d73f") (yellow-active . "#dbbe5f") (blue-active . "#34cfff") (magenta-active . "#d5b1ff") (cyan-active . "#00d8b4") ;; the "subtle" values below be combined with fg-dim, while the ;; "intense" should be paired with fg-main (red-subtle-bg . "#762422") (red-intense-bg . "#a4202a") (green-subtle-bg . "#2f4a00") (green-intense-bg . "#006800") (yellow-subtle-bg . "#604200") (yellow-intense-bg . "#874900") (blue-subtle-bg . "#10387c") (blue-intense-bg . "#2a40b8") (magenta-subtle-bg . "#49366e") (magenta-intense-bg . "#7042a2") (cyan-subtle-bg . "#00415e") (cyan-intense-bg . "#005f88") ;; those background values must be combined with fg-main and should ;; only be used for indicators that are placed on the fringes (red-fringe-bg . "#8f1f4b") (green-fringe-bg . "#006700") (yellow-fringe-bg . "#6f4f00") (blue-fringe-bg . "#3f33af") (magenta-fringe-bg . "#6f2f89") (cyan-fringe-bg . "#004f8f") ;; those background values should only be used for graphs or similar ;; applications where colored blocks are expected to be positioned ;; next to each other (red-graph-0-bg . "#af0404") (red-graph-1-bg . "#801f2f") (green-graph-0-bg . "#24ba2f") (green-graph-1-bg . "#0f8f07") (yellow-graph-0-bg . "#ffd03e") (yellow-graph-1-bg . "#d7d800") (blue-graph-0-bg . "#406fff") (blue-graph-1-bg . "#2f50c8") (magenta-graph-0-bg . "#af7bee") (magenta-graph-1-bg . "#7f59cf") (cyan-graph-0-bg . "#47dcfa") (cyan-graph-1-bg . "#0bc0df") ;; the following are for cases where both the foreground and the ;; background need to have a similar hue and so must be combined ;; with themselves, even though the foregrounds can be paired with ;; any of the base backgrounds (red-refine-bg . "#77002a") (red-refine-fg . "#ffb9ab") (green-refine-bg . "#00422a") (green-refine-fg . "#9ff0cf") (yellow-refine-bg . "#693200") (yellow-refine-fg . "#e2d980") (blue-refine-bg . "#242679") (blue-refine-fg . "#8ec6ff") (magenta-refine-bg . "#71206a") (magenta-refine-fg . "#ffcaf0") (cyan-refine-bg . "#004065") (cyan-refine-fg . "#8ae4f2") ;; the "nuanced" backgrounds can be combined with all of the above ;; foregrounds, as well as those included here, while the "nuanced" ;; foregrounds can in turn also be combined with bg-main, bg-dim, ;; bg-alt (red-nuanced-bg . "#2c0614") (red-nuanced-fg . "#ffcccc") (green-nuanced-bg . "#001904") (green-nuanced-fg . "#b8e2b8") (yellow-nuanced-bg . "#221000") (yellow-nuanced-fg . "#dfdfb0") (blue-nuanced-bg . "#0f0e39") (blue-nuanced-fg . "#bfd9ff") (magenta-nuanced-bg . "#230631") (magenta-nuanced-fg . "#e5cfef") (cyan-nuanced-bg . "#041529") (cyan-nuanced-fg . "#a8e5e5") ;; the following are reserved for specific cases ;; ;; bg-hl-line is between bg-dim and bg-alt, so it should ;; work with all accents that cover those two, plus bg-main ;; ;; bg-hl-alt and bg-hl-alt-intense should only be used when no ;; other greyscale or fairly neutral background is available to ;; properly draw attention to a given construct ;; ;; bg-header is between bg-active and bg-inactive, so it ;; can be combined with any of the "active" values, plus the ;; "special" and base foreground colors ;; ;; bg-paren-match, bg-paren-match-intense, bg-region and ;; bg-tab-active must be combined with fg-main, while ;; bg-tab-inactive should be combined with fg-dim, whereas ;; bg-tab-inactive-alt goes together with fg-main ;; ;; bg-tab-bar is only intended for the bar that holds the tabs and ;; can only be combined with fg-main ;; ;; fg-tab-active is meant to be combined with bg-tab-active, ;; though only for styling special elements, such as underlining ;; the current tab ;; ;; fg-escape-char-construct and fg-escape-char-backslash can ;; be combined bg-main, bg-dim, bg-alt ;; ;; fg-lang-error, fg-lang-warning, fg-lang-note can be ;; combined with bg-main, bg-dim, bg-alt ;; ;; fg-mark-sel, fg-mark-del, fg-mark-alt can be combined ;; with bg-main, bg-dim, bg-alt, bg-hl-line ;; ;; fg-unfocused must be combined with bg-main ;; ;; fg-docstring, fg-comment-yellow can be combined with ;; bg-main, bg-dim, bg-alt ;; ;; the window divider colors apply to faces with just an fg value ;; ;; all pairs are combinable with themselves (bg-hl-line . "#151823") (bg-hl-line-intense . "#2f2f2f") (bg-hl-alt . "#181732") (bg-hl-alt-intense . "#282e46") (bg-paren-match . "#5f362f") (bg-paren-match-intense . "#7416b5") (bg-region . "#3c3c3c") (bg-tab-bar . "#2c2c2c") (bg-tab-active . "#0e0e0e") (bg-tab-inactive . "#3d3d3d") (bg-tab-inactive-alt . "#595959") (fg-tab-active . "#5ac3cf") (fg-escape-char-construct . "#e7a59a") (fg-escape-char-backslash . "#abab00") (fg-lang-error . "#ef8690") (fg-lang-warning . "#b0aa00") (fg-lang-note . "#9d9def") (fg-lang-underline-error . "#ff4a6f") (fg-lang-underline-warning . "#d0de00") (fg-lang-underline-note . "#5f6fff") (fg-window-divider-inner . "#646464") (fg-window-divider-outer . "#969696") (fg-unfocused . "#93959b") (fg-docstring . "#b0d6f5") (fg-comment-yellow . "#cab98f") (bg-header . "#212121") (fg-header . "#dddddd") (bg-whitespace . "#101424") (fg-whitespace . "#aa9e9f") (bg-diff-heading . "#304466") (fg-diff-heading . "#dae7ff") (bg-diff-added . "#0a280a") (fg-diff-added . "#94ba94") (bg-diff-added-deuteran . "#001a3f") (fg-diff-added-deuteran . "#c4cdf2") (bg-diff-changed . "#2a2000") (fg-diff-changed . "#b0ba9f") (bg-diff-removed . "#40160f") (fg-diff-removed . "#c6adaa") (bg-diff-refine-added . "#005a36") (fg-diff-refine-added . "#e0f6e0") (bg-diff-refine-added-deuteran . "#234f8f") (fg-diff-refine-added-deuteran . "#dde4ff") (bg-diff-refine-changed . "#585800") (fg-diff-refine-changed . "#ffffcc") (bg-diff-refine-removed . "#852828") (fg-diff-refine-removed . "#ffd9eb") (bg-diff-focus-added . "#203d20") (fg-diff-focus-added . "#b4ddb4") (bg-diff-focus-added-deuteran . "#00405f") (fg-diff-focus-added-deuteran . "#bfe4ff") (bg-diff-focus-changed . "#4a3a10") (fg-diff-focus-changed . "#d0daaf") (bg-diff-focus-removed . "#5e2526") (fg-diff-focus-removed . "#eebdba") (bg-diff-neutral-0 . "#575757") (fg-diff-neutral-0 . "#fcfcfc") (bg-diff-neutral-1 . "#454545") (fg-diff-neutral-1 . "#dddddd") (bg-diff-neutral-2 . "#313131") (fg-diff-neutral-2 . "#bfbfbf") (bg-mark-sel . "#002f2f") (fg-mark-sel . "#60cfa2") (bg-mark-del . "#5a0000") (fg-mark-del . "#ff99aa") (bg-mark-alt . "#3f2210") (fg-mark-alt . "#f0aa20")) "The entire palette of `modus-vivendi' theme. Each element has the form (NAME . HEX) with the former as a symbol and the latter as a string.") \f ;;; Custom faces ;; These faces are used internally to ensure consistency between various ;; groups and to streamline the evaluation of relevant customization ;; options. (defface modus-theme-subtle-red nil "Subtle red background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-green nil "Subtle green background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-yellow nil "Subtle yellow background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-blue nil "Subtle blue background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-magenta nil "Subtle magenta background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-cyan nil "Subtle cyan background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-subtle-neutral nil "Subtle gray background combined with a dimmed foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-red nil "Intense red background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-green nil "Intense green background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-yellow nil "Intense yellow background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-blue nil "Intense blue background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-magenta nil "Intense magenta background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-cyan nil "Intense cyan background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-intense-neutral nil "Intense gray background combined with the main foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-red nil "Combination of accented red background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-green nil "Combination of accented green background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-yellow nil "Combination of accented yellow background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-blue nil "Combination of accented blue background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-magenta nil "Combination of accented magenta background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-refine-cyan nil "Combination of accented cyan background and foreground. This is used for general purpose highlighting, mostly in buffers or for completion interfaces. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-red nil "A red background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-green nil "A green background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-yellow nil "A yellow background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-blue nil "A blue background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-magenta nil "A magenta background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-active-cyan nil "A cyan background meant for use on the modeline or similar. This is combined with the modelines primary foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-red nil "A red background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-green nil "A green background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-yellow nil "A yellow background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-blue nil "A blue background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-magenta nil "A magenta background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-fringe-cyan nil "A cyan background meant for use on the fringe or similar. This is combined with the main foreground value. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-red nil "A nuanced red background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-green nil "A nuanced green background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-yellow nil "A nuanced yellow background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-blue nil "A nuanced blue background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-magenta nil "A nuanced magenta background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-nuanced-cyan nil "A nuanced cyan background. This does not specify a foreground of its own. Instead it is meant to serve as the backdrop for elements such as Org blocks, headings, and any other surface that needs to retain the colors on display. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-cold nil "Combines the 'special cold' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-mild nil "Combines the 'special mild' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-warm nil "Combines the 'special warm' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-special-calm nil "Combines the 'special calm' background and foreground values. This is intended for cases when a neutral gray background is not suitable and where a combination of more saturated colors would not be appropriate. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-added nil "Combines green colors for the 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-changed nil "Combines yellow colors for the 'changed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-removed nil "Combines red colors for the 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-added nil "Combines green colors for word-wise 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-changed nil "Combines yellow colors for word-wise 'changed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-refine-removed nil "Combines red colors for word-wise 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-added nil "Combines green colors for the focused 'added' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-changed nil "Combines yellow colors for the focused 'changed' state in. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-focus-removed nil "Combines red colors for the focused 'removed' state in diffs. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-diff-heading nil "Combines blue colors for the diff hunk heading. The applied colors are contingent on the value assigned to `modus-themes-diffs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-pseudo-header nil "Generic style for some elements that function like headings. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-alt nil "Combines yellow colors for marking special lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-del nil "Combines red colors for marking deletable lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-sel nil "Combines green colors for marking lines This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-mark-symbol nil "Applies a blue color and other styles for mark indicators. This is intended for use in modes such as Dired, Ibuffer, Proced. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-1 nil "General purpose face for use in headings level 1 The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-2 nil "General purpose face for use in headings level 2. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-3 nil "General purpose face for use in headings level 3. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-4 nil "General purpose face for use in headings level 4. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-5 nil "General purpose face for use in headings level 5. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-6 nil "General purpose face for use in headings level 6. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-7 nil "General purpose face for use in headings level 7. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-heading-8 nil "General purpose face for use in headings level 8. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-headings' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-hl-line nil "General purpose face for the current line. The exact attributes assigned to this face are contingent on the values assigned to the `modus-themes-intense-hl-line' variable. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-bold nil "Generic face for applying a conditional bold weight. This behaves in accordance with `modus-themes-bold-constructs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-slant nil "Generic face for applying a conditional slant (italics). This behaves in accordance with `modus-themes-slanted-constructs'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-variable-pitch nil "Generic face for applying a conditional `variable-pitch'. This behaves in accordance with `modus-themes-no-mixed-fonts', `modus-themes-variable-pitch-headings' for all heading levels, and `modus-themes-variable-pitch-ui'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-red-0 nil "Special subdued red face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-red-1 nil "Special prominent red face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-green-0 nil "Special subdued green face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-green-1 nil "Special prominent green face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-yellow-0 nil "Special subdued yellow face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-yellow-1 nil "Special prominent yellow face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-blue-0 nil "Special subdued blue face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-blue-1 nil "Special prominent blue face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-magenta-0 nil "Special subdued magenta face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-magenta-1 nil "Special prominent magenta face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-cyan-0 nil "Special subdued cyan face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-graph-cyan-1 nil "Special prominent cyan face for use in graphs. This is intended to be applied in contexts such as the Org agenda habit graph where faithfulness to the semantics of a color value is of paramount importance. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-note nil "Generic face for linter or spell checker notes. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-warning nil "Generic face for linter or spell checker warnings. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") (defface modus-theme-lang-error nil "Generic face for linter or spell checker errors. The exact attributes and color combinations are controlled by `modus-themes-lang-checkers'. The actual styling of the face is done by `modus-themes-faces'.") \f ;;; Customization options ;;;; Current customization options (>= 1.0.0) (defcustom modus-themes-operandi-color-overrides nil "Override colors in the Modus Operandi palette. For form, see `modus-themes-operandi-colors'." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(alist :key-type symbol :value-type color) :link '(info-link "(modus-themes) Override colors (DIY)")) (defcustom modus-themes-vivendi-color-overrides nil "Override colors in the Modus Vivendi palette. For form, see `modus-themes-vivendi-colors'." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(alist :key-type symbol :value-type color) :link '(info-link "(modus-themes) Override colors (DIY)")) ;; The byte compiler complains when a defcustom isn't a top level form (let* ((names (mapcar (lambda (pair) (symbol-name (car pair))) modus-themes-operandi-colors)) (colors (mapcar #'intern (sort names #'string<)))) (put 'modus-themes-operandi-color-overrides 'custom-options (copy-sequence colors)) (put 'modus-themes-vivendi-color-overrides 'custom-options (copy-sequence colors))) (defcustom modus-themes-slanted-constructs nil "Use slanted text in more code constructs (italics or oblique)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Slanted 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 :link '(info-link "(modus-themes) Bold constructs")) (defcustom modus-themes-variable-pitch-headings nil "Use proportional fonts (variable-pitch) in headings." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Headings' typeface")) (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 :link '(info-link "(modus-themes) UI typeface")) (defcustom modus-themes-no-mixed-fonts nil "Disable inheritance from `fixed-pitch' in some faces. This is done by default 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'. The downside with the default is that users need to explicitly configure the font family of `fixed-pitch' in order to get a consistent experience. That may be something they do not want to do. Hence this option to disable any kind of technique for mixing fonts." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) No mixed fonts")) (defcustom modus-themes-headings '((t . nil)) "Alist of styles for headings, with optional value per level. To control faces per level from 1-8, use something like this: (setq modus-themes-headings '((1 . highlight) (2 . line) (t . rainbow-line-no-bold))) To set a uniform value for all heading levels, use this pattern: (setq modus-themes-headings '((t . rainbow-line-no-bold))) The default uses a fairly desaturated foreground value in combination with a bold typographic weight. To specify this style for a given level N (assuming you wish to have another fallback option), just specify the value t like this: (setq modus-themes-headings '((1 . t) (2 . line) (t . rainbow-line-no-bold))) A description of all possible values: + `no-bold' retains the default text color while removing the typographic weight. + `line' is the same as the default plus an overline over the heading. + `line-no-bold' is the same as `line' without bold weight. + `rainbow' uses a more colorful foreground in combination with bold weight. + `rainbow-line' is the same as `rainbow' plus an overline. + `rainbow-line-no-bold' is the same as `rainbow-line' without the bold weight. + `highlight' retains the default style of a fairly desaturated foreground combined with a bold weight and add to it a subtle accented background. + `highlight-no-bold' is the same as `highlight' without a bold weight. + `rainbow-highlight' is the same as `highlight' but with a more colorful foreground. + `rainbow-highlight-no-bold' is the same as `rainbow-highlight' without a bold weight. + `section' retains the default looks and adds to them both an overline and a slightly accented background. It is, in effect, a combination of the `line' and `highlight' values. + `section-no-bold' is the same as `section' without a bold weight. + `rainbow-section' is the same as `section' but with a more colorful foreground. + `rainbow-section-no-bold' is the same as `rainbow-section' without a bold weight. + `no-color' does not apply any color to the heading, meaning that it uses the foreground of the `default' face. It still renders the text with a bold typographic weight. + `no-color-no-bold' is like `no-color' but without the bold weight." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(alist :key-type symbol :value-type (choice (const :tag "Fairly desaturated foreground with bold weight (default)" t) (const :tag "Like the default without bold weight" no-bold) (const :tag "Like the default plus overline" line) (const :tag "Like `line' without bold weight" line-no-bold) (const :tag "Like the default but with more colorful foreground" rainbow) (const :tag "Like `rainbow' plus overline" rainbow-line) (const :tag "Like `rainbow' without bold weight" rainbow-no-bold) (const :tag "Like `rainbow-line' without bold weight" rainbow-line-no-bold) (const :tag "Like the default plus subtle background" highlight) (const :tag "Like `highlight' without bold weight" highlight-no-bold) (const :tag "Like `highlight' with more colorful foreground" rainbow-highlight) (const :tag "Like `rainbow-highlight' without bold weight" rainbow-highlight-no-bold) (const :tag "Like `highlight' plus overline" section) (const :tag "Like `section' without bold weight" section-no-bold) (const :tag "Like `section' with more colorful foreground" rainbow-section) (const :tag "Like `rainbow-section' without bold weight" rainbow-section-no-bold) (const :tag "Do not use any distinct foreground color; just bold weight" no-color) (const :tag "Like `no-bold' but without the distinct foreground color" no-color-no-bold))) :link '(info-link "(modus-themes) Heading styles")) (defcustom modus-themes-scale-headings nil "Use font scaling for headings. For regular headings the scale is controlled by the variables `modus-themes-scale-1' (smallest) and its variants all the way up to `modus-themes-scale-4' (larger). While `modus-themes-scale-5' is reserved for special headings that must be the largest on the scale. A special heading is, in this context, one that does not fit into the syntax for heading levels that apply to the given mode. For example, Org's #+title keyword lies outside the normal eight levels of headings. Whereas, say, Markdown does not have such a special heading." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Scaled headings")) (defcustom modus-themes-scale-1 1.05 "Font size that is slightly larger than the base value. This size is used for level 4 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-2 1.1 "Font size slightly larger than `modus-themes-scale-1'. This size is used for level 3 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-3 1.15 "Font size slightly larger than `modus-themes-scale-2'. This size is used for level 2 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-4 1.2 "Font size slightly larger than `modus-themes-scale-3'. This size is used for level 1 headings, such as in Org and Markdown files. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-scale-5 1.3 "Font size slightly larger than `modus-themes-scale-4'. This size is only used for 'special' top level headings, such as Org's file title heading, denoted by the #+title key word, and the Org agenda structure headers. The default value is a floating point that is interpreted as a multiple of the base font size. It is recommended to use such a value. However, the variable also accepts an integer, understood as an absolute height that is 1/10 of the typeface's point size (e.g. a value of 140 is the same as setting the font at 14 point size). This will ignore the base font size and, thus, will not scale in accordance with it in cases where it changes, such as while using `text-scale-adjust'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'number :link '(info-link "(modus-themes) Scaled heading sizes")) (defcustom modus-themes-fringes nil "Define the visibility of fringes. Nil means the fringes have no background color. Option `subtle' will apply a greyscale value that is visible yet close to the main buffer background color. Option `intense' will use a more pronounced greyscale value." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "No visible fringes (default)" nil) (const :tag "Subtle greyscale background" subtle) (const :tag "Intense greyscale background" intense)) :link '(info-link "(modus-themes) Fringes")) (defcustom modus-themes-lang-checkers nil "Control the style of spelling and code checkers/linters. Nil (the default) applies a color-coded underline to the affected text, while it leaves the original foreground in tact. If the display spec of Emacs has support for it, the underline's style is that of a wave, otherwise it is a straight line. Options `subtle-foreground' and `intense-foreground' add a color-coded underline while also changing the text's foreground accordingly. The style of the underline is the same as with the default option. Option `straight-underline' is like the default but always applies a straight line under the affected text. Same principle for `subtle-foreground-straight-underline' and its counterpart `intense-foreground-straight-underline'. Option `colored-background' uses a straight underline, a background, and a foreground. All are color-coded. This is the most intense combination of face properties." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(choice (const :tag "Only color-coded wavy underline (default)" nil) (const :tag "Like the default, but with a straight underline" straight-underline) (const :tag "Color-coded wavy underline; subtle foreground" subtle-foreground) (const :tag "Combines `straight-underline' and `subtle-foreground'" subtle-foreground-straight-underline) (const :tag "Color-coded wavy underline; intense foreground" intense-foreground) (const :tag "Combines `straight-underline' and `intense-foreground'" intense-foreground-straight-underline) (const :tag "Color-coded background, foreground, straight underline" colored-background)) :link '(info-link "(modus-themes) Language checkers")) (defcustom modus-themes-org-blocks nil "Use a subtle gray or color-coded background for Org blocks. Nil means that the block will have no background of its own and will use the default that applies to the rest of the buffer. Option `grayscale' (or `greyscale') will apply a subtle neutral gray background to the block's contents. It also affects the begin and end lines of the block: their background will be extended to the edge of the window for Emacs version >= 27 where the ':extend' keyword is recognized by `set-face-attribute'. Option `rainbow' will use an accented background for the contents of the block. The exact color will depend on the programming language and is controlled by the `org-src-block-faces' variable (refer to the theme's source code for the current association list)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "No Org block background (default)" nil) (const :tag "Subtle gray block background" grayscale) (const :tag "Subtle gray block background (alt spelling)" greyscale) (const :tag "Color-coded background per programming language" rainbow)) :link '(info-link "(modus-themes) Org mode blocks")) (defcustom modus-themes-org-habit nil "Control the presentation of the `org-habit' graph. The default is meant to conform with the original aesthetic of `org-habit'. It employs all four color codes that correspond to the org-habit states---clear, ready, alert, and overdue---while distinguishing between their present and future variants. This results in a total of eight colors in use: red, yellow, green, blue, in tinted and shaded versions. They cover the full set of information provided by the `org-habit' consistency graph. Option `simplified' is like the default except that it removes the dichotomy between current and future variants by applying uniform color-coded values. It applies a total of four colors: red, yellow, green, blue. They produce a simplified consistency graph that is more legible (or less \"busy\") than the default. The intent is to shift focus towards the distinction between the four states of a habit task, rather than each state's present/future outlook. Option `traffic-light' further reduces the available colors to red, yellow, and green. As in `simplified', present and future variants appear uniformly, but differently from it, the 'clear' state is rendered in a green hue, instead of the original blue. This is meant to capture the use-case where a habit task being \"too early\" is less important than it being \"too late\". The difference between ready and clear states is attenuated by painting both of them using shades of green. This option thus highlights the alert and overdue states." :group 'modus-themes :package-version '(modus-themes . "1.1.0") :version "28.1" :type '(choice (const :tag "Respect the original design of org-habit (default)" nil) (const :tag "Like the default, but do not distinguish between present and future variants" simplified) (const :tag "Like `simplified', but only use red, yellow, green" traffic-light)) :link '(info-link "(modus-themes) Org agenda habits")) (defcustom modus-themes-mode-line nil "Adjust the overall style of the mode line. Nil is a two-dimensional rectangle with a border around it. The active and the inactive modelines use different shades of greyscale values for the background and foreground. A `3d' value will apply a three-dimensional effect to the active modeline. The inactive modelines remain two-dimensional and are toned down a bit, relative to the nil value. The `moody' option is meant to optimize the modeline for use with the library of the same name. This practically means to remove the box effect and rely on underline and overline properties instead. It also tones down the inactive modelines. Despite its intended purpose, this option can also be used without the `moody' library. The `borderless' option uses the same colors as the default (nil value), but removes the border effect. This is done by making the box property use the same color as the background, effectively blending the two and creating some padding. The `borderless-3d' and `borderless-moody' approximate the `3d' and `moody' options respectively, while removing the borders. However, to ensure that the inactive modelines remain visible, they apply a slightly more prominent background to them than what their counterparts do (same inactive background as with the default)." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Two-dimensional box (default)" nil) (const :tag "Three-dimensional style for the active mode line" 3d) (const :tag "No box effects, which are optimal for use with the `moody' library" moody) (const :tag "Like the default, but without border effects" borderless) (const :tag "Like `3d', but without noticeable border" borderless-3d) (const :tag "Like `moody', but without noticeable border" borderless-moody)) :link '(info-link "(modus-themes) Mode line")) (defcustom modus-themes-diffs nil "Adjust the overall styles of diffs. Nil means to use fairly intense color combinations for diffs. For example, you get a rich green background with a green foreground for added lines. Word-wise or 'refined' diffs follow the same pattern but use different shades of those colors to remain distinct. A `desaturated' value follows the same principles as with the nil option, while it tones down all relevant colors. Option `fg-only' will remove all accented backgrounds, except from word-wise changes. It instead uses color-coded foreground values to differentiate between added/removed/changed lines. If a background is necessary, such as with `ediff', then a subtle greyscale value is used. Option `bg-only' applies a background but does not override the text's foreground. This makes it suitable for a non-nil value passed to `diff-font-lock-syntax' (note: Magit does not support syntax highlighting in diffs as of 2020-11-25, version 20201116.1057). Option `deuteranopia' accounts for red-green color defficiency by replacing all instances of green with colors on the blue side of the spectrum. Other stylistic changes are made in the interest of optimizing for such a use-case." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Intensely colored backgrounds (default)" nil) (const :tag "Slightly accented backgrounds with tinted text" desaturated) (const :tag "No backgrounds, except for refined diffs" fg-only) (const :tag "Apply color-coded backgrounds; keep syntax colors in tact" bg-only) (const :tag "Optimized for red-green color defficiency" deuteranopia)) :link '(info-link "(modus-themes) Diffs")) (defcustom modus-themes-completions nil "Apply special styles to the UI of completion frameworks. This concerns Icomplete, Ivy, Helm, Selectrum, Ido, as well as any other tool meant to enhance their experience. The effect will vary depending on the completion framework. Nil means to remain faithful to the metaphors that each UI establishes. For example, Icomplete and Ido only use foreground colors to style their matches, whereas Ivy or Helm rely on an aesthetic that combines colored backgrounds with appropriate text color. Option `moderate' will apply a combination of background and foreground that is fairly subtle. For Icomplete and the like, this constitutes a departure from their standard style. While Ivy, Helm, and the others, will use less pronounced colors for applicable contexts. Option `opinionated' will apply color combinations that refashion the completion UI. So Icomplete et al will now use styles that resemble the defaults of Ivy and co., while the latter group will revert to an even more nuanced aesthetic." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Respect the framework's established aesthetic (default)" nil) (const :tag "Subtle backgrounds for various elements" moderate) (const :tag "Radical alternative to the framework's looks" opinionated)) :link '(info-link "(modus-themes) Completion UIs")) (defcustom modus-themes-prompts nil "Use subtle or intense styles for minibuffer and REPL prompts. Nil means to only use an accented foreground color. Options `subtle-accented' and `intense-accented' will change both the background and the foreground values to use accented color combinations that follow the hue of the default styles' foreground (e.g. the default minibuffer prompt is cyan text, so these combinations will involved a cyan background and an appropriate cyan foreground). Options `subtle-gray' and `intense-gray' are like their `subtle-accented' and `intense-accented' counterparts, except they use grayscale values instead of accented ones." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice ;; `subtle' is the same as `subtle-accented', while `intense' is ;; equal to `intense-accented' for backward compatibility (const :tag "No prompt background (default)" nil) (const :tag "Subtle accented background for the prompt" subtle-accented) (const :tag "Same as `subtle-accented' for compatibility with older versions" subtle) (const :tag "Intense accented background and foreground for the prompt" intense-accented) (const :tag "Same as `intense-accented' for compatibility with older versions" intense) (const :tag "Like `subtle-accented' but grayscale" subtle-gray) (const :tag "Like `intense-accented' but grayscale" intense-gray)) :link '(info-link "(modus-themes) Command prompts")) (defcustom modus-themes-intense-hl-line nil "Use a more prominent background for command `hl-line-mode'." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Line highlighting")) (defcustom modus-themes-subtle-line-numbers nil "Use more subtle style for command `display-line-numbers-mode'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type 'boolean :link '(info-link "(modus-themes) Line numbers")) (defcustom modus-themes-paren-match nil "Choose the style of matching parentheses or delimiters. Nil means to use a subtle tinted background color (the default). Option `intense' applies a saturated background color. Option `subtle-bold' is the same as the default, but also makes use of bold typographic weight (inherits the `bold' face). Option `intense-bold' is the same as `intense', while it also uses a bold weight." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Sublte tinted background (default)" nil) (const :tag "Like the default, but also use bold typographic weight" subtle-bold) (const :tag "Intense saturated background" intense) (const :tag "Like `intense' but with bold weight" intense-bold)) :link '(info-link "(modus-themes) Matching parentheses")) (defcustom modus-themes-syntax nil "Control the overall style of code syntax highlighting. Nil (the default) means to use colors on the cyan-blue-magenta side of the spectrum. There is little to no use of greens, yellows, and reds. Option `faint' is like the default in terms of the choice of palette but applies desaturated color values. Option `yellow-comments' applies a yellow tint to comments. The rest of the syntax is the same as the default. Option `green-strings' replaces the blue/cyan/cold color variants in strings with greener alternatives. The rest of the syntax remains the same. Option `yellow-comments-green-strings' combines yellow comments with green strings and the rest of the default syntax highlighting style. Option `alt-syntax' expands the color palette and applies new color combinations. Strings are green. Doc strings are magenta tinted. Comments are gray. Option `alt-syntax-yellow-comments' combines `alt-syntax' with `yellow-comments'. Option `faint-yellow-comments' combines the `faint' style with `yellow-comments'." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Balanced use of blue, cyan, magenta, purple variants (default)" nil) (const :tag "Like the default, but with desaturated color values" faint) (const :tag "Apply yellow tint to comments, keep the default style for the rest" yellow-comments) (const :tag "Use green for strings, keep the default style for the rest" green-strings) (const :tag "Use green for strings, yellow for comments, keep the default style for the rest" yellow-comments-green-strings) (const :tag "Refashion syntax highlighting with more colors, gray comments" alt-syntax) (const :tag "Like `alt-syntax' but with yellow comments" alt-syntax-yellow-comments) (const :tag "Like `faint' but with yellow comments" faint-yellow-comments)) :link '(info-link "(modus-themes) Syntax styles")) (defcustom modus-themes-links nil "Set the style of links. Nil means to use an underline that is the same color as the foreground. Option `faint' applies desaturated colors to the link's text and underline. Option `neutral-underline' applies a subtle grey underline, while retaining the link's foreground. Option `faint-neutral-underline' combines a desaturated text color with a subtle grey underline. Option `no-underline' removes link underlines altogether, while retaining their original fairly vivid color. Option `underline-only' applies an underline while making the affected text colorless (it uses the same foreground as the theme's default). Option `neutral-underline-only' makes the text colorless while using a subtle underline below it." :group 'modus-themes :package-version '(modus-themes . "1.2.0") :version "28.1" :type '(choice (const :tag "Undeline link using the same color as the text (default)" nil) (const :tag "Like the default, but apply less intense colors to links" faint) (const :tag "Change the color of link underlines to a neutral grey" neutral-underline) (const :tag "Desaturated foreground with neutral grey underline" faint-neutral-underline) (const :tag "Remove underline property from links, keeping their foreground as-is" no-underline) (const :tag "Apply underline only; use default foreground" underline-only) (const :tag "Like `underline-only' but with a subtle underline" neutral-underline-only)) :link '(info-link "(modus-themes) Link styles")) (defcustom modus-themes-region nil "Change the overall appearance of the active region. Nil (the default) means to only use a prominent gray background with a neutral foreground. The foreground overrides all syntax highlighting. The region extends to the edge of the window. Option `no-extend' preserves the default aesthetic but prevents the region from extending to the edge of the window. Option `bg-only' applies a faint tinted background that is distinct from all others used in the theme, while it does not override any existing colors. It extends to the edge of the window. Option `bg-only-no-extend' is a combination of the `bg-only' and `no-extend' options." :group 'modus-themes :package-version '(modus-themes . "1.0.0") :version "28.1" :type '(choice (const :tag "Intense background; overrides colors; extends to edge of window (default)" nil) (const :tag "As with the default, but does not extend" no-extend) (const :tag "Subtle background; preserves colors; extends to edge of window" bg-only) (const :tag "As with the `subtle' option, but does not extend" bg-only-no-extend)) :link '(info-link "(modus-themes) Active region")) \f ;;;; Deprecated customization options (prior to 1.0.0) ;;;;; Modus Operandi obsolete options (make-obsolete 'modus-operandi-theme-override-colors-alist nil "1.0.0") (make-obsolete 'modus-operandi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") (make-obsolete 'modus-operandi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") (make-obsolete 'modus-operandi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-operandi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-operandi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") (make-obsolete 'modus-operandi-theme-rainbow-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-section-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-operandi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") (make-obsolete 'modus-operandi-theme-scale-1 'modus-themes-scale-1 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-2 'modus-themes-scale-2 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-3 'modus-themes-scale-3 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-4 'modus-themes-scale-4 "1.0.0") (make-obsolete 'modus-operandi-theme-scale-5 'modus-themes-scale-5 "1.0.0") (make-obsolete 'modus-operandi-theme-visible-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-operandi-theme-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-operandi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-operandi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-operandi-theme-mode-line 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-operandi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-operandi-theme-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-operandi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-operandi-theme-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-operandi-theme-prompts 'modus-themes-prompts "1.0.0") (make-obsolete 'modus-operandi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") (make-obsolete 'modus-operandi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") (make-obsolete 'modus-operandi-theme-faint-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-comments 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-operandi-theme-no-link-underline 'modus-themes-links "1.0.0") (make-obsolete 'modus-operandi-theme-links 'modus-themes-links "1.0.0") ;;;;; Modus Vivendi obsolete options (make-obsolete 'modus-vivendi-theme-override-colors-alist nil "1.0.0") (make-obsolete 'modus-vivendi-theme-slanted-constructs 'modus-themes-slanted-constructs "1.0.0") (make-obsolete 'modus-vivendi-theme-bold-constructs 'modus-themes-bold-constructs "1.0.0") (make-obsolete 'modus-vivendi-theme-proportional-fonts 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-variable-pitch-headings 'modus-themes-variable-pitch-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-no-mixed-fonts 'modus-themes-no-mixed-fonts "1.0.0") (make-obsolete 'modus-vivendi-theme-rainbow-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-section-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-headings 'modus-themes-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-headings 'modus-themes-scale-headings "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-1 'modus-themes-scale-1 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-2 'modus-themes-scale-2 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-3 'modus-themes-scale-3 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-4 'modus-themes-scale-4 "1.0.0") (make-obsolete 'modus-vivendi-theme-scale-5 'modus-themes-scale-5 "1.0.0") (make-obsolete 'modus-vivendi-theme-visible-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-vivendi-theme-fringes 'modus-themes-fringes "1.0.0") (make-obsolete 'modus-vivendi-theme-distinct-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-rainbow-org-src-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-org-blocks 'modus-themes-org-blocks "1.0.0") (make-obsolete 'modus-vivendi-theme-3d-modeline 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-vivendi-theme-mode-line 'modus-themes-mode-line "1.0.0") (make-obsolete 'modus-vivendi-theme-subtle-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-vivendi-theme-diffs 'modus-themes-diffs "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-standard-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-vivendi-theme-completions 'modus-themes-completions "1.0.0") (make-obsolete 'modus-vivendi-theme-prompts 'modus-themes-prompts "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-hl-line 'modus-themes-intense-hl-line "1.0.0") (make-obsolete 'modus-vivendi-theme-intense-paren-match 'modus-themes-paren-match "1.0.0") (make-obsolete 'modus-vivendi-theme-faint-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-comments 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-syntax 'modus-themes-syntax "1.0.0") (make-obsolete 'modus-vivendi-theme-no-link-underline 'modus-themes-links "1.0.0") (make-obsolete 'modus-vivendi-theme-links 'modus-themes-links "1.0.0") \f ;;; Internal functions (defun modus-themes--palette (theme) "Return color palette for Modus theme THEME. THEME is a symbol, either `modus-operandi' or `modus-vivendi'." (pcase theme ('modus-operandi (append modus-themes-operandi-color-overrides modus-themes-operandi-colors)) ('modus-vivendi (append modus-themes-vivendi-color-overrides modus-themes-vivendi-colors)) (_theme (error "'%s' is not a Modus theme" theme)))) (defvar modus-themes-faces) (defvar modus-themes-custom-variables) (defmacro modus-themes-theme (name) "Bind NAME's color palette around face specs and variables. NAME should be the proper name of a Modus theme, either `modus-operandi' or `modus-vivendi'. 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." (declare (indent 0)) (let ((palette-sym (gensym)) (colors (mapcar #'car modus-themes-operandi-colors))) `(let* ((class '((class color) (min-colors 89))) (,palette-sym (modus-themes--palette ',name)) ,@(mapcar (lambda (color) (list color `(alist-get ',color ,palette-sym))) colors)) (custom-theme-set-faces ',name ,@modus-themes-faces) (custom-theme-set-variables ',name ,@modus-themes-custom-variables)))) (defun modus-themes--current-theme () "Return current theme." (car custom-enabled-themes)) ;; Helper functions that are meant to ease the implementation of the ;; above customization options. (defun modus-themes--bold-weight () "Conditional use of a heavier text weight." (when modus-themes-bold-constructs (list :inherit 'bold))) (defun modus-themes--mixed-fonts () "Conditional application of `fixed-pitch' inheritance." (unless modus-themes-no-mixed-fonts (list :inherit 'fixed-pitch))) (defun modus-themes--slant () "Conditional use of italics for slant attribute." (if modus-themes-slanted-constructs (list 'italic) (list 'normal))) (defun modus-themes--variable-pitch () "Conditional use of `variable-pitch' in headings." (when modus-themes-variable-pitch-headings (list :inherit 'variable-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--fringe (mainbg subtlebg intensebg) "Conditional use of background colors for fringes. MAINBG is the default. SUBTLEBG should be a subtle greyscale value. INTENSEBG must be a more pronounced greyscale color." (pcase modus-themes-fringes ('intense (list :background intensebg)) ('subtle (list :background subtlebg)) (_ (list :background mainbg)))) (defun modus-themes--line-numbers (mainfg mainbg altfg &optional altbg) "Conditional use of colors for line numbers. MAINBG and MAINFG are the default colors. ALTFG is a color that combines with the theme's primary background (white/black)." (if modus-themes-subtle-line-numbers (list :background (or altbg 'unspecified) :foreground altfg) (list :background mainbg :foreground mainfg))) (defun modus-themes--lang-check (underline subtlefg intensefg bg) "Conditional use of foreground colors for language checkers. UNDERLINE is a color-code value for the affected text's underline property. SUBTLEFG and INTENSEFG follow the same color-coding pattern and represent a value that is faint or vibrant respectively. BG is a color-coded background." (pcase modus-themes-lang-checkers ('colored-background (list :underline underline :background bg :foreground intensefg)) ('intense-foreground (list :underline (list :color underline :style 'wave) :foreground intensefg)) ('intense-foreground-straight-underline (list :underline underline :foreground intensefg)) ('subtle-foreground (list :underline (list :color underline :style 'wave) :foreground subtlefg)) ('subtle-foreground-straight-underline (list :underline underline :foreground subtlefg)) ('straight-underline (list :underline underline)) (_ (list :underline (list :color underline :style 'wave))))) (defun modus-themes--prompt (mainfg subtlebg subtlefg intensebg intensefg) "Conditional use of background colors for prompts. MAINFG is the prompt's standard foreground. SUBTLEBG should be a subtle accented background that works with SUBTLEFG. INTENSEBG must be a more pronounced accented color that should be combinable with INTENSEFG." (pcase modus-themes-prompts ;; `subtle' is the same as `subtle-accented', while `intense' is ;; equal to `intense-accented' for backward compatibility ('intense-accented (list :background intensebg :foreground intensefg)) ('intense (list :background intensebg :foreground intensefg)) ('subtle-accented (list :background subtlebg :foreground subtlefg)) ('subtle (list :background subtlebg :foreground subtlefg)) ('subtle-gray (list :inherit 'modus-theme-subtle-neutral)) ('intense-gray (list :inherit 'modus-theme-intense-neutral)) (_ (list :background nil :foreground mainfg)))) (defun modus-themes--paren (normalbg intensebg) "Conditional use of intense colors for matching parentheses. NORMALBG should be the special palette color 'bg-paren-match' or something similar. INTENSEBG must be easier to discern next to other backgrounds, such as the special palette color 'bg-paren-match-intense'." (pcase modus-themes-paren-match ('subtle-bold (list :inherit 'bold :background normalbg)) ('intense-bold (list :inherit 'bold :background intensebg)) ('intense (list :background intensebg)) (_ (list :background normalbg)))) (defun modus-themes--syntax-foreground (fg faint) "Apply foreground value to code syntax. FG is the default. FAINT is typically the same color in its desaturated version." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) (_ (list :foreground fg)))) (defun modus-themes--syntax-extra (fg faint alt) "Apply foreground value to code syntax. FG is the default. FAINT is typically the same color in its desaturated version. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-string (fg faint green alt) "Apply foreground value to strings in code syntax. FG is the default. FAINT is typically the same color in its desaturated version. GREEN is a color variant in that side of the spectrum. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('green-strings (list :foreground green)) ('yellow-comments-green-strings (list :foreground alt)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-docstring (fg faint green alt) "Apply foreground value to strings in code syntax. FG is the default. FAINT is typically the same color in its desaturated version. GREEN is a color variant in that side of the spectrum. ALT is another hue." (pcase modus-themes-syntax ('faint (list :foreground faint)) ('faint-yellow-comments (list :foreground faint)) ('green-strings (list :foreground green)) ('yellow-comments-green-strings (list :foreground green)) ('alt-syntax (list :foreground alt)) ('alt-syntax-yellow-comments (list :foreground alt)) (_ (list :foreground fg)))) (defun modus-themes--syntax-comment (fg yellow) "Apply foreground value to strings in code syntax. FG is the default. YELLOW is a color variant of that name." (pcase modus-themes-syntax ('yellow-comments (list :foreground yellow)) ('yellow-comments-green-strings (list :foreground yellow)) ('alt-syntax-yellow-comments (list :foreground yellow)) ('faint-yellow-comments (list :foreground yellow)) (_ (list :foreground fg)))) (defun modus-themes--heading-p (key) "Query style of KEY in `modus-themes-headings'." (cdr (assoc key modus-themes-headings))) (defun modus-themes--heading (level fg fg-alt bg border) "Conditional styles for `modus-themes-headings'. LEVEL is the heading's position in their order. FG is the default text color. FG-ALT is an accented, more saturated value than the default. BG is a nuanced, typically accented, background that can work well with either of the foreground values. BORDER is a color value that combines well with the background and alternative foreground." (let* ((key (modus-themes--heading-p `,level)) (style (or key (modus-themes--heading-p t))) (var (when modus-themes-variable-pitch-headings 'variable-pitch)) (varbold (if var (append (list 'bold) (list var)) 'bold))) (pcase style ('no-bold (list :inherit `,var :foreground fg)) ('no-color (list :inherit `,varbold)) ('no-color-no-bold (list :inherit `,var)) ('line (list :inherit `,varbold :foreground fg :overline border)) ('line-no-bold (list :inherit `,var :foreground fg :overline border)) ('rainbow (list :inherit `,varbold :foreground fg-alt)) ('rainbow-no-bold (list :inherit `,var :foreground fg-alt)) ('rainbow-line (list :inherit `,varbold :foreground fg-alt :overline border)) ('rainbow-line-no-bold (list :inherit `,var :foreground fg-alt :overline border)) ('highlight (list :inherit `,varbold :background bg :foreground fg)) ('highlight-no-bold (list :inherit `,var :background bg :foreground fg)) ('rainbow-highlight (list :inherit `,varbold :background bg :foreground fg-alt)) ('rainbow-highlight-no-bold (list :inherit `,var :background bg :foreground fg-alt)) ('section (list :inherit `,varbold :background bg :foreground fg :overline border :extend t)) ('section-no-bold (list :inherit `,var :background bg :foreground fg :overline border :extend t)) ('rainbow-section (list :inherit `,varbold :background bg :foreground fg-alt :overline border :extend t)) ('rainbow-section-no-bold (list :inherit `,var :background bg :foreground fg-alt :overline border :extend t)) (_ (list :inherit `,varbold :foreground fg))))) (defun modus-themes--org-block (bgblk) "Conditionally set the background of Org blocks. BGBLK applies to a distinct neutral background. Else blocks have no background of their own (the default), so they look the same as the rest of the buffer. `modus-themes-org-blocks' also accepts a `rainbow' option which is applied conditionally to `org-src-block-faces' (see the theme's source code)." (if (or (eq modus-themes-org-blocks 'grayscale) (eq modus-themes-org-blocks 'greyscale)) (list :background bgblk :extend t) (list :background 'unspecified))) (defun modus-themes--org-block-delim (bgaccent fgaccent bg fg) "Conditionally set the styles of Org block delimiters. BG, FG, BGACCENT, FGACCENT apply a background and foreground color respectively. The former pair is a greyscale combination that should be more distinct than the background of the block. It is applied to the default styles or when `modus-themes-org-blocks' is set to `greyscale'. The latter pair should be more subtle than the background of the block, as it is used when `modus-themes-org-blocks' is set to `rainbow'." (pcase modus-themes-org-blocks ('grayscale (list :background bg :foreground fg :extend t)) ('greyscale (list :background bg :foreground fg :extend t)) ('rainbow (list :background bgaccent :foreground fgaccent)) (_ (list :background bg :foreground fg)))) (defun modus-themes--org-habit (default &optional traffic simple) "Specify background values for `modus-themes-org-habit'. If no optional TRAFFIC argument is supplied, the DEFAULT is used instead. Same for SIMPLE." (pcase modus-themes-org-habit ('traffic-light (list :background (or traffic default))) ('simplified (list :background (or simple default))) (_ (list :background default)))) (defun modus-themes--mode-line-attrs (fg bg fg-alt bg-alt border border-3d &optional alt-style border-width fg-distant) "Color combinations for `modus-themes-mode-line'. FG and BG are the default colors. FG-ALT and BG-ALT are meant to accommodate the options for a 3D modeline or a `moody' compliant one. BORDER applies to all permutations of the modeline, except the three-dimensional effect, where BORDER-3D is used instead. Optional ALT-STYLE applies an appropriate style to the mode line's box property. Optional BORDER-WIDTH specifies an integer for the width of the rectangle that produces the box effect. Optional FG-DISTANT should be close to the main background values. It is intended to be used as a distant-foreground property." (pcase modus-themes-mode-line ('3d `(:background ,bg-alt :foreground ,fg-alt :box (:line-width ,(or border-width 1) :color ,border-3d :style ,(and alt-style 'released-button)))) ('moody `(:background ,bg-alt :foreground ,fg-alt :underline ,border :overline ,border :distant-foreground ,fg-distant)) ('borderless `(:foreground ,fg :background ,bg :box ,bg)) ('borderless-3d `(:foreground ,fg :background ,bg :box (:line-width ,(or border-width 1) :color ,bg :style ,(and alt-style 'released-button)))) ('borderless-moody `(:background ,bg :foreground ,fg :underline ,bg :overline ,bg :distant-foreground ,fg-distant)) (_ `(:foreground ,fg :background ,bg :box ,border)))) (defun modus-themes--diff (fg-only-bg fg-only-fg mainbg mainfg altbg altfg &optional deuteranbg deuteranfg bg-only-fg) "Color combinations for `modus-themes-diffs'. FG-ONLY-BG should be similar or the same as the main background. FG-ONLY-FG should be a saturated accent value that can be combined with the former. MAINBG must be one of the dedicated backgrounds for diffs while MAINFG must be the same for the foreground. ALTBG needs to be a slightly accented background that is meant to be combined with ALTFG. Both must be less intense than MAINBG and MAINFG respectively. DEUTERANBG and DEUTERANFG must be combinations of colors that account for red-green color defficiency (deuteranopia). Optional BG-ONLY-FG applies ALTFG else leaves the foreground unspecified." (pcase modus-themes-diffs ('fg-only (list :background fg-only-bg :foreground fg-only-fg)) ('desaturated (list :background altbg :foreground altfg)) ('deuteranopia (list :background (or deuteranbg mainbg) :foreground (or deuteranfg mainfg))) ('bg-only (list :background altbg :foreground (if bg-only-fg altfg 'unspecified))) (_ (list :background mainbg :foreground mainfg)))) (defun modus-themes--diff-deuteran (deuteran main) "Determine whether the DEUTERAN or MAIN color should be used. This is based on whether `modus-themes-diffs' has the value `deuteranopia'." (if (eq modus-themes-diffs 'deuteranopia) (list deuteran) (list main))) (defun modus-themes--diff-text (fg-only-fg default-fg) "Like `modus-themes--diff', but only for foregrounds. FG-ONLY-FG is the foreground that is used when diffs are styled using only foreground colors. DEFAULT-FG covers all other cases." (pcase modus-themes-diffs ('fg-only (list :foreground fg-only-fg)) ('bg-only (list :foreground 'unspecified)) (_ (list :foreground default-fg)))) (defun modus-themes--standard-completions (mainfg subtlebg intensebg intensefg) "Combinations for `modus-themes-completions'. MAINFG is an accented foreground value. SUBTLEBG is an accented background value that can be combined with MAINFG. INTENSEBG and INTENSEFG are accented colors that are designed to be used in tandem. These are intended for Icomplete, Ido, and related." (pcase modus-themes-completions ('opinionated (list :background intensebg :foreground intensefg)) ('moderate (list :background subtlebg :foreground mainfg)) (_ (list :foreground mainfg)))) (defun modus-themes--extra-completions (subtleface intenseface altface &optional altfg bold) "Combinations for `modus-themes-completions'. SUBTLEFACE and INTENSEFACE are custom theme faces that combine a background and foreground value. The difference between the two is a matter of degree. ALTFACE is a combination of colors that represents a departure from the UI's default aesthetics. Optional ALTFG is meant to be used in tandem with it. Optional BOLD will apply a heavier weight to the text. These are intended for Helm, Ivy, etc." (pcase modus-themes-completions ('opinionated (list :inherit (list altface bold) :foreground (or altfg 'unspecified))) ('moderate (list :inherit (list subtleface bold))) (_ (list :inherit (list intenseface bold))))) (defun modus-themes--link (fg fgfaint underline) "Conditional application of link styles. FG is the link's default color for its text and underline property. FGFAINT is a desaturated color for the text and underline. UNDERLINE is a grey color only for the undeline." (pcase modus-themes-links ('faint (list :foreground fgfaint :underline t)) ('neutral-underline (list :foreground fg :underline underline)) ('faint-neutral-underline (list :foreground fgfaint :underline underline)) ('no-underline (list :foreground fg :underline nil)) ('underline-only (list :underline t)) ('neutral-underline-only (list :underline underline)) (_ (list :foreground fg :underline t)))) (defun modus-themes--link-color (fg fgfaint &optional neutralfg) "Extends `modus-themes--link'. FG is the main accented foreground. FGFAINT is also accented, yet desaturated. Optional NEUTRALFG is a gray value." (pcase modus-themes-links ('faint (list :foreground fgfaint)) ('faint-neutral-underline (list :foreground fgfaint)) ('underline-only (list :underline t :foreground (or neutralfg 'unspecified))) ('neutral-underline-only (list :underline 'unspecified :foreground (or neutralfg 'unspecified))) (_ (list :foreground fg)))) (defun modus-themes--scale (amount) "Scale heading by AMOUNT. AMOUNT is a customization option." (when modus-themes-scale-headings (list :height amount))) (defun modus-themes--region (bg fg bgsubtle) "Apply `modus-themes-region' styles. BG and FG are the main values that are used by default. BGSUBTLE is a subtle background value that can be combined with all colors used to fontify text and code syntax." (pcase modus-themes-region ('bg-only (list :background bgsubtle)) ('bg-only-no-extend (list :background bgsubtle :extend nil)) ('no-extend (list :background bg :foreground fg :extend nil)) (_ (list :background bg :foreground fg)))) \f ;;;; Utilities for DIY users ;; 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 as those in `modus-themes-operandi-colors' and `modus-themes-vivendi-colors'." (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)))) (defun modus-themes-current-palette () "Return current color palette." (modus-themes--palette (modus-themes--current-theme))) ;;;###autoload (defun modus-themes-color (color) "Return color value for COLOR from current palette. COLOR is a key in `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (alist-get color (modus-themes-current-palette))) ;;;###autoload (defun modus-themes-color-alts (light-color dark-color) "Return color value from current palette. When Modus Operandi is enabled, return color value for color LIGHT-COLOR. When Modus Vivendi is enabled, return color value for DARK-COLOR. LIGHT-COLOR and DARK-COLOR are keys in `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (let* ((theme (modus-themes--current-theme)) (color (pcase theme ('modus-operandi light-color) ('modus-vivendi dark-color) (_theme (error "'%s' is not a Modus theme" theme))))) (alist-get color (modus-themes--palette theme)))) (defmacro modus-themes-with-colors (&rest body) "Evaluate BODY with colors from current palette bound. For colors bound, see `modus-themes-operandi-colors' or `modus-themes-vivendi-colors'." (declare (indent 0)) (let ((palette-sym (gensym)) (colors (mapcar #'car modus-themes-operandi-colors))) `(let* ((class '((class color) (min-colors 89))) (,palette-sym (modus-themes-current-palette)) ,@(mapcar (lambda (color) (list color `(alist-get ',color ,palette-sym))) colors)) (ignore class ,@colors) ; Silence unused variable warnings ,@body))) \f ;;;; Commands ;;;###autoload (defun modus-themes-load-themes () "Ensure that the Modus themes are in `custom-enabled-themes'. This function is intended for use in package declarations such as those defined with the help of `use-package'. The idea is to add this function to the `:init' stage of the package's loading, so that subsequent calls that assume the presence of a loaded theme, like `modus-themes-toggle' or `modus-themes-load-operandi', will continue to work as intended even if they are lazy-loaded (such as when they are declared in the `:config' phase)." (unless (or (custom-theme-p 'modus-operandi) (custom-theme-p 'modus-vivendi)) (load-theme 'modus-operandi t t) (load-theme 'modus-vivendi t t))) (defvar modus-themes-after-load-theme-hook nil "Hook that runs after the `modus-themes-toggle' routines.") ;; The reason we use `load-theme' instead of `enable-theme' is that the ;; former does a kind of "reset" on the face specs. So it plays nicely ;; with `custom-set-faces', as well as defcustom user customizations, ;; including the likes of `modus-themes-operandi-color-overrides'. ;; ;; Tests show that `enable-theme' does not re-read those variables, so ;; it might appear to the unsuspecting user that the themes are somehow ;; broken. ;; ;; This "reset", however, comes at the cost of being a bit slower than ;; `enable-theme'. User who have a stable setup and seldom update their ;; variables during a given Emacs session, are better off using ;; something like this: ;; ;; (defun modus-themes-toggle-enabled () ;; "Toggle between `modus-operandi' and `modus-vivendi' themes." ;; (interactive) ;; (pcase (modus-themes--current-theme) ;; ('modus-operandi (progn (enable-theme 'modus-vivendi) ;; (disable-theme 'modus-operandi))) ;; ('modus-vivendi (progn (enable-theme 'modus-operandi) ;; (disable-theme 'modus-vivendi))) ;; (_ (error "No Modus theme is loaded; evaluate `modus-themes-load-themes' first")))) ;;;###autoload (defun modus-themes-load-operandi () "Load `modus-operandi' and disable `modus-vivendi'. Also run `modus-themes-after-load-theme-hook'." (disable-theme 'modus-vivendi) (load-theme 'modus-operandi t) (run-hooks 'modus-themes-after-load-theme-hook)) ;;;###autoload (defun modus-themes-load-vivendi () "Load `modus-vivendi' and disable `modus-operandi'. Also run `modus-themes-after-load-theme-hook'." (disable-theme 'modus-operandi) (load-theme 'modus-vivendi t) (run-hooks 'modus-themes-after-load-theme-hook)) (defun modus-themes--load-prompt () "Helper for `modus-themes-toggle'." (let ((theme (intern (completing-read "Load Modus theme (will disable all others): " '(modus-operandi modus-vivendi) nil t)))) (mapc #'disable-theme custom-enabled-themes) (pcase theme ('modus-operandi (modus-themes-load-operandi)) ('modus-vivendi (modus-themes-load-vivendi))))) ;;;###autoload (defun modus-themes-toggle () "Toggle between `modus-operandi' and `modus-vivendi' themes. Also runs `modus-themes-after-load-theme-hook' at its last stage by virtue of calling either of `modus-themes-load-operandi' and `modus-themes-load-vivendi' functions." (interactive) (modus-themes-load-themes) (pcase (modus-themes--current-theme) ('modus-operandi (modus-themes-load-vivendi)) ('modus-vivendi (modus-themes-load-operandi)) (_ (modus-themes--load-prompt)))) \f ;;;; Face specifications (defconst modus-themes-faces '( ;;;; custom faces ;; these bespoke faces are inherited by other constructs below ;;;;; subtle colored backgrounds `(modus-theme-subtle-red ((,class :background ,red-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-green ((,class :background ,green-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-blue ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-magenta ((,class :background ,magenta-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-cyan ((,class :background ,cyan-subtle-bg :foreground ,fg-dim))) `(modus-theme-subtle-neutral ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; intense colored backgrounds `(modus-theme-intense-red ((,class :background ,red-intense-bg :foreground ,fg-main))) `(modus-theme-intense-green ((,class :background ,green-intense-bg :foreground ,fg-main))) `(modus-theme-intense-yellow ((,class :background ,yellow-intense-bg :foreground ,fg-main))) `(modus-theme-intense-blue ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(modus-theme-intense-magenta ((,class :background ,magenta-intense-bg :foreground ,fg-main))) `(modus-theme-intense-cyan ((,class :background ,cyan-intense-bg :foreground ,fg-main))) `(modus-theme-intense-neutral ((,class :background ,bg-active :foreground ,fg-main))) ;;;;; refined background and foreground combinations ;; general purpose styles that use an accented foreground against an ;; accented background `(modus-theme-refine-red ((,class :background ,red-refine-bg :foreground ,red-refine-fg))) `(modus-theme-refine-green ((,class :background ,green-refine-bg :foreground ,green-refine-fg))) `(modus-theme-refine-yellow ((,class :background ,yellow-refine-bg :foreground ,yellow-refine-fg))) `(modus-theme-refine-blue ((,class :background ,blue-refine-bg :foreground ,blue-refine-fg))) `(modus-theme-refine-magenta ((,class :background ,magenta-refine-bg :foreground ,magenta-refine-fg))) `(modus-theme-refine-cyan ((,class :background ,cyan-refine-bg :foreground ,cyan-refine-fg))) ;;;;; "active" combinations, mostly for use on the mode line `(modus-theme-active-red ((,class :background ,red-active :foreground ,bg-active))) `(modus-theme-active-green ((,class :background ,green-active :foreground ,bg-active))) `(modus-theme-active-yellow ((,class :background ,yellow-active :foreground ,bg-active))) `(modus-theme-active-blue ((,class :background ,blue-active :foreground ,bg-active))) `(modus-theme-active-magenta ((,class :background ,magenta-active :foreground ,bg-active))) `(modus-theme-active-cyan ((,class :background ,cyan-active :foreground ,bg-active))) ;;;;; nuanced backgrounds ;; useful for adding an accented background that is suitable for all ;; main foreground colors (intended for use in Org source blocks) `(modus-theme-nuanced-red ((,class :background ,red-nuanced-bg :extend t))) `(modus-theme-nuanced-green ((,class :background ,green-nuanced-bg :extend t))) `(modus-theme-nuanced-yellow ((,class :background ,yellow-nuanced-bg :extend t))) `(modus-theme-nuanced-blue ((,class :background ,blue-nuanced-bg :extend t))) `(modus-theme-nuanced-magenta ((,class :background ,magenta-nuanced-bg :extend t))) `(modus-theme-nuanced-cyan ((,class :background ,cyan-nuanced-bg :extend t))) ;;;;; fringe-specific combinations `(modus-theme-fringe-red ((,class :background ,red-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-green ((,class :background ,green-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-yellow ((,class :background ,yellow-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-blue ((,class :background ,blue-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-magenta ((,class :background ,magenta-fringe-bg :foreground ,fg-main))) `(modus-theme-fringe-cyan ((,class :background ,cyan-fringe-bg :foreground ,fg-main))) ;;;;; special base values ;; these are closer to the grayscale than the accents defined above ;; and should only be used when the next closest alternative would be ;; a greyscale value than an accented one `(modus-theme-special-cold ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(modus-theme-special-mild ((,class :background ,bg-special-mild :foreground ,fg-special-mild))) `(modus-theme-special-warm ((,class :background ,bg-special-warm :foreground ,fg-special-warm))) `(modus-theme-special-calm ((,class :background ,bg-special-calm :foreground ,fg-special-calm))) ;;;;; diff-specific combinations ;; intended for `diff-mode' or equivalent `(modus-theme-diff-added ((,class ,@(modus-themes--diff bg-main green bg-diff-focus-added fg-diff-focus-added green-nuanced-bg fg-diff-added bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) `(modus-theme-diff-changed ((,class ,@(modus-themes--diff bg-main yellow bg-diff-focus-changed fg-diff-focus-changed yellow-nuanced-bg fg-diff-changed)))) `(modus-theme-diff-removed ((,class ,@(modus-themes--diff bg-main red bg-diff-focus-removed fg-diff-focus-removed red-nuanced-bg fg-diff-removed)))) `(modus-theme-diff-refine-added ((,class ,@(modus-themes--diff bg-diff-added fg-diff-added bg-diff-refine-added fg-diff-refine-added bg-diff-focus-added fg-diff-focus-added bg-diff-refine-added-deuteran fg-diff-refine-added-deuteran)))) `(modus-theme-diff-refine-changed ((,class ,@(modus-themes--diff bg-diff-changed fg-diff-changed bg-diff-refine-changed fg-diff-refine-changed bg-diff-focus-changed fg-diff-focus-changed)))) `(modus-theme-diff-refine-removed ((,class ,@(modus-themes--diff bg-diff-removed fg-diff-removed bg-diff-refine-removed fg-diff-refine-removed bg-diff-focus-removed fg-diff-focus-removed)))) `(modus-theme-diff-focus-added ((,class ,@(modus-themes--diff bg-dim green bg-diff-focus-added fg-diff-focus-added bg-diff-added fg-diff-added bg-diff-focus-added-deuteran fg-diff-focus-added-deuteran)))) `(modus-theme-diff-focus-changed ((,class ,@(modus-themes--diff bg-dim yellow bg-diff-focus-changed fg-diff-focus-changed bg-diff-changed fg-diff-changed)))) `(modus-theme-diff-focus-removed ((,class ,@(modus-themes--diff bg-dim red bg-diff-focus-removed fg-diff-focus-removed bg-diff-removed fg-diff-removed)))) `(modus-theme-diff-heading ((,class ,@(modus-themes--diff bg-main blue bg-diff-heading fg-diff-heading cyan-nuanced-bg cyan-nuanced-fg bg-header fg-main t)))) ;;;;; mark indicators ;; color combinations intended for Dired, Ibuffer, or equivalent `(modus-theme-pseudo-header ((,class :inherit bold :foreground ,fg-main))) `(modus-theme-mark-alt ((,class :inherit bold :background ,bg-mark-alt :foreground ,fg-mark-alt))) `(modus-theme-mark-del ((,class :inherit bold :background ,bg-mark-del :foreground ,fg-mark-del))) `(modus-theme-mark-sel ((,class :inherit bold :background ,bg-mark-sel :foreground ,fg-mark-sel))) `(modus-theme-mark-symbol ((,class :inherit bold :foreground ,blue-alt))) ;;;;; heading levels ;; styles for regular headings used in Org, Markdown, Info, etc. `(modus-theme-heading-1 ((,class ,@(modus-themes--heading 1 fg-main magenta-alt-other magenta-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-4)))) `(modus-theme-heading-2 ((,class ,@(modus-themes--heading 2 fg-special-warm magenta-alt red-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-3)))) `(modus-theme-heading-3 ((,class ,@(modus-themes--heading 3 fg-special-cold blue blue-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-2)))) `(modus-theme-heading-4 ((,class ,@(modus-themes--heading 4 fg-special-mild cyan cyan-nuanced-bg bg-region) ,@(modus-themes--scale modus-themes-scale-1)))) `(modus-theme-heading-5 ((,class ,@(modus-themes--heading 5 fg-special-calm green-alt-other green-nuanced-bg bg-region)))) `(modus-theme-heading-6 ((,class ,@(modus-themes--heading 6 yellow-nuanced-fg yellow-alt-other yellow-nuanced-bg bg-region)))) `(modus-theme-heading-7 ((,class ,@(modus-themes--heading 7 red-nuanced-fg red-alt red-nuanced-bg bg-region)))) `(modus-theme-heading-8 ((,class ,@(modus-themes--heading 8 fg-dim magenta bg-alt bg-region)))) ;;;;; graph-specific faces `(modus-theme-graph-red-0 ((,class :background ,red-graph-0-bg))) `(modus-theme-graph-red-1 ((,class :background ,red-graph-1-bg))) `(modus-theme-graph-green-0 ((,class :background ,green-graph-0-bg))) `(modus-theme-graph-green-1 ((,class :background ,green-graph-1-bg))) `(modus-theme-graph-yellow-0 ((,class :background ,yellow-graph-0-bg))) `(modus-theme-graph-yellow-1 ((,class :background ,yellow-graph-1-bg))) `(modus-theme-graph-blue-0 ((,class :background ,blue-graph-0-bg))) `(modus-theme-graph-blue-1 ((,class :background ,blue-graph-1-bg))) `(modus-theme-graph-magenta-0 ((,class :background ,magenta-graph-0-bg))) `(modus-theme-graph-magenta-1 ((,class :background ,magenta-graph-1-bg))) `(modus-theme-graph-cyan-0 ((,class :background ,cyan-graph-0-bg))) `(modus-theme-graph-cyan-1 ((,class :background ,cyan-graph-1-bg))) ;;;;; language checkers `(modus-theme-lang-error ((,class ,@(modus-themes--lang-check fg-lang-underline-error fg-lang-error red red-nuanced-bg)))) `(modus-theme-lang-note ((,class ,@(modus-themes--lang-check fg-lang-underline-note fg-lang-note blue-alt blue-nuanced-bg)))) `(modus-theme-lang-warning ((,class ,@(modus-themes--lang-check fg-lang-underline-warning fg-lang-warning yellow yellow-nuanced-bg)))) ;;;;; other custom faces `(modus-theme-bold ((,class ,@(modus-themes--bold-weight)))) `(modus-theme-hl-line ((,class :background ,(if modus-themes-intense-hl-line bg-hl-line-intense bg-hl-line) :extend t))) `(modus-theme-slant ((,class :inherit italic :slant ,@(modus-themes--slant)))) `(modus-theme-variable-pitch ((,class ,@(modus-themes--variable-pitch)))) ;;;; standard faces ;;;;; absolute essentials `(default ((,class :background ,bg-main :foreground ,fg-main))) `(cursor ((,class :background ,fg-main))) `(fringe ((,class ,@(modus-themes--fringe bg-main bg-inactive bg-active) :foreground ,fg-main))) `(vertical-border ((,class :foreground ,fg-window-divider-inner))) ;;;;; basic and/or ungrouped styles `(bold ((,class :weight bold))) `(bold-italic ((,class :inherit (bold italic)))) `(buffer-menu-buffer ((,class :inherit bold))) `(comint-highlight-input ((,class :inherit bold))) `(comint-highlight-prompt ((,class :inherit modus-theme-bold ,@(modus-themes--prompt cyan blue-nuanced-bg blue-alt blue-refine-bg fg-main)))) `(error ((,class :inherit bold :foreground ,red))) `(escape-glyph ((,class :foreground ,fg-escape-char-construct))) `(file-name-shadow ((,class :foreground ,fg-unfocused))) `(header-line ((,class ,@(modus-themes--variable-pitch-ui) :background ,bg-header :foreground ,fg-header))) `(header-line-highlight ((,class :inherit modus-theme-active-blue))) `(help-argument-name ((,class :inherit modus-theme-slant :foreground ,cyan))) `(homoglyph ((,class :foreground ,red-alt-faint))) `(ibuffer-locked-buffer ((,class :foreground ,yellow-alt-other-faint))) `(italic ((,class :slant italic))) `(nobreak-hyphen ((,class :foreground ,fg-escape-char-construct))) `(nobreak-space ((,class :foreground ,fg-escape-char-construct :underline t))) `(minibuffer-prompt ((,class ,@(modus-themes--prompt cyan-alt-other cyan-nuanced-bg cyan cyan-refine-bg fg-main)))) `(mm-command-output ((,class :foreground ,red-alt-other))) `(mm-uu-extract ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(next-error ((,class :inherit modus-theme-subtle-red))) `(rectangle-preview ((,class :inherit modus-theme-special-mild))) `(region ((,class ,@(modus-themes--region bg-region fg-main bg-hl-alt-intense)))) `(secondary-selection ((,class :inherit modus-theme-special-cold))) `(shadow ((,class :foreground ,fg-alt))) `(success ((,class :inherit bold :foreground ,green))) `(trailing-whitespace ((,class :background ,red-intense-bg))) `(warning ((,class :inherit bold :foreground ,yellow))) ;;;;; buttons, links, widgets `(button ((,class ,@(modus-themes--link blue-alt-other blue-alt-other-faint bg-region)))) `(link ((,class :inherit button))) `(link-visited ((,class :inherit button ,@(modus-themes--link-color magenta-alt-other magenta-alt-other-faint fg-alt)))) `(tooltip ((,class :background ,bg-special-cold :foreground ,fg-main))) `(widget-button ((,class :inherit button))) `(widget-button-pressed ((,class :inherit button ,@(modus-themes--link-color magenta magenta-faint)))) `(widget-documentation ((,class :foreground ,green))) `(widget-field ((,class :background ,bg-alt :foreground ,fg-dim))) `(widget-inactive ((,class :background ,bg-inactive :foreground ,fg-inactive))) `(widget-single-line-field ((,class :inherit widget-field))) ;;;;; ag `(ag-hit-face ((,class :foreground ,fg-special-cold))) `(ag-match-face ((,class :inherit modus-theme-special-calm))) ;;;;; alert `(alert-high-face ((,class :inherit bold :foreground ,red-alt))) `(alert-low-face ((,class :foreground ,fg-special-mild))) `(alert-moderate-face ((,class :inherit bold :foreground ,yellow))) `(alert-trivial-face ((,class :foreground ,fg-special-calm))) `(alert-urgent-face ((,class :inherit bold :foreground ,red-intense))) ;;;;; all-the-icons `(all-the-icons-blue ((,class :foreground ,blue))) `(all-the-icons-blue-alt ((,class :foreground ,blue-alt))) `(all-the-icons-cyan ((,class :foreground ,cyan))) `(all-the-icons-cyan-alt ((,class :foreground ,cyan-alt))) `(all-the-icons-dblue ((,class :foreground ,blue-alt-other))) `(all-the-icons-dcyan ((,class :foreground ,cyan-alt-other))) `(all-the-icons-dgreen ((,class :foreground ,green-alt-other))) `(all-the-icons-dired-dir-face ((,class :foreground ,blue))) `(all-the-icons-dmaroon ((,class :foreground ,magenta-alt-other))) `(all-the-icons-dorange ((,class :foreground ,red-alt-other))) `(all-the-icons-dpink ((,class :foreground ,magenta))) `(all-the-icons-dpurple ((,class :foreground ,magenta-alt))) `(all-the-icons-dred ((,class :foreground ,red))) `(all-the-icons-dsilver ((,class :foreground ,fg-special-cold))) `(all-the-icons-dyellow ((,class :foreground ,yellow))) `(all-the-icons-green ((,class :foreground ,green))) `(all-the-icons-lblue ((,class :foreground ,blue-refine-fg))) `(all-the-icons-lcyan ((,class :foreground ,cyan-refine-fg))) `(all-the-icons-lgreen ((,class :foreground ,green-refine-fg))) `(all-the-icons-lmaroon ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lorange ((,class :foreground ,red-refine-fg))) `(all-the-icons-lpink ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lpurple ((,class :foreground ,magenta-refine-fg))) `(all-the-icons-lred ((,class :foreground ,red-refine-fg))) `(all-the-icons-lsilver ((,class :foreground ,fg-special-cold))) `(all-the-icons-lyellow ((,class :foreground ,yellow-refine-fg))) `(all-the-icons-maroon ((,class :foreground ,magenta))) `(all-the-icons-orange ((,class :foreground ,red-alt))) `(all-the-icons-pink ((,class :foreground ,magenta))) `(all-the-icons-purple ((,class :foreground ,magenta-alt))) `(all-the-icons-purple-alt ((,class :foreground ,magenta-alt-other))) `(all-the-icons-red ((,class :foreground ,red))) `(all-the-icons-red-alt ((,class :foreground ,red-alt))) `(all-the-icons-silver ((,class :foreground ,fg-special-cold))) `(all-the-icons-yellow ((,class :foreground ,yellow))) ;;;;; annotate `(annotate-annotation ((,class :inherit modus-theme-subtle-blue))) `(annotate-annotation-secondary ((,class :inherit modus-theme-subtle-green))) `(annotate-highlight ((,class :background ,blue-nuanced-bg :underline ,blue-intense))) `(annotate-highlight-secondary ((,class :background ,green-nuanced-bg :underline ,green-intense))) ;;;;; anzu `(anzu-match-1 ((,class :inherit modus-theme-subtle-cyan))) `(anzu-match-2 ((,class :inherit modus-theme-subtle-green))) `(anzu-match-3 ((,class :inherit modus-theme-subtle-yellow))) `(anzu-mode-line ((,class :inherit bold :foreground ,green-active))) `(anzu-mode-line-no-match ((,class :inherit bold :foreground ,red-active))) `(anzu-replace-highlight ((,class :inherit modus-theme-refine-yellow :underline t))) `(anzu-replace-to ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; apropos `(apropos-function-button ((,class :inherit button ,@(modus-themes--link-color magenta-alt-other magenta-alt-other-faint)))) `(apropos-keybinding ((,class :inherit bold :foreground ,cyan))) `(apropos-misc-button ((,class :inherit button ,@(modus-themes--link-color cyan-alt-other cyan-alt-other-faint)))) `(apropos-property ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) `(apropos-symbol ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) `(apropos-user-option-button ((,class :inherit button ,@(modus-themes--link-color green-alt-other green-alt-other-faint)))) `(apropos-variable-button ((,class :inherit button ,@(modus-themes--link-color blue blue-faint)))) ;;;;; apt-sources-list `(apt-sources-list-components ((,class :foreground ,cyan))) `(apt-sources-list-options ((,class :foreground ,yellow))) `(apt-sources-list-suite ((,class :foreground ,green))) `(apt-sources-list-type ((,class :foreground ,magenta))) `(apt-sources-list-uri ((,class :foreground ,blue))) ;;;;; artbollocks-mode `(artbollocks-face ((,class :inherit modus-theme-lang-note))) `(artbollocks-lexical-illusions-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) `(artbollocks-passive-voice-face ((,class :inherit modus-theme-lang-warning))) `(artbollocks-weasel-words-face ((,class :inherit modus-theme-lang-error))) ;;;;; auctex and Tex `(font-latex-bold-face ((,class :inherit bold :foreground ,fg-special-calm))) `(font-latex-doctex-documentation-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(font-latex-doctex-preprocessor-face ((,class :inherit modus-theme-bold :foreground ,red-alt-other))) `(font-latex-italic-face ((,class :inherit italic :foreground ,fg-special-calm))) `(font-latex-math-face ((,class :foreground ,cyan-alt-other))) `(font-latex-script-char-face ((,class :foreground ,cyan-alt-other))) `(font-latex-sectioning-0-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-1-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-2-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-3-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-4-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,blue-nuanced-fg))) `(font-latex-sectioning-5-face ((,class :inherit modus-theme-variable-pitch :foreground ,blue-nuanced-fg))) `(font-latex-sedate-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other))) `(font-latex-slide-title-face ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,cyan-nuanced-fg ,@(modus-themes--scale modus-themes-scale-4)))) `(font-latex-string-face ((,class :inherit font-lock-string-face))) `(font-latex-subscript-face ((,class :height 0.95))) `(font-latex-superscript-face ((,class :height 0.95))) `(font-latex-verbatim-face ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(font-latex-warning-face ((,class :inherit font-lock-warning-face))) `(tex-match ((,class :foreground ,blue-alt-other))) `(tex-verbatim ((,class :background ,bg-dim :foreground ,fg-special-mild))) `(texinfo-heading ((,class :foreground ,magenta))) `(TeX-error-description-error ((,class :inherit error))) `(TeX-error-description-help ((,class :foreground ,blue))) `(TeX-error-description-tex-said ((,class :foreground ,blue))) `(TeX-error-description-warning ((,class :inherit warning))) ;;;;; auto-dim-other-buffers `(auto-dim-other-buffers-face ((,class :background ,bg-alt))) ;;;;; avy `(avy-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) `(avy-goto-char-timer-face ((,class :inherit (modus-theme-intense-yellow bold)))) `(avy-lead-face ((,class :inherit (modus-theme-intense-magenta bold)))) `(avy-lead-face-0 ((,class :inherit (modus-theme-intense-blue bold)))) `(avy-lead-face-1 ((,class :inherit (modus-theme-intense-red bold)))) `(avy-lead-face-2 ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; aw (ace-window) `(aw-background-face ((,class :background ,bg-dim :foreground ,fg-dim))) `(aw-key-face ((,class :inherit bold :foreground ,blue-intense))) `(aw-leading-char-face ((,class :inherit bold :height 1.5 :slant normal :background ,bg-main :foreground ,red-intense))) `(aw-minibuffer-leading-char-face ((,class :foreground ,magenta-active))) `(aw-mode-line-face ((,class :inherit bold))) ;;;;; awesome-tray `(awesome-tray-module-awesome-tab-face ((,class :inherit bold :foreground ,red-alt-other))) `(awesome-tray-module-battery-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(awesome-tray-module-buffer-name-face ((,class :inherit bold :foreground ,yellow-alt-other))) `(awesome-tray-module-circe-face ((,class :inherit bold :foreground ,blue-alt))) `(awesome-tray-module-date-face ((,class :inherit bold :foreground ,fg-dim))) `(awesome-tray-module-evil-face ((,class :inherit bold :foreground ,green-alt))) `(awesome-tray-module-git-face ((,class :inherit bold :foreground ,magenta))) `(awesome-tray-module-last-command-face ((,class :inherit bold :foreground ,blue-alt-other))) `(awesome-tray-module-location-face ((,class :inherit bold :foreground ,yellow))) `(awesome-tray-module-mode-name-face ((,class :inherit bold :foreground ,green))) `(awesome-tray-module-parent-dir-face ((,class :inherit bold :foreground ,cyan))) `(awesome-tray-module-rvm-face ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; bbdb `(bbdb-name ((,class :foreground ,magenta-alt-other))) `(bbdb-organization ((,class :foreground ,red-alt-other))) `(bbdb-field-name ((,class :foreground ,cyan-alt-other))) ;;;;; binder `(binder-sidebar-highlight ((,class :inherit modus-theme-subtle-cyan))) `(binder-sidebar-marked ((,class :inherit modus-theme-mark-sel))) `(binder-sidebar-missing ((,class :inherit modus-theme-subtle-red))) `(binder-sidebar-tags ((,class :foreground ,cyan))) ;;;;; bm `(bm-face ((,class :inherit modus-theme-subtle-yellow :extend t))) `(bm-fringe-face ((,class :inherit modus-theme-fringe-yellow))) `(bm-fringe-persistent-face ((,class :inherit modus-theme-fringe-blue))) `(bm-persistent-face ((,class :inherit modus-theme-intense-blue :extend t))) ;;;;; bongo `(bongo-album-title ((,class :foreground ,yellow-active))) `(bongo-artist ((,class :foreground ,magenta-active))) `(bongo-currently-playing-track ((,class :inherit bold))) `(bongo-elapsed-track-part ((,class :inherit modus-theme-subtle-magenta :underline t))) `(bongo-filled-seek-bar ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(bongo-marked-track ((,class :foreground ,fg-mark-alt))) `(bongo-marked-track-line ((,class :background ,bg-mark-alt))) `(bongo-played-track ((,class :foreground ,fg-unfocused :strike-through t))) `(bongo-track-length ((,class :foreground ,fg-active))) `(bongo-track-title ((,class :foreground ,cyan-active))) `(bongo-unfilled-seek-bar ((,class :background ,bg-special-cold :foreground ,fg-main))) ;;;;; boon `(boon-modeline-cmd ((,class :inherit modus-theme-active-blue))) `(boon-modeline-ins ((,class :inherit modus-theme-active-red))) `(boon-modeline-off ((,class :inherit modus-theme-active-yellow))) `(boon-modeline-spc ((,class :inherit modus-theme-active-green))) ;;;;; breakpoint (built-in gdb-mi.el) `(breakpoint-disabled ((,class :inherit shadow))) `(breakpoint-enabled ((,class :inherit bold :foreground ,red))) ;;;;; buffer-expose `(buffer-expose-ace-char-face ((,class :inherit bold :foreground ,red-active))) `(buffer-expose-mode-line-face ((,class :foreground ,cyan-active))) `(buffer-expose-selected-face ((,class :inherit modus-theme-special-mild))) ;;;;; calendar and diary `(calendar-month-header ((,class :inherit modus-theme-pseudo-header))) `(calendar-today ((,class :inherit bold :underline t))) `(calendar-weekday-header ((,class :inherit shadow))) `(calendar-weekend-header ((,class :inherit shadow))) `(diary ((,class :background ,green-nuanced-bg :foreground ,green-alt-other))) `(diary-anniversary ((,class :foreground ,red-alt-other))) `(diary-time ((,class :foreground ,blue-alt))) `(holiday ((,class :background ,magenta-nuanced-bg :foreground ,magenta-alt))) ;;;;; calfw `(cfw:face-annotation ((,class :foreground ,fg-special-warm))) `(cfw:face-day-title ((,class :foreground ,fg-main))) `(cfw:face-default-content ((,class :foreground ,green-alt))) `(cfw:face-default-day ((,class :inherit (cfw:face-day-title bold)))) `(cfw:face-disable ((,class :foreground ,fg-unfocused))) `(cfw:face-grid ((,class :foreground ,fg-window-divider-outer))) `(cfw:face-header ((,class :inherit bold :foreground ,fg-main))) `(cfw:face-holiday ((,class :foreground ,magenta-alt-other))) `(cfw:face-periods ((,class :foreground ,cyan-alt-other))) `(cfw:face-saturday ((,class :inherit bold :foreground ,cyan-alt-other))) `(cfw:face-select ((,class :inherit modus-theme-intense-blue))) `(cfw:face-sunday ((,class :inherit bold :foreground ,cyan-alt-other))) `(cfw:face-title ((,class :inherit modus-theme-variable-pitch :foreground ,fg-special-cold ,@(modus-themes--scale modus-themes-scale-5)))) `(cfw:face-today ((,class :background ,bg-inactive))) `(cfw:face-today-title ((,class :background ,bg-active))) `(cfw:face-toolbar ((,class :background ,bg-alt :foreground ,bg-alt))) `(cfw:face-toolbar-button-off ((,class :inherit shadow))) `(cfw:face-toolbar-button-on ((,class :inherit bold :background ,blue-nuanced-bg :foreground ,blue-alt))) ;;;;; centaur-tabs `(centaur-tabs-active-bar-face ((,class :background ,fg-tab-active))) `(centaur-tabs-close-mouse-face ((,class :inherit bold :foreground ,red-active :underline t))) `(centaur-tabs-close-selected ((,class :inherit centaur-tabs-selected))) `(centaur-tabs-close-unselected ((,class :inherit centaur-tabs-unselected))) `(centaur-tabs-modified-marker-selected ((,class :inherit centaur-tabs-selected))) `(centaur-tabs-modified-marker-unselected ((,class :inherit centaur-tabs-unselected))) `(centaur-tabs-default ((,class :background ,bg-main :foreground ,bg-main))) `(centaur-tabs-selected ((,class :inherit bold :background ,bg-tab-active :foreground ,fg-main))) `(centaur-tabs-selected-modified ((,class :inherit italic :background ,bg-tab-active :foreground ,fg-main))) `(centaur-tabs-unselected ((,class :background ,bg-tab-inactive :foreground ,fg-dim))) `(centaur-tabs-unselected-modified ((,class :inherit italic :background ,bg-tab-inactive :foreground ,fg-dim))) ;;;;; cfrs `(cfrs-border-color ((,class :background ,fg-window-divider-inner))) ;;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log') `(change-log-acknowledgment ((,class :foreground ,fg-alt))) `(change-log-conditionals ((,class :foreground ,yellow))) `(change-log-date ((,class :foreground ,cyan))) `(change-log-email ((,class :foreground ,cyan-alt-other))) `(change-log-file ((,class :inherit bold :foreground ,fg-special-cold))) `(change-log-function ((,class :foreground ,green-alt-other))) `(change-log-list ((,class :foreground ,magenta-alt))) `(change-log-name ((,class :foreground ,magenta-alt-other))) `(log-edit-header ((,class :foreground ,fg-special-warm))) `(log-edit-summary ((,class :inherit bold :foreground ,blue))) `(log-edit-unknown-header ((,class :inherit shadow))) `(log-view-commit-body ((,class :foreground ,blue-nuanced-fg))) `(log-view-file ((,class :inherit bold :foreground ,fg-special-cold))) `(log-view-message ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; cider `(cider-debug-code-overlay-face ((,class :background ,bg-alt))) `(cider-debug-prompt-face ((,class :foreground ,magenta-alt :underline t))) `(cider-deprecated-face ((,class :inherit modus-theme-refine-yellow))) `(cider-docview-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) `(cider-docview-literal-face ((,class :foreground ,blue-alt))) `(cider-docview-strong-face ((,class :inherit bold :foreground ,fg-special-cold))) `(cider-docview-table-border-face ((,class :inherit shadow))) `(cider-enlightened-face ((,class :box (:line-width -1 :color ,yellow-alt :style nil) :background ,bg-dim))) `(cider-enlightened-local-face ((,class :inherit bold :foreground ,yellow-alt-other))) `(cider-error-highlight-face ((,class :foreground ,red :underline t))) `(cider-fragile-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,yellow))) `(cider-fringe-good-face ((,class :foreground ,green-active))) `(cider-instrumented-face ((,class :box (:line-width -1 :color ,red :style nil) :background ,bg-dim))) `(cider-reader-conditional-face ((,class :inherit italic :foreground ,fg-special-warm))) `(cider-repl-input-face ((,class :inherit bold))) `(cider-repl-prompt-face ((,class :foreground ,cyan-alt-other))) `(cider-repl-stderr-face ((,class :inherit bold :foreground ,red))) `(cider-repl-stdout-face ((,class :foreground ,blue))) `(cider-result-overlay-face ((,class :box (:line-width -1 :color ,blue :style nil) :background ,bg-dim))) `(cider-stacktrace-error-class-face ((,class :inherit bold :foreground ,red))) `(cider-stacktrace-error-message-face ((,class :inherit italic :foreground ,red-alt-other))) `(cider-stacktrace-face ((,class :foreground ,fg-main))) `(cider-stacktrace-filter-active-face ((,class :foreground ,cyan-alt :underline t))) `(cider-stacktrace-filter-inactive-face ((,class :foreground ,cyan-alt))) `(cider-stacktrace-fn-face ((,class :inherit bold :foreground ,fg-main))) `(cider-stacktrace-ns-face ((,class :inherit italic :foreground ,fg-alt))) `(cider-stacktrace-promoted-button-face ((,class :box (:line-width 3 :color ,fg-alt :style released-button) :foreground ,red))) `(cider-stacktrace-suppressed-button-face ((,class :box (:line-width 3 :color ,fg-alt :style pressed-button) :background ,bg-alt :foreground ,fg-alt))) `(cider-test-error-face ((,class :inherit modus-theme-subtle-red))) `(cider-test-failure-face ((,class :inherit (modus-theme-intense-red bold)))) `(cider-test-success-face ((,class :inherit modus-theme-intense-green))) `(cider-traced-face ((,class :box (:line-width -1 :color ,cyan :style nil) :background ,bg-dim))) `(cider-warning-highlight-face ((,class :foreground ,yellow :underline t))) ;;;;; circe (and lui) `(circe-fool-face ((,class :inherit shadow))) `(circe-highlight-nick-face ((,class :inherit bold :foreground ,blue))) `(circe-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(circe-server-face ((,class :foreground ,fg-unfocused))) `(lui-button-face ((,class :inherit button))) `(lui-highlight-face ((,class :foreground ,magenta-alt))) `(lui-time-stamp-face ((,class :foreground ,blue-nuanced-fg))) ;;;;; color-rg `(color-rg-font-lock-column-number ((,class :foreground ,magenta-alt-other))) `(color-rg-font-lock-command ((,class :inherit bold :foreground ,fg-main))) `(color-rg-font-lock-file ((,class :inherit bold :foreground ,fg-special-cold))) `(color-rg-font-lock-flash ((,class :inherit modus-theme-intense-blue))) `(color-rg-font-lock-function-location ((,class :inherit modus-theme-special-calm))) `(color-rg-font-lock-header-line-directory ((,class :foreground ,blue-active))) `(color-rg-font-lock-header-line-edit-mode ((,class :foreground ,magenta-active))) `(color-rg-font-lock-header-line-keyword ((,class :foreground ,green-active))) `(color-rg-font-lock-header-line-text ((,class :foreground ,fg-active))) `(color-rg-font-lock-line-number ((,class :foreground ,fg-special-warm))) `(color-rg-font-lock-mark-changed ((,class :inherit bold :foreground ,blue))) `(color-rg-font-lock-mark-deleted ((,class :inherit bold :foreground ,red))) `(color-rg-font-lock-match ((,class :inherit modus-theme-special-calm))) `(color-rg-font-lock-position-splitter ((,class :inherit shadow))) ;;;;; column-enforce-mode `(column-enforce-face ((,class :inherit modus-theme-refine-yellow))) ;;;;; company-mode `(company-echo-common ((,class :foreground ,magenta-alt-other))) `(company-preview ((,class :background ,bg-dim :foreground ,fg-dim))) `(company-preview-common ((,class :foreground ,blue-alt))) `(company-preview-search ((,class :inherit modus-theme-special-calm))) `(company-scrollbar-bg ((,class :background ,bg-active))) `(company-scrollbar-fg ((,class :background ,fg-active))) `(company-template-field ((,class :inherit modus-theme-intense-magenta))) `(company-tooltip ((,class :background ,bg-alt :foreground ,fg-alt))) `(company-tooltip-annotation ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(company-tooltip-annotation-selection ((,class :inherit bold :foreground ,fg-main))) `(company-tooltip-common ((,class :inherit bold :foreground ,blue-alt))) `(company-tooltip-common-selection ((,class :foreground ,fg-main))) `(company-tooltip-mouse ((,class :inherit modus-theme-intense-blue))) `(company-tooltip-search ((,class :inherit (modus-theme-refine-cyan bold)))) `(company-tooltip-search-selection ((,class :inherit (modus-theme-intense-green bold) :underline t))) `(company-tooltip-selection ((,class :inherit (modus-theme-subtle-cyan bold)))) ;;;;; company-posframe `(company-posframe-active-backend-name ((,class :inherit bold :background ,bg-active :foreground ,blue-active))) `(company-posframe-inactive-backend-name ((,class :background ,bg-active :foreground ,fg-active))) `(company-posframe-metadata ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; compilation feedback `(compilation-column-number ((,class :foreground ,magenta-alt-other))) `(compilation-error ((,class :inherit modus-theme-bold :foreground ,red))) `(compilation-info ((,class :inherit modus-theme-bold :foreground ,fg-special-cold))) `(compilation-line-number ((,class :foreground ,fg-special-warm))) `(compilation-mode-line-exit ((,class :inherit modus-theme-bold :foreground ,blue-active))) `(compilation-mode-line-fail ((,class :inherit modus-theme-bold :foreground ,red-active))) `(compilation-mode-line-run ((,class :inherit modus-theme-bold :foreground ,magenta-active))) `(compilation-warning ((,class :inherit modus-theme-bold :foreground ,yellow))) ;;;;; completions `(completions-annotations ((,class :inherit modus-theme-slant :foreground ,cyan-faint))) `(completions-common-part ((,class ,@(modus-themes--standard-completions blue-alt blue-nuanced-bg cyan-refine-bg cyan-refine-fg)))) `(completions-first-difference ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt blue-nuanced-bg magenta-intense-bg fg-main)))) ;;;;; consult `(consult-async-running ((,class :inherit bold :foreground ,blue))) `(consult-async-split ((,class :foreground ,magenta-alt))) `(consult-bookmark ((,class :foreground ,blue))) `(consult-file ((,class :foreground ,fg-special-cold))) `(consult-imenu-prefix ((,class :inherit shadow))) `(consult-key ((,class :inherit modus-themes-bold :foreground ,magenta-alt-other))) `(consult-line-number ((,class :foreground ,fg-special-warm))) `(consult-line-number-prefix ((,class :foreground ,fg-unfocused))) `(consult-narrow-indicator ((,class :foreground ,magenta-alt))) `(consult-preview-cursor ((,class :inherit modus-theme-intense-blue))) `(consult-preview-error ((,class :inherit modus-theme-intense-red))) `(consult-preview-line ((,class :background ,bg-hl-alt-intense))) ;;;;; counsel `(counsel-active-mode ((,class :foreground ,magenta-alt-other))) `(counsel-application-name ((,class :foreground ,red-alt-other))) `(counsel-key-binding ((,class :inherit bold :foreground ,blue-alt-other))) `(counsel-outline-1 ((,class :inherit org-level-1))) `(counsel-outline-2 ((,class :inherit org-level-2))) `(counsel-outline-3 ((,class :inherit org-level-3))) `(counsel-outline-4 ((,class :inherit org-level-4))) `(counsel-outline-5 ((,class :inherit org-level-5))) `(counsel-outline-6 ((,class :inherit org-level-6))) `(counsel-outline-7 ((,class :inherit org-level-7))) `(counsel-outline-8 ((,class :inherit org-level-8))) `(counsel-outline-default ((,class :foreground ,fg-main))) `(counsel-variable-documentation ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) ;;;;; counsel-css `(counsel-css-selector-depth-face-1 ((,class :foreground ,blue))) `(counsel-css-selector-depth-face-2 ((,class :foreground ,cyan))) `(counsel-css-selector-depth-face-3 ((,class :foreground ,green))) `(counsel-css-selector-depth-face-4 ((,class :foreground ,yellow))) `(counsel-css-selector-depth-face-5 ((,class :foreground ,magenta))) `(counsel-css-selector-depth-face-6 ((,class :foreground ,red))) ;;;;; counsel-notmuch `(counsel-notmuch-count-face ((,class :foreground ,cyan))) `(counsel-notmuch-date-face ((,class :foreground ,blue))) `(counsel-notmuch-people-face ((,class :foreground ,magenta))) `(counsel-notmuch-subject-face ((,class :foreground ,magenta-alt-other))) ;;;;; counsel-org-capture-string `(counsel-org-capture-string-template-body-face ((,class :foreground ,fg-special-cold))) ;;;;; cov `(cov-coverage-not-run-face ((,class :foreground ,red-intense))) `(cov-coverage-run-face ((,class :foreground ,green-intense))) `(cov-heavy-face ((,class :foreground ,magenta-intense))) `(cov-light-face ((,class :foreground ,blue-intense))) `(cov-med-face ((,class :foreground ,yellow-intense))) `(cov-none-face ((,class :foreground ,cyan-intense))) ;;;;; cperl-mode `(cperl-nonoverridable-face ((,class :foreground unspecified))) `(cperl-array-face ((,class :inherit font-lock-keyword-face))) `(cperl-hash-face ((,class :inherit font-lock-variable-name-face))) ;;;;; csv-mode `(csv-separator-face ((,class :background ,bg-special-cold :foreground ,fg-main))) ;;;;; ctrlf `(ctrlf-highlight-active ((,class :inherit (modus-theme-intense-green bold)))) `(ctrlf-highlight-line ((,class :inherit modus-theme-hl-line))) `(ctrlf-highlight-passive ((,class :inherit modus-theme-refine-cyan))) ;;;;; custom (M-x customize) `(custom-button ((,class :box (:line-width 2 :color nil :style released-button) :background ,bg-active :foreground ,fg-main))) `(custom-button-mouse ((,class :box (:line-width 2 :color nil :style released-button) :background ,bg-active :foreground ,fg-active))) `(custom-button-pressed ((,class :box (:line-width 2 :color nil :style pressed-button) :background ,bg-active :foreground ,fg-main))) `(custom-changed ((,class :inherit modus-theme-subtle-cyan))) `(custom-comment ((,class :inherit shadow))) `(custom-comment-tag ((,class :background ,bg-alt :foreground ,yellow-alt-other))) `(custom-face-tag ((,class :inherit bold :foreground ,blue-intense))) `(custom-group-tag ((,class :inherit bold :foreground ,green-intense))) `(custom-group-tag-1 ((,class :inherit modus-theme-special-warm))) `(custom-invalid ((,class :inherit (modus-theme-intense-red bold)))) `(custom-modified ((,class :inherit modus-theme-subtle-cyan))) `(custom-rogue ((,class :inherit modus-theme-refine-magenta))) `(custom-set ((,class :foreground ,blue-alt))) `(custom-state ((,class :foreground ,cyan-alt-other))) `(custom-themed ((,class :inherit modus-theme-subtle-blue))) `(custom-variable-tag ((,class :inherit bold :foreground ,cyan))) ;;;;; dap-mode `(dap-mouse-eval-thing-face ((,class :box (:line-width -1 :color ,blue-active :style nil) :background ,bg-active :foreground ,fg-main))) `(dap-result-overlay-face ((,class :box (:line-width -1 :color ,bg-active :style nil) :background ,bg-active :foreground ,fg-main))) `(dap-ui-breakpoint-verified-fringe ((,class :inherit bold :foreground ,green-active))) `(dap-ui-compile-errline ((,class :inherit bold :foreground ,red-intense))) `(dap-ui-locals-scope-face ((,class :inherit bold :foreground ,magenta :underline t))) `(dap-ui-locals-variable-face ((,class :inherit bold :foreground ,cyan))) `(dap-ui-locals-variable-leaf-face ((,class :inherit italic :foreground ,cyan-alt-other))) `(dap-ui-marker-face ((,class :inherit modus-theme-subtle-blue))) `(dap-ui-sessions-stack-frame-face ((,class :inherit bold :foreground ,magenta-alt))) `(dap-ui-sessions-terminated-active-face ((,class :inherit bold :foreground ,fg-alt))) `(dap-ui-sessions-terminated-face ((,class :inherit shadow))) ;;;;; dashboard (emacs-dashboard) `(dashboard-banner-logo-title ((,class :inherit bold :foreground ,fg-special-cold))) `(dashboard-footer ((,class :inherit bold :foreground ,fg-special-mild))) `(dashboard-heading ((,class :inherit bold :foreground ,fg-special-warm))) `(dashboard-navigator ((,class :foreground ,cyan-alt-other))) `(dashboard-text-banner ((,class :foreground ,fg-dim))) ;;;;; deadgrep `(deadgrep-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) `(deadgrep-match-face ((,class :inherit modus-theme-special-calm))) `(deadgrep-meta-face ((,class :inherit shadow))) `(deadgrep-regexp-metachar-face ((,class :inherit bold :foreground ,yellow-intense))) `(deadgrep-search-term-face ((,class :inherit bold :foreground ,green-intense))) ;;;;; debbugs `(debbugs-gnu-archived ((,class :inverse-video t))) `(debbugs-gnu-done ((,class :inherit shadow))) `(debbugs-gnu-forwarded ((,class :foreground ,fg-special-warm))) `(debbugs-gnu-handled ((,class :foreground ,green))) `(debbugs-gnu-new ((,class :foreground ,red))) `(debbugs-gnu-pending ((,class :foreground ,cyan))) `(debbugs-gnu-stale-1 ((,class :foreground ,yellow-nuanced-fg))) `(debbugs-gnu-stale-2 ((,class :foreground ,yellow))) `(debbugs-gnu-stale-3 ((,class :foreground ,yellow-alt))) `(debbugs-gnu-stale-4 ((,class :foreground ,yellow-alt-other))) `(debbugs-gnu-stale-5 ((,class :foreground ,red-alt))) `(debbugs-gnu-tagged ((,class :foreground ,magenta-alt))) ;;;;; define-word `(define-word-face-1 ((,class :foreground ,yellow))) `(define-word-face-2 ((,class :foreground ,fg-main))) ;;;;; deft `(deft-filter-string-error-face ((,class :inherit modus-theme-refine-red))) `(deft-filter-string-face ((,class :foreground ,green-intense))) `(deft-header-face ((,class :inherit bold :foreground ,fg-special-warm))) `(deft-separator-face ((,class :inherit shadow))) `(deft-summary-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(deft-time-face ((,class :foreground ,fg-special-cold))) `(deft-title-face ((,class :inherit bold :foreground ,fg-main))) ;;;;; dictionary `(dictionary-button-face ((,class :inherit bold :foreground ,fg-special-cold))) `(dictionary-reference-face ((,class :inherit button))) `(dictionary-word-definition-face (())) `(dictionary-word-entry-face ((,class :inherit font-lock-comment-face))) ;;;;; diff-hl `(diff-hl-change ((,class :inherit modus-theme-fringe-yellow))) `(diff-hl-delete ((,class :inherit modus-theme-fringe-red))) `(diff-hl-dired-change ((,class :inherit diff-hl-change))) `(diff-hl-dired-delete ((,class :inherit diff-hl-delete))) `(diff-hl-dired-ignored ((,class :inherit dired-ignored))) `(diff-hl-dired-insert ((,class :inherit diff-hl-insert))) `(diff-hl-dired-unknown ((,class :inherit dired-ignored))) `(diff-hl-insert ((,class :inherit modus-theme-fringe-green))) `(diff-hl-reverted-hunk-highlight ((,class :inherit (modus-theme-active-magenta bold)))) ;;;;; diff-mode `(diff-added ((,class :inherit modus-theme-diff-added))) `(diff-changed ((,class :inherit modus-theme-diff-changed :extend t))) `(diff-context ((,class ,@(modus-themes--diff-text fg-main fg-unfocused)))) `(diff-error ((,class :inherit modus-theme-intense-red))) `(diff-file-header ((,class :inherit (bold diff-header)))) `(diff-function ((,class :inherit modus-theme-diff-heading))) `(diff-header ((,class ,@(modus-themes--diff-text cyan-faint fg-main)))) `(diff-hunk-header ((,class :inherit (bold modus-theme-diff-heading)))) `(diff-index ((,class :inherit bold :foreground ,blue-alt))) `(diff-indicator-added ((,class :inherit (diff-added bold) :foreground ,@(modus-themes--diff-deuteran blue green)))) `(diff-indicator-changed ((,class :inherit (diff-changed bold) :foreground ,yellow))) `(diff-indicator-removed ((,class :inherit (diff-removed bold) :foreground ,red))) `(diff-nonexistent ((,class :inherit (modus-theme-neutral bold)))) `(diff-refine-added ((,class :inherit modus-theme-diff-refine-added))) `(diff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) `(diff-refine-removed ((,class :inherit modus-theme-diff-refine-removed))) `(diff-removed ((,class :inherit modus-theme-diff-removed))) ;;;;; dim-autoload `(dim-autoload-cookie-line ((,class :inherit font-lock-comment-face))) ;;;;; dir-treeview `(dir-treeview-archive-face ((,class :foreground ,fg-special-warm))) `(dir-treeview-archive-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,yellow))) `(dir-treeview-audio-face ((,class :foreground ,magenta))) `(dir-treeview-audio-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt))) `(dir-treeview-control-face ((,class :inherit shadow))) `(dir-treeview-control-mouse-face ((,class :inherit highlight))) `(dir-treeview-default-icon-face ((,class :inherit bold :family "Font Awesome" :foreground ,fg-alt))) `(dir-treeview-default-filename-face ((,class :foreground ,fg-main))) `(dir-treeview-directory-face ((,class :foreground ,blue))) `(dir-treeview-directory-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,blue-alt))) `(dir-treeview-executable-face ((,class :foreground ,red-alt))) `(dir-treeview-executable-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,red-alt-other))) `(dir-treeview-image-face ((,class :foreground ,green-alt-other))) `(dir-treeview-image-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,green-alt))) `(dir-treeview-indent-face ((,class :inherit shadow))) `(dir-treeview-label-mouse-face ((,class :inherit highlight))) `(dir-treeview-start-dir-face ((,class :inherit modus-theme-pseudo-header))) `(dir-treeview-symlink-face ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(dir-treeview-video-face ((,class :foreground ,magenta-alt-other))) `(dir-treeview-video-icon-face ((,class :inherit dir-treeview-default-icon-face :foreground ,magenta-alt-other))) ;;;;; dired `(dired-broken-symlink ((,class :inherit button :foreground ,red))) `(dired-directory ((,class :foreground ,blue))) `(dired-flagged ((,class :inherit modus-theme-mark-del))) `(dired-header ((,class :inherit modus-theme-pseudo-header))) `(dired-ignored ((,class :inherit shadow))) `(dired-mark ((,class :inherit modus-theme-mark-symbol))) `(dired-marked ((,class :inherit modus-theme-mark-sel))) `(dired-perm-write ((,class :foreground ,fg-special-warm))) `(dired-symlink ((,class :inherit button ,@(modus-themes--link-color cyan-alt cyan-alt-faint)))) `(dired-warning ((,class :inherit bold :foreground ,yellow))) ;;;;; dired-async `(dired-async-failures ((,class :inherit modus-theme-bold :foreground ,red-active))) `(dired-async-message ((,class :inherit modus-theme-bold :foreground ,green-active))) `(dired-async-mode-message ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; dired-git `(dired-git-branch-else ((,class :inherit bold :foreground ,magenta-alt))) `(dired-git-branch-master ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; dired-git-info `(dgi-commit-message-face ((,class :foreground ,fg-special-mild))) ;;;;; dired-narrow `(dired-narrow-blink ((,class :inherit (modus-theme-subtle-cyan 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 (())) ;;;;; diredc `(diredc-face-chmod-font-lock-dir ((,class :foreground ,blue-alt))) `(diredc-face-chmod-font-lock-exec ((,class :foreground ,magenta))) `(diredc-face-chmod-font-lock-read ((,class :foreground ,fg-main))) `(diredc-face-chmod-font-lock-write ((,class :foreground ,cyan))) ;;;;; diredfl `(diredfl-autofile-name ((,class :inherit modus-theme-special-cold))) `(diredfl-compressed-file-name ((,class :foreground ,fg-special-warm))) `(diredfl-compressed-file-suffix ((,class :foreground ,red-alt))) `(diredfl-date-time ((,class :foreground ,cyan-alt-other))) `(diredfl-deletion ((,class :inherit modus-theme-mark-del))) `(diredfl-deletion-file-name ((,class :inherit modus-theme-mark-del))) `(diredfl-dir-heading ((,class :inherit modus-theme-pseudo-header))) `(diredfl-dir-name ((,class :inherit dired-directory))) `(diredfl-dir-priv ((,class :foreground ,blue-alt))) `(diredfl-exec-priv ((,class :foreground ,magenta))) `(diredfl-executable-tag ((,class :foreground ,magenta-alt))) `(diredfl-file-name ((,class :foreground ,fg-main))) `(diredfl-file-suffix ((,class :foreground ,cyan))) `(diredfl-flag-mark ((,class :inherit modus-theme-mark-sel))) `(diredfl-flag-mark-line ((,class :inherit modus-theme-mark-sel))) `(diredfl-ignored-file-name ((,class :inherit shadow))) `(diredfl-link-priv ((,class :foreground ,blue-alt-other))) `(diredfl-no-priv ((,class :inherit shadow))) `(diredfl-number ((,class :foreground ,cyan-alt))) `(diredfl-other-priv ((,class :foreground ,yellow))) `(diredfl-rare-priv ((,class :foreground ,red-alt))) `(diredfl-read-priv ((,class :foreground ,fg-main))) `(diredfl-symlink ((,class :inherit dired-symlink))) `(diredfl-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) `(diredfl-write-priv ((,class :foreground ,cyan))) ;;;;; dired+ `(diredp-autofile-name ((,class :inherit modus-theme-special-cold))) `(diredp-compressed-file-name ((,class :foreground ,fg-special-warm))) `(diredp-compressed-file-suffix ((,class :foreground ,red-alt))) `(diredp-date-time ((,class :foreground ,cyan-alt-other))) `(diredp-deletion ((,class :inherit modus-theme-mark-del))) `(diredp-deletion-file-name ((,class :inherit modus-theme-mark-del))) `(diredp-dir-heading ((,class :inherit modus-theme-pseudo-header))) `(diredp-dir-name ((,class :inherit dired-directory))) `(diredp-dir-priv ((,class :foreground ,blue-alt))) `(diredp-exec-priv ((,class :foreground ,magenta))) `(diredp-executable-tag ((,class :foreground ,magenta-alt))) `(diredp-file-name ((,class :foreground ,fg-main))) `(diredp-file-suffix ((,class :foreground ,cyan))) `(diredp-flag-mark ((,class :inherit modus-theme-mark-sel))) `(diredp-flag-mark-line ((,class :inherit modus-theme-mark-sel))) `(diredp-ignored-file-name ((,class :inherit shadow))) `(diredp-link-priv ((,class :foreground ,blue-alt-other))) `(diredp-mode-line-flagged ((,class :foreground ,red-active))) `(diredp-mode-line-marked ((,class :foreground ,green-active))) `(diredp-no-priv ((,class :inherit shadow))) `(diredp-number ((,class :foreground ,cyan-alt))) `(diredp-omit-file-name ((,class :inherit shadow :strike-through t))) `(diredp-other-priv ((,class :foreground ,yellow))) `(diredp-rare-priv ((,class :foreground ,red-alt))) `(diredp-read-priv ((,class :foreground ,fg-main))) `(diredp-symlink ((,class :inherit dired-symlink))) `(diredp-tagged-autofile-name ((,class :inherit modus-theme-refine-magenta))) `(diredp-write-priv ((,class :foreground ,cyan))) ;;;;; disk-usage `(disk-usage-children ((,class :foreground ,yellow))) `(disk-usage-inaccessible ((,class :inherit bold :foreground ,red))) `(disk-usage-percent ((,class :foreground ,green))) `(disk-usage-size ((,class :foreground ,cyan))) `(disk-usage-symlink ((,class :inherit button))) `(disk-usage-symlink-directory ((,class :inherit bold :foreground ,blue-alt))) ;;;;; display-fill-column-indicator-mode `(fill-column-indicator ((,class :foreground ,bg-active))) ;;;;; doom-modeline `(doom-modeline-bar ((,class :inherit modus-theme-active-blue))) `(doom-modeline-bar-inactive ((,class :background ,fg-inactive :foreground ,bg-main))) `(doom-modeline-battery-charging ((,class :foreground ,green-active))) `(doom-modeline-battery-critical ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-battery-error ((,class :inherit bold :box (:line-width -2) :foreground ,red-active))) `(doom-modeline-battery-full ((,class :foreground ,blue-active))) `(doom-modeline-battery-normal ((,class :foreground ,fg-active))) `(doom-modeline-battery-warning ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-buffer-file ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-buffer-major-mode ((,class :inherit bold :foreground ,cyan-active))) `(doom-modeline-buffer-minor-mode ((,class :foreground ,fg-inactive))) `(doom-modeline-buffer-modified ((,class :inherit bold :foreground ,magenta-active))) `(doom-modeline-buffer-path ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-debug ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-debug-visual ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-evil-emacs-state ((,class :inherit bold :foreground ,magenta-active))) `(doom-modeline-evil-insert-state ((,class :inherit bold :foreground ,green-active))) `(doom-modeline-evil-motion-state ((,class :inherit bold :foreground ,fg-inactive))) `(doom-modeline-evil-normal-state ((,class :inherit bold :foreground ,fg-active))) `(doom-modeline-evil-operator-state ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-evil-replace-state ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-evil-visual-state ((,class :inherit bold :foreground ,cyan-active))) `(doom-modeline-highlight ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-host ((,class :inherit italic))) `(doom-modeline-info ((,class :foreground ,green-active))) `(doom-modeline-lsp-error ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-lsp-success ((,class :inherit bold :foreground ,green-active))) `(doom-modeline-lsp-warning ((,class :inherit bold :foreground ,yellow-active))) `(doom-modeline-panel ((,class :inherit modus-theme-active-blue))) `(doom-modeline-persp-buffer-not-in-persp ((,class :inherit italic :foreground ,yellow-active))) `(doom-modeline-persp-name ((,class :foreground ,fg-active))) `(doom-modeline-project-dir ((,class :inherit bold :foreground ,blue-active))) `(doom-modeline-project-parent-dir ((,class :foreground ,blue-active))) `(doom-modeline-project-root-dir ((,class :foreground ,fg-active))) `(doom-modeline-unread-number ((,class :inherit italic :foreground ,fg-active))) `(doom-modeline-urgent ((,class :inherit bold :foreground ,red-active))) `(doom-modeline-warning ((,class :inherit bold :foreground ,yellow-active))) ;;;;; dynamic-ruler `(dynamic-ruler-negative-face ((,class :inherit modus-theme-intense-neutral))) `(dynamic-ruler-positive-face ((,class :inherit modus-theme-intense-yellow))) ;;;;; easy-jekyll `(easy-jekyll-help-face ((,class :background ,bg-dim :foreground ,cyan-alt-other))) ;;;;; easy-kill `(easy-kill-origin ((,class :inherit modus-theme-subtle-red))) `(easy-kill-selection ((,class :inherit modus-theme-subtle-yellow))) ;;;;; ebdb `(ebdb-address-default ((,class :foreground ,fg-special-calm))) `(ebdb-defunct ((,class :inherit shadow))) `(ebdb-field-hidden ((,class :foreground ,magenta))) `(ebdb-label ((,class :foreground ,cyan-alt-other))) `(ebdb-mail-default ((,class :foreground ,fg-main))) `(ebdb-mail-primary ((,class :foreground ,magenta-alt))) `(ebdb-marked ((,class :background ,cyan-intense-bg))) `(ebdb-organization-name ((,class :foreground ,red-alt-other))) `(ebdb-person-name ((,class :foreground ,magenta-alt-other))) `(ebdb-phone-default ((,class :foreground ,cyan))) `(eieio-custom-slot-tag-face ((,class :foreground ,red-alt))) ;;;;; ediff ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces. `(ediff-current-diff-A ((,class ,@(modus-themes--diff bg-dim red bg-diff-removed fg-diff-removed red-nuanced-bg red-faint)))) `(ediff-current-diff-Ancestor ((,class ,@(modus-themes--diff bg-dim fg-special-cold bg-special-cold fg-special-cold blue-nuanced-bg blue)))) `(ediff-current-diff-B ((,class ,@(modus-themes--diff bg-dim green bg-diff-added fg-diff-added green-nuanced-bg green-faint bg-diff-added-deuteran fg-diff-added-deuteran)))) `(ediff-current-diff-C ((,class ,@(modus-themes--diff bg-dim yellow bg-diff-changed fg-diff-changed yellow-nuanced-bg yellow-faint)))) `(ediff-even-diff-A ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-Ancestor ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-B ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(ediff-even-diff-C ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-fine-diff-A ((,class :background ,bg-diff-focus-removed :foreground ,fg-diff-focus-removed))) `(ediff-fine-diff-Ancestor ((,class :inherit modus-theme-refine-cyan))) `(ediff-fine-diff-B ((,class :background ,@(modus-themes--diff-deuteran bg-diff-focus-added-deuteran bg-diff-focus-added) :foreground ,@(modus-themes--diff-deuteran fg-diff-focus-added-deuteran fg-diff-focus-added)))) `(ediff-fine-diff-C ((,class :background ,bg-diff-focus-changed :foreground ,fg-diff-focus-changed))) `(ediff-odd-diff-A ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-odd-diff-Ancestor ((,class :background ,bg-diff-neutral-0 :foreground ,fg-diff-neutral-0))) `(ediff-odd-diff-B ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(ediff-odd-diff-C ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) ;;;;; eglot `(eglot-mode-line ((,class :inherit modus-theme-bold :foreground ,magenta-active))) ;;;;; el-search `(el-search-highlight-in-prompt-face ((,class :inherit bold :foreground ,magenta-alt))) `(el-search-match ((,class :inherit modus-theme-intense-green))) `(el-search-other-match ((,class :inherit modus-theme-special-mild))) `(el-search-occur-match ((,class :inherit modus-theme-special-calm))) ;;;;; eldoc ;; NOTE: see https://github.com/purcell/package-lint/issues/187 (list 'eldoc-highlight-function-argument `((,class :inherit bold :foreground ,blue-alt-other))) ;;;;; eldoc-box `(eldoc-box-body ((,class :background ,bg-alt :foreground ,fg-main))) `(eldoc-box-border ((,class :background ,fg-alt))) ;;;;; elfeed `(elfeed-log-date-face ((,class :inherit elfeed-search-date-face))) `(elfeed-log-debug-level-face ((,class :inherit elfeed-search-filter-face))) `(elfeed-log-error-level-face ((,class :inherit error))) `(elfeed-log-info-level-face ((,class :inherit success))) `(elfeed-log-warn-level-face ((,class :inherit warning))) `(elfeed-search-date-face ((,class :foreground ,cyan))) `(elfeed-search-feed-face ((,class :foreground ,blue-faint))) `(elfeed-search-filter-face ((,class :inherit bold :foreground ,magenta-active))) `(elfeed-search-last-update-face ((,class :foreground ,cyan-active))) `(elfeed-search-tag-face ((,class :foreground ,cyan-alt-other))) `(elfeed-search-title-face ((,class :foreground ,fg-dim))) `(elfeed-search-unread-count-face ((,class :foreground ,green-active))) `(elfeed-search-unread-title-face ((,class :inherit bold :foreground ,fg-main))) ;;;;; elfeed-score `(elfeed-score-date-face ((,class :foreground ,blue))) `(elfeed-score-debug-level-face ((,class :foreground ,magenta-alt-other))) `(elfeed-score-error-level-face ((,class :foreground ,red))) `(elfeed-score-info-level-face ((,class :foreground ,cyan))) `(elfeed-score-warn-level-face ((,class :foreground ,yellow))) ;;;;; emms `(emms-playlist-track-face ((,class :foreground ,blue))) `(emms-playlist-selected-face ((,class :inherit bold :foreground ,magenta))) ;;;;; enhanced-ruby-mode `(enh-ruby-heredoc-delimiter-face ((,class :foreground ,blue-alt-other))) `(enh-ruby-op-face ((,class :foreground ,fg-main))) `(enh-ruby-regexp-delimiter-face ((,class :foreground ,green))) `(enh-ruby-regexp-face ((,class :foreground ,magenta))) `(enh-ruby-string-delimiter-face ((,class :foreground ,blue-alt))) `(erm-syn-errline ((,class :foreground ,red :underline t))) `(erm-syn-warnline ((,class :foreground ,yellow :underline t))) ;;;;; epa `(epa-field-body ((,class :foreground ,fg-main))) `(epa-field-name ((,class :inherit bold :foreground ,fg-dim))) `(epa-mark ((,class :inherit bold :foreground ,magenta))) `(epa-string ((,class :foreground ,blue-alt))) `(epa-validity-disabled ((,class :foreground ,red))) `(epa-validity-high ((,class :inherit bold :foreground ,cyan))) `(epa-validity-low ((,class :inherit shadow))) `(epa-validity-medium ((,class :foreground ,green-alt))) ;;;;; equake `(equake-buffer-face ((,class :background ,bg-main :foreground ,fg-main))) `(equake-shell-type-eshell ((,class :background ,bg-inactive :foreground ,green-active))) `(equake-shell-type-rash ((,class :background ,bg-inactive :foreground ,red-active))) `(equake-shell-type-shell ((,class :background ,bg-inactive :foreground ,cyan-active))) `(equake-shell-type-term ((,class :background ,bg-inactive :foreground ,yellow-active))) `(equake-shell-type-vterm ((,class :background ,bg-inactive :foreground ,magenta-active))) `(equake-tab-active ((,class :background ,fg-alt :foreground ,bg-alt))) `(equake-tab-inactive ((,class :foreground ,fg-inactive))) ;;;;; erc `(erc-action-face ((,class :inherit bold :foreground ,cyan))) `(erc-bold-face ((,class :inherit bold))) `(erc-button ((,class :inherit button))) `(erc-command-indicator-face ((,class :inherit bold :foreground ,cyan-alt))) `(erc-current-nick-face ((,class :foreground ,magenta-alt-other))) `(erc-dangerous-host-face ((,class :inherit modus-theme-intense-red))) `(erc-direct-msg-face ((,class :foreground ,magenta))) `(erc-error-face ((,class :inherit bold :foreground ,red))) `(erc-fool-face ((,class :foreground ,fg-inactive))) `(erc-header-line ((,class :background ,bg-header :foreground ,fg-header))) `(erc-input-face ((,class :foreground ,fg-special-calm))) `(erc-inverse-face ((,class :inherit erc-default-face :inverse-video t))) `(erc-keyword-face ((,class :inherit bold :foreground ,magenta-alt))) `(erc-my-nick-face ((,class :inherit bold :foreground ,magenta))) `(erc-my-nick-prefix-face ((,class :inherit erc-my-nick-face))) `(erc-nick-default-face ((,class :inherit bold :foreground ,blue))) `(erc-nick-msg-face ((,class :inherit bold :foreground ,green))) `(erc-nick-prefix-face ((,class :inherit erc-nick-default-face))) `(erc-notice-face ((,class :foreground ,fg-unfocused))) `(erc-pal-face ((,class :inherit bold :foreground ,red-alt))) `(erc-prompt-face ((,class :inherit bold :foreground ,cyan-alt-other))) `(erc-timestamp-face ((,class :foreground ,blue-nuanced-fg))) `(erc-underline-face ((,class :underline t))) `(bg:erc-color-face0 ((,class :background "white"))) `(bg:erc-color-face1 ((,class :background "black"))) `(bg:erc-color-face10 ((,class :background ,cyan-subtle-bg))) `(bg:erc-color-face11 ((,class :background ,cyan-intense-bg))) `(bg:erc-color-face12 ((,class :background ,blue-subtle-bg))) `(bg:erc-color-face13 ((,class :background ,magenta-subtle-bg))) `(bg:erc-color-face14 ((,class :background "gray60"))) `(bg:erc-color-face15 ((,class :background "gray80"))) `(bg:erc-color-face2 ((,class :background ,blue-intense-bg))) `(bg:erc-color-face3 ((,class :background ,green-intense-bg))) `(bg:erc-color-face4 ((,class :background ,red-subtle-bg))) `(bg:erc-color-face5 ((,class :background ,red-intense-bg))) `(bg:erc-color-face6 ((,class :background ,magenta-refine-bg))) `(bg:erc-color-face7 ((,class :background ,yellow-subtle-bg))) `(bg:erc-color-face8 ((,class :background ,yellow-refine-bg))) `(bg:erc-color-face9 ((,class :background ,green-subtle-bg))) `(fg:erc-color-face0 ((,class :foreground "white"))) `(fg:erc-color-face1 ((,class :foreground "black"))) `(fg:erc-color-face10 ((,class :foreground ,cyan))) `(fg:erc-color-face11 ((,class :foreground ,cyan-alt-other))) `(fg:erc-color-face12 ((,class :foreground ,blue))) `(fg:erc-color-face13 ((,class :foreground ,magenta-alt))) `(fg:erc-color-face14 ((,class :foreground "gray60"))) `(fg:erc-color-face15 ((,class :foreground "gray80"))) `(fg:erc-color-face2 ((,class :foreground ,blue-alt-other))) `(fg:erc-color-face3 ((,class :foreground ,green))) `(fg:erc-color-face4 ((,class :foreground ,red))) `(fg:erc-color-face5 ((,class :foreground ,red-alt))) `(fg:erc-color-face6 ((,class :foreground ,magenta-alt-other))) `(fg:erc-color-face7 ((,class :foreground ,yellow-alt-other))) `(fg:erc-color-face8 ((,class :foreground ,yellow-alt))) `(fg:erc-color-face9 ((,class :foreground ,green-alt-other))) ;;;;; eros `(eros-result-overlay-face ((,class :box (:line-width -1 :color ,blue) :background ,bg-dim :foreground ,fg-dim))) ;;;;; ert `(ert-test-result-expected ((,class :inherit modus-theme-intense-green))) `(ert-test-result-unexpected ((,class :inherit modus-theme-intense-red))) ;;;;; eshell `(eshell-ls-archive ((,class :inherit bold :foreground ,cyan-alt))) `(eshell-ls-backup ((,class :foreground ,yellow-alt))) `(eshell-ls-clutter ((,class :foreground ,red-alt))) `(eshell-ls-directory ((,class :inherit bold :foreground ,blue-alt))) `(eshell-ls-executable ((,class :foreground ,magenta-alt))) `(eshell-ls-missing ((,class :inherit modus-theme-intense-red))) `(eshell-ls-product ((,class :foreground ,fg-special-warm))) `(eshell-ls-readonly ((,class :foreground ,fg-special-cold))) `(eshell-ls-special ((,class :inherit bold :foreground ,magenta))) `(eshell-ls-symlink ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(eshell-ls-unreadable ((,class :background ,bg-inactive :foreground ,fg-inactive))) `(eshell-prompt ((,class :inherit modus-theme-bold ,@(modus-themes--prompt green-alt-other green-nuanced-bg green-alt green-refine-bg fg-main)))) ;;;;; eshell-fringe-status `(eshell-fringe-status-failure ((,class :foreground ,red))) `(eshell-fringe-status-success ((,class :foreground ,green))) ;;;;; eshell-git-prompt `(eshell-git-prompt-add-face ((,class :inherit shadow))) `(eshell-git-prompt-branch-face ((,class :inherit shadow))) `(eshell-git-prompt-directory-face ((,class :foreground ,cyan))) `(eshell-git-prompt-exit-fail-face ((,class :foreground ,red))) `(eshell-git-prompt-exit-success-face ((,class :foreground ,green))) `(eshell-git-prompt-modified-face ((,class :foreground ,yellow))) `(eshell-git-prompt-powerline-clean-face ((,class :background ,green-refine-bg))) `(eshell-git-prompt-powerline-dir-face ((,class :background ,blue-refine-bg))) `(eshell-git-prompt-powerline-not-clean-face ((,class :background ,magenta-refine-bg))) `(eshell-git-prompt-robyrussell-branch-face ((,class :foreground ,red))) `(eshell-git-prompt-robyrussell-git-dirty-face ((,class :foreground ,yellow))) `(eshell-git-prompt-robyrussell-git-face ((,class :foreground ,blue))) ;;;;; eshell-prompt-extras (epe) `(epe-dir-face ((,class :inherit modus-theme-bold :foreground ,blue))) `(epe-git-dir-face ((,class :foreground ,red-alt-other))) `(epe-git-face ((,class :foreground ,cyan-alt))) `(epe-pipeline-delimiter-face ((,class :foreground ,green-alt))) `(epe-pipeline-host-face ((,class :foreground ,blue))) `(epe-pipeline-time-face ((,class :foreground ,fg-special-warm))) `(epe-pipeline-user-face ((,class :foreground ,magenta))) `(epe-remote-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(epe-status-face ((,class :foreground ,magenta-alt-other))) `(epe-venv-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) ;;;;; eshell-syntax-highlighting `(eshell-syntax-highlighting-alias-face ((,class :foreground ,cyan))) `(eshell-syntax-highlighting-comment-face ((,class :inherit shadow))) `(eshell-syntax-highlighting-directory-face ((,class :foreground ,blue))) `(eshell-syntax-highlighting-envvar-face ((,class :foreground ,magenta-alt))) `(eshell-syntax-highlighting-invalid-face ((,class :foreground ,red))) `(eshell-syntax-highlighting-lisp-function-face ((,class :foreground ,magenta))) `(eshell-syntax-highlighting-shell-command-face ((,class :foreground ,cyan-alt-other))) `(eshell-syntax-highlighting-string-face ((,class :foreground ,blue-alt))) ;;;;; evil-mode `(evil-ex-commands ((,class :foreground ,magenta-alt-other))) `(evil-ex-info ((,class :foreground ,cyan-alt-other))) `(evil-ex-lazy-highlight ((,class :inherit modus-theme-refine-cyan))) `(evil-ex-search ((,class :inherit modus-theme-intense-green))) `(evil-ex-substitute-matches ((,class :inherit modus-theme-refine-yellow :underline t))) `(evil-ex-substitute-replacement ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; evil-goggles `(evil-goggles-change-face ((,class :inherit modus-theme-refine-yellow))) `(evil-goggles-commentary-face ((,class :inherit (modus-theme-subtle-neutral modus-theme-slant)))) `(evil-goggles-default-face ((,class :inherit modus-theme-subtle-neutral))) `(evil-goggles-delete-face ((,class :inherit modus-theme-refine-red))) `(evil-goggles-fill-and-move-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-indent-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-join-face ((,class :inherit modus-theme-subtle-green))) `(evil-goggles-nerd-commenter-face ((,class :inherit evil-goggles-commentary-face))) `(evil-goggles-paste-face ((,class :inherit modus-theme-subtle-cyan))) `(evil-goggles-record-macro-face ((,class :inherit modus-theme-special-cold))) `(evil-goggles-replace-with-register-face ((,class :inherit modus-theme-refine-magenta))) `(evil-goggles-set-marker-face ((,class :inherit modus-theme-intense-magenta))) `(evil-goggles-shift-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-surround-face ((,class :inherit evil-goggles-default-face))) `(evil-goggles-yank-face ((,class :inherit modus-theme-subtle-blue))) ;;;;; evil-snipe `(evil-snipe-first-match-face ((,class :inherit (bold modus-theme-intense-blue)))) `(evil-snipe-matches-face ((,class :inherit modus-theme-refine-magenta))) ;;;;; evil-visual-mark-mode `(evil-visual-mark-face ((,class :inherit modus-theme-intense-magenta))) ;;;;; eww `(eww-invalid-certificate ((,class :foreground ,red-active))) `(eww-valid-certificate ((,class :foreground ,green-active))) `(eww-form-checkbox ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-inactive :foreground ,fg-main))) `(eww-form-file ((,class :box (:line-width 1 :color ,fg-inactive :style released-button) :background ,bg-active :foreground ,fg-main))) `(eww-form-select ((,class :inherit eww-form-checkbox))) `(eww-form-submit ((,class :inherit eww-form-file))) `(eww-form-text ((,class :box (:line-width 1 :color ,fg-inactive :style none) :background ,bg-active :foreground ,fg-active))) `(eww-form-textarea ((,class :background ,bg-alt :foreground ,fg-main))) ;;;;; eyebrowse `(eyebrowse-mode-line-active ((,class :inherit bold :foreground ,blue-active))) ;;;;; fancy-dabbrev `(fancy-dabbrev-menu-face ((,class :background ,bg-alt :foreground ,fg-alt))) `(fancy-dabbrev-preview-face ((,class :inherit shadow :underline t))) `(fancy-dabbrev-selection-face ((,class :inherit (modus-theme-intense-cyan bold)))) ;;;;; flycheck `(flycheck-error ((,class :inherit modus-theme-lang-error))) `(flycheck-error-list-checker-name ((,class :foreground ,magenta-active))) `(flycheck-error-list-column-number ((,class :foreground ,fg-special-cold))) `(flycheck-error-list-error ((,class :inherit modus-theme-bold :foreground ,red))) `(flycheck-error-list-filename ((,class :foreground ,blue))) `(flycheck-error-list-highlight ((,class :inherit modus-theme-hl-line))) `(flycheck-error-list-id ((,class :foreground ,magenta-alt-other))) `(flycheck-error-list-id-with-explainer ((,class :inherit flycheck-error-list-id :box t))) `(flycheck-error-list-info ((,class :foreground ,cyan))) `(flycheck-error-list-line-number ((,class :foreground ,fg-special-warm))) `(flycheck-error-list-warning ((,class :foreground ,yellow))) `(flycheck-fringe-error ((,class :inherit modus-theme-fringe-red))) `(flycheck-fringe-info ((,class :inherit modus-theme-fringe-cyan))) `(flycheck-fringe-warning ((,class :inherit modus-theme-fringe-yellow))) `(flycheck-info ((,class :inherit modus-theme-lang-note))) `(flycheck-verify-select-checker ((,class :box (:line-width 1 :color nil :style released-button)))) `(flycheck-warning ((,class :inherit modus-theme-lang-warning))) ;;;;; flycheck-color-mode-line `(flycheck-color-mode-line-error-face ((,class :inherit flycheck-fringe-error))) `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-info))) `(flycheck-color-mode-line-running-face ((,class :inherit italic :foreground ,fg-inactive))) `(flycheck-color-mode-line-info-face ((,class :inherit flycheck-fringe-warning))) ;;;;; flycheck-indicator `(flycheck-indicator-disabled ((,class :inherit modus-theme-slant :foreground ,fg-inactive))) `(flycheck-indicator-error ((,class :inherit modus-theme-bold :foreground ,red-active))) `(flycheck-indicator-info ((,class :inherit modus-theme-bold :foreground ,blue-active))) `(flycheck-indicator-running ((,class :inherit modus-theme-bold :foreground ,magenta-active))) `(flycheck-indicator-success ((,class :inherit modus-theme-bold :foreground ,green-active))) `(flycheck-indicator-warning ((,class :inherit modus-theme-bold :foreground ,yellow-active))) ;;;;; flycheck-posframe `(flycheck-posframe-background-face ((,class :background ,bg-alt))) `(flycheck-posframe-border-face ((,class :inherit shadow))) `(flycheck-posframe-error-face ((,class :inherit bold :foreground ,red))) `(flycheck-posframe-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) `(flycheck-posframe-info-face ((,class :inherit bold :foreground ,cyan))) `(flycheck-posframe-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; flymake `(flymake-error ((,class :inherit modus-theme-lang-error))) `(flymake-note ((,class :inherit modus-theme-lang-note))) `(flymake-warning ((,class :inherit modus-theme-lang-warning))) ;;;;; flyspell `(flyspell-duplicate ((,class :inherit modus-theme-lang-warning))) `(flyspell-incorrect ((,class :inherit modus-theme-lang-error))) ;;;;; flyspell-correct `(flyspell-correct-highlight-face ((,class :inherit modus-theme-refine-green))) ;;;;; flx `(flx-highlight-face ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-intense-magenta 'modus-theme-nuanced-magenta magenta-alt 'bold)))) ;;;;; freeze-it `(freeze-it-show ((,class :background ,bg-dim :foreground ,fg-special-warm))) ;;;;; frog-menu `(frog-menu-action-keybinding-face ((,class :foreground ,blue-alt-other))) `(frog-menu-actions-face ((,class :foreground ,magenta))) `(frog-menu-border ((,class :background ,bg-active))) `(frog-menu-candidates-face ((,class :foreground ,fg-main))) `(frog-menu-posframe-background-face ((,class :background ,bg-dim))) `(frog-menu-prompt-face ((,class :foreground ,cyan))) ;;;;; focus `(focus-unfocused ((,class :foreground ,fg-unfocused))) ;;;;; fold-this `(fold-this-overlay ((,class :inherit modus-theme-special-mild))) ;;;;; font-lock `(font-lock-builtin-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra magenta-alt magenta-alt-faint blue-alt)))) `(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face))) `(font-lock-comment-face ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-alt fg-comment-yellow)))) `(font-lock-constant-face ((,class ,@(modus-themes--syntax-extra blue-alt-other blue-alt-other-faint magenta-alt-other)))) `(font-lock-doc-face ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-docstring fg-docstring green-alt-other-faint green-alt-other-faint magenta-nuanced-fg)))) `(font-lock-function-name-face ((,class ,@(modus-themes--syntax-extra magenta magenta-faint magenta-alt)))) `(font-lock-keyword-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra magenta-alt-other magenta-alt-other-faint cyan-alt-other)))) `(font-lock-negation-char-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-foreground yellow yellow-faint)))) `(font-lock-preprocessor-face ((,class ,@(modus-themes--syntax-foreground red-alt-other red-alt-other-faint)))) `(font-lock-regexp-grouping-backslash ((,class :inherit bold ,@(modus-themes--syntax-string fg-escape-char-backslash yellow-alt-faint magenta-alt-other blue-alt)))) `(font-lock-regexp-grouping-construct ((,class :inherit bold ,@(modus-themes--syntax-string fg-escape-char-construct red-alt-other-faint red magenta-alt)))) `(font-lock-string-face ((,class ,@(modus-themes--syntax-string blue-alt blue-alt-faint green green-alt)))) `(font-lock-type-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-extra cyan-alt-other cyan-alt-faint cyan-alt)))) `(font-lock-variable-name-face ((,class ,@(modus-themes--syntax-extra cyan cyan-faint blue-alt-faint)))) `(font-lock-warning-face ((,class :inherit modus-theme-bold ,@(modus-themes--syntax-foreground yellow-active yellow-alt-faint)))) ;;;;; forge `(forge-post-author ((,class :inherit bold :foreground ,fg-main))) `(forge-post-date ((,class :foreground ,fg-special-cold))) `(forge-topic-closed ((,class :inherit shadow))) `(forge-topic-merged ((,class :inherit shadow))) `(forge-topic-open ((,class :foreground ,fg-special-mild))) `(forge-topic-unmerged ((,class :inherit modus-theme-slant :foreground ,magenta))) `(forge-topic-unread ((,class :inherit bold :foreground ,fg-main))) ;;;;; fountain-mode `(fountain-character ((,class :foreground ,blue-alt-other))) `(fountain-comment ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(fountain-dialog ((,class :foreground ,blue-alt))) `(fountain-metadata-key ((,class :foreground ,green-alt-other))) `(fountain-metadata-value ((,class :foreground ,blue))) `(fountain-non-printing ((,class :inherit shadow))) `(fountain-note ((,class :inherit modus-theme-slant :foreground ,yellow))) `(fountain-page-break ((,class :inherit bold :foreground ,red-alt))) `(fountain-page-number ((,class :inherit bold :foreground ,red-alt-other))) `(fountain-paren ((,class :foreground ,cyan))) `(fountain-scene-heading ((,class :inherit bold :foreground ,blue-nuanced-fg))) `(fountain-section-heading ((,class :inherit modus-theme-heading-1))) `(fountain-section-heading-1 ((,class :inherit modus-theme-heading-1))) `(fountain-section-heading-2 ((,class :inherit modus-theme-heading-2))) `(fountain-section-heading-3 ((,class :inherit modus-theme-heading-3))) `(fountain-section-heading-4 ((,class :inherit modus-theme-heading-4))) `(fountain-section-heading-5 ((,class :inherit modus-theme-heading-5))) `(fountain-synopsis ((,class :foreground ,cyan-alt))) `(fountain-trans ((,class :foreground ,yellow-alt-other))) ;;;;; geiser `(geiser-font-lock-autodoc-current-arg ((,class :inherit font-lock-function-name-face))) `(geiser-font-lock-autodoc-identifier ((,class :inherit font-lock-constant-face))) `(geiser-font-lock-doc-button ((,class :inherit button :foreground ,fg-docstring))) `(geiser-font-lock-doc-link ((,class :inherit button))) `(geiser-font-lock-error-link ((,class :inherit button :foreground ,red))) `(geiser-font-lock-image-button ((,class :inherit button :foreground ,green-alt))) `(geiser-font-lock-repl-input ((,class :inherit bold))) `(geiser-font-lock-repl-output ((,class :inherit font-lock-keyword-face))) `(geiser-font-lock-repl-prompt ((,class :inherit minibuffer-prompt))) `(geiser-font-lock-xref-header ((,class :inherit bold))) `(geiser-font-lock-xref-link ((,class :inherit button))) ;;;;; git-commit `(git-commit-comment-action ((,class :inherit font-lock-comment-face))) `(git-commit-comment-branch-local ((,class :inherit modus-theme-slant :foreground ,blue-alt))) `(git-commit-comment-branch-remote ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(git-commit-comment-detached ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) `(git-commit-comment-file ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-special-cold red-nuanced-fg)))) `(git-commit-comment-heading ((,class :inherit (bold modus-theme-slant) ,@(modus-themes--syntax-comment fg-dim fg-special-warm)))) `(git-commit-keyword ((,class :foreground ,magenta))) `(git-commit-known-pseudo-header ((,class :foreground ,cyan-alt-other))) `(git-commit-nonempty-second-line ((,class :inherit modus-theme-refine-yellow))) `(git-commit-overlong-summary ((,class :inherit modus-theme-refine-yellow))) `(git-commit-pseudo-header ((,class :foreground ,blue))) `(git-commit-summary ((,class :inherit bold :foreground ,cyan))) ;;;;; git-gutter `(git-gutter:added ((,class :inherit modus-theme-fringe-green))) `(git-gutter:deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter:modified ((,class :inherit modus-theme-fringe-yellow))) `(git-gutter:separator ((,class :inherit modus-theme-fringe-cyan))) `(git-gutter:unchanged ((,class :inherit modus-theme-fringe-magenta))) ;;;;; git-gutter-fr `(git-gutter-fr:added ((,class :inherit modus-theme-fringe-green))) `(git-gutter-fr:deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter-fr:modified ((,class :inherit modus-theme-fringe-yellow))) ;;;;; git-{gutter,fringe}+ `(git-gutter+-added ((,class :inherit modus-theme-fringe-green))) `(git-gutter+-deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter+-modified ((,class :inherit modus-theme-fringe-yellow))) `(git-gutter+-separator ((,class :inherit modus-theme-fringe-cyan))) `(git-gutter+-unchanged ((,class :inherit modus-theme-fringe-magenta))) `(git-gutter-fr+-added ((,class :inherit modus-theme-fringe-green))) `(git-gutter-fr+-deleted ((,class :inherit modus-theme-fringe-red))) `(git-gutter-fr+-modified ((,class :inherit modus-theme-fringe-yellow))) ;;;;; git-lens `(git-lens-added ((,class :inherit bold :foreground ,green))) `(git-lens-deleted ((,class :inherit bold :foreground ,red))) `(git-lens-header ((,class :inherit bold :height 1.1 :foreground ,cyan))) `(git-lens-modified ((,class :inherit bold :foreground ,yellow))) `(git-lens-renamed ((,class :inherit bold :foreground ,magenta))) ;;;;; git-rebase `(git-rebase-comment-hash ((,class :inherit modus-theme-slant ,@(modus-themes--syntax-comment fg-special-cold red-nuanced-fg)))) `(git-rebase-comment-heading ((,class :inherit (bold modus-theme-slant) ,@(modus-themes--syntax-comment fg-dim fg-special-warm)))) `(git-rebase-description ((,class :foreground ,fg-main))) `(git-rebase-hash ((,class :foreground ,cyan-alt-other))) ;;;;; git-timemachine `(git-timemachine-commit ((,class :inherit bold :foreground ,yellow-active))) `(git-timemachine-minibuffer-author-face ((,class :foreground ,fg-special-warm))) `(git-timemachine-minibuffer-detail-face ((,class :foreground ,red-alt))) ;;;;; git-walktree `(git-walktree-commit-face ((,class :foreground ,yellow))) `(git-walktree-symlink-face ((,class :inherit button))) `(git-walktree-tree-face ((,class :foreground ,magenta))) ;;;;; gnus `(gnus-button ((,class :inherit button))) `(gnus-cite-1 ((,class :foreground ,blue-faint))) `(gnus-cite-10 ((,class :foreground ,yellow-alt-other))) `(gnus-cite-11 ((,class :foreground ,magenta-alt))) `(gnus-cite-2 ((,class :foreground ,green-alt-other))) `(gnus-cite-3 ((,class :foreground ,red-alt-other))) `(gnus-cite-4 ((,class :foreground ,cyan))) `(gnus-cite-5 ((,class :foreground ,yellow-alt))) `(gnus-cite-6 ((,class :foreground ,magenta))) `(gnus-cite-7 ((,class :foreground ,green-alt))) `(gnus-cite-8 ((,class :foreground ,magenta-alt-other))) `(gnus-cite-9 ((,class :foreground ,cyan-alt))) `(gnus-cite-attribution ((,class :inherit italic :foreground ,fg-main))) `(gnus-emphasis-bold ((,class :inherit bold))) `(gnus-emphasis-bold-italic ((,class :inherit bold-italic))) `(gnus-emphasis-highlight-words ((,class :inherit modus-theme-refine-yellow))) `(gnus-emphasis-italic ((,class :inherit italic))) `(gnus-emphasis-underline-bold ((,class :inherit gnus-emphasis-bold :underline t))) `(gnus-emphasis-underline-bold-italic ((,class :inherit gnus-emphasis-bold-italic :underline t))) `(gnus-emphasis-underline-italic ((,class :inherit gnus-emphasis-italic :underline t))) `(gnus-group-mail-1 ((,class :inherit bold :foreground ,magenta-alt))) `(gnus-group-mail-1-empty ((,class :foreground ,magenta-alt))) `(gnus-group-mail-2 ((,class :inherit bold :foreground ,magenta))) `(gnus-group-mail-2-empty ((,class :foreground ,magenta))) `(gnus-group-mail-3 ((,class :inherit bold :foreground ,magenta-alt-other))) `(gnus-group-mail-3-empty ((,class :foreground ,magenta-alt-other))) `(gnus-group-mail-low ((,class :inherit bold :foreground ,magenta-nuanced-fg))) `(gnus-group-mail-low-empty ((,class :foreground ,magenta-nuanced-fg))) `(gnus-group-news-1 ((,class :inherit bold :foreground ,green))) `(gnus-group-news-1-empty ((,class :foreground ,green))) `(gnus-group-news-2 ((,class :inherit bold :foreground ,cyan))) `(gnus-group-news-2-empty ((,class :foreground ,cyan))) `(gnus-group-news-3 ((,class :inherit bold :foreground ,yellow-nuanced-fg))) `(gnus-group-news-3-empty ((,class :foreground ,yellow-nuanced-fg))) `(gnus-group-news-4 ((,class :inherit bold :foreground ,cyan-nuanced-fg))) `(gnus-group-news-4-empty ((,class :foreground ,cyan-nuanced-fg))) `(gnus-group-news-5 ((,class :inherit bold :foreground ,red-nuanced-fg))) `(gnus-group-news-5-empty ((,class :foreground ,red-nuanced-fg))) `(gnus-group-news-6 ((,class :inherit bold :foreground ,fg-alt))) `(gnus-group-news-6-empty ((,class :inherit shadow))) `(gnus-group-news-low ((,class :inherit bold :foreground ,green-nuanced-fg))) `(gnus-group-news-low-empty ((,class :foreground ,green-nuanced-fg))) `(gnus-header-content ((,class :inherit message-header-other))) `(gnus-header-from ((,class :inherit message-header-to :underline nil))) `(gnus-header-name ((,class :inherit message-header-name))) `(gnus-header-newsgroups ((,class :inherit message-header-newsgroups))) `(gnus-header-subject ((,class :inherit message-header-subject))) `(gnus-server-agent ((,class :inherit bold :foreground ,cyan))) `(gnus-server-closed ((,class :inherit bold :foreground ,magenta))) `(gnus-server-cloud ((,class :inherit bold :foreground ,cyan-alt))) `(gnus-server-cloud-host ((,class :inherit modus-theme-refine-cyan))) `(gnus-server-denied ((,class :inherit bold :foreground ,red))) `(gnus-server-offline ((,class :inherit bold :foreground ,yellow))) `(gnus-server-opened ((,class :inherit bold :foreground ,green))) `(gnus-signature ((,class :inherit italic :foreground ,fg-special-cold))) `(gnus-splash ((,class :inherit shadow))) `(gnus-summary-cancelled ((,class :inherit modus-theme-mark-alt))) `(gnus-summary-high-ancient ((,class :inherit bold :foreground ,fg-alt))) `(gnus-summary-high-read ((,class :inherit bold :foreground ,fg-special-cold))) `(gnus-summary-high-ticked ((,class :inherit bold :foreground ,red-alt-other))) `(gnus-summary-high-undownloaded ((,class :inherit bold :foreground ,yellow))) `(gnus-summary-high-unread ((,class :inherit bold :foreground ,fg-main))) `(gnus-summary-low-ancient ((,class :inherit italic :foreground ,fg-alt))) `(gnus-summary-low-read ((,class :inherit italic :foreground ,fg-alt))) `(gnus-summary-low-ticked ((,class :inherit italic :foreground ,red-refine-fg))) `(gnus-summary-low-undownloaded ((,class :inherit italic :foreground ,yellow-refine-fg))) `(gnus-summary-low-unread ((,class :inherit bold :foreground ,fg-special-cold))) `(gnus-summary-normal-ancient ((,class :foreground ,fg-special-calm))) `(gnus-summary-normal-read ((,class :inherit shadow))) `(gnus-summary-normal-ticked ((,class :foreground ,red-alt-other))) `(gnus-summary-normal-undownloaded ((,class :foreground ,yellow))) `(gnus-summary-normal-unread ((,class :foreground ,fg-main))) `(gnus-summary-selected ((,class :inherit modus-theme-subtle-blue))) ;;;;; golden-ratio-scroll-screen `(golden-ratio-scroll-highlight-line-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) ;;;;; helm `(helm-M-x-key ((,class :inherit bold :foreground ,magenta-alt-other))) `(helm-action ((,class :underline t))) `(helm-bookmark-addressbook ((,class :foreground ,green-alt))) `(helm-bookmark-directory ((,class :inherit bold :foreground ,blue))) `(helm-bookmark-file ((,class :foreground ,fg-main))) `(helm-bookmark-file-not-found ((,class :background ,bg-alt :foreground ,fg-alt))) `(helm-bookmark-gnus ((,class :foreground ,magenta))) `(helm-bookmark-info ((,class :foreground ,cyan-alt))) `(helm-bookmark-man ((,class :foreground ,yellow-alt))) `(helm-bookmark-w3m ((,class :foreground ,blue-alt))) `(helm-buffer-archive ((,class :inherit bold :foreground ,cyan))) `(helm-buffer-directory ((,class :inherit bold :foreground ,blue))) `(helm-buffer-file ((,class :foreground ,fg-main))) `(helm-buffer-modified ((,class :foreground ,yellow-alt))) `(helm-buffer-not-saved ((,class :foreground ,red-alt))) `(helm-buffer-process ((,class :foreground ,magenta))) `(helm-buffer-saved-out ((,class :inherit bold :background ,bg-alt :foreground ,red))) `(helm-buffer-size ((,class :inherit shadow))) `(helm-candidate-number ((,class :foreground ,cyan-active))) `(helm-candidate-number-suspended ((,class :foreground ,yellow-active))) `(helm-comint-prompts-buffer-name ((,class :foreground ,green-active))) `(helm-comint-prompts-promptidx ((,class :foreground ,cyan-active))) `(helm-delete-async-message ((,class :inherit bold :foreground ,magenta-active))) `(helm-eob-line ((,class :background ,bg-main :foreground ,fg-main))) `(helm-eshell-prompts-buffer-name ((,class :foreground ,green-active))) `(helm-eshell-prompts-promptidx ((,class :foreground ,cyan-active))) `(helm-etags-file ((,class :foreground ,fg-dim :underline t))) `(helm-ff-backup-file ((,class :inherit shadow))) `(helm-ff-denied ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-intense-red 'modus-theme-nuanced-red red)))) `(helm-ff-directory ((,class :inherit helm-buffer-directory))) `(helm-ff-dirs ((,class :inherit bold :foreground ,blue-alt-other))) `(helm-ff-dotted-directory ((,class :inherit bold :background ,bg-alt :foreground ,fg-alt))) `(helm-ff-dotted-symlink-directory ((,class :inherit (button helm-ff-dotted-directory)))) `(helm-ff-executable ((,class :foreground ,magenta-alt))) `(helm-ff-file ((,class :foreground ,fg-main))) `(helm-ff-file-extension ((,class :foreground ,fg-special-warm))) `(helm-ff-invalid-symlink ((,class :inherit button ,@(modus-themes--link-color red red-faint)))) `(helm-ff-pipe ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-magenta 'modus-theme-subtle-magenta 'modus-theme-nuanced-magenta magenta)))) `(helm-ff-prefix ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-yellow 'modus-theme-subtle-yellow 'modus-theme-nuanced-yellow yellow-alt-other)))) `(helm-ff-socket ((,class :foreground ,red-alt-other))) `(helm-ff-suid ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-refine-red 'modus-theme-nuanced-yellow red-alt)))) `(helm-ff-symlink ((,class :inherit button ,@(modus-themes--link-color cyan cyan-faint)))) `(helm-ff-truename ((,class :foreground ,blue-alt-other))) `(helm-fd-finish ((,class :foreground ,green-active))) `(helm-grep-cmd-line ((,class :foreground ,yellow-alt-other))) `(helm-grep-file ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-grep-finish ((,class :foreground ,green-active))) `(helm-grep-lineno ((,class :foreground ,fg-special-warm))) `(helm-grep-match ((,class :inherit modus-theme-special-calm))) `(helm-header ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-header-line-left-margin ((,class :inherit bold :foreground ,yellow-intense))) `(helm-history-deleted ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-red 'modus-theme-intense-red 'modus-theme-nuanced-red red 'bold)))) `(helm-history-remote ((,class :foreground ,red-alt-other))) `(helm-lisp-completion-info ((,class :foreground ,fg-special-warm))) `(helm-lisp-show-completion ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-yellow 'modus-theme-refine-yellow 'modus-theme-nuanced-yellow yellow 'bold)))) `(helm-locate-finish ((,class :foreground ,green-active))) `(helm-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-refine-cyan 'modus-theme-nuanced-cyan cyan 'bold)))) `(helm-match-item ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-neutral 'modus-theme-subtle-cyan 'modus-theme-nuanced-cyan cyan-alt-other)))) `(helm-minibuffer-prompt ((,class :inherit minibuffer-prompt))) `(helm-moccur-buffer ((,class :inherit button ,@(modus-themes--link-color cyan-alt-other cyan-alt-other-faint)))) `(helm-mode-prefix ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-intense-magenta 'modus-theme-nuanced-magenta magenta-alt 'bold)))) `(helm-non-file-buffer ((,class :inherit shadow))) `(helm-prefarg ((,class :foreground ,red-active))) `(helm-resume-need-update ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other)))) `(helm-selection ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-special-cold nil 'bold)))) `(helm-selection-line ((,class :inherit modus-theme-special-cold))) `(helm-separator ((,class :foreground ,fg-special-mild))) `(helm-time-zone-current ((,class :foreground ,green))) `(helm-time-zone-home ((,class :foreground ,magenta))) `(helm-source-header ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(helm-top-columns ((,class :inherit helm-header))) `(helm-ucs-char ((,class :foreground ,yellow-alt-other))) `(helm-visible-mark ((,class :inherit modus-theme-subtle-cyan))) ;;;;; helm-ls-git `(helm-ls-git-added-copied-face ((,class :foreground ,green-intense))) `(helm-ls-git-added-modified-face ((,class :foreground ,yellow-intense))) `(helm-ls-git-conflict-face ((,class :inherit bold :foreground ,red-intense))) `(helm-ls-git-deleted-and-staged-face ((,class :foreground ,red-nuanced-fg))) `(helm-ls-git-deleted-not-staged-face ((,class :foreground ,red))) `(helm-ls-git-modified-and-staged-face ((,class :foreground ,yellow-nuanced-fg))) `(helm-ls-git-modified-not-staged-face ((,class :foreground ,yellow))) `(helm-ls-git-renamed-modified-face ((,class :foreground ,magenta))) `(helm-ls-git-untracked-face ((,class :foreground ,fg-special-cold))) ;;;;; helm-switch-shell `(helm-switch-shell-new-shell-face ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other 'bold)))) ;;;;; helm-xref `(helm-xref-file-name ((,class :inherit bold :foreground ,fg-special-cold))) `(helm-xref-file-name ((,class :foreground ,fg-special-warm))) ;;;;; helpful `(helpful-heading ((,class :inherit modus-theme-heading-1))) ;;;;; highlight region or ad-hoc regexp `(hi-aquamarine ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) `(hi-black-b ((,class :inherit bold :background ,fg-main :foreground ,bg-main))) `(hi-black-hb ((,class :inherit bold :background ,fg-alt :foreground ,bg-main))) `(hi-blue ((,class :background ,blue-subtle-bg :foreground ,fg-main))) `(hi-blue-b ((,class :inherit (bold hi-blue)))) `(hi-green ((,class :background ,green-subtle-bg :foreground ,fg-main))) `(hi-green-b ((,class :inherit (bold hi-green)))) `(hi-pink ((,class :background ,magenta-subtle-bg :foreground ,fg-main))) `(hi-pink-b ((,class :inherit (bold hi-pink)))) `(hi-red-b ((,class :inherit bold :background ,red-intense-bg :foreground ,fg-main))) `(hi-salmon ((,class :background ,red-subtle-bg :foreground ,fg-main))) `(hi-yellow ((,class :background ,yellow-subtle-bg :foreground ,fg-main))) `(highlight ((,class :inherit modus-theme-subtle-blue))) `(highlight-changes ((,class :foreground ,yellow-alt-other))) `(highlight-changes-delete ((,class :foreground ,red-alt-other :underline t))) `(hl-line ((,class :inherit modus-theme-hl-line))) ;;;;; highlight-blocks `(highlight-blocks-depth-1-face ((,class :background ,bg-dim :foreground ,fg-main))) `(highlight-blocks-depth-2-face ((,class :background ,bg-alt :foreground ,fg-main))) `(highlight-blocks-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-main))) `(highlight-blocks-depth-4-face ((,class :background ,bg-special-calm :foreground ,fg-main))) `(highlight-blocks-depth-5-face ((,class :background ,bg-special-warm :foreground ,fg-main))) `(highlight-blocks-depth-6-face ((,class :background ,bg-special-mild :foreground ,fg-main))) `(highlight-blocks-depth-7-face ((,class :background ,bg-inactive :foreground ,fg-main))) `(highlight-blocks-depth-8-face ((,class :background ,bg-active :foreground ,fg-main))) `(highlight-blocks-depth-9-face ((,class :background ,cyan-subtle-bg :foreground ,fg-main))) ;;;;; highlight-defined `(highlight-defined-builtin-function-name-face ((,class :foreground ,magenta))) `(highlight-defined-face-name-face ((,class :foreground ,fg-main))) `(highlight-defined-function-name-face ((,class :foreground ,magenta))) `(highlight-defined-macro-name-face ((,class :foreground ,magenta-alt))) `(highlight-defined-special-form-name-face ((,class :foreground ,magenta-alt-other))) `(highlight-defined-variable-name-face ((,class :foreground ,cyan))) ;;;;; highlight-escape-sequences (`hes-mode') `(hes-escape-backslash-face ((,class :inherit bold :foreground ,fg-escape-char-construct))) `(hes-escape-sequence-face ((,class :inherit bold :foreground ,fg-escape-char-backslash))) ;;;;; highlight-indentation `(highlight-indentation-face ((,class :inherit modus-theme-hl-line))) `(highlight-indentation-current-column-face ((,class :background ,bg-active))) ;;;;; highlight-numbers `(highlight-numbers-number ((,class :foreground ,blue-alt-other))) ;;;;; highlight-symbol `(highlight-symbol-face ((,class :inherit modus-theme-special-mild))) ;;;;; highlight-thing `(highlight-thing ((,class :background ,bg-alt :foreground ,cyan))) ;;;;; hl-defined `(hdefd-functions ((,class :foreground ,blue))) `(hdefd-undefined ((,class :foreground ,red-alt))) `(hdefd-variables ((,class :foreground ,cyan-alt))) ;;;;; hl-fill-column `(hl-fill-column-face ((,class :background ,bg-active :foreground ,fg-active))) ;;;;; hl-todo `(hl-todo ((,class :inherit (bold modus-theme-slant) :foreground ,red-alt-other))) ;;;;; hydra `(hydra-face-amaranth ((,class :inherit bold :foreground ,yellow))) `(hydra-face-blue ((,class :inherit bold :foreground ,blue-alt))) `(hydra-face-pink ((,class :inherit bold :foreground ,magenta-alt))) `(hydra-face-red ((,class :inherit bold :foreground ,red))) `(hydra-face-teal ((,class :inherit bold :foreground ,cyan))) ;;;;; hyperlist `(hyperlist-condition ((,class :foreground ,green))) `(hyperlist-hashtag ((,class :foreground ,yellow))) `(hyperlist-operator ((,class :foreground ,blue-alt))) `(hyperlist-paren ((,class :foreground ,cyan-alt-other))) `(hyperlist-quote ((,class :foreground ,cyan-alt))) `(hyperlist-ref ((,class :foreground ,magenta-alt-other))) `(hyperlist-stars ((,class :inherit shadow))) `(hyperlist-tag ((,class :foreground ,red))) `(hyperlist-toplevel ((,class :inherit bold :foreground ,fg-main))) ;;;;; icomplete `(icomplete-first-match ((,class :inherit bold ,@(modus-themes--standard-completions magenta bg-alt bg-active fg-main)))) ;;;;; icomplete-vertical `(icomplete-vertical-separator ((,class :inherit shadow))) ;;;;; ido-mode `(ido-first-match ((,class :inherit bold ,@(modus-themes--standard-completions magenta bg-alt bg-active fg-main)))) `(ido-incomplete-regexp ((,class :inherit error))) `(ido-indicator ((,class :inherit modus-theme-subtle-yellow))) `(ido-only-match ((,class :inherit bold ,@(modus-themes--standard-completions green green-nuanced-bg green-intense-bg fg-main)))) `(ido-subdir ((,class :foreground ,blue))) `(ido-virtual ((,class :foreground ,fg-special-warm))) ;;;;; iedit `(iedit-occurrence ((,class :inherit modus-theme-refine-blue))) `(iedit-read-only-occurrence ((,class :inherit modus-theme-intense-yellow))) ;;;;; iflipb `(iflipb-current-buffer-face ((,class :inherit bold :foreground ,cyan-alt))) `(iflipb-other-buffer-face ((,class :inherit shadow))) ;;;;; imenu-list `(imenu-list-entry-face-0 ((,class :foreground ,cyan))) `(imenu-list-entry-face-1 ((,class :foreground ,blue))) `(imenu-list-entry-face-2 ((,class :foreground ,cyan-alt-other))) `(imenu-list-entry-face-3 ((,class :foreground ,blue-alt))) `(imenu-list-entry-subalist-face-0 ((,class :inherit bold :foreground ,magenta-alt-other :underline t))) `(imenu-list-entry-subalist-face-1 ((,class :inherit bold :foreground ,magenta :underline t))) `(imenu-list-entry-subalist-face-2 ((,class :inherit bold :foreground ,green-alt-other :underline t))) `(imenu-list-entry-subalist-face-3 ((,class :inherit bold :foreground ,red-alt-other :underline t))) ;;;;; indium `(indium-breakpoint-face ((,class :foreground ,red-active))) `(indium-frame-url-face ((,class :inherit button :foreground ,fg-alt))) `(indium-keyword-face ((,class :foreground ,magenta-alt-other))) `(indium-litable-face ((,class :inherit modus-theme-slant :foreground ,fg-special-warm))) `(indium-repl-error-face ((,class :inherit bold :foreground ,red))) `(indium-repl-prompt-face ((,class :foreground ,cyan-alt-other))) `(indium-repl-stdout-face ((,class :foreground ,fg-main))) ;;;;; info `(Info-quoted ((,class ,@(modus-themes--mixed-fonts) ; the capitalization is canonical :background ,bg-alt :foreground ,fg-special-calm))) `(info-header-node ((,class :inherit bold :foreground ,fg-alt))) `(info-header-xref ((,class :foreground ,blue-active))) `(info-index-match ((,class :inherit match))) `(info-menu-header ((,class :inherit modus-theme-heading-3))) `(info-menu-star ((,class :foreground ,red))) `(info-node ((,class :inherit bold))) `(info-title-1 ((,class :inherit modus-theme-heading-1))) `(info-title-2 ((,class :inherit modus-theme-heading-2))) `(info-title-3 ((,class :inherit modus-theme-heading-3))) `(info-title-4 ((,class :inherit modus-theme-heading-4))) ;;;;; info-colors `(info-colors-lisp-code-block ((,class :inherit fixed-pitch))) `(info-colors-ref-item-command ((,class :foreground ,magenta))) `(info-colors-ref-item-constant ((,class :inherit font-lock-constant-face))) `(info-colors-ref-item-function ((,class :inherit font-lock-function-name-face))) `(info-colors-ref-item-macro ((,class :inherit font-lock-keyword-face))) `(info-colors-ref-item-other ((,class :inherit font-lock-doc-face))) `(info-colors-ref-item-special-form ((,class :inherit font-lock-keyword-face))) `(info-colors-ref-item-syntax-class ((,class :inherit font-lock-builtin-face))) `(info-colors-ref-item-type ((,class :inherit font-lock-type-face))) `(info-colors-ref-item-user-option ((,class :inherit font-lock-variable-name-face))) `(info-colors-ref-item-variable ((,class :inherit font-lock-variable-name-face))) ;;;;; interaction-log `(ilog-buffer-face ((,class :foreground ,magenta-alt-other))) `(ilog-change-face ((,class :foreground ,magenta-alt))) `(ilog-echo-face ((,class :foreground ,yellow-alt-other))) `(ilog-load-face ((,class :foreground ,green))) `(ilog-message-face ((,class :inherit shadow))) `(ilog-non-change-face ((,class :foreground ,blue))) ;;;;; ioccur `(ioccur-cursor ((,class :foreground ,fg-main))) `(ioccur-invalid-regexp ((,class :foreground ,red))) `(ioccur-match-face ((,class :inherit modus-theme-special-calm))) `(ioccur-match-overlay-face ((,class :inherit modus-theme-special-cold :extend t))) `(ioccur-num-line-face ((,class :foreground ,fg-special-warm))) `(ioccur-overlay-face ((,class :inherit modus-theme-refine-blue :extend t))) `(ioccur-regexp-face ((,class :inherit (modus-theme-intense-magenta bold)))) `(ioccur-title-face ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) ;;;;; isearch, occur, and the like `(isearch ((,class :inherit (modus-theme-intense-green bold)))) `(isearch-fail ((,class :inherit modus-theme-refine-red))) `(isearch-group-1 ((,class :inherit modus-theme-intense-blue))) `(isearch-group-2 ((,class :inherit modus-theme-intense-magenta))) `(lazy-highlight ((,class :inherit modus-theme-refine-cyan))) `(match ((,class :inherit modus-theme-special-calm))) `(query-replace ((,class :inherit (modus-theme-intense-yellow bold)))) ;;;;; isl (isearch-light) `(isl-line ((,class :inherit modus-theme-subtle-green))) `(isl-match ((,class :inherit modus-theme-refine-cyan))) `(isl-number ((,class :inherit modus-theme-bold :foreground ,green-active))) `(isl-on ((,class :inherit (bold modus-theme-intense-green)))) `(isl-string ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; ivy `(ivy-action ((,class :inherit bold :foreground ,red-alt))) `(ivy-completions-annotations ((,class :inherit completions-annotations))) `(ivy-confirm-face ((,class :foreground ,cyan))) `(ivy-current-match ((,class ,@(modus-themes--extra-completions 'modus-theme-refine-cyan 'modus-theme-intense-cyan 'modus-theme-special-cold nil 'bold)))) `(ivy-cursor ((,class :background ,fg-main :foreground ,bg-main))) `(ivy-grep-info ((,class :foreground ,cyan-alt))) `(ivy-grep-line-number ((,class :foreground ,fg-special-warm))) `(ivy-highlight-face ((,class :foreground ,magenta))) `(ivy-match-required-face ((,class :inherit error))) `(ivy-minibuffer-match-face-1 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-neutral 'modus-theme-intense-neutral 'modus-theme-nuanced-cyan fg-alt)))) `(ivy-minibuffer-match-face-2 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-green 'modus-theme-refine-green 'modus-theme-nuanced-green green-alt-other 'bold)))) `(ivy-minibuffer-match-face-3 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt-other 'bold)))) `(ivy-minibuffer-match-face-4 ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other 'bold)))) `(ivy-minibuffer-match-highlight ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-intense-cyan 'modus-theme-nuanced-cyan cyan-alt-other 'bold)))) `(ivy-modified-buffer ((,class :inherit modus-theme-slant :foreground ,yellow))) `(ivy-modified-outside-buffer ((,class :inherit modus-theme-slant :foreground ,yellow-alt))) `(ivy-org ((,class :foreground ,cyan-alt-other))) `(ivy-prompt-match ((,class :inherit ivy-current-match))) `(ivy-remote ((,class :foreground ,magenta))) `(ivy-separator ((,class :inherit shadow))) `(ivy-subdir ((,class :foreground ,blue-alt-other))) `(ivy-virtual ((,class :foreground ,magenta-alt-other))) `(ivy-yanked-word ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt)))) ;;;;; ivy-posframe `(ivy-posframe ((,class :background ,bg-dim :foreground ,fg-main))) `(ivy-posframe-border ((,class :background ,fg-window-divider-inner))) `(ivy-posframe-cursor ((,class :background ,fg-main :foreground ,bg-main))) ;;;;; jira (org-jira) `(jiralib-comment-face ((,class :background ,bg-alt))) `(jiralib-comment-header-face ((,class :inherit bold))) `(jiralib-issue-info-face ((,class :inherit modus-theme-special-warm))) `(jiralib-issue-info-header-face ((,class :inherit (modus-theme-special-warm bold)))) `(jiralib-issue-summary-face ((,class :inherit bold))) `(jiralib-link-filter-face ((,class :underline t))) `(jiralib-link-issue-face ((,class :underline t))) `(jiralib-link-project-face ((,class :underline t))) ;;;;; journalctl-mode `(journalctl-error-face ((,class :inherit bold :foreground ,red))) `(journalctl-finished-face ((,class :inherit bold :foreground ,green))) `(journalctl-host-face ((,class :foreground ,blue))) `(journalctl-process-face ((,class :foreground ,cyan-alt-other))) `(journalctl-starting-face ((,class :foreground ,green))) `(journalctl-timestamp-face ((,class :foreground ,fg-special-cold))) `(journalctl-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; js2-mode `(js2-error ((,class :foreground ,red))) `(js2-external-variable ((,class :foreground ,cyan-alt-other))) `(js2-function-call ((,class :foreground ,magenta))) `(js2-function-param ((,class :foreground ,blue))) `(js2-instance-member ((,class :foreground ,magenta-alt-other))) `(js2-jsdoc-html-tag-delimiter ((,class :foreground ,fg-main))) `(js2-jsdoc-html-tag-name ((,class :foreground ,cyan))) `(js2-jsdoc-tag ((,class :foreground ,fg-special-calm))) `(js2-jsdoc-type ((,class :foreground ,fg-special-cold))) `(js2-jsdoc-value ((,class :foreground ,fg-special-warm))) `(js2-object-property ((,class :foreground ,fg-main))) `(js2-object-property-access ((,class :foreground ,fg-main))) `(js2-private-function-call ((,class :foreground ,green-alt-other))) `(js2-private-member ((,class :foreground ,fg-special-mild))) `(js2-warning ((,class :foreground ,yellow-alt :underline t))) ;;;;; julia `(julia-macro-face ((,class :inherit modus-theme-bold :foreground ,magenta))) `(julia-quoted-symbol-face ((,class :foreground ,blue-alt-other))) ;;;;; jupyter `(jupyter-eval-overlay ((,class :inherit bold :foreground ,blue))) `(jupyter-repl-input-prompt ((,class :foreground ,cyan-alt-other))) `(jupyter-repl-output-prompt ((,class :foreground ,magenta-alt-other))) `(jupyter-repl-traceback ((,class :inherit modus-theme-intense-red))) ;;;;; kaocha-runner `(kaocha-runner-error-face ((,class :foreground ,red))) `(kaocha-runner-success-face ((,class :foreground ,green))) `(kaocha-runner-warning-face ((,class :foreground ,yellow))) ;;;;; keycast `(keycast-command ((,class :inherit bold :foreground ,blue-active))) `(keycast-key ((,class ,@(modus-themes--mode-line-attrs bg-main blue-active bg-main blue-active blue-active blue-intense 'alt-style -3)))) ;;;;; line numbers (display-line-numbers-mode and global variant) `(line-number ((,class :inherit default ,@(modus-themes--line-numbers fg-alt bg-dim fg-unfocused)))) `(line-number-current-line ((,class :inherit (bold default) ,@(modus-themes--line-numbers fg-main bg-active blue-alt-other)))) `(line-number-major-tick ((,class :inherit (bold default) ,@(modus-themes--line-numbers yellow-nuanced-fg yellow-nuanced-bg red-alt)))) `(line-number-minor-tick ((,class :inherit (bold default) ,@(modus-themes--line-numbers fg-alt bg-inactive fg-inactive)))) ;;;;; lsp-mode `(lsp-face-highlight-read ((,class :inherit modus-theme-subtle-blue :underline t))) `(lsp-face-highlight-textual ((,class :inherit modus-theme-subtle-blue))) `(lsp-face-highlight-write ((,class :inherit (modus-theme-refine-blue bold)))) `(lsp-face-semhl-constant ((,class :foreground ,blue-alt-other))) `(lsp-face-semhl-deprecated ((,(append '((supports :underline (:style wave))) class) :foreground ,yellow :underline (:style wave)) (,class :foreground ,yellow :underline t))) `(lsp-face-semhl-enummember ((,class :foreground ,blue-alt-other))) `(lsp-face-semhl-field ((,class :foreground ,cyan-alt))) `(lsp-face-semhl-field-static ((,class :inherit modus-theme-slant :foreground ,cyan-alt))) `(lsp-face-semhl-function ((,class :foreground ,magenta))) `(lsp-face-semhl-method ((,class :foreground ,magenta))) `(lsp-face-semhl-namespace ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) `(lsp-face-semhl-preprocessor ((,class :foreground ,red-alt-other))) `(lsp-face-semhl-static-method ((,class :inherit modus-theme-slant :foreground ,magenta))) `(lsp-face-semhl-type-class ((,class :foreground ,magenta-alt))) `(lsp-face-semhl-type-enum ((,class :foreground ,magenta-alt))) `(lsp-face-semhl-type-primitive ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-type-template ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-type-typedef ((,class :inherit modus-theme-slant :foreground ,magenta-alt))) `(lsp-face-semhl-variable ((,class :foreground ,cyan))) `(lsp-face-semhl-variable-local ((,class :foreground ,cyan))) `(lsp-face-semhl-variable-parameter ((,class :foreground ,cyan-alt-other))) `(lsp-lens-face ((,class :height 0.8 :foreground ,fg-alt))) `(lsp-lens-mouse-face ((,class :height 0.8 :foreground ,blue-alt-other :underline t))) `(lsp-ui-doc-background ((,class :background ,bg-alt))) `(lsp-ui-doc-header ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-doc-url ((,class :inherit button))) `(lsp-ui-peek-filename ((,class :foreground ,fg-special-warm))) `(lsp-ui-peek-footer ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-peek-header ((,class :background ,bg-header :foreground ,fg-header))) `(lsp-ui-peek-highlight ((,class :inherit modus-theme-subtle-blue))) `(lsp-ui-peek-line-number ((,class :inherit shadow))) `(lsp-ui-peek-list ((,class :background ,bg-dim))) `(lsp-ui-peek-peek ((,class :background ,bg-alt))) `(lsp-ui-peek-selection ((,class :inherit modus-theme-subtle-cyan))) `(lsp-ui-sideline-code-action ((,class :foreground ,yellow))) `(lsp-ui-sideline-current-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-main))) `(lsp-ui-sideline-symbol ((,class :inherit bold :height 0.99 :box (:line-width -1 :style nil) :foreground ,fg-alt))) `(lsp-ui-sideline-symbol-info ((,class :inherit italic :height 0.99))) ;;;;; macrostep `(macrostep-compiler-macro-face ((,class :inherit italic))) `(macrostep-expansion-highlight-face ((,class :background ,blue-nuanced-bg))) `(macrostep-gensym-1 ((,class :inherit bold :foreground ,blue :box t))) `(macrostep-gensym-2 ((,class :inherit bold :foreground ,green :box t))) `(macrostep-gensym-3 ((,class :inherit bold :foreground ,yellow :box t))) `(macrostep-gensym-4 ((,class :inherit bold :foreground ,red :box t))) `(macrostep-gensym-5 ((,class :inherit bold :foreground ,magenta :box t))) `(macrostep-macro-face ((,class :inherit button :foreground ,green-alt))) ;;;;; magit `(magit-bisect-bad ((,class :foreground ,red-alt-other))) `(magit-bisect-good ((,class :foreground ,green-alt-other))) `(magit-bisect-skip ((,class :foreground ,yellow-alt-other))) `(magit-blame-date ((,class :foreground ,blue))) `(magit-blame-dimmed ((,class :inherit shadow))) `(magit-blame-hash ((,class :foreground ,fg-special-warm))) `(magit-blame-heading ((,class :background ,bg-alt))) `(magit-blame-highlight ((,class :inherit modus-theme-nuanced-cyan))) `(magit-blame-margin ((,class :inherit magit-blame-highlight))) `(magit-blame-name ((,class :foreground ,magenta-alt-other))) `(magit-blame-summary ((,class :foreground ,cyan-alt-other))) `(magit-branch-current ((,class :foreground ,blue-alt-other :box t))) `(magit-branch-local ((,class :foreground ,blue-alt))) `(magit-branch-remote ((,class :foreground ,magenta-alt))) `(magit-branch-remote-head ((,class :foreground ,magenta-alt-other :box t))) `(magit-branch-upstream ((,class :inherit italic))) `(magit-cherry-equivalent ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-cherry-unmatched ((,class :background ,bg-main :foreground ,cyan-intense))) ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces, though only for the standard actions, ;; not the highlighted ones. This is because Magit's interaction ;; model relies on highlighting the current diff hunk. `(magit-diff-added ((,class ,@(modus-themes--diff bg-main green bg-diff-added fg-diff-added green-nuanced-bg fg-diff-added bg-diff-added-deuteran fg-diff-added-deuteran)))) `(magit-diff-added-highlight ((,class :inherit modus-theme-diff-focus-added))) `(magit-diff-base ((,class ,@(modus-themes--diff bg-main yellow bg-diff-changed fg-diff-changed yellow-nuanced-bg fg-diff-changed)))) `(magit-diff-base-highlight ((,class :inherit modus-theme-diff-focus-changed))) `(magit-diff-context ((,class :foreground ,fg-unfocused))) `(magit-diff-context-highlight ((,class ,@(modus-themes--diff bg-dim fg-dim bg-inactive fg-inactive bg-dim fg-alt)))) `(magit-diff-file-heading ((,class :inherit bold :foreground ,fg-special-cold))) `(magit-diff-file-heading-highlight ((,class :inherit (modus-theme-special-cold bold)))) `(magit-diff-file-heading-selection ((,class :inherit modus-theme-refine-cyan))) ;; NOTE: here we break from the pattern of inheriting from the ;; modus-theme-diff-* faces. `(magit-diff-hunk-heading ((,class :inherit bold :background ,bg-active :foreground ,fg-inactive))) `(magit-diff-hunk-heading-highlight ((,class :inherit bold :background ,@(modus-themes--diff-deuteran bg-region bg-diff-heading) :foreground ,@(modus-themes--diff-deuteran fg-main fg-diff-heading)))) `(magit-diff-hunk-heading-selection ((,class :inherit modus-theme-refine-blue))) `(magit-diff-hunk-region ((,class :inherit bold))) `(magit-diff-lines-boundary ((,class :background ,fg-main))) `(magit-diff-lines-heading ((,class :inherit modus-theme-refine-magenta))) `(magit-diff-removed ((,class ,@(modus-themes--diff bg-main red bg-diff-removed fg-diff-removed red-nuanced-bg fg-diff-removed)))) `(magit-diff-removed-highlight ((,class :inherit modus-theme-diff-focus-removed))) `(magit-diffstat-added ((,class :foreground ,@(modus-themes--diff-deuteran blue green)))) `(magit-diffstat-removed ((,class :foreground ,red))) `(magit-dimmed ((,class :foreground ,fg-unfocused))) `(magit-filename ((,class :foreground ,fg-special-cold))) `(magit-hash ((,class :inherit shadow))) `(magit-head ((,class :inherit magit-branch-local))) `(magit-header-line ((,class :inherit bold :foreground ,magenta-active))) `(magit-header-line-key ((,class :inherit bold :foreground ,blue-active))) `(magit-header-line-log-select ((,class :inherit bold :foreground ,fg-main))) `(magit-keyword ((,class :foreground ,magenta))) `(magit-keyword-squash ((,class :inherit bold :foreground ,yellow-alt-other))) `(magit-log-author ((,class :foreground ,cyan))) `(magit-log-date ((,class :inherit shadow))) `(magit-log-graph ((,class :foreground ,fg-dim))) `(magit-mode-line-process ((,class :inherit bold :foreground ,blue-active))) `(magit-mode-line-process-error ((,class :inherit bold :foreground ,red-active))) `(magit-process-ng ((,class :inherit error))) `(magit-process-ok ((,class :inherit success))) `(magit-reflog-amend ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-reflog-checkout ((,class :background ,bg-main :foreground ,blue-intense))) `(magit-reflog-cherry-pick ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-commit ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-merge ((,class :background ,bg-main :foreground ,green-intense))) `(magit-reflog-other ((,class :background ,bg-main :foreground ,cyan-intense))) `(magit-reflog-rebase ((,class :background ,bg-main :foreground ,magenta-intense))) `(magit-reflog-remote ((,class :background ,bg-main :foreground ,cyan-intense))) `(magit-reflog-reset ((,class :background ,bg-main :foreground ,red-intense))) `(magit-refname ((,class :inherit shadow))) `(magit-refname-pullreq ((,class :inherit shadow))) `(magit-refname-stash ((,class :inherit shadow))) `(magit-refname-wip ((,class :inherit shadow))) `(magit-section ((,class :background ,bg-dim :foreground ,fg-main))) `(magit-section-heading ((,class :inherit bold :foreground ,cyan))) `(magit-section-heading-selection ((,class :inherit (modus-theme-refine-cyan bold)))) `(magit-section-highlight ((,class :background ,bg-alt))) `(magit-sequence-done ((,class :foreground ,green-alt))) `(magit-sequence-drop ((,class :foreground ,red-alt))) `(magit-sequence-exec ((,class :foreground ,magenta-alt))) `(magit-sequence-head ((,class :foreground ,cyan-alt))) `(magit-sequence-onto ((,class :inherit shadow))) `(magit-sequence-part ((,class :foreground ,yellow-alt))) `(magit-sequence-pick ((,class :foreground ,blue-alt))) `(magit-sequence-stop ((,class :foreground ,red))) `(magit-signature-bad ((,class :inherit bold :foreground ,red))) `(magit-signature-error ((,class :foreground ,red-alt))) `(magit-signature-expired ((,class :foreground ,yellow))) `(magit-signature-expired-key ((,class :foreground ,yellow))) `(magit-signature-good ((,class :foreground ,green))) `(magit-signature-revoked ((,class :foreground ,magenta))) `(magit-signature-untrusted ((,class :foreground ,cyan))) `(magit-tag ((,class :foreground ,yellow-alt-other))) ;;;;; magit-imerge `(magit-imerge-overriding-value ((,class :inherit bold :foreground ,red-alt))) ;;;;; make-mode (makefiles) `(makefile-makepp-perl ((,class :background ,cyan-nuanced-bg))) `(makefile-space ((,class :background ,magenta-nuanced-bg))) ;;;;; man `(Man-overstrike ((,class :inherit bold :foreground ,magenta))) `(Man-reverse ((,class :inherit modus-theme-subtle-magenta))) `(Man-underline ((,class :foreground ,cyan :underline t))) ;;;;; marginalia `(marginalia-archive ((,class :foreground ,green-nuanced-fg))) `(marginalia-date ((,class :foreground ,blue-nuanced-fg))) `(marginalia-char ((,class :foreground ,red-active))) `(marginalia-documentation ((,class :foreground ,fg-special-cold :inherit modus-theme-slant))) `(marginalia-file-modes ((,class :inherit shadow))) `(marginalia-file-name ((,class :foreground ,fg-special-mild))) `(marginalia-file-owner ((,class :foreground ,red-nuanced-fg))) `(marginalia-key ((,class :foreground ,magenta-active))) `(marginalia-mode ((,class :foreground ,cyan-active))) `(marginalia-modified ((,class :foreground ,yellow-active))) `(marginalia-number ((,class :foreground ,blue-active))) `(marginalia-size ((,class :foreground ,green-active))) `(marginalia-type ((,class :foreground ,fg-special-warm))) `(marginalia-variable ((,class :foreground ,yellow-nuanced-fg))) `(marginalia-version ((,class :foreground ,cyan-active))) ;;;;; markdown-mode `(markdown-blockquote-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(markdown-bold-face ((,class :inherit bold))) `(markdown-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-dim :extend t))) `(markdown-comment-face ((,class :inherit font-lock-comment-face))) `(markdown-footnote-marker-face ((,class :inherit bold :foreground ,cyan-alt))) `(markdown-footnote-text-face ((,class :inherit modus-theme-slant :foreground ,fg-main))) `(markdown-gfm-checkbox-face ((,class :foreground ,cyan-alt-other))) `(markdown-header-delimiter-face ((,class :inherit modus-theme-bold :foreground ,fg-dim))) `(markdown-header-face ((t nil))) `(markdown-header-face-1 ((,class :inherit modus-theme-heading-1))) `(markdown-header-face-2 ((,class :inherit modus-theme-heading-2))) `(markdown-header-face-3 ((,class :inherit modus-theme-heading-3))) `(markdown-header-face-4 ((,class :inherit modus-theme-heading-4))) `(markdown-header-face-5 ((,class :inherit modus-theme-heading-5))) `(markdown-header-face-6 ((,class :inherit modus-theme-heading-6))) `(markdown-header-rule-face ((,class :inherit bold :foreground ,fg-special-warm))) `(markdown-hr-face ((,class :inherit bold :foreground ,fg-special-warm))) `(markdown-html-attr-name-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,cyan))) `(markdown-html-attr-value-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,blue))) `(markdown-html-entity-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,cyan))) `(markdown-html-tag-delimiter-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-mild))) `(markdown-html-tag-name-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,magenta-alt))) `(markdown-inline-code-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-special-calm))) `(markdown-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markdown-language-info-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(markdown-language-keyword-face ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-alt))) `(markdown-line-break-face ((,class :inherit modus-theme-refine-cyan :underline t))) `(markdown-link-face ((,class :inherit button))) `(markdown-link-title-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(markdown-list-face ((,class :foreground ,fg-dim))) `(markdown-markup-face ((,class :inherit shadow))) `(markdown-math-face ((,class :foreground ,magenta-alt-other))) `(markdown-metadata-key-face ((,class :foreground ,cyan-alt-other))) `(markdown-metadata-value-face ((,class :foreground ,blue-alt))) `(markdown-missing-link-face ((,class :inherit bold :foreground ,yellow))) `(markdown-plain-url-face ((,class :inherit markdown-link-face))) `(markdown-pre-face ((,class :inherit markdown-code-face :foreground ,fg-special-mild))) `(markdown-reference-face ((,class :inherit markdown-markup-face))) `(markdown-strike-through-face ((,class :strike-through t))) `(markdown-table-face ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(markdown-url-face ((,class :foreground ,blue-alt))) ;;;;; markup-faces (`adoc-mode') `(markup-anchor-face ((,class :foreground ,fg-inactive))) `(markup-attribute-face ((,class :inherit italic :foreground ,fg-inactive))) `(markup-big-face ((,class :height 1.3 :foreground ,blue-nuanced-fg))) `(markup-bold-face ((,class :inherit bold :foreground ,red-nuanced-fg))) `(markup-code-face ((,class :inherit fixed-pitch :foreground ,magenta))) `(markup-command-face ((,class :foreground ,fg-inactive))) `(markup-comment-face ((,class :inherit font-lock-comment-face))) `(markup-complex-replacement-face ((,class :box (:line-width 2 :color nil :style released-button) :inherit modus-theme-refine-magenta))) `(markup-emphasis-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markup-error-face ((,class :inherit bold :foreground ,red))) `(markup-gen-face ((,class :foreground ,magenta-alt))) `(markup-internal-reference-face ((,class :inherit button :foreground ,fg-alt))) `(markup-italic-face ((,class :inherit italic :foreground ,fg-special-cold))) `(markup-list-face ((,class :inherit modus-theme-special-calm))) `(markup-meta-face ((,class :foreground ,fg-inactive))) `(markup-meta-hide-face ((,class :inherit shadow))) `(markup-passthrough-face ((,class :inherit fixed-pitch :foreground ,cyan))) `(markup-preprocessor-face ((,class :foreground ,red-alt-other))) `(markup-replacement-face ((,class :foreground ,yellow-alt-other))) `(markup-secondary-text-face ((,class :height 0.8 :foreground ,magenta-nuanced-fg))) `(markup-small-face ((,class :height 0.8 :foreground ,fg-main))) `(markup-strong-face ((,class :inherit bold :foreground ,red-nuanced-fg))) `(markup-subscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) `(markup-superscript-face ((,class :height 0.8 :foreground ,fg-special-cold))) `(markup-table-cell-face ((,class :inherit modus-theme-special-cold))) `(markup-table-face ((,class :inherit modus-theme-subtle-cyan))) `(markup-table-row-face ((,class :inherit modus-theme-subtle-cyan))) `(markup-title-0-face ((,class :height 3.0 :foreground ,blue-nuanced-fg))) `(markup-title-1-face ((,class :height 2.4 :foreground ,blue-nuanced-fg))) `(markup-title-2-face ((,class :height 1.8 :foreground ,blue-nuanced-fg))) `(markup-title-3-face ((,class :height 1.4 :foreground ,blue-nuanced-fg))) `(markup-title-4-face ((,class :height 1.2 :foreground ,blue-nuanced-fg))) `(markup-title-5-face ((,class :height 1.2 :foreground ,blue-nuanced-fg :underline t))) `(markup-value-face ((,class :foreground ,fg-inactive))) `(markup-verbatim-face ((,class :inherit modus-theme-special-mild))) ;;;;; mentor `(mentor-download-message ((,class :foreground ,fg-special-warm))) `(mentor-download-name ((,class :foreground ,fg-special-cold))) `(mentor-download-progress ((,class :foreground ,blue-alt-other))) `(mentor-download-size ((,class :foreground ,magenta-alt-other))) `(mentor-download-speed-down ((,class :foreground ,cyan-alt))) `(mentor-download-speed-up ((,class :foreground ,red-alt))) `(mentor-download-state ((,class :foreground ,yellow-alt))) `(mentor-highlight-face ((,class :inherit modus-theme-subtle-blue))) `(mentor-tracker-name ((,class :foreground ,magenta-alt))) ;;;;; messages `(message-cited-text-1 ((,class :foreground ,blue-faint))) `(message-cited-text-2 ((,class :foreground ,green-alt-other))) `(message-cited-text-3 ((,class :foreground ,red-alt-other))) `(message-cited-text-4 ((,class :foreground ,cyan))) `(message-header-cc ((,class :foreground ,blue-alt-other))) `(message-header-name ((,class :inherit bold :foreground ,cyan))) `(message-header-newsgroups ((,class :inherit message-header-other))) `(message-header-other ((,class :foreground ,fg-special-calm))) `(message-header-subject ((,class :inherit bold :foreground ,magenta-alt))) `(message-header-to ((,class :inherit bold :foreground ,magenta-alt-other))) `(message-header-xheader ((,class :foreground ,blue-alt))) `(message-mml ((,class :foreground ,yellow))) `(message-separator ((,class :inherit modus-theme-intense-neutral))) ;;;;; minibuffer-line `(minibuffer-line ((,class :foreground ,fg-main))) ;;;;; minimap `(minimap-active-region-background ((,class :background ,bg-active))) `(minimap-current-line-face ((,class :background ,cyan-intense-bg :foreground ,fg-main))) ;;;;; mmm-mode `(mmm-cleanup-submode-face ((,class :background ,yellow-nuanced-bg))) `(mmm-code-submode-face ((,class :background ,bg-alt))) `(mmm-comment-submode-face ((,class :background ,blue-nuanced-bg))) `(mmm-declaration-submode-face ((,class :background ,cyan-nuanced-bg))) `(mmm-default-submode-face ((,class :background ,bg-dim))) `(mmm-init-submode-face ((,class :background ,magenta-nuanced-bg))) `(mmm-output-submode-face ((,class :background ,red-nuanced-bg))) `(mmm-special-submode-face ((,class :background ,green-nuanced-bg))) ;;;;; modeline `(mode-line ((,class ,@(modus-themes--variable-pitch-ui) ,@(modus-themes--mode-line-attrs fg-active bg-active fg-dim bg-active fg-alt bg-active 'alt-style nil bg-main)))) `(mode-line-buffer-id ((,class :inherit bold))) `(mode-line-emphasis ((,class :inherit bold :foreground ,blue-active))) `(mode-line-highlight ((,class :inherit modus-theme-active-blue :box (:line-width -1 :style pressed-button)))) `(mode-line-inactive ((,class ,@(modus-themes--variable-pitch-ui) ,@(modus-themes--mode-line-attrs fg-inactive bg-inactive fg-alt bg-dim bg-region bg-active)))) ;;;;; mood-line `(mood-line-modified ((,class :foreground ,magenta-active))) `(mood-line-status-error ((,class :inherit bold :foreground ,red-active))) `(mood-line-status-info ((,class :foreground ,cyan-active))) `(mood-line-status-neutral ((,class :foreground ,blue-active))) `(mood-line-status-success ((,class :foreground ,green-active))) `(mood-line-status-warning ((,class :inherit bold :foreground ,yellow-active))) `(mood-line-unimportant ((,class :foreground ,fg-inactive))) ;;;;; mpdel `(mpdel-browser-directory-face ((,class :foreground ,blue))) `(mpdel-playlist-current-song-face ((,class :inherit bold :foreground ,blue-alt-other))) ;;;;; mu4e `(mu4e-attach-number-face ((,class :inherit bold :foreground ,fg-dim))) `(mu4e-cited-1-face ((,class :foreground ,blue-faint))) `(mu4e-cited-2-face ((,class :foreground ,green-alt-other))) `(mu4e-cited-3-face ((,class :foreground ,red-alt-other))) `(mu4e-cited-4-face ((,class :foreground ,cyan))) `(mu4e-cited-5-face ((,class :foreground ,yellow-alt))) `(mu4e-cited-6-face ((,class :foreground ,magenta))) `(mu4e-cited-7-face ((,class :foreground ,green-alt))) `(mu4e-compose-header-face ((,class :inherit mu4e-compose-separator-face))) `(mu4e-compose-separator-face ((,class :inherit modus-theme-intense-neutral))) `(mu4e-contact-face ((,class :inherit message-header-to))) `(mu4e-context-face ((,class :foreground ,blue-active))) `(mu4e-draft-face ((,class :foreground ,magenta-alt))) `(mu4e-flagged-face ((,class :foreground ,red-alt))) `(mu4e-footer-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(mu4e-forwarded-face ((,class :foreground ,magenta-alt-other))) `(mu4e-header-face ((,class :inherit shadow))) `(mu4e-header-highlight-face ((,class :inherit modus-theme-hl-line))) `(mu4e-header-key-face ((,class :inherit message-header-name))) `(mu4e-header-marks-face ((,class :inherit mu4e-special-header-value-face))) `(mu4e-header-title-face ((,class :foreground ,fg-special-mild))) `(mu4e-header-value-face ((,class :inherit message-header-other))) `(mu4e-highlight-face ((,class :inherit bold :foreground ,blue-alt-other))) `(mu4e-link-face ((,class :inherit button))) `(mu4e-modeline-face ((,class :foreground ,magenta-active))) `(mu4e-moved-face ((,class :inherit modus-theme-slant :foreground ,yellow))) `(mu4e-ok-face ((,class :inherit bold :foreground ,green))) `(mu4e-region-code ((,class :inherit modus-theme-special-calm))) `(mu4e-replied-face ((,class :foreground ,blue))) `(mu4e-special-header-value-face ((,class :inherit message-header-subject))) `(mu4e-system-face ((,class :inherit modus-theme-slant :foreground ,fg-mark-del))) `(mu4e-title-face ((,class :foreground ,fg-main))) `(mu4e-trashed-face ((,class :foreground ,red))) `(mu4e-unread-face ((,class :inherit bold))) `(mu4e-url-number-face ((,class :foreground ,fg-alt))) `(mu4e-view-body-face ((,class :foreground ,fg-main))) `(mu4e-warning-face ((,class :inherit warning))) ;;;;; mu4e-conversation `(mu4e-conversation-header ((,class :inherit modus-theme-special-cold))) `(mu4e-conversation-sender-1 ((,class :foreground ,fg-special-warm))) `(mu4e-conversation-sender-2 ((,class :foreground ,fg-special-cold))) `(mu4e-conversation-sender-3 ((,class :foreground ,fg-special-mild))) `(mu4e-conversation-sender-4 ((,class :inherit shadow))) `(mu4e-conversation-sender-5 ((,class :foreground ,yellow-refine-fg))) `(mu4e-conversation-sender-6 ((,class :foreground ,cyan-refine-fg))) `(mu4e-conversation-sender-7 ((,class :foreground ,green-refine-fg))) `(mu4e-conversation-sender-8 ((,class :foreground ,blue-refine-fg))) `(mu4e-conversation-sender-me ((,class :foreground ,fg-main))) `(mu4e-conversation-unread ((,class :inherit bold))) ;;;;; multiple-cursors `(mc/cursor-bar-face ((,class :height 1 :background ,fg-main))) `(mc/cursor-face ((,class :inverse-video t))) `(mc/region-face ((,class :inherit region))) ;;;;; neotree `(neo-banner-face ((,class :foreground ,magenta))) `(neo-button-face ((,class :inherit button))) `(neo-dir-link-face ((,class :inherit bold :foreground ,blue))) `(neo-expand-btn-face ((,class :foreground ,cyan))) `(neo-file-link-face ((,class :foreground ,fg-main))) `(neo-header-face ((,class :inherit bold :foreground ,fg-main))) `(neo-root-dir-face ((,class :inherit bold :foreground ,cyan-alt))) `(neo-vc-added-face ((,class :foreground ,green))) `(neo-vc-conflict-face ((,class :inherit bold :foreground ,red))) `(neo-vc-default-face ((,class :foreground ,fg-main))) `(neo-vc-edited-face ((,class :foreground ,yellow))) `(neo-vc-ignored-face ((,class :foreground ,fg-inactive))) `(neo-vc-missing-face ((,class :foreground ,red-alt))) `(neo-vc-needs-merge-face ((,class :foreground ,magenta-alt))) `(neo-vc-needs-update-face ((,class :underline t))) `(neo-vc-removed-face ((,class :strike-through t))) `(neo-vc-unlocked-changes-face ((,class :inherit modus-theme-refine-blue))) `(neo-vc-up-to-date-face ((,class :inherit shadow))) `(neo-vc-user-face ((,class :foreground ,magenta))) ;;;;; no-emoji `(no-emoji ((,class :foreground ,cyan))) ;;;;; notmuch `(notmuch-crypto-decryption ((,class :inherit modus-theme-refine-magenta))) `(notmuch-crypto-part-header ((,class :foreground ,magenta-alt-other))) `(notmuch-crypto-signature-bad ((,class :inherit modus-theme-intense-red))) `(notmuch-crypto-signature-good ((,class :inherit modus-theme-refine-green))) `(notmuch-crypto-signature-good-key ((,class :inherit modus-theme-refine-yellow))) `(notmuch-crypto-signature-unknown ((,class :inherit modus-theme-refine-red))) `(notmuch-hello-logo-background ((,class :background "gray50"))) `(notmuch-message-summary-face ((,class :inherit modus-theme-nuanced-cyan))) `(notmuch-search-count ((,class :inherit shadow))) `(notmuch-search-date ((,class :foreground ,cyan))) `(notmuch-search-flagged-face ((,class :foreground ,red-alt))) `(notmuch-search-matching-authors ((,class :foreground ,fg-main))) `(notmuch-search-non-matching-authors ((,class :inherit shadow))) `(notmuch-search-subject ((,class :foreground ,fg-dim))) `(notmuch-search-unread-face ((,class :inherit bold))) `(notmuch-tag-added ((,(append '((supports :underline (:style wave))) class) :underline (:color ,green :style wave)) (,class :foreground ,green :underline t))) `(notmuch-tag-deleted ((,(append '((supports :underline (:style wave))) class) :underline (:color ,red :style wave)) (,class :foreground ,red :underline t))) `(notmuch-tag-face ((,class :inherit bold :foreground ,blue-alt))) `(notmuch-tag-flagged ((,class :foreground ,red-alt))) `(notmuch-tag-unread ((,class :foreground ,magenta-alt))) `(notmuch-tree-match-author-face ((,class :foreground ,fg-special-cold))) `(notmuch-tree-match-date-face ((,class :inherit notmuch-search-date))) `(notmuch-tree-match-face ((,class :foreground ,fg-main))) `(notmuch-tree-match-tag-face ((,class :inherit bold :foreground ,blue-alt))) `(notmuch-tree-no-match-face ((,class :inherit shadow))) `(notmuch-tree-no-match-date-face ((,class :inherit shadow))) `(notmuch-wash-cited-text ((,class :foreground ,cyan))) `(notmuch-wash-toggle-button ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; num3-mode `(num3-face-even ((,class :inherit bold :background ,bg-alt))) ;;;;; nxml-mode `(nxml-attribute-colon ((,class :foreground ,fg-main))) `(nxml-attribute-local-name ((,class :inherit font-lock-variable-name-face))) `(nxml-attribute-prefix ((,class :inherit font-lock-type-face))) `(nxml-attribute-value ((,class :inherit font-lock-constant-face))) `(nxml-cdata-section-CDATA ((,class :inherit error))) `(nxml-cdata-section-delimiter ((,class :inherit error))) `(nxml-char-ref-delimiter ((,class :foreground ,fg-special-mild))) `(nxml-char-ref-number ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(nxml-delimited-data ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(nxml-delimiter ((,class :foreground ,fg-dim))) `(nxml-element-colon ((,class :foreground ,fg-main))) `(nxml-element-local-name ((,class :inherit font-lock-function-name-face))) `(nxml-element-prefix ((,class :inherit font-lock-builtin-face))) `(nxml-entity-ref-delimiter ((,class :foreground ,fg-special-mild))) `(nxml-entity-ref-name ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(nxml-glyph ((,class :inherit modus-theme-intense-neutral))) `(nxml-hash ((,class :inherit (bold font-lock-string-face)))) `(nxml-heading ((,class :inherit bold))) `(nxml-name ((,class :inherit font-lock-builtin-face))) `(nxml-namespace-attribute-colon ((,class :foreground ,fg-main))) `(nxml-namespace-attribute-prefix ((,class :inherit font-lock-variable-name-face))) `(nxml-processing-instruction-target ((,class :inherit font-lock-keyword-face))) `(nxml-prolog-keyword ((,class :inherit font-lock-keyword-face))) `(nxml-ref ((,class :inherit modus-theme-bold :foreground ,fg-special-mild))) `(rng-error ((,class :inherit error))) ;;;;; objed `(objed-hl ((,class :background ,(if modus-themes-intense-hl-line bg-hl-alt-intense bg-hl-alt)))) `(objed-mark ((,class :background ,bg-active))) `(objed-mode-line ((,class :foreground ,cyan-active))) ;;;;; orderless `(orderless-match-face-0 ((,class :inherit bold ,@(modus-themes--standard-completions blue-alt-other blue-nuanced-bg blue-refine-bg blue-refine-fg)))) `(orderless-match-face-1 ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(orderless-match-face-2 ((,class :inherit bold ,@(modus-themes--standard-completions green green-nuanced-bg green-refine-bg green-refine-fg)))) `(orderless-match-face-3 ((,class :inherit bold ,@(modus-themes--standard-completions yellow yellow-nuanced-bg yellow-refine-bg yellow-refine-fg)))) ;;;;; org `(org-agenda-calendar-event ((,class :foreground ,fg-main))) `(org-agenda-calendar-sexp ((,class :foreground ,cyan-alt))) `(org-agenda-clocking ((,class :inherit modus-theme-special-cold :extend t))) `(org-agenda-column-dateline ((,class :background ,bg-alt))) `(org-agenda-current-time ((,class :inherit bold :foreground ,blue-alt-other))) `(org-agenda-date ((,class :foreground ,cyan))) `(org-agenda-date-today ((,class :inherit bold :foreground ,fg-main :underline t))) `(org-agenda-date-weekend ((,class :foreground ,cyan-alt-other))) `(org-agenda-diary ((,class :foreground ,fg-main))) `(org-agenda-dimmed-todo-face ((,class :inherit bold :foreground ,fg-alt))) `(org-agenda-done ((,class :foreground ,green-alt))) `(org-agenda-filter-category ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-effort ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-regexp ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-filter-tags ((,class :inherit bold :foreground ,magenta-active))) `(org-agenda-restriction-lock ((,class :background ,bg-dim :foreground ,fg-dim))) `(org-agenda-structure ((,class ,@(modus-themes--scale modus-themes-scale-5) :foreground ,blue-alt))) `(org-archived ((,class :background ,bg-alt :foreground ,fg-alt))) `(org-block ((,class ,@(modus-themes--mixed-fonts) ,@(modus-themes--org-block bg-dim) :foreground ,fg-main))) `(org-block-begin-line ((,class ,@(modus-themes--mixed-fonts) ,@(modus-themes--org-block-delim bg-dim fg-special-cold bg-alt fg-special-mild)))) `(org-block-end-line ((,class :inherit org-block-begin-line))) `(org-checkbox ((,class :box (:line-width 1 :color ,bg-active) :background ,bg-inactive :foreground ,fg-active))) `(org-checkbox-statistics-done ((,class :inherit org-done))) `(org-checkbox-statistics-todo ((,class :inherit org-todo))) `(org-clock-overlay ((,class :inherit modus-theme-special-cold))) `(org-code ((,class ,@(modus-themes--mixed-fonts) :background ,red-nuanced-bg :foreground ,magenta))) `(org-column ((,class :background ,bg-alt))) `(org-column-title ((,class :inherit bold :underline t :background ,bg-alt))) `(org-date ((,class :inherit ,(if modus-themes-no-mixed-fonts 'button '(button fixed-pitch)) ,@(modus-themes--link-color cyan cyan-faint)))) `(org-date-selected ((,class :inherit bold :foreground ,blue-alt :inverse-video t))) `(org-dispatcher-highlight ((,class :inherit (bold modus-theme-mark-alt)))) `(org-document-info ((,class :foreground ,fg-special-cold))) `(org-document-info-keyword ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-document-title ((,class :inherit (bold modus-theme-variable-pitch) :foreground ,fg-special-cold ,@(modus-themes--scale modus-themes-scale-5)))) `(org-done ((,class :foreground ,green))) `(org-drawer ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-ellipsis (())) ; inherits from the heading's color `(org-footnote ((,class :inherit button ,@(modus-themes--link-color blue-alt blue-alt-faint)))) `(org-formula ((,class ,@(modus-themes--mixed-fonts) :foreground ,red-alt))) `(org-habit-alert-face ((,class ,@(modus-themes--org-habit yellow-graph-0-bg yellow-graph-0-bg yellow-graph-1-bg)))) `(org-habit-alert-future-face ((,class ,@(modus-themes--org-habit yellow-graph-1-bg yellow-graph-0-bg yellow-graph-1-bg)))) `(org-habit-clear-face ((,class ,@(modus-themes--org-habit blue-graph-0-bg green-graph-1-bg blue-graph-1-bg)))) `(org-habit-clear-future-face ((,class ,@(modus-themes--org-habit blue-graph-1-bg green-graph-1-bg blue-graph-1-bg)))) `(org-habit-overdue-face ((,class ,@(modus-themes--org-habit red-graph-0-bg red-graph-0-bg red-graph-1-bg)))) `(org-habit-overdue-future-face ((,class ,@(modus-themes--org-habit red-graph-1-bg red-graph-0-bg red-graph-1-bg)))) `(org-habit-ready-face ((,class ,@(modus-themes--org-habit green-graph-0-bg green-graph-0-bg green-graph-1-bg)))) `(org-habit-ready-future-face ((,class ,@(modus-themes--org-habit green-graph-1-bg green-graph-0-bg green-graph-1-bg)))) `(org-headline-done ((,class :inherit modus-theme-variable-pitch :foreground ,green-nuanced-fg))) `(org-headline-todo ((,class :inherit modus-theme-variable-pitch :foreground ,red-nuanced-fg))) `(org-hide ((,class :foreground ,bg-main))) `(org-indent ((,class :inherit (fixed-pitch org-hide)))) `(org-latex-and-related ((,class :foreground ,magenta-refine-fg))) `(org-level-1 ((,class :inherit modus-theme-heading-1))) `(org-level-2 ((,class :inherit modus-theme-heading-2))) `(org-level-3 ((,class :inherit modus-theme-heading-3))) `(org-level-4 ((,class :inherit modus-theme-heading-4))) `(org-level-5 ((,class :inherit modus-theme-heading-5))) `(org-level-6 ((,class :inherit modus-theme-heading-6))) `(org-level-7 ((,class :inherit modus-theme-heading-7))) `(org-level-8 ((,class :inherit modus-theme-heading-8))) `(org-link ((,class :inherit button))) `(org-list-dt ((,class :inherit bold))) `(org-macro ((,class ,@(modus-themes--mixed-fonts) :background ,blue-nuanced-bg :foreground ,magenta-alt-other))) `(org-meta-line ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-mode-line-clock ((,class :foreground ,fg-main))) `(org-mode-line-clock-overrun ((,class :inherit modus-theme-active-red))) `(org-priority ((,class :foreground ,magenta))) `(org-property-value ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(org-quote ((,class :inherit modus-theme-slant ,@(modus-themes--org-block bg-dim) :foreground ,fg-special-cold))) `(org-scheduled ((,class :foreground ,magenta-alt))) `(org-scheduled-previously ((,class :foreground ,yellow-alt-other))) `(org-scheduled-today ((,class :foreground ,magenta-alt-other))) `(org-sexp-date ((,class :inherit org-date))) `(org-special-keyword ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-alt))) `(org-table ((,class ,@(modus-themes--mixed-fonts) :foreground ,fg-special-cold))) `(org-table-header ((,class :inherit (fixed-pitch modus-theme-intense-neutral)))) `(org-tag ((,class :foreground ,magenta-nuanced-fg))) `(org-tag-group ((,class :inherit bold :foreground ,cyan-nuanced-fg))) `(org-target ((,class :underline t))) `(org-time-grid ((,class :foreground ,fg-unfocused))) `(org-todo ((,class :foreground ,red))) `(org-upcoming-deadline ((,class :foreground ,red-alt-other))) `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced-fg))) `(org-verbatim ((,class ,@(modus-themes--mixed-fonts) :background ,bg-alt :foreground ,fg-special-calm))) `(org-verse ((,class :inherit org-quote))) `(org-warning ((,class :inherit bold :foreground ,red-alt-other))) ;;;;; org-journal `(org-journal-calendar-entry-face ((,class :inherit modus-theme-slant :foreground ,yellow-alt-other))) `(org-journal-calendar-scheduled-face ((,class :inherit modus-theme-slant :foreground ,red-alt-other))) `(org-journal-highlight ((,class :foreground ,magenta-alt))) ;;;;; org-noter `(org-noter-no-notes-exist-face ((,class :inherit bold :foreground ,red-active))) `(org-noter-notes-exist-face ((,class :inherit bold :foreground ,green-active))) ;;;;; org-pomodoro `(org-pomodoro-mode-line ((,class :foreground ,red-active))) `(org-pomodoro-mode-line-break ((,class :foreground ,cyan-active))) `(org-pomodoro-mode-line-overtime ((,class :inherit bold :foreground ,red-active))) ;;;;; org-recur `(org-recur ((,class :foreground ,magenta-active))) ;;;;; org-roam `(org-roam-link ((,class :inherit button ,@(modus-themes--link-color green green-faint)))) `(org-roam-link-current ((,class :inherit button ,@(modus-themes--link-color green-alt green-alt-faint)))) `(org-roam-link-invalid ((,class :inherit button ,@(modus-themes--link-color red red-faint)))) `(org-roam-link-shielded ((,class :inherit button ,@(modus-themes--link-color yellow yellow-faint)))) `(org-roam-tag ((,class :inherit italic :foreground ,fg-alt))) ;;;;; org-superstar `(org-superstar-item ((,class :foreground ,fg-main))) `(org-superstar-leading ((,class :foreground ,fg-whitespace))) ;;;;; org-table-sticky-header `(org-table-sticky-header-face ((,class :inherit modus-theme-intense-neutral))) ;;;;; org-tree-slide `(org-tree-slide-header-overlay-face ((,class :inherit (bold modus-theme-variable-pitch) :background ,bg-main :foreground ,fg-special-cold :overline nil ,@(modus-themes--scale modus-themes-scale-5)))) ;;;;; org-treescope `(org-treescope-faces--markerinternal-midday ((,class :inherit modus-theme-intense-blue))) `(org-treescope-faces--markerinternal-range ((,class :inherit modus-theme-special-mild))) ;;;;; origami `(origami-fold-header-face ((,class :background ,bg-dim :foreground ,fg-dim :box t))) `(origami-fold-replacement-face ((,class :background ,bg-alt :foreground ,fg-alt))) ;;;;; outline-mode `(outline-1 ((,class :inherit modus-theme-heading-1))) `(outline-2 ((,class :inherit modus-theme-heading-2))) `(outline-3 ((,class :inherit modus-theme-heading-3))) `(outline-4 ((,class :inherit modus-theme-heading-4))) `(outline-5 ((,class :inherit modus-theme-heading-5))) `(outline-6 ((,class :inherit modus-theme-heading-6))) `(outline-7 ((,class :inherit modus-theme-heading-7))) `(outline-8 ((,class :inherit modus-theme-heading-8))) ;;;;; outline-minor-faces `(outline-minor-0 ((,class :background ,bg-alt))) ;;;;; package (M-x list-packages) `(package-description ((,class :foreground ,fg-special-cold))) `(package-help-section-name ((,class :inherit bold :foreground ,magenta-alt-other))) `(package-name ((,class :inherit button))) `(package-status-avail-obso ((,class :inherit bold :foreground ,red))) `(package-status-available ((,class :foreground ,fg-special-mild))) `(package-status-built-in ((,class :foreground ,magenta))) `(package-status-dependency ((,class :foreground ,magenta-alt-other))) `(package-status-disabled ((,class :inherit modus-theme-subtle-red))) `(package-status-external ((,class :foreground ,cyan-alt-other))) `(package-status-held ((,class :foreground ,yellow-alt))) `(package-status-incompat ((,class :inherit bold :foreground ,yellow))) `(package-status-installed ((,class :foreground ,fg-special-warm))) `(package-status-new ((,class :inherit bold :foreground ,green))) `(package-status-unsigned ((,class :inherit bold :foreground ,red-alt))) ;;;;; page-break-lines `(page-break-lines ((,class :inherit default :foreground ,fg-window-divider-outer))) ;;;;; paradox `(paradox-archive-face ((,class :foreground ,fg-special-mild))) `(paradox-comment-face ((,class :inherit font-lock-comment-face))) `(paradox-commit-tag-face ((,class :inherit modus-theme-refine-magenta :box t))) `(paradox-description-face ((,class :foreground ,fg-special-cold))) `(paradox-description-face-multiline ((,class :foreground ,fg-special-cold))) `(paradox-download-face ((,class :inherit modus-theme-bold :foreground ,blue-alt-other))) `(paradox-highlight-face ((,class :inherit modus-theme-bold :foreground ,cyan-alt-other))) `(paradox-homepage-button-face ((,class :foreground ,magenta-alt-other :underline t))) `(paradox-mode-line-face ((,class :inherit bold :foreground ,cyan-active))) `(paradox-name-face ((,class :foreground ,blue :underline t))) `(paradox-star-face ((,class :foreground ,magenta))) `(paradox-starred-face ((,class :foreground ,magenta-alt))) ;;;;; paren-face `(parenthesis ((,class :foreground ,fg-unfocused))) ;;;;; parrot `(parrot-rotate-rotation-highlight-face ((,class :inherit modus-theme-refine-magenta))) ;;;;; pass `(pass-mode-directory-face ((,class :inherit bold :foreground ,fg-special-cold))) `(pass-mode-entry-face ((,class :background ,bg-main :foreground ,fg-main))) `(pass-mode-header-face ((,class :foreground ,fg-special-warm))) ;;;;; pdf-tools `(pdf-links-read-link ((,class :background ,fg-main :foreground ,magenta-intense-bg :inherit bold))) ; Foreground is background and vice versa `(pdf-occur-document-face ((,class :inherit shadow))) `(pdf-occur-page-face ((,class :inherit shadow))) ;;;;; persp-mode `(persp-face-lighter-buffer-not-in-persp ((,class :inherit modus-theme-intense-red))) `(persp-face-lighter-default ((,class :inherit bold :foreground ,blue-active))) `(persp-face-lighter-nil-persp ((,class :inherit bold :foreground ,fg-active))) ;;;;; perspective `(persp-selected-face ((,class :inherit bold :foreground ,blue-active))) ;;;;; phi-grep `(phi-grep-heading-face ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(phi-grep-line-number-face ((,class :foreground ,fg-special-warm))) `(phi-grep-match-face ((,class :inherit modus-theme-special-calm))) `(phi-grep-modified-face ((,class :inherit modus-theme-refine-yellow))) `(phi-grep-overlay-face ((,class :inherit modus-theme-refine-blue))) ;;;;; phi-search `(phi-replace-preview-face ((,class :inherit modus-theme-intense-magenta))) `(phi-search-failpart-face ((,class :inherit modus-theme-refine-red))) `(phi-search-match-face ((,class :inherit modus-theme-refine-cyan))) `(phi-search-selection-face ((,class :inherit (modus-theme-intense-green bold)))) ;;;;; pkgbuild-mode `(pkgbuild-error-face ((,class :inherit modus-theme-lang-error))) ;;;;; pomidor `(pomidor-break-face ((,class :foreground ,blue-alt-other))) `(pomidor-overwork-face ((,class :foreground ,red-alt-other))) `(pomidor-skip-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(pomidor-work-face ((,class :foreground ,green-alt-other))) ;;;;; popup `(popup-face ((,class :background ,bg-alt :foreground ,fg-main))) `(popup-isearch-match ((,class :inherit (modus-theme-refine-cyan bold)))) `(popup-menu-mouse-face ((,class :inherit modus-theme-intense-blue))) `(popup-menu-selection-face ((,class :inherit (modus-theme-subtle-cyan bold)))) `(popup-scroll-bar-background-face ((,class :background ,bg-active))) `(popup-scroll-bar-foreground-face ((,class :foreground ,fg-active))) `(popup-summary-face ((,class :background ,bg-active :foreground ,fg-inactive))) `(popup-tip-face ((,class :inherit modus-theme-refine-yellow))) ;;;;; powerline `(powerline-active0 ((,class :background ,bg-main :foreground ,blue-faint :inverse-video t))) `(powerline-active1 ((,class :background ,blue-nuanced-bg :foreground ,blue-nuanced-fg))) `(powerline-active2 ((,class :background ,bg-active :foreground ,fg-active))) `(powerline-inactive0 ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(powerline-inactive1 ((,class :background ,bg-dim :foreground ,fg-inactive))) `(powerline-inactive2 ((,class :background ,bg-inactive :foreground ,fg-inactive))) ;;;;; powerline-evil `(powerline-evil-base-face ((,class :background ,fg-main :foreground ,bg-main))) `(powerline-evil-emacs-face ((,class :inherit modus-theme-active-magenta))) `(powerline-evil-insert-face ((,class :inherit modus-theme-active-green))) `(powerline-evil-motion-face ((,class :inherit modus-theme-active-blue))) `(powerline-evil-normal-face ((,class :background ,fg-alt :foreground ,bg-main))) `(powerline-evil-operator-face ((,class :inherit modus-theme-active-yellow))) `(powerline-evil-replace-face ((,class :inherit modus-theme-active-red))) `(powerline-evil-visual-face ((,class :inherit modus-theme-active-cyan))) ;;;;; proced `(proced-mark ((,class :inherit modus-theme-mark-symbol))) `(proced-marked ((,class :inherit modus-theme-mark-alt))) `(proced-sort-header ((,class :inherit bold :foreground ,fg-special-calm :underline t))) ;;;;; prodigy `(prodigy-green-face ((,class :foreground ,green))) `(prodigy-red-face ((,class :foreground ,red))) `(prodigy-yellow-face ((,class :foreground ,yellow))) ;;;;; quick-peek `(quick-peek-background-face ((,class :background ,bg-alt))) `(quick-peek-border-face ((,class :background ,fg-window-divider-inner :height 1))) `(quick-peek-padding-face ((,class :background ,bg-alt :height 0.15))) ;;;;; racket-mode `(racket-debug-break-face ((,class :inherit modus-theme-intense-red))) `(racket-debug-locals-face ((,class :box (:line-width -1 :color nil) :foreground ,green-alt-other))) `(racket-debug-result-face ((,class :inherit bold :box (:line-width -1 :color nil) :foreground ,green))) `(racket-here-string-face ((,class :foreground ,blue-alt))) `(racket-keyword-argument-face ((,class :foreground ,red-alt))) `(racket-logger-config-face ((,class :inherit modus-theme-slant :foreground ,fg-alt))) `(racket-logger-debug-face ((,class :foreground ,blue-alt-other))) `(racket-logger-info-face ((,class :foreground ,fg-lang-note))) `(racket-logger-topic-face ((,class :inherit modus-theme-slant :foreground ,magenta))) `(racket-selfeval-face ((,class :foreground ,green-alt))) `(racket-xp-error-face ((,class :inherit modus-theme-lang-error))) ;;;;; rainbow-blocks `(rainbow-blocks-depth-1-face ((,class :foreground ,magenta-alt-other))) `(rainbow-blocks-depth-2-face ((,class :foreground ,blue))) `(rainbow-blocks-depth-3-face ((,class :foreground ,magenta-alt))) `(rainbow-blocks-depth-4-face ((,class :foreground ,green))) `(rainbow-blocks-depth-5-face ((,class :foreground ,magenta))) `(rainbow-blocks-depth-6-face ((,class :foreground ,cyan))) `(rainbow-blocks-depth-7-face ((,class :foreground ,yellow))) `(rainbow-blocks-depth-8-face ((,class :foreground ,cyan-alt))) `(rainbow-blocks-depth-9-face ((,class :foreground ,red-alt))) `(rainbow-blocks-unmatched-face ((,class :foreground ,red))) ;;;;; rainbow-identifiers `(rainbow-identifiers-identifier-1 ((,class :foreground ,green-alt-other))) `(rainbow-identifiers-identifier-2 ((,class :foreground ,magenta-alt-other))) `(rainbow-identifiers-identifier-3 ((,class :foreground ,cyan-alt-other))) `(rainbow-identifiers-identifier-4 ((,class :foreground ,yellow-alt-other))) `(rainbow-identifiers-identifier-5 ((,class :foreground ,blue-alt-other))) `(rainbow-identifiers-identifier-6 ((,class :foreground ,green-alt))) `(rainbow-identifiers-identifier-7 ((,class :foreground ,magenta-alt))) `(rainbow-identifiers-identifier-8 ((,class :foreground ,cyan-alt))) `(rainbow-identifiers-identifier-9 ((,class :foreground ,yellow-alt))) `(rainbow-identifiers-identifier-10 ((,class :foreground ,green))) `(rainbow-identifiers-identifier-11 ((,class :foreground ,magenta))) `(rainbow-identifiers-identifier-12 ((,class :foreground ,cyan))) `(rainbow-identifiers-identifier-13 ((,class :foreground ,yellow))) `(rainbow-identifiers-identifier-14 ((,class :foreground ,blue-alt))) `(rainbow-identifiers-identifier-15 ((,class :foreground ,red-alt))) ;;;;; rainbow-delimiters `(rainbow-delimiters-base-error-face ((,class :background ,red-subtle-bg :foreground ,fg-main))) `(rainbow-delimiters-base-face ((,class :foreground ,fg-main))) `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg-main))) `(rainbow-delimiters-depth-2-face ((,class :foreground ,magenta-intense))) `(rainbow-delimiters-depth-3-face ((,class :foreground ,cyan-intense))) `(rainbow-delimiters-depth-4-face ((,class :foreground ,orange-intense))) `(rainbow-delimiters-depth-5-face ((,class :foreground ,purple-intense))) `(rainbow-delimiters-depth-6-face ((,class :foreground ,green-intense))) `(rainbow-delimiters-depth-7-face ((,class :foreground ,red-intense))) `(rainbow-delimiters-depth-8-face ((,class :foreground ,blue-intense))) `(rainbow-delimiters-depth-9-face ((,class :foreground ,yellow-intense))) `(rainbow-delimiters-mismatched-face ((,class :inherit (bold modus-theme-refine-yellow)))) `(rainbow-delimiters-unmatched-face ((,class :inherit (bold modus-theme-refine-red)))) ;;;;; rcirc `(rcirc-bright-nick ((,class :inherit bold :foreground ,magenta-alt))) `(rcirc-dim-nick ((,class :inherit shadow))) `(rcirc-my-nick ((,class :inherit bold :foreground ,magenta))) `(rcirc-nick-in-message ((,class :foreground ,magenta-alt-other))) `(rcirc-nick-in-message-full-line ((,class :inherit bold :foreground ,fg-special-mild))) `(rcirc-other-nick ((,class :inherit bold :foreground ,fg-special-cold))) `(rcirc-prompt ((,class :inherit bold :foreground ,cyan-alt-other))) `(rcirc-server ((,class :foreground ,fg-unfocused))) `(rcirc-timestamp ((,class :foreground ,blue-nuanced-fg))) `(rcirc-url ((,class :foreground ,blue :underline t))) ;;;;; recursion-indicator `(recursion-indicator-general ((,class :foreground ,blue-active))) `(recursion-indicator-minibuffer ((,class :foreground ,red-active))) ;;;;; regexp-builder (re-builder) `(reb-match-0 ((,class :inherit modus-theme-refine-cyan))) `(reb-match-1 ((,class :inherit modus-theme-subtle-magenta))) `(reb-match-2 ((,class :inherit modus-theme-subtle-green))) `(reb-match-3 ((,class :inherit modus-theme-refine-yellow))) `(reb-regexp-grouping-backslash ((,class :inherit font-lock-regexp-grouping-backslash))) `(reb-regexp-grouping-construct ((,class :inherit font-lock-regexp-grouping-construct))) ;;;;; rg (rg.el) `(rg-column-number-face ((,class :foreground ,magenta-alt-other))) `(rg-context-face ((,class :foreground ,fg-unfocused))) `(rg-error-face ((,class :inherit bold :foreground ,red))) `(rg-file-tag-face ((,class :foreground ,fg-special-cold))) `(rg-filename-face ((,class :inherit bold :foreground ,fg-special-cold))) `(rg-line-number-face ((,class :foreground ,fg-special-warm))) `(rg-literal-face ((,class :foreground ,blue-alt))) `(rg-match-face ((,class :inherit modus-theme-special-calm))) `(rg-regexp-face ((,class :foreground ,magenta-active))) `(rg-toggle-off-face ((,class :inherit bold :foreground ,fg-inactive))) `(rg-toggle-on-face ((,class :inherit bold :foreground ,cyan-active))) `(rg-warning-face ((,class :inherit bold :foreground ,yellow))) ;;;;; ripgrep `(ripgrep-context-face ((,class :foreground ,fg-unfocused))) `(ripgrep-error-face ((,class :inherit bold :foreground ,red))) `(ripgrep-hit-face ((,class :foreground ,cyan))) `(ripgrep-match-face ((,class :inherit modus-theme-special-calm))) ;;;;; rmail `(rmail-header-name ((,class :foreground ,cyan-alt-other))) `(rmail-highlight ((,class :inherit bold :foreground ,magenta-alt))) ;;;;; ruler-mode `(ruler-mode-column-number ((,class :inherit ruler-mode-default :foreground ,fg-main))) `(ruler-mode-comment-column ((,class :inherit ruler-mode-default :foreground ,red))) `(ruler-mode-current-column ((,class :inherit ruler-mode-default :background ,blue-subtle-bg :foreground ,fg-main))) `(ruler-mode-default ((,class :inherit default :background ,bg-alt :foreground ,fg-unfocused))) `(ruler-mode-fill-column ((,class :inherit ruler-mode-default :foreground ,green))) `(ruler-mode-fringes ((,class :inherit ruler-mode-default :foreground ,cyan))) `(ruler-mode-goal-column ((,class :inherit ruler-mode-default :foreground ,blue))) `(ruler-mode-margins ((,class :inherit ruler-mode-default :foreground ,bg-main))) `(ruler-mode-pad ((,class :inherit ruler-mode-default :background ,bg-active :foreground ,fg-inactive))) `(ruler-mode-tab-stop ((,class :inherit ruler-mode-default :foreground ,fg-special-warm))) ;;;;; sallet `(sallet-buffer-compressed ((,class :inherit italic :foreground ,yellow-nuanced-fg))) `(sallet-buffer-default-directory ((,class :foreground ,cyan-nuanced-fg))) `(sallet-buffer-directory ((,class :foreground ,blue-nuanced-fg))) `(sallet-buffer-help ((,class :foreground ,fg-special-cold))) `(sallet-buffer-modified ((,class :inherit italic :foreground ,yellow-alt-other))) `(sallet-buffer-ordinary ((,class :foreground ,fg-main))) `(sallet-buffer-read-only ((,class :foreground ,yellow-alt))) `(sallet-buffer-size ((,class :foreground ,fg-special-calm))) `(sallet-buffer-special ((,class :foreground ,magenta-alt-other))) `(sallet-flx-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-cyan 'modus-theme-refine-cyan 'modus-theme-nuanced-cyan cyan-alt-other)))) `(sallet-recentf-buffer-name ((,class :foreground ,blue-nuanced-fg))) `(sallet-recentf-file-path ((,class :foreground ,fg-special-mild))) `(sallet-regexp-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-magenta 'modus-theme-refine-magenta 'modus-theme-nuanced-magenta magenta-alt-other)))) `(sallet-source-header ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(sallet-substring-match ((,class ,@(modus-themes--extra-completions 'modus-theme-subtle-blue 'modus-theme-refine-blue 'modus-theme-nuanced-blue blue-alt-other)))) ;;;;; selectrum ;; NOTE 2021-02-22: The `selectrum-primary-highlight' and ;; `selectrum-secondary-highlight' are deprecated upstream in favour of ;; their selectrum-prescient counterparts. We shall remove those faces ;; from the themes once we are certain that they are no longer relevant. `(selectrum-current-candidate ((,class :inherit bold :foreground ,fg-main :background ,@(pcase modus-themes-completions ('opinionated (list bg-active)) (_ (list bg-inactive)))))) `(selectrum-primary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(selectrum-secondary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions cyan-alt-other cyan-nuanced-bg cyan-refine-bg cyan-refine-fg)))) ;;;;; selectrum-prescient `(selectrum-prescient-primary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions magenta-alt magenta-nuanced-bg magenta-refine-bg magenta-refine-fg)))) `(selectrum-prescient-secondary-highlight ((,class :inherit bold ,@(modus-themes--standard-completions cyan-alt-other cyan-nuanced-bg cyan-refine-bg cyan-refine-fg)))) ;;;;; semantic `(semantic-complete-inline-face ((,class :foreground ,fg-special-warm :underline t))) `(semantic-decoration-on-fileless-includes ((,class :inherit modus-theme-refine-green))) `(semantic-decoration-on-private-members-face ((,class :inherit modus-theme-refine-cyan))) `(semantic-decoration-on-protected-members-face ((,class :background ,bg-dim))) `(semantic-decoration-on-unknown-includes ((,class :inherit modus-theme-refine-red))) `(semantic-decoration-on-unparsed-includes ((,class :inherit modus-theme-refine-yellow))) `(semantic-highlight-edits-face ((,class :background ,bg-alt))) `(semantic-highlight-func-current-tag-face ((,class :background ,bg-alt))) `(semantic-idle-symbol-highlight ((,class :inherit modus-theme-special-mild))) `(semantic-tag-boundary-face ((,class :overline ,blue-intense))) `(semantic-unmatched-syntax-face ((,class :underline ,fg-lang-error))) ;;;;; sesman `(sesman-browser-button-face ((,class :foreground ,blue-alt-other :underline t))) `(sesman-browser-highligh-face ((,class :inherit modus-theme-subtle-blue))) `(sesman-buffer-face ((,class :foreground ,magenta))) `(sesman-directory-face ((,class :inherit bold :foreground ,blue))) `(sesman-project-face ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; shell-script-mode `(sh-heredoc ((,class :foreground ,blue-alt))) `(sh-quoted-exec ((,class :inherit modus-theme-bold :foreground ,magenta-alt))) ;;;;; shortdoc `(shortdoc-heading ((,class :inherit modus-theme-pseudo-header))) `(shortdoc-section (())) ; remove the default's variable-pitch style ;;;;; show-paren-mode `(show-paren-match ((,class ,@(modus-themes--paren bg-paren-match bg-paren-match-intense) :foreground ,fg-main))) `(show-paren-match-expression ((,class :inherit modus-theme-special-calm))) `(show-paren-mismatch ((,class :inherit modus-theme-intense-red))) ;;;;; shr `(shr-abbreviation ((,(append '((supports :underline (:style wave))) class) :foreground ,fg-docstring :underline (:color ,fg-alt :style wave)) (,class :foreground ,fg-docstring :underline t))) `(shr-selected-link ((,class :inherit modus-theme-subtle-cyan))) ;;;;; side-notes `(side-notes ((,class :background ,bg-dim :foreground ,fg-dim))) ;;;;; sieve-mode `(sieve-action-commands ((,class :inherit font-lock-builtin-face))) `(sieve-control-commands ((,class :inherit font-lock-keyword-face))) `(sieve-tagged-arguments ((,class :inherit font-lock-type-face))) `(sieve-test-commands ((,class :inherit font-lock-function-name-face))) ;;;;; skewer-mode `(skewer-error-face ((,class :foreground ,red :underline t))) ;;;;; smart-mode-line `(sml/charging ((,class :foreground ,green-active))) `(sml/discharging ((,class :foreground ,red-active))) `(sml/filename ((,class :inherit bold :foreground ,blue-active))) `(sml/folder ((,class :foreground ,fg-active))) `(sml/git ((,class :inherit bold :foreground ,green-active))) `(sml/global ((,class :foreground ,fg-active))) `(sml/line-number ((,class :inherit sml/global))) `(sml/minor-modes ((,class :inherit sml/global))) `(sml/modes ((,class :inherit bold :foreground ,fg-active))) `(sml/modified ((,class :inherit bold :foreground ,magenta-active))) `(sml/mule-info ((,class :inherit sml/global))) `(sml/name-filling ((,class :foreground ,yellow-active))) `(sml/not-modified ((,class :inherit sml/global))) `(sml/numbers-separator ((,class :inherit sml/global))) `(sml/outside-modified ((,class :inherit modus-theme-intense-red))) `(sml/position-percentage ((,class :inherit sml/global))) `(sml/prefix ((,class :foreground ,green-active))) `(sml/process ((,class :inherit sml/prefix))) `(sml/projectile ((,class :inherit sml/git))) `(sml/read-only ((,class :inherit bold :foreground ,cyan-active))) `(sml/remote ((,class :inherit sml/global))) `(sml/sudo ((,class :inherit modus-theme-subtle-red))) `(sml/time ((,class :inherit sml/global))) `(sml/vc ((,class :inherit sml/git))) `(sml/vc-edited ((,class :inherit bold :foreground ,yellow-active))) ;;;;; smartparens `(sp-pair-overlay-face ((,class :inherit modus-theme-special-warm))) `(sp-show-pair-enclosing ((,class :inherit modus-theme-special-mild))) `(sp-show-pair-match-face ((,class ,@(modus-themes--paren bg-paren-match bg-paren-match-intense) :foreground ,fg-main))) `(sp-show-pair-mismatch-face ((,class :inherit modus-theme-intense-red))) `(sp-wrap-overlay-closing-pair ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-overlay-face ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-overlay-opening-pair ((,class :inherit sp-pair-overlay-face))) `(sp-wrap-tag-overlay-face ((,class :inherit sp-pair-overlay-face))) ;;;;; smerge `(smerge-base ((,class :inherit modus-theme-diff-changed))) `(smerge-lower ((,class :inherit modus-theme-diff-added))) `(smerge-markers ((,class :background ,bg-diff-neutral-2 :foreground ,fg-diff-neutral-2))) `(smerge-refined-added ((,class :inherit modus-theme-diff-refine-added))) `(smerge-refined-changed (())) `(smerge-refined-removed ((,class :inherit modus-theme-diff-refine-removed))) `(smerge-upper ((,class :inherit modus-theme-diff-removed))) ;;;;; solaire `(solaire-default-face ((,class :inherit default :background ,bg-alt :foreground ,fg-dim))) `(solaire-line-number-face ((,class :inherit solaire-default-face :foreground ,fg-unfocused))) `(solaire-hl-line-face ((,class :background ,bg-active))) `(solaire-org-hide-face ((,class :background ,bg-alt :foreground ,bg-alt))) ;;;;; spaceline `(spaceline-evil-emacs ((,class :inherit modus-theme-active-magenta))) `(spaceline-evil-insert ((,class :inherit modus-theme-active-green))) `(spaceline-evil-motion ((,class :inherit modus-theme-active-blue))) `(spaceline-evil-normal ((,class :background ,fg-alt :foreground ,bg-alt))) `(spaceline-evil-replace ((,class :inherit modus-theme-active-red))) `(spaceline-evil-visual ((,class :inherit modus-theme-active-cyan))) `(spaceline-flycheck-error ((,class :foreground ,red-active))) `(spaceline-flycheck-info ((,class :foreground ,cyan-active))) `(spaceline-flycheck-warning ((,class :foreground ,yellow-active))) `(spaceline-highlight-face ((,class :inherit modus-theme-fringe-blue))) `(spaceline-modified ((,class :inherit modus-theme-fringe-magenta))) `(spaceline-python-venv ((,class :foreground ,magenta-active))) `(spaceline-read-only ((,class :inherit modus-theme-fringe-red))) `(spaceline-unmodified ((,class :inherit modus-theme-fringe-cyan))) ;;;;; speedbar `(speedbar-button-face ((,class :inherit button))) `(speedbar-directory-face ((,class :inherit bold :foreground ,blue))) `(speedbar-file-face ((,class :foreground ,fg-main))) `(speedbar-highlight-face ((,class :inherit modus-theme-subtle-blue))) `(speedbar-selected-face ((,class :inherit bold :foreground ,cyan))) `(speedbar-separator-face ((,class :inherit modus-theme-intense-neutral))) `(speedbar-tag-face ((,class :foreground ,yellow-alt-other))) ;;;;; spell-fu `(spell-fu-incorrect-face ((,class :inherit modus-theme-lang-error))) ;;;;; spray `(spray-accent-face ((,class :foreground ,red-intense))) `(spray-base-face ((,class :inherit default :foreground ,fg-special-cold))) ;;;;; stripes `(stripes ((,class :inherit modus-theme-hl-line))) ;;;;; success `(suggest-heading ((,class :inherit bold :foreground ,yellow-alt-other))) ;;;;; switch-window `(switch-window-background ((,class :background ,bg-dim))) `(switch-window-label ((,class :height 3.0 :foreground ,blue-intense))) ;;;;; swiper `(swiper-background-match-face-1 ((,class :inherit modus-theme-subtle-neutral))) `(swiper-background-match-face-2 ((,class :inherit modus-theme-refine-cyan))) `(swiper-background-match-face-3 ((,class :inherit modus-theme-refine-magenta))) `(swiper-background-match-face-4 ((,class :inherit modus-theme-refine-yellow))) `(swiper-line-face ((,class :inherit modus-theme-special-cold))) `(swiper-match-face-1 ((,class :inherit (bold modus-theme-intense-neutral)))) `(swiper-match-face-2 ((,class :inherit (bold modus-theme-intense-green)))) `(swiper-match-face-3 ((,class :inherit (bold modus-theme-intense-blue)))) `(swiper-match-face-4 ((,class :inherit (bold modus-theme-intense-red)))) ;;;;; swoop `(swoop-face-header-format-line ((,class :inherit bold :foreground ,red-alt ,@(modus-themes--scale modus-themes-scale-3)))) `(swoop-face-line-buffer-name ((,class :inherit bold :foreground ,blue-alt ,@(modus-themes--scale modus-themes-scale-4)))) `(swoop-face-line-number ((,class :foreground ,fg-special-warm))) `(swoop-face-target-line ((,class :inherit modus-theme-intense-blue :extend t))) `(swoop-face-target-words ((,class :inherit modus-theme-refine-cyan))) ;;;;; sx `(sx-inbox-item-type ((,class :foreground ,magenta-alt-other))) `(sx-inbox-item-type-unread ((,class :inherit (sx-inbox-item-type bold)))) `(sx-question-list-answers ((,class :foreground ,green))) `(sx-question-list-answers-accepted ((,class :box t :foreground ,green))) `(sx-question-list-bounty ((,class :inherit bold :background ,bg-alt :foreground ,yellow))) `(sx-question-list-date ((,class :foreground ,fg-special-cold))) `(sx-question-list-favorite ((,class :inherit bold :foreground ,fg-special-warm))) `(sx-question-list-parent ((,class :foreground ,fg-main))) `(sx-question-list-read-question ((,class :inherit shadow))) `(sx-question-list-score ((,class :foreground ,fg-special-mild))) `(sx-question-list-score-upvoted ((,class :inherit (sx-question-list-score bold)))) `(sx-question-list-unread-question ((,class :inherit bold :foreground ,fg-main))) `(sx-question-mode-accepted ((,class :inherit bold :height 1.3 :foreground ,green))) `(sx-question-mode-closed ((,class :inherit modus-theme-active-yellow :box (:line-width 2 :color nil)))) `(sx-question-mode-closed-reason ((,class :box (:line-width 2 :color nil) :foreground ,fg-main))) `(sx-question-mode-content-face ((,class :background ,bg-dim))) `(sx-question-mode-date ((,class :foreground ,blue))) `(sx-question-mode-header ((,class :inherit bold :foreground ,cyan))) `(sx-question-mode-kbd-tag ((,class :inherit bold :height 0.9 :box (:line-width 3 :color ,fg-main :style released-button) :foreground ,fg-main))) `(sx-question-mode-score ((,class :foreground ,fg-dim))) `(sx-question-mode-score-downvoted ((,class :foreground ,yellow))) `(sx-question-mode-score-upvoted ((,class :inherit bold :foreground ,magenta))) `(sx-question-mode-title ((,class :inherit bold :foreground ,fg-main))) `(sx-question-mode-title-comments ((,class :inherit bold :foreground ,fg-alt))) `(sx-tag ((,class :foreground ,magenta-alt))) `(sx-user-name ((,class :foreground ,blue-alt))) `(sx-user-reputation ((,class :inherit shadow))) ;;;;; symbol-overlay `(symbol-overlay-default-face ((,class :inherit modus-theme-special-warm))) `(symbol-overlay-face-1 ((,class :inherit modus-theme-intense-blue))) `(symbol-overlay-face-2 ((,class :inherit modus-theme-refine-magenta))) `(symbol-overlay-face-3 ((,class :inherit modus-theme-intense-yellow))) `(symbol-overlay-face-4 ((,class :inherit modus-theme-intense-magenta))) `(symbol-overlay-face-5 ((,class :inherit modus-theme-intense-red))) `(symbol-overlay-face-6 ((,class :inherit modus-theme-refine-red))) `(symbol-overlay-face-7 ((,class :inherit modus-theme-intense-cyan))) `(symbol-overlay-face-8 ((,class :inherit modus-theme-refine-cyan))) ;;;;; syslog-mode `(syslog-debug ((,class :inherit bold :foreground ,cyan-alt-other))) `(syslog-error ((,class :inherit bold :foreground ,red))) `(syslog-file ((,class :inherit bold :foreground ,fg-special-cold))) `(syslog-hide ((,class :background ,bg-main :foreground ,fg-main))) `(syslog-hour ((,class :inherit bold :foreground ,magenta-alt-other))) `(syslog-info ((,class :inherit bold :foreground ,blue-alt-other))) `(syslog-ip ((,class :inherit bold :foreground ,fg-special-mild :underline t))) `(syslog-su ((,class :inherit bold :foreground ,red-alt))) `(syslog-warn ((,class :inherit bold :foreground ,yellow))) ;;;;; tab-bar-mode `(tab-bar ((,class ,@(modus-themes--variable-pitch-ui) :background ,bg-tab-bar :foreground ,fg-main))) `(tab-bar-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) :background ,bg-tab-active :foreground ,fg-main))) `(tab-bar-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) :background ,bg-tab-inactive :foreground ,fg-dim))) ;;;;; tab-line-mode `(tab-line ((,class ,@(modus-themes--variable-pitch-ui) :height 0.95 :background ,bg-tab-bar :foreground ,fg-main))) `(tab-line-close-highlight ((,class :foreground ,red))) `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim))) `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active) :background ,bg-tab-active :foreground ,fg-main))) `(tab-line-tab-current ((,class :inherit tab-line-tab))) `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive) :background ,bg-tab-inactive :foreground ,fg-dim))) `(tab-line-tab-inactive-alternate ((,class :box (:line-width 2 :color ,bg-tab-inactive-alt) :background ,bg-tab-inactive-alt :foreground ,fg-main))) ;;;;; table (built-in table.el) `(table-cell ((,class :background ,blue-nuanced-bg))) ;;;;; telephone-line `(telephone-line-accent-active ((,class :background ,fg-inactive :foreground ,bg-inactive))) `(telephone-line-accent-inactive ((,class :background ,bg-active :foreground ,fg-active))) `(telephone-line-error ((,class :inherit bold :foreground ,red-active))) `(telephone-line-evil ((,class :foreground ,fg-main))) `(telephone-line-evil-emacs ((,class :inherit telephone-line-evil :background ,magenta-intense-bg))) `(telephone-line-evil-insert ((,class :inherit telephone-line-evil :background ,green-intense-bg))) `(telephone-line-evil-motion ((,class :inherit telephone-line-evil :background ,yellow-intense-bg))) `(telephone-line-evil-normal ((,class :inherit telephone-line-evil :background ,bg-alt))) `(telephone-line-evil-operator ((,class :inherit telephone-line-evil :background ,yellow-subtle-bg))) `(telephone-line-evil-replace ((,class :inherit telephone-line-evil :background ,red-intense-bg))) `(telephone-line-evil-visual ((,class :inherit telephone-line-evil :background ,cyan-intense-bg))) `(telephone-line-projectile ((,class :foreground ,cyan-active))) `(telephone-line-unimportant ((,class :foreground ,fg-inactive))) `(telephone-line-warning ((,class :inherit bold :foreground ,yellow-active))) ;;;;; terraform-mode `(terraform--resource-name-face ((,class ,@(modus-themes--syntax-string magenta-alt-other magenta-alt-other-faint red-alt red-alt)))) `(terraform--resource-type-face ((,class ,@(modus-themes--syntax-string green green-faint blue-alt magenta-alt)))) ;;;;; term `(term ((,class :background ,bg-main :foreground ,fg-main))) `(term-bold ((,class :inherit bold))) `(term-color-black ((,class :background "gray35" :foreground "gray35"))) `(term-color-blue ((,class :background ,blue :foreground ,blue))) `(term-color-cyan ((,class :background ,cyan :foreground ,cyan))) `(term-color-green ((,class :background ,green :foreground ,green))) `(term-color-magenta ((,class :background ,magenta :foreground ,magenta))) `(term-color-red ((,class :background ,red :foreground ,red))) `(term-color-white ((,class :background "gray65" :foreground "gray65"))) `(term-color-yellow ((,class :background ,yellow :foreground ,yellow))) `(term-underline ((,class :underline t))) ;;;;; tomatinho `(tomatinho-ok-face ((,class :foreground ,blue-intense))) `(tomatinho-pause-face ((,class :foreground ,yellow-intense))) `(tomatinho-reset-face ((,class :inherit shadow))) ;;;;; transient `(transient-active-infix ((,class :inherit modus-theme-special-mild))) `(transient-amaranth ((,class :inherit bold :foreground ,yellow))) `(transient-argument ((,class :inherit bold :foreground ,red-alt))) `(transient-blue ((,class :inherit bold :foreground ,blue))) `(transient-disabled-suffix ((,class :inherit modus-theme-intense-red))) `(transient-enabled-suffix ((,class :inherit modus-theme-intense-green))) `(transient-heading ((,class :inherit bold :foreground ,fg-main))) `(transient-inactive-argument ((,class :inherit shadow))) `(transient-inactive-value ((,class :inherit shadow))) `(transient-key ((,class :inherit bold :foreground ,blue))) `(transient-mismatched-key ((,class :underline t))) `(transient-nonstandard-key ((,class :underline t))) `(transient-pink ((,class :inherit bold :foreground ,magenta))) `(transient-red ((,class :inherit bold :foreground ,red-intense))) `(transient-teal ((,class :inherit bold :foreground ,cyan-alt-other))) `(transient-unreachable ((,class :foreground ,fg-unfocused))) `(transient-unreachable-key ((,class :foreground ,fg-unfocused))) `(transient-value ((,class :inherit bold :foreground ,magenta-alt-other))) ;;;;; trashed `(trashed-deleted ((,class :inherit modus-theme-mark-del))) `(trashed-directory ((,class :foreground ,blue))) `(trashed-mark ((,class :inherit modus-theme-mark-symbol))) `(trashed-marked ((,class :inherit modus-theme-mark-alt))) `(trashed-restored ((,class :inherit modus-theme-mark-sel))) `(trashed-symlink ((,class :inherit button ,@(modus-themes--link-color cyan-alt cyan-alt-faint)))) ;;;;; treemacs `(treemacs-directory-collapsed-face ((,class :foreground ,magenta-alt))) `(treemacs-directory-face ((,class :inherit dired-directory))) `(treemacs-file-face ((,class :foreground ,fg-main))) `(treemacs-fringe-indicator-face ((,class :foreground ,fg-main))) `(treemacs-git-added-face ((,class :foreground ,green-intense))) `(treemacs-git-conflict-face ((,class :inherit (modus-theme-intense-red bold)))) `(treemacs-git-ignored-face ((,class :inherit shadow))) `(treemacs-git-modified-face ((,class :foreground ,yellow-alt-other))) `(treemacs-git-renamed-face ((,class :foreground ,cyan-alt-other))) `(treemacs-git-unmodified-face ((,class :foreground ,fg-main))) `(treemacs-git-untracked-face ((,class :foreground ,red-alt-other))) `(treemacs-help-column-face ((,class :inherit modus-theme-bold :foreground ,magenta-alt-other :underline t))) `(treemacs-help-title-face ((,class :foreground ,blue-alt-other))) `(treemacs-on-failure-pulse-face ((,class :inherit modus-theme-intense-red))) `(treemacs-on-success-pulse-face ((,class :inherit modus-theme-intense-green))) `(treemacs-root-face ((,class :inherit bold :foreground ,blue-alt-other :height 1.2 :underline t))) `(treemacs-root-remote-disconnected-face ((,class :inherit treemacs-root-remote-face :foreground ,yellow))) `(treemacs-root-remote-face ((,class :inherit treemacs-root-face :foreground ,magenta))) `(treemacs-root-remote-unreadable-face ((,class :inherit treemacs-root-unreadable-face))) `(treemacs-root-unreadable-face ((,class :inherit treemacs-root-face :strike-through t))) `(treemacs-tags-face ((,class :foreground ,blue-alt))) `(treemacs-tags-face ((,class :foreground ,magenta-alt))) ;;;;; tty-menu `(tty-menu-disabled-face ((,class :background ,bg-alt :foreground ,fg-alt))) `(tty-menu-enabled-face ((,class :inherit bold :background ,bg-alt :foreground ,fg-main))) `(tty-menu-selected-face ((,class :inherit modus-theme-intense-blue))) ;;;;; tuareg `(caml-types-def-face ((,class :inherit modus-theme-subtle-red))) `(caml-types-expr-face ((,class :inherit modus-theme-subtle-green))) `(caml-types-occ-face ((,class :inherit modus-theme-subtle-green))) `(caml-types-scope-face ((,class :inherit modus-theme-subtle-blue))) `(caml-types-typed-face ((,class :inherit modus-theme-subtle-magenta))) `(tuareg-font-double-semicolon-face ((,class :inherit font-lock-preprocessor-face))) `(tuareg-font-lock-attribute-face ((,class :inherit font-lock-function-name-face))) `(tuareg-font-lock-constructor-face ((,class :foreground ,fg-main))) `(tuareg-font-lock-error-face ((,class :inherit (modus-theme-intense-red bold)))) `(tuareg-font-lock-extension-node-face ((,class :background ,bg-alt :foreground ,magenta))) `(tuareg-font-lock-governing-face ((,class :inherit bold :foreground ,fg-main))) `(tuareg-font-lock-infix-extension-node-face ((,class :inherit font-lock-function-name-face))) `(tuareg-font-lock-interactive-directive-face ((,class :foreground ,fg-special-cold))) `(tuareg-font-lock-interactive-error-face ((,class :inherit error))) `(tuareg-font-lock-interactive-output-face ((,class :inherit font-lock-constant-face))) `(tuareg-font-lock-label-face ((,class :inherit font-lock-type-face))) `(tuareg-font-lock-line-number-face ((,class :foreground ,fg-special-warm))) `(tuareg-font-lock-module-face ((,class :inherit font-lock-builtin-face))) `(tuareg-font-lock-multistage-face ((,class :inherit bold :background ,bg-alt :foreground ,blue))) `(tuareg-font-lock-operator-face ((,class :inherit font-lock-preprocessor-face))) `(tuareg-opam-error-face ((,class :inherit error))) `(tuareg-opam-pkg-variable-name-face ((,class :inherit font-lock-variable-name-face))) ;;;;; typescript `(typescript-jsdoc-tag ((,class :inherit modus-theme-slant :foreground ,fg-special-mild))) `(typescript-jsdoc-type ((,class :inherit modus-theme-slant :foreground ,fg-special-calm))) `(typescript-jsdoc-value ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) ;;;;; undo-tree `(undo-tree-visualizer-active-branch-face ((,class :inherit bold :foreground ,fg-main))) `(undo-tree-visualizer-current-face ((,class :foreground ,blue-intense))) `(undo-tree-visualizer-default-face ((,class :inherit shadow))) `(undo-tree-visualizer-register-face ((,class :foreground ,magenta-intense))) `(undo-tree-visualizer-unmodified-face ((,class :foreground ,green-intense))) ;;;;; vc (vc-dir.el, vc-hooks.el) `(vc-dir-directory ((,class :foreground ,blue))) `(vc-dir-file ((,class :foreground ,fg-main))) `(vc-dir-header ((,class :foreground ,cyan-alt-other))) `(vc-dir-header-value ((,class :foreground ,magenta-alt-other))) `(vc-dir-mark-indicator ((,class :foreground ,blue-alt-other))) `(vc-dir-status-edited ((,class :foreground ,yellow))) `(vc-dir-status-ignored ((,class :foreground ,fg-unfocused))) `(vc-dir-status-up-to-date ((,class :foreground ,cyan))) `(vc-dir-status-warning ((,class :foreground ,red))) `(vc-conflict-state ((,class :inherit modus-theme-slant :foreground ,red-active))) `(vc-edited-state ((,class :foreground ,yellow-active))) `(vc-locally-added-state ((,class :foreground ,cyan-active))) `(vc-locked-state ((,class :foreground ,blue-active))) `(vc-missing-state ((,class :inherit modus-theme-slant :foreground ,magenta-active))) `(vc-needs-update-state ((,class :inherit modus-theme-slant :foreground ,green-active))) `(vc-removed-state ((,class :foreground ,red-active))) `(vc-state-base ((,class :foreground ,fg-active))) `(vc-up-to-date-state ((,class :foreground ,fg-special-cold))) ;;;;; vdiff `(vdiff-addition-face ((,class :inherit modus-theme-diff-added))) `(vdiff-change-face ((,class :inherit modus-theme-diff-changed))) `(vdiff-closed-fold-face ((,class :background ,bg-diff-neutral-1 :foreground ,fg-diff-neutral-1))) `(vdiff-refine-added ((,class :inherit modus-theme-diff-refine-added))) `(vdiff-refine-changed ((,class :inherit modus-theme-diff-refine-changed))) `(vdiff-subtraction-face ((,class :inherit modus-theme-diff-removed))) `(vdiff-target-face ((,class :inherit modus-theme-intense-blue))) ;;;;; vimish-fold `(vimish-fold-fringe ((,class :foreground ,cyan-active))) `(vimish-fold-mouse-face ((,class :inherit modus-theme-intense-blue))) `(vimish-fold-overlay ((,class :background ,bg-alt :foreground ,fg-special-cold))) ;;;;; visible-mark `(visible-mark-active ((,class :background ,blue-intense-bg))) `(visible-mark-face1 ((,class :background ,cyan-intense-bg))) `(visible-mark-face2 ((,class :background ,yellow-intense-bg))) `(visible-mark-forward-face1 ((,class :background ,magenta-intense-bg))) `(visible-mark-forward-face2 ((,class :background ,green-intense-bg))) ;;;;; visual-regexp `(vr/group-0 ((,class :inherit modus-theme-intense-blue))) `(vr/group-1 ((,class :inherit modus-theme-intense-magenta))) `(vr/group-2 ((,class :inherit modus-theme-intense-green))) `(vr/match-0 ((,class :inherit modus-theme-refine-yellow))) `(vr/match-1 ((,class :inherit modus-theme-refine-yellow))) `(vr/match-separator-face ((,class :inherit (modus-theme-intense-neutral bold)))) ;;;;; volatile-highlights `(vhl/default-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg :extend t))) ;;;;; vterm `(vterm-color-black ((,class :background "gray35" :foreground "gray35"))) `(vterm-color-blue ((,class :background ,blue :foreground ,blue))) `(vterm-color-cyan ((,class :background ,cyan :foreground ,cyan))) `(vterm-color-default ((,class :background ,bg-main :foreground ,fg-main))) `(vterm-color-green ((,class :background ,green :foreground ,green))) `(vterm-color-inverse-video ((,class :background ,bg-main :inverse-video t))) `(vterm-color-magenta ((,class :background ,magenta :foreground ,magenta))) `(vterm-color-red ((,class :background ,red :foreground ,red))) `(vterm-color-underline ((,class :foreground ,fg-special-warm :underline t))) `(vterm-color-white ((,class :background "gray65" :foreground "gray65"))) `(vterm-color-yellow ((,class :background ,yellow :foreground ,yellow))) ;;;;; wcheck-mode `(wcheck-default-face ((,class :foreground ,red :underline t))) ;;;;; web-mode `(web-mode-annotation-face ((,class :inherit web-mode-comment-face))) `(web-mode-annotation-html-face ((,class :inherit web-mode-comment-face))) `(web-mode-annotation-tag-face ((,class :inherit web-mode-comment-face :underline t))) `(web-mode-block-attr-name-face ((,class :inherit font-lock-constant-face))) `(web-mode-block-attr-value-face ((,class :inherit font-lock-type-face))) `(web-mode-block-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-block-control-face ((,class :inherit font-lock-builtin-face))) `(web-mode-block-delimiter-face ((,class :foreground ,fg-main))) `(web-mode-block-face ((,class :background ,bg-dim))) `(web-mode-block-string-face ((,class :inherit web-mode-string-face))) `(web-mode-bold-face ((,class :inherit bold))) `(web-mode-builtin-face ((,class :inherit font-lock-builtin-face))) `(web-mode-comment-face ((,class :inherit font-lock-comment-face))) `(web-mode-comment-keyword-face ((,class :inherit font-lock-warning-face))) `(web-mode-constant-face ((,class :inherit font-lock-constant-face))) `(web-mode-css-at-rule-face ((,class :inherit font-lock-constant-face))) `(web-mode-css-color-face ((,class :inherit font-lock-builtin-face))) `(web-mode-css-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-css-function-face ((,class :inherit font-lock-builtin-face))) `(web-mode-css-priority-face ((,class :inherit font-lock-warning-face))) `(web-mode-css-property-name-face ((,class :inherit font-lock-keyword-face))) `(web-mode-css-pseudo-class-face ((,class :inherit font-lock-doc-face))) `(web-mode-css-selector-face ((,class :inherit font-lock-keyword-face))) `(web-mode-css-string-face ((,class :inherit web-mode-string-face))) `(web-mode-css-variable-face ((,class :foreground ,fg-special-warm))) `(web-mode-current-column-highlight-face ((,class :background ,bg-alt))) `(web-mode-current-element-highlight-face ((,class :inherit modus-theme-special-mild))) `(web-mode-doctype-face ((,class :inherit modus-theme-slant :foreground ,fg-special-cold))) `(web-mode-error-face ((,class :inherit modus-theme-intense-red))) `(web-mode-filter-face ((,class :inherit font-lock-function-name-face))) `(web-mode-folded-face ((,class :underline t))) `(web-mode-function-call-face ((,class :inherit font-lock-function-name-face))) `(web-mode-function-name-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-attr-custom-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-html-attr-engine-face ((,class :foreground ,fg-main))) `(web-mode-html-attr-equal-face ((,class :foreground ,fg-main))) `(web-mode-html-attr-name-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-html-attr-value-face ((,class :inherit font-lock-constant-face))) `(web-mode-html-entity-face ((,class :inherit font-lock-negation-char-face))) `(web-mode-html-tag-bracket-face ((,class :foreground ,fg-dim))) `(web-mode-html-tag-custom-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-tag-face ((,class :inherit font-lock-function-name-face))) `(web-mode-html-tag-namespaced-face ((,class :inherit font-lock-builtin-face))) `(web-mode-html-tag-unclosed-face ((,class :inherit error :underline t))) `(web-mode-inlay-face ((,class :background ,bg-alt))) `(web-mode-italic-face ((,class :inherit italic))) `(web-mode-javascript-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-javascript-string-face ((,class :inherit web-mode-string-face))) `(web-mode-json-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-json-context-face ((,class :inherit font-lock-builtin-face))) `(web-mode-json-key-face ((,class :foreground ,blue-nuanced-fg))) `(web-mode-json-string-face ((,class :inherit web-mode-string-face))) `(web-mode-jsx-depth-1-face ((,class :background ,blue-intense-bg :foreground ,fg-main))) `(web-mode-jsx-depth-2-face ((,class :background ,blue-subtle-bg :foreground ,fg-main))) `(web-mode-jsx-depth-3-face ((,class :background ,bg-special-cold :foreground ,fg-special-cold))) `(web-mode-jsx-depth-4-face ((,class :background ,bg-alt :foreground ,blue-refine-fg))) `(web-mode-jsx-depth-5-face ((,class :background ,bg-alt :foreground ,blue-nuanced-fg))) `(web-mode-keyword-face ((,class :inherit :inherit font-lock-keyword-face))) `(web-mode-param-name-face ((,class :inherit font-lock-function-name-face))) `(web-mode-part-comment-face ((,class :inherit web-mode-comment-face))) `(web-mode-part-face ((,class :inherit web-mode-block-face))) `(web-mode-part-string-face ((,class :inherit web-mode-string-face))) `(web-mode-preprocessor-face ((,class :inherit font-lock-preprocessor-face))) `(web-mode-script-face ((,class :inherit web-mode-part-face))) `(web-mode-sql-keyword-face ((,class :inherit font-lock-negation-char-face))) `(web-mode-string-face ((,class :inherit font-lock-string-face))) `(web-mode-style-face ((,class :inherit web-mode-part-face))) `(web-mode-symbol-face ((,class :inherit font-lock-constant-face))) `(web-mode-type-face ((,class :inherit font-lock-builtin-face))) `(web-mode-underline-face ((,class :underline t))) `(web-mode-variable-name-face ((,class :inherit font-lock-variable-name-face))) `(web-mode-warning-face ((,class :inherit font-lock-warning-face))) `(web-mode-whitespace-face ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) ;;;;; wgrep `(wgrep-delete-face ((,class :inherit modus-theme-refine-yellow))) `(wgrep-done-face ((,class :inherit modus-theme-refine-blue))) `(wgrep-face ((,class :inherit modus-theme-refine-green))) `(wgrep-file-face ((,class :foreground ,fg-special-warm))) `(wgrep-reject-face ((,class :inherit (modus-theme-intense-red bold)))) ;;;;; which-function-mode `(which-func ((,class :foreground ,magenta-active))) ;;;;; which-key `(which-key-command-description-face ((,class :foreground ,fg-main))) `(which-key-group-description-face ((,class :foreground ,magenta-alt))) `(which-key-highlighted-command-face ((,class :foreground ,yellow :underline t))) `(which-key-key-face ((,class :inherit bold :foreground ,blue-intense))) `(which-key-local-map-description-face ((,class :foreground ,fg-main))) `(which-key-note-face ((,class :foreground ,fg-special-warm))) `(which-key-separator-face ((,class :inherit shadow))) `(which-key-special-key-face ((,class :inherit bold :foreground ,orange-intense))) ;;;;; whitespace-mode `(whitespace-big-indent ((,class :inherit modus-theme-subtle-red))) `(whitespace-empty ((,class :inherit modus-theme-intense-magenta))) `(whitespace-hspace ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-indentation ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-line ((,class :background ,bg-alt))) `(whitespace-newline ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-space ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-space-after-tab ((,class :inherit modus-theme-subtle-magenta))) `(whitespace-space-before-tab ((,class :inherit modus-theme-subtle-cyan))) `(whitespace-tab ((,class :background ,bg-whitespace :foreground ,fg-whitespace))) `(whitespace-trailing ((,class :inherit modus-theme-intense-red))) ;;;;; window-divider-mode `(window-divider ((,class :foreground ,fg-window-divider-inner))) `(window-divider-first-pixel ((,class :foreground ,fg-window-divider-outer))) `(window-divider-last-pixel ((,class :foreground ,fg-window-divider-outer))) ;;;;; winum `(winum-face ((,class :inherit modus-theme-bold :foreground ,cyan-active))) ;;;;; writegood-mode `(writegood-duplicates-face ((,class :background ,bg-alt :foreground ,red-alt :underline t))) `(writegood-passive-voice-face ((,class :inherit modus-theme-lang-warning))) `(writegood-weasels-face ((,class :inherit modus-theme-lang-error))) ;;;;; woman `(woman-addition ((,class :foreground ,magenta-alt-other))) `(woman-bold ((,class :inherit bold :foreground ,magenta))) `(woman-italic ((,class :inherit italic :foreground ,cyan))) `(woman-unknown ((,class :inherit italic :foreground ,yellow))) ;;;;; xah-elisp-mode `(xah-elisp-at-symbol ((,class :inherit font-lock-warning-face))) `(xah-elisp-cap-variable ((,class :inherit font-lock-preprocessor-face))) `(xah-elisp-command-face ((,class :inherit font-lock-type-face))) `(xah-elisp-dollar-symbol ((,class :inherit font-lock-variable-name-face))) ;;;;; xref `(xref-file-header ((,class :inherit bold :foreground ,fg-special-cold))) `(xref-line-number ((,class :inherit shadow))) `(xref-match ((,class :inherit match))) ;;;;; yaml-mode `(yaml-tab-face ((,class :inherit modus-theme-intense-red))) ;;;;; yasnippet `(yas-field-highlight-face ((,class :background ,bg-hl-alt-intense))) ;;;;; ztree `(ztreep-arrow-face ((,class :foreground ,fg-inactive))) `(ztreep-diff-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) `(ztreep-diff-header-small-face ((,class :inherit bold :foreground ,fg-special-mild))) `(ztreep-diff-model-add-face ((,class :foreground ,green))) `(ztreep-diff-model-diff-face ((,class :foreground ,red))) `(ztreep-diff-model-ignored-face ((,class :inherit shadow :strike-through t))) `(ztreep-diff-model-normal-face ((,class :inherit shadow))) `(ztreep-expand-sign-face ((,class :foreground ,blue))) `(ztreep-header-face ((,class :inherit bold :height 1.2 :foreground ,fg-special-cold))) `(ztreep-leaf-face ((,class :foreground ,cyan))) `(ztreep-node-count-children-face ((,class :foreground ,fg-special-warm))) `(ztreep-node-face ((,class :foreground ,fg-main)))) "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"]) ;;;; awesome-tray `(awesome-tray-mode-line-active-color ,blue) `(awesome-tray-mode-line-inactive-color ,bg-active) ;;;; exwm `(exwm-floating-border-color ,fg-window-divider-inner) ;;;; flymake fringe indicators `(flymake-error-bitmap '(flymake-double-exclamation-mark modus-theme-fringe-red)) `(flymake-warning-bitmap '(exclamation-mark modus-theme-fringe-yellow)) `(flymake-note-bitmap '(exclamation-mark modus-theme-fringe-cyan)) ;;;; ibuffer `(ibuffer-deletion-face 'modus-theme-mark-del) `(ibuffer-filter-group-name-face 'modus-theme-mark-symbol) `(ibuffer-marked-face 'modus-theme-mark-sel) `(ibuffer-title-face 'modus-theme-pseudo-header) ;;;; highlight-tail `(highlight-tail-colors '((,green-subtle-bg . 0) (,cyan-subtle-bg . 20))) ;;;; hl-todo `(hl-todo-keyword-faces '(("HOLD" . ,yellow-alt) ("TODO" . ,magenta) ("NEXT" . ,magenta-alt-other) ("THEM" . ,magenta-alt) ("PROG" . ,cyan) ("OKAY" . ,cyan-alt) ("DONT" . ,green-alt) ("FAIL" . ,red) ("BUG" . ,red) ("DONE" . ,green) ("NOTE" . ,yellow-alt-other) ("KLUDGE" . ,yellow) ("HACK" . ,yellow) ("TEMP" . ,red-nuanced-fg) ("FIXME" . ,red-alt-other) ("XXX+" . ,red-alt) ("REVIEW" . ,cyan-alt-other) ("DEPRECATED" . ,blue-nuanced-fg))) ;;;; pdf-tools `(pdf-view-midnight-colors '(,fg-main . ,bg-dim)) ;;;; vc-annotate (C-x v g) `(vc-annotate-background nil) `(vc-annotate-background-mode nil) `(vc-annotate-color-map '((20 . ,red) (40 . ,magenta) (60 . ,magenta-alt) (80 . ,red-alt) (100 . ,yellow) (120 . ,yellow-alt) (140 . ,fg-special-warm) (160 . ,fg-special-mild) (180 . ,green) (200 . ,green-alt) (220 . ,cyan-alt-other) (240 . ,cyan-alt) (260 . ,cyan) (280 . ,fg-special-cold) (300 . ,blue) (320 . ,blue-alt) (340 . ,blue-alt-other) (360 . ,magenta-alt-other))) `(vc-annotate-very-old-color nil) ;;;; xterm-color `(xterm-color-names ["black" ,red ,green ,yellow ,blue ,magenta ,cyan "gray65"]) `(xterm-color-names-bright ["gray35" ,red-alt ,green-alt ,yellow-alt ,blue-alt ,magenta-alt ,cyan-alt "white"]) (if (eq modus-themes-org-blocks 'rainbow) `(org-src-block-faces ; TODO this list should be expanded `(("emacs-lisp" modus-theme-nuanced-magenta) ("elisp" modus-theme-nuanced-magenta) ("clojure" modus-theme-nuanced-magenta) ("clojurescript" modus-theme-nuanced-magenta) ("c" modus-theme-nuanced-blue) ("c++" modus-theme-nuanced-blue) ("sh" modus-theme-nuanced-green) ("shell" modus-theme-nuanced-green) ("html" modus-theme-nuanced-yellow) ("xml" modus-theme-nuanced-yellow) ("css" modus-theme-nuanced-red) ("scss" modus-theme-nuanced-red) ("python" modus-theme-nuanced-green) ("ipython" modus-theme-nuanced-magenta) ("r" modus-theme-nuanced-cyan) ("yaml" modus-theme-nuanced-cyan) ("conf" modus-theme-nuanced-cyan) ("docker" modus-theme-nuanced-cyan))) `(org-src-block-faces '()))) "Custom variables for `modus-themes-theme'.") ;;;###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 [-- Attachment #4: modus-vivendi-theme.el --] [-- Type: text/plain, Size: 2544 bytes --] ;;; modus-vivendi-theme.el --- Accessible dark theme (WCAG AAA) -*- lexical-binding:t -*- ;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; URL: https://gitlab.com/protesilaos/modus-themes ;; Version: 1.2.3 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: faces, theme, accessibility ;; This file is part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Modus Vivendi is the dark variant of the Modus themes (Modus Operandi ;; is the light one). The themes are designed for color-contrast ;; accessibility. More specifically: ;; ;; 1. Provide a consistent minimum contrast ratio between background ;; and foreground values of 7:1 or higher. This meets the highest ;; such accessibility criterion per the guidelines of the Worldwide ;; Web Consortium's Working Group on Accessibility (WCAG AAA ;; standard). ;; ;; 2. Offer as close to full face coverage as possible. The list is ;; already quite long, with more additions to follow as part of the ;; ongoing development process. ;; ;; For a complete view of the project, also refer to the following files ;; (should be distributed in the same repository/directory as the ;; current item): ;; ;; - modus-themes.el (Main code shared between the themes) ;; - modus-operandi-theme.el (Light theme) ;;; Code: \f (eval-and-compile (unless (and (fboundp 'require-theme) (require-theme 'modus-themes t)) (require 'modus-themes))) (deftheme modus-vivendi "Accessible and customizable dark theme (WCAG AAA standard). Conforms with the highest legibility standard for color contrast between background and foreground in any given piece of text, which corresponds to a minimum contrast in relative luminance of 7:1.") (modus-themes-theme modus-vivendi) (provide-theme 'modus-vivendi) ;;; modus-vivendi-theme.el ends here [-- Attachment #5: modus-themes.org --] [-- Type: application/vnd.lotus-organizer, Size: 122691 bytes --] ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-05 17:50 ` Protesilaos Stavrou @ 2021-03-05 22:00 ` Basil L. Contovounesios 2021-03-06 5:13 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-05 22:00 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068, Mauro Aranda Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-05, 17:11 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > >>>>> ++ Ideas and user feedback :: Aaron Jensen, Adam Spiers, Adrian Manea, >>>>> + Alex Griffin, Alex Peitsinis, Alexey Shmalko, Alok Singh, Anders >>>>> + Johansson, André Alexandre Gomes, Arif Rezai, Basil L. Contovounesios, >>>> ^^ >>>> Hopefully Org's Texinfo export can one day be taught that this is not >>>> the end of a sentence ;). >>> >>> Ah yes, I recall noticing that! Can we circumvent it somehow? Perhaps >>> by omitting the space? >> >> Or the 'L. ' wholesale, but using @: as you've done is also fine ;). > > I preferred to keep the name the way you use it, so as to avoid > ambiguity (though I would not mind if your doppelgänger was also hacking > on Elisp!). Don't believe what he says, he only wants to discredit me. >> Following the discussion in: >> >> https://gitlab.com/protesilaos/modus-themes/-/issues/162 >> >> I'm preparing to update emacs.git to Modus version 1.2.2. I just want >> to clarify a thing here and there first, so stay tuned. > > Now version 1.2.3. I guess you prefer the files over a patch? I attach > them. Thanks, I've now pushed your original 1.2.0 patch and a new 1.2.3 patch with you as the author to the scratch/update-modus-themes branch. It looks fine to me, so unless you see anything amiss I'll merge it with master soon. -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-05 22:00 ` Basil L. Contovounesios @ 2021-03-06 5:13 ` Protesilaos Stavrou 2021-03-06 9:29 ` Basil L. Contovounesios 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-06 5:13 UTC (permalink / raw) To: Basil L. Contovounesios; +Cc: 45068, Mauro Aranda On 2021-03-05, 22:00 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: >>> Following the discussion in: >>> >>> https://gitlab.com/protesilaos/modus-themes/-/issues/162 >>> >>> I'm preparing to update emacs.git to Modus version 1.2.2. I just want >>> to clarify a thing here and there first, so stay tuned. >> >> Now version 1.2.3. I guess you prefer the files over a patch? I attach >> them. > > Thanks, I've now pushed your original 1.2.0 patch and a new 1.2.3 patch > with you as the author to the scratch/update-modus-themes branch. It > looks fine to me, so unless you see anything amiss I'll merge it with > master soon. Thank you Basil! Everything seems to be in order. Please merge it, at your convenience. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-06 5:13 ` Protesilaos Stavrou @ 2021-03-06 9:29 ` Basil L. Contovounesios 0 siblings, 0 replies; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-06 9:29 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068-done, Mauro Aranda close 45068 28.1 quit Protesilaos Stavrou <info@protesilaos.com> writes: > On 2021-03-05, 22:00 +0000, "Basil L. Contovounesios" <contovob@tcd.ie> wrote: > >> Thanks, I've now pushed your original 1.2.0 patch and a new 1.2.3 patch >> with you as the author to the scratch/update-modus-themes branch. It >> looks fine to me, so unless you see anything amiss I'll merge it with >> master soon. > > Thank you Basil! Everything seems to be in order. Please merge it, at > your convenience. Thanks, done. And with that, I'm closing this report. Update Modus themes to their version 1.2.0 de602dd7cf 2021-03-06 09:16:00 +0000 https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=de602dd7cf76b001244964aa5bbef4d9e08ea62b Pull Modus themes version 1.2.3 from upstream 8fb33bae32 2021-03-06 09:16:00 +0000 https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=8fb33bae32e39f597317eb4857447bb0ea1a4de3 -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-04 20:57 ` Protesilaos Stavrou ` (2 preceding siblings ...) 2021-03-05 17:11 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios @ 2021-03-05 21:11 ` Gregory Heytings 2021-03-06 13:24 ` Gregory Heytings 3 siblings, 1 reply; 83+ messages in thread From: Gregory Heytings @ 2021-03-05 21:11 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 >>> +(deftheme modus-vivendi >>> + "Accessible and customizable light theme (WCAG AAA standard). >> ^^^^^ >> dark > > [ Answer only if it is easy: how do you draw those ^^^ below the text? ] > (defun undercaret (&optional arg) (interactive "p") (let* ((b (region-beginning)) (e (region-end)) (c (save-excursion (goto-char b) (current-column)))) (when (and (region-active-p) (= (line-number-at-pos b) (line-number-at-pos e))) (forward-line 1) (dotimes (_ c) (insert " ")) (dotimes (_ (- e b)) (insert "^")) (insert "\n") (when (/= arg 1) (dotimes (_ c) (insert " ")) (insert "\n")) (backward-char)))) ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-05 21:11 ` Gregory Heytings @ 2021-03-06 13:24 ` Gregory Heytings 2021-03-06 15:22 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Gregory Heytings @ 2021-03-06 13:24 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 >>> +(deftheme modus-vivendi >>> + "Accessible and customizable light theme (WCAG AAA standard). >> ^^^^^ >> dark > > [ Answer only if it is easy: how do you draw those ^^^ below the text? ] > Here's a more polished version, which takes care of the prefix / fill-prefix, and works on multiple lines: (defun undercaret (&optional arg) (interactive "p") (let* ((begin (if (region-active-p) (region-beginning) (line-beginning-position))) (end (if (region-active-p) (region-end) (line-end-position))) (lines (- (line-number-at-pos end) (line-number-at-pos begin) -1)) (comment (and (/= arg 1) (= lines 1))) (final-forward-line -1)) (goto-char begin) (dotimes (i lines) (let* ((line-begin (if (zerop i) begin (line-beginning-position))) (line-end (if (= (1+ i) lines) end (line-end-position))) (begin-column (progn (goto-char line-begin) (current-column))) (prefix-begin (line-beginning-position)) (prefix-end (progn (beginning-of-line-text) (point))) (prefix-end-column (progn (goto-char prefix-end) (current-column))) (delta (if (< begin-column prefix-end-column) (- prefix-end-column begin-column) 0)) (prefix-string (buffer-substring-no-properties prefix-begin prefix-end)) (prefix (if (string-blank-p prefix-string) "" prefix-string)) (whitespace (make-string (- (+ begin-column delta) (length prefix)) ?\ )) (do-under (< delta (- line-end line-begin))) (under (if do-under (make-string (- line-end line-begin delta) ?^) "")) (under-string (concat prefix whitespace under "\n"))) (forward-line 1) (if do-under (insert under-string) (setq final-forward-line -2)) (setq end (+ end (length under-string))) (when comment (insert prefix whitespace "\n")))) (forward-line final-forward-line) (goto-char (line-end-position)))) ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-06 13:24 ` Gregory Heytings @ 2021-03-06 15:22 ` Protesilaos Stavrou 2021-03-06 18:25 ` Gregory Heytings 0 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-06 15:22 UTC (permalink / raw) To: Gregory Heytings; +Cc: 45068 On 2021-03-06, 13:24 +0000, Gregory Heytings <gregory@heytings.org> wrote: >>>> +(deftheme modus-vivendi >>>> + "Accessible and customizable light theme (WCAG AAA standard). >>> ^^^^^ >>> dark >> [ Answer only if it is easy: how do you draw those ^^^ below the text? >> ] >> > > Here's a more polished version, which takes care of the prefix / > fill-prefix, and works on multiple lines: > > (defun undercaret (&optional arg) > ^^^^^^^^^^ It works. Thank you! -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-06 15:22 ` Protesilaos Stavrou @ 2021-03-06 18:25 ` Gregory Heytings 2021-03-06 18:43 ` Protesilaos Stavrou 0 siblings, 1 reply; 83+ messages in thread From: Gregory Heytings @ 2021-03-06 18:25 UTC (permalink / raw) To: Protesilaos Stavrou; +Cc: 45068 > > It works. Thank you! > You are welcome :-) Actually the previous version had a bug with tab-indented lines. It is fixed now: (defun undercaret (&optional arg) (interactive "p") (let* ((begin (if (region-active-p) (region-beginning) (line-beginning-position))) (end (if (region-active-p) (region-end) (line-end-position))) (lines (- (line-number-at-pos end) (line-number-at-pos begin) -1)) (comment (and (/= arg 1) (= lines 1))) (final-forward-line -1)) (goto-char begin) (dotimes (i lines) (let* ((line-begin (if (zerop i) begin (line-beginning-position))) (line-end (if (= (1+ i) lines) end (line-end-position))) (begin-column (progn (goto-char line-begin) (current-column))) (end-column (progn (goto-char line-end) (current-column))) (prefix-begin (line-beginning-position)) (prefix-end (progn (beginning-of-line-text) (point))) (prefix-end-column (progn (goto-char prefix-end) (current-column))) (delta (if (< begin-column prefix-end-column) (- prefix-end-column begin-column) 0)) (prefix-string (buffer-substring-no-properties prefix-begin prefix-end)) (prefix (if (string-match-p "\\` *\\'" prefix-string) "" prefix-string)) (whitespace (make-string (- (+ begin-column delta) (string-width prefix)) ?\ )) (do-under (< delta (- line-end line-begin))) (under (if do-under (make-string (- end-column begin-column delta) ?^) "")) (under-string (concat prefix whitespace under "\n"))) (forward-line 1) (if do-under (insert under-string) (setq final-forward-line -2)) (setq end (+ end (length under-string))) (when comment (insert prefix whitespace "\n")))) (forward-line final-forward-line) (goto-char (line-end-position)))) (BTW, sorry for the off-topic noise on your thread on modus-themes, but it was you who asked for a solution ;-)) ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] Modus themes 1.2.0 2021-03-06 18:25 ` Gregory Heytings @ 2021-03-06 18:43 ` Protesilaos Stavrou 0 siblings, 0 replies; 83+ messages in thread From: Protesilaos Stavrou @ 2021-03-06 18:43 UTC (permalink / raw) To: Gregory Heytings; +Cc: 45068 On 2021-03-06, 18:25 +0000, Gregory Heytings <gregory@heytings.org> wrote: >> >> It works. Thank you! >> > > You are welcome :-) Actually the previous version had a bug with > tab-indented lines. It is fixed now: > > (defun undercaret (&optional arg) > (interactive "p") > (let* ((begin (if (region-active-p) (region-beginning) (line-beginning-position))) > (end (if (region-active-p) (region-end) (line-end-position))) > (lines (- (line-number-at-pos end) (line-number-at-pos begin) -1)) > (comment (and (/= arg 1) (= lines 1))) > (final-forward-line -1)) > (goto-char begin) > (dotimes (i lines) > (let* ((line-begin (if (zerop i) begin (line-beginning-position))) > (line-end (if (= (1+ i) lines) end (line-end-position))) > (begin-column (progn (goto-char line-begin) (current-column))) > (end-column (progn (goto-char line-end) (current-column))) > (prefix-begin (line-beginning-position)) > (prefix-end (progn (beginning-of-line-text) (point))) > (prefix-end-column (progn (goto-char prefix-end) (current-column))) > (delta (if (< begin-column prefix-end-column) (- prefix-end-column begin-column) 0)) > (prefix-string (buffer-substring-no-properties prefix-begin prefix-end)) > (prefix (if (string-match-p "\\` *\\'" prefix-string) "" prefix-string)) > (whitespace (make-string (- (+ begin-column delta) (string-width prefix)) ?\ )) > (do-under (< delta (- line-end line-begin))) > (under (if do-under (make-string (- end-column begin-column delta) ?^) "")) > (under-string (concat prefix whitespace under "\n"))) > (forward-line 1) > (if do-under (insert under-string) (setq final-forward-line -2)) > (setq end (+ end (length under-string))) > (when comment (insert prefix whitespace "\n")))) > (forward-line final-forward-line) > (goto-char (line-end-position)))) I admit not to have tested it thoroughly (not yet, anyway). Though I do plan to use your function. Thanks! I will eventually include it in my public dotfiles' repo. Is there a link I could provide as a reference to your contribution? Or just cite the message in this thread?[1] [1]: <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45068#250>. > (BTW, sorry for the off-topic noise on your thread on modus-themes, but > it was you who asked for a solution ;-)) Yes, I guess this is not the right place to discuss this feature... Though the bug has been closed successfully. I had asked because I was under the impression that Gnus or some other library was implementing it. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2021-03-04 12:32 ` Mauro Aranda 2021-03-04 14:54 ` bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou @ 2021-03-04 15:47 ` Basil L. Contovounesios 1 sibling, 0 replies; 83+ messages in thread From: Basil L. Contovounesios @ 2021-03-04 15:47 UTC (permalink / raw) To: Mauro Aranda; +Cc: Protesilaos Stavrou, 45068 Mauro Aranda <maurooaranda@gmail.com> writes: > LGTM, thank you. Thanks, pushed. Decouple require-theme from load-theme 8e759d60cc 2021-03-04 15:40:35 +0000 https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=8e759d60cc234d4beb471dbb46f91d8ca3a20066 -- Basil ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 14:16 ` Stefan Kangas 2020-12-11 14:32 ` Eli Zaretskii @ 2020-12-11 14:32 ` Christopher Dimech 2020-12-11 16:05 ` Protesilaos Stavrou 2 siblings, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 14:32 UTC (permalink / raw) To: Stefan Kangas, Eli Zaretskii; +Cc: contovob, info, 45068, juri > Sent: Friday, December 11, 2020 at 3:16 PM > From: "Stefan Kangas" <stefankangas@gmail.com> > To: "Eli Zaretskii" <eliz@gnu.org> > Cc: contovob@tcd.ie, info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > Eli Zaretskii <eliz@gnu.org> writes: > > >> Taking a step back, why are any themes in "etc/themes" to begin with? > > > > This question should have been asked 10 years ago, when we added that > > place. > > I wasn't paying attention 10 years ago, I'm afraid. :-) > > > Nowadays I think the question is what's so wrong with that > > place that would justify moving the files. If there are no serious > > problems, I'd prefer to keep using that directory for themes. > > Right. Well, I don't exactly have a strong opinion either way. But I > do think that we should be consistent: it would be confusing to have > some themes in "etc/themes" and some in "lisp/themes". > > If we can't move all themes to "lisp/themes" and we don't want to use > "lisp/themes" just for support files, to my mind the only remaining way > forward is to add some way to byte-compile (perhaps only some?) files in > "etc/themes". And then make sure they can be loaded, are installed with > Emacs, etc. > > Does that sound good, or could we do even better here? > > Protesilaos, what do you think? Does it sound workable for you? We can have a subset of the themes in "lisp/themes", the rest in "etc/themes". I suggest that Protesilaos' Modus-Themes be used as default for emacs (stored in "lisp/themes") because they are acessible themes for Gnu Emacs that much thought was spent conforming with WCAG AAA Standard. Regards Christopher ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 14:16 ` Stefan Kangas 2020-12-11 14:32 ` Eli Zaretskii 2020-12-11 14:32 ` Christopher Dimech @ 2020-12-11 16:05 ` Protesilaos Stavrou 2020-12-11 16:31 ` Christopher Dimech 2 siblings, 1 reply; 83+ messages in thread From: Protesilaos Stavrou @ 2020-12-11 16:05 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, 45068, juri On 2020-12-11, 08:16 -0600, Stefan Kangas <stefankangas@gmail.com> wrote: > Eli Zaretskii <eliz@gnu.org> writes: > >>> Taking a step back, why are any themes in "etc/themes" to begin with? >> >> This question should have been asked 10 years ago, when we added that >> place. > > I wasn't paying attention 10 years ago, I'm afraid. :-) > >> Nowadays I think the question is what's so wrong with that >> place that would justify moving the files. If there are no serious >> problems, I'd prefer to keep using that directory for themes. > > Right. Well, I don't exactly have a strong opinion either way. But I > do think that we should be consistent: it would be confusing to have > some themes in "etc/themes" and some in "lisp/themes". > > If we can't move all themes to "lisp/themes" and we don't want to use > "lisp/themes" just for support files, to my mind the only remaining way > forward is to add some way to byte-compile (perhaps only some?) files in > "etc/themes". And then make sure they can be loaded, are installed with > Emacs, etc. > > Does that sound good, or could we do even better here? > > Protesilaos, what do you think? Does it sound workable for you? I am fine with whatever is considered best for Emacs and am willing to make any changes you may consider necessary. My intent here is to contribute the latest version which satisfies the number one feature request I kept receiving: let the themes be customised uniformly. -- Protesilaos Stavrou protesilaos.com ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 16:05 ` Protesilaos Stavrou @ 2020-12-11 16:31 ` Christopher Dimech 0 siblings, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 16:31 UTC (permalink / raw) To: Stefan Kangas; +Cc: contovob, 45068, Stefan Kangas, juri > Sent: Friday, December 11, 2020 at 5:05 PM > From: "Protesilaos Stavrou" <info@protesilaos.com> > To: "Stefan Kangas" <stefankangas@gmail.com> > Cc: contovob@tcd.ie, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > On 2020-12-11, 08:16 -0600, Stefan Kangas <stefankangas@gmail.com> wrote: > > > Eli Zaretskii <eliz@gnu.org> writes: > > > >>> Taking a step back, why are any themes in "etc/themes" to begin with? > >> > >> This question should have been asked 10 years ago, when we added that > >> place. > > > > I wasn't paying attention 10 years ago, I'm afraid. :-) > > > >> Nowadays I think the question is what's so wrong with that > >> place that would justify moving the files. If there are no serious > >> problems, I'd prefer to keep using that directory for themes. > > > > Right. Well, I don't exactly have a strong opinion either way. But I > > do think that we should be consistent: it would be confusing to have > > some themes in "etc/themes" and some in "lisp/themes". > > > > If we can't move all themes to "lisp/themes" and we don't want to use > > "lisp/themes" just for support files, to my mind the only remaining way > > forward is to add some way to byte-compile (perhaps only some?) files in > > "etc/themes". And then make sure they can be loaded, are installed with > > Emacs, etc. > > > > Does that sound good, or could we do even better here? Perhaps you can make a new location for themes, put the required functionality, then thrash the part that handled "lisp/themes" and "etc/themes". That would then be a long term solution. > > Protesilaos, what do you think? Does it sound workable for you? > > I am fine with whatever is considered best for Emacs and am willing to > make any changes you may consider necessary. > > My intent here is to contribute the latest version which satisfies the > number one feature request I kept receiving: let the themes be > customised uniformly. > > -- > Protesilaos Stavrou > protesilaos.com > > > > ^ permalink raw reply [flat|nested] 83+ messages in thread
* bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) 2020-12-11 13:52 ` Eli Zaretskii 2020-12-11 14:16 ` Stefan Kangas @ 2020-12-11 14:25 ` Christopher Dimech 1 sibling, 0 replies; 83+ messages in thread From: Christopher Dimech @ 2020-12-11 14:25 UTC (permalink / raw) To: Eli Zaretskii; +Cc: contovob, info, 45068, Stefan Kangas, juri > Sent: Friday, December 11, 2020 at 2:52 PM > From: "Eli Zaretskii" <eliz@gnu.org> > To: "Stefan Kangas" <stefankangas@gmail.com> > Cc: contovob@tcd.ie, info@protesilaos.com, 45068@debbugs.gnu.org, juri@linkov.net > Subject: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) > > > From: Stefan Kangas <stefankangas@gmail.com> > > Date: Fri, 11 Dec 2020 07:21:53 -0600 > > Cc: "Basil L. Contovounesios" <contovob@tcd.ie>, 45068@debbugs.gnu.org > > > > Taking a step back, why are any themes in "etc/themes" to begin with? > > This question should have been asked 10 years ago, when we added that > place. Nowadays I think the question is what's so wrong with that > place that would justify moving the files. If there are no serious > problems, I'd prefer to keep using that directory for themes. I agree with your evaluation Eli. --------------------- Christopher Dimech General Administrator - Naiad Informatics - GNU Project (Geocomputation) - Geophysical Simulation - Geological Subsurface Mapping - Disaster Preparedness and Mitigation - Natural Resource Exploration and Production - Free Software Advocacy ^ permalink raw reply [flat|nested] 83+ messages in thread
end of thread, other threads:[~2021-03-06 18:43 UTC | newest]
Thread overview: 83+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-12-06 12:23 bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Protesilaos Stavrou
2020-12-08 12:03 ` Basil L. Contovounesios
2020-12-09 21:58 ` Stefan Kangas
2020-12-10 7:57 ` Protesilaos Stavrou
2020-12-10 8:25 ` Stefan Kangas
2020-12-10 11:46 ` Protesilaos Stavrou
2020-12-11 9:37 ` Juri Linkov
2020-12-11 13:21 ` Stefan Kangas
2020-12-11 13:52 ` Eli Zaretskii
2020-12-11 14:16 ` Stefan Kangas
2020-12-11 14:32 ` Eli Zaretskii
2020-12-11 15:15 ` Stefan Kangas
2020-12-11 15:32 ` Eli Zaretskii
2020-12-11 15:42 ` Christopher Dimech
2020-12-11 15:53 ` Protesilaos Stavrou
2020-12-11 18:39 ` Eli Zaretskii
2020-12-11 18:56 ` Christopher Dimech
2020-12-11 20:16 ` Eli Zaretskii
2020-12-11 20:29 ` Christopher Dimech
2020-12-11 19:08 ` Stefan Kangas
2020-12-11 20:05 ` Christopher Dimech
2020-12-11 20:14 ` Eli Zaretskii
2020-12-11 20:21 ` Christopher Dimech
2021-01-25 8:49 ` bug#45068: Patch for Modus themes 1.1.1? (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou
2021-01-25 12:51 ` Christopher Dimech
2021-01-25 15:34 ` Eli Zaretskii
2021-02-25 6:09 ` bug#45068: Patch for Modus themes 1.1.1? Protesilaos Stavrou
2021-02-25 14:44 ` Eli Zaretskii
2021-02-27 2:35 ` Protesilaos Stavrou
2021-02-27 8:15 ` Eli Zaretskii
2021-02-27 8:53 ` Protesilaos Stavrou
2021-02-28 6:30 ` Protesilaos Stavrou
2021-02-28 11:41 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda
2021-02-28 12:45 ` Protesilaos Stavrou
[not found] ` <87lfb8l2wr.fsf@tcd.ie>
2021-02-28 14:13 ` Protesilaos Stavrou
[not found] ` <87a6roxou1.fsf@protesilaos.com>
[not found] ` <87im6cfcex.fsf@tcd.ie>
2021-02-28 15:57 ` Protesilaos Stavrou
[not found] ` <603b9b9d.1c69fb81.f37aa.cb7c@mx.google.com>
2021-02-28 13:56 ` Protesilaos Stavrou
2021-03-01 14:38 ` Eli Zaretskii
2021-03-01 14:52 ` Protesilaos Stavrou
2021-03-01 15:16 ` Mauro Aranda
2021-03-01 15:35 ` Protesilaos Stavrou
2021-03-01 19:58 ` Basil L. Contovounesios
2021-03-01 20:06 ` Mauro Aranda
2021-03-01 20:03 ` Mauro Aranda
2021-03-01 23:34 ` Basil L. Contovounesios
2021-03-02 5:47 ` Protesilaos Stavrou
2021-03-02 5:51 ` Eli Zaretskii
2021-03-02 10:35 ` Basil L. Contovounesios
2021-03-02 10:32 ` Basil L. Contovounesios
2021-03-02 10:59 ` Protesilaos Stavrou
2021-03-02 11:03 ` Mauro Aranda
2021-03-02 11:38 ` Basil L. Contovounesios
2021-03-02 11:56 ` Mauro Aranda
2021-03-03 16:31 ` Basil L. Contovounesios
2021-03-03 18:06 ` Protesilaos Stavrou
2021-03-04 2:04 ` Basil L. Contovounesios
2021-03-04 4:53 ` Protesilaos Stavrou
2021-03-04 12:32 ` Mauro Aranda
2021-03-04 14:54 ` bug#45068: [PATCH] Modus themes 1.2.0 (was: bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible)) Protesilaos Stavrou
2021-03-04 16:53 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda
2021-03-04 18:41 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios
2021-03-04 20:57 ` Protesilaos Stavrou
2021-03-04 22:06 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Mauro Aranda
2021-03-05 6:34 ` Protesilaos Stavrou
2021-03-05 17:11 ` Basil L. Contovounesios
2021-03-05 17:34 ` Protesilaos Stavrou
2021-03-04 22:40 ` Mauro Aranda
2021-03-05 6:07 ` Protesilaos Stavrou
2021-03-05 17:11 ` bug#45068: [PATCH] Modus themes 1.2.0 Basil L. Contovounesios
2021-03-05 17:50 ` Protesilaos Stavrou
2021-03-05 22:00 ` Basil L. Contovounesios
2021-03-06 5:13 ` Protesilaos Stavrou
2021-03-06 9:29 ` Basil L. Contovounesios
2021-03-05 21:11 ` Gregory Heytings
2021-03-06 13:24 ` Gregory Heytings
2021-03-06 15:22 ` Protesilaos Stavrou
2021-03-06 18:25 ` Gregory Heytings
2021-03-06 18:43 ` Protesilaos Stavrou
2021-03-04 15:47 ` bug#45068: [PATCH] 28.0.50; Update Modus themes 1.0.2 (backward-incompatible) Basil L. Contovounesios
2020-12-11 14:32 ` Christopher Dimech
2020-12-11 16:05 ` Protesilaos Stavrou
2020-12-11 16:31 ` Christopher Dimech
2020-12-11 14:25 ` Christopher Dimech
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).