From 77e05b508d9c03fb5ec3e53c757b580092084982 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Sun, 8 Mar 2026 19:19:02 +0200 Subject: Make the function with the compatibility aliases cover functions as well Thanks to aikrahguzar for telling me that ef-themes-get-color-value was missing. This was done in issue 70: . I took this opportunity to tweak how we define all such aliases. --- ef-themes.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/ef-themes.el b/ef-themes.el index 02f0e08..bddd81f 100644 --- a/ef-themes.el +++ b/ef-themes.el @@ -266,22 +266,18 @@ Alternatively, use the commands `ef-themes-rotate', `ef-themes-select', `ef-themes-list-colors-current'. They are all designed to only consider Ef themes." our-symbol modus-symbol))))) -(defun ef-themes-define-option-aliases () +(defun ef-themes-define-compatibility-aliases () "Define aliases for the user options of the Modus themes." (unless ef-themes--aliased-p - (dolist (suffix '( disable-other-themes to-toggle to-rotate after-load-theme-hook + (dolist (user-option-suffix '( disable-other-themes to-toggle to-rotate after-load-theme-hook post-load-hook italic-constructs bold-constructs variable-pitch-ui mixed-fonts headings completions prompts common-palette-overrides)) - (ef-themes-define-alias "ef-themes" suffix)) + (ef-themes-define-alias "ef-themes" user-option-suffix)) + (dolist (function-suffix '(load-theme with-colors get-color-value)) + (ef-themes-define-alias "ef-themes" function-suffix :is-function)) (setq ef-themes--aliased-p t))) -(ef-themes-define-option-aliases) - -(defalias 'ef-themes-load-theme 'modus-themes-load-theme - "Alias for `modus-themes-load-theme'.") - -(defalias 'ef-themes-with-colors 'modus-themes-with-colors - "Alias for `modus-themes-with-colors.") +(ef-themes-define-compatibility-aliases) ;;;; Limit the Modus themes to only Ef themes -- cgit v1.0