gui-settings.el

;; Toggle off tool-bar
(tool-bar-mode 0)

;; Maximize windows
(require 'maxframe)
(add-hook 'window-setup-hook 'maximize-frame t)

;; Speedbar hotkey
(global-set-key [(f8)] 'speedbar)

(cond ((eq window-system 'ns)
       (if (>= (x-display-pixel-height) 1440)
           (progn
             (scroll-bar-mode -1)
             (set-default-font "Monaco-15")
             (setq default-frame-alist '((font . "Monaco-15")))
             (set-fontset-font (frame-parameter nil 'font)
                               'han (font-spec :family "STHeiti" :size 15))
             (set-fontset-font (frame-parameter nil 'font)
                               'symbol (font-spec :family "STHeiti" :size 15))
             (set-fontset-font (frame-parameter nil 'font)
                               'cjk-misc (font-spec :family "STHeiti" :size 15))
             (set-fontset-font (frame-parameter nil 'font)
                               'bopomofo (font-spec :family "STHeiti" :size 15))
             (setq face-font-rescale-alist '(("STHeiti" . 1.2))))
         (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")
       (set-default-font "Monaco-11")
       (set-fontset-font (frame-parameter nil 'font)
			 'han (font-spec :family "XHei" :size 16))
       (set-fontset-font (frame-parameter nil 'font)
			 'symbol (font-spec :family "XHei" :size 16))
       (set-fontset-font (frame-parameter nil 'font)
			 'cjk-misc (font-spec :family "XHei" :size 16))
       (set-fontset-font (frame-parameter nil 'font)
			 'bopomofo (font-spec :family "XHei" :size 16))))