branch: externals/doric-themes
commit 310570c68012de13363ace86159d9904cf8f2763
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Add doric-marble and doric-obsidian themes
---
 doric-marble-theme.el   | 69 +++++++++++++++++++++++++++++++++++++++++++++++++
 doric-obsidian-theme.el | 69 +++++++++++++++++++++++++++++++++++++++++++++++++
 doric-themes.el         |  4 +--
 3 files changed, 140 insertions(+), 2 deletions(-)

diff --git a/doric-marble-theme.el b/doric-marble-theme.el
new file mode 100644
index 0000000000..a24f4eadda
--- /dev/null
+++ b/doric-marble-theme.el
@@ -0,0 +1,69 @@
+;;; doric-marble-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-marble-palette
+    '((cursor "#403030")
+      (bg-main "#ededed")
+      (fg-main "#202020")
+
+      (bg-shadow-subtle "#dedede")
+      (fg-shadow-subtle "#405060")
+
+      (bg-shadow-intense "#b0b0b0")
+      (fg-shadow-intense "#454545")
+
+      (bg-accent "#ded0bf")
+      (fg-accent "#583032")
+
+      (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-marble' theme.")
+
+  (doric-themes-define-theme doric-marble light))
+
+(provide 'doric-marble-theme)
+;;; doric-marble-theme.el ends here
diff --git a/doric-obsidian-theme.el b/doric-obsidian-theme.el
new file mode 100644
index 0000000000..19e52f8ed5
--- /dev/null
+++ b/doric-obsidian-theme.el
@@ -0,0 +1,69 @@
+;;; doric-obsidian-theme.el --- Minimalist dark 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-obsidian-palette
+    '((cursor "#eeddbb")
+      (bg-main "#181818")
+      (fg-main "#e7e7e7")
+
+      (bg-shadow-subtle "#2f2f2f")
+      (fg-shadow-subtle "#9a9a9a")
+
+      (bg-shadow-intense "#505050")
+      (fg-shadow-intense "#b2b2b2")
+
+      (bg-accent "#4a2b29")
+      (fg-accent "#b07965")
+
+      (fg-faint-red "#dba2a2")
+      (fg-faint-green "#85c397")
+      (fg-faint-yellow "#c4a992")
+      (fg-faint-blue "#95afd2")
+      (fg-faint-magenta "#c5a3b2")
+      (fg-faint-cyan "#a5bfce"))
+  "Palette of `doric-obsidian' theme.")
+
+  (doric-themes-define-theme doric-obsidian dark))
+
+(provide 'doric-obsidian-theme)
+;;; doric-obsidian-theme.el ends here
diff --git a/doric-themes.el b/doric-themes.el
index d5b60282d6..2bdab19b03 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -38,10 +38,10 @@
 (require 'seq)
 (eval-when-compile (require 'subr-x))
 
-(defconst doric-themes-light-themes '(doric-light doric-earth doric-wind)
+(defconst doric-themes-light-themes '(doric-light doric-marble doric-earth 
doric-wind)
   "Light themes.")
 
-(defconst doric-themes-dark-themes '(doric-dark doric-fire doric-water)
+(defconst doric-themes-dark-themes '(doric-dark doric-obsidian doric-fire 
doric-water)
   "Dark themes.")
 
 (defconst doric-themes-collection

Reply via email to