快速调整Emacs字体大小

aqua0210 · 2022 年9 月 5 日 13:03

我是定义了一个函数改变字体（包括字体和大小），可以改变所有Frame。

这是我用的设置：

Eason0210/.emacs.d/blob/929fac9982719525aee02db1095b0b8a7b45c23e/early-init.el#L43-L59


      
          (defun change-font ()
            "Change the font of frame from an available `font-list'."
            (interactive)
            (let* (available-fonts font-name font-size font-set)
              (dolist (font font-list (setq available-fonts (nreverse available-fonts)))
                (when (font-installed-p (car font))
                  (push font available-fonts)))
              (if (not available-fonts)
                  (message "No fonts from the chosen set are available")
                (if (called-interactively-p 'interactive)
                    (let* ((chosen (assoc-string (completing-read "What font to use? " available-fonts nil t)
                                                 available-fonts)))
                      (setq font-name (car chosen) font-size (read-number "Font size: " (cdr chosen))))
                  (setq font-name (caar available-fonts) font-size (cdar available-fonts)))
                (setq font-set (format "%s-%d" font-name font-size))
                (set-frame-font font-set nil t)
                (add-to-list 'default-frame-alist (cons 'font font-set)))))