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: browserpass-native: Use new package style.

Browse source 
* gnu/packages/password-utils.scm (browserpass-native)[arguments]: Use
gexps. Drop trailing #t from phases.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Timotej Lazar 2023-04-29 23:28:11 +02:00 • committed by Ludovic Courtès
parent 453d99dc4c
commit c4e49d7598
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 31 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -965,46 +965,37 @@ from password-store and gopass files.")
(base32 "1if72k526sqqxnw250qwxvzwvh1w0k8ag4p4xq3442b22hywx72i")))) (base32 "1if72k526sqqxnw250qwxvzwvh1w0k8ag4p4xq3442b22hywx72i"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
`(#:import-path "github.com/browserpass/browserpass-native" (list #:import-path "github.com/browserpass/browserpass-native"
#:install-source? #f #:install-source? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'build 'patch-makefile (add-before 'build 'patch-makefile
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) ;; This doesn't go in #:make-flags because the Makefile
;; This doesn't go in #:make-flags because the Makefile itself ;; itself gets installed.
;; gets installed. (substitute* "src/github.com/browserpass/browserpass-native/Makefile"
(substitute* (("PREFIX \\?= /usr")
"src/github.com/browserpass/browserpass-native/Makefile" (string-append "PREFIX ?= " #$output)))))
(("PREFIX \\?= /usr") (add-before 'build 'configure
(string-append "PREFIX ?= " out))) (lambda _
#t))) (with-directory-excursion
(add-before 'build 'configure "src/github.com/browserpass/browserpass-native"
(lambda _ (invoke "make" "configure"))))
(with-directory-excursion (replace 'build
"src/github.com/browserpass/browserpass-native" (lambda _
(invoke "make" "configure")) (with-directory-excursion
#t)) "src/github.com/browserpass/browserpass-native"
(replace 'build (invoke "make"))))
(lambda _ (replace 'install
(with-directory-excursion (lambda _
"src/github.com/browserpass/browserpass-native" (with-directory-excursion
(invoke "make")) "src/github.com/browserpass/browserpass-native"
#t)) (invoke "make" "install"))))
(replace 'install (add-after 'install 'wrap-executable
(lambda _ (lambda _
(with-directory-excursion (wrap-program (string-append #$output "/bin/browserpass")
"src/github.com/browserpass/browserpass-native" `("PATH" ":" prefix
(invoke "make" "install")) (,(string-append #$(this-package-input "gnupg") "/bin")))))))))
#t))
(add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(gnupg (assoc-ref inputs "gnupg")))
(wrap-program (string-append out "/bin/browserpass")
`("PATH" ":" prefix
(,(string-append gnupg "/bin"))))
#t))))))
(native-inputs (native-inputs
(list which)) (list which))
(inputs (inputs