reddit / emacs

How to select all heading faces at once (org-level-1 ... org-level-8)

rtwyyn · 2022-03-24 00:07
Hello everyone! Title says, wonder how to select all heading faces with one face, currently i have smng like: '(org-level-1 ((t (:inherit 'fixed-pitch)))) '(org-level-2 ((t (:inherit 'fixed-pitch)))) '(org-level-3 ((t (:inherit 'fixed-pitch)))) ... would like to replace it with one line if possible :)
oantolin · 2022-03-25 17:33
You could just do it in a loop: (dotimes (i 8) (set-face-attribute (intern (format "org-level-%d" (1+ i))) nil :inherit 'fixed-pitch)) It would probably be a good idea for Org to add a single base face all of those inherit from, so you could set your properties on just that base face. You could suggest that on the org mailing list.