awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor refactor doom|init-fonts

Browse Source 
Take advantage of custom-set-faces taking variadic arguments to group
all font-initializing forms in one form.
This commit is contained in:
Henrik Lissner
2018-06-16 00:37:50 +02:00
parent a1278f3dff
commit 33839f54e9
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-ui.el
View File

@ -554,18 +554,18 @@ frame's window-system, the theme will be reloaded.")
(defun doom|init-fonts ()
"Initialize fonts."
(condition-case-unless-debug ex
(progn
(custom-set-faces
(when (fontp doom-font)
(let ((xlfd (font-xlfd-name doom-font)))
(map-put default-frame-alist 'font xlfd)
`(fixed-pitch ((t (:font ,xlfd))))))
(when (fontp doom-variable-pitch-font)
`(variable-pitch ((t (:font ,(font-xlfd-name doom-variable-pitch-font)))))))
`(variable-pitch ((t (:font ,(font-xlfd-name doom-variable-pitch-font))))))
;; Fallback to `doom-unicode-font' for Unicode characters
(when (fontp doom-unicode-font)
(setq use-default-font-for-symbols nil)
(set-fontset-font t 'unicode doom-unicode-font nil)))
(set-fontset-font t 'unicode doom-unicode-font nil)
nil))
('error
(if (string-prefix-p "Font not available: " (error-message-string ex))
(lwarn 'doom-ui :warning