                                                  "QUELPA -> ELPA"))
                                               ((plist-get (cdr pkg) :recipe)
                                                "QUELPA")
-                                              (t
-                                               "ELPA"))))
+                                              ("ELPA"))))
                               (cl-sort (cl-copy-list packages) #'string-lessp
                                        :key #'car)
                               "\n")))))

          ((not
            (or auto-accept-p
                (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)
                                   (pcase backend
                                     (`quelpa "QUELPA->ELPA")
                                     (`elpa "ELPA->QUELPA")
                                     (_ "removed"))
                                 (upcase (symbol-name backend))))))
                   (sort (cl-copy-list packages) #'string-lessp)
                   "\n")))))
           (error "Aborted!"))

          ((let (success)
             (dolist (pkg packages)
               (doom--condition-case!
                (print!
                 (let ((result (doom-delete-package pkg t)))
                   (when result (setq success t))
                   (color (if result 'green 'red)
                          "%s %s"
                          (if result "✓ Removed" "✕ Failed to remove")
                          pkg)))))

             (print! (bold (green "Finished!")))
             (if success (doom-delete-autoloads-file doom-package-autoload-file))
             success)))))

             (dolist (pkg packages)
               (print! "Installing %s" (car pkg))
               (doom--condition-case!
                (let ((result
                       (or (and (package-installed-p (car pkg))
                                (not (doom-package-different-backend-p (car pkg)))
                                (not (doom-package-different-recipe-p (car pkg)))
                                'already-installed)
                           (and (doom-install-package (car pkg) (cdr pkg))
                                (setq success t)
                                'success)
                           'failure))
                      (pin-label
                       (and (plist-member (cdr pkg) :pin)
                            (format " [pinned: %s]" (plist-get (cdr pkg) :pin)))))
                  (print! "%s%s"
                          (pcase result
                            (`already-installed (dark (white "⚠ ALREADY INSTALLED")))
                            (`success (green "✓ DONE"))
                            (`failure (red "✕ FAILED")))
                          (or pin-label "")))))
             (print! (bold (green "Finished!")))
             (if success (doom-delete-autoloads-file doom-package-autoload-file))
             success)))))
