#유니코드: #폰트 #합자 $Symbola

증명) (0, 1)의 최댓값이 존재한다고 가정하고 그것을 𝑀이라고 ..

(defun my/emoji-set-font ()
  (interactive)
  (when (display-graphic-p) ; gui
    ;; (set-fontset-font t 'emoji (font-spec :family "Apple Color Emoji") nil 'prepend)

    ;; 여기 명시적으로 선언 필요
    (set-fontset-font t 'unicode (font-spec :family "Symbola") nil 'prepend) ;; TODO 2024-09-16 테스트 -- 𝑀＜1

    (set-fontset-font t 'emoji (font-spec :family "Noto Color Emoji") nil)
    (set-fontset-font t 'emoji (font-spec :family "Noto Emoji") nil 'prepend) ; Top
    )
  (unless (display-graphic-p) ; terminal
    (set-fontset-font "fontset-default" 'emoji (font-spec :family "Noto Emoji") nil 'prepend) ; default face
    )
  (set-fontset-font t 'symbol (font-spec :family "Symbola") nil 'prepend)
  (set-fontset-font t 'symbol (font-spec :family "Noto Sans Symbols 2") nil 'prepend)
  (set-fontset-font t 'symbol (font-spec :family "Noto Sans Symbols") nil 'prepend))

(setq
 +ligatures-extra-symbols '(;; org
                            :name          "»"
                            :src_block     "»"
                            :src_block_end "«"
                            :quote         "“"
                            :quote_end     "”"

                            ;; Typography
                            ;; :list_property "∷"
                            ;; :em_dash       "—"
                            ;; :ellipses      "…"
                            ;; :arrow_right   "→"
                            ;; :arrow_left    "←"
                            ;; :arrow_lr      "↔"
                            ;; :properties    "⚙"
                            ;; :end           "∎"

                            ;; Functional
                            :lambda        "λ"
                            :def           "ƒ"
                            :composition   "∘"
                            :map           "↦"

                            ;; Types
                            :null          "∅"
                            :true          "𝕥"
                            :false         "𝕗"
                            ;; :false         "𝔽"
                            :false         "⊥"
                            :int           "ℤ"
                            :float         "ℝ"
                            :str           "S"
                            :bool          "𝔹"
                            :list          "L"

                            ;; Flow
                            ;; :not           "￢"
                            :not           "¬"
                            :in            "∈"
                            :not-in        "∉"
                            :and           "∧"
                            :or            "∨"
                            :for           "∀"
                            :some          "∃"
                            :return        "⟼"
                            :yield         "⟻"

                            ;; Other
                            ;; :union         "⋃"
                            :union         "∪"
                            :intersect     "∩"
                            :diff          "∖"
                            :tuple         "⨂"
                            :pipe          "" ;; FIXME: find a non-private char
                            :dot           "•"))