emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Include line height in *fonts

Browse source
This commit is contained in:
Henrik Lissner 2015-01-26 15:25:04 -05:00
parent 4fbaf7b3dc
commit cc6c9b33c2
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/defuns-ui.el
View file

@ -50,11 +50,13 @@
(let* ((font (nth my/cycle-font-i *fonts)) (let* ((font (nth my/cycle-font-i *fonts))
(font-name (nth 0 font)) (font-name (nth 0 font))
(font-size (nth 1 font)) (font-size (nth 1 font))
(font-aa (nth 2 font))) (font-aa (nth 2 font))
(font-line (nth 3 font)))
(unless (member font-name (font-family-list)) (unless (member font-name (font-family-list))
(error "Font %s isn't installed" font-name)) (error "Font %s isn't installed" font-name))
(let ((font-str (concat font-name "-" (number-to-string font-size)))) (let ((font-str (concat font-name "-" (number-to-string font-size))))
(add-to-list 'default-frame-alist `(font . ,font-str)) (add-to-list 'default-frame-alist `(font . ,font-str))
(add-to-list 'initial-frame-alist `(font . ,font-str))) (add-to-list 'initial-frame-alist `(font . ,font-str)))
(load-font font-name font-size) (load-font font-name font-size)
(setq ns-antialias-text font-aa))) (setq ns-antialias-text font-aa)
(setq-default line-spacing font-line)))