fonts.el

(defconst win32p
    (eq system-type 'windows-nt)
  "Are we running on a WinTel system?")

(dolist (symbol-subgroup
         '((#x2000 . #x2012)	;; General Punctuation
           (#x2015 . #x2017)
           #x201F
           (#x2023 . #x202F)
           (#x2031 . #x2038)
           (#x203B . #x206F)
           (#x2070 . #x209F)	;; Superscripts and Subscripts
           (#x20B6 . #x20CF)	;; Currency Symbols
           (#x2100 . #x2121)	;; Letterlike Symbols
           (#x2123 . #x214F)
           (#x2150 . #x215A)	;; Number Forms
           (#x215F . #x218F)
           (#x2194 . #x21FF)	;; Arrows
           (#x2200 . #x2211)	;; Mathematical Operators
           (#x2213 . #x2247)
           (#x2249 . #x225F)
           (#x2261 . #x2263)
           (#x2266 . #x22FF)
           (#x2300 . #x2301)	;; Miscellaneous Technical
           (#x2303 . #x230F)
           (#x2311 . #x231F)
           (#x2322 . #x23FF)
           (#x2400 . #x243F)	;; Control Pictures
           (#x2440 . #x245F)	;; Optical Char Recognition
           (#x2460 . #x24FF)	;; Enclosed Alphanumerics
           (#x25A0 . #x25FF)	;; Geometric Shapes
           (#x2600 . #x265F)	;; Miscellaneous Symbols
           (#x2661 . #x2662)
           #x2664
           (#x2667 . #x2669)
           (#x266C . #x26FF)
           (#x2700 . #x27bF)	;; Dingbats
           (#x27C0 . #x27EF)	;; Misc Mathematical Symbols-A
           (#x27F0 . #x27FF)	;; Supplemental Arrows-A
           (#x2900 . #x297F)	;; Supplemental Arrows-B
           (#x2980 . #x29FF)	;; Misc Mathematical Symbols-B
           (#x2A00 . #x2AFF)	;; Suppl. Math Operators
           (#x2B00 . #x2BFF)	;; Misc Symbols and Arrows
           (#x2E00 . #x2E7F)	;; Supplemental Punctuation
           (#x4DC0 . #x4DFF)	;; Yijing Hexagram Symbols
           (#xFE10 . #xFE1F)	;; Vertical Forms
           (#x10100 . #x1013F)	;; Aegean Numbers
           (#x102E0 . #x102FF)	;; Coptic Epact Numbers
           (#x1D000 . #x1D0FF)	;; Byzantine Musical Symbols
           (#x1D400 . #x1D7FF)  ;; Mathematical Alphanumeric Symbols
           (#x1F0A0 . #x1F0FF)	;; Playing Cards
           (#x1F100 . #x1F1FF)))	;; Enclosed Alphanumeric Suppl

  (set-fontset-font "fontset-default" symbol-subgroup
                    '("DejaVu Sans" . "iso10646-1") nil 'prepend))


(dolist (emoji-subgroup
         '((#x1F300 . #x1F5FF)
           (#x1F600 . #x1F64F)	;; Emoticons
           (#x1F650 . #x1F67F)	;; Ornamental Dingbats
           (#x1F680 . #x1F6FF)	;; Transport and Map Symbols
           (#x1F700 . #x1F77F)	;; Alchemical Symbols
           (#x1F780 . #x1F7FF)	;; Geometric Shapes Extended
           (#x1F800 . #x1F8FF)	;; Supplemental Arrows-C
           (#x1F900 . #x1F9FF)
           ))
  (set-fontset-font "fontset-default" emoji-subgroup
                    (font-spec :family (if win32p "Segoe UI Emoji" "Noto Color Emoji") :registry "iso10646-1") nil 'prepend))