emacs simple vanila org modern todo and priority clone

main.el

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