Skip to content

Commit

Permalink
Fix font settings
Browse files Browse the repository at this point in the history
  • Loading branch information
Zellux Yuanxuan Wang committed Nov 4, 2015
1 parent d0c9138 commit d8cdd2c
Showing 1 changed file with 15 additions and 13 deletions.
28 changes: 15 additions & 13 deletions gui-settings.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,19 +10,21 @@

(cond ((eq window-system 'ns)
(if (>= (x-display-pixel-height) 1440)
(scroll-bar-mode -1)
(progn (set-default-font "Monaco-15")
(setq default-frame-alist '((font . "Monaco-15"))))
(progn (set-default-font "Monaco-13")
(setq default-frame-alist '((font . "Monaco-13")))
(set-fontset-font (frame-parameter nil 'font)
'han (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'symbol (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'cjk-misc (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'bopomofo (font-spec :family "STHeiTi" :size 14)))))
(progn
(scroll-bar-mode -1)
(set-default-font "Monaco-15")
(setq default-frame-alist '((font . "Monaco-15"))))
(progn
(set-default-font "Monaco-13")
(setq default-frame-alist '((font . "Monaco-13")))
(set-fontset-font (frame-parameter nil 'font)
'han (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'symbol (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'cjk-misc (font-spec :family "STHeiTi" :size 14))
(set-fontset-font (frame-parameter nil 'font)
'bopomofo (font-spec :family "STHeiTi" :size 14)))))
((eq window-system 'w32)
(message "windows-font")
(setq w32-ch-font "-outline-XHei Mono-normal-normal-normal-mono-16-*-*-*-c-*-iso8859-1")
Expand Down

0 comments on commit d8cdd2c

Please sign in to comment.