          (completing-read (if guess
                               (format "Select Doom package to search for (default %s): "
                                       guess)
-                            "Describe Doom package: ")
+                            (format "Describe Doom package (%d): " (length packages)))
                           packages nil t nil nil
                           (if guess (symbol-name guess))))))))
+  ;; TODO Refactor me.
   (require 'core-packages)
   (doom-initialize-packages)
   (if (or (package-desc-p package)

           ":(exclude)*.org"))
     "\n" t)))

;;;###autoload
(defun doom/help-packages (package)
  "Like `describe-package', but for packages installed by Doom modules.

                                     (format "%s.el" package))))
                  (_ (plist-get plist :url))))))
        ((and (require 'package nil t)
              (or package-archive-contents
                  (progn (package-refresh-contents)
                         package-archive-contents))
              (pcase (package-desc-archive (cadr (assq package package-archive-contents)))
                ("org" "https://orgmode.org")
                ((or "melpa" "melpa-mirror")
