gnu: quaternion: Wrap with extra inputs.

* gnu/packages/messaging.scm (quaternion)[inputs]: Add qtquickcontrols2.
[arguments]: Use WRAP-QT-PROGRAM.
This commit is contained in:
Tobias Geerinckx-Rice 2019-10-15 02:12:32 +02:00
parent 5958df042c
commit f920a64a74
No known key found for this signature in database
GPG Key ID: D889B0F018C5493C
1 changed files with 10 additions and 12 deletions

View File

@ -1779,25 +1779,23 @@ QMatrixClient project.")
("qtdeclarative" ,qtdeclarative)
("qtmultimedia" ,qtmultimedia)
("qtquickcontrols" ,qtquickcontrols)
("qtquickcontrols2" ,qtquickcontrols2)
("qtsvg" ,qtsvg)
("qttools" ,qttools)))
(arguments
`(#:tests? #f ; no tests
#:modules ((guix build cmake-build-system)
(guix build qt-utils)
(guix build utils))
#:imported-modules (,@%cmake-build-system-modules
(guix build qt-utils))
#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/quaternion")
`("QT_PLUGIN_PATH" ":" prefix
(,(string-append (assoc-ref inputs "qtsvg")
"/lib/qt5/plugins")))
`("QML2_IMPORT_PATH" ":" prefix
,(map (lambda (label)
(string-append (assoc-ref inputs label)
"/lib/qt5/qml"))
'("qtdeclarative" "qtquickcontrols"))))
#t)))))
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-qt-program out "quaternion")
#t))))))
(home-page "https://matrix.org/docs/projects/client/quaternion.html")
(synopsis "Graphical client for the Matrix instant messaging protocol")
(description "Quaternion is a Qt5 desktop client for the Matrix instant