From e9ed1ec11e58a7c0d282b1c0f520289a8e80c5ea Mon Sep 17 00:00:00 2001 From: Jeremy Baxter Date: Sun, 11 Aug 2024 13:38:57 +1200 Subject: [PATCH] refactor: rename catppuccin-get-color to catppuccin-color Adhere to Emacs naming conventions. --- catppuccin-theme.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/catppuccin-theme.el b/catppuccin-theme.el index a399451..c0325ca 100644 --- a/catppuccin-theme.el +++ b/catppuccin-theme.el @@ -221,7 +221,7 @@ or `mocha'." (interactive "SChange color: \nsSet %s to: ") (setcdr (assoc color (symbol-value (intern-soft (concat "catppuccin-" (symbol-name (or flavor catppuccin-flavor)) "-colors")))) value)) -(defun catppuccin-get-color (color &optional flavor) +(defun catppuccin-color (color &optional flavor) "Get the COLOR of FLAVOR or the current flavor." (interactive "SColor: ") (let ((result (alist-get color (symbol-value (intern-soft (concat "catppuccin-" (symbol-name (or flavor catppuccin-flavor)) "-colors")))))) @@ -229,6 +229,8 @@ or `mocha'." (message result) result))) +(defalias 'catppuccin-get-color 'catppuccin-color) + ;;; Theme definition: (let