[elpa] externals/ef-themes d1cfacae11 1/4: Select a theme variant using 'read-multiple-choice'

[ELPA Syncer]

branch: externals/ef-themes
commit d1cfacae11cf1f0086a7138007290f78dce5abab
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Select a theme variant using 'read-multiple-choice'
---
 ef-themes.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index 1830cc294a..ad96a01b88 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -401,8 +401,11 @@ prompts with completion for either `light' or `dark'."
   (interactive
    (list
     (when current-prefix-arg
-      (intern (completing-read "Random choice of Ef themes VARIANT: "
-                               '(light dark) nil t)))))
+      (intern (cadr (read-multiple-choice
+                    "Variant"
+                    '((?d "dark" "Load a random dark theme")
+                      (?l "light" "Load a random light theme"))
+                    "Limit the variation themes to select."))))))
   (let* ((themes (ef-themes--minus-current variant))
          (n (random (length themes)))
          (pick (nth n themes)))