11/11: scripts: More commands default to verbosity level 1.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 985730c1afac6b5077df9ca8a871db9750ac3a9d
Author: Ludovic Courtès <address@hidden>
Date:   Thu Apr 4 17:32:37 2019 +0200

    scripts: More commands default to verbosity level 1.
    
    * guix/scripts/environment.scm (%default-options): Change 'verbosity' to 1.
    * guix/scripts/pack.scm (%default-options): Likewise.
    * guix/scripts/system.scm (guix-system): Likewise, except for the
    'build' command.
---
 guix/scripts/environment.scm | 2 +-
 guix/scripts/pack.scm        | 2 +-
 guix/scripts/system.scm      | 3 +--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 2d1ba4c..99c351a 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -192,7 +192,7 @@ COMMAND or an interactive shell in that environment.\n"))
     (print-extended-build-trace? . #t)
     (multiplexed-build-output? . #t)
     (debug . 0)
-    (verbosity . 2)))
+    (verbosity . 1)))
 
 (define (tag-package-arg opts arg)
   "Return a two-element list with the form (TAG ARG) that tags ARG with either
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index d2ef68d..b1d1e87 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -629,7 +629,7 @@ please email '~a'~%")
     (print-extended-build-trace? . #t)
     (multiplexed-build-output? . #t)
     (debug . 0)
-    (verbosity . 2)
+    (verbosity . 1)
     (symlinks . ())
     (compressor . ,(first %compressors))))
 
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 97508f4..78aa6cf 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -1299,8 +1299,7 @@ argument list and OPTS is the option alist."
            (command  (assoc-ref opts 'action)))
       (parameterize ((%graft? (assoc-ref opts 'graft?)))
         (with-status-verbosity (or (assoc-ref opts 'verbosity)
-                                   (if (memq command '(init reconfigure))
-                                       1 2))
+                                   (if (eq? command 'build) 2 1))
           (process-command command args opts))))))
 
 ;;; Local Variables: