`variable-pitch` para org-mode, fixed-pitch para tablas?

Question

Me enteré de variable-pitch-modethrough a thread here on StackOverflow, y es muy útil cuando escribo en org-mode, más fácil para los ojos y todo. Pero usar tablas en org es casi inútil al usar fuentes proporcionales. Y ser capaz de utilizar las tablas es una de las fortalezas con org-mode:-(

¿Hay alguna manera de tener fuentes proporcionales de texto, encabezados, etc, pero una fuente de espacio sencillo para las tablas en org-mode?

Answer 1

A ver si esto funciona,

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

Es posible utilizar C-u-C x = para ver qué cara es, en efecto, en un punto determinado.

Answer 2

Este código hará que las tablas y los bloques de ascii art y de código fuente se muestren en una fuente monoespacial, conservando otros atributos de fuente para las tablas (como el color azul) y así sucesivamente. El código se basa en la otra respuesta, la única diferencia es la preservación.

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

Si desea aprender cómo funciona y cómo se aplica esto a otras situaciones (como el modo Info), leer my post on the subject