bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-28 19:56:59 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: jetring: Improve style.

Browse source 
* gnu/packages/gnupg.scm (jetring)[arguments]: Use G-Expressions.

Change-Id: I739ef81a673a2ca718650da860527ddd7b256280
Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
Cayetano Santos 2025-11-13 15:17:12 +01:00 • committed by Andreas Enge
parent 46a77dec2f
commit 3f83b79ada
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 25 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/gnupg.scm
View file

@ -1238,27 +1238,31 @@ over.")
(base32 "19m7rj446pr4nql44khwq0cfxfrm8cslj5v9jll08p7nk6glq5px"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'install 'hardlink-gnupg
(lambda* (#:key inputs #:allow-other-keys)
(let ((gpg (search-input-file inputs "/bin/gpg")))
(substitute* (find-files "." "jetring-[[:alpha:]]+$")
(("gpg -") (string-append gpg " -"))
(("\\\"gpg\\\"") (string-append "\"" gpg "\""))))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man")))
(for-each (lambda (file)
(install-file file (string-append out "/bin/")))
(find-files "." "jetring-[[:alpha:]]+$"))
(for-each (lambda (file)
(install-file file (string-append man "/man1/")))
(find-files "." ".*\\.1$"))
(install-file "jetring.7" (string-append man "/man7/"))))))
#:tests? #f)) ; no tests
(list
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'install 'hardlink-gnupg
(lambda* (#:key inputs #:allow-other-keys)
(let ((gpg (search-input-file inputs "/bin/gpg")))
(substitute* (find-files "." "jetring-[[:alpha:]]+$")
(("gpg -") (string-append gpg " -"))
(("\\\"gpg\\\"") (string-append "\"" gpg "\""))))))
(replace 'install
(lambda _
(for-each
(lambda (file)
(install-file file
(string-append #$output "/bin/")))
(find-files "." "jetring-[[:alpha:]]+$"))
(for-each
(lambda (file)
(install-file file
(string-append #$output "/share/man/man1/")))
(find-files "." ".*\\.1$"))
(install-file "jetring.7"
(string-append #$output "/share/man/man7/")))))
#:tests? #f)) ; no tests
(inputs
(list gnupg perl))
(home-page "https://joeyh.name/code/jetring/")