Select a theme variant using 'read-multiple-choice' v1 APPLIED

Philip Kaludercic: 2
 Select a theme variant using 'read-multiple-choice'
 Add a .dir-locals.el to avoid whitespace issue

 2 files changed, 11 insertions(+), 2 deletions(-)

Hello Philip,

I installed both patches.  Thank you!

All the best,
Prot

[PATCH 1/2] Select a theme variant using 'read-multiple-choice' Export this patch

---
 ef-themes.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index 1830cc2..ad96a01 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)))
-- 
2.37.2

[PATCH 2/2] Add a .dir-locals.el to avoid whitespace issue Export this patch

---
 .dir-locals.el | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 .dir-locals.el

diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 0000000..6d22de3
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,6 @@
+;;; Directory Local Variables
+;;; For more information see (info "(emacs) Directory Variables")
+
+((emacs-lisp-mode
+  (show-trailing-whitespace . t)
+  (indent-tabs-mode . nil)))
-- 
2.37.2

Protesilaos Stavrou <info@protesilaos.com>

2 years ago

Hello Philip,

I installed both patches.  Thank you!

All the best,
Prot