github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-22 19:18:39 +00:00
Code Issues Projects Releases Packages Wiki Activity

Print packages that fail to build when building every package.

Browse source 
Closes #72
This commit is contained in:
Donald Curtis 2012-04-21 13:56:19 -05:00
parent 005697cbde
commit 004c9ae5ce
2 changed files with 13 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
melpa
View file

@ -19,7 +19,7 @@ function melpa_build_pkglist {
}
function melpa_generate_html {
echo "*** Building html"
echo "*** Building html..."
cd html || return 1
erb index.erb > index.md
pandoc --template=template.html --css=style.css -s --mathml -t html --smart index.md > index.html
@ -31,26 +31,8 @@ function trim {
echo $1
}
function melpa_validate {
NUMPACKAGES=$(trim `ls recipes/* | wc -l`)
NUMBUILT=$(trim `ls packages/*.{el,tar} | wc -l`)
echo "${NUMBUILT}/${NUMPACKAGES} packages built"
if [[ $NUMBUILT -ne $NUMPACKAGES ]]; then
echo
echo "Missing Packages"
echo "______________________"
emacs --script missing.el
exit 1
else
exit 0
fi
}
function print_usage {
echo "usage: $0 [-h | -?] [clear | build | html | validate]"
echo "usage: $0 [-h | -?] [clear | build | html ]"
}
args=`getopt h $*`
@ -77,7 +59,7 @@ done
if [[ "$#" == "0" ]]; then
set -- build index validate
set -- build index
fi
for i; do
@ -85,7 +67,6 @@ for i; do
clear ) melpa_clear_packages ;;
build ) melpa_build_pkglist ;;
html | index ) melpa_generate_html ;;
validate ) melpa_validate ;;
esac
shift
done

13
package-build.el
View file

@ -541,7 +541,8 @@ of the same-named package which is to be kept."
(delete-directory pkg-dir t nil)
(pb/add-to-archive-contents pkg-info 'tar))))
(pb/dump-archive-contents))))
(pb/dump-archive-contents)
file-name)))
(defun package-build-archive-ignore-errors (pkg)
"Build archive for package PKG, ignoring any errors."
@ -551,8 +552,14 @@ of the same-named package which is to be kept."
(defun package-build-all ()
"Build all packages in the `package-build-alist'."
(interactive)
(mapc 'package-build-archive-ignore-errors
(mapcar 'symbol-name (mapcar 'car package-build-alist)))
(let ((failed (loop for pkg in (mapcar 'car package-build-alist)
when (not (package-build-archive-ignore-errors
(symbol-name pkg)))
collect pkg)))
(if (zerop (length failed))
(princ "\nSuccessfully Compiled All Packages\n")
(princ "\nFailed to Build the Following Packages\n")
(princ (mapconcat 'symbol-name failed "\n"))))
(package-build-cleanup))
(defun package-build-cleanup ()