Add new font packages, swap terminus for iosevka, medieval sharp

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