 (defun doom//packages-autoremove ()
   "Interactive command for auto-removing orphaned packages."
   (interactive)
+  (message! "Looking for orphaned packages...")
   (let ((packages (doom-get-orphaned-packages)))
     (cond ((not packages)
            (message! (green "No unused packages to remove")))
 
-          ((not (or (getenv "YES")
-                    (y-or-n-p
-                     (format "%s packages will be deleted:\n\n%s\n\nProceed?"
-                             (length packages)
-                             (mapconcat
-                              (lambda (sym)
-                                (format
-                                 "+ %s (%s)"
-                                 sym
-                                 (let ((backend (doom-package-backend sym)))
-                                   (if (doom-package-different-backend-p sym)
-                                       (if (eq backend 'quelpa)
-                                           "QUELPA->ELPA"
-                                         "ELPA->QUELPA")
-                                     (if (eq backend 'quelpa)
-                                         "QUELPA"
-                                       "ELPA")))))
-                              (sort (cl-copy-list packages) #'string-lessp)
-                              "\n")))))
+          ((not
+            (or (getenv "YES")
+                (y-or-n-p
+                 (format
+                  "%s packages will be deleted:\n\n%s\n\nProceed?"
+                  (length packages)
+                  (mapconcat
+                   (lambda (sym)
+                     (format "+ %s (%s)" sym
+                             (let ((backend (doom-package-backend sym)))
+                               (if (doom-package-different-backend-p sym)
+                                   (if (eq backend 'quelpa)
+                                       "QUELPA->ELPA"
+                                     "ELPA->QUELPA")
+                                 (upcase (symbol-name backend))))))
+                   (sort (cl-copy-list packages) #'string-lessp)
+                   "\n")))))
            (message! (yellow "Aborted!")))
 
           (t

                    (load ,(expand-file-name "core.el" doom-core-dir)))
                  (doom-package-outdated-p ',pkg)))
              futures))
      (append (delq nil (mapcar #'doom-package-outdated-p elpa-pkgs))
              (delq nil (mapcar #'async-get (reverse futures)))))))

;;;###autoload
(defun doom-get-orphaned-packages ()

           (message! (bold (green "Finished!")))
           (doom//reload-load-path)))))


;;
;; Interactive commands
;;

;;;###autoload
(defalias 'doom/install-package #'package-install)
