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

Support wildcards in :files option

Browse source
This commit is contained in:
Steve Purcell 2012-01-28 20:00:13 +00:00
parent db4746fcac
commit 81e9a89448
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
package-build.el
View file

@ -250,6 +250,11 @@
(interactive)
(mapc 'package-build-archive pkgs))
(defun package-expand-file-list (dir files)
"Expand `FILES', some of which may be wildcards, relative to `DIR'."
(let ((default-directory dir))
(mapcan 'file-expand-wildcards files)))
(defun package-build-archive (file-name)
"build a package archive"
(interactive)
@ -263,7 +268,6 @@
(if cfg
(let* ((repo-type (plist-get cfg :fetcher))
(repo-url (plist-get cfg :url))
(files (plist-get cfg :files))
(version
(cond
((eq repo-type 'svn)
@ -276,6 +280,7 @@
((eq repo-type 'darcs)
(print 'Darcs)
(package-build-checkout-darcs repo-url pkg-cwd))))
(files (package-expand-file-list pkg-cwd (plist-get cfg :files)))
(default-directory package-build-working-dir))
(cond
((= 1 (length files))