Install catppuccin theme

flakes/emacs/config/init.el

@@ -481,9 +481,26 @@
   (marginalia-mode))
 
 (use-package markdown-mode
+  :preface
+  (defun to/apply-markdown-faces (&rest _)
+    (when (facep 'markdown-header-face-1)
+      (set-face-attribute
+       'markdown-header-face-1 nil
+       :inherit 'variable-pitch
+       :weight 'light
+       :height 1.7))
+    (dolist (face '(markdown-code-face
+                    markdown-inline-code-face
+                    markdown-language-keyword-face
+                    markdown-pre-face))
+      (when (facep face)
+        (set-face-attribute face nil :inherit 'fixed-pitch))))
+  :hook (markdown-mode . variable-pitch-mode)
   :custom
   (markdown-fontify-code-blocks-natively t)
-  (markdown-spaces-after-code-fence 0))
+  (markdown-spaces-after-code-fence 0)
+  :config
+  (to/apply-markdown-faces))
 
 (use-package modus-themes
   :config
@@ -529,7 +546,51 @@
                                                 (border-mode-line-inactive unspecified)))
 
   (add-hook 'modus-themes-after-load-theme-hook #'to/modus-themes-custom-faces)
-  (modus-themes-load-theme 'modus-vivendi-tinted))
+  (add-hook 'modus-themes-after-load-theme-hook #'to/apply-markdown-faces))
+
+(use-package catppuccin-theme
+  :preface
+  (defun to/apply-org-heading-faces (&rest _)
+    (when (facep 'org-level-1)
+      (set-face-attribute
+       'org-document-title nil
+       :inherit 'variable-pitch
+       :weight 'light
+       :height 2.0)
+      (set-face-attribute
+       'org-level-1 nil
+       :inherit 'variable-pitch
+       :weight 'light
+       :height 1.7)
+      (set-face-attribute
+       'org-level-2 nil
+       :inherit 'variable-pitch
+       :weight 'semibold
+       :height 1.5)
+      (dolist (face '(org-level-3
+                      org-level-4
+                      org-level-5
+                      org-level-6
+                      org-level-7
+                      org-level-8))
+        (set-face-attribute
+         face nil
+         :inherit 'variable-pitch
+         :weight 'regular
+         :height 1.0))))
+  :init
+  (setq catppuccin-flavor 'macchiato)
+  :config
+  (mapc #'disable-theme custom-enabled-themes)
+  (load-theme 'catppuccin t)
+  (with-eval-after-load 'org
+    (to/apply-org-heading-faces))
+  (with-eval-after-load 'org-modern
+    (to/apply-org-heading-faces))
+  (with-eval-after-load 'markdown-mode
+    (to/apply-markdown-faces))
+  (advice-add 'catppuccin-reload :after #'to/apply-org-heading-faces)
+  (advice-add 'catppuccin-reload :after #'to/apply-markdown-faces))
 
 (use-package minions
   :config