;;; modus-operandi-tinted-theme.el --- Elegant, highly legible theme with a light ochre background -*- lexical-binding:t -*- ;; Copyright (C) 2019-2024 Free Software Foundation, Inc. ;; Author: Protesilaos Stavrou <info@protesilaos.com> ;; Maintainer: Modus-Themes Development <~protesilaos/modus-themes@lists.sr.ht> ;; URL: https://git.sr.ht/~protesilaos/modus-themes ;; Mailing-List: https://lists.sr.ht/~protesilaos/modus-themes ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; The Modus themes conform with the highest standard for ;; color-contrast accessibility between background and foreground ;; values (WCAG AAA). Please refer to the official Info manual for ;; further documentation (distributed with the themes, or available ;; at: <https://protesilaos.com/emacs/modus-themes>). ;;; Code: (eval-and-compile (unless (and (fboundp 'require-theme) load-file-name (equal (file-name-directory load-file-name) (expand-file-name "themes/" data-directory)) (require-theme 'modus-themes t)) (require 'modus-themes)) ;;;###theme-autoload (deftheme modus-operandi-tinted "Elegant, highly legible theme with a light ochre background. Conforms with the highest legibility standard for color contrast between background and foreground in any given piece of text, which corresponds to a minimum contrast in relative luminance of 7:1 (WCAG AAA standard)." :background-mode 'light :kind 'color-scheme :family 'modus) (defconst modus-operandi-tinted-palette '( ;;; Basic values (bg-main "#edeae5") (bg-dim "#e5e7e4") (fg-main "#34494a") (fg-dim "#777294") (fg-alt "#9d5e7a") (bg-info "#cfedd1") (bg-err "#f6c9ce") (bg-active "#c0c6c3") (bg-inactive bg-dim) (border "#376751") ;;; Common accent foregrounds (red "#ef4444") (red-warmer "#fb7185") (red-cooler "#f43f5e") (red-faint "#dc2626") (red-intense "#b91c1c") (green "#22c55e") (green-warmer "#2c7c79") (green-cooler "#84cc16") (green-faint "#16a34a") (green-intense "#15803d") (yellow "#eab308") (yellow-warmer "#f59e0b") (yellow-cooler "#fbbf24") (yellow-faint "#ee7744") (yellow-intense "#a16207") (blue "#3b82f6") (blue-warmer "#818cf8") (blue-cooler "#6366f1") (blue-faint "#2563eb") (blue-intense "#1d4ed8") (magenta "#ec4899") (magenta-warmer "#e879f9") (magenta-cooler "#d946ef") (magenta-faint "#db2777") (magenta-intense "#be185d") (cyan "#06b6d4") (cyan-warmer "#38bdf8") (cyan-cooler "#0ea5e9") (cyan-faint "#0891b2") (cyan-intense "#0e7490") (purple "#a855f7") (purple-warmer "#a78bfa") (purple-cooler "#8b5cf6") (purple-faint "#9333ea") (purple-intense "#7e22ce") ;;; Uncommon accent foregrounds (rust "#B54434") (gold "#E2943B") (olive "#7BA23F") (slate "#4E4F97") (indigo "#77428D") (maroon "#C1328E") (pink "#A8497A") ;;; Common accent backgrounds (bg-red-intense "#ff8f88") (bg-green-intense "#6fdf30") (bg-yellow-intense "#efcf00") (bg-blue-intense "#afdfff") (bg-magenta-intense "#df8fff") (bg-cyan-intense "#88cfe0") (bg-red-subtle "#ffcfbf") (bg-green-subtle "#afffbf") (bg-yellow-subtle "#fff576") (bg-blue-subtle "#ccdfff") (bg-magenta-subtle "#ffddff") (bg-cyan-subtle "#bfefff") (bg-red-nuanced "#ffeced") (bg-green-nuanced "#e5f7e7") (bg-yellow-nuanced "#faf1d5") (bg-blue-nuanced "#f0f0ff") (bg-magenta-nuanced "#f8eaf4") (bg-cyan-nuanced "#e6f3fa") ;;; Graphs (bg-graph-red-0 "#ef7969") (bg-graph-red-1 "#ffaab4") (bg-graph-green-0 "#45c050") (bg-graph-green-1 "#75ef30") (bg-graph-yellow-0 "#ffcf00") (bg-graph-yellow-1 "#f9ff00") (bg-graph-blue-0 "#7f90ff") (bg-graph-blue-1 "#a6c0ff") (bg-graph-magenta-0 "#e07fff") (bg-graph-magenta-1 "#fad0ff") (bg-graph-cyan-0 "#70d3f0") (bg-graph-cyan-1 "#afefff") ;;; Uncommon accent background and foreground pairs (bg-clay "#f1c8b5") (fg-clay "#63192a") (bg-ochre "#f0e3c0") (fg-ochre "#573a30") (bg-lavender "#dfcdfa") (fg-lavender "#443379") (bg-sage "#c0e7d4") (fg-sage "#145e2f") ;;; Special purpose (bg-completion "#ccd8e6") ;; #f0e3ce (bg-hover bg-main) (bg-hover-secondary "#f0bfff") (bg-hl-line bg-completion) (bg-region "#b3d7fe") (fg-region fg-main) (fg-comment "#808F7C") (bg-char-0 "#7feaff") (bg-char-1 "#ffaaff") (bg-char-2 "#dff000") (bg-mode-line-active bg-main) (fg-mode-line-active fg-main) (border-mode-line-active bg-completion) (bg-mode-line-inactive "#e1e6e3") (fg-mode-line-inactive "#969696") (border-mode-line-inactive "#c0c6c3") (modeline-err "#9f0030") (modeline-warning "#5f0f9f") (modeline-info "#1240af") (bg-tab-bar bg-main) (bg-tab-current bg-main) (bg-tab-other bg-main) ;;; Diffs (bg-added "#c9ffda") (bg-added-faint "#d7ffe5") (bg-added-refine "#b3efcf") (bg-added-fringe "#23884f") (fg-added "#005000") (fg-added-intense "#80e080") (bg-changed "#f0e8bd") (bg-changed-faint "#f5efcb") (bg-changed-refine "#efd299") (bg-changed-fringe "#edce5f") (fg-changed "#553d00") (fg-changed-intense "#c0b05f") (bg-removed "#ffd6e0") (bg-removed-faint "#ffe9e6") (bg-removed-refine "#f5bfc8") (bg-removed-fringe "#b81a26") (fg-removed "#8f1313") (fg-removed-intense "#ff9095") (bg-diff-context "#e9f0f0") ;;; Paren match (bg-paren-match "#7fdfcf") (fg-paren-match fg-main) (bg-paren-expression "#efd3f5") (underline-paren-match unspecified) ;;; Mappings ;;;; General mappings (fringe bg-dim) (cursor maroon) (keybind red) (name magenta) (identifier yellow-faint) (err red) (warning yellow-warmer) (info cyan-cooler) (underline-err red-intense) (underline-warning yellow) (underline-note cyan) (bg-prominent-err bg-red-intense) (fg-prominent-err fg-main) (bg-prominent-warning bg-yellow-intense) (fg-prominent-warning fg-main) (bg-prominent-note bg-cyan-intense) (fg-prominent-note fg-main) (bg-active-argument bg-yellow-nuanced) (fg-active-argument yellow-warmer) (bg-active-value bg-cyan-nuanced) (fg-active-value cyan-warmer) ;;;; Code mappings (bracket fg-main) (builtin "#D33682") (comment fg-comment) (constant "#268BD2") (delimiter fg-main) (docstring "#f59e0b") (docmarkup "#D33682") (fnname "#D33682") (keyword "#D33682") (number fg-main) (operator fg-main) (preprocessor "#DC322F") (punctuation fg-main) (rx-backslash "#D33682") (rx-construct "#859900") (string "#268BD2") (type "#6C71C4") (variable "#2AA198") ;;;; Accent mappings (accent-0 blue-cooler) (accent-1 magenta-warmer) (accent-2 cyan-cooler) (accent-3 yellow) ;;;; Button mappings (fg-button-active fg-main) (fg-button-inactive fg-dim) (bg-button-active bg-active) (bg-button-inactive bg-dim) ;;;; Completion mappings (fg-completion-match-0 cyan-intense) (fg-completion-match-1 red-warmer) (fg-completion-match-2 magenta) (fg-completion-match-3 cyan-cooler) (bg-completion-match-0 unspecified) (bg-completion-match-1 unspecified) (bg-completion-match-2 unspecified) (bg-completion-match-3 unspecified) ;;;; Date mappings (date-common cyan) (date-deadline red-cooler) (date-deadline-subtle red-faint) (date-event fg-alt) (date-holiday red) (date-holiday-other blue) (date-now fg-main) (date-range fg-alt) (date-scheduled yellow) (date-scheduled-subtle yellow-faint) (date-weekday cyan) (date-weekend magenta) ;;;; Line number mappings (fg-line-number-inactive fg-dim) (fg-line-number-active fg-main) (bg-line-number-inactive bg-main) (bg-line-number-active bg-dim) ;;;; Link mappings (fg-link blue-warmer) (bg-link unspecified) (underline-link blue-warmer) (fg-link-symbolic cyan) (bg-link-symbolic unspecified) (underline-link-symbolic cyan) (fg-link-visited magenta) (bg-link-visited unspecified) (underline-link-visited magenta) ;;;; Mail mappings (mail-cite-0 blue-warmer) (mail-cite-1 yellow-cooler) (mail-cite-2 cyan-cooler) (mail-cite-3 red-cooler) (mail-part blue) (mail-recipient magenta-cooler) (mail-subject magenta-warmer) (mail-other magenta-faint) ;;;; Mark mappings (bg-mark-delete bg-red-subtle) (fg-mark-delete red-cooler) (bg-mark-select bg-cyan-subtle) (fg-mark-select cyan) (bg-mark-other bg-yellow-subtle) (fg-mark-other yellow) ;;;; Prompt mappings (fg-prompt fg-main) (bg-prompt unspecified) (bg-space-err bg-red-intense) ;;;; Prose mappings (bg-prose-block-delimiter bg-inactive) (fg-prose-block-delimiter fg-dim) (bg-prose-block-contents bg-inactive) (bg-prose-code unspecified) (fg-prose-code cyan-cooler) (bg-prose-macro unspecified) (fg-prose-macro magenta-cooler) (bg-prose-verbatim unspecified) (fg-prose-verbatim magenta-warmer) (prose-done green-faint) (prose-todo red) (prose-metadata fg-dim) (prose-metadata-value fg-alt) (prose-table fg-alt) (prose-table-formula magenta-warmer) (prose-tag magenta-faint) ;;;; Rainbow mappings (rainbow-0 fg-main) (rainbow-1 magenta-intense) (rainbow-2 cyan-intense) (rainbow-3 red-warmer) (rainbow-4 yellow-intense) (rainbow-5 magenta-cooler) (rainbow-6 green-intense) (rainbow-7 blue-warmer) (rainbow-8 magenta-warmer) ;;;; Search mappings (bg-search-current bg-yellow-intense) (bg-search-lazy bg-cyan-intense) (bg-search-replace bg-red-intense) (bg-search-rx-group-0 bg-blue-intense) (bg-search-rx-group-1 bg-green-intense) (bg-search-rx-group-2 bg-red-subtle) (bg-search-rx-group-3 bg-magenta-subtle) ;;;; Space mappings (bg-space unspecified) (fg-space border) ;;;; Terminal mappings (bg-term-black "#000000") (fg-term-black "#000000") (bg-term-black-bright "#595959") (fg-term-black-bright "#595959") (bg-term-red red) (fg-term-red red) (bg-term-red-bright red-warmer) (fg-term-red-bright red-warmer) (bg-term-green green) (fg-term-green green) (bg-term-green-bright green-cooler) (fg-term-green-bright green-cooler) (bg-term-yellow yellow) (fg-term-yellow yellow) (bg-term-yellow-bright yellow-warmer) (fg-term-yellow-bright yellow-warmer) (bg-term-blue blue) (fg-term-blue blue) (bg-term-blue-bright blue-warmer) (fg-term-blue-bright blue-warmer) (bg-term-magenta magenta) (fg-term-magenta magenta) (bg-term-magenta-bright magenta-cooler) (fg-term-magenta-bright magenta-cooler) (bg-term-cyan cyan) (fg-term-cyan cyan) (bg-term-cyan-bright cyan-cooler) (fg-term-cyan-bright cyan-cooler) (bg-term-white "#a6a6a6") (fg-term-white "#a6a6a6") (bg-term-white-bright "#ffffff") (fg-term-white-bright "#ffffff") ;;;; Heading mappings (fg-heading-0 purple-cooler) (fg-heading-1 green-faint) (fg-heading-2 red-cooler) (fg-heading-3 blue-cooler) (fg-heading-4 yellow-faint) (fg-heading-5 green-faint) (fg-heading-6 red-cooler) (fg-heading-7 blue-cooler) (fg-heading-8 yellow-faint) (bg-heading-0 unspecified) (bg-heading-1 unspecified) (bg-heading-2 unspecified) (bg-heading-3 unspecified) (bg-heading-4 unspecified) (bg-heading-5 unspecified) (bg-heading-6 unspecified) (bg-heading-7 unspecified) (bg-heading-8 unspecified) (overline-heading-0 unspecified) (overline-heading-1 unspecified) (overline-heading-2 unspecified) (overline-heading-3 unspecified) (overline-heading-4 unspecified) (overline-heading-5 unspecified) (overline-heading-6 unspecified) (overline-heading-7 unspecified) (overline-heading-8 unspecified)) "The entire palette of the `modus-operandi-tinted' theme. Named colors have the form (COLOR-NAME HEX-VALUE) with the former as a symbol and the latter as a string. Semantic color mappings have the form (MAPPING-NAME COLOR-NAME) with both as symbols. The latter is a named color that already exists in the palette and is associated with a HEX-VALUE.") (defcustom modus-operandi-tinted-palette-overrides nil "Overrides for `modus-operandi-tinted-palette'. Mirror the elements of the aforementioned palette, overriding their value. For overrides that are shared across all of the Modus themes, refer to `modus-themes-common-palette-overrides'. Theme-specific overrides take precedence over shared overrides. The idea of common overrides is to change semantic color mappings, such as to make the cursor red. Wherea theme-specific overrides can also be used to change the value of a named color, such as what hexadecimal RGB value the red-warmer symbol represents." :group 'modus-themes :package-version '(modus-themes . "4.0.0") :version "30.1" :type '(repeat (list symbol (choice symbol string))) :set #'modus-themes--set-option :initialize #'custom-initialize-default :link '(info-link "(modus-themes) Palette overrides")) (modus-themes-theme modus-operandi-tinted modus-operandi-tinted-palette modus-operandi-tinted-palette-overrides) (provide-theme 'modus-operandi-tinted)) ;;; modus-operandi-tinted-theme.el ends here