`variable-pitch` pour le mode org, à pas fixe pour les tables?

Question

J'ai découvert environ variable-pitch-modethrough a thread here on StackOverflow, et c'est très pratique en écrivant en org-mode, plus facile sur les yeux et tout. Mais l'utilisation de tables dans org est proche de zéro lors de l'utilisation de polices proportionnelles. Et être capable d'utiliser des tables est un des points forts avec org-mode:-(

Est-il possible d'avoir des polices proportionnelles pour le texte, les titres, etc., mais une police pour les tables à espacement fixe org-mode?

Answer 1

Voir si cela fonctionne,

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

Vous pouvez utiliser C-u C-x = pour voir quel visage est en vigueur à un moment donné.

Answer 2

Ce code permet d'afficher les tableaux et les blocs de code source et d'image ascii dans une police monospace, tout en préservant d'autres attributs de police pour les tableaux (tels que la couleur bleue), etc. Le code est basé sur l'autre réponse, la seule différence est la préservation.

(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 vous souhaitez savoir comment cela fonctionne et comment appliquer cela à d'autres situations (telles que le mode Info), lisez my post on the subject