blob: ab2c1ed207cc7a0c9b101f6fa417bc904ae0d2dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
;;; ~/.emacs.d/personal/30-fonts.el --- Fonts configurations for Emacs.
;;
;; -*- mode: emacs-lisp -*-
;; vim: set ts=8 sw=2 tw=0 fenc=utf-8 ft=lisp:
;;
;; 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
;;
;;; 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:
(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"))))
|
