TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Change the font detection and add logs

Browse source
This commit is contained in:
syl20bnr 2015-01-29 21:19:37 -05:00
parent 276c33bb31
commit f714f7deea
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
core/core-fonts-support.el
View file

@ -23,6 +23,7 @@ PLIST has the form (\"fontname\" :prop1 val1 :prop2 val2 ...)"
(spacemacs/mplist-remove props :powerline-scale) (spacemacs/mplist-remove props :powerline-scale)
:powerline-offset)) :powerline-offset))
(fontspec (apply 'font-spec :family font font-props))) (fontspec (apply 'font-spec :family font font-props)))
(spacemacs/message "Setting font \"%s\"..." font)
(set-default-font fontspec nil t) (set-default-font fontspec nil t)
(setq-default powerline-scale scale) (setq-default powerline-scale scale)
(setq-default powerline-height (spacemacs/compute-powerline-height)) (setq-default powerline-height (spacemacs/compute-powerline-height))

6
core/core-spacemacs-mode.el
View file

@ -90,8 +90,10 @@
"able to launch a graphical instance of Emacs" "able to launch a graphical instance of Emacs"
"with this build."))) "with this build.")))
;; font ;; font
(when (member (car dotspacemacs-default-font) (font-family-list)) (if (find-font (font-spec :name (car dotspacemacs-default-font)))
(spacemacs/set-default-font dotspacemacs-default-font)) (spacemacs/set-default-font dotspacemacs-default-font)
(spacemacs/message "Warning: Cannot find font \"%s\"!"
(car dotspacemacs-default-font)))
;; banner ;; banner
(spacemacs//insert-banner) (spacemacs//insert-banner)
;; bind-key is required by use-package ;; bind-key is required by use-package