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)) ( accent (catppuccin-get-color 'yellow))
(bground (catppuccin-get-color 'base)) (bground (catppuccin-get-color 'base))
( darker (catppuccin-get-color 'mantle)) ( 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)) (add-to-list 'default-frame-alist (cons 'font fixedpt))
(set-face-attributes (set-face-attributes
`((default :height 140) `((default :height 140)
@ -327,9 +328,9 @@ value `italic'."
:extend t :background ,darker :extend t :background ,darker
:box (:line-width (1 . 1) :color ,darkest)) :box (:line-width (1 . 1) :color ,darkest))
(custom-button (custom-button
:background ,darker :foreground "white" :background ,darker :foreground ,text
:box (:line-width (1 . 1) :color ,darkest :style nil)) :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 (custom-button-pressed :inherit custom-button-mouse
:box (:line-width (1 . 1) :color ,darkest)) :box (:line-width (1 . 1) :color ,darkest))
(match :background ,accent) (match :background ,accent)
@ -339,7 +340,7 @@ value `italic'."
(breadcrumb-imenu-leaf-face :foreground ,accent) (breadcrumb-imenu-leaf-face :foreground ,accent)
(dashboard-heading :foreground ,accent :height 1.1 :weight bold) (dashboard-heading :foreground ,accent :height 1.1 :weight bold)
(corfu-default :background ,darker) (corfu-default :background ,darker)
(corfu-current :background "#2a2e38" :box ,accent) (corfu-current :background ,darkest :box ,accent)
(corfu-border :background ,accent) (corfu-border :background ,accent)
(corfu-bar :background ,accent) (corfu-bar :background ,accent)
(orderless-match-face-0 :foreground ,accent)))) (orderless-match-face-0 :foreground ,accent))))