gnu: astroid: Fix build.

* gnu/packages/mail.scm (astroid)[arguments]: Add phase to wrap binary
in GI_TYPELIB_PATH. Add 'glib-or-gtk-compile-schemas and
'glib-or-gtk-wrap phases from the glib-or-gtk build system.
[propagated-inputs]: Add adwaita-icon-theme.

Co-authored with Efraim Flashner <efraim@flashner.co.il>
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
This commit is contained in:
Tanguy Le Carrour 2020-11-18 09:30:57 +01:00 committed by Efraim Flashner
parent 5221df3414
commit 4c9eed9c56
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -729,7 +729,13 @@ (define-public astroid
#t))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags (list "-GNinja")
`(#:modules ((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(guix build utils)
(ice-9 match))
#:imported-modules ((guix build glib-or-gtk-build-system)
,@%cmake-build-system-modules)
#:configure-flags (list "-GNinja")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'skip-markdown-test
@ -759,7 +765,26 @@ (define-public astroid
#t))
(replace 'install
(lambda _
(invoke "ninja" "install"))))))
(invoke "ninja" "install")))
(add-after 'install 'wrap-with-GI_TYPELIB_PATH
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(paths (map (match-lambda
((outputs . directory)
(let ((girepodir (string-append
directory
"/lib/girepository-1.0")))
(if (file-exists? girepodir)
girepodir
#f))))
inputs)))
(wrap-program (string-append out "/bin/astroid")
`("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))
#t))
(add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(add-after 'install 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
(native-inputs
`(("glib-networking" ,glib-networking)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
@ -781,6 +806,8 @@ (define-public astroid
("python" ,python-wrapper)
("python-pygobject" ,python-pygobject)
("webkitgtk" ,webkitgtk)))
(propagated-inputs
`(("adwaita-icon-theme" ,adwaita-icon-theme))) ; Required for the thread view
(home-page "https://astroidmail.github.io/")
(synopsis "GTK frontend to the notmuch mail system")
(description