;; -*- lexical-binding: t; -*-


;;;; variable-pitch fonts
(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")


;;;; colors
(defun modus-themes-custom-faces ()
  (modus-themes-with-colors
    (custom-set-faces
     `(vertical-border ((,class :foreground ,bg-inactive)))

     `(mode-line-inactive ((,class :background ,bg-main
                                   :foreground ,fg-active
                                   :box ,bg-dim)))
     `(mode-line-active ((,class :background ,bg-main
                                 :foreground ,fg-active
                                 :box ,bg-inactive)))

     `(hl-line ((,class :background ,magenta-nuanced-bg)))

     `(emms-playlist-track-face ((,class :foreground ,blue-nuanced-fg)))
     `(emms-playlist-selected-face ((,class :foreground ,fg-special-cold)))
     `(emms-browser-track-face ((,class :foreground ,blue-nuanced-fg))))))

(add-hook 'modus-themes-after-load-theme-hook #'modus-themes-custom-faces)

(setopt modus-themes-italic-constructs t
        modus-themes-bold-constructs t
        modux-themes-mixed-fonts t
        modus-themes-hl-line '(accented)
        modus-themes-subtle-line-numbers t
        modus-themes-paren-match '(intense)
        modus-themes-region '(bg-only)
        modus-themes-syntax '(faint)
        modus-themes-mode-line '(borderless)
        modus-themes-org-blocks 'gray-background
        modus-themes-headings '(
                                (1 . (rainbow overline))))

(load-theme 'modus-vivendi t)

(modus-themes-custom-faces)


(provide 'bd--themes)