Add support for initializing a branch for stgit from Emacs.

Signed-off-by: David Kågedal <davidk@lysator.liu.se>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 5aaf3112d2fd04df6a3cb4a039c4481360ff6e58..aafefafa630c6bf356d7f6e72961b73435aa8756 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -130,7 +130,10 @@ (defun stgit-rescan ()
                                     'face 'stgit-description-face)
                  (when (memq patchsym stgit-marked-patches)
                    (replace-match "*" nil nil nil 2)
                                     '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)))))
+              ((looking-at "stg series: Branch \".*\" not initialised")
+               (forward-line 1)
+               (insert "Run M-x stgit-init to initialise")))

         (forward-line 1))
       (setq stgit-marked-patches (nreverse marked)))))
 
         (forward-line 1))
       (setq stgit-marked-patches (nreverse marked)))))
 


@@ -218,6 +221,13 @@ (defun stgit-goto-patch (patch)
       (goto-char p)
       nil)))
 
       (goto-char p)
       nil)))
 

+(defun stgit-init ()
+  "Run stg init"
+  (interactive)
+  (stgit-capture-output nil
+   (stgit-run "init"))
+  (stgit-refresh))
+

 (defun stgit-mark ()
   "Mark the patch under point"
   (interactive)
 (defun stgit-mark ()
   "Mark the patch under point"
   (interactive)