emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]