me/guix
Archived
1
0
Fork 0
Code Activity

gnu: pinentry-rofi: Update to 2.0.2.

Browse source 
* gnu/packages/gnupg.scm (pinentry-rofi): Update to 2.0.2.
[arguments]: Simplify the package definition.

Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
This commit is contained in:
Fredrik Salomonsson 2021-01-27 18:02:07 -08:00 • committed by Nicolas Goaziou
parent c2245ac23a
commit 049e06b603
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 8 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/gnupg.scm
View file

@ -894,7 +894,7 @@ passphrase when @code{gpg} is run and needs it.")))
(define-public pinentry-rofi (define-public pinentry-rofi
(package (package
(name "pinentry-rofi") (name "pinentry-rofi")
(version "2.0.1") (version "2.0.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -902,7 +902,7 @@ passphrase when @code{gpg} is run and needs it.")))
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "044bnldz7k74s873jwsjgff176l1jsvpbaka7d1wcj8b5pwqv2av")))) (base32 "14rbz32ykc8pz7gglbvxm3pcgabr7xdnddar6k24icd5xk9mr4rp"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules `(#:modules
@ -914,38 +914,15 @@ passphrase when @code{gpg} is run and needs it.")))
%standard-phases %standard-phases
(add-after 'install 'hall-wrap-binaries (add-after 'install 'hall-wrap-binaries
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((compiled-dir (let* ((out (assoc-ref outputs "out"))
(lambda (out version)
(string-append out "/lib/guile/" version "/site-ccache")))
(uncompiled-dir
(lambda (out version)
(string-append
out
"/share/guile/site"
(if (string-null? version) "" "/")
version)))
(dep-path
(lambda (env path)
(list env ":" 'prefix (list path))))
(out (assoc-ref outputs "out"))
(bin (string-append out "/bin/")) (bin (string-append out "/bin/"))
(site (uncompiled-dir out ""))) (site (string-append out "/share/guile/site"))
(rofi-bin (string-append (assoc-ref inputs "rofi") "/bin")))
(match (scandir site) (match (scandir site)
(("." ".." version) (("." ".." version)
(for-each
(lambda (file)
(wrap-program (wrap-program
(string-append bin file) (string-append bin "pinentry-rofi")
(dep-path (list "PATH" ":" 'prefix `(,rofi-bin)))
"PATH"
(string-append (assoc-ref inputs "rofi") "/bin"))
(dep-path
"GUILE_LOAD_PATH"
(uncompiled-dir out version))
(dep-path
"GUILE_LOAD_COMPILED_PATH"
(compiled-dir out version))))
,''("pinentry-rofi"))
#t)))))))) #t))))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)