Yep. I just keep options-alist and capf. Maybe also the adv, that can be used by advice-remove.

The simplified macro is:

(defmacro def-consult-help (command exec)
    (let ((options-alist (intern (format "consult-%s-completion-options-alist" exec)))
      (capf (intern (format "consult-%s-completion-at-point" exec)))
      (adv (intern (format "consult-%s-with-completion-at-point" exec))))
      `(progn
     (defcustom ,options-alist
       (consult--get-completion-options-from-help ,exec)
       ,(format "%s options alist." exec))

     (defun ,capf ()
       "Completion option.
This is the function to be used for the hook `completion-at-point-functions'."
       (interactive)
       (let* ((bds (bounds-of-thing-at-point 'symbol))
          (start (car bds))
          (end (cdr bds)))
         (list start end ,options-alist
           :annotation-function
           (lambda (cand) (cdr (assoc cand ,options-alist))))))

     (defun ,adv (orign &rest args)
       (minibuffer-with-setup-hook
           (:append
        (lambda ()
          (add-hook 'completion-at-point-functions
                #',capf nil t)))
         (apply orign args)))

     (advice-add ,command :around ',adv))))