branch: externals/ef-themes commit a4c653e587085735354c242248a55c2d7210c405 Author: Protesilaos Stavrou <i...@protesilaos.com> Commit: Protesilaos Stavrou <i...@protesilaos.com>
Simplify ef-themes--current-theme Thanks to Jonas Collberg for the feedback in issue 12 over at the GitHub mirror: <https://github.com/protesilaos/ef-themes/issues/12>. --- ef-themes.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/ef-themes.el b/ef-themes.el index 3e8bf841e2..d5347a2b9c 100644 --- a/ef-themes.el +++ b/ef-themes.el @@ -320,9 +320,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 (ef-themes--list-enabled-themes)))) - (if (memq theme (ef-themes--list-enabled-themes)) - theme - (user-error "`%s' is not an Ef theme" theme)))) + theme)) (defun ef-themes--palette (theme) "Return THEME palette as a symbol."