emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unused package API functions

Browse source 
We'll see no changes to this API until the CLI rewrite is done, so
remove these unused and unfinished function definitions.
This commit is contained in:
Henrik Lissner 2020-07-17 23:22:48 -04:00
parent 8ba7699af5
commit 6b4af6d544
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 0 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

41
core/core-packages.el
View file

@ -234,10 +234,6 @@ processed."
nil-value) nil-value)
plist))) plist)))
(defun doom-package-build-time (package)
"TODO"
(car (gethash (symbol-name package) straight--build-cache)))
(defun doom-package-dependencies (package &optional recursive _noerror) (defun doom-package-dependencies (package &optional recursive _noerror)
"Return a list of dependencies for a package." "Return a list of dependencies for a package."
(let ((deps (nth 1 (gethash (symbol-name package) straight--build-cache)))) (let ((deps (nth 1 (gethash (symbol-name package) straight--build-cache))))
@ -293,18 +289,6 @@ installed."
((locate-library (symbol-name package)) ((locate-library (symbol-name package))
'other))) 'other)))
(defun doom-package-changed-recipe-p (name)
"Return t if a package named NAME (a symbol) has a different recipe than it
was installed with."
(cl-check-type name symbol)
;; TODO
;; (when (doom-package-installed-p name)
;; (when-let* ((doom-recipe (assq name doom-packages))
;; (install-recipe (doom-package-recipe)))
;; (not (equal (cdr quelpa-recipe)
;; (cdr (plist-get (cdr doom-recipe) :recipe))))))
)
;;; Package getters ;;; Package getters
(defun doom--read-packages (file &optional noeval noerror) (defun doom--read-packages (file &optional noeval noerror)
@ -380,21 +364,6 @@ ones."
nil 'remove #'equal) nil 'remove #'equal)
(unless unpin pin))))))) (unless unpin pin)))))))
(defun doom-package-unpinned-list ()
"Return an alist mapping package names (strings) to pinned commits (strings)."
(let (alist)
(dolist (package doom-packages alist)
(cl-destructuring-bind
(_ &key recipe disable ignore pin unpin &allow-other-keys)
package
(when (and (not ignore)
(not disable)
(or unpin
(and (plist-member recipe :pin)
(null pin))))
(cl-pushnew (doom-package-recipe-repo (car package)) alist
:test #'equal))))))
(defun doom-package-recipe-list () (defun doom-package-recipe-list ()
"Return straight recipes for non-builtin packages with a local-repo." "Return straight recipes for non-builtin packages with a local-repo."
(let (recipes) (let (recipes)
@ -406,16 +375,6 @@ ones."
(push recipe recipes)))) (push recipe recipes))))
(nreverse recipes))) (nreverse recipes)))
(defun doom-package-state-list ()
"TODO"
(let (alist)
(dolist (recipe (hash-table-values straight--repo-cache) alist)
(cl-destructuring-bind (&key local-repo type &allow-other-keys)
recipe
(when (and local-repo (not (eq type 'built-in)))
(setf (alist-get local-repo alist nil nil #'equal)
(straight-vc-get-commit type local-repo)))))))
;; ;;
;;; Module package macros ;;; Module package macros