组织模式使用“可变间距”,桌子使用固定间距?

发布于 2024-09-24 10:19:27 字数 344 浏览 2 评论 0原文

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

有没有办法让文本、标题等使用比例字体,但使用等宽字体对于 org-mode 中的表?

I found out about variable-pitch-mode through a thread here on StackOverflow, and it's very handy when writing in org-mode, easier on the eyes and everything. But using tables in org is close to worthless when using proportional fonts. And being able to use tables is one of the strengths with org-mode :-(

Is there any way to have proportional fonts for text, headings etc. but a monospace font for tables in org-mode?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(2

眼泪都笑了 2024-10-01 10:19:27

看看这是否有效,

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

您可以使用 Cu Cx = 来查看哪个面在特定点有效。

See if this works,

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

You may use C-u C-x = to see which face is in effect at a particular point.

他不在意 2024-10-01 10:19:27

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

(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)))

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

This code will make tables and ascii art and source code blocks to be displayed in monospace font, while preserving other font attributes for tables (such as color blue) and so on. Code is based on the other answer, the only difference is preservation.

(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)))

If you'd like to learn how this works and how to apply this to other situations (such as Info mode), read my post on the subject

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文