;;; theme.el --- Configure Emacs theme -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:

(use-package custom
  :ensure nil
  :config

  ;; Use 20210731.818 release.
  (use-package doom-themes
    :config
    (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
	  doom-themes-enable-italic t) ; if nil, italics is universally disabled
    (load-theme 'doom-material t)
    (custom-set-faces
     `(outline-1 ((t (:foreground ,(doom-color 'yellow)))))
     `(outline-2 ((t (:foreground ,(doom-color 'orange)))))
     `(outline-3 ((t (:foreground ,(doom-color 'dark-blue)))))
     `(outline-4 ((t (:foreground ,(doom-color 'teal)))))
     `(markdown-header-face-1 ((t (:inherit 'outline-1))))
     `(markdown-header-face-2 ((t (:inherit 'outline-2))))
     `(markdown-header-face-3 ((t (:inherit 'outline-3))))
     `(markdown-header-face-4 ((t (:inherit 'outline-4))))
     `(org-drawer ((t (:foreground ,(doom-lighten 'base6 .30)))))
     `(font-lock-comment-face ((t (:foreground ,(doom-lighten 'base6 .20)))))
     `(org-default ((t (:inherit 'default))))
     `(org-table ((t (:foreground ,(doom-lighten 'base2 0.70)))))
     `(org-agenda-done ((t (:inherit 'org-default)))))
  ))

(use-package faces
  :ensure nil
  :defer
  :bind-wrap
  (((:key :emacs :describe-face) . describe-face)
   ((:key :emacs :describe-all-faces) . list-faces-display))
  :config
  (when (display-graphic-p)
    (cond
     ((eq system-type 'darwin)
      (set-face-attribute 'default nil :family "Menlo" :height 110 :weight 'normal))
     ((eq system-type 'windows-nt)
      (set-face-attribute 'default nil :family "Consolas" :height 100 :weight 'normal))
     ((eq system-type 'gnu/linux)
      (set-face-attribute 'default nil :foundry "DejaVu Sans Mono" :family "Monospace"
			  :height 90 :weight 'normal)))))

(use-package ns-auto-titlebar
  :if (eq system-type 'darwin)
  :config
  (ns-auto-titlebar-mode))

(use-package face-remap
  :ensure nil
  :bind-wrap
  (((:key :emacs :text-scale-reset) . (lambda () (interactive)
					(text-scale-set 0)))
   ((:key :emacs :text-scale-increase) . text-scale-increase)
   ((:key :emacs :text-scale-decrease)  . text-scale-decrease)))


(provide 'ux/theme)
;;; theme.el ends here