;;
;; To start: `M-x stgit'
+(require 'git nil t)
+
(defun stgit (dir)
- "Manage stgit patches"
+ "Manage StGit patches for the tree in DIR."
(interactive "DDirectory: \n")
(switch-to-stgit-buffer (git-get-top-dir dir))
(stgit-reload))
-(defun git-get-top-dir (dir)
- "Retrieve the top-level directory of a git tree."
- (let ((cdup (with-output-to-string
- (with-current-buffer standard-output
- (cd dir)
- (unless (eq 0 (call-process "git" nil t nil
- "rev-parse" "--show-cdup"))
- (error "cannot find top-level git tree for %s." dir))))))
- (expand-file-name (concat (file-name-as-directory dir)
- (car (split-string cdup "\n"))))))
+(unless (fboundp 'git-get-top-dir)
+ (defun git-get-top-dir (dir)
+ "Retrieve the top-level directory of a git tree."
+ (let ((cdup (with-output-to-string
+ (with-current-buffer standard-output
+ (cd dir)
+ (unless (eq 0 (call-process "git" nil t nil
+ "rev-parse" "--show-cdup"))
+ (error "cannot find top-level git tree for %s." dir))))))
+ (expand-file-name (concat (file-name-as-directory dir)
+ (car (split-string cdup "\n")))))))
+
+(defun stgit-refresh-git-status (&optional dir)
+ "If it exists, refresh the `git-status' buffer belonging to
+directory DIR or `default-directory'"
+ (when (and (fboundp 'git-find-status-buffer)
+ (fboundp 'git-refresh-status))
+ (let* ((top-dir (git-get-top-dir (or dir default-directory)))
+ (git-status-buffer (and top-dir (git-find-status-buffer top-dir))))
+ (when git-status-buffer
+ (with-current-buffer git-status-buffer
+ (git-refresh-status))))))
(defun switch-to-stgit-buffer (dir)
- "Switch to a (possibly new) buffer displaying StGit patches for DIR"
+ "Switch to a (possibly new) buffer displaying StGit patches for DIR."
(setq dir (file-name-as-directory dir))
(let ((buffers (buffer-list)))
(while (and buffers
buf))
(defmacro stgit-capture-output (name &rest body)
- "Capture StGit output and show it in a window at the end"
+ "Capture StGit output and show it in a window at the end."
`(let ((output-buf (get-buffer-create ,(or name "*StGit output*")))
(stgit-dir default-directory)
(inhibit-read-only t))
(message "Running stg %s...done" msgcmd)))
(defun stgit-reload ()
- "Update the contents of the stgit buffer"
+ "Update the contents of the StGit buffer."
(interactive)
(let ((inhibit-read-only t)
(curline (line-number-at-pos))
(stgit-rescan)
(if curpatch
(stgit-goto-patch curpatch)
- (goto-line curline))))
+ (goto-line curline)))
+ (stgit-refresh-git-status))
(defface stgit-description-face
'((((background dark)) (:foreground "tan"))
(forward-line 1))
(setq stgit-marked-patches (nreverse marked)))))
+(defun stgit-quit ()
+ "Hide the stgit buffer."
+ (interactive)
+ (bury-buffer))
+
+(defun stgit-git-status ()
+ "Show status using `git-status'."
+ (interactive)
+ (unless (fboundp 'git-status)
+ (error "stgit-git-status requires git-status"))
+ (let ((dir default-directory))
+ (save-selected-window
+ (pop-to-buffer nil)
+ (git-status dir))))
+
(defvar stgit-mode-hook nil
"Run after `stgit-mode' is setup.")
(suppress-keymap stgit-mode-map)
(mapc (lambda (arg) (define-key stgit-mode-map (car arg) (cdr arg)))
'((" " . stgit-mark)
- ("\d" . stgit-unmark)
+ ("m" . stgit-mark)
+ ("\d" . stgit-unmark-up)
+ ("u" . stgit-unmark-down)
("?" . stgit-help)
("h" . stgit-help)
("p" . previous-line)
("n" . next-line)
+ ("s" . stgit-git-status)
("g" . stgit-reload)
("r" . stgit-refresh)
("\C-c\C-r" . stgit-rename)
("=" . stgit-show)
("D" . stgit-delete)
([(control ?/)] . stgit-undo)
- ("\C-_" . stgit-undo))))
+ ("\C-_" . stgit-undo)
+ ("q" . stgit-quit))))
(defun stgit-mode ()
"Major mode for interacting with StGit.
"Return the names of the marked patches."
(mapcar 'symbol-name stgit-marked-patches))
-(defun stgit-patch-at-point ()
- "Return the patch name on the current line"
+(defun stgit-patch-at-point (&optional cause-error)
+ "Return the patch name on the current line. If CAUSE-ERROR is
+not nil, signal an error if none found."
(save-excursion
(beginning-of-line)
- (if (looking-at "[>+-][ *]\\([^ ]*\\)")
- (match-string-no-properties 1)
- nil)))
+ (cond ((looking-at "[>+-][ *]\\([^ ]*\\)")
+ (match-string-no-properties 1))
+ (cause-error
+ (error "No patch on this line")))))
(defun stgit-patches-marked-or-at-point ()
"Return the names of the marked patches, or the patch on the current line."
'()))))
(defun stgit-goto-patch (patch)
- "Move point to the line containing PATCH"
+ "Move point to the line containing PATCH."
(let ((p (point)))
(goto-char (point-min))
(if (re-search-forward (concat "^[>+-][ *]" (regexp-quote patch) " ") nil t)
nil)))
(defun stgit-init ()
- "Run stg init"
+ "Run stg init."
(interactive)
(stgit-capture-output nil
- (stgit-run "init"))
+ (stgit-run "init"))
(stgit-reload))
(defun stgit-mark ()
- "Mark the patch under point"
+ "Mark the patch under point."
(interactive)
- (let ((patch (stgit-patch-at-point)))
+ (let ((patch (stgit-patch-at-point t)))
(stgit-add-mark patch)
(stgit-reload))
(next-line))
-(defun stgit-unmark ()
- "Mark the patch on the previous line"
+(defun stgit-unmark-up ()
+ "Remove mark from the patch on the previous line."
(interactive)
(forward-line -1)
- (let ((patch (stgit-patch-at-point)))
- (stgit-remove-mark patch)
- (stgit-reload)))
+ (stgit-remove-mark (stgit-patch-at-point t))
+ (stgit-reload))
+
+(defun stgit-unmark-down ()
+ "Remove mark from the patch on the current line."
+ (interactive)
+ (stgit-remove-mark (stgit-patch-at-point t))
+ (forward-line)
+ (stgit-reload))
(defun stgit-rename (name)
- "Rename the patch under point"
- (interactive (list (read-string "Patch name: " (stgit-patch-at-point))))
- (let ((old-name (stgit-patch-at-point)))
- (unless old-name
- (error "No patch on this line"))
+ "Rename the patch under point to NAME."
+ (interactive (list (read-string "Patch name: " (stgit-patch-at-point t))))
+ (let ((old-name (stgit-patch-at-point t)))
(stgit-capture-output nil
(stgit-run "rename" old-name name))
(stgit-reload)
(stgit-goto-patch name)))
(defun stgit-repair ()
- "Run stg repair"
+ "Run stg repair."
(interactive)
(stgit-capture-output nil
- (stgit-run "repair"))
+ (stgit-run "repair"))
(stgit-reload))
(defun stgit-commit ()
(interactive "p")
(stgit-capture-output nil (stgit-run "push" "-n"
(number-to-string npatches)))
- (stgit-reload))
+ (stgit-reload)
+ (stgit-refresh-git-status))
(defun stgit-pop-next (npatches)
"Pop the topmost applied patch.
With numeric prefix argument, pop that many patches."
(interactive "p")
(stgit-capture-output nil (stgit-run "pop" "-n" (number-to-string npatches)))
- (stgit-reload))
+ (stgit-reload)
+ (stgit-refresh-git-status))
(defun stgit-applied-at-point ()
"Is the patch on the current line applied?"
(looking-at "[>+]")))
(defun stgit-push-or-pop ()
- "Push or pop the patch on the current line"
+ "Push or pop the patch on the current line."
(interactive)
- (let ((patch (stgit-patch-at-point))
+ (let ((patch (stgit-patch-at-point t))
(applied (stgit-applied-at-point)))
(stgit-capture-output nil
- (stgit-run (if applied "pop" "push") patch))
+ (stgit-run (if applied "pop" "push") patch))
(stgit-reload)))
(defun stgit-goto ()
- "Go to the patch on the current line"
+ "Go to the patch on the current line."
(interactive)
- (let ((patch (stgit-patch-at-point)))
+ (let ((patch (stgit-patch-at-point t)))
(stgit-capture-output nil
- (stgit-run "goto" patch))
+ (stgit-run "goto" patch))
(stgit-reload)))
(defun stgit-show ()
- "Show the patch on the current line"
+ "Show the patch on the current line."
(interactive)
(stgit-capture-output "*StGit patch*"
- (stgit-run "show" (stgit-patch-at-point))
+ (stgit-run "show" (stgit-patch-at-point t))
(with-current-buffer standard-output
(goto-char (point-min))
(diff-mode))))
(defun stgit-edit ()
- "Edit the patch on the current line"
+ "Edit the patch on the current line."
(interactive)
- (let ((patch (stgit-patch-at-point))
+ (let ((patch (stgit-patch-at-point t))
(edit-buf (get-buffer-create "*StGit edit*"))
(dir default-directory))
(log-edit 'stgit-confirm-edit t nil edit-buf)
(stgit-reload))))
(defun stgit-new ()
- "Create a new patch"
+ "Create a new patch."
(interactive)
- (let ((edit-buf (get-buffer-create "*StGit edit*")))
- (log-edit 'stgit-confirm-new t nil edit-buf)))
+ (let ((edit-buf (get-buffer-create "*StGit edit*"))
+ (dir default-directory))
+ (log-edit 'stgit-confirm-new t nil edit-buf)
+ (setq default-directory dir)))
(defun stgit-confirm-new ()
(interactive)
(t patch))))
(defun stgit-delete (patch-names)
- "Delete the named patches"
+ "Delete the named patches."
(interactive (list (stgit-patches-marked-or-at-point)))
(if (zerop (length patch-names))
(error "No patches to delete")
(stgit-reload))))
(defun stgit-coalesce (patch-names)
- "Run stg coalesce on the named patches"
+ "Run stg coalesce on the named patches."
(interactive (list (stgit-marked-patches)))
(let ((edit-buf (get-buffer-create "*StGit edit*"))
(dir default-directory))
(defun stgit-refresh (&optional arg)
"Run stg refresh.
-With prefix argument, refresh the patch under point."
+With prefix argument, refresh the marked patch or the patch under point."
(interactive "P")
(let ((patchargs (if arg
- (let ((patches (stgit-patches-marked-or-at-point)))
- (cond ((null patches)
- (error "no patch to update"))
- ((> (length patches) 1)
- (error "too many patches selected"))
- (t
- (cons "-p" patches))))
- nil)))
+ (let ((patches (stgit-patches-marked-or-at-point)))
+ (cond ((null patches)
+ (error "no patch to update"))
+ ((> (length patches) 1)
+ (error "too many patches selected"))
+ (t
+ (cons "-p" patches))))
+ nil)))
(stgit-capture-output nil
- (apply 'stgit-run "refresh" patchargs)))
+ (apply 'stgit-run "refresh" patchargs))
+ (stgit-refresh-git-status))
(stgit-reload))
(provide 'stgit)