[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes 63371b01f2 3/5: Add ef-themes-collection and
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes 63371b01f2 3/5: Add ef-themes-collection and use it internally |
Date: |
Fri, 19 Aug 2022 08:57:38 -0400 (EDT) |
branch: externals/ef-themes
commit 63371b01f24480e71baf60e95908d74f6392fbee
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add ef-themes-collection and use it internally
---
ef-themes.el | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/ef-themes.el b/ef-themes.el
index cc58c9d42b..d746f0ff8a 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -216,6 +216,19 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
;;; Commands and their helper functions
+(defconst ef-themes-collection
+ '(ef-autumn
+ ef-dark
+ ef-day
+ ef-deuteranopia-dark
+ ef-deuteranopia-light
+ ef-light
+ ef-night
+ ef-spring
+ ef-summer
+ ef-winter)
+ "Symbols of all the Ef themes.")
+
(defconst ef-themes-light-themes '( ef-day ef-light ef-spring ef-summer
ef-deuteranopia-light)
"List of symbols with the light Ef themes.")
@@ -235,8 +248,7 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
"Enable all Ef themes."
(mapc (lambda (theme)
(load-theme theme :no-confirm :no-enable))
- (append ef-themes-light-themes
- ef-themes-dark-themes)))
+ ef-themes-collection))
(defun ef-themes--list-known-themes ()
"Return list of `custom-known-themes' with ef- prefix."