01/01: scripts: All commands enable build hooks by default.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 7920e187c121977716d3399f5780553ba138f9b3
Author: Ludovic Courtès <address@hidden>
Date:   Thu Dec 7 22:49:08 2017 +0100

    scripts: All commands enable build hooks by default.
    
    * guix/scripts/archive.scm (%default-options): Add 'build-hook?'.
    * guix/scripts/copy.scm (%default-options): Likewise.
    * guix/scripts/environment.scm (%default-options): Likewise.
    * guix/scripts/pack.scm (%default-options): Likewise.
    * guix/scripts/package.scm (%default-options): Likewise.
    * guix/scripts/pull.scm (%default-options): Likewise.
---
 guix/scripts/archive.scm     | 1 +
 guix/scripts/copy.scm        | 1 +
 guix/scripts/environment.scm | 1 +
 guix/scripts/pack.scm        | 1 +
 guix/scripts/package.scm     | 3 ++-
 guix/scripts/pull.scm        | 1 +
 guix/scripts/system.scm      | 2 +-
 7 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm
index a569848..a359f40 100644
--- a/guix/scripts/archive.scm
+++ b/guix/scripts/archive.scm
@@ -53,6 +53,7 @@
   ;; Alist of default option values.
   `((system . ,(%current-system))
     (substitutes? . #t)
+    (build-hook? . #t)
     (graft? . #t)
     (verbosity . 0)))
 
diff --git a/guix/scripts/copy.scm b/guix/scripts/copy.scm
index 9ffffe8..4c85929 100644
--- a/guix/scripts/copy.scm
+++ b/guix/scripts/copy.scm
@@ -150,6 +150,7 @@ Copy ITEMS to or from the specified host over SSH.\n"))
 (define %default-options
   `((system . ,(%current-system))
     (substitutes? . #t)
+    (build-hook? . #t)
     (graft? . #t)
     (verbosity . 0)))
 
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index e1b7fee..d2568e6 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -178,6 +178,7 @@ COMMAND or an interactive shell in that environment.\n"))
 (define %default-options
   `((system . ,(%current-system))
     (substitutes? . #t)
+    (build-hook? . #t)
     (graft? . #t)
     (verbosity . 0)))
 
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 21fea44..a22258d 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -262,6 +262,7 @@ the image."
   `((format . tarball)
     (system . ,(%current-system))
     (substitutes? . #t)
+    (build-hook? . #t)
     (graft? . #t)
     (verbosity . 0)
     (symlinks . ())
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 0a4a07a..617e102 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -360,7 +360,8 @@ ENTRIES, a list of manifest entries, in the context of 
PROFILE."
   ;; Alist of default option values.
   `((verbosity . 0)
     (graft? . #t)
-    (substitutes? . #t)))
+    (substitutes? . #t)
+    (build-hook? . #t)))
 
 (define (show-help)
   (display (G_ "Usage: guix package [OPTION]...
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index be0c168..64c2196 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -89,6 +89,7 @@ Install it by running:
     (ref . (branch . "origin/master"))
     (system . ,(%current-system))
     (substitutes? . #t)
+    (build-hook? . #t)
     (graft? . #t)
     (verbosity . 0)))
 
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index e2ff426..d0eacc5 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -942,8 +942,8 @@ Some ACTIONS support additional ARGS.\n"))
   ;; Alist of default option values.
   `((system . ,(%current-system))
     (substitutes? . #t)
-    (graft? . #t)
     (build-hook? . #t)
+    (graft? . #t)
     (verbosity . 0)
     (file-system-type . "ext4")
     (image-size . guess)