[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: package.el dependencies
From: |
Thierry Volpiatto |
Subject: |
Re: package.el dependencies |
Date: |
Tue, 03 Feb 2015 06:45:08 +0100 |
The first thing we have to fix now is package--get-deps, Arthur, yes you
are right we should recurse without the 'direct flag, so we should use
this version:
(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) 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)))))
Can you push it ?
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
- Re: package.el dependencies, (continued)
Re: package.el dependencies, Thierry Volpiatto, 2015/02/02
Re: package.el dependencies, Artur Malabarba, 2015/02/03
Re: package.el dependencies, Thierry Volpiatto, 2015/02/02