combine custom symbol and face in org-modern-priority

[snakejke]

Currently, org-modern-priority accepts either a boolean or an alist of replacement strings, and org-modern-priority-faces handles colors separately. However, there is no convenient way to combine a custom symbol with a custom face for the same priority.

To achieve both, one has to fall back to raw propertized strings:

(setq org-modern-priority
  '((?A . #("❗" 0 1 (face (:foreground "orange" :weight bold :inverse-video t))))
    (?B . #("⬆"  0 1 (face (:foreground "yellow" :weight bold :inverse-video t))))
    (?C . #("⬇"  0 1 (face (:foreground "green"  :weight bold :inverse-video t))))
    (?D . #("⚑"  0 1 (face (:foreground "red"    :weight bold :height 1.2))))))

This works, but it is low-level and not obvious to users.

It would be nice if org-modern-priority accepted an extended alist format like:

(setq org-modern-priority
  '((?A :symbol "❗" :foreground "orange" :weight bold)
    (?D :symbol "⚑"  :foreground "red")))

Or alternatively, make org-modern-priority-faces apply correctly when a custom symbol is set, so both variables work together as expected.