branch: externals/doric-themes
commit ef3d0f6f7ecaa376c4b62d5f4258dafc83d9eca7
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add doric-cherry theme
---
doric-cherry-theme.el | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++
doric-themes.el | 7 ++++-
2 files changed, 78 insertions(+), 1 deletion(-)
diff --git a/doric-cherry-theme.el b/doric-cherry-theme.el
new file mode 100644
index 0000000000..e60ad970cb
--- /dev/null
+++ b/doric-cherry-theme.el
@@ -0,0 +1,72 @@
+;;; doric-cherry-theme.el --- Minimalist light theme -*- lexical-binding:t -*-
+
+;; Copyright (C) 2025 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <i...@protesilaos.com>
+;; Maintainer: Protesilaos Stavrou <i...@protesilaos.com>
+;; URL: https://github.com/protesilaos/ef-themes
+;; Keywords: faces, theme, accessibility
+
+;; This file is NOT 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:
+;;
+;; A collection of highly legible, minimalist themes. If you want
+;; something more colourful, use my `ef-themes'. For a "good default"
+;; theme, try my `modus-themes'.
+;;
+;; The backronym of the `doric-themes' is: Doric Only Really
+;; Intensifies Conservatively ... 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 'doric-themes t))
+ (require 'doric-themes))
+
+ (defvar doric-cherry-palette
+ '((cursor "#a02050")
+ (bg-main "#f7edf1")
+ (fg-main "#311926")
+ (border "#c4a7b0")
+
+ (bg-shadow-subtle "#e3d8db")
+ (fg-shadow-subtle "#655260")
+
+ (bg-neutral "#d8cad1")
+
+ (bg-shadow-intense "#cc95b7")
+ (fg-shadow-intense "#5e2249")
+
+ (bg-accent "#ecc7e3")
+ (fg-accent "#85296f")
+
+ (fg-faint-red "#750000")
+ (fg-faint-green "#056100")
+ (fg-faint-yellow "#5f4602")
+ (fg-faint-blue "#353362")
+ (fg-faint-magenta "#553372")
+ (fg-faint-cyan "#35485e"))
+ "Palette of `doric-cherry' theme.")
+
+ (doric-themes-define-theme doric-cherry light))
+
+(provide 'doric-cherry-theme)
+;;; doric-cherry-theme.el ends here
diff --git a/doric-themes.el b/doric-themes.el
index f158d6a76a..ae41030001 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -38,7 +38,12 @@
(require 'seq)
(eval-when-compile (require 'subr-x))
-(defconst doric-themes-light-themes '(doric-light doric-marble doric-earth
doric-wind)
+(defconst doric-themes-light-themes
+ '(doric-cherry
+ doric-earth
+ doric-light
+ doric-marble
+ doric-wind)
"Light themes.")
(defconst doric-themes-dark-themes '(doric-dark doric-obsidian doric-fire
doric-water)
