gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 13:08:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Support "user/repo" for pkgname in github-tar/zip recipes

Browse Source
This commit is contained in:
Ryan C. Thompson 2012-02-20 15:00:59 -08:00
parent 3f539683e6
commit bb29591fa9
2 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
methods/el-get-github-tar.el
View File

@ -20,14 +20,21 @@
;; Use :url if provided
(plist-get source :url)
;; Else generate URL from username, and reponame
(let* ((username (el-get-as-string
(or (plist-get source :username)
(error "Recipe for Github tar package %s needs a username" package))))
(let* ((username (plist-get source :username))
(reponame (el-get-as-string
(or (plist-get source :pkgname)
package)))
(branch (or (plist-get source :branch)
"master")))
;; A slash in the repo name means that it is "user/repo"
(when (string-match-p "/" reponame)
(let* ((split (split-string reponame "[[:space:]]\\|/" 'omit-nulls)))
(assert (= (length split) 2) nil
"Github pkgname %s must contain only one slash and no spaces" reponame)
(setq username (first split)
reponame (second split))))
(unless username
(error "Recipe for Github-tar package %s needs a username" package))
(format "https://github.com/%s/%s/tarball/%s"
username reponame branch)))))

13
methods/el-get-github-zip.el
View File

@ -20,14 +20,21 @@
;; Use :url if provided
(plist-get source :url)
;; Else generate URL from username, and reponame
(let* ((username (el-get-as-string
(or (plist-get source :username)
(error "Recipe for Github zip package %s needs a username" package))))
(let* ((username (plist-get source :username))
(reponame (el-get-as-string
(or (plist-get source :pkgname)
package)))
(branch (or (plist-get source :branch)
"master")))
;; A slash in the repo name means that it is "user/repo"
(when (string-match-p "/" reponame)
(let* ((split (split-string reponame "[[:space:]]\\|/" 'omit-nulls)))
(assert (= (length split) 2) nil
"Github pkgname %s must contain only one slash and no spaces" reponame)
(setq username (first split)
reponame (second split))))
(unless username
(error "Recipe for Github-zip package %s needs a username" package))
(format "https://github.com/%s/%s/zipball/%s"
username reponame branch)))))