feat: setup font

Author: xhcoding

.github/workflows/build.yml

@@ -6,29 +6,26 @@ on:
 
 jobs:
   build:
-    runs-on: ${{ matrix.os }}
-    strategy:
-      matrix:
-        os: [ubuntu-latest]
-        arch: [amd64, arm64]
+    runs-on: ubuntu-latest
     steps:
-      - name: Set environment variables
-        run: |
-           if [ "${{ matrix.arch }}" = "amd64" ]; then
-             export ARCH=amd64
-           elif [ "${{ matrix.arch }}" = "arm64" ]; then
-             export ARCH=arm64
-           fi
-           echo "ARCH=$ARCH" >> $GITHUB_ENV
-
       - name: Checkout
         uses: actions/checkout@v3
 
       - name: Set up Docker Buildx
         uses: docker/setup-buildx-action@v3
 
+      - name: Set up QEMU
+        uses: docker/setup-qemu-action@v3
+
+      - name: Set up Docker Buildx
+        uses: docker/setup-buildx-action@v3
+
       - name: Build docker
-        run: docker build -t emacs-ubuntu-docker-image:latest .
+        uses: docker/build-push-action@v6
+        with:
+          push: false
+          platforms: linux/amd64,linux/arm64
+          tags: emacs-ubuntu-docker-image:latest
 
       - name: Save docker
         run: docker save emacs-ubuntu-docker-image:latest | gzip > emacs-ubuntu-docker-image-${ARCH}.tar.gz
@@ -37,4 +34,4 @@ jobs:
         uses: softprops/action-gh-release@v1
         if: startsWith(github.ref, 'refs/tags/')
         with:
-            files: emacs-ubuntu-docker-image-*.*
+            files: emacs-ubuntu-docker-image.*

README.org

@@ -735,28 +735,52 @@ ref: https://github.com/manateelazycat/auto-save
 ** 字体和主题
 
 #+begin_src elisp
-  (use-package faces
-    :disabled
-    :ban minimal?
-    :custom-face
-    (variable-pitch
-     ((t (:font ,(font-xlfd-name (font-spec :family "Alegreya"))))))
-    (default
-     ((t (:font ,(font-xlfd-name (font-spec :family "CaskaydiaCove NFP"))
-                :height 120))))
-    (fixed-pitch
-     ((t (:inherit default))))
-    :config
-    (set-fontset-font t 'symbol (font-spec :family "Segoe UI Symbol"))
-
-    (set-fontset-font t 'emoji (font-spec :family "Segoe UI Emoji"))
-
-    (set-fontset-font t 'chinese-gbk (font-spec :family "微软雅黑"))
-
-    )
+  (defun my-font-installed-p (font-name)
+    "Check if font with FONT-NAME is available."
+    (find-font (font-spec :name font-name)))
+
+  (defun my-setup-fonts ()
+    "Setup fonts."
+    (when (display-graphic-p)
+      ;; Set default font
+      (cl-loop for font in '("CaskaydiaCove NFP" "Fira Code" "Jetbrains Mono"
+                             "SF Mono" "Hack" "Source Code Pro" "Menlo"
+                             "Monaco" "DejaVu Sans Mono" "Consolas")
+               when (my-font-installed-p font)
+               return (set-face-attribute 'default nil
+                                          :family font
+                                          :height 120))
+
+      ;; Specify font for all unicode characters
+      (cl-loop for font in '("Segoe UI Emoji" "Apple Symbols" "Symbola" "Symbol")
+               when (my-font-installed-p font)
+               return (set-fontset-font t 'symbol (font-spec :family font) nil 'prepend))
+
+      ;; Emoji
+      (cl-loop for font in '("Segoe UI Emoji" "Noto Color Emoji" "Apple Color Emoji")
+               when (my-font-installed-p font)
+               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 '("微软雅黑" "WenQuanYi Micro Hei Mono")
+               when (my-font-installed-p font)
+               return (set-fontset-font t 'han (font-spec :family font)))))
+
+  (my-setup-fonts)
+  (add-hook 'window-setup-hook #'my-setup-fonts)
+  (add-hook 'server-after-make-frame-hook #'my-setup-fonts)
 
+  (ignore-errors
+    (load-theme 'modus-operandi-tinted :no-confirm))
 
-  ;;(load-theme 'modus-operandi-tinted :no-confirm)
+  (use-package nerd-icons
+    :straight t
+    :init
+    (cl-loop for font in '("CaskaydiaCove NFP" "Symbols Nerd Font Mono")
+             when (my-font-installed-p font)
+             return (setq nerd-icons-font-family font)))
 #+end_src
 
 ** ligature 连字体
@@ -2119,19 +2143,20 @@ ref:https://github.com/manateelazycat/toggle-one-window
     (org-use-sub-superscripts '{})
     :config
 
-    (create-fontset-from-fontset-spec
-     (font-xlfd-name
-      (font-spec :family "等距更纱黑体 SC"
-                 :weight 'regular
-                 :slant 'normal
-                 :registry "fontset-orgtable")))
+    (when (my-font-installed-p "等距更纱黑体 SC")
+      (create-fontset-from-fontset-spec
+       (font-xlfd-name
+        (font-spec :family "等距更纱黑体 SC"
+                   :weight 'regular
+                   :slant 'normal
+                   :registry "fontset-orgtable")))
 
-    (set-fontset-font "fontset-orgtable" '(#x0 . #xffff)
-                      (font-spec :family "等距更纱黑体 SC"
-                                 :weight 'regular
-                                 :slant 'normal))
+      (set-fontset-font "fontset-orgtable" '(#x0 . #xffff)
+                        (font-spec :family "等距更纱黑体 SC"
+                                   :weight 'regular
+                                   :slant 'normal))
 
-    (set-face-attribute 'org-table nil :fontset "fontset-orgtable" :font "fontset-orgtable")
+      (set-face-attribute 'org-table nil :fontset "fontset-orgtable" :font "fontset-orgtable"))
 
     (defun my--org-prettify-symbols ()
       (setq prettify-symbols-alist