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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ef-themes 9c66a79c3d: Fix how themes become "known" at


From: ELPA Syncer
Subject: [elpa] externals/ef-themes 9c66a79c3d: Fix how themes become "known" at startup
Date: Sat, 20 Aug 2022 22:57:36 -0400 (EDT)

branch: externals/ef-themes
commit 9c66a79c3d1f91819d6bc9a14419185be4f1345a
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Fix how themes become "known" at startup
    
    Before, this would not show all the themes in 'ef-themes-select':
    
        (require 'ef-themes)
        (load-theme 'ef-summer t)
    
    Thanks to Jean-Philippe Gagné Guay for the feedback in issue 6 over at
    the GitHub mirror: <https://github.com/protesilaos/denote/issues/6>.
---
 README.org   | 4 ++--
 ef-themes.el | 8 +++-----
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index 69dad83b06..39e5f5d0eb 100644
--- a/README.org
+++ b/README.org
@@ -529,8 +529,8 @@ matters.
 
 + Contributions to code or the manual :: Philip Kaludercic.
 
-+ Ideas and/or user feedback :: Iris Garcia, Spike-Leung, Summer Emacs,
-  Zoltán Király.
++ Ideas and/or user feedback :: Iris Garcia, Jean-Philippe Gagné Guay,
+  Spike-Leung, Summer Emacs, Zoltán Király.
 
 * GNU Free Documentation License
 :PROPERTIES:
diff --git a/ef-themes.el b/ef-themes.el
index f2e5e0be60..d66ef9302c 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -265,15 +265,13 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
 (defun ef-themes--enable-themes ()
   "Enable all Ef themes."
   (mapc (lambda (theme)
-          (load-theme theme :no-confirm :no-enable))
+          (unless (memq theme custom-known-themes)
+            (load-theme theme :no-confirm :no-enable)))
         ef-themes-collection))
 
 (defun ef-themes--list-known-themes ()
   "Return list of `custom-known-themes' with ef- prefix."
-  (unless (seq-find (lambda (theme)
-                      (string-prefix-p "ef-" (symbol-name theme)))
-                    custom-known-themes)
-    (ef-themes--enable-themes))
+  (ef-themes--enable-themes)
   (seq-filter
    (lambda (theme)
      (string-prefix-p "ef-" (symbol-name theme)))



reply via email to

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