diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-06-01 14:57:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-06-01 14:57:00 -0700 |
commit | 4144ec0d1b41d68d17f9198e4c6eb375e6178c2f (patch) | |
tree | c8ba8d2adcd31e67227a7d7f515b77cb04ea952f | |
parent | 05154411d53fdf50750a19df68d6cb763d7bab21 (diff) | |
download | dotfiles-4144ec0d1b41d68d17f9198e4c6eb375e6178c2f.tar.gz |
configure a font for Hangul
-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 |