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

----------------------------------------------------------------------
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.