Home :: Part-way to an emacs git-svn mode

Part-way to an emacs git-svn mode

By Steve Purcell - Posted on April 18th, 2008
Tagged:  •    •  

Interacting with git from within emacs is a pleasure, thanks to the official git-mode and Christian Neukirchen's fantastic gitsum mode. Here are some convenient bindings for running git-svn from emacs.

(require 'git)
(require 'ido)
(eval-after-load "compile"
  '(progn
     (mapcar (lambda (defn) (add-to-list 'compilation-error-regexp-alist-alist defn))
             (list '(git-svn-updated "^\t[A-Z]\t\\(.*\\)$" 1 nil nil 0 1)
                   '(git-svn-needs-update "^\\(.*\\): needs update$" 1 nil nil 2 1)))
     (mapcar (lambda (defn) (add-to-list 'compilation-error-regexp-alist defn))
             (list 'git-svn-updated 'git-svn-needs-update))))
(defun git-svn (dir)
  (interactive "DSelect directory: ")
  (let* ((default-directory (git-get-top-dir dir))
         (compilation-buffer-name-function (lambda (major-mode-name) "*git-svn*")))
    (compile (concat "git-svn " (ido-completing-read "git-svn command: " (list "rebase" "dcommit" "log") nil t)))))

With the above code in your .emacs file, you can hit M-x, and type 'git-svn'. You'll then be prompted for a git directory (just as for git-status), and you'll get to choose between 'rebase', 'dcommit' and 'log'. Any filenames in the command output will be colorised and hyperlinked.

At some later point I'd like to turn this into a full-fledged git-svn mode, and hook it into git-status-mode, as Christian has done with gitsum.

Watch this space!

Add new comment  •  Delicious  •  Digg  •  Reddit  •  Technorati

Reply

The content of this field is kept private and will not be shown publicly.
Captcha
Please show that you are a human visitor (to stop automated spam submissions)
Copy the characters (respecting upper/lower case) from the image.