|
Lines 97-102
if there is already one that displays th
Link Here
|
| 97 |
:group 'git |
97 |
:group 'git |
| 98 |
:type 'string) |
98 |
:type 'string) |
| 99 |
|
99 |
|
|
|
100 |
(defcustom git-status-modeline-format "*git-status*" |
| 101 |
"Format specification for git-status modeline. |
| 102 |
These fields are available at this moment: |
| 103 |
|
| 104 |
%d directory, opened by git-status |
| 105 |
" |
| 106 |
:group 'git |
| 107 |
:type 'string) |
| 108 |
|
| 100 |
|
109 |
|
| 101 |
(defface git-status-face |
110 |
(defface git-status-face |
| 102 |
'((((class color) (background light)) (:foreground "purple"))) |
111 |
'((((class color) (background light)) (:foreground "purple"))) |
|
Lines 1200-1206
Commands:
Link Here
|
| 1200 |
(setq dir (git-get-top-dir dir)) |
1209 |
(setq dir (git-get-top-dir dir)) |
| 1201 |
(if (file-directory-p (concat (file-name-as-directory dir) ".git")) |
1210 |
(if (file-directory-p (concat (file-name-as-directory dir) ".git")) |
| 1202 |
(let ((buffer (or (and git-reuse-status-buffer (git-find-status-buffer dir)) |
1211 |
(let ((buffer (or (and git-reuse-status-buffer (git-find-status-buffer dir)) |
| 1203 |
(create-file-buffer (expand-file-name "*git-status*" dir))))) |
1212 |
(create-file-buffer (expand-file-name (format-spec git-status-modeline-format (list (cons ?d dir))) dir))))) |
| 1204 |
(switch-to-buffer buffer) |
1213 |
(switch-to-buffer buffer) |
| 1205 |
(cd dir) |
1214 |
(cd dir) |
| 1206 |
(git-status-mode) |
1215 |
(git-status-mode) |
