Skip to content

Commit

Permalink
chord: update font examples
Browse files Browse the repository at this point in the history
  • Loading branch information
seagle0128 committed Nov 20, 2024
1 parent 05e6534 commit 90958a6
Showing 1 changed file with 5 additions and 11 deletions.
16 changes: 5 additions & 11 deletions custom-example.el
Original file line number Diff line number Diff line change
Expand Up @@ -54,22 +54,16 @@
;; (set-face-attribute 'mode-line-inactive nil :family font :height 120)))

;; Specify font for all unicode characters
(cl-loop for font in '("Segoe UI Symbol" "Symbola" "Symbol")
(cl-loop for font in '("Apple Symbols" "Segoe UI Symbol" "Symbola" "Symbol")
when (font-installed-p font)
return (if (< emacs-major-version 27)
(set-fontset-font "fontset-default" 'unicode font nil 'prepend)
(set-fontset-font t 'symbol (font-spec :family font) nil 'prepend)))
return (set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))

;; Emoji
(cl-loop for font in '("Noto Color Emoji" "Apple Color Emoji" "Segoe UI Emoji")
when (font-installed-p font)
return (cond
((< emacs-major-version 27)
(set-fontset-font "fontset-default" 'unicode font nil 'prepend))
((< emacs-major-version 28)
(set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))
(t
(set-fontset-font t 'emoji (font-spec :family font) nil 'prepend))))
return (set-fontset-font t
(if (< emacs-major-version 28)'symbol 'emoji)
(font-spec :family font) nil 'prepend))

;; Specify font for Chinese characters
(cl-loop for font in '("LXGW Neo Xihei" "WenQuanYi Micro Hei Mono" "LXGW WenKai Screen"
Expand Down

0 comments on commit 90958a6

Please sign in to comment.