;;
;; To start: `M-x stgit'
+(require 'git nil t)
+
(defun stgit (dir)
"Manage stgit patches"
(interactive "DDirectory: \n")
(switch-to-stgit-buffer (git-get-top-dir dir))
- (stgit-refresh))
+ (stgit-reload))
(defun git-get-top-dir (dir)
"Retrieve the top-level directory of a git tree."
(display-buffer output-buf t)))))
(put 'stgit-capture-output 'lisp-indent-function 1)
-(defun stgit-run (&rest args)
+(defun stgit-run-silent (&rest args)
(apply 'call-process "stg" nil standard-output nil args))
-(defun stgit-refresh ()
+(defun stgit-run (&rest args)
+ (let ((msgcmd (mapconcat #'identity args " ")))
+ (message "Running stg %s..." msgcmd)
+ (apply 'call-process "stg" nil standard-output nil args)
+ (message "Running stg %s...done" msgcmd)))
+
+(defun stgit-reload ()
"Update the contents of the stgit buffer"
(interactive)
(let ((inhibit-read-only t)
(curpatch (stgit-patch-at-point)))
(erase-buffer)
(insert "Branch: ")
- (stgit-run "branch")
- (stgit-run "series" "--description")
+ (stgit-run-silent "branch")
+ (stgit-run-silent "series" "--description")
(stgit-rescan)
(if curpatch
(stgit-goto-patch curpatch)
'face 'stgit-description-face)
(when (memq patchsym stgit-marked-patches)
(replace-match "*" nil nil nil 2)
- (setq marked (cons patchsym marked))))))
+ (setq marked (cons patchsym marked)))))
+ ((or (looking-at "stg series: Branch \".*\" not initialised")
+ (looking-at "stg series: .*: branch not initialized"))
+ (forward-line 1)
+ (insert "Run M-x stgit-init to initialise")))
(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.")
(unless stgit-mode-map
(setq stgit-mode-map (make-keymap))
(suppress-keymap stgit-mode-map)
- (define-key stgit-mode-map " " 'stgit-mark)
- (define-key stgit-mode-map "\d" 'stgit-unmark)
- (define-key stgit-mode-map "?" 'stgit-help)
- (define-key stgit-mode-map "h" 'stgit-help)
- (define-key stgit-mode-map "p" 'previous-line)
- (define-key stgit-mode-map "n" 'next-line)
- (define-key stgit-mode-map "g" 'stgit-refresh)
- (define-key stgit-mode-map "r" 'stgit-rename)
- (define-key stgit-mode-map "e" 'stgit-edit)
- (define-key stgit-mode-map "c" 'stgit-coalesce)
- (define-key stgit-mode-map "N" 'stgit-new)
- (define-key stgit-mode-map "R" 'stgit-repair)
- (define-key stgit-mode-map "C" 'stgit-commit)
- (define-key stgit-mode-map "U" 'stgit-uncommit)
- (define-key stgit-mode-map ">" 'stgit-push-next)
- (define-key stgit-mode-map "<" 'stgit-pop-next)
- (define-key stgit-mode-map "P" 'stgit-push-or-pop)
- (define-key stgit-mode-map "G" 'stgit-goto)
- (define-key stgit-mode-map "=" 'stgit-show))
+ (mapc (lambda (arg) (define-key stgit-mode-map (car arg) (cdr arg)))
+ '((" " . stgit-mark)
+ ("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)
+ ("e" . stgit-edit)
+ ("c" . stgit-coalesce)
+ ("N" . stgit-new)
+ ("R" . stgit-repair)
+ ("C" . stgit-commit)
+ ("U" . stgit-uncommit)
+ (">" . stgit-push-next)
+ ("<" . stgit-pop-next)
+ ("P" . stgit-push-or-pop)
+ ("G" . stgit-goto)
+ ("=" . stgit-show)
+ ("D" . stgit-delete)
+ ([(control ?/)] . stgit-undo)
+ ("\C-_" . stgit-undo)
+ ("q" . stgit-quit))))
(defun stgit-mode ()
"Major mode for interacting with StGit.
(let ((patchsym (intern patch)))
(setq stgit-marked-patches (delq patchsym stgit-marked-patches))))
+(defun stgit-clear-marks ()
+ (setq stgit-marked-patches '()))
+
(defun stgit-marked-patches ()
"Return the names of the marked patches."
(mapcar 'symbol-name stgit-marked-patches))
(match-string-no-properties 1)
nil)))
+(defun stgit-patches-marked-or-at-point ()
+ "Return the names of the marked patches, or the patch on the current line."
+ (if stgit-marked-patches
+ (stgit-marked-patches)
+ (let ((patch (stgit-patch-at-point)))
+ (if patch
+ (list patch)
+ '()))))
+
(defun stgit-goto-patch (patch)
"Move point to the line containing PATCH"
(let ((p (point)))
(goto-char p)
nil)))
+(defun stgit-init ()
+ "Run stg init"
+ (interactive)
+ (stgit-capture-output nil
+ (stgit-run "init"))
+ (stgit-reload))
+
(defun stgit-mark ()
"Mark the patch under point"
(interactive)
(let ((patch (stgit-patch-at-point)))
(stgit-add-mark patch)
- (stgit-refresh))
+ (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-refresh)))
+ (stgit-remove-mark (stgit-patch-at-point))
+ (stgit-reload))
+
+(defun stgit-unmark-down ()
+ "Remove mark from the patch on the current line"
+ (interactive)
+ (stgit-remove-mark (stgit-patch-at-point))
+ (forward-line)
+ (stgit-reload))
(defun stgit-rename (name)
"Rename the patch under point"
(error "No patch on this line"))
(stgit-capture-output nil
(stgit-run "rename" old-name name))
- (stgit-refresh)
+ (stgit-reload)
(stgit-goto-patch name)))
(defun stgit-repair ()
"Run stg repair"
(interactive)
(stgit-capture-output nil
- (stgit-run "repair"))
- (stgit-refresh))
+ (stgit-run "repair"))
+ (stgit-reload))
(defun stgit-commit ()
"Run stg commit."
(interactive)
(stgit-capture-output nil (stgit-run "commit"))
- (stgit-refresh))
+ (stgit-reload))
(defun stgit-uncommit (arg)
"Run stg uncommit. Numeric arg determines number of patches to uncommit."
(interactive "p")
(stgit-capture-output nil (stgit-run "uncommit" "-n" (number-to-string arg)))
- (stgit-refresh))
+ (stgit-reload))
-(defun stgit-push-next ()
- "Push the first unapplied patch"
- (interactive)
- (stgit-capture-output nil (stgit-run "push"))
- (stgit-refresh))
+(defun stgit-push-next (npatches)
+ "Push the first unapplied patch.
+With numeric prefix argument, push that many patches."
+ (interactive "p")
+ (stgit-capture-output nil (stgit-run "push" "-n"
+ (number-to-string npatches)))
+ (stgit-reload))
-(defun stgit-pop-next ()
- "Pop the topmost applied patch"
- (interactive)
- (stgit-capture-output nil (stgit-run "pop"))
- (stgit-refresh))
+(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))
(defun stgit-applied-at-point ()
"Is the patch on the current line applied?"
(let ((patch (stgit-patch-at-point))
(applied (stgit-applied-at-point)))
(stgit-capture-output nil
- (stgit-run (if applied "pop" "push") patch))
- (stgit-refresh)))
+ (stgit-run (if applied "pop" "push") patch))
+ (stgit-reload)))
(defun stgit-goto ()
"Go to the patch on the current line"
(interactive)
(let ((patch (stgit-patch-at-point)))
(stgit-capture-output nil
- (stgit-run "goto" patch))
- (stgit-refresh)))
+ (stgit-run "goto" patch))
+ (stgit-reload)))
(defun stgit-show ()
"Show the patch on the current line"
(set (make-local-variable 'stgit-edit-patch) patch)
(setq default-directory dir)
(let ((standard-output edit-buf))
- (stgit-run "edit" "--save-template=-" patch))))
+ (stgit-run-silent "edit" "--save-template=-" patch))))
(defun stgit-confirm-edit ()
(interactive)
(stgit-capture-output nil
(stgit-run "edit" "-f" file stgit-edit-patch))
(with-current-buffer log-edit-parent-buffer
- (stgit-refresh))))
+ (stgit-reload))))
(defun stgit-new ()
"Create a new patch"
(defun stgit-confirm-new ()
(interactive)
- (let ((file (make-temp-file "stgit-edit-"))
- (patch (stgit-create-patch-name
- (buffer-substring (point-min)
- (save-excursion (goto-char (point-min))
- (end-of-line)
- (point))))))
+ (let ((file (make-temp-file "stgit-edit-")))
(write-region (point-min) (point-max) file)
(stgit-capture-output nil
- (stgit-run "new" "-m" "placeholder" patch)
- (stgit-run "edit" "-f" file patch))
+ (stgit-run "new" "-f" file))
(with-current-buffer log-edit-parent-buffer
- (stgit-refresh))))
+ (stgit-reload))))
(defun stgit-create-patch-name (description)
"Create a patch name from a long description"
(substring patch 0 20))
(t patch))))
+(defun stgit-delete (patch-names)
+ "Delete the named patches"
+ (interactive (list (stgit-patches-marked-or-at-point)))
+ (if (zerop (length patch-names))
+ (error "No patches to delete")
+ (when (yes-or-no-p (format "Really delete %d patches? "
+ (length patch-names)))
+ (stgit-capture-output nil
+ (apply 'stgit-run "delete" patch-names))
+ (stgit-reload))))
+
(defun stgit-coalesce (patch-names)
"Run stg coalesce on the named patches"
(interactive (list (stgit-marked-patches)))
(set (make-local-variable 'stgit-patches) patch-names)
(setq default-directory dir)
(let ((standard-output edit-buf))
- (apply 'stgit-run "coalesce" "--save-template=-" patch-names))))
+ (apply 'stgit-run-silent "coalesce" "--save-template=-" patch-names))))
(defun stgit-confirm-coalesce ()
(interactive)
(stgit-capture-output nil
(apply 'stgit-run "coalesce" "-f" file stgit-patches))
(with-current-buffer log-edit-parent-buffer
- (stgit-refresh))))
+ (stgit-clear-marks)
+ ;; Go to first marked patch and stay there
+ (goto-char (point-min))
+ (re-search-forward (concat "^[>+-]\\*") nil t)
+ (move-to-column goal-column)
+ (let ((pos (point)))
+ (stgit-reload)
+ (goto-char pos)))))
(defun stgit-help ()
"Display help for the StGit mode."
(interactive)
(describe-function 'stgit-mode))
+(defun stgit-undo (&optional arg)
+ "Run stg undo.
+With prefix argument, run it with the --hard flag."
+ (interactive "P")
+ (stgit-capture-output nil
+ (if arg
+ (stgit-run "undo" "--hard")
+ (stgit-run "undo")))
+ (stgit-reload))
+
+(defun stgit-refresh (&optional arg)
+ "Run stg refresh.
+With prefix argument, refresh 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)))
+ (stgit-capture-output nil
+ (apply 'stgit-run "refresh" patchargs)))
+ (stgit-reload))
+
(provide 'stgit)
~mdw / stgit / blobdiff