conf-font.el: 为 Emacs 设置不同的字体

conf-font.el

@@ -0,0 +1,64 @@
+;;; Token from http://www.emacser.com
+
+;; 首先，判断某个字体在系统中是否安装
+(defun qiang-font-existsp (font)
+  (if (null (x-list-fonts font))
+      nil t))
+
+;; 其次，要按顺序找到一个字体列表中第一个已经安装可用的字体
+(defvar font-list '("Microsoft Yahei"
+                    "文泉驿等宽微米黑"
+                    "黑体"
+                    "新宋体"
+                    "宋体"))
+
+;; find-if is in common list package
+(eval-when-compile (require 'cl))
+(if window-system (find-if #'qiang-font-existsp font-list))
+
+;; 还要有个辅助函数，用来生产带上 font size 信息的 font 描述文本
+(defun qiang-make-font-string (font-name font-size)
+  (if (and (stringp font-size)
+           (equal ":" (string (elt font-size 0))))
+      (format "%s%s" font-name font-size)
+    (format "%s %s" font-name font-size)))
+
+;; 有了这些函数，下面出场的就是自动设置字体函数了
+(defun qiang-set-font (english-fonts
+                       english-font-size
+                       chinese-fonts
+                       &optional chinese-font-size)
+  "english-font-size could be set to \":pixelsize=18\" or a integer.
+If set/leave chinese-font-size to nil, it will follow english-font-size"
+  (require 'cl)                         ; for find if
+  (let ((en-font (qiang-make-font-string
+                  (find-if #'qiang-font-existsp english-fonts)
+                  english-font-size))
+        (zh-font (font-spec :family (find-if #'qiang-font-existsp chinese-fonts)
+                            :size chinese-font-size)))
+
+    ;; Set the default English font
+    ;;
+    ;; The following 2 method cannot make the font settig work in new frames.
+    ;; (set-default-font "Consolas:pixelsize=18")
+    ;; (add-to-list 'default-frame-alist '(font . "Consolas:pixelsize=18"))
+    ;; We have to use set-face-attribute
+    (message "Set English Font to %s" en-font)
+    (set-face-attribute
+     'default nil :font en-font)
+
+    ;; Set Chinese font
+    ;; Do not use 'unicode charset, it will cause the english font setting invalid
+    (message "Set Chinese Font to %s" zh-font)
+    (dolist (charset '(kana han symbol cjk-misc bopomofo))
+      (set-fontset-font (frame-parameter nil 'font)
+                        charset
+                        zh-font))))
+
+;; 利用这个函数，Emacs 字体设置就是小菜一碟了
+(when (eq window-system 'x)
+  (qiang-set-font
+   '("Consolas" "Monaco" "DejaVu Sans Mono" "Monospace" "Courier New") ":pixelsize=14"
+   '("Microsoft Yahei" "文泉驿等宽微米黑" "黑体" "新宋体" "宋体")))
+
+(provide 'conf-font)

init.el

@@ -18,6 +18,7 @@
 (require 'conf-hl-line)
 (require 'conf-winner)
 (require 'conf-key-binding)
+(require 'conf-font)
 
 ;; using el-get to manage all other third party packages
 (require 'conf-el-get)