在 emacsclient 中应用中文字体设置

[raawaa]

daemon 模式下用emacsclient -c发现字体设置没有生效，折腾一番之后发现如下方法：

;;; 设置中文字体
(defun my-apply-font ()
  (set-default-font "Consolas")
  (set-fontset-font "fontset-default" 'chinese-gbk "微软雅黑")

  (setq face-font-rescale-alist '(("宋体" . 1.2)
                                  ("微软雅黑" . 1.1)
                                  )))
(my-apply-font)
;;; 使字体设置应用到 client 中
(add-hook 'after-make-frame-functions
          (lambda (frame)
            (select-frame frame)
            (my-apply-font)))