Я узнал о variable-pitch-mode qaru.site/info/166747/..., и это очень удобно при записи в org-mode, проще в глазах и во всем. Но использование таблиц в org близко к бесполезным при использовании пропорциональных шрифтов. И возможность использования таблиц является одной из сильных сторон с org-mode :-(
Есть ли способ иметь пропорциональные шрифты для текста, заголовки и т.д., но моноширинный шрифт для таблиц в org-mode?
Посмотрите, работает ли это,
(set-face-attribute 'org-table nil :inherit 'fixed-pitch)
Вы можете использовать C-u C-x =, чтобы увидеть, какое лицо действует в определенной точке.
Этот код позволит отображать таблицы и рисунки 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), прочитайте мой пост по теме