~ruther/guix-local

7920e187c121977716d3399f5780553ba138f9b3 — Ludovic Courtès 8 years ago cf69135
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.
M guix/scripts/archive.scm => guix/scripts/archive.scm +1 -0
@@ 53,6 53,7 @@
  ;; Alist of default option values.
  `((system . ,(%current-system))
    (substitutes? . #t)
    (build-hook? . #t)
    (graft? . #t)
    (verbosity . 0)))


M guix/scripts/copy.scm => guix/scripts/copy.scm +1 -0
@@ 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)))


M guix/scripts/environment.scm => guix/scripts/environment.scm +1 -0
@@ 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)))


M guix/scripts/pack.scm => guix/scripts/pack.scm +1 -0
@@ 262,6 262,7 @@ the image."
  `((format . tarball)
    (system . ,(%current-system))
    (substitutes? . #t)
    (build-hook? . #t)
    (graft? . #t)
    (verbosity . 0)
    (symlinks . ())

M guix/scripts/package.scm => guix/scripts/package.scm +2 -1
@@ 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]...

M guix/scripts/pull.scm => guix/scripts/pull.scm +1 -0
@@ 89,6 89,7 @@ Install it by running:
    (ref . (branch . "origin/master"))
    (system . ,(%current-system))
    (substitutes? . #t)
    (build-hook? . #t)
    (graft? . #t)
    (verbosity . 0)))


M guix/scripts/system.scm => guix/scripts/system.scm +1 -1
@@ 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)