org mode, more window stuff
[emacs-init.git] / setup / magit.el
1 (add-to-list 'load-path (concat (file-name-directory
2                                  (directory-file-name
3                                   (file-name-directory
4                                    (or load-file-name
5                                        (when (boundp 'bytecomp-filename) bytecomp-filename)
6                                        buffer-file-name))))
7                                 "magit"))
8
9 (add-to-list 'load-path (concat (file-name-directory
10                                  (directory-file-name
11                                   (file-name-directory
12                                    (or load-file-name
13                                        (when (boundp 'bytecomp-filename) bytecomp-filename)
14                                        buffer-file-name))))
15                                 "git-modes"))
16
17 (add-to-list 'load-path (concat (file-name-directory
18                                  (directory-file-name
19                                   (file-name-directory
20                                    (or load-file-name
21                                        (when (boundp 'bytecomp-filename) bytecomp-filename)
22                                        buffer-file-name))))
23                                 "auto-install"))
24
25 (require 'cl)
26
27 (if (not (functionp 'run-hook-wrapped))
28     (defun run-hook-wrapped (hook wrap-function &rest args)
29       (loop for fn in hook
30             thereis (apply 'wrap-function fn args))))
31
32 (if (not (functionp 'process-live-p))
33     (defun process-live-p (process)
34       (memq (process-status process)
35             '(run open listen connect stop))))
36
37 (require 'magit)
38
39 (when (eq system-type 'windows-nt)
40
41   (require 'advice)
42
43   (setf (symbol-function 'builtin-process-file) (symbol-function 'process-file))
44
45   (defvar my-magit-shell "c:\\Program Files (x86)\\Git\\bin\\sh")
46
47   (defun my-magit-process-file (program &optional infile buffer display &rest args)
48     (builtin-process-file my-magit-shell infile buffer display
49                           "-c" (mapconcat 'shell-quote-argument (cons "/bin/git" args) " ")))
50
51   (defadvice magit-cmd-output (around my-magit-process-file activate)
52     (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
53       ad-do-it))
54
55   (defadvice magit-git-exit-code (around my-magit-process-file activate)
56     (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
57       ad-do-it))
58
59   (defadvice magit-run (around activate)
60     (letf (((symbol-function 'process-file) (symbol-function 'my-magit-process-file)))
61       ad-do-it))
62
63 ); End Windows-NT
64
65 (defadvice magit-mode-quit-window (around my-magit-mode-quit-window activate)
66   (letf (((symbol-function 'selected-window) (lambda ())))
67     ad-do-it))
68
69 (global-set-key "\C-cGS" 'magit-status)
70
71 (defun my-shell-command-to-string (cmd)
72   (shell-command cmd " *my-shell-command-to-string*")
73   (save-current-buffer
74     (set-buffer " *my-shell-command-to-string*")
75     (prog1
76         (buffer-string)
77       (kill-buffer " *my-shell-command-to-string*"))))
78
79 (defun git-repo-files ()
80   (let ((default-directory (magit-get-top-dir default-directory)))
81     (split-string (my-shell-command-to-string "git ls-files") "\n")))
82
83 (defun find-file-in-git-repo ()
84   (interactive)
85   (let ((repo (magit-get-top-dir default-directory))
86         (files (git-repo-files)))
87     (find-file
88      (concat repo
89              (ido-completing-read
90               "Find file in git repo: "
91               (remove-if (lambda (x) (string= "" x))
92               files))))))
93
94 (defun grep-in-git-repo (regexp &optional words-only)
95   (interactive "sGrep files in Git repo regexp: \nP")
96   (let ((default-directory (magit-get-top-dir default-directory)))
97     (if (not default-directory)
98         (error "not a Git directory"))
99     (grep (format "git ls-files -z | xargs -r0 grep -nH -E%s -- %s | cat -"
100                   (if words-only " -w" "") (shell-quote-argument regexp)))))
101
102 (setenv "GIT_PAGER" "cat")
103 (setenv "GIT_MAN_VIEWER" "woman")
104 (setenv "GIT_EDITOR" "emacsclient")
105
106 (defun find-file-maybe-git (&optional nogit)
107   (interactive "P")
108   (if (and (not nogit) (magit-get-top-dir default-directory))
109       (call-interactively 'find-file-in-git-repo)
110     (call-interactively 'ido-find-file)))
111
112 (global-set-key "\C-x\C-f" 'find-file-maybe-git)
113 (global-set-key "\C-cGG" 'grep-in-git-repo)
114
115 (defun git-files-find-symbol (symbol)
116   (interactive (list (read-string "Symbol: " (current-word))))
117   (let ((dir (magit-get-top-dir default-directory)))
118     (if (not dir) (error "No git repository"))
119     (let ((default-directory dir))
120       (grep (format "git ls-files -z | xargs -r0 grep -nwHF %s | cat -" symbol)))))
121
122 (global-set-key "\C-cGF" 'git-files-find-symbol)
123
124 (defun dired-git-files ()
125   (interactive)
126   (let ((default-directory (magit-get-top-dir default-directory))\
127         (ls-lisp-use-insert-directory-program t)
128         files)
129     (setq files (delete-if '(lambda (file) (string= file ""))
130                            (split-string (shell-command-to-string "git ls-files") "\n")))
131     (dired (cons default-directory files))))
132
133 (global-set-key "\C-cGD" 'dired-git-files)
134
135 (defun dired-grep-git-files (regexp &optional words-only)
136   (interactive "sRegexp: \nP")
137   (let ((default-directory (magit-get-top-dir default-directory))
138         (cmd (format "git ls-files -z | xargs -r0 grep -l -E%s -- %s | cat -"
139                      (if words-only " -w" "") (shell-quote-argument regexp))))
140     (if (not default-directory)
141         (error "not in Git repository"))
142     (setq files (delete-if '(lambda (file) (string= file ""))
143                            (split-string (shell-command-to-string cmd)  "\n")))
144     (dired (cons default-directory files))))
145
146 (global-set-key "\C-cGH" 'dired-grep-git-files)
147
148 (defun magit-svn-fetch ()
149   (interactive)
150   (magit-run-git-async "svn" "fetch"))
151
152 (define-key magit-mode-map "Nf" 'magit-svn-fetch)
153
154 (defun magit-quit-window (&optional kill-buffer)
155   (interactive "P")
156   (quit-window kill-buffer))
157
158 (setq magit-diff-options '("-w"))