emacs: make catppuccin colours generic

This commit is contained in:
Jeremy Baxter 2024-07-23 16:46:23 +12:00
parent ea70e81431
commit dc3d96577b

View file

@ -289,12 +289,21 @@ value `italic'."
(add-hook 'after-init-hook 'dashboard-initialize)
(dashboard-setup-startup-hook)
;; catppuccin theme
(package-install 'catppuccin-theme)
(require 'catppuccin-theme)
(setq catppuccin-flavor 'mocha)
(load-theme 'catppuccin :no-confirm)
;; faces
(require 'cus-edit) ; custom faces
(let
((fixedpt "Roboto Mono")
( varpt "Roboto")
( accent "#89b4fa"))
( accent (catppuccin-get-color 'blue))
(bground (catppuccin-get-color 'base))
( darker (catppuccin-get-color 'mantle))
(darkest (catppuccin-get-color 'crust)))
(add-to-list 'default-frame-alist (cons 'font fixedpt))
(set-face-attributes
`((default :height 140)
@ -305,24 +314,24 @@ value `italic'."
(link :foreground ,accent :underline t)
(mode-line-inactive :weight light)
(help-key-binding
:family ,fixedpt :background "#181825" :foreground ,accent
:box (:line-width (-1 . -1) :color "#11111b" :style nil))
:family ,fixedpt :background ,darker :foreground ,accent
:box (:line-width (-1 . -1) :color ,darkest :style nil))
(widget-field
:extend t :background "#181825"
:box (:line-width (1 . 1) :color "#11111b"))
:extend t :background ,darker
:box (:line-width (1 . 1) :color ,darkest))
(custom-button
:background "#181825" :foreground "white"
:box (:line-width (1 . 1) :color "#11111b" :style nil))
(custom-button-mouse :background "#11111b" :foreground "white")
:background ,darker :foreground "white"
:box (:line-width (1 . 1) :color ,darkest :style nil))
(custom-button-mouse :background ,darkest :foreground "white")
(custom-button-pressed :inherit custom-button-mouse
:box (:line-width (1 . 1) :color "#11111b"))
:box (:line-width (1 . 1) :color ,darkest))
(match :background ,accent)
(lazy-highlight :background "#1e1e2e" :foreground ,accent)
(info-xref :inherit link :background "#181825" :foreground ,accent)
(lazy-highlight :background ,bground :foreground ,accent)
(info-xref :inherit link :background ,darker :foreground ,accent)
(anzu-mode-line :foreground ,accent)
(breadcrumb-imenu-leaf-face :foreground ,accent)
(dashboard-heading :foreground ,accent :height 1.1 :weight bold)
(corfu-default :background "#181825")
(corfu-default :background ,darker)
(corfu-current :background "#2a2e38" :box ,accent)
(corfu-border :background ,accent)
(corfu-bar :background ,accent))))
@ -332,11 +341,6 @@ value `italic'."
(touch custom-file)
(load custom-file)
;; catppuccin theme
(package-install 'catppuccin-theme)
(setq catppuccin-flavor 'mocha)
(load-theme 'catppuccin :no-confirm)
;; nyan-mode
(package-install 'nyan-mode)
(nyan-mode)