I’d like to use the fonts in the following order for East Asia text.
- AR PL UKai HK
- BabelStone Han
- UnGungseo
- Noto Sans CJK KR
The lines that follow are the settings I’ve gathered to enlarge the text for easier reading.
1 (dolist (charset '(han symbol cjk-misc bopomofo))
2 (set-fontset-font t charset (font-spec :family "AR PL UKai HK" :size 28 :registry "big5")))
3
4 (set-fontset-font t '(#x2ff0 . #x2fff) (font-spec :family "AR PL UKai HK" :size 28))
5
6 (set-fontset-font t '(#x4dc0 . #x4dff) (font-spec :family "BabelStone Han" :size 28))
7
8 (set-fontset-font t #x21fea (font-spec :family "BabelStone Han" :size 28))
9
10 (dolist (x '( #x377f #x456c
11 #x53d3 #x53d5 #x5926 #x5b52 #x5f1c #x5387
12 #x6056 #x6abf #x6e70 #x6598 #x659a #x6752 #x67bc
13 #x7683 #x7a41 #x7c36 #x7e85
14 #x887a #x8c38 #x8a9d #x8a9f
15 #x9aea #x9af0 #x9f04 #x9f05
16 #xfe47 #xfe48))
17 (set-fontset-font t x (font-spec :family "Noto Sans CJK KR" :size 28)))
18
19 (dolist (x '(#x7232 #x654e #x7d76)) (set-fontset-font t x (font-spec :family "UnGungseo" :size 28)))
20
21 (dolist (x '(#x37a2
22 #x41c2 #x4b6b
23 #x5928
24 #x7680 #x8c59
25 #x2002c #x20447 #x27141 #x22992 #x22994
26 #x23a95 #x268fb #x27bab
27 #x294a8))
28 (set-fontset-font t x (font-spec :family "BabelStone Han" :size 28)))
Is there a better way to do that?