Hi zimoun, zimoun <[email protected]> writes:
>> diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm >> index 8e694edbbe..b6dfcb5f6a 100644 >> --- a/guix/scripts/pack.scm >> +++ b/guix/scripts/pack.scm >> @@ -58,11 +58,14 @@ >> #:use-module (srfi srfi-37) >> #:use-module (ice-9 match) >> #:export (compressor? >> + compressor-name > > Why not also ’compress-extension’ and ’compress-command’? Then > <compressor> will be completely exposed which seems good, isn’t it? Done, thank you! All the best to you, too, John
>From 7f718484fe952b674c2cdaa70315d49df3c8aa57 Mon Sep 17 00:00:00 2001 From: John Soo <[email protected]> Date: Thu, 12 Nov 2020 21:47:36 -0800 Subject: [PATCH 1/2] guix pack: Expose some bindings for third-party use. * guix/scripts/pack.scm (compressor-name, compressor-extension, compressor-command, %compressors, %formats): Expose them. fix pack.scm --- guix/scripts/pack.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 8e694edbbe..a687505e0d 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -58,11 +58,16 @@ #:use-module (srfi srfi-37) #:use-module (ice-9 match) #:export (compressor? + compressor-name + compressor-extenstion + compressor-command + %compressors lookup-compressor self-contained-tarball docker-image squashfs-image + %formats guix-pack)) ;; Type of a compression tool. -- 2.29.1
>From 036dc16855c9a3f3022598c700f5e8233022aee1 Mon Sep 17 00:00:00 2001 From: John Soo <[email protected]> Date: Thu, 12 Nov 2020 21:54:45 -0800 Subject: [PATCH 2/2] guix build: Expose log-url for third parties. * guix/scripts/build.scm (log-url): Expose it. --- guix/scripts/build.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index f4a8af035b..41f21fa81d 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -57,7 +57,9 @@ #:use-module ((guix status) #:select (with-status-verbosity)) #:use-module ((guix progress) #:select (current-terminal-columns)) #:use-module ((guix build syscalls) #:select (terminal-columns)) - #:export (%standard-build-options + #:export (log-url + + %standard-build-options set-build-options-from-command-line set-build-options-from-command-line* show-build-options-help -- 2.29.1
