TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: minor functions renaming in core-configuration-layer.el 

configuration-layer//get-packages-dependencies --> configuration-layer//get-packages-upstream-dependencies-from-alist
 configuration-layer//get-implicit-packages --> configuration-layer//get-implicit-packages-from-alist
This commit is contained in:
syl20bnr 2017-01-17 00:23:04 -05:00
parent cf5dac00ad
commit afb2efcf56
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
core/core-configuration-layer.el
View File

@ -1793,9 +1793,11 @@ to select one."
(unless (memq pkg package-activated-list)
(package-activate pkg)))
(defun configuration-layer//get-packages-dependencies ()
"Returns dependencies hash map for all packages in `package-alist'."
(let ((result (make-hash-table :size 512)))
(defun configuration-layer//get-packages-upstream-dependencies-from-alist ()
"Returns upsteam dependencies hash map for all packages in `package-alist'.
The keys are package names and the values are lists of package names that
depends on it."
(let ((result (make-hash-table :size 1024)))
(dolist (pkg package-alist)
(let* ((pkg-sym (car pkg))
(deps (configuration-layer//get-package-deps-from-alist pkg-sym)))
@ -1807,7 +1809,7 @@ to select one."
result)))))
result))
(defun configuration-layer//get-implicit-packages (packages)
(defun configuration-layer//get-implicit-packages-from-alist (packages)
"Returns packages in `packages-alist' which are not found in PACKAGES."
(let (imp-pkgs)
(dolist (pkg package-alist)
@ -1900,9 +1902,11 @@ to select one."
(defun configuration-layer/delete-orphan-packages (packages)
"Delete PACKAGES if they are orphan."
(interactive)
(let* ((dependencies (configuration-layer//get-packages-dependencies))
(implicit-packages (configuration-layer//get-implicit-packages
packages))
(let* ((dependencies
(configuration-layer//get-packages-upstream-dependencies-from-alist))
(implicit-packages
(configuration-layer//get-implicit-packages-from-alist
packages))
(orphans (configuration-layer//get-orphan-packages
packages
implicit-packages