summary refs log tree commit diff
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2022-12-30 23:38:04 +0100
committerMarius Bakke <marius@gnu.org>2022-12-31 21:03:13 +0100
commit4dda2e36a0039a36aa138715930f5201528c5c08 (patch)
treee4314aaf7f3c21d9e0b1e6a52eecf3eb30b53fc5
parentaa1f9cb4b56c8d455b24b2eb840debb99ead0289 (diff)
downloadguix-4dda2e36a0039a36aa138715930f5201528c5c08.tar.gz
gnu: openshot: Build with QtWebEngine instead of QtWebKit.
* gnu/packages/video.scm (openshot)[inputs]: Change from PYTHON-PYQT to
PYTHON-PYQT-WITHOUT-QTWEBKIT.  Add PYTHON-PYQTWEBENGINE and QTWEBENGINE-5.
[arguments]: Wrap with QTWEBENGINEPROCESS_PATH.
-rw-r--r--gnu/packages/video.scm18
1 files changed, 13 insertions, 5 deletions
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 2a70c4496f..b9c8ab1ef3 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -4834,10 +4834,12 @@ API.  It includes bindings for Python, Ruby, and other languages.")
            font-dejavu
            libopenshot
            python
-           python-pyqt
+           python-pyqt-without-qtwebkit
+           python-pyqtwebengine
            python-pyzmq
            python-requests
-           qtsvg-5))
+           qtsvg-5
+           qtwebengine-5))
     (arguments
      `(#:modules ((guix build python-build-system)
                   (guix build qt-utils)
@@ -4867,10 +4869,16 @@ API.  It includes bindings for Python, Ruby, and other languages.")
                       #t))
                   (add-after 'install 'wrap-program
                     (lambda* (#:key outputs inputs #:allow-other-keys)
-                      (let ((out (assoc-ref outputs "out")))
+                      (let ((out (assoc-ref outputs "out"))
+                            (qtwebengine-process-path
+                             (search-input-file
+                              inputs "/lib/qt5/libexec/QtWebEngineProcess")))
                         (wrap-qt-program "openshot-qt"
-                                         #:output out #:inputs inputs))
-                      #t)))))
+                                         #:output out #:inputs inputs)
+                        ;; Help the program discover QtWebEngine at runtime.
+                        (wrap-program (string-append out "/bin/openshot-qt")
+                          `("QTWEBENGINEPROCESS_PATH" =
+                            (,qtwebengine-process-path)))))))))
     (home-page "https://www.openshot.org/")
     (synopsis "Video editor")
     (description "OpenShot takes your videos, photos, and music files and