From ea0bc27f4ee68101894f1ebfa222ffe3a21ce0a9 Mon Sep 17 00:00:00 2001 From: Jeremy Baxter Date: Mon, 29 Jul 2024 15:19:58 +1200 Subject: [PATCH] emacs: retire use of string colours --- .emacs.d/init.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 86bfdd4..62c2394 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -310,7 +310,8 @@ value `italic'." ( accent (catppuccin-get-color 'yellow)) (bground (catppuccin-get-color 'base)) ( darker (catppuccin-get-color 'mantle)) - (darkest (catppuccin-get-color 'crust))) + (darkest (catppuccin-get-color 'crust)) + ( text (catppuccin-get-color 'text))) (add-to-list 'default-frame-alist (cons 'font fixedpt)) (set-face-attributes `((default :height 140) @@ -327,9 +328,9 @@ value `italic'." :extend t :background ,darker :box (:line-width (1 . 1) :color ,darkest)) (custom-button - :background ,darker :foreground "white" + :background ,darker :foreground ,text :box (:line-width (1 . 1) :color ,darkest :style nil)) - (custom-button-mouse :background ,darkest :foreground "white") + (custom-button-mouse :background ,darkest :foreground ,text) (custom-button-pressed :inherit custom-button-mouse :box (:line-width (1 . 1) :color ,darkest)) (match :background ,accent) @@ -339,7 +340,7 @@ value `italic'." (breadcrumb-imenu-leaf-face :foreground ,accent) (dashboard-heading :foreground ,accent :height 1.1 :weight bold) (corfu-default :background ,darker) - (corfu-current :background "#2a2e38" :box ,accent) + (corfu-current :background ,darkest :box ,accent) (corfu-border :background ,accent) (corfu-bar :background ,accent) (orderless-match-face-0 :foreground ,accent))))