guix_mirror_bot pushed a commit to branch master
in repository guix.
commit a7b3e9f9313f71e910ffc99e29698947719856a9
Author: Cayetano Santos <[email protected]>
AuthorDate: Tue Sep 16 16:35:57 2025 +0200
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 <[email protected]>
---
gnu/packages/password-utils.scm | 77 ++++++++++++++++++++---------------------
1 file changed, 38 insertions(+), 39 deletions(-)
diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index 8f599389f4..0b503fde81 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -969,45 +969,44 @@ through the pass command.")
(base32 "1ap2i08zjvacd2rllrsx9bw3zz5i99bk0i5yxrssvn6w60bwjqdl"))))
(build-system copy-build-system)
(arguments
- '(#:modules
- ((guix build copy-build-system)
- (guix build utils)
- (srfi srfi-26))
- #: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")))
- (substitute* script
- ;; Avoid ugly ‘.passage-real’ in --help output and elsewhere.
- (("^(PROGRAM=).*" _ program=)
- (string-append program= (basename script) "\n")))
- (wrap-program script
- `("PATH" ":" prefix
- ,(map dirname
- (map (cut search-input-file inputs <>)
- (list "bin/age"
- "bin/age-keygen"
- "bin/cat"
- "bin/getopt"
- "bin/git"
- "bin/pkill"
- "bin/qrencode"
- "bin/sed"
- "bin/tree")))))))))
- #:install-plan
- '(("src/passage" "/bin/")
- ("src/completion/pass.bash-completion"
- "/etc/bash-completion.d/passage")
- ("src/completion/pass.fish-completion"
- "/share/fish/vendor_completions.d/passage")
- ("src/completion/pass.zsh-completion"
- "/share/zsh/site-functions/_passage"))))
+ (list
+ #:modules '((guix build copy-build-system)
+ (guix build utils)
+ (srfi srfi-26))
+ #: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 #:allow-other-keys)
+ (let* ((script (string-append #$output "/bin/passage")))
+ (substitute* script
+ ;; Avoid ugly ‘.passage-real’ in --help output and elsewhere.
+ (("^(PROGRAM=).*" _ program=)
+ (string-append program= (basename script) "\n")))
+ (wrap-program script
+ `("PATH" ":" prefix
+ ,(map dirname
+ (map (cut search-input-file inputs <>)
+ (list "bin/age"
+ "bin/age-keygen"
+ "bin/cat"
+ "bin/getopt"
+ "bin/git"
+ "bin/pkill"
+ "bin/qrencode"
+ "bin/sed"
+ "bin/tree")))))))))
+ #:install-plan
+ #~'(("src/passage" "/bin/")
+ ("src/completion/pass.bash-completion"
+ "/etc/bash-completion.d/passage")
+ ("src/completion/pass.fish-completion"
+ "/share/fish/vendor_completions.d/passage")
+ ("src/completion/pass.zsh-completion"
+ "/share/zsh/site-functions/_passage"))))
(inputs
(list age coreutils-minimal git-minimal
procps qrencode sed tree util-linux))
