[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes 20efd1dea6: Improve ef-themes-to-toggle custo
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes 20efd1dea6: Improve ef-themes-to-toggle custom :type |
Date: |
Fri, 19 Aug 2022 11:57:41 -0400 (EDT) |
branch: externals/ef-themes
commit 20efd1dea617534ca1e332e07edf18e9f2612045
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Improve ef-themes-to-toggle custom :type
---
ef-themes.el | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/ef-themes.el b/ef-themes.el
index cf079ed1db..c20c9581e1 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -80,7 +80,17 @@ This is used by the commands `ef-themes-select' and
"Specify two `ef-themes' for `ef-themes-toggle' command.
The variable `ef-themes-collection' contains the symbols of all
themes that form part of this collection."
- :type '(repeat symbol) ; FIXME 2022-08-19: Replace `symbol' with specific
choices. How?
+ :type `(choice
+ (const :tag "No toggle (default)" nil)
+ (list :tag "Pick two themes to toggle between"
+ (choice :tag "Theme one of two"
+ ,@(mapcar (lambda (theme)
+ (list 'const theme))
+ ef-themes-collection))
+ (choice :tag "Theme two of two"
+ ,@(mapcar (lambda (theme)
+ (list 'const theme))
+ ef-themes-collection))))
:group 'ef-themes)
(defconst ef-themes-weights
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/ef-themes 20efd1dea6: Improve ef-themes-to-toggle custom :type,
ELPA Syncer <=