nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: wgetpaste: Update to 2.29. 

* gnu/packages/wget.scm (wgetpaste): Update to 2.29.
[arguments]: Replace default paste service. Install license file.
This commit is contained in:
Efraim Flashner 2019-07-09 16:50:36 +03:00
parent 534ceb7de1
commit 710f027765
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/wget.scm
View File

@ -79,7 +79,7 @@ in downloaded documents to relative links.")
(define-public wgetpaste (define-public wgetpaste
(package (package
(name "wgetpaste") (name "wgetpaste")
(version "2.28") (version "2.29")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -87,10 +87,10 @@ in downloaded documents to relative links.")
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1hh9svyypqcvdg5mjxyyfzpdzhylhf7s7xq5dzglnm4injx3i3ak")))) "1rp0wxr3zy7y2xp3azaadfghrx7g0m138f9qg6icjxkkz4vj9r22"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
(guix build utils) (guix build utils)
(srfi srfi-1)) (srfi srfi-1))
#:phases #:phases
@ -102,16 +102,17 @@ in downloaded documents to relative links.")
;; https://gitweb.gentoo.org/repo/gentoo.git/tree/app-text/wgetpaste/files/wgetpaste-remove-dead.patch ;; https://gitweb.gentoo.org/repo/gentoo.git/tree/app-text/wgetpaste/files/wgetpaste-remove-dead.patch
(lambda _ (lambda _
(substitute* "wgetpaste" (substitute* "wgetpaste"
((" poundpython\"") "\"") (("-bpaste") "-dpaste")) ; dpaste blocks tor users
(("-poundpython") "-bpaste")) ; dpaste blocks tor users
#t)) #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"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(zsh (string-append out "/share/zsh/site-functions"))) (zsh (string-append out "/share/zsh/site-functions"))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(install-file "wgetpaste" bin) (install-file "wgetpaste" bin)
(install-file "_wgetpaste" zsh) (install-file "_wgetpaste" zsh)
(install-file "LICENSE" doc)
#t))) #t)))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
;; /bin/wgetpaste prides itself on relying only on the following ;; /bin/wgetpaste prides itself on relying only on the following