branch: externals/ef-themes
commit 8448e1fc16108c97c7cfecff4de32626946dd080
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Move helper function further up in the outline
---
ef-themes.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/ef-themes.el b/ef-themes.el
index ea8acb3376..fb72c67900 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -63,6 +63,15 @@
(string-prefix-p "ef-" (symbol-name theme)))
custom-known-themes))
+(defun ef-themes--current-theme-palette ()
+ "Return palette of active Ef theme, else produce `user-error'."
+ (if-let* ((themes (ef-themes--list-enabled-themes))
+ (palette (intern
+ (format "%s-palette"
+ (car themes)))))
+ palette
+ (user-error "No enabled Ef theme could be found")))
+
(defvar ef-themes--select-theme-history nil)
(defun ef-themes--select-prompt ()
@@ -939,15 +948,6 @@ Those are stored in `ef-themes-faces' and
;;; Use theme colors
-(defun ef-themes--current-theme-palette ()
- "Return palette of active Ef theme, else produce `user-error'."
- (if-let* ((themes (ef-themes--list-enabled-themes))
- (palette (intern
- (format "%s-palette"
- (car themes)))))
- palette
- (user-error "No enabled Ef theme could be found")))
-
(defmacro ef-themes-with-colors (&rest body)
"Evaluate BODY with colors from current palette bound."
(declare (indent 0))
