;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:


;;;; 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"
                    :height 102)
(set-face-attribute 'fixed-pitch nil
                    :family "Terminus"
                    :height 120)
(set-face-attribute 'default nil
                    :family "Terminus"
                    :height 120)


;;;; colors
(use-package ef-themes
  :demand t
  :config
  ;; Disable all other themes to avoid awkward blending:
  (mapc #'disable-theme custom-enabled-themes)
  :custom
  (ef-themes-mixed-fonts t)
  (ef-themes-variable-pitch-ui nil)
  (ef-themes-headings
   '((0 variable-pitch bold 1.5)
     (1 variable-pitch bold 1.4)
     (2 variable-pitch regular 1.3)
     (3 variable-pitch regular 1.1)
     (t variable-pitch regular 1.0)))

  (ef-themes-to-toggle '(ef-autumn ef-frost))
  (ef-themes-common-palette-overrides
   '((bg-mode-line bg-main)
     (fg-mode-line fg-main)
     (bg-dim bg-main)
     (bg-alt bg-main)
     (bg-tab-bar bg-main)
     (bg-tab-current bg-main)
     (bg-tab-other bg-inactive)))
  (ef-winter-palette-overrides
   '((bg-main "#000000")))
  (ef-bio-palette-overrides
   '((bg-main "#000000")))
  (ef-autumn-palette-overrides
   '((bg-main "#000000"))))

(load-theme 'ef-autumn :no-confirm)

(provide 'bd--themes)
;;; bd-themes ends here