I’d like to use the fonts in the following order for East Asia text.

  1. AR PL UKai HK
  2. BabelStone Han
  3. UnGungseo
  4. 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?