github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-23 03:00:12 +00:00
Code Issues Projects Releases Packages Wiki Activity

make read-recipe validate recipes

Browse source
This commit is contained in:
Donald Curtis 2012-12-30 19:11:25 -06:00
parent fb204b6429
commit c547ed422d
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
package-build.el
View file

@ -576,10 +576,29 @@ of the same-named package which is to be kept."
(remove archive-entry package-build-archive-alist)) (remove archive-entry package-build-archive-alist))
(pb/dump-archive-contents)) (pb/dump-archive-contents))
(defun pb/read-recipe (file-name)
(let ((pkg-info (pb/read-from-file file-name)))
(if (string= (symbol-name (car pkg-info))
(file-name-nondirectory file-name))
pkg-info
(error "Recipe '%s' contains mismatched package name '%s'"
(file-name-nondirectory file-name)
(car pkg-info)))))
(defun pb/read-recipes () (defun pb/read-recipes ()
"Return a list of data structures for all recipes in `package-build-recipes-dir'." "Return a list of data structures for all recipes in `package-build-recipes-dir'."
(mapcar 'pb/read-from-file (loop for file-name in (directory-files package-build-recipes-dir t "^[^.]")
(directory-files package-build-recipes-dir t "^[^.]"))) collect (pb/read-recipe file-name)))
(defun pb/read-recipes-ignore-errors ()
"Return a list of data structures for all recipes in `package-build-recipes-dir'."
(loop for file-name in (directory-files package-build-recipes-dir t "^[^.]")
for pkg-info = (condition-case err (pb/read-recipe file-name)
('error (message (error-message-string err))
nil))
when pkg-info
collect pkg-info))
(defun pb/expand-file-specs (dir specs &optional subdir) (defun pb/expand-file-specs (dir specs &optional subdir)