@@ -42,6 +42,7 @@ (define-module (gnu packages containers)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
+ #:use-module (gnu packages guile)
#:use-module (gnu packages linux)
#:use-module (gnu packages python)
#:use-module (gnu packages networking)
@@ -160,7 +161,7 @@ (define-public conmon
(define-public distrobox
(package
(name "distrobox")
- (version "1.5.0.2")
+ (version "1.6.0.1")
(source
(origin
(method git-fetch)
@@ -168,23 +169,31 @@ (define-public distrobox
(url "https://github.com/89luca89/distrobox")
(commit version)))
(sha256
- (base32 "0h6rpgbcmg33vriyzh9nkdxj8yhfn0y35i1wh1zmb7zss3ik9kxj"))
+ (base32 "0kj02phzikz9rddcx2apq3a8zwwfaawc3sfkd4q7f85lpnjxfsji"))
(file-name (git-file-name name version))))
(build-system copy-build-system)
(inputs
(list podman wget))
(arguments
- (list #:phases
- #~(modify-phases %standard-phases
- (add-before 'install 'refer-to-inputs
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* (find-files "." "^distrobox[^.]*[^1]$")
- (("podman") (search-input-file inputs "/bin/podman"))
- (("wget") (search-input-file inputs "/bin/wget"))
- (("command -v") "test -x"))))
- (replace 'install
- (lambda _
- (invoke "./install" "--prefix" #$output))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'wrap-scripts
+ (lambda _
+ (let ((path (search-path-as-list
+ '("bin")
+ (map cadr
+ '#$(package-inputs this-package))))
+ (guile #$(file-append guile-3.0 "/bin/guile")))
+ (for-each
+ (lambda (file)
+ (wrap-script file
+ #:guile guile
+ `("PATH" ":" prefix
+ ,path)))
+ (find-files (string-append #$output "/bin")))))))
+ #:install-plan ''(("./" "bin/" #:include-regexp ("\\./distrobox[^/]*$"))
+ ("completions/" "share/bash-completion/completions/"))))
(home-page "https://distrobox.privatedns.org/")
(synopsis "Create and start containers highly integrated with the hosts")
(description