gnu: ibus-speech-to-text: Fix execution of ibus-engine-stt.

Fixes <https://issues.guix.gnu.org/61236>.

* gnu/packages/ibus.scm (ibus-speech-to-text)[#:phases]
<add-install-to-pythonpath>: New phase.
<wrap-additional-paths>: Use getenv to set GUIX_PYTHONPATH and GI_TYPELIB_PATH.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Luis Felipe 2023-02-10 13:49:23 -05:00 committed by Liliana Marie Prikler
parent 2419a16365
commit 59e2e0744b
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -11,6 +11,7 @@
;;; Copyright © 2021 Songlin Jiang <hollowman@hollowman.ml>
;;; Copyright © 2021 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -875,6 +876,13 @@ (define-public ibus-speech-to-text
(substitute* "meson.build"
(("update_desktop_database: true")
"update_desktop_database: false"))))
(add-after 'set-paths 'add-install-to-pythonpath
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(ibus-stt-dir (string-append out "/share/ibus-stt")))
(setenv "GUIX_PYTHONPATH"
(string-append ibus-stt-dir ":"
(getenv "GUIX_PYTHONPATH"))))))
(add-after 'install 'wrap-with-additional-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure 'ibus-{setup,engine}-stt' find the gst-vosk plugin
@ -886,17 +894,10 @@ (define-public ibus-speech-to-text
(,(string-append (assoc-ref inputs "gst-vosk")
"/lib/gstreamer-1.0")
,(getenv "GST_PLUGIN_SYSTEM_PATH")))
`("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH")
,(string-append (assoc-ref inputs "ibus")
"/lib/girepository-1.0")
,(string-append (assoc-ref outputs "out")
"/share/ibus-stt")))
`("GI_TYPELIB_PATH" ":" prefix
(,(string-append (assoc-ref inputs "ibus")
"/lib/girepository-1.0")
,(string-append (assoc-ref outputs "out")
"/share/ibus-stt")))))
`("GUIX_PYTHONPATH" =
(,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" =
(,(getenv "GI_TYPELIB_PATH")))))
(list (string-append out "/libexec/ibus-engine-stt")
(string-append out "/libexec/ibus-setup-stt")))))))))
(inputs