如何获得当前的字体?

elisp的api不是很熟悉。。想获得当前使用的字体 字符串。

C-h ’ 或 M-x describe-char

用elisp 得到个字体名称的字符串哦。。

也许可以用:

(face-attribute 'default :font) 

这个太多了。default-frame-alist 里能获取到。但是是一堆*-加字体名称。我想直接取到名称。我的需求就是字体设置的Monaco 我想得到个Monaco

(format "%s" (font-get (font-at (point)) :family))
;; => "等距更纱黑体 SC"

之后可以使用 font-get 函数得到当前字体的 family 的 symbol

(font-get (face-attribute 'default :font) :family)

这个ok!!!

C-uC-x=