fontsets

1 files changed, 14 insertions, 14 deletions

diff --git a/init.org b/init.org
index 26bf482..721053b 100644
--- a/init.org
+++ b/init.org
@@ -337,24 +337,24 @@
 ***** Unicode fonts
       See [[https://emacs.stackexchange.com/questions/251/line-height-with-unicode-characters/5386#5386][fonts - Line height with unicode characters]] for a good
       discussion.
-      #+BEGIN_SRC emacs-lisp
+      #+begin_src emacs-lisp
         (defun jao--set-fontsets (frame)
-          ;; (set-fontset-font t 'unicode "Hack-9")
+          ;; (set-fontset-font t 64257 "Quivira")
+          ;; (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs")
+          ;; (set-fontset-font t 'hangul "NanumGothicCoding")
+          (set-fontset-font t 'unicode (face-attribute 'default :family))
+          (set-fontset-font t 'symbol "Symbola-10")
           (set-fontset-font t 'greek "GFS Didot")
           (set-fontset-font t 'mathematical "FreeSerif")
-          (set-fontset-font t 64257 "Quivira")
-          (set-fontset-font t 65039 nil)
-          (set-fontset-font t '(9472 . 9599) "Symbola")
-          (set-fontset-font t 'symbol "Symbola-12") ;; "Noto Sans Symbols-10"
-          ;; (set-fontset-font t 'symbol "Unifont-12")
-          (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs")
-          (set-fontset-font t 'hangul "NanumGothicCoding"))
-        (add-to-list 'after-make-frame-functions 'jao--set-fontsets)
-
-        ;; (use-package unicode-fonts :ensure t)
-        ;; (unicode-fonts-setup)
+          ;; boxes
+          (set-fontset-font t '(9472 . 9599) "Source Code Pro")
+          ;; variation selector-16
+          (set-fontset-font t 65039 "BabelStone Modern-1"))
 
-      #+END_SRC
+        (setq use-default-font-for-symbols nil)
+        (jao--set-fontsets nil)
+        (add-to-list 'after-make-frame-functions 'jao--set-fontsets)
+      #+end_src
 ***** list-fonts-display
       #+begin_src emacs-lisp
         (defun list-fonts-display (&optional matching)