02/03: pack: Add ‘--file=FILE’ with the same meaning as for ‘guix build’.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 62f8399e6ac76af85ed72157bea2885d531c06fb
Author: Arne Babenhauserheide <arne_bab@web.de>
AuthorDate: Sun Nov 24 00:32:36 2024 +0100

    pack: Add ‘--file=FILE’ with the same meaning as for ‘guix build’.
    
    * guix/scripts/pack.scm (%options): add --file=FILE, but no
      shorthand (that’s already taken for format).
    * doc/guix.texi (Invoking guix pack): Document it.
    
    Change-Id: I87797fccdf218ead3b7f471a84034e8a8d566245
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 doc/guix.texi         |  8 ++++++++
 guix/scripts/pack.scm | 11 +++++++++++
 2 files changed, 19 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index ba9b75f370..0d461fb96a 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -7276,6 +7276,14 @@ This has the same purpose as the same-named option in 
@command{guix
 build} (@pxref{Additional Build Options, @option{--expression} in
 @command{guix build}}).
 
+@item --file=@var{file}
+build a pack the code within @var{file} evaluates to.
+
+This has the same purpose as the same-named option in @command{guix
+build} (@pxref{Additional Build Options, @option{--file} in
+@command{guix build}}), but it has no shorthand, because @option{-f}
+already means @option{--format}.
+
 @anchor{pack-manifest}
 @item --manifest=@var{file}
 @itemx -m @var{file}
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 26ba80b80d..58cd55b129 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -30,6 +30,7 @@
 
 (define-module (guix scripts pack)
   #:use-module (guix scripts)
+  #:autoload   (guix import json) (json->scheme-file)
   #:use-module (guix ui)
   #:use-module (guix gexp)
   #:use-module (guix utils)
@@ -1530,6 +1531,9 @@ libfakechroot.so and related ld.so machinery as a 
fallback."
                  (lambda (opt name arg result)
                    (alist-cons 'derivation-only? #t result)))
 
+         (option '("file") #t #f
+                 (lambda (opt name arg result)
+                   (alist-cons 'file arg result)))
          (option '(#\f "format") #t #f
                  (lambda (opt name arg result)
                    (alist-cons 'format (string->symbol arg) result)))
@@ -1620,6 +1624,8 @@ Create a bundle of PACKAGE.\n"))
   (show-deb-format-options)
   (show-rpm-format-options)
   (newline)
+  (display (G_ "
+      --file=FORMAT      build a pack the code within FILE evaluates to"))
   (display (G_ "
   -f, --format=FORMAT    build a pack in the given FORMAT"))
   (display (G_ "
@@ -1684,6 +1690,11 @@ Create a bundle of PACKAGE.\n"))
            list))
         (('expression . exp)
          (read/eval-package-expression exp))
+        (('file . file)
+         (let ((file (or (and (string-suffix? ".json" file)
+                              (json->scheme-file file))
+                         file)))
+           (load* file (make-user-module '()))))
         (x #f)))
 
     (define (manifest-from-args store opts)