Always show git status if there is something to show in info.

src/hackerbase.scm

@@ -275,6 +275,19 @@
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;; Used both in print-info and git-status
+(define (print-git-status)
+  (let ((status (git-status (*members-directory*))))
+    (newline)
+    (print "Repository " (*members-directory*) " status:")
+    (if (ldict-ref status 'clean)
+	(print "  Repository up-to-date.")
+	(let loop ((keys '(unknown untracked modified)))
+	  (when (not (null? keys))
+	    (when (ldict-contains? status (car keys))
+	      (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
+	    (loop (cdr keys)))))))
+
 ;; Perform requested action
 (case (-action-)
   ((print-info)
@@ -299,7 +312,8 @@
 		     (when (not (null? missing))
 		       (print "  Missing: " missing))
 		     (when (not (null? surplus))
-		       (print "  Outsiders: " surplus))))))))
+		       (print "  Outsiders: " surplus))))))
+	 (print-git-status)))
    (newline))
   ((print-stats)
    (newline)
@@ -383,16 +397,7 @@
 		   (make+print-reminder-email (car lst)))
 	       (loop (cdr lst))))))))
   ((status)
-   (let ((status (git-status (*members-directory*))))
+   (print-git-status))
-     (newline)
-     (print "Repository " (*members-directory*) " status:")
-     (if (ldict-ref status 'clean)
-	 (print "  Repository up-to-date.")
-	 (let loop ((keys '(unknown untracked modified)))
-	   (when (not (null? keys))
-	     (when (ldict-contains? status (car keys))
-	       (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
-	     (loop (cdr keys)))))))
   ((summary)
    (if (-send-emails-)
        (make+send-summary-email MB)