Add push command

2 files changed, 40 insertions, 3 deletions

diff --git a/gitto/git.scm b/gitto/git.scm
index fc40077..fea05fc 100644
--- a/gitto/git.scm
+++ b/gitto/git.scm
@@ -31,6 +31,7 @@
             branch-pushable
             branch-updated
             git-dir?
+            git-push
             print
             repo-branches
             repo-clean?
@@ -144,6 +145,12 @@ sub-directory."
     (close-pipe pipe)
     num))
 
+(define (git-push repository)
+  "Try to push REPOSITORY to its default upstream."
+  (let* ((pipe (start-git (repo-location repository)
+                          (format #f "push --all"))))
+    (close-pipe pipe)))
+
 (define-method (initialize (branch <branch>) args)
   (let ((name (car args))
         (dir (cadr args)))
diff --git a/gitto/main.scm b/gitto/main.scm
index 8b0d101..458e74b 100644
--- a/gitto/main.scm
+++ b/gitto/main.scm
@@ -116,6 +116,10 @@ the user to choose one and remove the chosen repository."
       (display "Not a registered repository."))
   (newline))
 
+(define (repositories-by-name name)
+  "Get the repositories identified by NAME."
+  (filter (lambda (repo) (repository-name=? repo name)) repositories))
+
 (define (save-repositories-list)
   "Save the list of repositories."
   (ensure-directory-exists. (data-dir))
@@ -275,6 +279,34 @@ which no longer point to a git repository."
   (set! repositories (filter repository-location-exists? repositories))
   (save-repositories-list))
 
+(define-command (push #:optional repository)
+  "Push all or the specified repository to its default upstream."
+  "Usage: gitto push [repository]
+
+Go through the list of registered repositories and push all the ones
+with changes to their default upstream. If REPOSITORY has been
+specified just try to push that repository regardless of status."
+  (define (push-and-report repo)
+    (if (git-push repo)
+        (format #t "Succesfully pushed ~a~%" (repo-name repo))
+        (format #f "Pushing ~a failed~%" (repo-name repo))))
+
+  (if repository
+      (let* ((repositories-by-name (repositories-by-name repository))
+             (results (length repositories-by-name))
+             (repo #f))
+        (when (> results 0)
+          (set! repo
+                (if (= results 1)
+                    (car repositories-by-name)
+                    (choose repositories-by-name
+                            "Push to which repository?" repo-location))))
+
+        (if (or (> results 0) (known? repository))
+            (push-and-report (or repo (make <repository> repository)))
+            (format #t "Unknown repository: ~a~%" repository)))
+      (for-each push-and-report repositories)))
+
 (define-command (remove repository)
   "Unregister a repository."
   "Usage: gitto remove REPO
@@ -288,9 +320,7 @@ REPO should either be the name of a repository as displayed by the
 registered location. In case REPO is just a name and there is more
 than one repository with that name you are given a choice between the
 possible options."
-  (let ((results (filter (lambda (repo)
-                           (repository-name=? repo repository))
-                         repositories)))
+  (let ((results (repositories-by-name repository)))
     (if (null? results)
         (remove-repository-by-location repository)
         (remove-one-repository results))))