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

Add handy interactive package-build-current-recipe function

Browse source
This commit is contained in:
Steve Purcell 2012-08-11 11:42:44 +01:00
parent 71becd37bd
commit a0e1212b3f
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
package-build.el
View file

@ -600,6 +600,21 @@ FILES is a list of (SOURCE . DEST) relative filepath pairs."
(pb/dump-archive-contents) (pb/dump-archive-contents)
file-name))) file-name)))
;;;###autoload
(defun package-build-current-recipe ()
"Build archive for the recipe defined in the current buffer."
(interactive)
(unless (and (buffer-file-name)
(string-equal (file-name-directory (buffer-file-name))
package-build-recipes-dir))
(error "Buffer is not visiting a recipe"))
(when (buffer-modified-p)
(if (y-or-n-p (format "Save file %s? " buffer-file-name))
(save-buffer)
(error "Aborting")))
(package-build-initialize)
(package-build-archive (intern (file-name-nondirectory (buffer-file-name)))))
(defun package-build-archive-ignore-errors (pkg) (defun package-build-archive-ignore-errors (pkg)
"Build archive for package PKG, ignoring any errors." "Build archive for package PKG, ignoring any errors."
(interactive (list (pb/package-name-completing-read))) (interactive (list (pb/package-name-completing-read)))