解决emacsclient字体显示的问题

文章目录

我用的版本是 emacs24 ，然后做了一堆的配置后启动速度有点慢，但有些东西又不好精简。好在 emacs 提供了 –daemon 模式，开启 –daemon 进程后只要用 emacsclient 连接就能非常快的开启一个 emacs。但目前碰到的问题是原来的字体配置在这种模式下无效了，原因好像是因为 –daemon 进程是没有加载 X 对应的字体配置。所以我用了下面的配置让 emacsclient 也能自动使用自定义的字体配置。

;; 字体配置函数
(defun my-apply-font ()
  ;; Setting English Font
  (set-face-attribute
   'default nil :font "Monaco 18")
  ;; Setting Chinese Font
  (dolist (charset '(kana han symbol cjk-misc bopomofo))
    (set-fontset-font (frame-parameter nil 'font)
                      charset
                      (font-spec :family "文泉驿等宽微米黑" :size 18))))

;; 解决client模式下的字体问题
(add-hook 'after-make-frame-functions
          (lambda (frame)
            (select-frame frame)
            (if (window-system frame)
                (my-apply-font))))


;; 只有在windows模式下进行设置
(if window-system
    (my-apply-font))

主要就是利用了 after-make-frame-functions ，在创建 frame 的时候判断是否是 window 类型的，然后再应用一下字体配置。