gnu: openshot: Use wrap-qt-program.
* gnu/packages/video.scm (openshot)[arguments]: Add more modules. Adjust custom 'wrap-program phase to use wrap-qt-program.
This commit is contained in:
parent
fc83a8913a
commit
a512aa9181
|
@ -3383,6 +3383,11 @@ (define-public openshot
|
||||||
("qtsvg" ,qtsvg)))
|
("qtsvg" ,qtsvg)))
|
||||||
(arguments
|
(arguments
|
||||||
`(#:tests? #f ;no tests
|
`(#:tests? #f ;no tests
|
||||||
|
#:modules ((guix build python-build-system)
|
||||||
|
(guix build qt-utils)
|
||||||
|
(guix build utils))
|
||||||
|
#:imported-modules (,@%python-build-system-modules
|
||||||
|
(guix build qt-utils))
|
||||||
#:phases (modify-phases %standard-phases
|
#:phases (modify-phases %standard-phases
|
||||||
(delete 'build) ;install phase does all the work
|
(delete 'build) ;install phase does all the work
|
||||||
(add-before 'install 'set-tmp-home
|
(add-before 'install 'set-tmp-home
|
||||||
|
@ -3392,12 +3397,10 @@ (define-public openshot
|
||||||
(setenv "HOME" "/tmp")
|
(setenv "HOME" "/tmp")
|
||||||
#t))
|
#t))
|
||||||
(add-after 'install 'wrap-program
|
(add-after 'install 'wrap-program
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(wrap-program (string-append (assoc-ref outputs "out")
|
(let ((out (assoc-ref outputs "out")))
|
||||||
"/bin/openshot-qt")
|
(wrap-qt-program out "openshot-qt"))
|
||||||
`("QT_PLUGIN_PATH" prefix
|
#t)))))
|
||||||
,(list (string-append (assoc-ref inputs "qtsvg")
|
|
||||||
"/lib/qt5/plugins/")))))))))
|
|
||||||
(home-page "https://openshot.org")
|
(home-page "https://openshot.org")
|
||||||
(synopsis "Video editor")
|
(synopsis "Video editor")
|
||||||
(description "OpenShot takes your videos, photos, and music files and
|
(description "OpenShot takes your videos, photos, and music files and
|
||||||
|
|
Loading…
Reference in a new issue