From 90958a6d587860b82c06c93e315b4cea5a006ef2 Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Wed, 20 Nov 2024 22:25:01 +0800 Subject: [PATCH] chord: update font examples --- custom-example.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/custom-example.el b/custom-example.el index 0d901f39b..c9179b1b6 100644 --- a/custom-example.el +++ b/custom-example.el @@ -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"