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

Expand bzr repos to canonical path.

Browse source
This commit is contained in:
Donald Curtis 2012-04-30 16:03:22 -05:00
parent 2bebebbcd6
commit 310ca31c8d
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
package-build.el
View file

@ -273,6 +273,9 @@ rate limiting."
(let* ((url (format "git://github.com/%s.git" (plist-get config :repo)))) (let* ((url (format "git://github.com/%s.git" (plist-get config :repo))))
(pb/checkout-git name (plist-put (copy-sequence config) :url url) dir))) (pb/checkout-git name (plist-put (copy-sequence config) :url url) dir)))
(defun pb/bzr-expand-repo (repo)
"Get REPO expanded name."
(pb/run-process-match "branch root: \\(.*\\)" nil "bzr" "info" repo))
(defun pb/bzr-repo (dir) (defun pb/bzr-repo (dir)
"Get the current bzr repo for DIR." "Get the current bzr repo for DIR."
@ -280,7 +283,7 @@ rate limiting."
(defun pb/checkout-bzr (name config dir) (defun pb/checkout-bzr (name config dir)
"Check package NAME with config CONFIG out of bzr into DIR." "Check package NAME with config CONFIG out of bzr into DIR."
(let ((repo (plist-get config :url))) (let ((repo (pb/bzr-expand-repo (plist-get config :url))))
(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))
(cond (cond