-(add-to-list 'load-path "~/.emacs.d/magit")
-(require 'magit)
-(require 'advice)
+(add-to-list 'load-path (concat (file-name-directory
+ (directory-file-name
+ (file-name-directory
+ (or load-file-name
+ (when (boundp 'bytecomp-filename) bytecomp-filename)
+ buffer-file-name))))
+ "magit"))
+
+(add-to-list 'load-path (concat (file-name-directory
+ (directory-file-name
+ (file-name-directory
+ (or load-file-name
+ (when (boundp 'bytecomp-filename) bytecomp-filename)
+ buffer-file-name))))
+ "git-modes"))
+
+(add-to-list 'load-path (concat (file-name-directory
+ (directory-file-name
+ (file-name-directory
+ (or load-file-name
+ (when (boundp 'bytecomp-filename) bytecomp-filename)
+ buffer-file-name))))
+ "auto-install"))
+
(require 'cl)
-(setf (symbol-function 'builtin-process-file) (symbol-function 'process-file))
+(if (not (functionp 'run-hook-wrapped))
+ (defun run-hook-wrapped (hook wrap-function &rest args)
+ (loop for fn in hook
+ thereis (apply 'wrap-function fn args))))
-(defvar my-magit-shell "c:\\Program Files (x86)\\Git\\bin\\sh")
+(if (not (functionp 'process-live-p))
+ (defun process-live-p (process)
+ (memq (process-status process)
+ '(run open listen connect stop))))
-(defun my-magit-process-file (program &optional infile buffer display &rest args)
- (builtin-process-file my-magit-shell infile buffer display
- "-c" (mapconcat 'shell-quote-argument (cons "/bin/git" args) " ")))
+(require 'magit)
-(defadvice magit-cmd-output (around my-magit-process-file activate)
- (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
- ad-do-it))
+(when (eq system-type 'windows-nt)
-(defadvice magit-git-exit-code (around my-magit-process-file activate)
- (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
- ad-do-it))
+ (require 'advice)
+
+ (setf (symbol-function 'builtin-process-file) (symbol-function 'process-file))
+
+ (defvar my-magit-shell "c:\\Program Files (x86)\\Git\\bin\\sh")
+
+ (defun my-magit-process-file (program &optional infile buffer display &rest args)
+ (builtin-process-file my-magit-shell infile buffer display
+ "-c" (mapconcat 'shell-quote-argument (cons "/bin/git" args) " ")))
+
+ (defadvice magit-cmd-output (around my-magit-process-file activate)
+ (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
+ ad-do-it))
+
+ (defadvice magit-git-exit-code (around my-magit-process-file activate)
+ (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
+ ad-do-it))
+
+ (defadvice magit-run (around activate)
+ (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
+ ad-do-it))
-(defadvice magit-run (around activate)
- (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
+); End Windows-NT
+
+(defadvice magit-mode-quit-window (around my-magit-mode-quit-window activate)
+ (letf (((symbol-function 'selected-window) (lambda ())))
ad-do-it))
(global-set-key "\C-cGS" 'magit-status)
(remove-if (lambda (x) (string= "" x))
(split-string files "\n")))))))
-(defun grep-in-git-repo (regexp)
- (interactive "sGrep files in Git repo regexp: ")
+(defun grep-in-git-repo (regexp &optional words-only)
+ (interactive "sGrep files in Git repo regexp: \np")
(let ((default-directory (magit-get-top-dir default-directory)))
(if (not default-directory)
(error "not a Git directory"))
- (grep (format "git ls-files -z | xargs -r0 grep -nH -E %s | cat -" (shell-quote-argument regexp)))))
+ (grep (format "git ls-files -z | xargs -r0 grep -nH -E%s -- %s | cat -"
+ (if words-only " -w" "") (shell-quote-argument regexp)))))
+
+(setenv "GIT_PAGER" "cat")
+(setenv "GIT_MAN_VIEWER" "woman")
+(setenv "GIT_EDITOR" "emacsclient")
(defun find-file-maybe-git (&optional nogit)
(interactive "P")
(global-set-key "\C-x\C-f" 'find-file-maybe-git)
(global-set-key "\C-cGG" 'grep-in-git-repo)
-(defun git-files-find-symbol (&optional arg)
- (interactive "P")
- (let ((symbol (current-word))
- (dir (magit-get-top-dir default-directory)))
+(defun git-files-find-symbol (symbol)
+ (interactive (list (read-string "Symbol: " (current-word))))
+ (let ((dir (magit-get-top-dir default-directory)))
(if (not dir) (error "No git repository"))
- (if arg (setq symbol (read-string "Symbol: " nil nil symbol)))
(let ((default-directory dir))
- (grep (format "git ls-files -z | xargs -r0 grep -nHF %s | cat -" symbol)))))
+ (grep (format "git ls-files -z | xargs -r0 grep -nwHF %s | cat -" symbol)))))
(global-set-key "\C-cGF" 'git-files-find-symbol)
+
+(defun dired-git-files ()
+ (interactive)
+ (let ((default-directory (magit-get-top-dir default-directory))
+ (ls-lisp-use-insert-directory-program t))
+ (dired (cons default-directory (split-string (shell-command-to-string "git ls-files") "\n")))))
+
+(global-set-key "\C-cGD" 'dired-git-files)
+
+(defun magit-svn-fetch ()
+ (interactive)
+ (magit-run-git-async "svn" "fetch"))
+
+(define-key magit-mode-map "Nf" 'magit-svn-fetch)
+
+(defun magit-quit-window (&optional kill-buffer)
+ (interactive "P")
+ (quit-window kill-buffer))
+
+(setq magit-diff-options '("-w"))