diff options
Diffstat (limited to '.config/emacs/modules')
| -rw-r--r-- | .config/emacs/modules/bd--themes.el | 72 |
1 files changed, 41 insertions, 31 deletions
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el index 5d7c6f9..69a1e5d 100644 --- a/.config/emacs/modules/bd--themes.el +++ b/.config/emacs/modules/bd--themes.el @@ -3,32 +3,6 @@ ;;; Code: -(defun bd/enable-variable-pitch-exempt () - "Text modes to exempt from variable pitch fonts." - (unless (derived-mode-p 'latex-mode 'mhtml-mode 'nxml-mode 'yaml-mode) - (variable-pitch-mode 1))) - -(defvar bd/enable-variable-pitch-in-hooks - '(text-mode-hook) - "List of hook symbols to add `variable-pitch-mode' -to.") - -(mapc - (lambda (hook) - (add-hook hook #'bd/enable-variable-pitch-exempt)) - bd/enable-variable-pitch-in-hooks) - -(set-face-attribute 'variable-pitch nil - :family "Dejavu Math TeX Gyre" - :height 110) -(set-face-attribute 'fixed-pitch nil - :family "Terminus" - :height 110) -(set-face-attribute 'default nil - :family "Terminus" - :height 140) - - (use-package modus-themes :load-path (lambda () (expand-file-name "themes/" data-directory)) :demand t @@ -49,7 +23,7 @@ and some other minor face changes." modus-themes-mixed-fonts t modus-themes-italic-constructs t modus-themes-bold-constructs t - modus-themes-variable-pitch-ui nil + modus-themes-variable-pitch-ui t modus-themes-prompts '(bold) modus-themes-headings '((0 variable-pitch regular 1.3) @@ -69,8 +43,8 @@ and some other minor face changes." (border-mode-line-active nil) (border-mode-line-inactive nil) (bg-tab-bar bg-main) - (bg-tab-current "#3b3d62") - (bg-tab-other bg-main) + (bg-tab-current bg-main) + (bg-tab-other "#3b3d62") (fg-heading-0 "#b2ebf2") (fg-heading-1 "#98fb98") @@ -105,10 +79,46 @@ and some other minor face changes." (variable "#98fb98") (docstring "#f0e68c") (constant "#fa80e6")))) - -(load-theme 'modus-vivendi-tinted :no-confirm) (run-hooks 'modus-themes-post-load-hook) +(defun bd/enable-variable-pitch-exempt () + "Text modes to exempt from variable pitch fonts." + (unless (derived-mode-p 'latex-mode 'mhtml-mode 'nxml-mode 'yaml-mode) + (variable-pitch-mode 1))) + +(defvar bd/enable-variable-pitch-in-hooks + '(text-mode-hook) + "List of hook symbols to add `variable-pitch-mode' +to.") + +(mapc + (lambda (hook) + (add-hook hook #'bd/enable-variable-pitch-exempt)) + bd/enable-variable-pitch-in-hooks) + +(set-face-attribute 'variable-pitch nil + :family "Dejavu Serif" + :height 110) +(set-face-attribute 'fixed-pitch nil + :family "Iosevka" + :height 120) +(set-face-attribute 'default nil + :family "Iosevka" + :height 140) +(set-face-attribute 'modus-themes-ui-variable-pitch nil + :family "MedievalSharp" + :height 130) +(mapc (lambda (x) (set-face-attribute x nil :family "MedievalSharp")) + '(modus-themes-heading-0 + modus-themes-heading-1 + modus-themes-heading-2 + modus-themes-heading-3 + modus-themes-heading-4 + modus-themes-heading-5 + modus-themes-heading-6 + modus-themes-heading-7 + modus-themes-heading-8)) + (provide 'bd--themes) ;;; bd--themes.el ends here |