amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: pass-age: Improve style.

Browse source 
* 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
1 changed files with 38 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

77
gnu/packages/password-utils.scm
View file

@ -969,45 +969,44 @@ through the pass command.")
(base32 "1ap2i08zjvacd2rllrsx9bw3zz5i99bk0i5yxrssvn6w60bwjqdl")))) (base32 "1ap2i08zjvacd2rllrsx9bw3zz5i99bk0i5yxrssvn6w60bwjqdl"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
'(#:modules (list
((guix build copy-build-system) #:modules '((guix build copy-build-system)
(guix build utils) (guix build utils)
(srfi srfi-26)) (srfi srfi-26))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'rename-script (add-after 'unpack 'rename-script
(lambda _ (lambda _
(rename-file "src/password-store.sh" (rename-file "src/password-store.sh"
"src/passage"))) "src/passage")))
(add-after 'install 'wrap-script (add-after 'install 'wrap-script
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((script (string-append #$output "/bin/passage")))
(script (string-append out "/bin/passage"))) (substitute* script
(substitute* script ;; Avoid ugly ‘.passage-real’ in --help output and elsewhere.
;; Avoid ugly ‘.passage-real’ in --help output and elsewhere. (("^(PROGRAM=).*" _ program=)
(("^(PROGRAM=).*" _ program=) (string-append program= (basename script) "\n")))
(string-append program= (basename script) "\n"))) (wrap-program script
(wrap-program script `("PATH" ":" prefix
`("PATH" ":" prefix ,(map dirname
,(map dirname (map (cut search-input-file inputs <>)
(map (cut search-input-file inputs <>) (list "bin/age"
(list "bin/age" "bin/age-keygen"
"bin/age-keygen" "bin/cat"
"bin/cat" "bin/getopt"
"bin/getopt" "bin/git"
"bin/git" "bin/pkill"
"bin/pkill" "bin/qrencode"
"bin/qrencode" "bin/sed"
"bin/sed" "bin/tree")))))))))
"bin/tree"))))))))) #:install-plan
#:install-plan #~'(("src/passage" "/bin/")
'(("src/passage" "/bin/") ("src/completion/pass.bash-completion"
("src/completion/pass.bash-completion" "/etc/bash-completion.d/passage")
"/etc/bash-completion.d/passage") ("src/completion/pass.fish-completion"
("src/completion/pass.fish-completion" "/share/fish/vendor_completions.d/passage")
"/share/fish/vendor_completions.d/passage") ("src/completion/pass.zsh-completion"
("src/completion/pass.zsh-completion" "/share/zsh/site-functions/_passage"))))
"/share/zsh/site-functions/_passage"))))
(inputs (inputs
(list age coreutils-minimal git-minimal (list age coreutils-minimal git-minimal
procps qrencode sed tree util-linux)) procps qrencode sed tree util-linux))