[elpa] externals/ef-themes b385a08284 2/2: ef-deuteranopia-dark: tweak rainbow-5 mapping

[ELPA Syncer]

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

    ef-deuteranopia-dark: tweak rainbow-5 mapping
---
 ef-deuteranopia-dark-theme.el | 2 +-
 ef-themes.el                  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index e20fe2cf72..5444f100c3 100644
--- a/ef-deuteranopia-dark-theme.el
+++ b/ef-deuteranopia-dark-theme.el
@@ -174,7 +174,7 @@
       (rainbow-2 yellow-cooler)
       (rainbow-3 blue-warmer)
       (rainbow-4 yellow)
-      (rainbow-5 blue-cooler)
+      (rainbow-5 cyan-warmer)
       (rainbow-6 yellow-faint)
       (rainbow-7 blue-faint)
       (rainbow-8 magenta-faint))
diff --git a/ef-themes.el b/ef-themes.el
index edbe8e11c4..0a8054b15c 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -319,7 +319,7 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
 
 (defun ef-themes--current-theme ()
   "Return first enabled Ef theme."
-  (when-let* ((theme (car custom-enabled-themes)))
+  (when-let* ((theme (car (ef-themes--list-enabled-themes))))
     (if (memq theme (ef-themes--list-enabled-themes))
         theme
       (user-error "`%s' is not an Ef theme" theme))))