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

hack for git packages that need to be *locked* a commit

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-22 18:05:14 -06:00
parent cf613569d7
commit 2767583ca6
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
package-build.el
View file

@ -119,7 +119,7 @@
"\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\}\\)") "\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\}\\)")
(match-string-no-properties 1))))))) (match-string-no-properties 1)))))))
(defun package-build-checkout-git (repo dir) (defun package-build-checkout-git (repo dir &optional commit)
"checkout an git repo" "checkout an git repo"
(with-current-buffer (get-buffer-create "*package-build-checkout*") (with-current-buffer (get-buffer-create "*package-build-checkout*")
(goto-char (point-max)) (goto-char (point-max))
@ -137,6 +137,11 @@
"git" nil "git" nil
(current-buffer) (current-buffer)
nil "clone" repo dir))) nil "clone" repo dir)))
(if commit
(let ((default-directory dir))
(process-file
"git" nil
(current-buffer) nil "checkout" commit)))
(let ((default-directory dir)) (let ((default-directory dir))
(process-file (process-file
"git" nil "git" nil
@ -268,7 +273,8 @@
(package-build-checkout-svn repo-url pkg-cwd)) (package-build-checkout-svn repo-url pkg-cwd))
((eq repo-type 'git) ((eq repo-type 'git)
(print 'Git) (print 'Git)
(package-build-checkout-git repo-url pkg-cwd)) (package-build-checkout-git repo-url pkg-cwd
(plist-get cfg :commit)))
((eq repo-type 'darcs) ((eq repo-type 'darcs)
(print 'Darcs) (print 'Darcs)
(package-build-checkout-darcs repo-url pkg-cwd)))) (package-build-checkout-darcs repo-url pkg-cwd))))

5
pkglist
View file

@ -54,9 +54,10 @@
:fetcher git :fetcher git
:files ("inf-ruby.el")) :files ("inf-ruby.el"))
(jump (jump
:url "https://github.com/vhallac/jump.el.git" :url "https://github.com/eschulte/jump.el.git"
:fetcher git :fetcher git
:files ("jump.el" "inflections.el" "findr.el")) :files ("jump.el" "inflections.el" "findr.el")
:commit "0def5442723f8a2928eda7bcf428aa29f8aa97c1")
(magit (magit
:url "git://github.com/magit/magit.git" :url "git://github.com/magit/magit.git"
:fetcher git) :fetcher git)