Re: package.el dependencies

[Thierry Volpiatto]

Stefan Monnier <address@hidden> writes:

> Looks good, feel free to install.  See some further comments below.

The version of package--get-deps Arthur pushed (he modify original
version) returns many duplicates and I am not sure it recurse correctly,
I suggest this version (See discussion on emacs-devel), can you review it ? 
Thanks.

--8<---------------cut here---------------start------------->8---
(defun package--get-deps (pkg &optional only)
  (let* ((pkg-desc (cadr (assq pkg package-alist)))
         (direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
                               for name = (car p)
                               when (assq name package-alist)
                               collect name))
         (indirect-deps (unless (eq only 'direct)
                          (cl-loop for p in direct-deps
                                append (package--get-deps p 'direct) into lst
                                finally return (delete-dups lst)))))
    (cl-case only
      (direct   direct-deps)
      (separate (list direct-deps indirect-deps))
      (indirect indirect-deps)
      (t        (append direct-deps indirect-deps)))))
--8<---------------cut here---------------end--------------->8---


-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997