20

variable-pitch-mode 我是通过 StackOverflow 上的一个线程发现的,它在写入时非常方便org-mode,对眼睛和一切都更容易。但是在使用比例字体时,在 org 中使用表格几乎毫无价值。并且能够使用表格是优势之一org-mode :-(

有什么方法可以为文本、标题等设置比例字体,但为表格设置等宽字体org-mode

4

2 回答 2

22

看看这是否有效,

(set-face-attribute 'org-table nil :inherit 'fixed-pitch)

您可以使用C-u C-x =来查看在特定点上哪个面有效。

于 2010-09-21T14:36:00.550 回答
11

此代码将使表格和 ascii 艺术和源代码块以等宽字体显示,同时保留表格的其他字体属性(例如蓝色)等。代码基于另一个答案,唯一的区别是保存。

(defun my-adjoin-to-list-or-symbol (element list-or-symbol)
  (let ((list (if (not (listp list-or-symbol))
                  (list list-or-symbol)
                list-or-symbol)))
    (require 'cl-lib)
    (cl-adjoin element list)))

(eval-after-load "org"
  '(mapc
    (lambda (face)
      (set-face-attribute
       face nil
       :inherit
       (my-adjoin-to-list-or-symbol
        'fixed-pitch
        (face-attribute face :inherit))))
    (list 'org-code 'org-block 'org-table 'org-block-background)))

如果您想了解其工作原理以及如何将其应用于其他情况(例如信息模式),请阅读我关于该主题的帖子

于 2013-05-29T16:36:07.240 回答