ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 06:36:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: jetring: Update to 0.31.

Browse source 
* gnu/packages/gnupg.scm (jetring): Update to 0.31.
[arguments]: Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-30 02:00:01 +01:00
parent a350ee803c
commit bb453af580
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/gnupg.scm
View file

@ -1167,7 +1167,7 @@ (define-public parcimonie
(define-public jetring (define-public jetring
(package (package
(name "jetring") (name "jetring")
(version "0.30") (version "0.31")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1181,14 +1181,13 @@ (define-public jetring
(arguments (arguments
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(add-before 'install 'hardlink-gnupg (add-before 'install 'hardlink-gnupg
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((gpg (search-input-file inputs "/bin/gpg"))) (let ((gpg (search-input-file inputs "/bin/gpg")))
(substitute* (find-files "." "jetring-[[:alpha:]]+$") (substitute* (find-files "." "jetring-[[:alpha:]]+$")
(("gpg -") (string-append gpg " -")) (("gpg -") (string-append gpg " -"))
(("\\\"gpg\\\"") (string-append "\"" gpg "\""))) (("\\\"gpg\\\"") (string-append "\"" gpg "\""))))))
#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"))
@ -1199,9 +1198,8 @@ (define-public jetring
(for-each (lambda (file) (for-each (lambda (file)
(install-file file (string-append man "/man1/"))) (install-file file (string-append man "/man1/")))
(find-files "." ".*\\.1$")) (find-files "." ".*\\.1$"))
(install-file "jetring.7" (string-append man "/man7/")) (install-file "jetring.7" (string-append man "/man7/"))))))
#t)))) #:tests? #f)) ; no tests
#:tests? #f)) ; no test phase
(inputs (inputs
(list gnupg perl)) (list gnupg perl))
(home-page "https://joeyh.name/code/jetring/") (home-page "https://joeyh.name/code/jetring/")