Add Last update to normal output

When viewing the status of your repositories you will now see also
when your last update to the upstream branch was. If you have not
fetched or pulled the latest changes from your upstream, this will not
be accurate.

1 files changed, 11 insertions, 4 deletions

diff --git a/gitto/main.scm b/gitto/main.scm
index cd54787..604142d 100644
--- a/gitto/main.scm
+++ b/gitto/main.scm
@@ -91,16 +91,23 @@ gitto [options]
     (close-pipe pipe)
     clean?))
 
+(define (git-last-update)
+  (let* ((pipe (open-input-pipe "git log -1 --format=%ar @{u}"))
+         (relative-last-update (read-line pipe)))
+    (close-pipe pipe)
+    relative-last-update))
+
 (define (list-repositories)
   (for-each
    (lambda (repo)
      (chdir repo)
      (let ((numup (git-revs-to-push))
            (numdown (git-revs-to-pull))
-           (clean? (git-clean?)))
-       (format #t "~a:~15t~d to push, ~d to pull and is ~adirty.\n"
-               (basename repo) numup numdown
-               (if clean? "not " ""))))
+           (clean? (git-clean?))
+           (lastupdate (git-last-update)))
+       (format #t
+        "~a:~15t~d to push, ~d to pull and is ~adirty. Last update: ~a\n"
+        (basename repo) numup numdown (if clean? "not " "") lastupdate)))
    repositories))
 
 (define (list-repository-locations)