DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Better fonts

Browse source
This commit is contained in:
John Doty 2014-03-22 09:16:20 -07:00
parent 2918f98d2a
commit 6dcb9386eb
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
.emacs.d/init.el
View file

@ -106,7 +106,16 @@
;; Consolas. ;; Consolas.
;; ;;
(setq my-font-choice "Consolas-11") (require 'cl)
(defun font-existsp (font)
(if (null (x-list-fonts font))
nil t))
(setq my-font-choice
(find-if
'font-existsp
'("Consolas-11" "Inconsolata-11")))
;; ;;
;; To obtain new font string, execute eval-expression, and eval this: ;; To obtain new font string, execute eval-expression, and eval this:
;;(insert(prin1-to-string(w32-select-font))) ;;(insert(prin1-to-string(w32-select-font)))