gnu: wgetpaste: Add and use wget input.
This package has but one purpose; late binding's overkill. * gnu/packages/wget.scm (wgetpaste)[arguments]: Add ‘use-inputs’ phase. [inputs]: Add wget.
This commit is contained in:
parent
4f7db08571
commit
7342923d98
|
@ -93,6 +93,13 @@ in downloaded documents to relative links.")
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
(delete 'configure)
|
(delete 'configure)
|
||||||
(delete 'build)
|
(delete 'build)
|
||||||
|
(add-before 'install 'use-inputs
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(let* ((wget (assoc-ref inputs "wget")))
|
||||||
|
(substitute* "wgetpaste"
|
||||||
|
(("(LC_ALL=C) wget" _ prefix)
|
||||||
|
(format "~a ~a/bin/wget" prefix wget)))
|
||||||
|
#t)))
|
||||||
(replace 'install
|
(replace 'install
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
@ -101,6 +108,8 @@ in downloaded documents to relative links.")
|
||||||
(install-file "wgetpaste" bin)
|
(install-file "wgetpaste" bin)
|
||||||
(install-file "_wgetpaste" zsh)))))
|
(install-file "_wgetpaste" zsh)))))
|
||||||
#:tests? #f)) ; no test target
|
#:tests? #f)) ; no test target
|
||||||
|
(inputs
|
||||||
|
`(("wget" ,wget)))
|
||||||
(home-page "http://wgetpaste.zlin.dk/")
|
(home-page "http://wgetpaste.zlin.dk/")
|
||||||
(synopsis "Script that automates pasting to a number of pastebin services")
|
(synopsis "Script that automates pasting to a number of pastebin services")
|
||||||
(description
|
(description
|
||||||
|
|
Loading…
Reference in New Issue