feat(face-diagnostic): bind cj/describe-face-at-point to C-h F

Bind the diagnostic in the help cluster on C-h F (Face), Craig's pick. It shadows helpful-function, which also sits on C-h F in this config. face-diagnostic is required after help-config, so this binding wins. A test asserts C-h F resolves to the command.

1 files changed, 6 insertions, 1 deletions

diff --git a/modules/face-diagnostic.el b/modules/face-diagnostic.el
index 83c81d92c..6b1b547f1 100644
--- a/modules/face-diagnostic.el
+++ b/modules/face-diagnostic.el
@@ -8,7 +8,7 @@
 ;; Load shape: eager.
 ;; Eager reason: none; a diagnostic command, a command-loaded deferral candidate.
 ;; Top-level side effects: defines cj/face-diagnostic-mode and the
-;;   cj/describe-face-at-point command; binds no global key.
+;;   cj/describe-face-at-point command; binds it to C-h F in help-map.
 ;; Runtime requires: seq.
 ;; Direct test load: yes (the pure core is tested by requiring this module).
 ;;
@@ -447,5 +447,10 @@ See docs/specs/face-font-diagnostic-popup-spec-implemented.org."
        (cj/--face-diag-render-region (region-beginning) (region-end))
      (cj/--face-diag-render (cj/--face-diagnosis-at (point))))))
 
+;; Bound on C-h F (Face) in the help cluster.  This shadows helpful-function,
+;; which also sits on C-h F here; face-diagnostic loads after help-config, so
+;; this binding wins.
+(keymap-set help-map "F" #'cj/describe-face-at-point)
+
 (provide 'face-diagnostic)
 ;;; face-diagnostic.el ends here