gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

(changes)

Browse source
This commit is contained in:
Marius Vollmer 2008-08-03 22:10:00 +03:00
parent 11e6feef1c
commit 6edd6f3be7
1 changed files with 40 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
git-status.el
View file

@ -119,12 +119,26 @@
(message "Git is weird."))) (message "Git is weird.")))
(gits-update-status)) (gits-update-status))
;;; Keymap
(defvar gits-keymap nil)
(when (not gits-keymap)
(setq gits-keymap (make-keymap))
(suppress-keymap gits-keymap)
(define-key gits-keymap (kbd "g") 'git-status)
(define-key gits-keymap (kbd "S") 'git-stage-all)
(define-key gits-keymap (kbd "c") 'git-commit))
;;; Status ;;; Status
(defun gits-update-status () (defun gits-update-status ()
(let ((buf (get-buffer "*git-status*"))) (let ((buf (get-buffer "*git-status*")))
(save-excursion (save-excursion
(set-buffer buf) (set-buffer buf)
(setq buffer-read-only t)
(use-local-map gits-keymap)
(let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(insert (format "Repository: %s\n" (insert (format "Repository: %s\n"
(abbreviate-file-name default-directory))) (abbreviate-file-name default-directory)))
@ -150,7 +164,7 @@
(call-process-shell-command "git diff" nil t) (call-process-shell-command "git diff" nil t)
(insert "\n") (insert "\n")
(insert "Staged changes:\n") (insert "Staged changes:\n")
(call-process-shell-command "git diff --cached" nil t)))) (call-process-shell-command "git diff --cached" nil t)))))
;;; Main ;;; Main