jeremy/dotfiles
1
Fork 0
Code Releases Activity

emacs: make catppuccin colours generic

Browse source
This commit is contained in:
Jeremy Baxter 2024-07-23 16:46:23 +12:00
parent ea70e81431
commit dc3d96577b
1 changed files with 21 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

38
.emacs.d/init.el
View file

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