`variable-pitch` для org-mode, фиксированный шаг для таблиц?

Я узнал о variable-pitch-mode qaru.site/info/166747/..., и это очень удобно при записи в org-mode, проще в глазах и во всем. Но использование таблиц в org близко к бесполезным при использовании пропорциональных шрифтов. И возможность использования таблиц является одной из сильных сторон с org-mode :-(

Есть ли способ иметь пропорциональные шрифты для текста, заголовки и т.д., но моноширинный шрифт для таблиц в org-mode?

Ответы

Ответ 1

Посмотрите, работает ли это,

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

Вы можете использовать C-u C-x =, чтобы увидеть, какое лицо действует в определенной точке.

Ответ 2

Этот код позволит отображать таблицы и рисунки 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)))

Если вы хотите узнать, как это работает и как применить это к другим ситуациям (например, режим Info), прочитайте мой пост по теме