_emacs.d/personal: rewrite 30-fonts.el for Emacs Chinese fonts configuration

1 files changed, 78 insertions, 26 deletions

diff --git a/_emacs.d/personal/30-fonts.el b/_emacs.d/personal/30-fonts.el
index d172a92..09645dd 100644
--- a/_emacs.d/personal/30-fonts.el
+++ b/_emacs.d/personal/30-fonts.el
@@ -6,6 +6,9 @@
 ;; Credits:
 ;; [1] http://baohaojun.github.io/perfect-emacs-chinese-font.html
 ;; [2] http://zhuoqiang.me/a/torture-emacs
+;; [3] https://github.com/syl20bnr/spacemacs - layers/chinese/config.el
+;; [4] https://gist.github.com/exaos/4493582 - el-emacs-zh-face.el
+;; [5] https://github.com/cpitclaudel/monospacifier
 ;;
 ;; Aaron LI
 ;; 2016-02-22
@@ -14,32 +17,81 @@
 ;;; Commentary:
 ;; English and Chinese fonts configurations for Emacs.
 
+;;; 字体显示测试
+;;
+;; 中英文对齐
+;;-------1---------2---------3---------4---------5---------6---------7--
+;; abab  abababab  abababab  abababab  abababababab
+;; 你我  你我你我  你我你我  你我你我  你我你我你我
+;;3456789+123456789+123456789+123456789+123456789+123456789+123456789+12
+;; 半角： 0 o O 1 l I | i ; : . ~ \ / - _ = ! @ # $ % ^ & * ` ' " () [] {}
+;; 全角：  ， ； 、 。 ？ ！
+;; —— “ ” ‘ ’ 《 》 ［ ］ 「」『』〈〉《》〖〗【】〔〕
+;;---------------------------------------------------------------
+;; 这儿的字符至少应该显示正常！
+;; Esperanto: ĉ Ĉ ĝ Ĝ ĥ Ĥ ĵ Ĵ ŝ Ŝ ŭ Ŭ -- Ĵaudo Ĥoro aĝo antaŭ ĝoja
+;; 化学元素： 𨧀 dù, 𨨏 (钅波) bō ㄅㄛ 𨭆 hēi 䥑 鐽 dá ㄉㄚˊ鎶
+;; IPA: ðɫŋɹɾʃθtʒæɑəəɚɜɛɝɪɪ̈ɒɔʊʊ̈ʌ
+;; àáâãäåæç èéêë ìíîï ðñòóôõö øùúûüýþÿ ÀÁÂÃÄÅ
+;; Ç ÈÉÊË ÌÍÎÏ ÐÑ ÒÓÔÕÖ ØÙÚÛÜÝÞß
+;; ¢ € ₠ £ ¥ ¤ ° © ® ™ § ¶ † ‡ ※ •◦ ‣ ✓●■◆○□◇★☆♠♣♥♦♤♧♡♢
+;; ←→↑↓↔↖↗↙↘⇐⇒⇑⇓⇔⇗⇦⇨⇧⇩ ↞↠↟↡ ↺↻ ☞☜☝☟ ∀¬∧∨∃⊦∵∴∅∈∉⊂⊃⊆⊇⊄⋂⋃
+;; ♩♪♫♬♭♮♯  ➀➁➂➃➄➅➆➇➈➉ 卐卍✝✚✡☥⎈☭☪☮☺☹ ☯☰☱☲☳☴☵☶☷
+;; ☠☢☣☤♲♳⌬♨♿ ☉☼☾☽ ♀♂ ♔♕♖ ♗♘♙ ♚♛ ♜♝♞♟
+;;
+;; 查看某个字符是什么字体，使用函数: (describe-char); 默认绑定: C-u C-x =
+
 ;;; Code:
 
-;; To increase the Unicode coverage of your favorite programming font
-;; https://github.com/cpitclaudel/monospacifier
-;(dolist (ft (fontset-list))
-;  (set-fontset-font ft 'unicode
-;                    (font-spec :name "Inconsolata"))
-;  (set-fontset-font ft 'unicode
-;                    (font-spec :name "Symbola monospacified for Inconsolata")
-;                    nil 'append))
-
-;; English font
-;; change the default font for the current frame, as well as future frames
-;(set-face-attribute 'default nil :font "Terminus:pixelsize=16")
-(set-face-attribute 'default nil :font "Inconsolata:pixelsize=14")
-
-;; Chinese font
-;; available charset: kana han symbol cjk-misc bopomofo
-;; font-spec:
-;;   `:size': either a non-negative integer that specifies the pixel size,
-;;            or a floating-point number that specifies the point size.
-(dolist (charset '(kana han cjk-misc bopomofo))
-  (set-fontset-font (frame-parameter nil 'font)
-                    charset
-                    (font-spec :family "WenQuanYi Zen Hei" :size 14)))
-;; rescale chinese font to match: 1 Chinese = 2 English characters
-;; (however, this will cause that the Chinese characters are higher)
-;(setq face-font-rescale-alist '(("WenQuanYi Bitmap Song" . 1.2)))
+(defun my-make-font-string (font-name font-size)
+  "Font string examples: 'name:pixelsize=14', 'name-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 my-set-fonts (english-font
+                    english-font-size
+                    chinese-font
+                    &optional unicode-font)
+  "The english-font-size could be set to ':pixelsize=14' or an integer."
+  ;; Set the default English font: for most latin characters
+  (message "Set English font to: %s" english-font)
+  (set-face-attribute 'default nil
+                      :font (my-make-font-string english-font
+                                                 english-font-size))
+
+  ;; Set Chinese font
+  (message "Set Chinese font to: %s" chinese-font)
+  (dolist (charset '(kana han symbol cjk-misc bopomofo))
+    (set-fontset-font (frame-parameter nil 'font)
+                      charset
+                      (font-spec :family chinese-font)))
+
+  ;; Set the fallback Unicode font
+  (when unicode-font
+    (message "Set Unicode fallback font to: %s" unicode-font)
+    (dolist (ft (fontset-list))
+      (set-fontset-font t 'unicode (font-spec :family english-font))
+      (set-fontset-font t 'unicode (font-spec :family unicode-font)
+                        nil 'append))))
+
+;; Uniformly rescale the Chinese and Unicode characters
+(setq face-font-rescale-alist
+      '(("WenQuanYi Zen Hei" . 1.2)))
+
+;; Only set fonts when Eamcs running in graphic mode
+(when (display-graphic-p)
+  (my-set-fonts "Inconsolata" ":pixelsize=14"
+                "WenQuanYi Zen Hei"
+                "Symbola monospacified for Inconsolata"))
+
+;; Set fonts for new frame of `emacsclient'
+(add-hook 'after-make-frame-functions
+  (lambda (new-frame)
+    (select-frame new-frame)
+    (if (display-graphic-p)
+      (my-set-fonts "Inconsolata" ":pixelsize=14"
+                    "WenQuanYi Zen Hei"
+                    "Symbola monospacified for Inconsolata"))))