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

After building with C-c C-c, display the result more helpfully

Browse source
This commit is contained in:
Steve Purcell 2014-08-07 10:52:27 +01:00
parent 4809418eb1
commit 71817c1969
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
package-build.el
View file

@ -1148,8 +1148,15 @@ Returns the archive entry for the package."
(let ((pkg-name (intern (file-name-nondirectory (buffer-file-name))))) (let ((pkg-name (intern (file-name-nondirectory (buffer-file-name)))))
(package-build-archive pkg-name) (package-build-archive pkg-name)
(package-build-dump-archive-contents) (package-build-dump-archive-contents)
(with-output-to-temp-buffer "*package-build-result*" (let ((output-buffer-name "*package-build-result*"))
(pp (assoc pkg-name (package-build-archive-alist)))) (with-output-to-temp-buffer output-buffer-name
(princ ";; Please check the following package descriptor.\n")
(princ ";; If the correct package description or dependencies are missing,\n")
(princ ";; then the source .el file is likely malformed, and should be fixed.\n")
(pp (assoc pkg-name (package-build-archive-alist))))
(with-current-buffer output-buffer-name
(emacs-lisp-mode)
(view-mode)))
(when (yes-or-no-p "Install new package? ") (when (yes-or-no-p "Install new package? ")
(package-install-file (pb/find-package-file pkg-name))))) (package-install-file (pb/find-package-file pkg-name)))))