Merge pull request #582 from milkypostman/include-info-files

Add "dir" and "*.info" to the default :files spec
This commit is contained in:
Steve Purcell 2013-03-17 13:57:24 -07:00
commit 4e39cd8e8b
10 changed files with 18 additions and 25 deletions

View file

@ -145,11 +145,12 @@ specifies the module of a CVS repository to check out. Defaults to to
`package-name`. Only used with `:fetcher cvs`, and otherwise ignored. `package-name`. Only used with `:fetcher cvs`, and otherwise ignored.
- `:files` - `:files`
optional property specifying the explicit files used to build the optional property specifying the elisp and info files used to build the
package. Automatically populated by matching all `.el` files in the package. Automatically populated by matching all `.el`, `.info` and `dir` files in the
root of the repository. This is necessary when there are multiple root of the repository. This option necessary when there are multiple
`.el` files in the repository but the package should only be built `.el` files in the repository but the package should only be built
from a subset. *Any file specifed at any path in the repository is from a subset. For example, elisp test files should not normally be packaged.
*Any file specifed at any path in the repository is
copied to the root of the package.* More complex options are copied to the root of the package.* More complex options are
available, submit an available, submit an
[Issue](https://github.com/milkypostman/melpa/issues) if the specified [Issue](https://github.com/milkypostman/melpa/issues) if the specified

View file

@ -616,15 +616,15 @@ file path and DEST is the relative path to which it should be copied."
(concat prefix (car entry))) (concat prefix (car entry)))
(mapcar (lambda (f) (mapcar (lambda (f)
(cons f (concat prefix (file-name-nondirectory f)))) (cons f (concat prefix (file-name-nondirectory f))))
(or (file-expand-wildcards entry) (file-expand-wildcards entry))))
(error "No matching file(s) found in %s: %s"
dir
entry)))))
specs))) specs)))
(defun pb/expand-config-file-list (dir config) (defun pb/expand-config-file-list (dir config)
"In DIR, expand the :files for CONFIG using 'pb/expand-file-specs." "In DIR, expand the :files for CONFIG using 'pb/expand-file-specs."
(pb/expand-file-specs dir (or (plist-get config :files) (list "*.el")))) (let* ((patterns (or (plist-get config :files) '("*.el" "dir" "*.info")))
(files (pb/expand-file-specs dir patterns)))
(or files
(error "No matching file(s) found in %s: %s" dir patterns))))
(defun pb/expand-source-file-list (dir config) (defun pb/expand-source-file-list (dir config)
"Shorthand way to expand paths in DIR for source files listed in CONFIG." "Shorthand way to expand paths in DIR for source files listed in CONFIG."

View file

@ -1,4 +1,3 @@
(ebib (ebib
:fetcher github :fetcher github
:repo "joostkremers/ebib" :repo "joostkremers/ebib")
:files ("ebib.el" "ebib.info" "dir"))

View file

@ -1,4 +1,3 @@
(extend-dnd (extend-dnd
:fetcher github :fetcher github
:repo "mlf176f2/extend-dnd" :repo "mlf176f2/extend-dnd")
:files ("extend-dnd.el" "dir" "extend-dnd.info"))

View file

@ -1,4 +1,3 @@
(org-outlook (org-outlook
:repo "mlf176f2/org-outlook.el" :repo "mlf176f2/org-outlook.el"
:fetcher github :fetcher github)
:files ("org-outlook.el" "dir" "org-outlook.info"))

View file

@ -1 +1 @@
(org-readme :fetcher github :repo "mlf176f2/org-readme" :files ("org-readme.el" "dir" "org-readme.info")) (org-readme :fetcher github :repo "mlf176f2/org-readme")

View file

@ -1,4 +1,3 @@
(pandoc-mode (pandoc-mode
:fetcher github :fetcher github
:repo "joostkremers/pandoc-mode" :repo "joostkremers/pandoc-mode")
:files ("pandoc-mode.el" "pandoc-mode.info" "dir"))

View file

@ -1,4 +1,2 @@
(sicp :repo "webframp/sicp-info" (sicp :repo "webframp/sicp-info"
:fetcher github :fetcher github)
:files ("sicp.info"
"dir"))

View file

@ -1,4 +1,3 @@
(tabbar-ruler (tabbar-ruler
:fetcher github :fetcher github
:repo "mlf176f2/tabbar-ruler.el" :repo "mlf176f2/tabbar-ruler.el")
:files ("tabbar-ruler.el" "dir" "tabbar-ruler.info"))

View file

@ -1,4 +1,3 @@
(writeroom-mode (writeroom-mode
:fetcher github :fetcher github
:repo "joostkremers/writeroom-mode" :repo "joostkremers/writeroom-mode")
:files ("writeroom-mode.el" "writeroom-mode.info" "dir"))