diff options
Diffstat (limited to '.emacs.d/init-spw.el')
-rw-r--r-- | .emacs.d/init-spw.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 74c0e7d7..f4d81b35 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -105,8 +105,9 @@ add places the library might be available to `load-path'." ;; choice of font and size is driven by aim to fit eighty columns of ;; text in both halves of my laptop's monitor -(defvar spw/preferred-latin-fonts '("Inconsolata-12" "Cousine-10")) -(defvar spw/preferred-han-fonts '("Noto Serif CJK JP-10")) +(defvar spw/preferred-latin-fonts '("Inconsolata-12" "Cousine-10")) +(defvar spw/preferred-han-fonts '("Noto Serif CJK JP-10")) +(defvar spw/preferred-hangul-fonts '("Noto Serif CJK KR-10")) (defun spw/first-available-font (fonts) (car (seq-drop-while (lambda (font) (not (find-font (font-spec :name font)))) @@ -121,6 +122,9 @@ add places the library might be available to `load-path'." (when-let ((han-font (spw/first-available-font spw/preferred-han-fonts))) (dolist (charset '(kana han symbol cjk-misc bopomofo)) (set-fontset-font t charset han-font))) + (when-let ((hangul-font + (spw/first-available-font spw/preferred-hangul-fonts))) + (set-fontset-font t 'hangul hangul-font)) ;; again on laptop, need to fit a bit more in these windows than can ;; with Inconsolata |