01/01: lint: Report on the package being checked.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit c79c6e598ad48dfe1cd2d0d8e9d7d3c311a48f5d
Author: Ludovic Courtès <address@hidden>
Date:   Sun Dec 28 18:21:53 2014 +0100

    lint: Report on the package being checked.
    
    * guix/scripts/lint.scm (run-checkers): Check
      whether (current-error-port) is a tty, and print the package being
      checked and the checker currently running when it is.
---
 guix/scripts/lint.scm |   12 +++++++++---
 1 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index d6aa54d..9a0d997 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -408,9 +408,15 @@ descriptions maintained upstream."
 
 (define (run-checkers package checkers)
   ;; Run the given CHECKERS on PACKAGE.
-  (for-each (lambda (checker)
-              ((lint-checker-check checker) package))
-            checkers))
+  (let ((tty? (isatty? (current-error-port)))
+        (name (package-full-name package)))
+    (for-each (lambda (checker)
+                (when tty?
+                  (format (current-error-port) "checking ~a [~a]...\r"
+                          name (lint-checker-name checker))
+                  (force-output (current-error-port)))
+                ((lint-checker-check checker) package))
+              checkers)))
 
 
 ;;;