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

gnu: gnuradio: Fix gnuradio-companion GUI not showing.

Browse source 
* gnu/packages/ham-radio.scm (gnuradio)[arguments]: Add 'wrap-glib-or-gtk' and
  'wrap-with-GI_TYPELIB_PATH' phases.
This commit is contained in:
Guillaume Le Vaillant 2020-04-10 14:48:46 +02:00
parent d90286ed54
commit 93299e6127
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/ham-radio.scm
View file

@ -58,6 +58,7 @@ (define-module (gnu packages ham-radio)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (guix build-system cmake)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system qt))
@ -260,9 +261,12 @@ (define-public gnuradio
("zeromq" ,zeromq)))
(arguments
`(#:modules ((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
((guix build python-build-system) #:prefix python:)
(guix build utils))
(guix build utils)
(ice-9 match))
#:imported-modules (,@%cmake-build-system-modules
(guix build glib-or-gtk-build-system)
(guix build python-build-system))
#:phases
(modify-phases %standard-phases
@ -293,7 +297,24 @@ (define-public gnuradio
(setenv "DISPLAY" ":1")
#t))
(add-after 'install 'wrap-python
(assoc-ref python:%standard-phases 'wrap)))))
(assoc-ref python:%standard-phases 'wrap))
(add-after 'wrap-python 'wrap-glib-or-gtk
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
(add-after 'wrap-glib-or-gtk 'wrap-with-GI_TYPELIB_PATH
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(paths (map (match-lambda
((output . directory)
(let ((girepodir (string-append
directory
"/lib/girepository-1.0")))
(if (file-exists? girepodir)
girepodir
#f))))
inputs)))
(wrap-program (string-append out "/bin/gnuradio-companion")
`("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))
#t)))))
(synopsis "Toolkit for software-defined radios")
(description
"GNU Radio is a development toolkit that provides signal processing blocks