summaryrefslogtreecommitdiff
path: root/gnu/packages/version-control.scm
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2020-12-04 17:53:32 -0300
committerLeo Famulari <leo@famulari.name>2020-12-04 23:38:46 -0500
commit4cf3734c56d669ee2d78082e5d7c4d0a58e0f800 (patch)
tree64d26499505cd8bd5cfbab6b835383be836b764e /gnu/packages/version-control.scm
parent86d635b85035086d21c319f31f628761df5c82e5 (diff)
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.scm25
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