gnu: pass-age: Improve style.

* gnu/packages/password-utils.scm (pass-age)[arguments]: Use
G-Expressions.

Change-Id: I19f12c9be15388a592e042db48961692f09d2a1e
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Cayetano Santos 2025-09-16 16:35:57 +02:00 committed by Liliana Marie Prikler
parent 83a54fc239
commit a7b3e9f931
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -969,20 +969,19 @@ through the pass command.")
(base32 "1ap2i08zjvacd2rllrsx9bw3zz5i99bk0i5yxrssvn6w60bwjqdl"))))
(build-system copy-build-system)
(arguments
'(#:modules
((guix build copy-build-system)
(list
#:modules '((guix build copy-build-system)
(guix build utils)
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'rename-script
(lambda _
(rename-file "src/password-store.sh"
"src/passage")))
(add-after 'install 'wrap-script
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(script (string-append out "/bin/passage")))
(lambda* (#:key inputs #:allow-other-keys)
(let* ((script (string-append #$output "/bin/passage")))
(substitute* script
;; Avoid ugly .passage-real in --help output and elsewhere.
(("^(PROGRAM=).*" _ program=)
@ -1001,7 +1000,7 @@ through the pass command.")
"bin/sed"
"bin/tree")))))))))
#:install-plan
'(("src/passage" "/bin/")
#~'(("src/passage" "/bin/")
("src/completion/pass.bash-completion"
"/etc/bash-completion.d/passage")
("src/completion/pass.fish-completion"