mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 06:37:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: git-open: Remove unnecessary propagated input.

Browse source 
* 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>
This commit is contained in:
EuAndreh 2020-12-04 17:53:32 -03:00 committed by Leo Famulari
parent 86d635b850
commit 4cf3734c56
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/version-control.scm
View file

@ -55,6 +55,7 @@ (define-module (gnu packages version-control)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix hg-download) #:use-module (guix hg-download)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
@ -2733,20 +2734,20 @@ (define-public git-open
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "11n46bngvca5wbdbfcxzjhjbfdbad7sgf7h9gf956cb1q8swsdm0")))) (base32 "11n46bngvca5wbdbfcxzjhjbfdbad7sgf7h9gf956cb1q8swsdm0"))))
(build-system trivial-build-system) (build-system copy-build-system)
(propagated-inputs (inputs
`(("xdg-utils" ,xdg-utils))) `(("xdg-utils" ,xdg-utils)))
(arguments (arguments
`(#:modules ((guix build utils)) `(#:phases
#:builder (modify-phases %standard-phases
(begin (add-after 'install 'wrap-program
(use-modules (guix build utils)) (lambda* (#:key outputs inputs #:allow-other-keys)
(let ((source (assoc-ref %build-inputs "source")) (let ((out (assoc-ref outputs "out"))
(out (assoc-ref %outputs "out"))) (xdg-utils (assoc-ref inputs "xdg-utils")))
(mkdir-p (string-append out "/bin")) (wrap-program (string-append out "/bin/git-open")
(copy-file (string-append source "/git-open") `("PATH" ":" prefix (,(string-append xdg-utils "/bin"))))))))
(string-append out "/bin/git-open")) #:install-plan
#t)))) '(("git-open" "bin/git-open"))))
(home-page "https://github.com/paulirish/git-open") (home-page "https://github.com/paulirish/git-open")
(synopsis "Open a Git repository's homepage from the command-line") (synopsis "Open a Git repository's homepage from the command-line")
(description (description