gnu/packages/qt.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
   4 ;;; Copyright © 2015, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
   5 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   6 ;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
   7 ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
   8 ;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
   9 ;;; Copyright © 2017 Quiliro <quiliro@fsfla.org>
  10 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  11 ;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  12 ;;; Copyright © 2018 Hartmut Goebel <h.goebel@crazy-compilers.com>
  13 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
  14 ;;;
  15 ;;; This file is part of GNU Guix.
  16 ;;;
  17 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  18 ;;; under the terms of the GNU General Public License as published by
  19 ;;; the Free Software Foundation; either version 3 of the License, or (at
  20 ;;; your option) any later version.
  21 ;;;
  22 ;;; GNU Guix is distributed in the hope that it will be useful, but
  23 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  24 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 ;;; GNU General Public License for more details.
  26 ;;;
  27 ;;; You should have received a copy of the GNU General Public License
  28 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  29
  30 (define-module (gnu packages qt)
  31   #:use-module ((guix licenses) #:prefix license:)
  32   #:use-module (guix packages)
  33   #:use-module (guix download)
  34   #:use-module (guix git-download)
  35   #:use-module (guix build-system cmake)
  36   #:use-module (guix build-system gnu)
  37   #:use-module (guix build-system trivial)
  38   #:use-module (guix packages)
  39   #:use-module (guix utils)
  40   #:use-module (gnu packages)
  41   #:use-module (gnu packages bison)
  42   #:use-module (gnu packages compression)
  43   #:use-module (gnu packages cups)
  44   #:use-module (gnu packages databases)
  45   #:use-module (gnu packages documentation)
  46   #:use-module (gnu packages fontutils)
  47   #:use-module (gnu packages flex)
  48   #:use-module (gnu packages freedesktop)
  49   #:use-module (gnu packages gl)
  50   #:use-module (gnu packages glib)
  51   #:use-module (gnu packages gnuzilla)
  52   #:use-module (gnu packages gperf)
  53   #:use-module (gnu packages gstreamer)
  54   #:use-module (gnu packages gtk)
  55   #:use-module (gnu packages icu4c)
  56   #:use-module (gnu packages image)
  57   #:use-module (gnu packages linux)
  58   #:use-module (gnu packages maths)
  59   #:use-module (gnu packages pciutils)
  60   #:use-module (gnu packages pcre)
  61   #:use-module (gnu packages perl)
  62   #:use-module (gnu packages pkg-config)
  63   #:use-module (gnu packages pulseaudio)
  64   #:use-module (gnu packages python)
  65   #:use-module (gnu packages python-xyz)
  66   #:use-module (gnu packages ruby)
  67   #:use-module (gnu packages sdl)
  68   #:use-module (gnu packages sqlite)
  69   #:use-module (gnu packages tls)
  70   #:use-module (gnu packages vulkan)
  71   #:use-module (gnu packages xdisorg)
  72   #:use-module (gnu packages xorg)
  73   #:use-module (gnu packages xml)
  74   #:use-module (srfi srfi-1))
  75
  76 (define-public grantlee
  77   (package
  78     (name "grantlee")
  79     (version "5.1.0")
  80     (source
  81       (origin
  82         (method git-fetch)
  83         (uri (git-reference
  84               (url "https://github.com/steveire/grantlee.git")
  85               (commit (string-append "v" version))))
  86         (file-name (git-file-name name version))
  87         (sha256
  88          (base32 "1dmah2gd6zd4fgz2f4ir11dazqg067hjz8xshhywhfsmavchi626"))))
  89     (native-inputs
  90      ;; Optional: lcov and cccc, both are for code coverage
  91      `(("doxygen" ,doxygen)))
  92     (inputs
  93      `(("qtbase" ,qtbase)
  94        ("qtscript" ,qtscript)))
  95     (build-system cmake-build-system)
  96     (arguments
  97      `(#:phases
  98        (modify-phases %standard-phases
  99          (add-before 'check 'check-setup
 100            (lambda _
 101              ;; make Qt render "offscreen", required for tests
 102              (setenv "QT_QPA_PLATFORM" "offscreen")
 103              #t)))))
 104     (home-page "https://github.com/steveire/grantlee")
 105     (synopsis "Libraries for text templating with Qt")
 106     (description "Grantlee Templates can be used for theming and generation of
 107 other text such as code.  The syntax uses the syntax of the Django template
 108 system, and the core design of Django is reused in Grantlee.")
 109     (license license:lgpl2.0+)))
 110
 111 (define-public qt
 112   (package
 113     (name "qt")
 114     (version "5.11.2")
 115     (outputs '("out" "examples"))
 116     (source (origin
 117              (method url-fetch)
 118              (uri
 119                (string-append
 120                  "http://download.qt.io/official_releases/qt/"
 121                  (version-major+minor version)
 122                  "/" version
 123                  "/single/qt-everywhere-src-"
 124                  version ".tar.xz"))
 125              (sha256
 126               (base32
 127                "10faac59jvz6dxxljdkaknlxazpnaxgvqdcszabfbbkc1f24n466"))
 128              (patches (search-patches "qt-5-renameat2.patch"))
 129              (modules '((guix build utils)))
 130              (snippet
 131               '(begin
 132                 ;; Remove qtwebengine, which relies on a bundled copy of
 133                 ;; chromium. Not only does it fail compilation in qt 5.5:
 134                 ;;    3rdparty/chromium/ui/gfx/codec/jpeg_codec.cc:362:10:
 135                 ;;    error: cannot convert ‘bool’ to ‘boolean’ in return
 136                 ;; it might also pose security problems.
 137                 ;; Alternatively, we could use the "-skip qtwebengine"
 138                 ;; configuration option.
 139                 (delete-file-recursively "qtwebengine")
 140                 ;; The following snippets are copied from their mondular-qt counterparts.
 141                 (for-each
 142                   (lambda (dir)
 143                     (delete-file-recursively (string-append "qtbase/src/3rdparty/" dir)))
 144                   (list "double-conversion" "freetype" "harfbuzz-ng"
 145                         "libpng" "libjpeg" "pcre2" "sqlite" "xcb"
 146                         "xkbcommon" "zlib"))
 147                 (for-each
 148                   (lambda (dir)
 149                     (delete-file-recursively dir))
 150                   (list "qtimageformats/src/3rdparty"
 151                         "qtmultimedia/examples/multimedia/spectrum/3rdparty"
 152                         "qtwayland/examples"
 153                         "qtscxml/tests/3rdparty"
 154                         "qtcanvas3d/examples/canvas3d/3rdparty"))
 155                 ;; Tests depend on this example, which depends on the 3rd party code.
 156                 (substitute* "qtmultimedia/examples/multimedia/multimedia.pro"
 157                   (("spectrum") "#"))
 158                 (substitute* "qtxmlpatterns/tests/auto/auto.pro"
 159                   (("qxmlquery") "# qxmlquery")
 160                   (("xmlpatterns ") "# xmlpatterns"))
 161                 (substitute* "qtwebglplugin/tests/plugins/platforms/platforms.pro"
 162                   (("webgl") "# webgl"))
 163                 (substitute* "qtscxml/tests/auto/auto.pro"
 164                   (("scion") "#"))
 165                 (substitute* "qtnetworkauth/tests/auto/auto.pro"
 166                   (("oauth1 ") "# oauth1 "))
 167                 (substitute* "qtremoteobjects/tests/auto/qml/qml.pro"
 168                   (("integration") "# integration")
 169                   (("usertypes") "# usertypes"))
 170                 #t))))
 171     (build-system gnu-build-system)
 172     (propagated-inputs
 173      `(("mesa" ,mesa)))
 174     (inputs
 175      `(("alsa-lib" ,alsa-lib)
 176        ("bluez" ,bluez)
 177        ("cups" ,cups)
 178        ("dbus" ,dbus)
 179        ("double-conversion" ,double-conversion)
 180        ("expat" ,expat)
 181        ("fontconfig" ,fontconfig)
 182        ("freetype" ,freetype)
 183        ("glib" ,glib)
 184        ("gstreamer" ,gstreamer)
 185        ("gst-plugins-base" ,gst-plugins-base)
 186        ("harfbuzz" ,harfbuzz)
 187        ("icu4c" ,icu4c)
 188        ("jasper" ,jasper)
 189        ("libinput" ,libinput-minimal)
 190        ("libjpeg" ,libjpeg)
 191        ("libmng" ,libmng)
 192        ("libpci" ,pciutils)
 193        ("libpng" ,libpng)
 194        ("libtiff" ,libtiff)
 195        ("libwebp" ,libwebp)
 196        ("libx11" ,libx11)
 197        ("libxcomposite" ,libxcomposite)
 198        ("libxcursor" ,libxcursor)
 199        ("libxext" ,libxext)
 200        ("libxfixes" ,libxfixes)
 201        ("libxi" ,libxi)
 202        ("libxinerama" ,libxinerama)
 203        ("libxkbcommon" ,libxkbcommon)
 204        ("libxml2" ,libxml2)
 205        ("libxrandr" ,libxrandr)
 206        ("libxrender" ,libxrender)
 207        ("libxslt" ,libxslt)
 208        ("libxtst" ,libxtst)
 209        ("mtdev" ,mtdev)
 210        ("mariadb" ,mariadb)
 211        ("nss" ,nss)
 212        ("openssl" ,openssl)
 213        ("postgresql" ,postgresql)
 214        ("pulseaudio" ,pulseaudio)
 215        ("pcre2" ,pcre2)
 216        ("sqlite" ,sqlite-with-column-metadata)
 217        ("udev" ,eudev)
 218        ("unixodbc" ,unixodbc)
 219        ("wayland" ,wayland)
 220        ("xcb-util" ,xcb-util)
 221        ("xcb-util-image" ,xcb-util-image)
 222        ("xcb-util-keysyms" ,xcb-util-keysyms)
 223        ("xcb-util-renderutil" ,xcb-util-renderutil)
 224        ("xcb-util-wm" ,xcb-util-wm)
 225        ("zlib" ,zlib)))
 226     (native-inputs
 227      `(("bison" ,bison)
 228        ("flex" ,flex)
 229        ("gperf" ,gperf)
 230        ("perl" ,perl)
 231        ("pkg-config" ,pkg-config)
 232        ("python" ,python-2)
 233        ("ruby" ,ruby)
 234        ("vulkan-headers" ,vulkan-headers)
 235        ("which" ,(@ (gnu packages base) which))))
 236     (arguments
 237      `(#:parallel-build? #f ; Triggers race condition in qtbase module on Hydra.
 238        #:phases
 239        (modify-phases %standard-phases
 240          (add-after 'configure 'patch-bin-sh
 241            (lambda _
 242              (substitute* '("qtbase/configure"
 243                             "qtbase/mkspecs/features/qt_functions.prf"
 244                             "qtbase/qmake/library/qmakebuiltins.cpp")
 245                           (("/bin/sh") (which "sh")))
 246              #t))
 247          (replace 'configure
 248            (lambda* (#:key outputs #:allow-other-keys)
 249              (let ((out      (assoc-ref outputs "out"))
 250                    (examples (assoc-ref outputs "examples")))
 251                (substitute* '("configure" "qtbase/configure")
 252                  (("/bin/pwd") (which "pwd")))
 253                (substitute* "qtbase/src/corelib/global/global.pri"
 254                  (("/bin/ls") (which "ls")))
 255                ;; do not pass "--enable-fast-install", which makes the
 256                ;; configure process fail
 257                (invoke
 258                  "./configure"
 259                  "-verbose"
 260                  "-prefix" out
 261                  "-docdir" (string-append out "/share/doc/qt5")
 262                  "-headerdir" (string-append out "/include/qt5")
 263                  "-archdatadir" (string-append out "/lib/qt5")
 264                  "-datadir" (string-append out "/share/qt5")
 265                  "-examplesdir" (string-append
 266                                   examples "/share/doc/qt5/examples") ; 151MiB
 267                  "-opensource"
 268                  "-confirm-license"
 269
 270                  ;; These features require higher versions of Linux than the
 271                  ;; minimum version of the glibc.  See
 272                  ;; src/corelib/global/minimum-linux_p.h.  By disabling these
 273                  ;; features Qt5 applications can be used on the oldest
 274                  ;; kernels that the glibc supports, including the RHEL6
 275                  ;; (2.6.32) and RHEL7 (3.10) kernels.
 276                  "-no-feature-getentropy"  ; requires Linux 3.17
 277                  "-no-feature-renameat2"   ; requires Linux 3.16
 278
 279                  ;; Do not build examples; for the time being, we
 280                  ;; prefer to save the space and build time.
 281                  "-no-compile-examples"
 282                  ;; Most "-system-..." are automatic, but some use
 283                  ;; the bundled copy by default.
 284                  "-system-sqlite"
 285                  "-system-harfbuzz"
 286                  "-system-pcre"
 287                  ;; explicitly link with openssl instead of dlopening it
 288                  "-openssl-linked"
 289                  ;; explicitly link with dbus instead of dlopening it
 290                  "-dbus-linked"
 291                  ;; don't use the precompiled headers
 292                  "-no-pch"
 293                  ;; drop special machine instructions not supported
 294                  ;; on all instances of the target
 295                  ,@(if (string-prefix? "x86_64"
 296                                        (or (%current-target-system)
 297                                            (%current-system)))
 298                        '()
 299                        '("-no-sse2"))
 300                  "-no-mips_dsp"
 301                  "-no-mips_dspr2"))))
 302            (add-after 'install 'patch-mkspecs
 303              (lambda* (#:key outputs #:allow-other-keys)
 304                (let* ((out (assoc-ref outputs "out"))
 305                       (archdata (string-append out "/lib/qt5"))
 306                       (mkspecs (string-append archdata "/mkspecs"))
 307                       (qt_config.prf (string-append
 308                                       mkspecs "/features/qt_config.prf")))
 309                  ;; For each Qt module, let `qmake' uses search paths in the
 310                  ;; module directory instead of all in QT_INSTALL_PREFIX.
 311                  (substitute* qt_config.prf
 312                    (("\\$\\$\\[QT_INSTALL_HEADERS\\]")
 313                     "$$clean_path($$replace(dir, mkspecs/modules, ../../include/qt5))")
 314                    (("\\$\\$\\[QT_INSTALL_LIBS\\]")
 315                     "$$clean_path($$replace(dir, mkspecs/modules, ../../lib))")
 316                    (("\\$\\$\\[QT_HOST_LIBS\\]")
 317                     "$$clean_path($$replace(dir, mkspecs/modules, ../../lib))")
 318                    (("\\$\\$\\[QT_INSTALL_BINS\\]")
 319                     "$$clean_path($$replace(dir, mkspecs/modules, ../../bin))"))
 320
 321                  ;; Searches Qt tools in the current PATH instead of QT_HOST_BINS.
 322                  (substitute* (string-append mkspecs "/features/qt_functions.prf")
 323                    (("cmd = \\$\\$\\[QT_HOST_BINS\\]/\\$\\$2")
 324                     "cmd = $$system(which $${2}.pl 2>/dev/null || which $${2})"))
 325
 326                  ;; Resolve qmake spec files within qtbase by absolute paths.
 327                  (substitute*
 328                      (map (lambda (file)
 329                             (string-append mkspecs "/features/" file))
 330                           '("device_config.prf" "moc.prf" "qt_build_config.prf"
 331                             "qt_config.prf" "winrt/package_manifest.prf"))
 332                    (("\\$\\$\\[QT_HOST_DATA/get\\]") archdata)
 333                    (("\\$\\$\\[QT_HOST_DATA/src\\]") archdata))
 334                  #t)))
 335            (add-after 'unpack 'patch-paths
 336              ;; Use the absolute paths for dynamically loaded libs, otherwise
 337              ;; the lib will be searched in LD_LIBRARY_PATH which typically is
 338              ;; not set in guix.
 339              (lambda* (#:key inputs #:allow-other-keys)
 340                ;; libresolve
 341                (let ((glibc (assoc-ref inputs ,(if (%current-target-system)
 342                                                    "cross-libc" "libc"))))
 343                  (substitute* '("qtbase/src/network/kernel/qdnslookup_unix.cpp"
 344                                 "qtbase/src/network/kernel/qhostinfo_unix.cpp")
 345                    (("^\\s*(lib.setFileName\\(QLatin1String\\(\")(resolv\"\\)\\);)" _ a b)
 346                   (string-append a glibc "/lib/lib" b))))
 347                ;; X11/locale (compose path)
 348                (substitute* "qtbase/src/plugins/platforminputcontexts/compose/generator/qtablegenerator.cpp"
 349                  ;; Don't search in /usr/…/X11/locale, …
 350                  (("^\\s*m_possibleLocations.append\\(QStringLiteral\\(\"/usr/.*/X11/locale\"\\)\\);" line)
 351                   (string-append "// " line))
 352                  ;; … but use libx11's path
 353                  (("^\\s*(m_possibleLocations.append\\(QStringLiteral\\()X11_PREFIX \"(/.*/X11/locale\"\\)\\);)" _ a b)
 354                   (string-append a "\"" (assoc-ref inputs "libx11") b)))
 355                ;; libGL
 356                (substitute* "qtbase/src/plugins/platforms/xcb/gl_integrations/xcb_glx/qglxintegration.cpp"
 357                  (("^\\s*(QLibrary lib\\(QLatin1String\\(\")(GL\"\\)\\);)" _ a b)
 358                   (string-append a (assoc-ref inputs "mesa") "/lib/lib" b)))
 359                ;; libXcursor
 360                (substitute* "qtbase/src/plugins/platforms/xcb/qxcbcursor.cpp"
 361                  (("^\\s*(QLibrary xcursorLib\\(QLatin1String\\(\")(Xcursor\"\\), 1\\);)" _ a b)
 362                   (string-append a (assoc-ref inputs "libxcursor") "/lib/lib" b))
 363                  (("^\\s*(xcursorLib.setFileName\\(QLatin1String\\(\")(Xcursor\"\\)\\);)" _ a b)
 364                   (string-append a (assoc-ref inputs "libxcursor") "/lib/lib" b)))
 365                #t)))))
 366       (native-search-paths
 367        (list (search-path-specification
 368               (variable "QMAKEPATH")
 369               (files '("lib/qt5")))
 370              (search-path-specification
 371               (variable "QML2_IMPORT_PATH")
 372               (files '("lib/qt5/qml")))
 373              (search-path-specification
 374               (variable "QT_PLUGIN_PATH")
 375               (files '("lib/qt5/plugins")))
 376              (search-path-specification
 377               (variable "XDG_DATA_DIRS")
 378               (files '("share")))
 379              (search-path-specification
 380               (variable "XDG_CONFIG_DIRS")
 381               (files '("etc/xdg")))))
 382       (home-page "https://www.qt.io/")
 383       (synopsis "Cross-platform GUI library")
 384       (description "Qt is a cross-platform application and UI framework for
 385   developers using C++ or QML, a CSS & JavaScript like language.")
 386       (license (list license:lgpl2.1 license:lgpl3))
 387
 388     ;; Qt 4: 'QBasicAtomicPointer' leads to build failures on MIPS;
 389     ;; see <http://hydra.gnu.org/build/112828>.
 390     ;; Qt 5: assembler error; see <http://hydra.gnu.org/build/112526>.
 391     (supported-systems (delete "mips64el-linux" %supported-systems))))
 392
 393 (define-public qt-4
 394   (package (inherit qt)
 395     (version "4.8.7")
 396     (source (origin
 397              (method url-fetch)
 398              (uri (string-append "http://download.qt-project.org/official_releases/qt/"
 399                                  (string-copy version 0 (string-rindex version #\.))
 400                                  "/" version
 401                                  "/qt-everywhere-opensource-src-"
 402                                  version ".tar.gz"))
 403              (sha256
 404               (base32
 405                "183fca7n7439nlhxyg1z7aky0izgbyll3iwakw4gwivy16aj5272"))
 406              (patches (search-patches "qt4-ldflags.patch"))
 407              (modules '((guix build utils)))
 408              (snippet
 409               ;; Remove webkit module, which is not built.
 410               '(begin (delete-file-recursively "src/3rdparty/webkit")
 411                       #t))))
 412     (inputs
 413      `(,@(fold alist-delete
 414                (package-inputs qt)
 415                '("harfbuzz" "libjpeg"))
 416        ("libjpeg" ,libjpeg-8)
 417        ("libsm" ,libsm)))
 418     (native-inputs
 419      `(,@(fold alist-delete
 420                (package-native-inputs qt)
 421                '("vulkan-headers"))))
 422
 423     ;; Note: there are 37 MiB of examples and a '-exampledir' configure flags,
 424     ;; but we can't make them a separate output because "out" and "examples"
 425     ;; would refer to each other.
 426     (outputs '("out"                             ;112MiB core + 37MiB examples
 427                "doc"))                           ;280MiB of HTML + code
 428     (arguments
 429      `(#:phases
 430        (modify-phases %standard-phases
 431          (replace
 432           'configure
 433           (lambda* (#:key outputs #:allow-other-keys)
 434             (let ((out (assoc-ref outputs "out"))
 435                   (doc (assoc-ref outputs "doc")))
 436               (substitute* '("configure")
 437                 (("/bin/pwd") (which "pwd")))
 438               (substitute* "src/corelib/global/global.pri"
 439                 (("/bin/ls") (which "ls")))
 440
 441               (invoke
 442                 "./configure"
 443                 "-verbose"
 444                 "-prefix" out
 445                 "-nomake" "examples demos"
 446                 ;; Note: Don't pass '-docdir' since 'qmake' and
 447                 ;; libQtCore would record its value, thereby defeating
 448                 ;; the whole point of having a separate output.
 449                 "-datadir" (string-append out "/share/qt-" ,version
 450                                           "/data")
 451                 "-importdir" (string-append out "/lib/qt-4"
 452                                             "/imports")
 453                 "-plugindir" (string-append out "/lib/qt-4"
 454                                             "/plugins")
 455                 "-translationdir" (string-append out "/share/qt-" ,version
 456                                                  "/translations")
 457                 "-demosdir"    (string-append out "/share/qt-" ,version
 458                                               "/demos")
 459                 "-examplesdir" (string-append out "/share/qt-" ,version
 460                                               "/examples")
 461                 "-opensource"
 462                 "-confirm-license"
 463                 ;; explicitly link with dbus instead of dlopening it
 464                 "-dbus-linked"
 465                 ;; Skip the webkit module; it fails to build on armhf
 466                 ;; and, apart from that, may pose security risks.
 467                 "-no-webkit"
 468                 ;; don't use the precompiled headers
 469                 "-no-pch"
 470                 ;; drop special machine instructions not supported
 471                 ;; on all instances of the target
 472                 ,@(if (string-prefix? "x86_64"
 473                                       (or (%current-target-system)
 474                                           (%current-system)))
 475                       '()
 476                       '("-no-mmx"
 477                         "-no-3dnow"
 478                         "-no-sse"
 479                         "-no-sse2"))
 480                 "-no-sse3"
 481                 "-no-ssse3"
 482                 "-no-sse4.1"
 483                 "-no-sse4.2"
 484                 "-no-avx"))))
 485          (add-after
 486           'install 'move-doc
 487           (lambda* (#:key outputs #:allow-other-keys)
 488             ;; Because of qt4-documentation-path.patch, documentation ends up
 489             ;; being installed in OUT.  Move it to the right place.
 490             (let* ((out    (assoc-ref outputs "out"))
 491                    (doc    (assoc-ref outputs "doc"))
 492                    (olddoc (string-append out "/doc"))
 493                    (docdir (string-append doc "/share/doc/qt-" ,version)))
 494               (mkdir-p (dirname docdir))
 495
 496               ;; Note: We can't use 'rename-file' here because OUT and DOC are
 497               ;; different "devices" due to bind-mounts.
 498               (copy-recursively olddoc docdir)
 499               (delete-file-recursively olddoc)
 500               #t))))))))
 501
 502 (define-public qtbase
 503   (package
 504     (name "qtbase")
 505     (version "5.11.2")
 506     (source (origin
 507              (method url-fetch)
 508              (uri (string-append "https://download.qt.io/official_releases/qt/"
 509                                  (version-major+minor version) "/" version
 510                                  "/submodules/" name "-everywhere-src-"
 511                                  version ".tar.xz"))
 512              (sha256
 513               (base32
 514                "01q1rn5rp9biq3z38953z2hgm4nirvp2jfv8wg7isnld8v1yg0b3"))
 515              ;; Use TZDIR to avoid depending on package "tzdata".
 516              (patches (search-patches "qtbase-use-TZDIR.patch"))
 517              (modules '((guix build utils)))
 518              (snippet
 519                ;; corelib uses bundled harfbuzz, md4, md5, sha3
 520               '(begin
 521                 (for-each
 522                   (lambda (dir)
 523                     (delete-file-recursively (string-append "src/3rdparty/" dir)))
 524                   (list "double-conversion" "freetype" "harfbuzz-ng"
 525                         "libpng" "libjpeg" "pcre2" "sqlite" "xcb"
 526                         "xkbcommon" "zlib"))
 527                 #t))))
 528     (build-system gnu-build-system)
 529     (propagated-inputs
 530      `(("mesa" ,mesa)
 531        ("which" ,(@ (gnu packages base) which))))
 532     (inputs
 533      `(("alsa-lib" ,alsa-lib)
 534        ("cups" ,cups)
 535        ("dbus" ,dbus)
 536        ("double-conversion" ,double-conversion)
 537        ("eudev" ,eudev)
 538        ("expat" ,expat)
 539        ("fontconfig" ,fontconfig)
 540        ("freetype" ,freetype)
 541        ("glib" ,glib)
 542        ("harfbuzz" ,harfbuzz)
 543        ("icu4c" ,icu4c)
 544        ("libinput" ,libinput-minimal)
 545        ("libjpeg" ,libjpeg)
 546        ("libmng" ,libmng)
 547        ("libpng" ,libpng)
 548        ("libx11" ,libx11)
 549        ("libxcomposite" ,libxcomposite)
 550        ("libxcursor" ,libxcursor)
 551        ("libxfixes" ,libxfixes)
 552        ("libxi" ,libxi)
 553        ("libxinerama" ,libxinerama)
 554        ("libxkbcommon" ,libxkbcommon)
 555        ("libxml2" ,libxml2)
 556        ("libxrandr" ,libxrandr)
 557        ("libxrender" ,libxrender)
 558        ("libxslt" ,libxslt)
 559        ("libxtst" ,libxtst)
 560        ("mtdev" ,mtdev)
 561        ("mariadb" ,mariadb)
 562        ("nss" ,nss)
 563        ("openssl" ,openssl)
 564        ("pcre2" ,pcre2)
 565        ("postgresql" ,postgresql)
 566        ("pulseaudio" ,pulseaudio)
 567        ("sqlite" ,sqlite-with-column-metadata)
 568        ("unixodbc" ,unixodbc)
 569        ("xcb-util" ,xcb-util)
 570        ("xcb-util-image" ,xcb-util-image)
 571        ("xcb-util-keysyms" ,xcb-util-keysyms)
 572        ("xcb-util-renderutil" ,xcb-util-renderutil)
 573        ("xcb-util-wm" ,xcb-util-wm)
 574        ("zlib" ,zlib)))
 575     (native-inputs
 576      `(("bison" ,bison)
 577        ("flex" ,flex)
 578        ("gperf" ,gperf)
 579        ("perl" ,perl)
 580        ("pkg-config" ,pkg-config)
 581        ("python" ,python-2)
 582        ("vulkan-headers" ,vulkan-headers)
 583        ("ruby" ,ruby)))
 584     (arguments
 585      `(#:phases
 586        (modify-phases %standard-phases
 587          (add-after 'configure 'patch-bin-sh
 588            (lambda _
 589              (substitute* '("config.status"
 590                             "configure"
 591                             "mkspecs/features/qt_functions.prf"
 592                             "qmake/library/qmakebuiltins.cpp")
 593                           (("/bin/sh") (which "sh")))
 594              #t))
 595          (replace 'configure
 596            (lambda* (#:key outputs #:allow-other-keys)
 597              (let ((out (assoc-ref outputs "out")))
 598                (substitute* "configure"
 599                  (("/bin/pwd") (which "pwd")))
 600                (substitute* "src/corelib/global/global.pri"
 601                  (("/bin/ls") (which "ls")))
 602                ;; The configuration files for other Qt5 packages are searched
 603                ;; through a call to "find_package" in Qt5Config.cmake, which
 604                ;; disables the use of CMAKE_PREFIX_PATH via the parameter
 605                ;; "NO_DEFAULT_PATH". Re-enable it so that the different
 606                ;; components can be installed in different places.
 607                (substitute* (find-files "." ".*\\.cmake")
 608                  (("NO_DEFAULT_PATH") ""))
 609                ;; do not pass "--enable-fast-install", which makes the
 610                ;; configure process fail
 611                (invoke
 612                  "./configure"
 613                  "-verbose"
 614                  "-prefix" out
 615                  "-docdir" (string-append out "/share/doc/qt5")
 616                  "-headerdir" (string-append out "/include/qt5")
 617                  "-archdatadir" (string-append out "/lib/qt5")
 618                  "-datadir" (string-append out "/share/qt5")
 619                  "-examplesdir" (string-append
 620                                   out "/share/doc/qt5/examples")
 621                  "-opensource"
 622                  "-confirm-license"
 623
 624                  ;; These features require higher versions of Linux than the
 625                  ;; minimum version of the glibc.  See
 626                  ;; src/corelib/global/minimum-linux_p.h.  By disabling these
 627                  ;; features Qt5 applications can be used on the oldest
 628                  ;; kernels that the glibc supports, including the RHEL6
 629                  ;; (2.6.32) and RHEL7 (3.10) kernels.
 630                  "-no-feature-getentropy"  ; requires Linux 3.17
 631
 632                  ;; Do not build examples; if desired, these could go
 633                  ;; into a separate output, but for the time being, we
 634                  ;; prefer to save the space and build time.
 635                  "-no-compile-examples"
 636                  ;; Most "-system-..." are automatic, but some use
 637                  ;; the bundled copy by default.
 638                  "-system-sqlite"
 639                  "-system-harfbuzz"
 640                  "-system-pcre"
 641                  ;; explicitly link with openssl instead of dlopening it
 642                  "-openssl-linked"
 643                  ;; explicitly link with dbus instead of dlopening it
 644                  "-dbus-linked"
 645                  ;; don't use the precompiled headers
 646                  "-no-pch"
 647                  ;; drop special machine instructions that do not have
 648                  ;; runtime detection
 649                  ,@(if (string-prefix? "x86_64"
 650                                        (or (%current-target-system)
 651                                            (%current-system)))
 652                      '()
 653                      '("-no-sse2"))
 654                  "-no-mips_dsp"
 655                  "-no-mips_dspr2"))))
 656          (add-after 'install 'patch-mkspecs
 657            (lambda* (#:key outputs #:allow-other-keys)
 658              (let* ((out (assoc-ref outputs "out"))
 659                     (archdata (string-append out "/lib/qt5"))
 660                     (mkspecs (string-append archdata "/mkspecs"))
 661                     (qt_config.prf (string-append
 662                                     mkspecs "/features/qt_config.prf")))
 663                ;; For each Qt module, let `qmake' uses search paths in the
 664                ;; module directory instead of all in QT_INSTALL_PREFIX.
 665                (substitute* qt_config.prf
 666                  (("\\$\\$\\[QT_INSTALL_HEADERS\\]")
 667                   "$$clean_path($$replace(dir, mkspecs/modules, ../../include/qt5))")
 668                  (("\\$\\$\\[QT_INSTALL_LIBS\\]")
 669                   "$$clean_path($$replace(dir, mkspecs/modules, ../../lib))")
 670                  (("\\$\\$\\[QT_HOST_LIBS\\]")
 671                   "$$clean_path($$replace(dir, mkspecs/modules, ../../lib))")
 672                  (("\\$\\$\\[QT_INSTALL_BINS\\]")
 673                   "$$clean_path($$replace(dir, mkspecs/modules, ../../bin))"))
 674
 675                ;; Searches Qt tools in the current PATH instead of QT_HOST_BINS.
 676                (substitute* (string-append mkspecs "/features/qt_functions.prf")
 677                  (("cmd = \\$\\$\\[QT_HOST_BINS\\]/\\$\\$2")
 678                   "cmd = $$system(which $${2}.pl 2>/dev/null || which $${2})"))
 679
 680                ;; Resolve qmake spec files within qtbase by absolute paths.
 681                (substitute*
 682                    (map (lambda (file)
 683                           (string-append mkspecs "/features/" file))
 684                         '("device_config.prf" "moc.prf" "qt_build_config.prf"
 685                           "qt_config.prf" "winrt/package_manifest.prf"))
 686                  (("\\$\\$\\[QT_HOST_DATA/get\\]") archdata)
 687                  (("\\$\\$\\[QT_HOST_DATA/src\\]") archdata))
 688                #t)))
 689          (add-after 'unpack 'patch-paths
 690            ;; Use the absolute paths for dynamically loaded libs, otherwise
 691            ;; the lib will be searched in LD_LIBRARY_PATH which typically is
 692            ;; not set in guix.
 693            (lambda* (#:key inputs #:allow-other-keys)
 694              ;; libresolve
 695              (let ((glibc (assoc-ref inputs ,(if (%current-target-system)
 696                                                  "cross-libc" "libc"))))
 697                (substitute* '("src/network/kernel/qdnslookup_unix.cpp"
 698                               "src/network/kernel/qhostinfo_unix.cpp")
 699                  (("^\\s*(lib.setFileName\\(QLatin1String\\(\")(resolv\"\\)\\);)" _ a b)
 700                 (string-append a glibc "/lib/lib" b))))
 701              ;; X11/locale (compose path)
 702              (substitute* "src/plugins/platforminputcontexts/compose/generator/qtablegenerator.cpp"
 703                ;; Don't search in /usr/…/X11/locale, …
 704                (("^\\s*m_possibleLocations.append\\(QStringLiteral\\(\"/usr/.*/X11/locale\"\\)\\);" line)
 705                 (string-append "// " line))
 706                ;; … but use libx11's path
 707                (("^\\s*(m_possibleLocations.append\\(QStringLiteral\\()X11_PREFIX \"(/.*/X11/locale\"\\)\\);)" _ a b)
 708                 (string-append a "\"" (assoc-ref inputs "libx11") b)))
 709              ;; libGL
 710              (substitute* "src/plugins/platforms/xcb/gl_integrations/xcb_glx/qglxintegration.cpp"
 711                (("^\\s*(QLibrary lib\\(QLatin1String\\(\")(GL\"\\)\\);)" _ a b)
 712                 (string-append a (assoc-ref inputs "mesa") "/lib/lib" b)))
 713              ;; libXcursor
 714              (substitute* "src/plugins/platforms/xcb/qxcbcursor.cpp"
 715                (("^\\s*(QLibrary xcursorLib\\(QLatin1String\\(\")(Xcursor\"\\), 1\\);)" _ a b)
 716                 (string-append a (assoc-ref inputs "libxcursor") "/lib/lib" b))
 717                (("^\\s*(xcursorLib.setFileName\\(QLatin1String\\(\")(Xcursor\"\\)\\);)" _ a b)
 718                 (string-append a (assoc-ref inputs "libxcursor") "/lib/lib" b)))
 719              #t)))))
 720     (native-search-paths
 721      (list (search-path-specification
 722             (variable "QMAKEPATH")
 723             (files '("lib/qt5")))
 724            (search-path-specification
 725             (variable "QML2_IMPORT_PATH")
 726             (files '("lib/qt5/qml")))
 727            (search-path-specification
 728             (variable "QT_PLUGIN_PATH")
 729             (files '("lib/qt5/plugins")))
 730            (search-path-specification
 731             (variable "XDG_DATA_DIRS")
 732             (files '("share")))
 733            (search-path-specification
 734             (variable "XDG_CONFIG_DIRS")
 735             (files '("etc/xdg")))))
 736     (home-page "https://www.qt.io/")
 737     (synopsis "Cross-platform GUI library")
 738     (description "Qt is a cross-platform application and UI framework for
 739 developers using C++ or QML, a CSS & JavaScript like language.")
 740     (license (list license:lgpl2.1 license:lgpl3))))
 741
 742 (define-public qtsvg
 743   (package (inherit qtbase)
 744     (name "qtsvg")
 745     (version "5.11.2")
 746     (source (origin
 747              (method url-fetch)
 748              (uri (string-append "https://download.qt.io/official_releases/qt/"
 749                                  (version-major+minor version) "/" version
 750                                  "/submodules/" name "-everywhere-src-"
 751                                  version ".tar.xz"))
 752              (sha256
 753               (base32
 754                "0rni3cdcli91v7k8ra9s9phpznvkza8qqvcrv9yyfrmlapwbn5mw"))))
 755     (propagated-inputs `())
 756     (native-inputs `(("perl" ,perl)))
 757     (inputs
 758      `(("mesa" ,mesa)
 759        ("qtbase" ,qtbase)
 760        ("zlib" ,zlib)))
 761     (arguments
 762      `(#:phases
 763        (modify-phases %standard-phases
 764          (add-before 'configure 'configure-qmake
 765            (lambda* (#:key inputs outputs #:allow-other-keys)
 766              (let* ((out (assoc-ref outputs "out"))
 767                     (qtbase (assoc-ref inputs "qtbase"))
 768                     (tmpdir (string-append (getenv "TMPDIR")))
 769                     (qmake (string-append tmpdir "/qmake"))
 770                     (qt.conf (string-append tmpdir "/qt.conf")))
 771                ;; Use qmake with a customized qt.conf to override install
 772                ;; paths to $out.
 773                (symlink (which "qmake") qmake)
 774                (setenv "PATH" (string-append tmpdir ":" (getenv "PATH")))
 775                (with-output-to-file qt.conf
 776                  (lambda ()
 777                    (format #t "[Paths]
 778 Prefix=~a
 779 ArchData=lib/qt5
 780 Data=share/qt5
 781 Documentation=share/doc/qt5
 782 Headers=include/qt5
 783 Libraries=lib
 784 LibraryExecutables=lib/qt5/libexec
 785 Binaries=bin
 786 Tests=tests
 787 Plugins=lib/qt5/plugins
 788 Imports=lib/qt5/imports
 789 Qml2Imports=lib/qt5/qml
 790 Translations=share/qt5/translations
 791 Settings=etc/xdg
 792 Examples=share/doc/qt5/examples
 793 HostPrefix=~a
 794 HostData=lib/qt5
 795 HostBinaries=bin
 796 HostLibraries=lib
 797
 798 [EffectiveSourcePaths]
 799 HostPrefix=~a
 800 HostData=lib/qt5
 801 " out out qtbase)))
 802                #t)))
 803          (replace 'configure
 804            (lambda* (#:key inputs outputs #:allow-other-keys)
 805              ;; Valid QT_BUILD_PARTS variables are:
 806              ;; libs tools tests examples demos docs translations
 807              (invoke "qmake" "QT_BUILD_PARTS = libs tools tests")))
 808          (add-before 'check 'set-display
 809            (lambda _
 810              ;; make Qt render "offscreen", required for tests
 811              (setenv "QT_QPA_PLATFORM" "offscreen")
 812              #t)))))
 813     (synopsis "Qt module for displaying SVGs")
 814     (description "The QtSvg module provides classes for displaying the
 815  contents of SVG files.")))
 816
 817 (define-public qtimageformats
 818   (package (inherit qtsvg)
 819     (name "qtimageformats")
 820     (version "5.11.2")
 821     (source (origin
 822              (method url-fetch)
 823              (uri (string-append "https://download.qt.io/official_releases/qt/"
 824                                  (version-major+minor version) "/" version
 825                                  "/submodules/" name "-everywhere-src-"
 826                                  version ".tar.xz"))
 827              (sha256
 828               (base32
 829                "0s1s33k0wrnf9fi1wlm1kaq9hs1fx89597nhk53vzdfha42x3r97"))
 830              (modules '((guix build utils)))
 831              (snippet
 832               '(begin
 833                  (delete-file-recursively "src/3rdparty")
 834                  #t))))
 835     (native-inputs `())
 836     (inputs
 837      `(("jasper" ,jasper)
 838        ("libmng" ,libmng)
 839        ("libtiff" ,libtiff)
 840        ("libwebp" ,libwebp)
 841        ("mesa" ,mesa)
 842        ("qtbase" ,qtbase)
 843        ("zlib" ,zlib)))
 844     (synopsis "Additional Image Format plugins for Qt")
 845     (description "The QtImageFormats module contains plugins for adding
 846 support for MNG, TGA, TIFF and WBMP image formats.")))
 847
 848 (define-public qtx11extras
 849   (package (inherit qtsvg)
 850     (name "qtx11extras")
 851     (version "5.11.2")
 852     (source (origin
 853              (method url-fetch)
 854              (uri (string-append "https://download.qt.io/official_releases/qt/"
 855                                  (version-major+minor version) "/" version
 856                                  "/submodules/" name "-everywhere-src-"
 857                                  version ".tar.xz"))
 858              (sha256
 859               (base32
 860                "12cha7pd3cjx7zr0l7rbi1j2pfwmfpdwc7w3dsqbyi1d0mhwl1zl"))))
 861     (arguments
 862      (substitute-keyword-arguments (package-arguments qtsvg)
 863        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
 864     (native-inputs `(("perl" ,perl)))
 865     (inputs
 866      `(("mesa" ,mesa)
 867        ("qtbase" ,qtbase)))
 868     (synopsis "Qt Extras for X11")
 869     (description "The QtX11Extras module includes the library to access X11
 870 from within Qt 5.")))
 871
 872 (define-public qtxmlpatterns
 873   (package (inherit qtsvg)
 874     (name "qtxmlpatterns")
 875     (version "5.11.2")
 876     (source (origin
 877              (method url-fetch)
 878              (uri (string-append "https://download.qt.io/official_releases/qt/"
 879                                  (version-major+minor version) "/" version
 880                                  "/submodules/" name "-everywhere-src-"
 881                                  version ".tar.xz"))
 882              (sha256
 883               (base32
 884                "0ik7m1a0shjsyzs8n9hfx8m9hy1p3wg505slcs0xznj0pa0gdmaz"))))
 885     (arguments
 886      (substitute-keyword-arguments (package-arguments qtsvg)
 887        ((#:phases phases)
 888         `(modify-phases ,phases
 889            (add-after 'unpack 'disable-network-tests
 890              (lambda _ (substitute* "tests/auto/auto.pro"
 891                          (("qxmlquery") "# qxmlquery")
 892                          (("xmlpatterns ") "# xmlpatterns"))
 893                #t))))))
 894     (native-inputs `(("perl" ,perl)))
 895     (inputs `(("qtbase" ,qtbase)))
 896     (synopsis "Qt XML patterns module")
 897     (description "The QtXmlPatterns module is a XQuery and XPath engine for
 898 XML and custom data models.  It contains programs such as xmlpatterns and
 899 xmlpatternsvalidator.")))
 900
 901 (define-public qtdeclarative
 902   (package (inherit qtsvg)
 903     (name "qtdeclarative")
 904     (version "5.11.2")
 905     (source (origin
 906              (method url-fetch)
 907              (uri (string-append "https://download.qt.io/official_releases/qt/"
 908                                  (version-major+minor version) "/" version
 909                                  "/submodules/" name "-everywhere-src-"
 910                                  version ".tar.xz"))
 911              (sha256
 912               (base32
 913                "1kgj6q53rk573yi47j32mn1mfk5ag98zvhv9qgrlb78y0gw8c392"))))
 914     (arguments
 915      (substitute-keyword-arguments (package-arguments qtsvg)
 916        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
 917     (native-inputs
 918      `(("perl" ,perl)
 919        ("pkg-config" ,pkg-config)
 920        ("python" ,python-2)
 921        ("qtsvg" ,qtsvg)
 922        ("qtxmlpatterns" ,qtxmlpatterns)))
 923     (inputs
 924      `(("mesa" ,mesa)
 925        ("qtbase" ,qtbase)))
 926     (synopsis "Qt QML module (Quick 2)")
 927     (description "The Qt QML module provides a framework for developing
 928 applications and libraries with the QML language.  It defines and implements the
 929 language and engine infrastructure, and provides an API to enable application
 930 developers to extend the QML language with custom types and integrate QML code
 931 with JavaScript and C++.")))
 932
 933 (define-public qtconnectivity
 934   (package (inherit qtsvg)
 935     (name "qtconnectivity")
 936     (version "5.11.2")
 937     (source (origin
 938              (method url-fetch)
 939              (uri (string-append "https://download.qt.io/official_releases/qt/"
 940                                  (version-major+minor version) "/" version
 941                                  "/submodules/" name "-everywhere-src-"
 942                                  version ".tar.xz"))
 943              (sha256
 944               (base32
 945                "1ia21llw610wd7licdm81p8zpkrkvkc5yc7y4wplgg6k2jyip42q"))))
 946     (native-inputs
 947      `(("perl" ,perl)
 948        ("pkg-config" ,pkg-config)
 949        ("qtdeclarative" ,qtdeclarative)))
 950     (inputs
 951      `(("bluez" ,bluez)
 952        ("qtbase" ,qtbase)))
 953     (synopsis "Qt Connectivity module")
 954     (description "The Qt Connectivity modules provides modules for interacting
 955 with Bluetooth and NFC.")))
 956
 957 (define-public qtwebsockets
 958   (package (inherit qtsvg)
 959     (name "qtwebsockets")
 960     (version "5.11.2")
 961     (source (origin
 962              (method url-fetch)
 963              (uri (string-append "https://download.qt.io/official_releases/qt/"
 964                                  (version-major+minor version) "/" version
 965                                  "/submodules/" name "-everywhere-src-"
 966                                  version ".tar.xz"))
 967              (sha256
 968               (base32
 969                "13cbr2pffv1hwvm8d8kzask0pyc2j3brgq23vi5i1i70kihrfqdf"))))
 970     (arguments
 971      (substitute-keyword-arguments (package-arguments qtsvg)
 972        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
 973     (native-inputs
 974      `(("perl" ,perl)
 975        ("qtdeclarative" ,qtdeclarative)))
 976     (inputs `(("qtbase" ,qtbase)))
 977     (synopsis "Qt Web Sockets module")
 978     (description "WebSocket is a web-based protocol designed to enable two-way
 979 communication between a client application and a remote host.  The Qt
 980 WebSockets module provides C++ and QML interfaces that enable Qt applications
 981 to act as a server that can process WebSocket requests, or a client that can
 982 consume data received from the server, or both.")))
 983
 984 (define-public qtsensors
 985   (package (inherit qtsvg)
 986     (name "qtsensors")
 987     (version "5.11.2")
 988     (source (origin
 989              (method url-fetch)
 990              (uri (string-append "https://download.qt.io/official_releases/qt/"
 991                                  (version-major+minor version) "/" version
 992                                  "/submodules/" name "-everywhere-src-"
 993                                  version ".tar.xz"))
 994              (sha256
 995               (base32
 996                "1iv3gmk121myqdr64d9lf2m816ypxrb526gn0ssxx8gp4j4c69qf"))))
 997     (arguments
 998      (substitute-keyword-arguments (package-arguments qtsvg)
 999        ((#:parallel-tests? _ #f) #f) ; can lead to race condition
1000        ((#:phases phases)
1001         `(modify-phases ,phases
1002            (add-after 'unpack 'fix-tests
1003              (lambda _
1004                (substitute* "tests/auto/qsensorgestures_gestures/tst_sensorgestures_gestures.cpp"
1005                  (("2000") "5000")      ;lengthen test timeout
1006                  (("QTest::newRow(\"twist\") << \"twist\"") "")) ;failing test
1007                #t))))))
1008     (native-inputs
1009      `(("perl" ,perl)
1010        ("qtdeclarative" ,qtdeclarative)))
1011     (inputs `(("qtbase" ,qtbase)))
1012     (synopsis "Qt Sensors module")
1013     (description "The Qt Sensors API provides access to sensor hardware via QML
1014 and C++ interfaces.  The Qt Sensors API also provides a motion gesture
1015 recognition API for devices.")))
1016
1017 (define-public qtmultimedia
1018   (package (inherit qtsvg)
1019     (name "qtmultimedia")
1020     (version "5.11.2")
1021     (source (origin
1022              (method url-fetch)
1023              (uri (string-append "https://download.qt.io/official_releases/qt/"
1024                                  (version-major+minor version) "/" version
1025                                  "/submodules/" name "-everywhere-src-"
1026                                  version ".tar.xz"))
1027              (sha256
1028               (base32
1029                "0vbjrxsdahgbgpc2zcvgg3mpijzd5kknz5clfcw2cq3310yqyq15"))
1030              (modules '((guix build utils)))
1031              (snippet
1032               '(begin
1033                  (delete-file-recursively
1034                    "examples/multimedia/spectrum/3rdparty")
1035                  ;; We also prevent the spectrum example from being built.
1036                  (substitute* "examples/multimedia/multimedia.pro"
1037                    (("spectrum") "#"))
1038                  #t))))
1039     (arguments
1040      (substitute-keyword-arguments (package-arguments qtsvg)
1041        ((#:phases phases)
1042         `(modify-phases ,phases
1043            (replace 'configure
1044              (lambda* (#:key outputs #:allow-other-keys)
1045                (let ((out (assoc-ref outputs "out")))
1046                  (invoke "qmake" "QT_BUILD_PARTS = libs tools tests"
1047                          (string-append "QMAKE_LFLAGS_RPATH=-Wl,-rpath," out "/lib -Wl,-rpath,")
1048                          (string-append "PREFIX=" out)))))))
1049        ((#:tests? _ #f) #f)))           ; TODO: Enable the tests
1050     (native-inputs
1051      `(("perl" ,perl)
1052        ("pkg-config" ,pkg-config)
1053        ("python" ,python-2)
1054        ("qtdeclarative" ,qtdeclarative)))
1055     (inputs
1056      `(("alsa-lib" ,alsa-lib)
1057        ("mesa" ,mesa)
1058        ("pulseaudio" ,pulseaudio)
1059        ("qtbase" ,qtbase)
1060        ;; Gstreamer is needed for the mediaplayer plugin
1061        ("gstreamer" ,gstreamer)
1062        ("gst-plugins-base" ,gst-plugins-base)))
1063     (synopsis "Qt Multimedia module")
1064     (description "The Qt Multimedia module provides set of APIs to play and
1065 record media, and manage a collection of media content.  It also contains a
1066 set of plugins for interacting with pulseaudio and GStreamer.")))
1067
1068 (define-public qtwayland
1069   (package (inherit qtsvg)
1070     (name "qtwayland")
1071     (version "5.11.2")
1072     (source (origin
1073              (method url-fetch)
1074              (uri (string-append "https://download.qt.io/official_releases/qt/"
1075                                  (version-major+minor version) "/" version
1076                                  "/submodules/" name "-everywhere-src-"
1077                                  version ".tar.xz"))
1078              (sha256
1079               (base32
1080                "0wdpxjr3zfmgcfg14zlwd8mjbc191pvlchj1xxd0lj30ldfy2daf"))
1081              (modules '((guix build utils)))
1082              (snippet
1083                ;; The examples try to build and cause the build to fail
1084               '(begin
1085                  (delete-file-recursively "examples")
1086                  #t))))
1087     (arguments
1088      (substitute-keyword-arguments (package-arguments qtsvg)
1089        ((#:phases phases)
1090         `(modify-phases ,phases
1091            (add-before 'check 'set-ld-library-path
1092              ;; <https://lists.gnu.org/archive/html/guix-devel/2017-09/msg00019.html>
1093              ;;
1094              ;; Make the uninstalled libQt5WaylandClient.so.5 available to the
1095              ;; wayland platform plugin.
1096              (lambda _
1097                (setenv "LD_LIBRARY_PATH" (string-append (getcwd) "/lib"))
1098                #t))))))
1099     (native-inputs
1100      `(("glib" ,glib)
1101        ("perl" ,perl)
1102        ("pkg-config" ,pkg-config)
1103        ("qtdeclarative" ,qtdeclarative)))
1104     (inputs
1105      `(("fontconfig" ,fontconfig)
1106        ("freetype" ,freetype)
1107        ("libx11" ,libx11)
1108        ("libxcomposite" ,libxcomposite)
1109        ("libxext" ,libxext)
1110        ("libxkbcommon" ,libxkbcommon)
1111        ("libxrender" ,libxrender)
1112        ("mesa" ,mesa)
1113        ("mtdev" ,mtdev)
1114        ("qtbase" ,qtbase)
1115        ("wayland" ,wayland)))
1116     (synopsis "Qt Wayland module")
1117     (description "The Qt Wayland module provides the QtWayland client and
1118 compositor libraries.")))
1119
1120 (define-public qtserialport
1121   (package (inherit qtsvg)
1122     (name "qtserialport")
1123     (version "5.11.2")
1124     (source (origin
1125              (method url-fetch)
1126              (uri (string-append "https://download.qt.io/official_releases/qt/"
1127                                  (version-major+minor version) "/" version
1128                                  "/submodules/" name "-everywhere-src-"
1129                                  version ".tar.xz"))
1130              (sha256
1131               (base32
1132                "0vkgvicm67vds2iqmhnjsqwnx1f8zhbzc31w6q198i0x8b76j6xh"))))
1133     (native-inputs `(("perl" ,perl)))
1134     (inputs
1135      `(("qtbase" ,qtbase)
1136        ("eudev" ,eudev)))
1137     (arguments
1138      (substitute-keyword-arguments (package-arguments qtsvg)
1139        ((#:phases phases)
1140         `(modify-phases ,phases
1141            (add-after 'unpack 'patch-dlopen-paths
1142            (lambda* (#:key inputs #:allow-other-keys)
1143              (substitute* "src/serialport/qtudev_p.h"
1144                ;; Use the absolute paths for dynamically loaded libs,
1145                ;; otherwise the lib will be searched in LD_LIBRARY_PATH which
1146                ;; typically is not set in guix.
1147                (("^\\s*(udevLibrary->setFileNameAndVersion\\(QStringLiteral\\(\")(udev\"\\),\\s*[0-9]+\\);)" _ a b)
1148                 (string-append a (assoc-ref inputs "eudev") "/lib/lib" b)))
1149              #t))))))
1150     (synopsis "Qt Serial Port module")
1151     (description "The Qt Serial Port module provides the library for
1152 interacting with serial ports from within Qt.")))
1153
1154 (define-public qtserialbus
1155   (package (inherit qtsvg)
1156     (name "qtserialbus")
1157     (version "5.11.2")
1158     (source (origin
1159              (method url-fetch)
1160              (uri (string-append "https://download.qt.io/official_releases/qt/"
1161                                  (version-major+minor version) "/" version
1162                                  "/submodules/" name "-everywhere-src-"
1163                                  version ".tar.xz"))
1164              (sha256
1165               (base32
1166                "07k4g5qfh657das2f5i6ph0hl4bva13yzlmxnay7qpzqcb0w4x0p"))))
1167     (inputs
1168      `(("qtbase" ,qtbase)
1169        ("qtserialport" ,qtserialport)))
1170     (synopsis "Qt Serial Bus module")
1171     (description "The Qt Serial Bus API provides classes and functions to
1172 access the various industrial serial buses and protocols, such as CAN, ModBus,
1173 and others.")))
1174
1175 (define-public qtwebchannel
1176   (package (inherit qtsvg)
1177     (name "qtwebchannel")
1178     (version "5.11.2")
1179     (source (origin
1180              (method url-fetch)
1181              (uri (string-append "https://download.qt.io/official_releases/qt/"
1182                                  (version-major+minor version) "/" version
1183                                  "/submodules/" name "-everywhere-src-"
1184                                  version ".tar.xz"))
1185              (sha256
1186               (base32
1187                "1z02dhrd1h2rpdhww9py9dnhss80xwf45n568y7gr3gay7ldlpwl"))))
1188     (native-inputs
1189      `(("perl" ,perl)
1190        ("qtdeclarative" ,qtdeclarative)
1191        ("qtwebsockets" ,qtwebsockets)))
1192     (inputs `(("qtbase" ,qtbase)))
1193     (synopsis "Web communication library for Qt")
1194     (description "The Qt WebChannel module enables peer-to-peer communication
1195 between the host (QML/C++ application) and the client (HTML/JavaScript
1196 application).  The transport mechanism is supported out of the box by the two
1197 popular web engines, Qt WebKit 2 and Qt WebEngine.")))
1198
1199 (define-public qtwebglplugin
1200   (package (inherit qtsvg)
1201     (name "qtwebglplugin")
1202     (version "5.11.2")
1203     (source (origin
1204              (method url-fetch)
1205              (uri (string-append "https://download.qt.io/official_releases/qt/"
1206                                  (version-major+minor version) "/" version
1207                                  "/submodules/" name "-everywhere-src-"
1208                                  version ".tar.xz"))
1209              (sha256
1210               (base32
1211                "0vazz9yr1qgpcq7p77vg9mrjxy6hjabvwj9irw5l5w7fmsk2ns0n"))))
1212     (arguments
1213      (substitute-keyword-arguments (package-arguments qtsvg)
1214        ((#:phases phases)
1215         `(modify-phases ,phases
1216            (add-after 'unpack 'disable-network-tests
1217              (lambda _ (substitute* "tests/plugins/platforms/platforms.pro"
1218                          (("webgl") "# webgl"))
1219                #t))))))
1220     (native-inputs '())
1221     (inputs
1222      `(("mesa" ,mesa)
1223        ("qtbase" ,qtbase)
1224        ("qtdeclarative" ,qtdeclarative)
1225        ("qtwebsockets" ,qtwebsockets)))
1226     (synopsis "QPA plugin for running an application via a browser using
1227 streamed WebGL commands")
1228     (description "Qt back end that uses WebGL for rendering. It allows Qt
1229 applications (with some limitations) to run in a web browser that supports
1230 WebGL.  WebGL is a JavaScript API for rendering 2D and 3D graphics within any
1231 compatible web browser without the use of plug-ins.  The API is similar to
1232 OpenGL ES 2.0 and can be used in HTML5 canvas elements")))
1233
1234 (define-public qtwebview
1235   (package (inherit qtsvg)
1236     (name "qtwebview")
1237     (version "5.11.2")
1238     (source (origin
1239              (method url-fetch)
1240              (uri (string-append "https://download.qt.io/official_releases/qt/"
1241                                  (version-major+minor version) "/" version
1242                                  "/submodules/" name "-everywhere-src-"
1243                                  version ".tar.xz"))
1244              (sha256
1245               (base32
1246                "1r30n9vjcgh2cd2iycfwwwpmbz7grrd3iqrc0afwnri3vylnfqil"))))
1247     (native-inputs
1248      `(("perl" ,perl)))
1249     (inputs
1250      `(("qtbase" ,qtbase)
1251        ("qtdeclarative" ,qtdeclarative)))
1252     (synopsis "Display web content in a QML application")
1253     (description "Qt WebView provides a way to display web content in a QML
1254 application without necessarily including a full web browser stack by using
1255 native APIs where it makes sense.")))
1256
1257 (define-public qtlocation
1258   (package (inherit qtsvg)
1259     (name "qtlocation")
1260     (version "5.11.2")
1261     (source (origin
1262              (method url-fetch)
1263              (uri (string-append "https://download.qt.io/official_releases/qt/"
1264                                  (version-major+minor version) "/" version
1265                                  "/submodules/" name "-everywhere-src-"
1266                                  version ".tar.xz"))
1267              (sha256
1268               (base32
1269                "0kh2c2ahg8xkpvqsva13i35ndsc0x0ypnmd6vix5pm5jvwg9366n"))))
1270     (arguments
1271      (substitute-keyword-arguments (package-arguments qtsvg)
1272        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1273     (native-inputs
1274      `(("perl" ,perl)
1275        ("qtdeclarative" ,qtdeclarative)
1276        ("qtquickcontrols" ,qtquickcontrols)
1277        ("qtserialport" ,qtserialport)))
1278     (inputs
1279      `(("icu4c" ,icu4c)
1280        ("openssl" ,openssl)
1281        ("qtbase" ,qtbase)
1282        ("zlib" ,zlib)))
1283     (synopsis "Qt Location and Positioning modules")
1284     (description "The Qt Location module provides an interface for location,
1285 positioning and geolocation plugins.")))
1286
1287 (define-public qttools
1288   (package (inherit qtsvg)
1289     (name "qttools")
1290     (version "5.11.2")
1291     (source (origin
1292              (method url-fetch)
1293              (uri (string-append "https://download.qt.io/official_releases/qt/"
1294                                  (version-major+minor version) "/" version
1295                                  "/submodules/" name "-everywhere-src-"
1296                                  version ".tar.xz"))
1297              (sha256
1298               (base32
1299                "1f1iqvksrlgkxdbagb6vvjib3argbv9l7iis6ymb8n0rfwn37s7h"))))
1300     (arguments
1301      (substitute-keyword-arguments (package-arguments qtsvg)
1302        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1303     (native-inputs
1304      `(("perl" ,perl)
1305        ("qtdeclarative" ,qtdeclarative)
1306        ("vulkan-headers" ,vulkan-headers)))
1307     (inputs
1308      `(("mesa" ,mesa)
1309        ("qtbase" ,qtbase)))
1310     (synopsis "Qt Tools and Designer modules")
1311     (description "The Qt Tools module provides a set of applications to browse
1312 the documentation, translate applications, generate help files and other stuff
1313 that helps in Qt development.")))
1314
1315 (define-public qtscript
1316   (package (inherit qtsvg)
1317     (name "qtscript")
1318     (version "5.11.2")
1319     (source (origin
1320              (method url-fetch)
1321              (uri (string-append "https://download.qt.io/official_releases/qt/"
1322                                  (version-major+minor version) "/" version
1323                                  "/submodules/" name "-everywhere-src-"
1324                                  version ".tar.xz"))
1325              (sha256
1326               (base32
1327                "0xprhd1brn30dqf5vy4inqgzpq48i8nlc428x9rr8fk5hdm4dhmj"))
1328              (patches (search-patches "qtscript-disable-tests.patch"))))
1329     (native-inputs
1330      `(("perl" ,perl)
1331        ("qttools" ,qttools)))
1332     (inputs
1333      `(("qtbase" ,qtbase)))
1334     (synopsis "Qt Script module")
1335     (description "Qt provides support for application scripting with ECMAScript.
1336 The following guides and references cover aspects of programming with
1337 ECMAScript and Qt.")))
1338
1339 (define-public qtquickcontrols
1340   (package (inherit qtsvg)
1341     (name "qtquickcontrols")
1342     (version "5.11.2")
1343     (source (origin
1344              (method url-fetch)
1345              (uri (string-append "https://download.qt.io/official_releases/qt/"
1346                                  (version-major+minor version) "/" version
1347                                  "/submodules/" name "-everywhere-src-"
1348                                  version ".tar.xz"))
1349              (sha256
1350               (base32
1351                "1q11nr85436xzrf4mbrbav306hrz0s2qaclqhhb0g88vzcq2wxww"))))
1352     (arguments
1353      (substitute-keyword-arguments (package-arguments qtsvg)
1354        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1355     (inputs
1356      `(("qtbase" ,qtbase)
1357        ("qtdeclarative" ,qtdeclarative)))
1358     (synopsis "Qt Quick Controls and other Quick modules")
1359     (description "The QtScript module provides classes for making Qt
1360 applications scriptable.  This module provides a set of extra components that
1361 can be used to build complete interfaces in Qt Quick.")))
1362
1363 (define-public qtquickcontrols2
1364   (package (inherit qtsvg)
1365     (name "qtquickcontrols2")
1366     (version "5.11.2")
1367     (source (origin
1368              (method url-fetch)
1369              (uri (string-append "https://download.qt.io/official_releases/qt/"
1370                                  (version-major+minor version) "/" version
1371                                  "/submodules/" name "-everywhere-src-"
1372                                  version ".tar.xz"))
1373              (sha256
1374               (base32
1375                "116b5nhmsx898626s37r446yci7kxd3k7xap1dh9spqklkwlj1da"))))
1376     (arguments
1377      (substitute-keyword-arguments (package-arguments qtsvg)
1378        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1379     (inputs
1380      `(("qtbase" ,qtbase)
1381        ("qtdeclarative" ,qtdeclarative)))
1382     (synopsis "Qt Quick Controls 2 and other Quick 2 modules")
1383     (description "The Qt Quick Controls 2 module contains the Qt Labs Platform
1384 module that provides platform integration: native dialogs, menus and menu bars,
1385 and tray icons.  It falls back to Qt Widgets when a native implementation is
1386 not available.")))
1387
1388 (define-public qtgraphicaleffects
1389   (package (inherit qtsvg)
1390     (name "qtgraphicaleffects")
1391     (version "5.11.2")
1392     (source (origin
1393              (method url-fetch)
1394              (uri (string-append "https://download.qt.io/official_releases/qt/"
1395                                  (version-major+minor version) "/" version
1396                                  "/submodules/" name "-everywhere-src-"
1397                                  version ".tar.xz"))
1398              (sha256
1399               (base32
1400                "1zd9wjh2hhd6lby0z3ak0ff6zkbv73hh0drrg9qp2yrgjfismp59"))))
1401     (arguments
1402      (substitute-keyword-arguments (package-arguments qtsvg)
1403        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1404     (inputs
1405      `(("qtbase" ,qtbase)
1406        ("qtdeclarative" ,qtdeclarative)))
1407     (synopsis "Qt Graphical Effects module")
1408     (description "The Qt Graphical Effects module provides a set of QML types
1409 for adding visually impressive and configurable effects to user interfaces.
1410 Effects are visual items that can be added to Qt Quick user interface as UI
1411 components.  The API consists of over 20 effects provided as separate QML
1412 types.  The effects cover functional areas such as blending, masking, blurring,
1413 coloring, and many more.")))
1414
1415 (define-public qtdeclarative-render2d
1416   ;; As of Qt-5.8.0 this module has been merged into qtdeclarative
1417   (package (inherit qtsvg)
1418     (name "qtdeclarative-render2d")
1419     (version "5.7.1")
1420     (source (origin
1421              (method url-fetch)
1422              (uri (string-append "https://download.qt.io/official_releases/qt/"
1423                                  (version-major+minor version) "/" version
1424                                  "/submodules/" name "-everywhere-src-"
1425                                  version ".tar.xz"))
1426              (sha256
1427               (base32
1428                "0zwch9vn17f3bpy300jcfxx6cx9qymk5j7khx0x9k1xqid4166c3"))
1429              (modules '((guix build utils)))
1430              (snippet
1431               '(begin
1432                  (delete-file-recursively "tools/opengldummy/3rdparty")
1433                  #t))))
1434     (native-inputs `())
1435     (inputs
1436      `(("qtbase" ,qtbase)
1437        ("qtdeclarative" ,qtdeclarative)))
1438     (synopsis "Qt Declarative Render module")
1439     (description "The Qt Declarative Render 2D module provides a Raster
1440 backend for QtQuick scene graph.")
1441     (properties `((superseded . ,qtdeclarative)))))
1442
1443 (define-public qtgamepad
1444   (package (inherit qtsvg)
1445     (name "qtgamepad")
1446     (version "5.11.2")
1447     (source (origin
1448              (method url-fetch)
1449              (uri (string-append "https://download.qt.io/official_releases/qt/"
1450                                  (version-major+minor version) "/" version
1451                                  "/submodules/" name "-everywhere-src-"
1452                                  version ".tar.xz"))
1453              (sha256
1454               (base32
1455                "076874iyadj7pkprlk24h257nb8i4sni9c6kbixm5zrr2y73fbxf"))))
1456     (native-inputs
1457      `(("perl" ,perl)
1458        ("pkg-config" ,pkg-config)))
1459     (inputs
1460      `(("fontconfig" ,fontconfig)
1461        ("freetype" ,freetype)
1462        ("libxrender" ,libxrender)
1463        ("sdl2" ,sdl2)
1464        ("qtbase" ,qtbase)
1465        ("qtdeclarative" ,qtdeclarative)))
1466     (synopsis "Qt Gamepad module")
1467     (description "The Qt Gamepad module is an add-on library that enables Qt
1468 applications to support the use of gamepad hardware and in some cases remote
1469 control equipment.  The module provides both QML and C++ interfaces.  The
1470 primary target audience are embedded devices with fullscreen user interfaces,
1471 and mobile applications targeting TV-like form factors.")))
1472
1473 (define-public qtscxml
1474   (package (inherit qtsvg)
1475     (name "qtscxml")
1476     (version "5.11.2")
1477     (source (origin
1478              (method url-fetch)
1479              (uri (string-append "https://download.qt.io/official_releases/qt/"
1480                                  (version-major+minor version) "/" version
1481                                  "/submodules/" name "-everywhere-src-"
1482                                  version ".tar.xz"))
1483              (sha256
1484               (base32
1485                "197p5x1dadgjb39pd2vw60r63lvz68i0pm5i8xbyzgzm94hwn9fn"))
1486              (modules '((guix build utils)))
1487              (snippet
1488               '(begin
1489                  (delete-file-recursively "tests/3rdparty")
1490                  ;; the scion test refers to the bundled 3rd party test code.
1491                  (substitute* "tests/auto/auto.pro"
1492                    (("scion") "#"))
1493                  #t))))
1494     (inputs
1495      `(("qtbase" ,qtbase)
1496        ("qtdeclarative" ,qtdeclarative)))
1497     (synopsis "Qt SCXML module")
1498     (description "The Qt SCXML module provides functionality to create state
1499 machines from SCXML files.  This includes both dynamically creating state
1500 machines (loading the SCXML file and instantiating states and transitions) and
1501 generating a C++ file that has a class implementing the state machine.  It
1502 also contains functionality to support data models and executable content.")))
1503
1504 (define-public qtpurchasing
1505   (package (inherit qtsvg)
1506     (name "qtpurchasing")
1507     (version "5.11.2")
1508     (source (origin
1509              (method url-fetch)
1510              (uri (string-append "https://download.qt.io/official_releases/qt/"
1511                                  (version-major+minor version) "/" version
1512                                  "/submodules/" name "-everywhere-src-"
1513                                  version ".tar.xz"))
1514              (sha256
1515               (base32
1516                "1xld1yx085mhnqdipy29g2yy5af67hfm0wy4mvj7pl6y5qj8jw9d"))))
1517     (inputs
1518      `(("qtbase" ,qtbase)
1519        ("qtdeclarative" ,qtdeclarative)))
1520     (synopsis "Qt Purchasing module")
1521     (description "The Qt Purchasing module provides and in-app API for
1522 purchasing goods and services.")))
1523
1524 (define-public qtcanvas3d
1525   (package (inherit qtsvg)
1526     (name "qtcanvas3d")
1527     (version "5.11.2")
1528     (source (origin
1529              (method url-fetch)
1530              (uri (string-append "https://download.qt.io/official_releases/qt/"
1531                                  (version-major+minor version) "/" version
1532                                  "/submodules/" name "-everywhere-src-"
1533                                  version ".tar.xz"))
1534              (sha256
1535               (base32
1536                "0h7arss7wr0jwl87kiwgbf0nlcgpbriyf7cnv9j4h7g8d09a777x"))
1537              (modules '((guix build utils)))
1538              (snippet
1539               '(begin
1540                  (delete-file-recursively "examples/canvas3d/3rdparty")
1541                  #t))))
1542     (arguments
1543      (substitute-keyword-arguments (package-arguments qtsvg)
1544       ;; Building the tests depends on the bundled 3rd party javascript files,
1545       ;; and the test phase fails to import QtCanvas3D, causing the phase to
1546       ;; fail, so we skip building them for now.
1547       ((#:phases phases)
1548        `(modify-phases ,phases
1549          (replace 'configure
1550            (lambda* (#:key outputs #:allow-other-keys)
1551              (let ((out (assoc-ref outputs "out")))
1552                (invoke "qmake" "QT_BUILD_PARTS = libs tools"
1553                        (string-append "PREFIX=" out)))))))
1554        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1555     (native-inputs `())
1556     (inputs
1557      `(("qtbase" ,qtbase)
1558        ("qtdeclarative" ,qtdeclarative)))
1559     (synopsis "Qt Canvas 3D module")
1560     (description "The Qt Canvas 3D module provides a way to make WebGL-like 3D
1561 drawing calls from Qt Quick JavaScript.")))
1562
1563 (define-public qtcharts
1564   (package (inherit qtsvg)
1565     (name "qtcharts")
1566     (version "5.11.2")
1567     (source (origin
1568              (method url-fetch)
1569              (uri (string-append "https://download.qt.io/official_releases/qt/"
1570                                  (version-major+minor version) "/" version
1571                                  "/submodules/" name "-everywhere-src-"
1572                                  version ".tar.xz"))
1573              (sha256
1574               (base32
1575                "0551qfqnsfiy8kb1ng2v0yn7s6ggy7ghcmis983sbzxzjv2i58zn"))))
1576     (arguments
1577      (substitute-keyword-arguments (package-arguments qtsvg)
1578        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1579     (inputs
1580      `(("qtbase" ,qtbase)
1581        ("qtdeclarative" ,qtdeclarative)))
1582     (synopsis "Qt Charts module")
1583     (description "The Qt Charts module provides a set of easy to use chart
1584 components.  It uses the Qt Graphics View Framework, therefore charts can be
1585 easily integrated to modern user interfaces.  Qt Charts can be used as QWidgets,
1586 QGraphicsWidget, or QML types. Users can easily create impressive graphs by
1587 selecting one of the charts themes.")
1588     (license license:gpl3)))
1589
1590 (define-public qtdatavis3d
1591   (package (inherit qtsvg)
1592     (name "qtdatavis3d")
1593     (version "5.11.2")
1594     (source (origin
1595              (method url-fetch)
1596              (uri (string-append "https://download.qt.io/official_releases/qt/"
1597                                  (version-major+minor version) "/" version
1598                                  "/submodules/" name "-everywhere-src-"
1599                                  version ".tar.xz"))
1600              (sha256
1601               (base32
1602                "05pzvrhvxhxjlav4axrhwlnxjzlr7mi8k3f06g59ryrwmb99kd37"))))
1603     (arguments
1604      (substitute-keyword-arguments (package-arguments qtsvg)
1605        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1606     (inputs
1607      `(("qtbase" ,qtbase)
1608        ("qtdeclarative" ,qtdeclarative)))
1609     (synopsis "Qt Data Visualization module")
1610     (description "The Qt Data Visualization module provides a way to visualize
1611 data in 3D as bar, scatter, and surface graphs. It is especially useful for
1612 visualizing depth maps and large quantities of rapidly changing data, such as
1613 data received from multiple sensors. The look and feel of graphs can be
1614 customized by using themes or by adding custom items and labels to them.")
1615     (license license:gpl3)))
1616
1617 (define-public qtnetworkauth
1618   (package (inherit qtsvg)
1619     (name "qtnetworkauth")
1620     (version "5.11.2")
1621     (source (origin
1622              (method url-fetch)
1623              (uri (string-append "https://download.qt.io/official_releases/qt/"
1624                                  (version-major+minor version) "/" version
1625                                  "/submodules/" name "-everywhere-src-"
1626                                  version ".tar.xz"))
1627              (sha256
1628               (base32
1629                "1zmpvkhf2kmnr8vsa6jq675d5cpnmsg3f8yds6g91yq1g3prqdvr"))))
1630     (arguments
1631      (substitute-keyword-arguments (package-arguments qtsvg)
1632        ((#:phases phases)
1633         `(modify-phases ,phases
1634            (add-after 'unpack 'remove-failing-test
1635              (lambda _
1636                ;; These tests can't find their test data.
1637                (substitute* "tests/auto/auto.pro"
1638                  (("oauth1 ") "# oauth1 "))
1639                #t))))))
1640     (inputs
1641      `(("qtbase" ,qtbase)))
1642     (synopsis "Qt Network Authorization module")
1643     (description "The Qt Network Authorization module provides an
1644 implementation of OAuth and OAuth2 authenticathon methods for Qt.")))
1645
1646 (define-public qtremoteobjects
1647   (package (inherit qtsvg)
1648     (name "qtremoteobjects")
1649     (version "5.11.2")
1650     (source (origin
1651              (method url-fetch)
1652              (uri (string-append "https://download.qt.io/official_releases/qt/"
1653                                  (version-major+minor version) "/" version
1654                                  "/submodules/" name "-everywhere-src-"
1655                                  version ".tar.xz"))
1656              (sha256
1657               (base32
1658                "06awsaf15rch1y9p2q9kdlmlaa8g28whbzf04b10zfflyijnvg7j"))))
1659     (arguments
1660      (substitute-keyword-arguments (package-arguments qtsvg)
1661        ((#:phases phases)
1662         `(modify-phases ,phases
1663            (add-after 'unpack 'remove-failing-test
1664              (lambda _
1665                ;; This test can't find its imports.
1666                (substitute* "tests/auto/qml/qml.pro"
1667                  (("integration") "# integration")
1668                  (("usertypes") "# usertypes"))
1669                #t))))))
1670     (inputs
1671      `(("qtbase" ,qtbase)
1672        ("qtdeclarative" ,qtdeclarative)))
1673     (synopsis "Qt Remote Objects module")
1674     (description "The Qt Remote Objects module is an @dfn{inter-process
1675 communication} (IPC) module developed for Qt.  The idea is to extend existing
1676 Qt's functionalities to enable an easy exchange of information between
1677 processes or computers.")))
1678
1679 (define-public qtspeech
1680   (package (inherit qtsvg)
1681     (name "qtspeech")
1682     (version "5.11.2")
1683     (source (origin
1684              (method url-fetch)
1685              (uri (string-append "https://download.qt.io/official_releases/qt/"
1686                                  (version-major+minor version) "/" version
1687                                  "/submodules/" name "-everywhere-src-"
1688                                  version ".tar.xz"))
1689              (sha256
1690               (base32
1691                "110xr2y174sayi9f6swzp1wx7mx4sw9rifcdx2bkbsnbfab6zg8a"))))
1692     (arguments
1693      (substitute-keyword-arguments (package-arguments qtsvg)
1694        ((#:tests? _ #f) #f))) ; TODO: Enable the tests
1695     (inputs
1696      `(("qtbase" ,qtbase)))
1697     (native-inputs
1698      `(("perl" ,perl)
1699        ("qtdeclarative" ,qtdeclarative)
1700        ("qtmultimedia" ,qtmultimedia)
1701        ("qtxmlpatterns" ,qtxmlpatterns)))
1702     (synopsis "Qt Speech module")
1703     (description "The Qt Speech module enables a Qt application to support
1704 accessibility features such as text-to-speech, which is useful for end-users
1705 who are visually challenged or cannot access the application for whatever
1706 reason.  The most common use case where text-to-speech comes in handy is when
1707 the end-user is driving and cannot attend the incoming messages on the phone.
1708 In such a scenario, the messaging application can read out the incoming
1709 message.")))
1710
1711 (define-public python-sip
1712   (package
1713     (name "python-sip")
1714     (version "4.19.12")
1715     (source
1716       (origin
1717         (method url-fetch)
1718         (uri
1719           (string-append "mirror://sourceforge/pyqt/sip/"
1720                          "sip-" version "/sip-" version ".tar.gz"))
1721         (sha256
1722          (base32
1723           "08iqj9qyanc6a4bllbd87gv8pd1gkplw1jhfa1sz0gcq3g1pyq94"))))
1724     (build-system gnu-build-system)
1725     (native-inputs
1726      `(("python" ,python-wrapper)))
1727     (arguments
1728      `(#:tests? #f ; no check target
1729        #:modules ((srfi srfi-1)
1730                   ,@%gnu-build-system-modules)
1731        #:phases
1732        (modify-phases %standard-phases
1733          (replace 'configure
1734            (lambda* (#:key inputs outputs #:allow-other-keys)
1735              (let* ((out (assoc-ref outputs "out"))
1736                     (bin (string-append out "/bin"))
1737                     (include (string-append out "/include"))
1738                     (python (assoc-ref inputs "python"))
1739                     (python-version
1740                       (last (string-split python #\-)))
1741                     (python-major+minor
1742                       (string-join
1743                         (take (string-split python-version #\.) 2)
1744                         "."))
1745                     (lib (string-append out "/lib/python"
1746                                         python-major+minor
1747                                         "/site-packages")))
1748                (invoke "python" "configure.py"
1749                        "--bindir" bin
1750                        "--destdir" lib
1751                        "--incdir" include)))))))
1752     (home-page "https://www.riverbankcomputing.com/software/sip/intro")
1753     (synopsis "Python binding creator for C and C++ libraries")
1754     (description
1755      "SIP is a tool to create Python bindings for C and C++ libraries.  It
1756 was originally developed to create PyQt, the Python bindings for the Qt
1757 toolkit, but can be used to create bindings for any C or C++ library.
1758
1759 SIP comprises a code generator and a Python module.  The code generator
1760 processes a set of specification files and generates C or C++ code, which
1761 is then compiled to create the bindings extension module.  The SIP Python
1762 module provides support functions to the automatically generated code.")
1763     ;; There is a choice between a python like license, gpl2 and gpl3.
1764     ;; For compatibility with pyqt, we need gpl3.
1765     (license license:gpl3)))
1766
1767 (define-public python2-sip
1768   (package (inherit python-sip)
1769     (name "python2-sip")
1770     (native-inputs
1771      `(("python" ,python-2)))))
1772
1773 (define-public python-pyqt
1774   (package
1775     (name "python-pyqt")
1776     (version "5.11.2")
1777     (source
1778       (origin
1779         (method url-fetch)
1780         (uri
1781           (string-append "mirror://sourceforge/pyqt/PyQt5/"
1782                          "PyQt-" version "/PyQt5_gpl-"
1783                          version ".tar.gz"))
1784         (sha256
1785          (base32
1786           "00wn9svgyp0fsrkc4ma15zcxg31pw4gsgaz6nwb3fhy3al8miakw"))
1787        (patches (search-patches "pyqt-configure.patch"
1788                                 "pyqt-public-sip.patch"))))
1789     (build-system gnu-build-system)
1790     (native-inputs
1791      `(("qtbase" ,qtbase))) ; for qmake
1792     (propagated-inputs
1793      `(("python-sip" ,python-sip)))
1794     (inputs
1795      `(("python" ,python-wrapper)
1796        ("qtbase" ,qtbase)
1797        ("qtconnectivity" ,qtconnectivity)
1798        ("qtdeclarative" ,qtdeclarative)
1799        ("qtlocation" ,qtlocation)
1800        ("qtmultimedia" ,qtmultimedia)
1801        ("qtsensors" ,qtsensors)
1802        ("qtserialport" ,qtserialport)
1803        ("qtsvg" ,qtsvg)
1804        ("qttools" ,qttools)
1805        ("qtwebchannel" ,qtwebchannel)
1806        ("qtwebkit" ,qtwebkit)
1807        ("qtwebsockets" ,qtwebsockets)
1808        ("qtx11extras" ,qtx11extras)
1809        ("qtxmlpatterns" ,qtxmlpatterns)))
1810     (arguments
1811      `(#:modules ((srfi srfi-1)
1812                   ,@%gnu-build-system-modules)
1813        #:phases
1814        (modify-phases %standard-phases
1815          (replace 'configure
1816            (lambda* (#:key inputs outputs #:allow-other-keys)
1817              (let* ((out (assoc-ref outputs "out"))
1818                     (bin (string-append out "/bin"))
1819                     (sip (string-append out "/share/sip"))
1820                     (plugins (string-append out "/plugins"))
1821                     (designer (string-append plugins "/designer"))
1822                     (qml (string-append plugins "/PyQt5"))
1823                     (python (assoc-ref inputs "python"))
1824                     (python-version
1825                       (last (string-split python #\-)))
1826                     (python-major+minor
1827                       (string-join
1828                         (take (string-split python-version #\.) 2)
1829                         "."))
1830                     (lib (string-append out "/lib/python"
1831                                         python-major+minor
1832                                         "/site-packages"))
1833                     (stubs (string-append lib "/PyQt5")))
1834                (invoke "python" "configure.py"
1835                        "--confirm-license"
1836                        "--bindir" bin
1837                        "--destdir" lib
1838                        "--designer-plugindir" designer
1839                        "--qml-plugindir" qml
1840                        ; Where to install the PEP 484 Type Hints stub
1841                        ; files. Without this the stubs are tried to be
1842                        ; installed into the python package's
1843                        ; site-package directory, which is read-only.
1844                        "--stubsdir" stubs
1845                        "--sipdir" sip)))))))
1846     (home-page "https://www.riverbankcomputing.com/software/pyqt/intro")
1847     (synopsis "Python bindings for Qt")
1848     (description
1849      "PyQt is a set of Python v2 and v3 bindings for the Qt application
1850 framework.  The bindings are implemented as a set of Python modules and
1851 contain over 620 classes.")
1852     (license license:gpl3)))
1853
1854 ;; XXX: This is useful because qtwebkit does not build reliably at this time.
1855 ;; Ultimately, it would be nicer to have a more modular set of python-pyqt-*
1856 ;; packages that could be used together.
1857 (define-public python-pyqt-without-qtwebkit
1858   (package (inherit python-pyqt)
1859     (name "python-pyqt-without-qtwebkit")
1860     (inputs
1861      (alist-delete "qtwebkit" (package-inputs python-pyqt)))))
1862
1863 (define-public python2-pyqt
1864   (package (inherit python-pyqt)
1865     (name "python2-pyqt")
1866     (native-inputs
1867      `(("python-sip" ,python2-sip)
1868        ("qtbase" ,qtbase)))
1869     (inputs
1870      `(("python" ,python-2)
1871        ("python2-enum34" ,python2-enum34)
1872        ,@(alist-delete "python" (package-inputs python-pyqt))))))
1873
1874 (define-public python2-pyqt-4
1875   (package (inherit python-pyqt)
1876     (name "python2-pyqt")
1877     (version "4.12")
1878     (source
1879       (origin
1880         (method url-fetch)
1881         (uri
1882           (string-append "mirror://sourceforge/pyqt/PyQt4/"
1883                          "PyQt-" version "/PyQt4_gpl_x11-"
1884                          version ".tar.gz"))
1885         (sha256
1886          (base32
1887           "1nw8r88a5g2d550yvklawlvns8gd5slw53yy688kxnsa65aln79w"))))
1888     (native-inputs
1889      `(("python-sip" ,python2-sip)
1890        ("qt" ,qt-4)))
1891     (inputs `(("python" ,python-2)))
1892     (arguments
1893      `(#:tests? #f ; no check target
1894        #:modules ((srfi srfi-1)
1895                   ,@%gnu-build-system-modules)
1896        #:phases
1897        (modify-phases %standard-phases
1898          (replace 'configure
1899            (lambda* (#:key inputs outputs #:allow-other-keys)
1900              (let* ((out (assoc-ref outputs "out"))
1901                     (bin (string-append out "/bin"))
1902                     (sip (string-append out "/share/sip"))
1903                     (python (assoc-ref inputs "python"))
1904                     (python-version
1905                       (last (string-split python #\-)))
1906                     (python-major+minor
1907                       (string-join
1908                         (take (string-split python-version #\.) 2)
1909                         "."))
1910                     (lib (string-append out "/lib/python"
1911                                         python-major+minor
1912                                         "/site-packages")))
1913                (invoke "python" "configure.py"
1914                        "--confirm-license"
1915                        "--bindir" bin
1916                        "--destdir" lib
1917                        "--sipdir" sip)))))))
1918     (license (list license:gpl2 license:gpl3)))) ; choice of either license
1919
1920 (define-public qscintilla
1921   (package
1922     (name "qscintilla")
1923     (version "2.10.7")
1924     (source (origin
1925               (method url-fetch)
1926               (uri (string-append "mirror://sourceforge/pyqt/QScintilla2/"
1927                                   "QScintilla-" version "/QScintilla_gpl-"
1928                                   version ".tar.gz"))
1929               (sha256
1930                (base32
1931                 "06hs6civq13dvzlws0spjb7gwyk6kynpnfwg5plhahnxf7g5h137"))))
1932     (build-system gnu-build-system)
1933     (arguments
1934      `(#:phases
1935        (modify-phases %standard-phases
1936          (replace 'configure
1937            (lambda* (#:key outputs #:allow-other-keys)
1938              (let ((out (assoc-ref outputs "out")))
1939                (chdir "Qt4Qt5")
1940                (substitute* "qscintilla.pro"
1941                  (("\\$\\$\\[QT_INSTALL_LIBS\\]")
1942                   (string-append out "/lib"))
1943                  (("\\$\\$\\[QT_INSTALL_HEADERS\\]")
1944                   (string-append out "/include"))
1945                  (("\\$\\$\\[QT_INSTALL_TRANSLATIONS\\]")
1946                   (string-append out "/translations"))
1947                  (("\\$\\$\\[QT_INSTALL_DATA\\]")
1948                   (string-append out "/lib/qt$${QT_MAJOR_VERSION}"))
1949                  (("\\$\\$\\[QT_HOST_DATA\\]")
1950                  (string-append out "/lib/qt$${QT_MAJOR_VERSION}")))
1951                (invoke "qmake")))))))
1952     (native-inputs `(("qtbase" ,qtbase)))
1953     (home-page "https://www.riverbankcomputing.co.uk/software/qscintilla/intro")
1954     (synopsis "Qt port of the Scintilla C++ editor control")
1955     (description "QScintilla is a port to Qt of Neil Hodgson's Scintilla C++
1956 editor control.  QScintilla includes features especially useful when editing
1957 and debugging source code.  These include support for syntax styling, error
1958 indicators, code completion and call tips.")
1959     (license license:gpl3+)))
1960
1961 (define-public python-qscintilla
1962   (package (inherit qscintilla)
1963     (name "python-qscintilla")
1964     (arguments
1965      `(#:configure-flags
1966        (list "--pyqt=PyQt5"
1967              (string-append "--pyqt-sipdir="
1968                             (assoc-ref %build-inputs "python-pyqt")
1969                             "/share/sip")
1970              (string-append "--qsci-incdir="
1971                             (assoc-ref %build-inputs "qscintilla")
1972                             "/include")
1973              (string-append "--qsci-libdir="
1974                             (assoc-ref %build-inputs "qscintilla")
1975                             "/lib"))
1976        #:phases
1977        (modify-phases %standard-phases
1978          (replace 'configure
1979            (lambda* (#:key outputs configure-flags #:allow-other-keys)
1980              (chdir "Python")
1981              (apply invoke "python3" "configure.py"
1982                     configure-flags)
1983              ;; Install to the right directory
1984              (substitute* '("Makefile"
1985                             "Qsci/Makefile")
1986                (("\\$\\(INSTALL_ROOT\\)/gnu/store/[^/]+")
1987                 (assoc-ref outputs "out")))
1988              ;; And fix the installed.txt file
1989              (substitute* "installed.txt"
1990                (("/gnu/store/[^/]+")
1991                 (assoc-ref outputs "out")))
1992              #t)))))
1993     (inputs
1994      `(("qscintilla" ,qscintilla)
1995        ("python" ,python)
1996        ("python-pyqt" ,python-pyqt)))
1997     (description "QScintilla is a port to Qt of Neil Hodgson's Scintilla C++
1998 editor control.  QScintilla includes features especially useful when editing
1999 and debugging source code.  These include support for syntax styling, error
2000 indicators, code completion and call tips.
2001
2002 This package provides the Python bindings.")))
2003
2004 ;; PyQt only looks for modules in its own directory.  It ignores environment
2005 ;; variables such as PYTHONPATH, so we need to build a union package to make
2006 ;; it work.
2007 (define-public python-pyqt+qscintilla
2008   (package (inherit python-pyqt)
2009     (name "python-pyqt+qscintilla")
2010     (source #f)
2011     (build-system trivial-build-system)
2012     (arguments
2013      '(#:modules ((guix build union))
2014        #:builder (begin
2015                    (use-modules (ice-9 match)
2016                                 (guix build union))
2017                    (match %build-inputs
2018                      (((names . directories) ...)
2019                       (union-build (assoc-ref %outputs "out")
2020                                    directories)
2021                       #t)))))
2022     (inputs
2023      `(("python-pyqt" ,python-pyqt)
2024        ("python-qscintilla" ,python-qscintilla)))
2025     (synopsis "Union of PyQt and the Qscintilla extension")
2026     (description
2027      "This package contains the union of PyQt and the Qscintilla extension.")))
2028
2029 (define-public qtkeychain
2030   (package
2031     (name "qtkeychain")
2032     (version "0.9.1")
2033     (source
2034       (origin
2035         (method git-fetch)
2036         (uri (git-reference
2037                (url "https://github.com/frankosterfeld/qtkeychain/")
2038                (commit (string-append "v" version))))
2039         (file-name (git-file-name name version))
2040         (sha256
2041          (base32
2042           "0h4wgngn2yl35hapbjs24amkjfbzsvnna4ixfhn87snjnq5lmjbc"))))
2043     (build-system cmake-build-system)
2044     (native-inputs
2045      `(("pkg-config" ,pkg-config)
2046        ("qttools" ,qttools)))
2047     (inputs
2048      `(("qtbase" ,qtbase)))
2049     (arguments
2050      `(#:tests? #f ; No tests included
2051        #:phases
2052        (modify-phases %standard-phases
2053          (add-before 'configure 'set-qt-trans-dir
2054            (lambda _
2055              (substitute* "CMakeLists.txt"
2056               (("\\$\\{qt_translations_dir\\}")
2057                "${CMAKE_INSTALL_PREFIX}/share/qt5/translations"))
2058              #t)))))
2059     (home-page "https://github.com/frankosterfeld/qtkeychain")
2060     (synopsis "Qt API to store passwords")
2061     (description
2062       "QtKeychain is a Qt library to store passwords and other secret data
2063 securely.  It will not store any data unencrypted unless explicitly requested.")
2064     (license license:bsd-3)))
2065
2066 (define-public qwt
2067   (package
2068     (name "qwt")
2069     (version "6.1.3")
2070     (source
2071       (origin
2072         (method url-fetch)
2073         (uri
2074          (string-append "mirror://sourceforge/qwt/qwt/"
2075                         version "/qwt-" version ".tar.bz2"))
2076         (sha256
2077          (base32 "0cwp63s03dw351xavb3pzbjlqvx7kj88wv7v4a2b18m9f97d7v7k"))))
2078   (build-system gnu-build-system)
2079   (inputs
2080    `(("qtbase" ,qtbase)
2081      ("qtsvg" ,qtsvg)
2082      ("qttools" ,qttools)))
2083   (arguments
2084    `(#:phases
2085      (modify-phases %standard-phases
2086        (replace 'configure
2087          (lambda* (#:key outputs #:allow-other-keys)
2088            (let* ((out (assoc-ref outputs "out"))
2089                   (docdir (string-append out "/share/doc/qwt"))
2090                   (incdir (string-append out "/include/qwt"))
2091                   (pluginsdir (string-append out "/lib/qt5/plugins/designer"))
2092                   (featuresdir (string-append out "/lib/qt5/mkspecs/features")))
2093              (substitute* '("qwtconfig.pri")
2094                (("^(\\s*QWT_INSTALL_PREFIX)\\s*=.*" _ x)
2095                 (format #f "~a = ~a\n" x out))
2096                (("^(QWT_INSTALL_DOCS)\\s*=.*" _ x)
2097                 (format #f "~a = ~a\n" x docdir))
2098                (("^(QWT_INSTALL_HEADERS)\\s*=.*" _ x)
2099                 (format #f "~a = ~a\n" x incdir))
2100                (("^(QWT_INSTALL_PLUGINS)\\s*=.*" _ x)
2101                 (format #f "~a = ~a\n" x pluginsdir))
2102                (("^(QWT_INSTALL_FEATURES)\\s*=.*" _ x)
2103                 (format #f "~a = ~a\n" x featuresdir)))
2104              (substitute* '("doc/doc.pro")
2105                ;; We'll install them in the 'install-man-pages' phase.
2106                (("^unix:doc\\.files.*") ""))
2107              (invoke "qmake"))))
2108        (add-after 'install 'install-man-pages
2109          (lambda* (#:key outputs #:allow-other-keys)
2110            (let* ((out (assoc-ref outputs "out"))
2111                   (man (string-append out "/share/man")))
2112              ;; Remove some incomplete manual pages.
2113              (for-each delete-file (find-files "doc/man/man3" "^_tmp.*"))
2114              (mkdir-p man)
2115              (copy-recursively "doc/man" man)
2116              #t))))))
2117   (home-page "http://qwt.sourceforge.net")
2118   (synopsis "Qt widgets for plots, scales, dials and other technical software
2119 GUI components")
2120   (description
2121    "The Qwt library contains widgets and components which are primarily useful
2122 for technical and scientific purposes.  It includes a 2-D plotting widget,
2123 different kinds of sliders, and much more.")
2124   (license
2125    (list
2126     ;; The Qwt license is LGPL2.1 with some exceptions.
2127     (license:non-copyleft "http://qwt.sourceforge.net/qwtlicense.html")
2128     ;; textengines/mathml/qwt_mml_document.{cpp,h} is dual LGPL2.1/GPL3 (either).
2129     license:lgpl2.1 license:gpl3))))
2130
2131 (define-public qtwebkit
2132   (package
2133     (name "qtwebkit")
2134     (version "5.212.0-alpha2")
2135     (source
2136       (origin
2137         (method url-fetch)
2138         (uri (string-append "https://github.com/annulen/webkit/releases/download/"
2139                             name "-" version "/" name "-" version ".tar.xz"))
2140         (sha256
2141          (base32
2142           "12lg7w00d8wsj672s1y5z5gm0xdcgs16nas0b5bgq4byavg03ygq"))
2143         (patches (search-patches "qtwebkit-pbutils-include.patch"))))
2144     (build-system cmake-build-system)
2145     (native-inputs
2146      `(("perl" ,perl)
2147        ("python" ,python-2.7)
2148        ("ruby" ,ruby)
2149        ("bison" ,bison)
2150        ("flex" ,flex)
2151        ("gperf" ,gperf)
2152        ("pkg-config" ,pkg-config)))
2153     (inputs
2154      `(("icu" ,icu4c)
2155        ("glib" ,glib)
2156        ("gst-plugins-base" ,gst-plugins-base)
2157        ("libjpeg" ,libjpeg)
2158        ("libpng" ,libpng)
2159        ("libwebp" ,libwebp)
2160        ("sqlite" ,sqlite)
2161        ("fontconfig" ,fontconfig)
2162        ("libxrender" ,libxrender)
2163        ("qtbase" ,qtbase)
2164        ("qtdeclarative" ,qtdeclarative)
2165        ("qtlocation" ,qtlocation)
2166        ("qtmultimedia" ,qtmultimedia)
2167        ("qtsensors" ,qtsensors)
2168        ("qtwebchannel" ,qtwebchannel)
2169        ("libxml2" ,libxml2)
2170        ("libxslt" ,libxslt)
2171        ("libx11" ,libx11)
2172        ("libxcomposite" ,libxcomposite)))
2173     (arguments
2174      `(#:tests? #f ; no apparent tests; it might be necessary to set
2175                    ; ENABLE_API_TESTS, see CMakeLists.txt
2176        #:configure-flags (list ;"-DENABLE_API_TESTS=TRUE"
2177                                "-DPORT=Qt"
2178                                "-DUSE_LIBHYPHEN=OFF"
2179                                "-DUSE_SYSTEM_MALLOC=ON"
2180                                ;; XXX: relative dir installs to build dir?
2181                                (string-append "-DECM_MKSPECS_INSTALL_DIR="
2182                                               %output "/lib/qt5/mkspecs/modules")
2183                                ;; Sacrifice a little speed in order to link
2184                                ;; libraries and test executables in a
2185                                ;; reasonable amount of memory.
2186                                "-DCMAKE_SHARED_LINKER_FLAGS=-Wl,--no-keep-memory"
2187                                "-DCMAKE_EXE_LINKER_FLAGS=-Wl,--no-keep-memory")))
2188     (home-page "https://www.webkit.org")
2189     (synopsis "Web browser engine and classes to render and interact with web
2190 content")
2191     (description "QtWebKit provides a Web browser engine that makes it easy to
2192 embed content from the World Wide Web into your Qt application.  At the same
2193 time Web content can be enhanced with native controls.")
2194     (license license:lgpl2.1+)))
2195
2196 (define-public dotherside
2197   (package
2198     (name "dotherside")
2199     (version "0.6.3")
2200     (source
2201      (origin
2202        (method url-fetch)
2203        (uri (string-append "https://github.com/filcuc/DOtherSide/"
2204                            "archive/v" version ".tar.gz"))
2205        (file-name (string-append name "-" version ".tar.gz"))
2206        (sha256
2207         (base32
2208          "0azq7qlsrfdwbd6qsi7d3c1knn42qw0r47g43xf7clwbinapswpz"))))
2209     (build-system cmake-build-system)
2210     (native-inputs
2211      `(("qttools" ,qttools)))
2212     (inputs
2213      `(("qtbase" ,qtbase)
2214        ("qtdeclarative" ,qtdeclarative)))
2215     (home-page "https://filcuc.github.io/DOtherSide/index.html")
2216     (synopsis "C language library for creating bindings for the Qt QML language")
2217     (description
2218      "DOtherSide is a C language library for creating bindings for the
2219 QT QML language.  The following features are implementable from
2220 a binding language:
2221 @itemize
2222 @item Creating custom QObject
2223 @item Creating custom QAbstractListModels
2224 @item Creating custom properties, signals and slots
2225 @item Creating from QML QObject defined in the binded language
2226 @item Creating from Singleton QML QObject defined in the binded language
2227 @end itemize\n")
2228     (license license:lgpl3)))                    ;version 3 only (+ exception)