设置 Emacs 每个缓冲区/模式的默认字体

Question

如何更改 Emacs 用于在每种模式下设置文本样式的默认外观？

例如，假设我已经对我拥有的面部自定义感到满意，其中包括默认的固定宽度字体。 但是，在一种特定模式（例如 markdown-mode.el）下，我希望默认字体是可变宽度的。

为 Markdown 模式设置标题、链接等的样式非常简单：只需将光标放在样式文本和 Mxdescribe-face 上，然后单击链接即可对其进行自定义。

但是，默认面是在没有指定其他面时使用的面，因此它不是特定于 markdown-mode 的，如果修改将影响所有其他模式。

我可以在 markdown-mode-hook 中添加什么魔法来设置使用此模式的缓冲区的默认外观？

Answer 1

怎么样：

(add-hook 'markdown-mode-hook (lambda () (variable-pitch-mode t))

然后您可以自定义variable-pitch 面，缓冲区中的其他面将从该面继承，而不是默认面。

阅读 buffer-face-mode 的文档以了解更多自定义详细信息。 （BufFace 还用于 text-scale-increase 和 text-scale-decrease...非常有用。）

Answer 2

我必须给出部分答案，因为这太复杂了，无法当场弄清楚，而且我已经超出了我的时间预算。

Face 是一个框架属性。 一个帧可以同时显示多个缓冲区。 模式是缓冲区属性。 您询问如何根据每种模式改变脸部。 综合所有这些，似乎这个问题不可能没有一个完全正确的答案。

如果您假设给定的帧永远不会显示多个缓冲区，则可以近似得到所需的答案。 实际上，您可以使用类似的方法来完成此操作，但修改为使用特殊显示正则表达式和一组与您的降价模式缓冲区名称匹配的正则表达式。

(append special-display-buffer-names
        '("*VC-log*"
          "*Help*"
          ("*Completions*" 
           (height . 25)
           (font . "8x13"))))

但是，这可能不是您想要的。 您的问题似乎意味着更改单个框架的面部属性。

再次假设一帧永远不会一次显示多个缓冲区，您可以尝试建议切换到缓冲区。 但这可能还不够低，而且可能太慢。 （未经测试）

(defadvice switch-to-buffer (after switch-to-buffer activate compile)
  "change the frame's default face after switch-to-buffer"
  (doSomethingToChangePropertiesOfDefaultFace))

现在我的实际（不完整）答案...

更好，尽管更复杂，方法将指示降价模式为尚未分配内置面孔之一的所有区域使用新面孔。 您可以使用 copy-face 创建一个新面，并使用 set-face-* 为其赋予有趣的属性。

修改 markdown-mode 的 font-lock-defaults 以覆盖默认的 font-lock-fontify-region-function，如 font-lock.el 第 946 行附近以“字体化函数”开头的注释块中所述。 您可能可以使用稍微修改过的 font-lock-default-fontify-region，它在完成后立即执行一个额外的步骤：

  (unless font-lock-keywords-only
    (font-lock-fontify-syntactically-region beg end loudly))

额外的步骤解析该区域，类似于 font-lock-fontify-syntropically-region 所做的，打破了区域划分为“有趣的”子区域。 但这次您找到具有默认面的子区域，并将这些子区域的文本属性设置为您之前创建的新面。

总而言之，你的 .emacs 文件中应该只有几行 elisp，再加上制作一个 font-lock-default-fontify-region 的副本，它与原始版本只有很小的差异（调用一个新函数），另外，制作 font-lock-fontify-syntropically-region 的副本并修改它以执行您的命令（最困难的部分）。

实际上，如果您“之后”建议 font-lock-fontify-syntropically-region，那么您可能甚至不需要修改 font-lock-defaults 或 font-lock-default-fontify-region。

Answer 3

可变音高模式非常棒。 我是通过这个帖子知道的。 但它可以做得更棒：

(dolist (hook '(erc-mode-hook
        LaTeX-mode-hook
        org-mode-hook
        edit-server-start-hook
        markdown-mode-hook))
  (add-hook hook (lambda () (variable-pitch-mode t))))

只需将您想要的无衬线字体的任何模式添加到列表中即可。

Answer 4

我发现 EmacsWiki 中有一段代码非常方便。 这样做的好处是不仅可以设置字体，还可以方便地配置 :height、:width 等，并

;; Use variable width font faces in current buffer
(defun my-buffer-face-mode-variable ()
  "Set font to a variable width (proportional) fonts in current buffer"
  (interactive)
  (setq buffer-face-mode-face '(:family "DejaVu Sans" :height 100 :width semi-condensed))
  (buffer-face-mode))
;; Use monospaced font faces in current buffer
(defun my-buffer-face-mode-fixed ()
  "Sets a fixed width (monospace) font in current buffer"
  (interactive)
  (setq buffer-face-mode-face '(:family "Consolas" :height 100))
  (buffer-face-mode))
;; Set default font faces for Info and ERC modes
(add-hook 'erc-mode-hook 'my-buffer-face-mode-variable)
(add-hook 'Info-mode-hook 'my-buffer-face-mode-variable)

与 load-theme-buffer- 结合使用local 包中，您甚至可以轻松指定缓冲区的颜色主题：

(defun my-buffer-face-mode-variable ()
  "Set font to a variable width (proportional) fonts in current buffer"
  (interactive)
  (setq buffer-face-mode-face '(:family "DejaVu Sans" :height 100 :width semi-condensed))
  (buffer-face-mode)
  (load-theme-buffer-local 'leuven (current-buffer)))

Answer 5

即使对于 emacs 版本 22.3.1，它实际上也很简单......

只需尝试以下操作：

(progn 
  (set-buffer "your buffer name here")
  (overlay-put (make-overlay 0 (buffer-size)) 'face 'your-face))