     (set-fontset-font t 'hangul (font-spec :name "NanumGothicCoding"))
     (dolist (charset '(kana han symbol cjk-misc bopomofo))
       (set-fontset-font t charset (font-spec :name "Hiragino Sans GB")))
-    (setq face-font-rescale-alist '(("Hiragino Sans GB" . 1.2) ("WenQuanYi Zen Hei" . 1.2)))
-    ;; you may want to add different for other charset in this way.
-    ))
+    (setq face-font-rescale-alist '(("Hiragino Sans GB" . 1.2) ("WenQuanYi Zen Hei" . 1.2))))
+  ;; you may want to add different for other charset in this way.
+  )
+
+(defun mac-set-font (frame)
+  (with-selected-frame frame
+    (setup-font 140)))
+
+(defun fedora-set-font (frame)
+  (with-selected-frame frame
+    (setup-font 95)))
+
+(when (eq system-type 'darwin)
+  (add-hook 'after-make-frame-functions 'mac-set-font))
+
+(when (eq system-type 'gnu/linux)
+  (add-hook 'after-make-frame-functions 'fedora-set-font))
 
 (when (featurep 'ns)
   (defun ns-raise-emacs ()

  (defun ns-raise-emacs-with-frame (frame)
    "Raise Emacs and select the provided frame."
    (with-selected-frame frame
      (when (display-graphic-p)
        (setup-font)
        (ns-raise-emacs))))
  (add-hook 'after-make-frame-functions 'ns-raise-emacs-with-frame))

;; 默认 80 列自动换行, 需要 M-x auto-fill-mode 模式下


(setq ring-bell-function 'ignore)

(defun setup-font (size)
  "Setup font for graphic display with Font SIZE and WEIGHT."
  (when (display-graphic-p)
    ;; default Latin font (e.g. Consolas)
    (set-face-attribute 'default nil :family "Sauce Code Powerline")

