Fix setting org- faces for better colours

This commit is contained in:
Evie Litherland-Smith 2024-04-25 17:09:37 +01:00
parent 3909628e65
commit 564a84266e

29
init.el
View file

@ -445,8 +445,6 @@ Try `magit-clone-default-directory' if available, fall back to
(use-package catppuccin-theme (use-package catppuccin-theme
:demand :demand
:hook
(server-after-make-frame . catppuccin-reload)
:custom :custom
(catppuccin-flavour 'mocha) (catppuccin-flavour 'mocha)
(catppuccin-italic-blockquotes t) (catppuccin-italic-blockquotes t)
@ -638,21 +636,28 @@ Try `magit-clone-default-directory' if available, fall back to
(lua . t) (lua . t)
(python . t))) (python . t)))
:config :config
;; Ensure tables and src blocks use fixed-pitch font.
(set-face-attribute 'org-table nil
:inherit 'fixed-pitch
:foreground (catppuccin-get-color 'overlay2))
(set-face-attribute 'org-block nil
:inherit 'fixed-pitch
:foreground (catppuccin-get-color 'overlay2))
;; Let quote and verse blocks use variable-pitch font, if configured
(set-face-attribute 'org-quote nil :inherit 'variable-pitch)
(set-face-attribute 'org-verse nil :inherit 'variable-pitch)
;; Enable auto-fill in org-mode buffers ;; Enable auto-fill in org-mode buffers
(add-hook 'org-mode-hook #'turn-on-auto-fill) (add-hook 'org-mode-hook #'turn-on-auto-fill)
;; Extra `setq' calls to be moved somewhere else ;; Extra `setq' calls to be moved somewhere else
(setq org-attach-id-dir (expand-file-name "data/" org-directory))) (setq org-attach-id-dir (expand-file-name "data/" org-directory)))
(use-package org-faces
:after (org catppuccin-theme)
:config
;; Ensure tables and src blocks use fixed-pitch font.
(set-face-attribute 'org-block nil
:inherit 'fixed-pitch
:foreground (catppuccin-get-color 'text))
(set-face-attribute 'org-code nil
:inherit 'fixed-pitch
:foreground (catppuccin-get-color 'subtext0))
(set-face-attribute 'org-table nil
:inherit 'fixed-pitch
:foreground (catppuccin-get-color 'subtext1))
;; Let quote and verse blocks use variable-pitch font, if configured
(set-face-attribute 'org-quote nil :inherit 'variable-pitch)
(set-face-attribute 'org-verse nil :inherit 'variable-pitch))
(use-package org-keys (use-package org-keys
:custom :custom
(org-return-follows-link t) (org-return-follows-link t)