Files
dotemacs/lisp/ux/theme.el
2022-01-09 21:19:46 +01:00

64 lines
2.2 KiB
EmacsLisp

;;; 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