TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: authenticator: Patch to build with a recent meson.

Browse source 
* gnu/packages/gnome.scm (authenticator)
[arguments]: Use gexps.  Remove #:meson argument.  Add 'patch-meson.build
phase.  Use search-input-file in python-and-gi-wrap phase.
This commit is contained in:
Maxim Cournoyer 2023-04-09 11:30:59 -04:00
parent 2f79fd92f4
commit 86fcb344b9
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/gnome.scm
View file

@ -10249,23 +10249,26 @@ (define-public authenticator
(base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
(build-system meson-build-system)
(arguments
`(#:meson ,meson-0.59
#:glib-or-gtk? #t
#:phases
(modify-phases %standard-phases
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref outputs "out")
"/bin/authenticator"))
(pylib (string-append (assoc-ref outputs "out")
"/lib/python"
,(version-major+minor
(package-version
(this-package-input "python")))
"/site-packages")))
(wrap-program prog
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-meson.build
(lambda _
(substitute* "data/meson.build"
(("^ 'desktop',.*") "")
(("^ 'appdata',.*") ""))))
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((prog (search-input-file outputs "bin/authenticator"))
(pylib (string-append #$output "/lib/python"
#$(version-major+minor
(package-version
(this-package-input "python")))
"/site-packages")))
(wrap-program prog
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
(native-inputs
(list desktop-file-utils
gettext-minimal