Output in *Messages* when no orphan package has been found.

This commit is contained in:
syl20bnr 2014-10-21 15:43:08 -04:00
parent 288ec6f1d2
commit 6fd0623036
1 changed files with 20 additions and 18 deletions

View File

@ -250,21 +250,23 @@ orphan dependencies."
(orphans (contribsys/get-orphan-packages implicit-packages
dependencies))
(orphans-count (length orphans)))
(unless (not orphans)
;; for the loading dot bar
(spacemacs/append-to-buffer "OK!\n")
(spacemacs/append-to-buffer
(format "Found %s orphan package(s) to delete...\n"
orphans-count))
(setq deleted-count 0)
(dolist (orphan orphans)
(setq deleted-count (1+ deleted-count))
(spacemacs/replace-last-line-of-buffer
(format "--> deleting %s... [%s/%s]"
orphan
deleted-count
orphans-count) t)
(package-delete (symbol-name orphan)
(contribsys/get-package-version orphan))
(redisplay))
(spacemacs/append-to-buffer "\n"))))
(if orphans
(progn
;; for the loading dot bar
(spacemacs/append-to-buffer "OK!\n")
(spacemacs/append-to-buffer
(format "Found %s orphan package(s) to delete...\n"
orphans-count))
(setq deleted-count 0)
(dolist (orphan orphans)
(setq deleted-count (1+ deleted-count))
(spacemacs/replace-last-line-of-buffer
(format "--> deleting %s... [%s/%s]"
orphan
deleted-count
orphans-count) t)
(package-delete (symbol-name orphan)
(contribsys/get-package-version orphan))
(redisplay))
(spacemacs/append-to-buffer "\n"))
(message "No orphan package to delete."))))