我很难更改我的Emacs配置字体。 我已经尝试使用set-default-font，并设法将选项卡到我所需的字体上，但是，某些元素仍然被渲染为旧字体（即Python的类名称和函数名称）

Question

确实很旧，并且在Emacs 23中已弃用了其新名称Set-Frame-font（这并不好）。 当前的emacs手册

ssuggests设置默认字体

的几种方法，但是我假设您已经找到了这些默认字体，因为您尝试了set-default-font ...

Answer 1

我使用的ELISP代码实际上与所建议的所有方法不同：

;; [in .emacs] ;使用10点consolas作为默认字体 （set-face-attribute'defaultnil

：家庭“ consolas”：高度100

）

set-face-attribute似乎比Set-Default-font贴合得更好；至少即使在诸如Python类和函数名称之类的内容中，它似乎也始终如一地使用consolas。

M-x customize-face default将让您自定义默认字体。

如果某些内容仍然是您不喜欢的字体中渲染的，然后将光标放置在有问题的文本上并键入M-x customize-face

；您的光标结束的面孔将是要自定义的默认一个。

Answer 2

(defun my-dpi ()
  (let* ((attrs (car (display-monitor-attributes-list)))
         (size (assoc 'mm-size attrs))
         (sizex (cadr size))
         (res (cdr (assoc 'geometry attrs)))
         (resx (- (caddr res) (car res)))
         dpi)
    (catch 'exit
      ;; in terminal
      (unless sizex
        (throw 'exit 10))
      ;; on big screen
      (when (> sizex 1000)
        (throw 'exit 10))
      ;; DPI
      (* (/ (float resx) sizex) 25.4))))

(defun my-preferred-font-size ()
  (let ( (dpi (my-dpi)) )
  (cond
    ((< dpi 110) 10)
    ((< dpi 130) 11)
    ((< dpi 160) 12)
    (t 12))))

(defvar my-preferred-font-size (my-preferred-font-size))

;; antialias=none hinting=none
;; antialias=1:hinting=1:hintstyle=3
(defvar my-regular-font
  (cond
   ((eq window-system 'x) (format "DejaVu Sans Mono-%d:weight=normal" my-preferred-font-size))
   ((eq window-system 'w32) (format "Courier New-%d:antialias=none" my-preferred-font-size))))
(defvar my-symbol-font
  (cond
   ((eq window-system 'x) (format "DejaVu Sans Mono-%d:weight=normal" my-preferred-font-size))
   ((eq window-system 'w32) (format "DejaVu Sans Mono-%d:antialias=none:hinting=1:hintstyle=full" my-preferred-font-size))))
(defvar my-math-font (format "STIX Two Math-%d:antialias=1:hinting=1:hintstyle=full" my-preferred-font-size))

(cond
 ((eq window-system 'x)
  (if (and (fboundp 'find-font) (find-font (font-spec :name my-regular-font)))
      (set-frame-font my-regular-font)
    (set-frame-font "7x14")))
 ((eq window-system 'w32)
  (set-frame-font my-regular-font)
  ;; (set-default-font my-regular-font)
  (add-to-list 'default-frame-alist
               (cons 'font my-regular-font))
  (set-fontset-font nil 'cyrillic my-regular-font)
  (set-fontset-font nil 'greek my-regular-font)
  (set-fontset-font nil 'phonetic my-regular-font)
  (set-fontset-font nil 'symbol my-symbol-font)
  (set-fontset-font nil '(?\x2460 . ?\x24fe) my-math-font)
  (set-fontset-font nil 'mathematical my-math-font)))