Add extra package info to archive index entry

This commit is contained in:
Sebastian Wiesner 2014-04-02 15:36:09 +02:00
parent b7d29cb544
commit d1df88461f

View file

@ -634,12 +634,14 @@ If PKG-INFO is nil, an empty one is created."
(let* ((name (intern (aref pkg-info 0))) (let* ((name (intern (aref pkg-info 0)))
(requires (aref pkg-info 1)) (requires (aref pkg-info 1))
(desc (or (aref pkg-info 2) "No description available.")) (desc (or (aref pkg-info 2) "No description available."))
(version (aref pkg-info 3))) (version (aref pkg-info 3))
(extras (aref pkg-info 4)))
(cons name (cons name
(vector (version-to-list version) (vector (version-to-list version)
requires requires
desc desc
type)))) type
extras))))
(defun pb/archive-file-name (archive-entry) (defun pb/archive-file-name (archive-entry)
"Return the path of the file in which the package for ARCHIVE-ENTRY is stored." "Return the path of the file in which the package for ARCHIVE-ENTRY is stored."