diff options
| author | EuAndreh <eu@euandre.org> | 2020-12-04 17:53:32 -0300 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2020-12-04 23:38:46 -0500 |
| commit | 4cf3734c56d669ee2d78082e5d7c4d0a58e0f800 (patch) | |
| tree | 64d26499505cd8bd5cfbab6b835383be836b764e /gnu/packages/version-control.scm | |
| parent | 86d635b85035086d21c319f31f628761df5c82e5 (diff) | |
| download | guix-4cf3734c56d669ee2d78082e5d7c4d0a58e0f800.tar.gz | |
gnu: git-open: Remove unnecessary propagated input.
* gnu/packages/version-control.scm (git-open)[arguments]: Wrap the git-open executable with the path to xdg-utils. [propagated-inputs]: Replace with ... [inputs]: New field. [build-system]: Use copy-build-system. Signed-off-by: Leo Famulari <leo@famulari.name>
Diffstat (limited to 'gnu/packages/version-control.scm')
| -rw-r--r-- | gnu/packages/version-control.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index a8e6d2c4b9..eec57b3b6d 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -55,6 +55,7 @@ #:use-module (guix git-download) #:use-module (guix hg-download) #:use-module (guix build-system cmake) + #:use-module (guix build-system copy) #:use-module (guix build-system gnu) #:use-module (guix build-system go) #:use-module (guix build-system perl) @@ -2733,20 +2734,20 @@ file contents on a remote server.") (file-name (git-file-name name version)) (sha256 (base32 "11n46bngvca5wbdbfcxzjhjbfdbad7sgf7h9gf956cb1q8swsdm0")))) - (build-system trivial-build-system) - (propagated-inputs + (build-system copy-build-system) + (inputs `(("xdg-utils" ,xdg-utils))) (arguments - `(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (let ((source (assoc-ref %build-inputs "source")) - (out (assoc-ref %outputs "out"))) - (mkdir-p (string-append out "/bin")) - (copy-file (string-append source "/git-open") - (string-append out "/bin/git-open")) - #t)))) + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'wrap-program + (lambda* (#:key outputs inputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (xdg-utils (assoc-ref inputs "xdg-utils"))) + (wrap-program (string-append out "/bin/git-open") + `("PATH" ":" prefix (,(string-append xdg-utils "/bin")))))))) + #:install-plan + '(("git-open" "bin/git-open")))) (home-page "https://github.com/paulirish/git-open") (synopsis "Open a Git repository's homepage from the command-line") (description |