me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Tobias Geerinckx-Rice 2019-04-26 04:36:02 +02:00
parent 4f7db08571
commit 7342923d98
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/wget.scm
View File

@ -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"))
@ -100,7 +107,9 @@ in downloaded documents to relative links.")
(zsh (string-append out "/share/zsh/site-functions"))) (zsh (string-append out "/share/zsh/site-functions")))
(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