Today I discovered there are two built in `variables` that you can customize in `org-faces` to achieve a style similar `org-modern`. However, there are limitations, for example, org-modern add space paddings to improve the visuals, which you cannot do with these two variables.
Exactly for that reason, I will have little use for this discovery, and would rather keep it out of my .emacs.d. But hey, maybe someone would make use of this somehow :).
You should be able to see an example also below.
(with-eval-after-load 'org-faces
(setq org-todo-keyword-faces
(append
(cl-loop for todo in '("TODO" "NEXT" "STARTED"
"PROJECT" "HOLD")
with faces = '(:height 0.8 :inherit (org-modern-todo))
collect (cons todo faces))
(cl-loop for todo in '("CANCELLED" "DONE")
with faces = '(:height 0.8 :inherit (org-modern-done))
collect (cons todo faces)))
org-priority-faces
(cl-loop with end = org-priority-lowest
for i from org-priority-highest to end
collect (list i :inherit 'org-modern-priority))))
Here a [gist link](https://gist.github.com/Inc0n/8f1f7eecbd79722deb3c2f58cfeebac6) to the same snippet, acting as a backup.
[Example](https://preview.redd.it/lo0ndmg7ytu91.png?width=632&format=png&auto=webp&s=c49c165713d9d2985a7df46ee0a83fc9b3973311)