emacs: retire use of string colours

This commit is contained in:
Jeremy Baxter 2024-07-29 15:19:58 +12:00
parent f2903214b1
commit ea0bc27f4e

View file

@ -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))))