Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge patch from Kevin Fletcher for bzr support into el-get.

  • Loading branch information...
commit 63e9018102bdeb7b6d9136db231adcd983087217 1 parent eb9963e
@dimitri authored
Showing with 53 additions and 1 deletion.
  1. +53 −1 el-get.el
View
54 el-get.el
@@ -6,7 +6,7 @@
;;
;; Author: Dimitri Fontaine <dim@tapoueh.org>
;; URL: http://www.emacswiki.org/emacs/el-get.el
-;; Version: 0.5
+;; Version: 0.6
;; Created: 2010-06-17
;; Keywords: emacs package elisp install elpa git apt-get fink debian macosx
;; Licence: WTFPL, grab your copy here: http://sam.zoy.org/wtfpl/
@@ -58,6 +58,12 @@
;;
;; Changelog
;;
+;; 0.6 - 2010-08-12 - towards a stable version
+;;
+;; - fix when asynchronous http support call post-install-fun
+;; - fix el-get-remove calling convention
+;; - add support for bzr, thanks to Kevin Fletcher
+;;
;; 0.5 - 2010-08-06 - release early, fix often
;;
;; - fix apt-get and fink install hooks to call el-get-dpkg-symlink
@@ -82,6 +88,7 @@
(defvar el-get-git-clone-hook nil "Hook run after git clone.")
(defvar el-get-git-svn-clone-hook nil "Hook run after git svn clone.")
+(defvar el-get-bzr-branch-hook nil "Hook run after git branch.")
(defvar el-get-apt-get-install-hook nil "Hook run after apt-get install.")
(defvar el-get-apt-get-remove-hook nil "Hook run after apt-get remove.")
(defvar el-get-fink-install-hook nil "Hook run after fink install.")
@@ -98,6 +105,10 @@
:install-hook el-get-git-svn-clone-hook
:update el-get-git-svn-update
:remove el-get-rmdir)
+ :bzr (:install el-get-bzr-branch
+ :install-hook el-get-bzr-branch-hook
+ :update el-get-bzr-pull
+ :remove el-get-rmdir)
:apt-get (:install el-get-apt-get-install
:install-hook el-get-apt-get-install-hook
:update el-get-apt-get-install
@@ -423,6 +434,47 @@ Any other property will get put into the process object.
;;
+;; bzr support
+;;
+(defun el-get-bzr-branch (package url post-install-fun)
+ "Branch a given bzr PACKAGE following the URL using bzr."
+ (let* ((bzr-executable "bzr")
+ (name (format "*bzr branch %s*" package))
+ (ok (format "Package %s installed" package))
+ (ko (format "Could not install package %s." package)))
+ (el-get-start-process-list
+ package
+ `((:command-name ,name
+ :buffer-name ,name
+ :default-directory ,el-get-dir
+ :program ,bzr-executable
+ :args ("branch" ,url ,package)
+ :message ,ok
+ :error ,ko))
+ post-install-fun)))
+
+(defun el-get-bzr-pull (package url post-update-fun)
+ "bzr pull the package"
+ (let* ((bzr-executable "bzr")
+ (pdir (el-get-package-directory package))
+ (name (format "*bzr pull %s*" package))
+ (ok (format "Pulled package %s." package))
+ (ko (format "Could not update package %s." package)))
+
+ (el-get-start-process-list
+ package
+ `((:command-name ,name
+ :buffer-name ,name
+ :default-directory ,pdir
+ :program ,bzr-executable
+ :args ( "pull" )
+ :message ,ok
+ :error ,ko))
+ post-update-fun)))
+
+
+
+;;
;; utilities for both apt-get and fink support (dpkg based)
;;
(defun el-get-dpkg-package-status (package)
Please sign in to comment.
Something went wrong with that request. Please try again.