gnu/packages/gnome.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
   8 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
   9 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  26 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  27 ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
  28 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
  29 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  30 ;;; Copyright © 2017, 2020 Brendan Tildesley <mail@brendan.scot>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  33 ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
  34 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  35 ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
  36 ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
  37 ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
  38 ;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
  39 ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
  40 ;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
  41 ;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
  42 ;;; Copyright © 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Leo Prikler <leo.prikler@student.tugraz.at>
  48 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  49 ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
  50 ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
  51 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
  55 ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
  56 ;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
  57 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  58 ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  59 ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
  60 ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
  61 ;;;
  62 ;;; This file is part of GNU Guix.
  63 ;;;
  64 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  65 ;;; under the terms of the GNU General Public License as published by
  66 ;;; the Free Software Foundation; either version 3 of the License, or (at
  67 ;;; your option) any later version.
  68 ;;;
  69 ;;; GNU Guix is distributed in the hope that it will be useful, but
  70 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  71 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  72 ;;; GNU General Public License for more details.
  73 ;;;
  74 ;;; You should have received a copy of the GNU General Public License
  75 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  76
  77 (define-module (gnu packages gnome)
  78   #:use-module (gnu packages)
  79   #:use-module (gnu packages admin)
  80   #:use-module (gnu packages aidc)
  81   #:use-module (gnu packages aspell)
  82   #:use-module (gnu packages autotools)
  83   #:use-module (gnu packages avahi)
  84   #:use-module (gnu packages backup)
  85   #:use-module (gnu packages base)
  86   #:use-module (gnu packages bash)
  87   #:use-module (gnu packages bison)
  88   #:use-module (gnu packages boost)
  89   #:use-module (gnu packages build-tools)
  90   #:use-module (gnu packages calendar)
  91   #:use-module (gnu packages cdrom)
  92   #:use-module (gnu packages check)
  93   #:use-module (gnu packages cmake)
  94   #:use-module (gnu packages compression)
  95   #:use-module (gnu packages crates-io)
  96   #:use-module (gnu packages crates-graphics)
  97   #:use-module (gnu packages crates-gtk)
  98   #:use-module (gnu packages cups)
  99   #:use-module (gnu packages curl)
 100   #:use-module (gnu packages cyrus-sasl)
 101   #:use-module (gnu packages databases)
 102   #:use-module (gnu packages dbm)
 103   #:use-module (gnu packages djvu)
 104   #:use-module (gnu packages dns)
 105   #:use-module (gnu packages docbook)
 106   #:use-module (gnu packages documentation)
 107   #:use-module (gnu packages enchant)
 108   #:use-module (gnu packages flex)
 109   #:use-module (gnu packages fonts)
 110   #:use-module (gnu packages file-systems)
 111   #:use-module (gnu packages fontutils)
 112   #:use-module (gnu packages freedesktop)
 113   #:use-module (gnu packages game-development)
 114   #:use-module (gnu packages gcc)
 115   #:use-module (gnu packages gettext)
 116   #:use-module (gnu packages ghostscript)
 117   #:use-module (gnu packages gimp)
 118   #:use-module (gnu packages gl)
 119   #:use-module (gnu packages glib)
 120   #:use-module (gnu packages gnupg)
 121   #:use-module (gnu packages gnuzilla)
 122   #:use-module (gnu packages geo)
 123   #:use-module (gnu packages gperf)
 124   #:use-module (gnu packages graphviz)
 125   #:use-module (gnu packages gstreamer)
 126   #:use-module (gnu packages gtk)
 127   #:use-module (gnu packages guile)
 128   #:use-module (gnu packages ibus)
 129   #:use-module (gnu packages icu4c)
 130   #:use-module (gnu packages image)
 131   #:use-module (gnu packages imagemagick)
 132   #:use-module (gnu packages inkscape)
 133   #:use-module (gnu packages iso-codes)
 134   #:use-module (gnu packages kerberos)
 135   #:use-module (gnu packages libcanberra)
 136   #:use-module (gnu packages libffi)
 137   #:use-module (gnu packages libunistring)
 138   #:use-module (gnu packages libunwind)
 139   #:use-module (gnu packages libusb)
 140   #:use-module (gnu packages linux)
 141   #:use-module (gnu packages lirc)
 142   #:use-module (gnu packages lua)
 143   #:use-module (gnu packages mail)
 144   #:use-module (gnu packages mp3)
 145   #:use-module (gnu packages multiprecision)
 146   #:use-module (gnu packages music)
 147   #:use-module (gnu packages ncurses)
 148   #:use-module (gnu packages nettle)
 149   #:use-module (gnu packages networking)
 150   #:use-module (gnu packages ninja)
 151   #:use-module (gnu packages node)
 152   #:use-module (gnu packages nss)
 153   #:use-module (gnu packages ocr)
 154   #:use-module (gnu packages openldap)
 155   #:use-module (gnu packages package-management)
 156   #:use-module (gnu packages password-utils)
 157   #:use-module (gnu packages pcre)
 158   #:use-module (gnu packages pdf)
 159   #:use-module (gnu packages perl)
 160   #:use-module (gnu packages photo)
 161   #:use-module (gnu packages php)
 162   #:use-module (gnu packages pkg-config)
 163   #:use-module (gnu packages polkit)
 164   #:use-module (gnu packages popt)
 165   #:use-module (gnu packages pretty-print)
 166   #:use-module (gnu packages protobuf)
 167   #:use-module (gnu packages pulseaudio)
 168   #:use-module (gnu packages python)
 169   #:use-module (gnu packages python-compression)
 170   #:use-module (gnu packages python-crypto)
 171   #:use-module (gnu packages python-web)
 172   #:use-module (gnu packages python-xyz)
 173   #:use-module (gnu packages rdesktop)
 174   #:use-module (gnu packages rdf)
 175   #:use-module (gnu packages readline)
 176   #:use-module (gnu packages ruby)
 177   #:use-module (gnu packages rust)
 178   #:use-module (gnu packages samba)
 179   #:use-module (gnu packages scanner)
 180   #:use-module (gnu packages sdl)
 181   #:use-module (gnu packages search)
 182   #:use-module (gnu packages selinux)
 183   #:use-module (gnu packages slang)
 184   #:use-module (gnu packages speech)
 185   #:use-module (gnu packages spice)
 186   #:use-module (gnu packages sqlite)
 187   #:use-module (gnu packages ssh)
 188   #:use-module (gnu packages swig)
 189   #:use-module (gnu packages tex)
 190   #:use-module (gnu packages time)
 191   #:use-module (gnu packages tls)
 192   #:use-module (gnu packages valgrind)
 193   #:use-module (gnu packages version-control)
 194   #:use-module (gnu packages video)
 195   #:use-module (gnu packages virtualization)
 196   #:use-module (gnu packages vpn)
 197   #:use-module (gnu packages web)
 198   #:use-module (gnu packages webkit)
 199   #:use-module (gnu packages xdisorg)
 200   #:use-module (gnu packages xiph)
 201   #:use-module (gnu packages xml)
 202   #:use-module (gnu packages xorg)
 203   #:use-module (gnu artwork)
 204   #:use-module ((guix build utils) #:select (modify-phases))
 205   #:use-module (guix build-system cargo)
 206   #:use-module (guix build-system cmake)
 207   #:use-module (guix build-system glib-or-gtk)
 208   #:use-module (guix build-system gnu)
 209   #:use-module (guix build-system meson)
 210   #:use-module (guix build-system python)
 211   #:use-module (guix build-system trivial)
 212   #:use-module (guix download)
 213   #:use-module (guix git-download)
 214   #:use-module ((guix licenses) #:prefix license:)
 215   #:use-module (guix packages)
 216   #:use-module (guix utils)
 217   #:use-module (guix gexp)
 218   #:use-module (guix monads)
 219   #:use-module (guix store)
 220   #:use-module (ice-9 match)
 221   #:use-module (srfi srfi-1))
 222
 223 (define-public gupnp-igd
 224   (package
 225     (name "gupnp-igd")
 226     (version "1.2.0")
 227     (source
 228      (origin
 229        (method url-fetch)
 230        (uri
 231         (string-append "mirror://gnome/sources/" name "/"
 232                        (version-major+minor version) "/"
 233                        name "-" version ".tar.xz"))
 234        (sha256
 235         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 236     (build-system meson-build-system)
 237     (outputs '("out" "doc"))
 238     (arguments
 239      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 240        #:configure-flags (list "-Dgtk_doc=true")
 241        #:phases
 242        (modify-phases %standard-phases
 243          (add-after 'unpack 'patch-docbook-xml
 244            (lambda* (#:key inputs #:allow-other-keys)
 245              (with-directory-excursion "doc"
 246                (substitute* "gupnp-igd-docs.xml"
 247                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 248                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 249                                  "/xml/dtd/docbook/"))))
 250              #t))
 251          (add-after 'install 'move-doc
 252            (lambda* (#:key outputs #:allow-other-keys)
 253              (let* ((out (assoc-ref outputs "out"))
 254                     (doc (assoc-ref outputs "doc")))
 255                (mkdir-p (string-append doc "/share"))
 256                (rename-file
 257                 (string-append out "/share/gtk-doc")
 258                 (string-append doc "/share/gtk-doc"))
 259                #t))))))
 260     (native-inputs
 261      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 262        ("docbook-xsl" ,docbook-xsl)
 263        ("glib:bin" ,glib "bin")
 264        ("gobject-introspection" ,gobject-introspection)
 265        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 266        ("gtk-doc" ,gtk-doc)
 267        ("pkg-config" ,pkg-config)))
 268     (propagated-inputs
 269      `(("glib" ,glib)
 270        ("glib-networking" ,glib-networking)
 271        ("gssdp" ,gssdp)
 272        ("gupnp" ,gupnp)
 273        ("libsoup" ,libsoup)))
 274     (synopsis "UPnP IGD for GNOME")
 275     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 276     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 277     (license license:lgpl2.1+)))
 278
 279 (define-public brasero
 280   (package
 281     (name "brasero")
 282     (version "3.12.2")
 283     (source (origin
 284              (method url-fetch)
 285              (uri (string-append "mirror://gnome/sources/brasero/"
 286                                  (version-major+minor version) "/"
 287                                  "brasero-" version ".tar.xz"))
 288              (sha256
 289               (base32
 290                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 291     (build-system glib-or-gtk-build-system)
 292     (arguments
 293      `(#:configure-flags (list
 294                           (string-append "--with-girdir="
 295                                          (assoc-ref %outputs "out")
 296                                          "/share/gir-1.0")
 297                           (string-append "--with-typelibdir="
 298                                          (assoc-ref %outputs "out")
 299                                          "/lib/girepository-1.0"))
 300        #:phases
 301        (modify-phases %standard-phases
 302          (add-before 'configure 'embed-growisofs
 303            (lambda* (#:key inputs #:allow-other-keys)
 304              (substitute* "plugins/growisofs/burn-growisofs.c"
 305                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 306              #t)))))
 307     (propagated-inputs
 308      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 309     (native-inputs
 310      `(("intltool" ,intltool)
 311        ("itstool" ,itstool)
 312        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 313        ("gobject-introspection" ,gobject-introspection)
 314        ("pkg-config" ,pkg-config)))
 315     (inputs
 316      `(("dvd+rw-tools" ,dvd+rw-tools)
 317        ("glib" ,glib)
 318        ("gnome-doc-utils" ,gnome-doc-utils)
 319        ("gstreamer" ,gstreamer)
 320        ("gst-plugins-base" ,gst-plugins-base)
 321        ("gtk+" ,gtk+)
 322        ("libcanberra" ,libcanberra)
 323        ("libice" ,libice)
 324        ("libnotify" ,libnotify)
 325        ("libsm" ,libsm)
 326        ("libxml2" ,libxml2)
 327        ("totem-pl-parser" ,totem-pl-parser)))
 328     (home-page "https://wiki.gnome.org/Apps/Brasero")
 329     (synopsis "CD/DVD burning tool for Gnome")
 330     (description "Brasero is an application to burn CD/DVD for the Gnome
 331 Desktop.  It is designed to be as simple as possible and has some unique
 332 features to enable users to create their discs easily and quickly.")
 333     (license license:gpl2+)))
 334
 335 (define-public libcloudproviders
 336   (package
 337     (name "libcloudproviders")
 338     (version "0.3.1")
 339     (source
 340      (origin
 341        (method url-fetch)
 342        (uri
 343         (string-append "mirror://gnome/sources/" name "/"
 344                        (version-major+minor version) "/"
 345                        name "-" version ".tar.xz"))
 346        (sha256
 347         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 348     (build-system meson-build-system)
 349     (outputs '("out" "doc"))
 350     (arguments
 351      `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
 352        #:configure-flags
 353        (list
 354         "-Denable-gtk-doc=true")
 355        #:phases
 356        (modify-phases %standard-phases
 357          (add-after 'install 'move-doc
 358            (lambda* (#:key outputs #:allow-other-keys)
 359              (let* ((out (assoc-ref outputs "out"))
 360                     (doc (assoc-ref outputs "doc")))
 361                (mkdir-p (string-append doc "/share"))
 362                (rename-file
 363                 (string-append out "/share/gtk-doc")
 364                 (string-append doc "/share/gtk-doc"))
 365                #t))))))
 366     (native-inputs
 367      `(("glib:bin" ,glib "bin")
 368        ("gobject-introspection" ,gobject-introspection)
 369        ("gtk-doc" ,gtk-doc)
 370        ("pkg-config" ,pkg-config)
 371        ("vala" ,vala)))
 372     (inputs
 373      `(("glib" ,glib)
 374        ("glib-networking" ,glib-networking)))
 375     (synopsis "Cloudproviders Integration API")
 376     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 377 clients to expose their services.  Clients such as file managers and desktop
 378 environments can then provide integrated access to the cloud providers
 379 services.")
 380     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 381     (license license:lgpl3+)))
 382
 383 (define-public libgrss
 384   (package
 385     (name "libgrss")
 386     (version "0.7.0")
 387     (source
 388      (origin
 389        (method url-fetch)
 390        (uri
 391         (string-append "mirror://gnome/sources/" name "/"
 392                        (version-major+minor version) "/"
 393                        name "-" version ".tar.xz"))
 394        (sha256
 395         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))))
 396     (build-system glib-or-gtk-build-system)
 397     (outputs '("out" "doc"))
 398     (arguments
 399      `(#:configure-flags
 400        (list
 401         "--enable-gtk-doc"
 402         (string-append "--with-html-dir="
 403                        (assoc-ref %outputs "doc")
 404                        "/share/gtk-doc/html"))
 405        #:phases
 406        (modify-phases %standard-phases
 407          (add-after 'unpack 'patch-docbook-xml
 408            (lambda* (#:key inputs #:allow-other-keys)
 409              (with-directory-excursion "doc/reference"
 410                (substitute* "libgrss-docs.sgml"
 411                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 412                   (string-append (assoc-ref inputs "docbook-xml")
 413                                  "/xml/dtd/docbook/"))))
 414              #t)))))
 415     (native-inputs
 416      `(("docbook-xml" ,docbook-xml-4.1.2)
 417        ("gobject-introspection" ,gobject-introspection)
 418        ("gtk-doc" ,gtk-doc)
 419        ("pkg-config" ,pkg-config)))
 420     (propagated-inputs
 421      `(("glib" ,glib)
 422        ("libsoup" ,libsoup)
 423        ("libxml2" ,libxml2)))
 424     (synopsis "Glib library for feeds")
 425     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 426 and other formats.")
 427     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 428     (license license:lgpl3+)))
 429
 430 (define-public gnome-js-common
 431   (package
 432     (name "gnome-js-common")
 433     (version "0.1.2")
 434     (source
 435      (origin
 436        (method url-fetch)
 437        (uri
 438         (string-append "mirror://gnome/sources/" name "/"
 439                        (version-major+minor version) "/"
 440                        name "-" version ".tar.gz"))
 441        (sha256
 442         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 443     (build-system glib-or-gtk-build-system)
 444     (arguments
 445      `(#:configure-flags
 446        (list
 447         "--disable-static")))
 448     (native-inputs
 449      `(("gettext" ,gettext-minimal)
 450        ("intltool" ,intltool)
 451        ("pkg-config" ,pkg-config)))
 452     (synopsis "Common JS Modules")
 453     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 454 bindings.")
 455     (home-page "https://wiki.gnome.org/Projects/Seed")
 456     (license license:gpl3+)))
 457
 458 (define-public seed
 459   (package
 460     (name "seed")
 461     (version "3.8.1")
 462     (source
 463      (origin
 464        (method url-fetch)
 465        (uri
 466         (string-append "mirror://gnome/sources/" name "/"
 467                        (version-major+minor version) "/"
 468                        name "-" version ".tar.xz"))
 469        (sha256
 470         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 471        (patches
 472         (search-patches "seed-webkit.patch"))))
 473     (build-system glib-or-gtk-build-system)
 474     (outputs '("out" "doc"))
 475     (arguments
 476      `(#:configure-flags
 477        (list
 478         "--disable-static"
 479         "--enable-xorg-module"
 480         (string-append "--with-html-dir="
 481                        (assoc-ref %outputs "doc")
 482                        "/share/gtk-doc/html")
 483         "--with-webkit=4.0")
 484        #:phases
 485        (modify-phases %standard-phases
 486          ;; The seed-webkit.patch patches configure.ac.
 487          ;; So the source files need to be re-bootstrapped.
 488          (add-after 'unpack 'trigger-bootstrap
 489            (lambda _
 490              (for-each delete-file
 491                        (list
 492                         "configure"
 493                         "Makefile.in"))
 494              #t))
 495          (add-after 'unpack 'patch-tests
 496            (lambda* (#:key outputs #:allow-other-keys)
 497              (substitute* (find-files "." "\\.js$")
 498               (("#!/usr/bin/env seed")
 499                (string-append "#!" (getcwd) "/src/seed")))
 500              #t))
 501          (add-before 'build 'patch-docbook-xml
 502            (lambda* (#:key inputs #:allow-other-keys)
 503              (with-directory-excursion "doc"
 504                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 505                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 506                   (string-append (assoc-ref inputs "docbook-xml")
 507                                  "/xml/dtd/docbook/"))))
 508              #t)))))
 509     (native-inputs
 510      `(("autoconf" ,autoconf)
 511        ("automake" ,automake)
 512        ("docbook-xml" ,docbook-xml-4.1.2)
 513        ("gettext" ,gettext-minimal)
 514        ("gobject-introspection" ,gobject-introspection)
 515        ("gtk-doc" ,gtk-doc)
 516        ("intltool" ,intltool)
 517        ("libtool" ,libtool)
 518        ("pkg-config" ,pkg-config)))
 519     (inputs
 520      `(("cairo" ,cairo)
 521        ("dbus" ,dbus)
 522        ("dbus-glib" ,dbus-glib)
 523        ("gnome-js-common" ,gnome-js-common)
 524        ("gtk+" ,gtk+)
 525        ("gtk+-2" ,gtk+-2)
 526        ("libffi" ,libffi)
 527        ("libxml2" ,libxml2)
 528        ("mpfr" ,mpfr)
 529        ("readline" ,readline)
 530        ("sqlite" ,sqlite)
 531        ("xscrnsaver" ,libxscrnsaver)))
 532     (propagated-inputs
 533      `(("glib" ,glib)
 534        ("webkit" ,webkitgtk)))
 535     (synopsis "GObject JavaScriptCore bridge")
 536     (description "Seed is a library and interpreter, dynamically bridging
 537 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 538 GNOME platform.  It serves as something which enables you to write standalone
 539 applications in JavaScript, or easily enable your application to be extensible
 540 in JavaScript.")
 541     (home-page "https://wiki.gnome.org/Projects/Seed")
 542     (license license:lgpl2.0+)))
 543
 544 (define-public libdmapsharing
 545   (package
 546     (name "libdmapsharing")
 547     (version "3.9.10")
 548     (source
 549      (origin
 550        (method url-fetch)
 551        (uri
 552         (string-append "https://www.flyn.org/projects/"
 553                        name "/" name "-" version ".tar.gz"))
 554        (sha256
 555         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 556     (build-system glib-or-gtk-build-system)
 557     (outputs '("out" "doc"))
 558     (arguments
 559      `(#:tests? #f                      ; Tests require networking.
 560        #:configure-flags
 561        (list
 562         "--disable-static"
 563         (string-append "--with-html-dir="
 564                        (assoc-ref %outputs "doc")
 565                        "/share/gtk-doc/html"))
 566        #:phases
 567        (modify-phases %standard-phases
 568          (add-after 'unpack 'patch-docbook-xml
 569            (lambda* (#:key inputs #:allow-other-keys)
 570              (with-directory-excursion "doc"
 571                (substitute* "libdmapsharing-4.0-docs.xml"
 572                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 573                   (string-append (assoc-ref inputs "docbook-xml")
 574                                  "/xml/dtd/docbook/"))))
 575              #t)))))
 576     (native-inputs
 577      `(("check" ,check)
 578        ("docbook-xml" ,docbook-xml-4.3)
 579        ("gobject-introspection" ,gobject-introspection)
 580        ("pedansee" ,pedansee)
 581        ("pkg-config" ,pkg-config)
 582        ("vala" ,vala)))
 583     (inputs
 584      `(("avahi" ,avahi)
 585        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 586        ("gee" ,libgee)
 587        ("gst-plugins-base" ,gst-plugins-base)
 588        ("gtk+" ,gtk+)))
 589     (propagated-inputs
 590      `(("glib" ,glib)
 591        ("glib-networking" ,glib-networking)
 592        ("gstreamer" ,gstreamer)
 593        ("libsoup" ,libsoup)))
 594     (synopsis "Media management library")
 595     (description "Libdmapsharing is a library which allows programs to access,
 596 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 597 It is written in C using GObject and libsoup.")
 598     (home-page "https://launchpad.net/gtx")
 599     (license license:lgpl2.1+)))
 600
 601 (define-public gtx
 602   (package
 603     (name "gtx")
 604     (version "0.2.2")
 605     (source
 606      (origin
 607        (method url-fetch)
 608        (uri
 609         (string-append "https://launchpad.net/gtx/trunk/"
 610                        version "/+download/gtx-" version ".tar.gz"))
 611        (sha256
 612         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 613     (build-system glib-or-gtk-build-system)
 614     (outputs '("out" "doc"))
 615     (arguments
 616      `(#:configure-flags
 617        (list
 618         "--disable-static"
 619         "--enable-gtk-doc"
 620         (string-append "--with-html-dir="
 621                        (assoc-ref %outputs "doc")
 622                        "/share/gtk-doc/html"))))
 623     (native-inputs
 624      `(("gobject-introspection" ,gobject-introspection)
 625        ("gtk-doc" ,gtk-doc)
 626        ("pkg-config" ,pkg-config)))
 627     (propagated-inputs
 628      `(("glib" ,glib)))
 629     (synopsis "GLib Testing Framework")
 630     (description "GTX is a small collection of convenience functions intended to
 631 enhance the GLib testing framework.  With specific emphasis on easing the pain
 632 of writing test cases for asynchronous interactions.")
 633     (home-page "https://launchpad.net/gtx")
 634     (license license:lgpl2.1+)))
 635
 636 (define-public dee
 637   (package
 638     (name "dee")
 639     (version "1.2.7")
 640     (source
 641      (origin
 642        (method url-fetch)
 643        (uri
 644         (string-append "https://launchpad.net/dee/1.0/"
 645                        version "/+download/dee-" version ".tar.gz"))
 646        (sha256
 647         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 648        (patches
 649         (search-patches "dee-vapi.patch"))))
 650     (build-system glib-or-gtk-build-system)
 651     (outputs '("out" "doc"))
 652     (arguments
 653      `(#:configure-flags
 654        (list
 655         "--disable-maintainer-flags"
 656         (string-append "--with-pygi-overrides-dir="
 657                        (assoc-ref %outputs "out")
 658                        "/lib/python"
 659                        ,(version-major+minor
 660                          (package-version python))
 661                        "/site-packages/gi/overrides")
 662         (string-append "--with-html-dir="
 663                        (assoc-ref %outputs "doc")
 664                        "/share/gtk-doc/html"))
 665        #:phases
 666        (modify-phases %standard-phases
 667          (add-after 'unpack 'patch-docbook-xml
 668            (lambda* (#:key inputs #:allow-other-keys)
 669              (with-directory-excursion "doc/reference/dee-1.0"
 670                (substitute* "dee-1.0-docs.sgml"
 671                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 672                   (string-append (assoc-ref inputs "docbook-xml")
 673                                  "/xml/dtd/docbook/"))))
 674              #t))
 675          (add-after 'patch-docbook-xml 'disable-failing-tests
 676            (lambda _
 677              (substitute* "tests/test-icu.c"
 678                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 679                 "")
 680                (("setup, test_ascii_folder, teardown\\);")
 681                 ""))
 682              #t))
 683          (add-before 'check 'pre-check
 684            (lambda _
 685              ;; Tests require a running dbus-daemon.
 686              (system "dbus-daemon &")
 687              ;; For missing '/etc/machine-id'.
 688              (setenv "DBUS_FATAL_WARNINGS" "0")
 689              #t)))))
 690     (native-inputs
 691      `(("dbus" ,dbus)
 692        ("dbus-test-runner" ,dbus-test-runner)
 693        ("docbook-xml" ,docbook-xml-4.3)
 694        ("gobject-introspection" ,gobject-introspection)
 695        ("gtk-doc" ,gtk-doc)
 696        ;; Would only be required by configure flag "--enable-extended-tests".
 697        ;("gtx" ,gtx)
 698        ("pkg-config" ,pkg-config)
 699        ("pygobject" ,python-pygobject)
 700        ("python" ,python-wrapper)
 701        ("vala" ,vala)))
 702     (inputs
 703      `(("icu" ,icu4c)))
 704     (propagated-inputs
 705      `(("glib" ,glib)))
 706     (synopsis "Model to synchronize multiple instances over DBus")
 707     (description "Dee is a library that uses DBus to provide objects allowing
 708 you to create Model-View-Controller type programs across DBus.  It also consists
 709 of utility objects which extend DBus allowing for peer-to-peer discoverability
 710 of known objects without needing a central registrar.")
 711     (home-page "https://launchpad.net/dee")
 712     (license
 713      ;; Dual-licensed
 714      (list
 715       license:lgpl3+
 716       license:gpl3+))))
 717
 718 (define-public zeitgeist
 719   (package
 720     (name "zeitgeist")
 721     (version "1.0.3")
 722     (source
 723      (origin
 724        (method git-fetch)
 725        (uri
 726         (git-reference
 727          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 728          (commit
 729           (string-append "v" version))))
 730        (file-name
 731         (git-file-name name version))
 732        (sha256
 733         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 734     (build-system glib-or-gtk-build-system)
 735     (arguments
 736      `(#:configure-flags
 737        (list
 738         "--enable-explain-queries"
 739         "--enable-fts"
 740         "--enable-docs")
 741        #:phases
 742        (modify-phases %standard-phases
 743          (add-after 'unpack 'patch-docbook-xml
 744            (lambda* (#:key inputs #:allow-other-keys)
 745              (with-directory-excursion "doc/libzeitgeist"
 746                (substitute* "zeitgeist-gtkdoc-index.sgml"
 747                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 748                   (string-append (assoc-ref inputs "docbook-xml")
 749                                  "/xml/dtd/docbook/"))))
 750              #t))
 751          (add-after 'patch-docbook-xml 'disable-failing-tests
 752            (lambda _
 753              (substitute* "test/direct/Makefile.am"
 754                (("      log-test ")
 755                 ""))
 756              (substitute* "test/c/Makefile.am"
 757                (("      test-log ")
 758                 ""))
 759              #t))
 760          (add-before 'bootstrap 'remove-autogen-script
 761            (lambda _
 762              ;; To honor `autoreconf -vif` by build-system.
 763              (delete-file "autogen.sh")
 764              #t)))))
 765     (native-inputs
 766      `(("autoconf" ,autoconf)
 767        ("automake" ,automake)
 768        ("docbook-xml" ,docbook-xml-4.3)
 769        ("gettext" ,gettext-minimal)
 770        ("gobject-introspection" ,gobject-introspection)
 771        ("gtk-doc" ,gtk-doc)
 772        ("libtool" ,libtool)
 773        ("pkg-config" ,pkg-config)
 774        ("vala" ,vala)
 775        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 776     (inputs
 777      `(("dee-icu" ,dee)
 778        ("gtk+" ,gtk+)
 779        ("json-glib" ,json-glib)
 780        ("sqlite" ,sqlite)
 781        ("telepathy-glib" ,telepathy-glib)
 782        ("python" ,python-wrapper)
 783        ("python-rdflib" ,python-rdflib)
 784        ("xapian-config" ,xapian)))
 785     (propagated-inputs
 786      `(("glib" ,glib)))
 787     (synopsis "Desktop Activity Logging")
 788     (description "Zeitgeist is a service which logs the users’s activities and
 789 events, anywhere from files opened to websites visited and conversations.  It
 790 makes this information readily available for other applications to use.  It is
 791 able to establish relationships between items based on similarity and usage
 792 patterns.")
 793     (home-page "https://zeitgeist.freedesktop.org/")
 794     (license
 795      ;; Dual-licensed
 796      (list
 797       license:lgpl2.1+
 798       license:gpl2+))))
 799
 800 (define-public gnome-recipes
 801   (package
 802     (name "gnome-recipes")
 803     (version "2.0.4")
 804     (source (origin
 805               (method git-fetch)
 806               (uri (git-reference
 807                     (url "https://gitlab.gnome.org/GNOME/recipes")
 808                     (commit version)))
 809               (file-name (git-file-name name version))
 810               (sha256
 811                (base32
 812                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 813     (build-system meson-build-system)
 814     (arguments
 815      `(#:glib-or-gtk? #t
 816        #:phases
 817        (modify-phases %standard-phases
 818          (add-after 'unpack 'skip-gtk-update-icon-cache
 819            (lambda _
 820              (substitute* "meson_post_install.py"
 821                (("gtk-update-icon-cache") (which "true")))
 822              #t))
 823          (add-after 'unpack 'unpack-libgd
 824            (lambda* (#:key inputs #:allow-other-keys)
 825              (let ((libgd (assoc-ref inputs "libgd")))
 826                (copy-recursively libgd "subprojects/libgd")
 827                #t))))))
 828     (inputs
 829      `(("glib" ,glib)
 830        ("gnome-autoar" ,gnome-autoar)
 831        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 832        ("gspell" ,gspell)
 833        ("gtk+" ,gtk+)
 834        ("json-glib" ,json-glib)
 835        ("libcanberra" ,libcanberra)
 836        ("libsoup" ,libsoup)
 837        ("rest" ,rest)))
 838     (native-inputs
 839      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
 840        ("gettext" ,gettext-minimal)
 841        ("glib:bin" ,glib "bin")
 842        ("itstool" ,itstool)
 843        ("libgd"
 844         ,(origin
 845            (method git-fetch)
 846            (uri (git-reference
 847                  (url "https://gitlab.gnome.org/GNOME/libgd")
 848                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 849            (file-name (git-file-name "libgd" version))
 850            (sha256
 851             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
 852        ("pkg-config" ,pkg-config)))
 853     (home-page "https://wiki.gnome.org/Apps/Recipes")
 854     (synopsis "Discover recipes for preparing food")
 855     (description "GNOME Recipes helps you discover what to cook today,
 856 tomorrow, the rest of the week and for special occasions.")
 857     (license license:gpl3+)))
 858
 859 (define-public gnome-photos
 860   (package
 861     (name "gnome-photos")
 862     (version "3.34.2")
 863     (source
 864      (origin
 865        (method url-fetch)
 866        (uri
 867         (string-append "mirror://gnome/sources/" name "/"
 868                        (version-major+minor version) "/"
 869                        name "-" version ".tar.xz"))
 870        (sha256
 871         (base32
 872          "06ml5sf8xhpan410msqz085hmfc7082d368pb82yq646y9pcfn9w"))))
 873     (build-system meson-build-system)
 874     (arguments
 875      `(#:glib-or-gtk? #t
 876        #:configure-flags
 877        (list "-Ddogtail=false"     ; Not available
 878              ;; Required for RUNPATH validation.
 879              (string-append "-Dc_link_args=-Wl,-rpath="
 880                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 881        #:phases
 882        (modify-phases %standard-phases
 883          (add-after 'install 'wrap-gnome-photos
 884            (lambda* (#:key inputs outputs #:allow-other-keys)
 885              (let*
 886                  ((out (assoc-ref outputs "out")))
 887                (wrap-program (string-append out "/bin/gnome-photos")
 888                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))))
 889              #t)))))
 890     (native-inputs
 891      `(("dbus" ,dbus)
 892        ("desktop-file-utils" ,desktop-file-utils)
 893        ("gettext" ,gettext-minimal)
 894        ("git" ,git-minimal)
 895        ("glib:bin" ,glib "bin")
 896        ("gobject-introspection" ,gobject-introspection)
 897        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 898        ("gtk+:bin" ,gtk+ "bin")
 899        ("itstool" ,itstool)
 900        ("pkg-config" ,pkg-config)))
 901     (inputs
 902      `(("babl" ,babl)
 903        ("cairo" ,cairo)
 904        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 905        ("gegl" ,gegl)
 906        ("geocode-glib" ,geocode-glib)
 907        ("gexiv2" ,gexiv2)
 908        ("gnome-online-accounts" ,gnome-online-accounts)
 909        ("gnome-online-miners" ,gnome-online-miners)
 910        ("grilo" ,grilo)
 911        ("grilo-plugins" ,grilo-plugins)
 912        ("gtk+" ,gtk+)
 913        ("libdazzle" ,libdazzle)
 914        ("libgdata" ,libgdata)
 915        ("libgfbgraph" ,gfbgraph)
 916        ("libjpeg" ,libjpeg-turbo)
 917        ("libpng" ,libpng)
 918        ("librest" ,rest)
 919        ("pygobject" ,python-pygobject)
 920        ("tracker" ,tracker)
 921        ("tracker-miners" ,tracker-miners)))
 922     (synopsis "Access, organize and share your photos on GNOME desktop")
 923     (description "GNOME Photos is a simple and elegant replacement for using a
 924 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 925 cloud integration is offered through GNOME Online Accounts.")
 926     (home-page "https://wiki.gnome.org/Apps/Photos")
 927     (license license:gpl3+)))
 928
 929 (define-public gnome-music
 930   (package
 931     (name "gnome-music")
 932     (version "3.34.5")
 933     (source
 934      (origin
 935        (method url-fetch)
 936        (uri
 937         (string-append "mirror://gnome/sources/" name "/"
 938                        (version-major+minor version) "/"
 939                        name "-" version ".tar.xz"))
 940        (sha256
 941         (base32
 942          "1r5sfw5cbd6qqh27lzhblazir0bfi3k7nqppw66qw990isqm5psy"))))
 943     (build-system meson-build-system)
 944     (arguments
 945      `(#:glib-or-gtk? #t
 946        #:phases
 947        (modify-phases %standard-phases
 948          (add-after 'install 'wrap-gnome-music
 949            (lambda* (#:key inputs outputs #:allow-other-keys)
 950              (let*
 951                  ((out (assoc-ref outputs "out"))
 952                   (pylib (string-append out "/lib/python"
 953                                         ,(version-major+minor
 954                                           (package-version python))
 955                                         "/site-packages")))
 956                (wrap-program (string-append out "/bin/gnome-music")
 957                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
 958                  `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 959                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))
 960                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))))
 961              #t)))))
 962     (native-inputs
 963      `(("desktop-file-utils" ,desktop-file-utils)
 964        ("gettext" ,gettext-minimal)
 965        ("glib:bin" ,glib "bin")
 966        ("gobject-introspection" ,gobject-introspection)
 967        ("gtk+:bin" ,gtk+ "bin")
 968        ("itstools" ,itstool)
 969        ("pkg-config" ,pkg-config)))
 970     (inputs
 971      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 972        ("grilo" ,grilo)
 973        ("grilo-plugins" ,grilo-plugins)
 974        ("gst-plugins-base" ,gst-plugins-base)
 975        ("gstreamer" ,gstreamer)
 976        ("gvfs" ,gvfs)
 977        ("libdazzle" ,libdazzle)
 978        ("libmediaart" ,libmediaart)
 979        ("libsoup" ,libsoup)
 980        ("pycairo" ,python-pycairo)
 981        ("pygobject" ,python-pygobject)
 982        ("tracker" ,tracker)
 983        ("tracker-miners" ,tracker-miners)))
 984     (synopsis "Simple music player for GNOME desktop")
 985     (description "GNOME Music is the new GNOME music playing application that
 986 aims to combine an elegant and immersive browsing experience with simple
 987 and straightforward controls.")
 988     (home-page "https://wiki.gnome.org/Apps/Music")
 989     (license license:gpl2+)))
 990
 991 (define-public portablexdr
 992   (package
 993     (name "portablexdr")
 994     (version "4.9.1")
 995     (source
 996      (origin
 997        (method url-fetch)
 998        (uri
 999         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1000                        name "-" version ".tar.gz"))
1001        (sha256
1002         (base32
1003          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1004     (build-system gnu-build-system)
1005     (synopsis "External Data Representation Library")
1006     (description "PortableXDR is an implementation of External Data
1007 Representation (XDR) Library.  It is a standard data serialization format, for
1008 uses such as computer network protocols.  It allows data to be transferred
1009 between different kinds of computer systems.")
1010     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1011     (license
1012      (list
1013       license:gpl2+
1014       license:lgpl2.1+))))
1015
1016 (define-public tepl
1017   (package
1018     (name "tepl")
1019     (version "4.4.0")
1020     (source
1021      (origin
1022        (method url-fetch)
1023        (uri
1024         (string-append "mirror://gnome/sources/" name "/"
1025                        (version-major+minor version) "/"
1026                        name "-" version ".tar.xz"))
1027        (sha256
1028         (base32
1029          "0mm2z849hnni7597an05mrv0dckrxjngpf2xfa0g5s17i8x6gxp6"))))
1030     (build-system glib-or-gtk-build-system)
1031     (arguments
1032      `(#:tests? #f))                    ; FIX-ME: Requires gvfs
1033     (native-inputs
1034      `(("gobject-introspection" ,gobject-introspection)
1035        ("pkg-config" ,pkg-config)))
1036     (inputs
1037      `(("amtk" ,amtk)
1038        ("glib" ,glib)
1039        ("gtk+" ,gtk+)
1040        ("gtksourceview" ,gtksourceview)
1041        ("libxml2" ,libxml2)
1042        ("uchardet" ,uchardet)))
1043     (synopsis "Text editor product line")
1044     (description "Tepl is a library that eases the development of
1045 GtkSourceView-based text editors and IDEs.")
1046     (home-page "https://wiki.gnome.org/Projects/Tepl")
1047     (license license:lgpl2.1+)))
1048
1049 (define-public krb5-auth-dialog
1050   (package
1051     (name "krb5-auth-dialog")
1052     (version "3.26.1")
1053     (source
1054      (origin
1055        (method url-fetch)
1056        (uri
1057         (string-append "mirror://gnome/sources/" name "/"
1058                        (version-major+minor version) "/"
1059                        name "-" version ".tar.xz"))
1060        (sha256
1061         (base32
1062          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1063     (build-system glib-or-gtk-build-system)
1064     (native-inputs
1065      `(("intltool" ,intltool)
1066        ("itstool" ,itstool)
1067        ("libxml2" ,libxml2)
1068        ("pkg-config" ,pkg-config)
1069        ("python-wrapper" ,python-wrapper)))
1070     (inputs
1071      `(("glib" ,glib)
1072        ("gtk+" ,gtk+)
1073        ("libnotify" ,libnotify)
1074        ("mit-krb5" ,mit-krb5)
1075        ("network-manager" ,network-manager)))
1076     (synopsis "Popup dialogs for Kerberos 5")
1077     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1078 tickets, and pops up a dialog when they are about to expire.")
1079     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1080     (license license:gpl2+)))
1081
1082 (define-public notification-daemon
1083   (package
1084     (name "notification-daemon")
1085     (version "3.20.0")
1086     (source
1087      (origin
1088        (method url-fetch)
1089        (uri
1090         (string-append "mirror://gnome/sources/" name "/"
1091                        (version-major+minor version) "/"
1092                        name "-" version ".tar.xz"))
1093        (sha256
1094         (base32
1095          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1096     (build-system glib-or-gtk-build-system)
1097     (native-inputs
1098      `(("intltool" ,intltool)
1099        ("pkg-config" ,pkg-config)))
1100     (inputs
1101      `(("glib" ,glib)
1102        ("gtk+" ,gtk+)
1103        ("x11" ,libx11)))
1104     (synopsis "Notification Daemon for GNOME Desktop")
1105     (description "Notification-Daemon is the server implementation of the
1106 freedesktop.org desktop notification specification.")
1107     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1108     (license license:gpl2+)))
1109
1110 (define-public mm-common
1111   (package
1112     (name "mm-common")
1113     (version "1.0.2")
1114     (source (origin
1115               (method url-fetch)
1116               (uri (string-append "mirror://gnome/sources/mm-common/"
1117                                   (version-major+minor version) "/"
1118                                   "mm-common-" version ".tar.xz"))
1119               (sha256
1120                (base32
1121                 "07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
1122     (build-system meson-build-system)
1123     (arguments
1124      `(#:phases
1125        (modify-phases %standard-phases
1126          (add-after 'unpack 'patch
1127            (lambda* (#:key inputs #:allow-other-keys)
1128              (substitute* "util/mm-common-prepare.in"
1129               (("ln") (string-append (assoc-ref inputs "coreutils")
1130                                      "/bin/ln"))
1131               (("cp") (string-append (assoc-ref inputs "coreutils")
1132                                      "/bin/cp"))
1133               (("sed") (string-append (assoc-ref inputs "sed")
1134                                       "/bin/sed"))
1135               (("cat") (string-append (assoc-ref inputs "coreutils")
1136                                       "/bin/cat")))
1137              #t)))))
1138     (native-inputs
1139      `(("coreutils" ,coreutils)
1140        ("gettext" ,gettext-minimal)
1141        ("pkg-config" ,pkg-config)
1142        ("sed" ,sed)))
1143     (inputs
1144      `(("python" ,python)))
1145     (synopsis "Module of GNOME C++ bindings")
1146     (description "The mm-common module provides the build infrastructure
1147 and utilities shared among the GNOME C++ binding libraries.  Release
1148 archives of mm-common include the Doxygen tag file for the GNU C++
1149 Library reference documentation.")
1150     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1151     (license license:gpl2+)))
1152
1153 (define-public phodav
1154   (package
1155    (name "phodav")
1156    (version "2.5")
1157    (source (origin
1158             (method url-fetch)
1159             (uri (string-append "mirror://gnome/sources/" name "/"
1160                                 (version-major+minor version) "/"
1161                                 name "-" version ".tar.xz"))
1162             (sha256
1163              (base32
1164               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1165    (build-system meson-build-system)
1166    (arguments
1167     `(#:phases
1168       (modify-phases %standard-phases
1169         (add-before 'check 'start-virtual-dir-server
1170           ;; The same server when started by tests/virtual-dir returns an
1171           ;; unexpected status (4 instead of 200) and fails a test.  It is
1172           ;; unclear why starting it manually here makes it pass.
1173           (lambda _
1174             (system "tests/virtual-dir-server &")
1175             #t)))))
1176    (native-inputs
1177     `(("docbook-xml" ,docbook-xml-4.3)
1178       ("gettext" ,gettext-minimal)
1179       ("glib:bin" ,glib "bin")
1180       ("gtk-doc" ,gtk-doc)
1181       ("pkg-config" ,pkg-config)))
1182    (inputs
1183     `(("avahi" ,avahi)
1184       ("libgudev" ,libgudev)
1185       ("libsoup" ,libsoup)))
1186    (synopsis "WebDav server implementation using libsoup")
1187    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1188 but it is generic enough to be reused in other projects,
1189 in particular in the GNOME desktop.")
1190    (home-page "https://wiki.gnome.org/phodav")
1191    (license license:lgpl2.1+)))
1192
1193 (define-public gnome-color-manager
1194   (package
1195    (name "gnome-color-manager")
1196    (version "3.32.0")
1197    (source (origin
1198             (method url-fetch)
1199             (uri (string-append "mirror://gnome/sources/" name "/"
1200                                 (version-major+minor version) "/"
1201                                 name "-" version ".tar.xz"))
1202             (sha256
1203              (base32
1204               "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
1205    (build-system meson-build-system)
1206    (arguments
1207     `(#:glib-or-gtk? #t
1208       #:phases
1209        (modify-phases %standard-phases
1210         (add-before
1211          'check 'pre-check
1212          (lambda _
1213            ;; Tests require a running X server.
1214            (system "Xvfb :1 &")
1215            (setenv "DISPLAY" ":1")
1216            #t)))))
1217    (native-inputs
1218     `(("desktop-file-utils" ,desktop-file-utils)
1219       ("gettext" ,gettext-minimal)
1220       ("glib:bin" ,glib "bin")
1221       ("gtk+:bin" ,gtk+ "bin")
1222       ("itstool" ,itstool)
1223       ("pkg-config" ,pkg-config)
1224       ("xorg-server" ,xorg-server-for-tests)))
1225    (inputs
1226     `(("adwaita-icon-theme" ,adwaita-icon-theme)
1227       ("appstream-glib" ,appstream-glib)
1228       ("colord-gtk" ,colord-gtk)
1229       ("exiv2" ,exiv2)
1230       ("gnome-desktop" ,gnome-desktop)
1231       ("libcanberra" ,libcanberra)
1232       ("libexif" ,libexif)
1233       ("libtiff" ,libtiff)
1234       ("libxrandr" ,libxrandr)
1235       ("libxtst" ,libxtst)
1236       ("libxxf86vm" ,libxxf86vm)
1237       ("vte" ,vte)
1238       ("xorgproto" ,xorgproto)))
1239    (synopsis "Color profile manager for the GNOME desktop")
1240    (description "GNOME Color Manager is a session framework that makes
1241 it easy to manage, install and generate color profiles
1242 in the GNOME desktop.")
1243    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1244    (license license:gpl2+)))
1245
1246 (define-public gnome-online-miners
1247   (package
1248     (name "gnome-online-miners")
1249     (version "3.34.0")
1250     (source (origin
1251               (method url-fetch)
1252               (uri (string-append "mirror://gnome/sources/" name "/"
1253                                   (version-major+minor version) "/"
1254                                   name "-" version ".tar.xz"))
1255               (sha256
1256                (base32
1257                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
1258     (build-system glib-or-gtk-build-system)
1259     (native-inputs
1260      `(("gettext" ,gettext-minimal)
1261        ("glib:bin" ,glib "bin")
1262        ("gobject-introspection" ,gobject-introspection)
1263        ("gtk+:bin" ,gtk+ "bin")
1264        ("pkg-config" ,pkg-config)))
1265     (inputs
1266      `(("gnome-online-accounts" ,gnome-online-accounts)
1267        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1268        ("grilo" ,grilo)
1269        ("libgdata" ,libgdata)
1270        ("libgfbgraph" ,gfbgraph)
1271        ("libzapojit" ,libzapojit)
1272        ("rest" ,rest)
1273        ("tracker" ,tracker)))
1274     (synopsis "Web Crawlers for GNOME")
1275     (description "GNOME Online Miners provides a set of crawlers that
1276 go through your online content and index them locally in Tracker.
1277 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1278     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1279     (license license:gpl2+)))
1280
1281 (define-public gssdp
1282   (package
1283    (name "gssdp")
1284    (version "1.2.3")
1285    (source (origin
1286             (method url-fetch)
1287             (uri (string-append "mirror://gnome/sources/" name "/"
1288                                 (version-major+minor version) "/"
1289                                 name "-" version ".tar.xz"))
1290             (sha256
1291              (base32
1292               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1293    (build-system meson-build-system)
1294    (native-inputs
1295     `(("gettext" ,gettext-minimal)
1296       ("glib:bin" ,glib "bin")
1297       ("gobject-introspection" ,gobject-introspection)
1298       ("gtk-doc" ,gtk-doc)
1299       ("pkg-config" ,pkg-config)
1300       ("vala" ,vala)))
1301    (inputs
1302     `(("gtk+" ,gtk+)
1303       ("libsoup" ,libsoup)))
1304    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1305 Protocol} for GNOME")
1306    (description "This package provides a library to handle resource discovery
1307 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1308 a debugging tool, @command{gssdp-device-sniffer}.")
1309    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1310    (license license:lgpl2.0+)))
1311
1312 (define-public gupnp
1313   (package
1314    (name "gupnp")
1315    (version "1.2.4")
1316    (source (origin
1317             (method url-fetch)
1318             (uri (string-append "mirror://gnome/sources/" name "/"
1319                                 (version-major+minor version) "/"
1320                                 name "-" version ".tar.xz"))
1321             (sha256
1322              (base32
1323               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1324    (build-system meson-build-system)
1325    (native-inputs
1326     `(("gettext" ,gettext-minimal)
1327       ("glib:bin" ,glib "bin")
1328       ("gobject-introspection" ,gobject-introspection)
1329       ("gtk-doc" ,gtk-doc)
1330       ("pkg-config" ,pkg-config)
1331       ("vala" ,vala)))
1332    (inputs
1333     `(("gssdp" ,gssdp)
1334       ("gtk+" ,gtk+)
1335       ("libsoup" ,libsoup)))
1336    (synopsis "PnP API for GNOME")
1337    (description "This package provides GUPnP, an object-oriented framework
1338 for creating UPnP devices and control points, written in C using
1339 @code{GObject} and @code{libsoup}.")
1340    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1341    (license license:lgpl2.0+)))
1342
1343 (define-public gupnp-dlna
1344   (package
1345    (name "gupnp-dlna")
1346    (version "0.10.5")
1347    (source (origin
1348             (method url-fetch)
1349             (uri (string-append "mirror://gnome/sources/" name "/"
1350                                 (version-major+minor version) "/"
1351                                 name "-" version ".tar.xz"))
1352             (sha256
1353              (base32
1354               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1355    (build-system gnu-build-system)
1356    (native-inputs
1357     `(("gettext" ,gettext-minimal)
1358       ("glib:bin" ,glib "bin")
1359       ("gobject-introspection" ,gobject-introspection)
1360       ("gtk-doc" ,gtk-doc)
1361       ("libxml" ,libxml2)
1362       ("pkg-config" ,pkg-config)
1363       ("vala" ,vala)))
1364    (inputs
1365     `(("gstreamer" ,gstreamer)
1366       ("gupnp" ,gupnp)))
1367    (propagated-inputs
1368     `(("gst-plugins-base" ,gst-plugins-base)
1369       ("gst-plugins-good" ,gst-plugins-good)))
1370    (synopsis "GUPnP DLNA for GNOME")
1371    (description "This package provides a small utility library to
1372 support DLNA-related tasks such as media profile guessing, transcoding to a
1373 given profile, etc.  DLNA is a subset of UPnP A/V.")
1374    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1375    (license license:lgpl2.0+)))
1376
1377 (define-public gupnp-av
1378   (package
1379    (name "gupnp-av")
1380    (version "0.12.11")
1381    (source (origin
1382             (method url-fetch)
1383             (uri (string-append "mirror://gnome/sources/" name "/"
1384                                 (version-major+minor version) "/"
1385                                 name "-" version ".tar.xz"))
1386             (sha256
1387              (base32
1388               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1389    (build-system gnu-build-system)
1390    (native-inputs
1391     `(("gettext" ,gettext-minimal)
1392       ("glib:bin" ,glib "bin")
1393       ("gobject-introspection" ,gobject-introspection)
1394       ("gtk-doc" ,gtk-doc)
1395       ("libxml" ,libxml2)
1396       ("pkg-config" ,pkg-config)))
1397    (inputs
1398     `(("gtk+" ,gtk+)
1399       ("gupnp" ,gupnp)))
1400    (synopsis "GUPnP A/V for GNOME")
1401    (description "This package provides a small library for handling
1402 and implementation of UPnP A/V profiles.")
1403    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1404    (license license:lgpl2.0+)))
1405
1406 (define-public libmediaart
1407   (package
1408     (name "libmediaart")
1409     (version "1.9.4")
1410     (source (origin
1411               (method url-fetch)
1412               (uri (string-append "mirror://gnome/sources/" name "/"
1413                                   (version-major+minor version) "/"
1414                                   name "-" version ".tar.xz"))
1415               (sha256
1416                (base32
1417                 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
1418     (build-system gnu-build-system)
1419     (native-inputs
1420      `(("glib:bin" ,glib "bin")
1421        ("pkg-config" ,pkg-config)))
1422     (inputs
1423      `(("gdk-pixbuf" ,gdk-pixbuf)
1424        ("gettext" ,gettext-minimal)
1425        ("gobject-introspection" ,gobject-introspection)
1426        ("gtk+:doc" ,gtk+ "doc")
1427        ("vala" ,vala)))
1428     (synopsis "Media art library for the GNOME desktop")
1429     (description
1430      "The libmediaart library is the foundation for media art caching,
1431 extraction, and lookup for applications on the desktop.")
1432     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1433     (license license:lgpl2.1+)))
1434
1435 (define-public gnome-initial-setup
1436   (package
1437    (name "gnome-initial-setup")
1438    (version "3.32.1")
1439    (source (origin
1440             (method url-fetch)
1441            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1442                                 (version-major+minor version)
1443                                 "/gnome-initial-setup-" version ".tar.xz"))
1444             (sha256
1445              (base32
1446               "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
1447    (build-system meson-build-system)
1448    (arguments
1449     '(#:configure-flags '(;; Enable camera support for user selfie.
1450                           "-Dcheese=auto"
1451                           "-Dsystemd=false")
1452       #:phases (modify-phases %standard-phases
1453                  (add-after 'unpack 'set-gkbd-file-name
1454                    (lambda* (#:key inputs #:allow-other-keys)
1455                      ;; Allow the "Preview" button in the keyboard layout
1456                      ;; selection dialog to display the layout.
1457                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1458                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1459                          (("\"gkbd-keyboard-display")
1460                           (string-append "\"" libgnomekbd
1461                                          "/bin/gkbd-keyboard-display")))
1462                        #t))))))
1463    (native-inputs
1464     `(("gettext" ,gettext-minimal)
1465       ("glib:bin" ,glib "bin")
1466       ("gobject-introspection" ,gobject-introspection)
1467       ("gtk+:bin" ,gtk+ "bin")
1468       ("pkg-config" ,pkg-config)))
1469    (inputs
1470     `(("accountsservice" ,accountsservice)
1471       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1472       ("gdm" ,gdm)
1473       ("geoclue" ,geoclue)
1474       ("gnome-desktop" ,gnome-desktop)
1475       ("gnome-getting-started-docs" ,gnome-getting-started-docs)
1476       ("gnome-online-accounts" ,gnome-online-accounts)
1477       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1478       ("gstreamer" ,gstreamer)
1479       ("ibus" ,ibus)
1480       ("json-glib" ,json-glib)
1481       ("krb5" ,mit-krb5)
1482       ("libgweather" ,libgweather)
1483       ("libnma" ,libnma)
1484       ("libsecret" ,libsecret)
1485       ("network-manager" ,network-manager)
1486       ("packagekit" ,packagekit)
1487       ("polkit" ,polkit)
1488       ("pwquality" ,libpwquality)
1489       ("rest" ,rest)
1490       ("upower" ,upower)
1491       ("webkitgtk" ,webkitgtk)
1492       ("libgnomekbd" ,libgnomekbd)))
1493    (synopsis "Initial setup wizard for GNOME desktop")
1494    (description "This package provides a set-up wizard when a
1495 user logs into GNOME for the first time.  It typically provides a
1496 tour of all gnome components and allows the user to set them up.")
1497    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1498    (license license:gpl2)))
1499
1500 (define-public gnome-user-share
1501   (package
1502    (name "gnome-user-share")
1503    (version "3.33.1")
1504    (source (origin
1505             (method url-fetch)
1506             (uri (string-append "mirror://gnome/sources/" name "/"
1507                                 (version-major+minor version) "/"
1508                                 name "-" version ".tar.xz"))
1509             (sha256
1510              (base32
1511               "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
1512    (build-system meson-build-system)
1513    (arguments
1514     `(#:glib-or-gtk? #t
1515       #:configure-flags
1516        `("-Dsystemd=false"
1517          ;; Enable nautilus extension for file sharing.
1518          "-Dnautilus_extension=true")))
1519    (native-inputs
1520     `(("gettext" ,gettext-minimal)
1521       ("glib:bin" ,glib "bin")
1522       ("gobject-introspection" ,gobject-introspection)
1523       ("gtk+:bin" ,gtk+ "bin")
1524       ("pkg-config" ,pkg-config)
1525       ("yelp-tools" ,yelp-tools)))
1526    (inputs
1527     `(("glib" ,glib)
1528       ("gnome-bluetooth" ,gnome-bluetooth)
1529       ("gtk+" ,gtk+)
1530       ("libcanberra" ,libcanberra)
1531       ("libnotify" ,libnotify)
1532       ("nautilus" ,nautilus)))      ; For nautilus extension.
1533    (synopsis "File sharing for GNOME desktop")
1534    (description "GNOME User Share is a small package that binds together
1535 various free software projects to bring easy to use user-level file
1536 sharing to the masses.")
1537    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1538    (license license:gpl2+)))
1539
1540 (define-public sushi
1541   (package
1542     (name "sushi")
1543     (version "3.32.1")
1544     (source (origin
1545               (method url-fetch)
1546               (uri (string-append "mirror://gnome/sources/" name "/"
1547                                   (version-major+minor version) "/"
1548                                   name "-" version ".tar.xz"))
1549               (sha256
1550                (base32
1551                 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
1552     (build-system meson-build-system)
1553     (arguments
1554      `(#:glib-or-gtk? #t
1555        #:phases
1556        (modify-phases %standard-phases
1557          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1558            (lambda* (#:key outputs #:allow-other-keys)
1559              (let ((prog (string-append (assoc-ref outputs "out")
1560                                         "/bin/sushi")))
1561                ;; Put existing typelibs before sushi's deps, so as to correctly
1562                ;; infer gdk-pixbuf
1563                (wrap-program prog
1564                  `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
1565                #t))))))
1566     (native-inputs
1567      `(("glib:bin" ,glib "bin")
1568        ("gettext" ,gettext-minimal)
1569        ("gobject-introspection" ,gobject-introspection)
1570        ("pkg-config" ,pkg-config)))
1571     (inputs
1572      `(("clutter" ,clutter)
1573        ("clutter-gst" ,clutter-gst)
1574        ("clutter-gtk" ,clutter-gtk)
1575        ("evince" ,evince)                         ; For file previewing.
1576        ("freetype" ,freetype)
1577        ("gdk-pixbuf" ,gdk-pixbuf)
1578        ("gjs" ,gjs)
1579        ("gst-plugins-base" ,gst-plugins-base)
1580        ("gstreamer" ,gstreamer)
1581        ("gtksourceview" ,gtksourceview-3)
1582        ("harfbuzz" ,harfbuzz)
1583        ("libepoxy" ,libepoxy)
1584        ("libmusicbrainz" ,libmusicbrainz)
1585        ("libxml2" ,libxml2)
1586        ("neon" ,neon)
1587        ("webkitgtk" ,webkitgtk)))
1588     (synopsis "File previewer for the GNOME desktop")
1589     (description "Sushi is a DBus-activated service that allows applications to
1590 preview files on the GNOME desktop.")
1591     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1592     (license license:gpl2+)))
1593
1594 (define-public rygel
1595   (package
1596     (name "rygel")
1597     (version "0.38.3")
1598     (source (origin
1599               (method url-fetch)
1600               (uri (string-append "mirror://gnome/sources/" name "/"
1601                                   (version-major+minor version) "/"
1602                                   name "-" version ".tar.xz"))
1603               (sha256
1604                (base32
1605                 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
1606     (build-system gnu-build-system)
1607     (native-inputs
1608      `(("gettext" ,gettext-minimal)
1609        ("gobject-introspection" ,gobject-introspection)
1610        ("gtk-doc" ,gtk-doc)
1611        ("pkg-config" ,pkg-config)
1612        ("vala" ,vala)))
1613     (inputs
1614      `(("gdk-pixbuf" ,gdk-pixbuf)
1615        ("gssdp" ,gssdp)
1616        ("gstreamer" ,gstreamer)
1617        ("gst-plugins-base" ,gst-plugins-base)
1618        ("gtk+" ,gtk+)
1619        ("gupnp" ,gupnp)
1620        ("gupnp-av" ,gupnp-av)
1621        ("gupnp-dlna" ,gupnp-dlna)
1622        ("libgee" ,libgee)
1623        ("libmediaart" ,libmediaart)
1624        ("libsoup" ,libsoup)
1625        ("libxslt" ,libxslt)
1626        ("libunistring" ,libunistring)
1627        ("tracker" ,tracker)))
1628     (synopsis "Share audio, video, and pictures with other devices")
1629     (description
1630      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1631 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1632 pictures, and to control a media player on your home network.
1633
1634 Rygel achieves interoperability with other devices by trying to conform to the
1635 strict requirements of DLNA and by converting media on-the-fly to formats that
1636 client devices can handle.")
1637     (home-page "https://wiki.gnome.org/Projects/Rygel")
1638     (license (list
1639               ;; For logo (data/icons/*).
1640               license:cc-by-sa3.0
1641               ;; For all others.
1642               license:lgpl2.1+))))
1643
1644 (define-public libnma
1645   (package
1646     (name "libnma")
1647     (version "1.8.28")
1648     (source (origin
1649               (method url-fetch)
1650               (uri (string-append "mirror://gnome/sources/" name "/"
1651                                   (version-major+minor version) "/"
1652                                   name "-" version ".tar.xz"))
1653               (sha256
1654                (base32
1655                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1656     (build-system meson-build-system)
1657     (arguments
1658      `(#:phases
1659        (modify-phases %standard-phases
1660          (add-after 'unpack 'patch-docbook-xml
1661            (lambda* (#:key inputs #:allow-other-keys)
1662              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1663                                           "/xml/dtd/docbook")))
1664                (substitute* "libnma-docs.xml"
1665                  (("http://.*/docbookx\\.dtd")
1666                   (string-append xmldoc "/docbookx.dtd")))
1667                #t))))))
1668     (native-inputs
1669      `(("docbook-xml" ,docbook-xml-4.3)
1670        ("gettext" ,gettext-minimal)
1671        ("glib:bin" ,glib "bin")
1672        ("gtk-doc" ,gtk-doc)
1673        ("gobject-introspection" ,gobject-introspection)
1674        ("pkg-config" ,pkg-config)
1675        ("vala" ,vala)))
1676     (inputs
1677      `(("gcr" ,gcr)
1678        ("gtk+" ,gtk+)
1679        ("iso-codes" ,iso-codes)
1680        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1681        ("network-manager" ,network-manager)))
1682     (synopsis "Network Manager's applet library")
1683     (description "Libnma is an applet library for Network Manager.  It was
1684 initially part of network-manager-applet and has now become a separate
1685 project.")
1686     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1687     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1688     ;; "LGPL-2.1+".
1689     (license license:gpl2+)))
1690
1691 (define-public gnome-menus
1692   (package
1693     (name "gnome-menus")
1694     (version "3.32.0")
1695     (source (origin
1696               (method url-fetch)
1697               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1698                                   (version-major+minor version) "/"
1699                                   name "-" version ".tar.xz"))
1700               (sha256
1701                (base32
1702                 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
1703     (build-system gnu-build-system)
1704     (native-inputs
1705      `(("gettext" ,gettext-minimal)
1706        ("glib" ,glib)
1707        ("pkg-config" ,pkg-config)))
1708     (synopsis "Menu support for GNOME desktop")
1709     (description "GNOME Menus contains the libgnome-menu library, the layout
1710 configuration files for the GNOME menu, as well as a simple menu editor.")
1711     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1712     (license license:lgpl2.0+)))
1713
1714 (define-public deja-dup
1715   (package
1716     (name "deja-dup")
1717     (version "40.6")
1718     (source (origin
1719               (method url-fetch)
1720               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1721                                   version "/deja-dup-" version ".tar.bz2"))
1722               (sha256
1723                (base32
1724                 "0lwazh6crby5wpy9fg6zvwy4plqbhs2f98bm5lbizjdlbh88n5q0"))))
1725     (build-system meson-build-system)
1726     (arguments
1727      `(#:glib-or-gtk? #t
1728        #:configure-flags
1729        (list
1730         ;; Otherwise, the RUNPATH will lack the final path component.
1731         (string-append "-Dc_link_args=-Wl,-rpath="
1732                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1733        #:phases
1734        (modify-phases %standard-phases
1735          (add-after 'unpack 'patch-paths
1736            (lambda* (#:key inputs #:allow-other-keys)
1737              (let ((python (assoc-ref inputs "python")))
1738                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1739                               "libdeja/tests/scripts/instance-error.test")
1740                  (("/bin/rm")
1741                   (which "rm")))
1742                (substitute* "libdeja/tests/runner.vala"
1743                  (("/bin/sh")
1744                   (which "sh")))
1745                (substitute* "libdeja/tests/scripts/instance-error.test"
1746                  (("`which python3`")
1747                   (string-append python "/bin/python3"))))))
1748          (add-after 'unpack 'patch-libgpg-error
1749            (lambda* (#:key inputs #:allow-other-keys)
1750              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1751                (substitute* "meson.build"
1752                  (("(gpgerror_libs = ).*" _ var)
1753                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1754              #t))
1755          (add-after 'unpack 'skip-gtk-update-icon-cache
1756            ;; Don't create 'icon-theme.cache'.
1757            (lambda _
1758              (substitute* "data/post-install.sh"
1759                (("gtk-update-icon-cache") "true"))
1760              #t)))))
1761     (inputs
1762      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1763        ("duplicity" ,duplicity)
1764        ("python" ,python)
1765        ("python-pygobject" ,python-pygobject)
1766        ("gtk+" ,gtk+)
1767        ("json-glib" ,json-glib)
1768        ("libnotify" ,libnotify)
1769        ("libgpg-error" ,libgpg-error)
1770        ("libsecret" ,libsecret)
1771        ("libsoup" ,libsoup)
1772        ("packagekit" ,packagekit)))
1773     (native-inputs
1774      `(("appstream-glib" ,appstream-glib)
1775        ("desktop-file-utils" ,desktop-file-utils)
1776        ("gettext" ,gettext-minimal)
1777        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1778        ("gobject-introspection" ,gobject-introspection)
1779        ("itstool" ,itstool)
1780        ("pkg-config" ,pkg-config)
1781        ("vala" ,vala)))
1782     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1783     (synopsis "Simple backup tool, for regular encrypted backups")
1784     (description
1785      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1786 uses duplicity as the backend, which supports incremental backups and storage
1787 either on a local, or remote machine via a number of methods.")
1788     (license license:gpl3+)))
1789
1790 (define-public gnome-commander
1791   (package
1792     (name "gnome-commander")
1793     (version "1.10.3")
1794     (source
1795      (origin
1796        (method url-fetch)
1797        (uri (string-append "mirror://gnome/sources/" name "/"
1798                            (version-major+minor version)  "/"
1799                            "gnome-commander-" version ".tar.xz"))
1800        (sha256
1801         (base32 "0bis36awb73vhkncq8yr0qlnyaxynqkvmyqbg57ijqwd0m8hh4zg"))))
1802     (build-system glib-or-gtk-build-system)
1803     (native-inputs
1804      `(("desktop-file-utils" ,desktop-file-utils)
1805        ("gcc" ,gcc-8) ;required for -Wcast-function-type
1806        ("gettext" ,gettext-minimal)
1807        ("glib:bin" ,glib "bin")
1808        ("gobject-introspection" ,gobject-introspection)
1809        ("googletest" ,googletest)
1810        ("intltool" ,intltool)
1811        ("itstool" ,itstool)
1812        ("libtool" ,libtool)
1813        ("pkg-config" ,pkg-config)))
1814     (inputs
1815      `(("gconf" ,gconf)
1816        ("gnome-vfs" ,gnome-vfs)
1817        ("gtk+" ,gtk+-2)
1818        ("libxml2" ,libxml2)))
1819     (home-page "https://gcmd.github.io/")
1820     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1821     (description
1822      "GNOME Commander is a two-pane graphical file manager using GNOME
1823 libraries.  It aims to fulfill the demands of more advanced users who
1824 like to focus on file management, their work through special applications
1825 and running smart commands.")
1826     (license license:gpl2+)))
1827
1828 (define-public gnome-user-docs
1829   (package
1830    (name "gnome-user-docs")
1831    (version "3.32.3")
1832    (source
1833     (origin
1834       (method url-fetch)
1835       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1836                           (version-major+minor version)
1837                           "/gnome-user-docs-" version ".tar.xz"))
1838       (sha256
1839        (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
1840    (build-system gnu-build-system)
1841    (native-inputs
1842     `(("gettext" ,gettext-minimal)
1843       ("itstool" ,itstool)
1844       ("pkg-config" ,pkg-config)
1845       ("xmllint" ,libxml2)))
1846    (synopsis "User documentation for the GNOME desktop")
1847    (description
1848     "The GNOME User Documentation explains how to use the GNOME desktop and its
1849 components.  It covers usage and setup of the core GNOME programs by end-users
1850 and system administrators.")
1851    (home-page "https://live.gnome.org/DocumentationProject")
1852    (license license:cc-by3.0)))
1853
1854 (define-public gnome-getting-started-docs
1855   (package
1856    (name "gnome-getting-started-docs")
1857    (version "3.32.2")
1858    (source
1859     (origin
1860       (method url-fetch)
1861       (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
1862                           (version-major+minor version)
1863                           "/gnome-getting-started-docs-" version ".tar.xz"))
1864       (sha256
1865        (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
1866    (build-system gnu-build-system)
1867    (native-inputs
1868     `(("gettext" ,gettext-minimal)
1869       ("itstool" ,itstool)
1870       ("pkg-config" ,pkg-config)
1871       ("xmllint" ,libxml2)))
1872    (synopsis "Help to get new users started with the GNOME desktop")
1873    (description
1874     "The GNOME Getting Started Documentation contains GNOME's intuitive
1875 \"Getting Started\" tour, with video guides, that can be viewed with Yelp.
1876
1877 It is normally used together with @command{gnome-initial-setup}, but is also
1878 useful as a tutorial and users' guide for new or less experienced users.")
1879    (home-page "https://live.gnome.org/DocumentationProject")
1880    (license license:cc-by-sa3.0)))
1881
1882 (define-public dia
1883   ;; This version from GNOME's repository includes fixes for compiling with
1884   ;; recent versions of the build tools.  The latest activity on the
1885   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1886   ;; fixes since.
1887   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1888         (revision "2"))
1889     (package
1890       (name "dia")
1891       (version (git-version "0.97.3" revision commit))
1892       (source (origin
1893                 (method git-fetch)
1894                 (uri (git-reference
1895                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1896                       (commit commit)))
1897                 (file-name (git-file-name name version))
1898                 (sha256
1899                  (base32
1900                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1901       (build-system meson-build-system)
1902       (inputs
1903        `(("graphene" ,graphene)
1904          ("gtk+" ,gtk+-2)
1905          ("libxml2" ,libxml2)
1906          ("libxslt" ,libxslt)
1907          ("poppler" ,poppler)
1908          ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1909          ;; ERROR: Unknown method "dependency" in object.
1910          ("python-2" ,python-2)))
1911       (native-inputs
1912        `(("appstream-glib" ,appstream-glib)
1913          ("docbook-xsl" ,docbook-xsl)
1914          ("glib" ,glib "bin")
1915          ("intltool" ,intltool)
1916          ("pkg-config" ,pkg-config)))
1917       (home-page "https://wiki.gnome.org/Apps/Dia")
1918       (synopsis "Diagram creation for GNOME")
1919       (description "Dia can be used to draw different types of diagrams, and
1920 includes support for UML static structure diagrams (class diagrams), entity
1921 relationship modeling, and network diagrams.  The program supports various file
1922 formats like PNG, SVG, PDF and EPS.")
1923       (license license:gpl2+))))
1924
1925 ;; This is the unstable release, but it is required for the current stable
1926 ;; release of gvfs (1.38.1).
1927 (define-public libgdata
1928   (package
1929     (name "libgdata")
1930     (version "0.17.9")
1931     (source (origin
1932               (method url-fetch)
1933               (uri (string-append "mirror://gnome/sources/" name "/"
1934                                   (version-major+minor version)  "/"
1935                                   name "-" version ".tar.xz"))
1936               (sha256
1937                (base32
1938                 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
1939     (build-system gnu-build-system)
1940     (arguments
1941      '(#:phases
1942        (modify-phases %standard-phases
1943          (add-before 'check 'disable-failing-tests
1944            (lambda _
1945              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1946              ;; They have been removed in libgdata 0.17.6, so just do the same.
1947              (substitute* "gdata/tests/Makefile"
1948                (("picasaweb\\$\\(EXEEXT\\) ") ""))
1949              #t)))))
1950     (native-inputs
1951      `(("glib:bin" ,glib "bin")
1952        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1953        ("intltool" ,intltool)
1954        ("pkg-config" ,pkg-config)
1955        ("uhttpmock" ,uhttpmock)))
1956     (inputs
1957      `(("cyrus-sasl" ,cyrus-sasl)
1958        ("glib-networking" ,glib-networking)))
1959     (propagated-inputs
1960      `(("gcr" ,gcr)
1961        ("glib" ,glib)
1962        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1963        ("json-glib" ,json-glib)
1964        ("liboauth" ,liboauth)
1965        ("libsoup" ,libsoup)
1966        ("libxml2" ,libxml2)))
1967     (home-page "https://wiki.gnome.org/Projects/libgdata")
1968     (synopsis "Library for accessing online service APIs")
1969     (description
1970      "libgdata is a GLib-based library for accessing online service APIs using
1971 the GData protocol — most notably, Google's services.  It provides APIs to
1972 access the common Google services, and has full asynchronous support.")
1973     (license license:lgpl2.1+)))
1974
1975 (define-public libgxps
1976   (package
1977     (name "libgxps")
1978     (version "0.3.2")
1979     (source (origin
1980               (method url-fetch)
1981               (uri (string-append "mirror://gnome/sources/" name "/"
1982                                   (version-major+minor version) "/"
1983                                   name "-" version ".tar.xz"))
1984               (sha256
1985                (base32
1986                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
1987     (build-system meson-build-system)
1988     (native-inputs
1989      `(("gobject-introspection" ,gobject-introspection)
1990        ("pkg-config" ,pkg-config)))
1991     (inputs
1992      `(("gtk+" ,gtk+)
1993        ("libjpeg" ,libjpeg-turbo)
1994        ("lcms" ,lcms)
1995        ("libtiff" ,libtiff)))
1996     (propagated-inputs
1997      ;; In Requires of libgxps.pc.
1998      `(("cairo" ,cairo)
1999        ("glib" ,glib)
2000        ("libarchive" ,libarchive)))
2001     (home-page "https://wiki.gnome.org/Projects/libgxps")
2002     (synopsis "GObject-based library for handling and rendering XPS documents")
2003     (description
2004      "libgxps is a GObject-based library for handling and rendering XPS
2005 documents.  This package also contains binaries that can convert XPS documents
2006 to other formats.")
2007     (license license:lgpl2.1+)))
2008
2009 (define-public gnome-characters
2010   (package
2011     (name "gnome-characters")
2012     (version "3.30.0")
2013     (source
2014      (origin
2015        (method url-fetch)
2016        (uri (string-append "mirror://gnome/sources/"
2017                            "gnome-characters/" (version-major+minor version)
2018                            "/gnome-characters-" version ".tar.xz"))
2019        (sha256
2020         (base32
2021          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
2022     (build-system meson-build-system)
2023     (arguments
2024      `(#:glib-or-gtk? #t
2025        #:phases (modify-phases %standard-phases
2026                   (add-after 'install 'wrap
2027                     (lambda* (#:key outputs #:allow-other-keys)
2028                       ;; GNOME Characters needs Typelib files from GTK and
2029                       ;; gnome-desktop.
2030                       (wrap-program (string-append (assoc-ref outputs "out")
2031                                                    "/bin/gnome-characters")
2032                         `("GI_TYPELIB_PATH" ":" prefix
2033                           (,(getenv "GI_TYPELIB_PATH"))))
2034                       #t)))))
2035     (native-inputs
2036      `(("gettext" ,gettext-minimal)
2037        ("glib:bin" ,glib "bin")
2038        ("gtk+:bin" ,gtk+ "bin")
2039        ("pkg-config" ,pkg-config)
2040        ("python" ,python-minimal)))
2041     (inputs
2042      `(("gjs" ,gjs)
2043        ("gtk+" ,gtk+)
2044        ("libunistring" ,libunistring)
2045        ("gnome-desktop" ,gnome-desktop)))
2046     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2047     (synopsis "Find and insert unusual characters")
2048     (description "Characters is a simple utility application to find
2049 and insert unusual characters.  It allows you to quickly find the
2050 character you are looking for by searching for keywords.")
2051     (license license:bsd-3)))
2052
2053 (define-public gnome-common
2054   (package
2055     (name "gnome-common")
2056     (version "3.18.0")
2057     (source
2058      (origin
2059        (method url-fetch)
2060        (uri (string-append "mirror://gnome/sources/" name "/"
2061                            (version-major+minor version)  "/"
2062                            name "-" version ".tar.xz"))
2063        (sha256
2064         (base32
2065          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2066     (build-system gnu-build-system)
2067     (home-page "https://www.gnome.org/")
2068     (synopsis "Bootstrap GNOME modules built from Git")
2069     (description "gnome-common contains various files needed to bootstrap
2070 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2071 can be used to configure a source directory checked out from Git and some
2072 commonly used macros.")
2073     (license license:gpl2+)))
2074
2075 (define-public gnome-contacts
2076   (package
2077     (name "gnome-contacts")
2078     (version "3.34")
2079     (source (origin
2080               (method url-fetch)
2081               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2082                                   (version-major+minor version) "/"
2083                                   name "-" version ".tar.xz"))
2084               (sha256
2085                (base32
2086                 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
2087     (build-system meson-build-system)
2088     (arguments
2089      `(#:configure-flags '("-Dcheese=false")
2090        #:phases
2091        (modify-phases %standard-phases
2092          (add-after 'unpack 'generate-vapis
2093            (lambda* (#:key inputs #:allow-other-keys)
2094              ;; To generate goa's missing .vapi file
2095              (define goa
2096                (assoc-ref inputs "gnome-online-accounts:lib"))
2097
2098              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2099                      "--library=goa-1.0"
2100                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
2101              #t))
2102          (add-after 'unpack 'skip-gtk-update-icon-cache
2103            ;; Don't create 'icon-theme.cache'.
2104            (lambda _
2105              (substitute* "build-aux/meson_post_install.py"
2106                (("gtk-update-icon-cache") "true"))
2107              #t)))))
2108     (native-inputs
2109      `(("glib:bin" ,glib "bin")
2110        ("pkg-config" ,pkg-config)))
2111     (inputs
2112      `(("docbook-xml" ,docbook-xml)
2113        ("dockbook-xsl" ,docbook-xsl)
2114        ("evolution-data-server" ,evolution-data-server)
2115        ("gettext" ,gettext-minimal)
2116        ("gnome-desktop" ,gnome-desktop)
2117        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2118        ("gobject-introspection" ,gobject-introspection)
2119        ("gst-plugins-base" ,gst-plugins-base)
2120        ("gtk+" ,gtk+)
2121        ("libgee" ,libgee)
2122        ("libxslt" ,libxslt)
2123        ("telepathy-glib" ,telepathy-glib)
2124        ("vala" ,vala)))
2125     (propagated-inputs
2126      `(("folks" ,folks)
2127        ("telepathy-mission-control" ,telepathy-mission-control)))
2128     (synopsis "GNOME's integrated address book")
2129     (description
2130      "GNOME Contacts organizes your contact information from online and
2131 offline sources, providing a centralized place for managing your contacts.")
2132     (home-page "https://wiki.gnome.org/Apps/Contacts")
2133     (license license:gpl2+)))
2134
2135 (define-public gnome-desktop
2136   (package
2137     (name "gnome-desktop")
2138     (version "3.34.2")
2139     (source
2140      (origin
2141       (method url-fetch)
2142       (uri (string-append "mirror://gnome/sources/" name "/"
2143                           (version-major+minor version)  "/"
2144                           name "-" version ".tar.xz"))
2145       (sha256
2146        (base32
2147         "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
2148     (build-system meson-build-system)
2149     (arguments
2150      '(#:phases
2151        (modify-phases %standard-phases
2152          (add-before 'configure 'patch-path
2153            (lambda* (#:key inputs #:allow-other-keys)
2154              (let ((libc   (assoc-ref inputs "libc")))
2155                (substitute* "libgnome-desktop/gnome-languages.c"
2156                  (("\"locale\"")
2157                   (string-append "\"" libc "/bin/locale\"")))
2158                #t)))
2159          (add-before 'configure 'patch-bubblewrap
2160            (lambda* (#:key inputs #:allow-other-keys)
2161              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2162                (("\"bwrap\",")
2163                 (string-append "\"" (which "bwrap") "\","))
2164                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2165                 (string-append "\"--ro-bind\", \""
2166                                (%store-directory)
2167                                "\", \""
2168                                (%store-directory)
2169                                "\","))
2170                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2171              #t))
2172          (add-before 'check 'pre-check
2173            (lambda* (#:key inputs #:allow-other-keys)
2174              ;; Tests require a running X server and locales.
2175              (system "Xvfb :1 &")
2176              (setenv "DISPLAY" ":1")
2177              (setenv "GUIX_LOCPATH"
2178                      (string-append (assoc-ref inputs "glibc-locales")
2179                                     "/lib/locale"))
2180              #t)))))
2181     (native-inputs
2182      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2183        ("glibc-locales" ,glibc-locales) ; for tests
2184        ("gobject-introspection" ,gobject-introspection)
2185        ("itstool" ,itstool)
2186        ("intltool" ,intltool)
2187        ("pkg-config" ,pkg-config)
2188        ("xmllint" ,libxml2)
2189        ("xorg-server" ,xorg-server-for-tests)))
2190     (propagated-inputs
2191      ;; Required by gnome-desktop-3.0.pc.
2192      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2193        ("gtk+" ,gtk+)
2194        ("iso-codes" ,iso-codes)
2195        ("libseccomp" ,libseccomp)
2196        ("libx11" ,libx11)
2197        ("xkeyboard-config" ,xkeyboard-config)))
2198     (inputs
2199      `(("gdk-pixbuf" ,gdk-pixbuf)
2200        ("glib" ,glib)
2201        ("bubblewrap" ,bubblewrap)
2202        ("libxext" ,libxext)
2203        ("libxkbfile" ,libxkbfile)
2204        ("libxrandr" ,libxrandr)))
2205     (home-page "https://www.gnome.org/")
2206     (synopsis
2207      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2208     (description
2209      "The libgnome-desktop library provides API shared by several applications
2210 on the desktop, but that cannot live in the platform for various reasons.
2211 There is no API or ABI guarantee, although we are doing our best to provide
2212 stability.  Documentation for the API is available with gtk-doc.
2213
2214 The gnome-about program helps find which version of GNOME is installed.")
2215     ; Some bits under the LGPL.
2216     (license license:gpl2+)))
2217
2218 (define-public gnome-doc-utils
2219   (package
2220     (name "gnome-doc-utils")
2221     (version "0.20.10")
2222     (source
2223      (origin
2224       (method url-fetch)
2225       (uri (string-append "mirror://gnome/sources/" name "/"
2226                           (version-major+minor version)  "/"
2227                           name "-" version ".tar.xz"))
2228       (sha256
2229        (base32
2230         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2231     (build-system gnu-build-system)
2232     (native-inputs
2233      `(("intltool" ,intltool)
2234        ("docbook-xml" ,docbook-xml-4.4)
2235        ("python2-libxml2" ,python2-libxml2)
2236        ("libxml2" ,libxml2)
2237        ("libxslt" ,libxslt)
2238        ("pkg-config" ,pkg-config)
2239        ("python-2" ,python-2)))
2240     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2241     (synopsis
2242      "Documentation utilities for the Gnome project")
2243     (description
2244      "Gnome-doc-utils is a collection of documentation utilities for the
2245 Gnome project.  It includes xml2po tool which makes it easier to translate
2246 and keep up to date translations of documentation.")
2247     (license license:gpl2+))) ; xslt under lgpl
2248
2249 (define-public gnome-disk-utility
2250   (package
2251     (name "gnome-disk-utility")
2252     (version "3.34.0")
2253     (source (origin
2254               (method url-fetch)
2255               (uri (string-append "mirror://gnome/sources/" name "/"
2256                                   (version-major+minor version) "/"
2257                                   name "-" version ".tar.xz"))
2258               (sha256
2259                (base32
2260                 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
2261     (build-system meson-build-system)
2262     (arguments
2263      '(#:configure-flags '("-Dlogind=libelogind")
2264        #:phases
2265        (modify-phases %standard-phases
2266          (add-after 'unpack 'skip-gtk-update-icon-cache
2267            ;; Don't create 'icon-theme.cache'.
2268            (lambda _
2269              (substitute* "meson_post_install.py"
2270                (("gtk-update-icon-cache") "true"))
2271              #t)))))
2272     (native-inputs
2273      `(("glib:bin" ,glib "bin")
2274        ("intltool" ,intltool)
2275        ("pkg-config" ,pkg-config)
2276        ("docbook-xml" ,docbook-xml)
2277        ("docbook-xsl" ,docbook-xsl)
2278        ("libxml2" ,libxml2)
2279        ("libxslt" ,libxslt)))
2280     (inputs
2281      `(("elogind" ,elogind)
2282        ("glib" ,glib)
2283        ("appstream-glib" ,appstream-glib)
2284        ("gnome-settings-daemon" ,gnome-settings-daemon)
2285        ("gtk+" ,gtk+)
2286        ("libcanberra" ,libcanberra)
2287        ("libdvdread" ,libdvdread)
2288        ("libnotify" ,libnotify)
2289        ("libpwquality" ,libpwquality)
2290        ("libsecret" ,libsecret)
2291        ("udisks" ,udisks)))
2292     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2293     (synopsis "Disk management utility for GNOME")
2294     (description "Disk management utility for GNOME.")
2295     (license license:gpl2+)))
2296
2297 (define-public gnome-font-viewer
2298   (package
2299     (name "gnome-font-viewer")
2300     (version "3.30.0")
2301     (source (origin
2302               (method url-fetch)
2303               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2304                                   (version-major+minor version)
2305                                   "/gnome-font-viewer-" version ".tar.xz"))
2306               (sha256
2307                (base32
2308                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
2309     (build-system meson-build-system)
2310     (arguments
2311      '(#:phases
2312        (modify-phases %standard-phases
2313          (add-after 'unpack 'patch-post-install-script
2314            (lambda _
2315              (substitute* "meson-postinstall.sh"
2316                (("update-desktop-database") (which "true")))
2317              #t))
2318          (add-after 'install 'patch-thumbnailer
2319            (lambda* (#:key outputs #:allow-other-keys)
2320              (let ((out (assoc-ref outputs "out")))
2321                (substitute*
2322                    (string-append
2323                     out
2324                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2325                  (("gnome-thumbnail-font")
2326                   (string-append out "/bin/gnome-thumbnail-font"))))
2327              #t)))))
2328     (native-inputs
2329      `(("gettext" ,gettext-minimal)
2330        ("glib:bin" ,glib "bin")
2331        ("pkg-config" ,pkg-config)))
2332     (inputs
2333      `(("glib" ,glib)
2334        ("gnome-desktop" ,gnome-desktop)
2335        ("gtk+" ,gtk+)))
2336     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2337     (synopsis "GNOME Fonts")
2338     (description "Application to show you the fonts installed on your computer
2339 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2340 the font would look under various sizes.")
2341     (license license:gpl2+)))
2342
2343 (define-public gcr
2344   (package
2345     (name "gcr")
2346     (version "3.34.0")
2347     (source (origin
2348               (method url-fetch)
2349               (uri (string-append "mirror://gnome/sources/" name "/"
2350                                   (version-major+minor version)  "/"
2351                                   name "-" version ".tar.xz"))
2352               (sha256
2353                (base32
2354                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
2355     (build-system gnu-build-system)
2356     (arguments
2357      '(#:phases
2358        (modify-phases %standard-phases
2359          ;; These fail because /var/lib/dbus/machine-id is not present in the
2360          ;; build environment.
2361          (add-after 'unpack 'disable-failing-tests
2362            (lambda _
2363              (substitute* "Makefile.in"
2364                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
2365                 ""))
2366              #t))
2367          (add-before 'check 'pre-check
2368            (lambda _
2369              ;; Some tests expect to write to $HOME.
2370              (setenv "HOME" "/tmp")
2371              #t)))))
2372     (inputs
2373      `(("dbus" ,dbus)
2374        ("gnupg" ,gnupg)                ;called as a child process during tests
2375        ("libgcrypt" ,libgcrypt)))
2376     (native-inputs
2377      `(("python" ,python-wrapper)       ;for tests
2378        ("pkg-config" ,pkg-config)
2379        ("gettext" ,gettext-minimal)
2380        ("glib" ,glib "bin")
2381        ("gobject-introspection" ,gobject-introspection)
2382        ("libxml2" ,libxml2)
2383        ("vala" ,vala)
2384        ("xsltproc" ,libxslt)))
2385     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2386     (propagated-inputs
2387      `(("p11-kit" ,p11-kit)
2388        ("glib" ,glib)
2389        ("gtk+" ,gtk+)))
2390     (home-page "https://www.gnome.org")
2391     (synopsis "Libraries for displaying certificates and accessing key stores")
2392     (description
2393      "The GCR package contains libraries used for displaying certificates and
2394 accessing key stores.  It also provides the viewer for crypto files on the
2395 GNOME Desktop.")
2396     (license license:lgpl2.1+)))
2397
2398 (define-public gdl
2399   (package
2400     (name "gdl")
2401     (version "3.34.0")
2402     (source (origin
2403               (method git-fetch)
2404               (uri (git-reference
2405                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2406                     (commit (string-append "GDL_" (string-map (match-lambda
2407                                                                 (#\. #\_)
2408                                                                 (c c))
2409                                                               version)))))
2410               (file-name (git-file-name name version))
2411               (sha256
2412                (base32
2413                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2414     (build-system gnu-build-system)
2415     (native-inputs
2416      `(("autoconf" ,autoconf)
2417        ("automake" ,automake)
2418        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2419        ("gnome-common" ,gnome-common)
2420        ("gtk-doc" ,gtk-doc)
2421        ("intltool" ,intltool)
2422        ("pkg-config" ,pkg-config)
2423        ("libtool" ,libtool)
2424        ("which" ,which)))
2425     (inputs
2426      `(("libxml2" ,libxml2)))
2427     (propagated-inputs
2428      ;; The gdl-3.0.pc file 'Requires' GTK+.
2429      `(("gtk+" ,gtk+)))
2430     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2431     (synopsis "GNOME docking library")
2432     (description "This library provides docking features for gtk+.")
2433     (license license:lgpl2.1+)))
2434
2435 ;;; A minimal variant used to break a cycle with Inkscape.
2436 (define-public gdl-minimal
2437   (package/inherit gdl
2438     (name "gdl-minimal")
2439     (arguments
2440      '(#:phases
2441        (modify-phases %standard-phases
2442          (add-after 'unpack 'disable-doc-generation
2443            ;; XXX: There is no easy way to disable generating the
2444            ;; documentation.
2445            (lambda _
2446              (substitute* "configure.in"
2447                (("GTK_DOC_CHECK.*") "")
2448                (("docs/.*") ""))
2449              (substitute* "Makefile.am"
2450                (("gdl docs po") "gdl po"))
2451              #t)))))
2452     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2453
2454 (define-public libgnome-keyring
2455   (package
2456     (name "libgnome-keyring")
2457     (version "3.12.0")
2458     (source (origin
2459              (method url-fetch)
2460              (uri (string-append "mirror://gnome/sources/" name "/"
2461                                  (version-major+minor version)  "/"
2462                                  name "-" version ".tar.xz"))
2463              (sha256
2464               (base32
2465                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2466     (build-system gnu-build-system)
2467     (inputs
2468      `(("libgcrypt" ,libgcrypt)
2469        ("dbus" ,dbus)))
2470     (native-inputs
2471      `(("pkg-config" ,pkg-config)
2472        ("glib" ,glib "bin")
2473        ("intltool" ,intltool)))
2474     (propagated-inputs
2475      ;; Referred to in .h files and .pc.
2476      `(("glib" ,glib)))
2477     (home-page "https://www.gnome.org")
2478     (synopsis "Accessing passwords from the GNOME keyring")
2479     (description
2480      "Client library to access passwords from the GNOME keyring.")
2481
2482     ;; Though a couple of files are LGPLv2.1+.
2483     (license license:lgpl2.0+)))
2484
2485 (define-public gnome-keyring
2486   (package
2487     (name "gnome-keyring")
2488     (version "3.34.0")
2489     (source (origin
2490              (method url-fetch)
2491              (uri (string-append "mirror://gnome/sources/" name "/"
2492                                  (version-major+minor version)  "/"
2493                                  name "-" version ".tar.xz"))
2494              (sha256
2495               (base32
2496                "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
2497     (build-system gnu-build-system)
2498     (arguments
2499      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2500                    ;not exist
2501        #:configure-flags
2502        (list
2503         (string-append "--with-pkcs11-config="
2504                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2505         (string-append "--with-pkcs11-modules="
2506                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2507        #:phases
2508        (modify-phases %standard-phases
2509          (add-after 'unpack 'fix-/bin/sh-reference
2510            (lambda _
2511              (substitute* "po/Makefile.in.in"
2512                (("/bin/sh") (which "sh")))
2513              #t))
2514          (add-after 'unpack 'fix-docbook
2515            (lambda* (#:key inputs #:allow-other-keys)
2516              (substitute* "docs/Makefile.am"
2517                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2518                 (string-append (assoc-ref inputs "docbook-xsl")
2519                                "/xml/xsl/docbook-xsl-"
2520                                ,(package-version docbook-xsl)
2521                                "/manpages/docbook.xsl")))
2522              (setenv "XML_CATALOG_FILES"
2523                      (string-append (assoc-ref inputs "docbook-xml")
2524                                     "/xml/dtd/docbook/catalog.xml"))
2525              ;; Rerun the whole thing to avoid version mismatch ("This is
2526              ;; Automake 1.15.1, but the definition used by this
2527              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2528              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2529              (invoke "autoconf")
2530              (invoke "aclocal")
2531              (invoke "automake" "-ac"))))))
2532     (inputs
2533      `(("libgcrypt" ,libgcrypt)
2534        ("linux-pam" ,linux-pam)
2535        ("openssh" ,openssh)
2536        ("dbus" ,dbus)
2537        ("gcr" ,gcr)))
2538     (native-inputs
2539      `(("pkg-config" ,pkg-config)
2540        ("glib" ,glib "bin")
2541        ("glib" ,glib) ; for m4 macros
2542        ("python" ,python-2) ;for tests
2543        ("intltool" ,intltool)
2544        ("autoconf" ,autoconf)
2545        ("automake" ,automake)
2546        ("libxslt" ,libxslt) ;for documentation
2547        ("docbook-xml" ,docbook-xml-4.2)
2548        ("docbook-xsl" ,docbook-xsl)))
2549     (propagated-inputs
2550      `(("gcr" ,gcr)))
2551     (home-page "https://www.gnome.org")
2552     (synopsis "Daemon to store passwords and encryption keys")
2553     (description
2554      "gnome-keyring is a program that keeps passwords and other secrets for
2555 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2556 applications locate it via an environment variable or D-Bus.
2557
2558 The program can manage several keyrings, each with its own master password,
2559 and there is also a session keyring which is never stored to disk, but
2560 forgotten when the session ends.")
2561     (license license:lgpl2.1+)))
2562
2563 (define-public evince
2564   (package
2565     (name "evince")
2566     (version "3.36.5")
2567     (source (origin
2568              (method url-fetch)
2569              (uri (string-append "mirror://gnome/sources/evince/"
2570                                  (version-major+minor version) "/"
2571                                  "evince-" version ".tar.xz"))
2572              (sha256
2573               (base32
2574                "0z79jl0j9xq9wgwkfr0d1w1qrdy4447y8shs407n5srr0vixc3bg"))))
2575     (build-system glib-or-gtk-build-system)
2576     (arguments
2577      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
2578        #:phases
2579        (modify-phases %standard-phases
2580          (add-before 'install 'skip-gtk-update-icon-cache
2581            ;; Don't create 'icon-theme.cache'.
2582            (lambda _
2583              (substitute* "data/Makefile"
2584                (("gtk-update-icon-cache") "true"))
2585              #t)))))
2586     (inputs
2587      `(("libarchive" ,libarchive)
2588        ("libgxps" ,libgxps)
2589        ("libspectre" ,libspectre)
2590        ("djvulibre" ,djvulibre)
2591        ("ghostscript" ,ghostscript)
2592        ("poppler" ,poppler)
2593        ("libtiff" ,libtiff)
2594        ;; TODO:
2595        ;;   Build libkpathsea as a shared library for DVI support.
2596        ;; ("libkpathsea" ,texlive-bin)
2597        ("gnome-desktop" ,gnome-desktop)
2598        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2599        ("gspell" ,gspell)
2600        ("libgnome-keyring" ,libgnome-keyring)
2601        ("adwaita-icon-theme" ,adwaita-icon-theme)
2602        ("gdk-pixbuf" ,gdk-pixbuf)
2603        ("atk" ,atk)
2604        ("pango" ,pango)
2605        ("gtk+" ,gtk+)
2606        ("glib" ,glib)
2607        ("libxml2" ,libxml2)
2608        ("libsm" ,libsm)
2609        ("libice" ,libice)
2610        ("shared-mime-info" ,shared-mime-info)
2611        ("dconf" ,dconf)
2612        ("libcanberra" ,libcanberra)
2613        ("libsecret" ,libsecret)
2614
2615        ;; For tests.
2616        ("dogtail" ,python2-dogtail)))
2617     (native-inputs
2618      `(("itstool" ,itstool)
2619        ("intltool" ,intltool)
2620        ("glib" ,glib "bin")
2621        ("gobject-introspection" ,gobject-introspection)
2622        ("pkg-config" ,pkg-config)
2623        ("xmllint" ,libxml2)))
2624     (home-page "https://www.gnome.org/projects/evince/")
2625     (synopsis "GNOME's document viewer")
2626     (description
2627      "Evince is a document viewer for multiple document formats.  It
2628 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2629 of Evince is to replace the multiple document viewers that exist
2630 on the GNOME Desktop with a single simple application.")
2631     (license license:gpl2+)))
2632
2633 (define-public gsettings-desktop-schemas
2634   (package
2635     (name "gsettings-desktop-schemas")
2636     (version "3.34.0")
2637     (source
2638      (origin
2639       (method url-fetch)
2640       (uri (string-append "mirror://gnome/sources/" name "/"
2641                           (version-major+minor version)  "/"
2642                           name "-" version ".tar.xz"))
2643       (sha256
2644        (base32
2645         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
2646     (build-system meson-build-system)
2647     (arguments
2648      '(#:phases (modify-phases %standard-phases
2649                   (add-after 'unpack 'patch-schemas
2650                     (lambda* (#:key inputs #:allow-other-keys)
2651                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2652                         (substitute* (find-files "schemas"
2653                                                  "\\.gschema\\.xml\\.in$")
2654                           ;; Provide the correct file name of the default GNOME
2655                           ;; background, 'adwaita-timed.xml'.
2656                           (("@datadir@/backgrounds/gnome")
2657                            (string-append theme "/share/backgrounds/gnome"))
2658                           ;; Do not reference fonts, that may not exist.
2659                           (("'Source Code Pro 10'") "'Monospace 11'"))
2660                         #t))))))
2661     (inputs
2662      `(("glib" ,glib)
2663        ("gnome-backgrounds" ,gnome-backgrounds)))
2664     (native-inputs
2665      `(("intltool" ,intltool)
2666        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
2667        ("gobject-introspection" ,gobject-introspection)
2668        ("pkg-config" ,pkg-config)))
2669     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2670     (synopsis
2671      "GNOME settings for various desktop components")
2672     (description
2673      "Gsettings-desktop-schemas contains a collection of GSettings schemas
2674 for settings shared by various components of the GNOME desktop.")
2675     (license license:lgpl2.1+)))
2676
2677 (define-public python-liblarch
2678   (package
2679     (name "python-liblarch")
2680     (version "3.0.1")
2681     (source
2682      (origin
2683        (method git-fetch)
2684        (uri (git-reference
2685              (url "https://github.com/getting-things-gnome/liblarch")
2686              (commit (string-append "v" version))))
2687        (file-name (git-file-name name version))
2688        (sha256
2689         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2690     (build-system python-build-system)
2691     (arguments
2692      `(#:phases
2693        (modify-phases %standard-phases
2694          (add-before 'check 'start-xserver
2695            (lambda* (#:key inputs #:allow-other-keys)
2696              (system (format #f "~a/bin/Xvfb :1 &"
2697                              (assoc-ref inputs "xorg-server")))
2698              (setenv "DISPLAY" ":1")
2699              #t)))))
2700     (native-inputs
2701      `(("xorg-server" ,xorg-server-for-tests)))
2702     (inputs
2703      `(("gtk+" ,gtk+)))
2704     (propagated-inputs
2705      `(("python-pygobject" ,python-pygobject)))
2706     (home-page "https://wiki.gnome.org/Projects/liblarch")
2707     (synopsis "Library to easily handle complex data structures")
2708     (description
2709      "Liblarch is a Python library built to easily handle data structures such
2710 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2711 allow you to use your data structure in a @code{Gtk.Treeview}.
2712
2713 Liblarch support multiple views of one data structure and complex filtering.
2714 That way, you have a clear separation between your data themselves (Model)
2715 and how they are displayed (View).")
2716     (license license:lgpl3+)))
2717
2718 (define-public gtg
2719   (package
2720     (name "gtg")
2721     (version "0.4")
2722     (source
2723      (origin
2724        (method git-fetch)
2725        (uri (git-reference
2726              (url "https://github.com/getting-things-gnome/gtg")
2727              (commit (string-append "v" version))))
2728        (file-name (git-file-name name version))
2729        (sha256
2730         (base32 "0r28vyr88rj3kd3cg4gj7sd29wadjchi92wzmbx67d4hlg25h8kk"))))
2731     (build-system meson-build-system)
2732     (arguments
2733      `(#:glib-or-gtk? #t
2734        #:phases
2735        (modify-phases %standard-phases
2736          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2737            (lambda* (#:key outputs #:allow-other-keys)
2738              (let ((prog (string-append (assoc-ref outputs "out")
2739                                         "/bin/gtg"))
2740                    (pylib (string-append (assoc-ref outputs "out")
2741                                          "/lib/python"
2742                                          ,(version-major+minor
2743                                            (package-version python))
2744                                          "/site-packages")))
2745                (wrap-program prog
2746                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
2747                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2748                #t))))))
2749     (native-inputs
2750      `(("desktop-file-utils" ,desktop-file-utils)
2751        ("gettext" ,gettext-minimal)
2752        ("glib:bin" ,glib "bin")
2753        ("gobject-introspection" ,gobject-introspection)
2754        ("gtk+:bin" ,gtk+ "bin")
2755        ("pkg-config" ,pkg-config)))
2756     (inputs
2757      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2758        ("gtk+" ,gtk+)
2759        ("python-dbus" ,python-dbus)
2760        ("python-liblarch" ,python-liblarch)
2761        ("python-pycairo" ,python-pycairo)
2762        ("python-pygobject" ,python-pygobject)
2763        ("python-pyxdg" ,python-pyxdg)))
2764     (home-page "https://wiki.gnome.org/Apps/GTG")
2765     (synopsis "Personal organizer for the GNOME desktop")
2766     (description
2767      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2768 organizer for the GNOME desktop environment inspired by the Getting Things
2769 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2770 and ease of use in mind so it can be used as more than just GTD software.
2771 GTG is intended to help you track everything you need to do and need to
2772 know, from small tasks to large projects.")
2773     (license license:gpl3+)))
2774
2775 (define-public icon-naming-utils
2776   (package
2777     (name "icon-naming-utils")
2778     (version "0.8.90")
2779     (source
2780      (origin
2781       (method url-fetch)
2782       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2783                           version ".tar.bz2"))
2784       (sha256
2785        (base32
2786         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2787     (build-system gnu-build-system)
2788     (inputs
2789      `(("perl" ,perl)
2790        ("perl-xml-simple" ,perl-xml-simple)))
2791     (arguments
2792      '(#:phases
2793        (modify-phases %standard-phases
2794          (add-after 'install 'set-load-paths
2795            ;; Tell 'icon-name-mapping' where XML::Simple is.
2796            (lambda* (#:key outputs #:allow-other-keys)
2797              (let* ((out  (assoc-ref outputs "out"))
2798                     (prog (string-append out "/libexec/icon-name-mapping")))
2799                (wrap-program
2800                    prog
2801                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2802              #t)))))
2803     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2804     (synopsis
2805      "Utility to implement the Freedesktop Icon Naming Specification")
2806     (description
2807      "To help with the transition to the Freedesktop Icon Naming
2808 Specification, the icon naming utility maps the icon names used by the
2809 GNOME and KDE desktops to the icon names proposed in the specification.")
2810     (license license:lgpl2.1+)))
2811
2812 (define-public gnome-icon-theme
2813   (package
2814     (name "gnome-icon-theme")
2815     (version "3.12.0")
2816     (source
2817      (origin
2818       (method url-fetch)
2819       (uri (string-append "mirror://gnome/sources/" name "/"
2820                           (version-major+minor version)  "/"
2821                           name "-" version ".tar.xz"))
2822       (sha256
2823        (base32
2824         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2825     (build-system gnu-build-system)
2826     (arguments
2827      '(#:configure-flags
2828        ;; Don't create 'icon-theme.cache'.
2829        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2830               (true      (string-append coreutils "/bin/true")))
2831          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2832     (native-inputs
2833      `(("icon-naming-utils" ,icon-naming-utils)
2834        ("intltool" ,intltool)
2835        ("pkg-config" ,pkg-config)))
2836     (home-page "https://wiki.gnome.org/Personalization")
2837     (synopsis "GNOME icon theme")
2838     (description "Icons for the GNOME desktop.")
2839     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2840
2841 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2842 (define-public adwaita-icon-theme
2843   (package (inherit gnome-icon-theme)
2844     (name "adwaita-icon-theme")
2845     (version "3.34.3")
2846     (source (origin
2847               (method url-fetch)
2848               (uri (string-append "mirror://gnome/sources/" name "/"
2849                                   (version-major+minor version) "/"
2850                                   name "-" version ".tar.xz"))
2851               (sha256
2852                (base32
2853                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
2854     (native-inputs
2855      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
2856
2857 (define-public tango-icon-theme
2858   (package
2859     (name "tango-icon-theme")
2860     (version "0.8.90")
2861     (source (origin
2862               (method url-fetch)
2863               (uri (string-append "http://tango.freedesktop.org/releases/"
2864                                   "tango-icon-theme-" version ".tar.bz2"))
2865               (sha256
2866                (base32
2867                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2868     (build-system gnu-build-system)
2869     (native-inputs
2870      `(("icon-naming-utils" ,icon-naming-utils)
2871        ("intltool" ,intltool)
2872        ("imagemagick" ,imagemagick)
2873        ("pkg-config" ,pkg-config)))
2874     (home-page "http://tango-project.org/")
2875     (synopsis "Tango icon theme")
2876     (description "This is an icon theme that follows the Tango visual
2877 guidelines.")
2878     (license license:public-domain)))
2879
2880 (define-public shared-mime-info
2881   (package
2882     (name "shared-mime-info")
2883     (version "1.15")
2884     (source (origin
2885              (method url-fetch)
2886              (uri (string-append
2887                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2888                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2889                    ".tar.xz"))
2890              (sha256
2891               (base32
2892                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2893     (build-system gnu-build-system)
2894     (arguments
2895      ;; The build system appears not to be parallel-safe.
2896      '(#:parallel-build? #f))
2897     (inputs
2898      `(("glib" ,glib)
2899        ("libxml2" ,libxml2)))
2900     (native-inputs
2901      `(("gettext" ,gettext-minimal)
2902        ("itstool" ,itstool)
2903        ("pkg-config" ,pkg-config)))
2904     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2905     (synopsis "Database of common MIME types")
2906     (description
2907      "The shared-mime-info package contains the core database of common types
2908 and the update-mime-database command used to extend it.  It requires glib2 to
2909 be installed for building the update command.  Additionally, it uses intltool
2910 for translations, though this is only a dependency for the maintainers.  This
2911 database is translated at Transifex.")
2912     (license license:gpl2+)))
2913
2914 (define-public system-config-printer
2915   (package
2916     (name "system-config-printer")
2917     (version "1.5.15")
2918     (source
2919      (origin
2920        (method url-fetch)
2921        (uri (string-append
2922              "https://github.com/OpenPrinting/system-config-printer/releases/"
2923              "download/v" version
2924              "/system-config-printer-" version ".tar.xz"))
2925        (sha256
2926         (base32 "12d6xx51vizc476zfnsga9q09nflp51ipn6y7lhi9w2v4772dlpv"))))
2927     (build-system glib-or-gtk-build-system)
2928     (arguments
2929      `(#:imported-modules ((guix build python-build-system)
2930                            ,@%glib-or-gtk-build-system-modules)
2931        #:phases
2932        (modify-phases %standard-phases
2933          (add-after 'unpack 'patch-Makefile.am
2934            (lambda _
2935              ;; The Makefile generates some scripts, so set a valid shebang
2936              (substitute* "Makefile.am"
2937                (("/bin/bash") (which "bash")))
2938              (delete-file "configure")
2939              #t))
2940          (add-after 'unpack 'patch-docbook-xml
2941            (lambda* (#:key inputs #:allow-other-keys)
2942              ;; Modify the man XML otherwise xmlto tries to access the network
2943              (substitute* "man/system-config-printer.xml"
2944                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2945                 (string-append (assoc-ref inputs "docbook-xml")
2946                                "/xml/dtd/docbook/")))
2947              #t))
2948          (add-after 'install 'wrap-for-python
2949            (@@ (guix build python-build-system) wrap))
2950          (add-after 'install 'wrap
2951            (lambda* (#:key outputs #:allow-other-keys)
2952              (let ((out               (assoc-ref outputs "out"))
2953                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2954                (for-each
2955                 (lambda (program)
2956                   (wrap-program program
2957                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2958                 (map (lambda (name)
2959                        (string-append out "/bin/" name))
2960                      '("system-config-printer"
2961                        "system-config-printer-applet"
2962                        "install-printerdriver"
2963                        "scp-dbus-service"))))
2964              #t)))))
2965     (inputs
2966      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2967        ("gobject-introspection" ,gobject-introspection)
2968        ("python" ,python)
2969        ("cups" ,cups)
2970        ("gtk+" ,gtk+)
2971        ("python-dbus" ,python-dbus)
2972        ("python-pygobject" ,python-pygobject)
2973        ("python-pycups" ,python-pycups)
2974        ("python-requests" ,python-requests)
2975        ("python-pycairo" ,python-pycairo)
2976        ("libnotify" ,libnotify)
2977        ("packagekit" ,packagekit)))
2978     (native-inputs
2979      `(("pkg-config" ,pkg-config)
2980        ("desktop-file-utils" ,desktop-file-utils)
2981        ("glib" ,glib)
2982        ("autoconf" ,autoconf)
2983        ("automake" ,automake)
2984        ("intltool" ,intltool)
2985        ("xmlto" ,xmlto)
2986        ("docbook-xml" ,docbook-xml-4.1.2)
2987        ("docbook-xsl" ,docbook-xsl)
2988        ("libxml2" ,libxml2)))
2989     (home-page "https://github.com/zdohnal/system-config-printer")
2990     (synopsis "CUPS administration tool")
2991     (description
2992      "system-config-printer is a CUPS administration tool.  It's written in
2993 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2994 configuring CUPS.")
2995     (license license:gpl2+)))
2996
2997 (define-public hicolor-icon-theme
2998   (package
2999     (name "hicolor-icon-theme")
3000     (version "0.17")
3001     (source
3002      (origin
3003       (method url-fetch)
3004       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
3005                           "hicolor-icon-theme-" version ".tar.xz"))
3006       (sha256
3007        (base32
3008         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
3009     (build-system gnu-build-system)
3010     (arguments
3011      `(#:tests? #f)) ; no check target
3012     (home-page "https://icon-theme.freedesktop.org/releases/")
3013     (synopsis
3014      "Freedesktop icon theme")
3015     (description
3016      "Freedesktop icon theme.")
3017     (license license:gpl2)))
3018
3019 (define-public libnotify
3020   (package
3021     (name "libnotify")
3022     (version "0.7.9")
3023     (source
3024      (origin
3025        (method url-fetch)
3026        (uri (string-append "mirror://gnome/sources/" name "/"
3027                            (version-major+minor version)  "/"
3028                            name "-" version ".tar.xz"))
3029        (sha256
3030         (base32
3031          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3032     (build-system meson-build-system)
3033     (arguments
3034      `(#:phases
3035        (modify-phases %standard-phases
3036          (add-after 'unpack 'fix-docbook
3037            (lambda* (#:key inputs #:allow-other-keys)
3038              ;; Don't attempt to download XSL schema.
3039              (substitute* "meson.build"
3040                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3041 /manpages/docbook.xsl")
3042                 (string-append (assoc-ref inputs "docbook-xsl")
3043                                "/xml/xsl/docbook-xsl-"
3044                                ,(package-version docbook-xsl)
3045                                "/manpages/docbook.xsl")))
3046              #t)))))
3047     (propagated-inputs
3048      `(;; In Requires of libnotify.pc.
3049        ("gdk-pixbuf" ,gdk-pixbuf)
3050        ("glib" ,glib)))
3051     (inputs
3052      `(("gtk+" ,gtk+)
3053        ("libpng" ,libpng)))
3054     (native-inputs
3055      `(("pkg-config" ,pkg-config)
3056        ("glib" ,glib "bin")
3057        ("gobject-introspection" ,gobject-introspection)
3058
3059        ;; For the documentation.
3060        ("gtk-doc" ,gtk-doc)
3061        ("xsltproc" ,libxslt)
3062        ("docbook-xsl" ,docbook-xsl)))
3063     (home-page "https://developer-next.gnome.org/libnotify/")
3064     (synopsis
3065      "GNOME desktop notification library")
3066     (description
3067      "Libnotify is a library that sends desktop notifications to a
3068 notification daemon, as defined in the Desktop Notifications spec.  These
3069 notifications can be used to inform the user about an event or display
3070 some form of information without getting in the user's way.")
3071     (license license:lgpl2.1+)))
3072
3073 (define-public libpeas
3074   (package
3075     (name "libpeas")
3076     (version "1.28.0")
3077     (source
3078      (origin
3079       (method url-fetch)
3080       (uri (string-append "mirror://gnome/sources/" name "/"
3081                           (version-major+minor version)  "/"
3082                           name "-" version ".tar.xz"))
3083       (sha256
3084        (base32
3085         "05cb7drn6arc4gi02wgsvzibigi2riz5gnfnmlb0zmbfnj9ikna2"))))
3086     (build-system meson-build-system)
3087     (arguments
3088      '(#:phases
3089        (modify-phases %standard-phases
3090          (add-before 'check 'start-xserver
3091            (lambda* (#:key inputs #:allow-other-keys)
3092              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3093                    (disp ":1"))
3094                (setenv "DISPLAY" disp)
3095                ;; Tests require a running X server.
3096                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3097                #t))))))
3098     (inputs
3099      `(("gtk+" ,gtk+)
3100        ("glade" ,glade3)
3101        ("python" ,python)
3102        ("python-pygobject" ,python-pygobject)))
3103     (native-inputs
3104      `(("pkg-config" ,pkg-config)
3105        ("gettext" ,gettext-minimal)
3106        ("glib:bin" ,glib "bin")
3107        ("gobject-introspection" ,gobject-introspection)
3108        ("xorg-server" ,xorg-server-for-tests)))
3109     (propagated-inputs
3110      ;; The .pc file "Requires" gobject-introspection.
3111      `(("gobject-introspection" ,gobject-introspection)))
3112     (home-page "https://wiki.gnome.org/Libpeas")
3113     (synopsis "GObject plugin system")
3114     (description
3115      "Libpeas is a gobject-based plugin engine, targeted at giving every
3116 application the chance to assume its own extensibility.  It also has a set of
3117 features including, but not limited to: multiple extension points; on-demand
3118 (lazy) programming language support for C, Python and JS; simplicity of the
3119 API.")
3120     (license license:lgpl2.0+)))
3121
3122 (define-public gtkglext
3123   (package
3124     (name "gtkglext")
3125     (version "1.2.0")
3126     (source (origin
3127               (method url-fetch)
3128               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3129                                   version "/gtkglext-" version ".tar.gz"))
3130               (sha256
3131                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3132               (patches (search-patches
3133                         "gtkglext-disable-disable-deprecated.patch"))))
3134     (build-system gnu-build-system)
3135     (arguments
3136      `(#:phases
3137        (modify-phases %standard-phases
3138          ;; Fix a collision between a local variable and a definition from
3139          ;; glibc's string.h.
3140          (add-after 'unpack 'fix-collision
3141            (lambda _
3142              (substitute* "gdk/gdkglshapes.c"
3143                ((" index") " triangle_index"))
3144              #t)))))
3145     (inputs `(("gtk+" ,gtk+-2)
3146               ("mesa" ,mesa)
3147               ("glu" ,glu)
3148               ("libx11" ,libx11)
3149               ("libxt" ,libxt)))
3150     (native-inputs `(("pkg-config" ,pkg-config)
3151                      ("glib" ,glib "bin")))
3152     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
3153     (home-page "https://projects.gnome.org/gtkglext")
3154     (synopsis "OpenGL extension to GTK+")
3155     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3156 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3157 API add-ons to make GTK+ widgets OpenGL-capable.")
3158     (license license:lgpl2.1+)))
3159
3160 (define-public glade3
3161   (package
3162     (name "glade")
3163     (version "3.36.0")
3164     (source (origin
3165               (method url-fetch)
3166               (uri (string-append "mirror://gnome/sources/" name "/"
3167                                   (version-major+minor version)  "/"
3168                                   name "-" version ".tar.xz"))
3169               (sha256
3170                (base32
3171                 "023gx8rj51njn8fsb6ma5kz1irjpxi4js0n8rwy22inc4ysldd8r"))))
3172     (build-system glib-or-gtk-build-system)
3173     (arguments
3174      `(#:phases
3175        (modify-phases %standard-phases
3176          (add-before 'configure 'fix-docbook
3177            (lambda* (#:key inputs #:allow-other-keys)
3178              (substitute* "man/Makefile.in"
3179                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
3180                 (string-append (assoc-ref inputs "docbook-xsl")
3181                                "/xml/xsl/docbook-xsl-"
3182                                ,(package-version docbook-xsl)
3183                                "/manpages/docbook.xsl")))
3184              #t))
3185          (add-before 'check 'pre-check
3186            (lambda _
3187              (setenv "HOME" "/tmp")
3188              ;; Tests require a running X server.
3189              (system "Xvfb :1 &")
3190              (setenv "DISPLAY" ":1")
3191              #t)))))
3192     (inputs
3193      `(("gtk+" ,gtk+)
3194        ("libxml2" ,libxml2)))
3195     (native-inputs
3196      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3197        ("intltool" ,intltool)
3198        ("itstool" ,itstool)
3199        ("libxslt" ,libxslt) ;for xsltproc
3200        ("docbook-xml" ,docbook-xml-4.2)
3201        ("docbook-xsl" ,docbook-xsl)
3202        ("python" ,python-2)
3203        ("pkg-config" ,pkg-config)
3204        ("xorg-server" ,xorg-server-for-tests)))
3205     (home-page "https://glade.gnome.org")
3206     (synopsis "GTK+ rapid application development tool")
3207     (description "Glade is a rapid application development (RAD) tool to
3208 enable quick & easy development of user interfaces for the GTK+ toolkit and
3209 the GNOME desktop environment.")
3210     (license license:lgpl2.0+)
3211     (native-search-paths (list (search-path-specification
3212                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3213                                 (files '("share/glade/catalogs")))
3214                                (search-path-specification
3215                                 (variable "GLADE_MODULE_SEARCH_PATH")
3216                                 (files '("lib/glade/modules")))))))
3217
3218 (define-public libcroco
3219   (package
3220     (name "libcroco")
3221     (version "0.6.13")
3222     (source (origin
3223               (method url-fetch)
3224               (uri (string-append "mirror://gnome/sources/" name "/"
3225                                   (version-major+minor version)  "/"
3226                                   name "-" version ".tar.xz"))
3227               (sha256
3228                (base32
3229                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3230     (replacement libcroco/fixed)
3231     (build-system gnu-build-system)
3232     (native-inputs
3233      `(("pkg-config" ,pkg-config)))
3234     (inputs
3235      `(("glib" ,glib)
3236        ("libxml2" ,libxml2)
3237        ("zlib" ,zlib)))
3238     (home-page "https://github.com/GNOME/libcroco")
3239     (synopsis "CSS2 parsing and manipulation library")
3240     (description
3241      "Libcroco is a standalone CSS2 parsing and manipulation library.
3242 The parser provides a low level event driven SAC-like API and a CSS object
3243 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3244 XML/CSS rendering engine.")
3245
3246     ;; LGPLv2.1-only.
3247     (license license:lgpl2.1)))
3248
3249 (define libcroco/fixed
3250   (package
3251     (inherit libcroco)
3252     (name "libcroco")
3253     (version "0.6.13")
3254     (source (origin
3255               (method url-fetch)
3256               (uri (string-append "mirror://gnome/sources/" name "/"
3257                                   (version-major+minor version)  "/"
3258                                   name "-" version ".tar.xz"))
3259               (sha256
3260                (base32
3261                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))
3262               (patches (search-patches "libcroco-CVE-2020-12825.patch"))))))
3263
3264 (define-public libgsf
3265   (package
3266     (name "libgsf")
3267     (version "1.14.47")
3268     (source (origin
3269               (method url-fetch)
3270               (uri (string-append "mirror://gnome/sources/" name "/"
3271                                   (version-major+minor version)  "/"
3272                                   name "-" version ".tar.xz"))
3273               (sha256
3274                (base32
3275                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3276     (build-system gnu-build-system)
3277     (arguments
3278      '(#:configure-flags '("--disable-static")))
3279     (native-inputs
3280      `(("pkg-config" ,pkg-config)
3281        ("gettext" ,gettext-minimal)
3282
3283        ;; For tests.
3284        ("perl" ,perl)
3285        ("perl-xml-parser" ,perl-xml-parser)))
3286     (inputs
3287      `(("zlib" ,zlib)
3288        ("bzip2" ,bzip2)))
3289     (propagated-inputs
3290      `(("gdk-pixbuf" ,gdk-pixbuf)
3291        ("glib" ,glib)
3292        ("libxml2" ,libxml2)))
3293     (home-page "https://www.gnome.org/projects/libgsf")
3294     (synopsis "GNOME's Structured File Library")
3295     (description
3296      "Libgsf aims to provide an efficient extensible I/O abstraction for
3297 dealing with different structured file formats.")
3298
3299     ;; LGPLv2.1-only.
3300     (license license:lgpl2.1)))
3301
3302 (define-public librsvg
3303   (package
3304     (name "librsvg")
3305     (version "2.40.21")
3306     (source (origin
3307               (method url-fetch)
3308               (uri (string-append "mirror://gnome/sources/" name "/"
3309                                   (version-major+minor version)  "/"
3310                                   name "-" version ".tar.xz"))
3311               (sha256
3312                (base32
3313                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3314     (build-system gnu-build-system)
3315     (arguments
3316      `(#:configure-flags
3317        (list "--disable-static"
3318              "--enable-vala") ; needed for e.g. gnome-mines
3319        #:phases
3320        (modify-phases %standard-phases
3321          (add-before 'configure 'pre-configure
3322            (lambda* (#:key inputs #:allow-other-keys)
3323              (substitute* "gdk-pixbuf-loader/Makefile.in"
3324                ;; By default the gdk-pixbuf loader is installed under
3325                ;; gdk-pixbuf's prefix.  Work around that.
3326                (("gdk_pixbuf_moduledir = .*$")
3327                 (string-append "gdk_pixbuf_moduledir = "
3328                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3329                                 "loaders\n"))
3330                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3331                (("gdk_pixbuf_cache_file = .*$")
3332                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3333              #t))
3334          (add-before 'check 'remove-failing-tests
3335            (lambda _
3336              (with-directory-excursion "tests/fixtures/reftests"
3337                (for-each delete-file
3338                          '(;; This test fails on i686:
3339                            "svg1.1/masking-path-04-b.svg"
3340                            ;; This test fails on armhf:
3341                            "svg1.1/masking-mask-01-b.svg"
3342                            ;; This test fails on aarch64:
3343                            "bugs/777834-empty-text-children.svg")))
3344              #t)))))
3345     (native-inputs
3346      `(("pkg-config" ,pkg-config)
3347        ("vala" ,vala)
3348        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
3349        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3350     (inputs
3351      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3352        ;; this ancient version of librsvg.
3353        ("pango" ,pango-1.42)
3354        ("libcroco" ,libcroco)
3355        ("bzip2" ,bzip2)
3356        ("libgsf" ,libgsf)
3357        ("libxml2" ,libxml2)))
3358     (propagated-inputs
3359      ;; librsvg-2.0.pc refers to all of that.
3360      `(("cairo" ,cairo)
3361        ("gdk-pixbuf" ,gdk-pixbuf)
3362        ("glib" ,glib)))
3363     (home-page "https://wiki.gnome.org/LibRsvg")
3364     (synopsis "Render SVG files using Cairo")
3365     (description
3366      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
3367 library.")
3368     (license license:lgpl2.0+)))
3369
3370 (define-public librsvg-next
3371   (package
3372     (name "librsvg")
3373     (version "2.50.2")
3374     (source (origin
3375               (method url-fetch)
3376               (uri (string-append "mirror://gnome/sources/librsvg/"
3377                                   (version-major+minor version)  "/"
3378                                   "librsvg-" version ".tar.xz"))
3379               (sha256
3380                (base32
3381                 "1lsnl08b5pjf01q3agixjd53islw5rqkc38r31rlmm2crrqz44b2"))
3382               (modules '((guix build utils)))
3383               (snippet
3384                '(begin (delete-file-recursively "vendor")
3385                        #t))))
3386     (build-system cargo-build-system)
3387     (outputs '("out" "doc"))
3388     (arguments
3389      `(#:install-source? #f
3390        #:modules
3391        ((guix build cargo-build-system)
3392         (guix build utils)
3393         ((guix build gnu-build-system) #:prefix gnu:))
3394        #:cargo-inputs
3395        (("rust-bitflags" ,rust-bitflags-1)
3396         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3397         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3398         ("rust-cast" ,rust-cast-0.2)
3399         ("rust-cssparser" ,rust-cssparser-0.27)
3400         ("rust-data-url" ,rust-data-url-0.1)
3401         ("rust-encoding" ,rust-encoding-0.2)
3402         ("rust-float-cmp" ,rust-float-cmp-0.8)
3403         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3404         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3405         ("rust-gio" ,rust-gio-0.8)
3406         ("rust-gio-sys" ,rust-gio-sys-0.9)
3407         ("rust-glib" ,rust-glib-0.9)
3408         ("rust-glib-sys" ,rust-glib-sys-0.9)
3409         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3410         ("rust-itertools" ,rust-itertools-0.9)
3411         ("rust-language-tags" ,rust-language-tags-0.2)
3412         ("rust-libc" ,rust-libc-0.2)
3413         ("rust-locale-config" ,rust-locale-config-0.3)
3414         ("rust-markup5ever" ,rust-markup5ever-0.10)
3415         ("rust-nalgebra" ,rust-nalgebra-0.21)
3416         ("rust-num-traits" ,rust-num-traits-0.2)
3417         ("rust-once-cell" ,rust-once-cell-1)
3418         ("rust-pkg-config" ,rust-pkg-config-0.3)
3419         ("rust-pango" ,rust-pango-0.8)
3420         ("rust-pango-sys" ,rust-pango-sys-0.9)
3421         ("rust-pangocairo" ,rust-pangocairo-0.9)
3422         ("rust-rayon" ,rust-rayon-1)
3423         ("rust-rctree" ,rust-rctree-0.3)
3424         ("rust-rgb" ,rust-rgb-0.8)
3425         ("rust-regex" ,rust-regex-1)
3426         ("rust-selectors" ,rust-selectors-0.22)
3427         ("rust-string-cache" ,rust-string-cache-0.8)
3428         ("rust-tinyvec" ,rust-tinyvec-0.3)
3429         ("rust-url" ,rust-url-2)
3430         ("rust-xml5ever" ,rust-xml5ever-0.16))
3431        #:cargo-development-inputs
3432        (("rust-assert-cmd" ,rust-assert-cmd-1)
3433         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3434         ("rust-chrono" ,rust-chrono-0.4)
3435         ("rust-criterion" ,rust-criterion-0.3)
3436         ("rust-float-cmp" ,rust-float-cmp-0.8)
3437         ("rust-lopdf" ,rust-lopdf-0.25)
3438         ("rust-png" ,rust-png-0.16)
3439         ("rust-predicates" ,rust-predicates-1)
3440         ("rust-tempfile" ,rust-tempfile-3))
3441        #:phases
3442        (modify-phases %standard-phases
3443          (add-after 'unpack 'patch-docbook-xml
3444            (lambda* (#:key inputs #:allow-other-keys)
3445              (with-directory-excursion "doc"
3446                (substitute* "rsvg-docs.xml"
3447                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3448                   (string-append (assoc-ref inputs "docbook-xml")
3449                                  "/xml/dtd/docbook/"))))
3450              #t))
3451          (add-after 'unpack 'prepare-for-build
3452            (lambda _
3453              ;; In lieu of #:make-flags
3454              (setenv "CC" ,(cc-for-target))
3455              ;; Something about the build environment resists building
3456              ;; successfully with the '--locked' flag.
3457              (substitute* '("Makefile.am" "Makefile.in")
3458                (("--locked") ""))
3459              #t))
3460          (add-before 'configure 'pre-configure
3461            (lambda _
3462              (substitute* "gdk-pixbuf-loader/Makefile.in"
3463                ;; By default the gdk-pixbuf loader is installed under
3464                ;; gdk-pixbuf's prefix.  Work around that.
3465                (("gdk_pixbuf_moduledir = .*$")
3466                 (string-append "gdk_pixbuf_moduledir = "
3467                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3468                                "loaders\n"))
3469                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3470                (("gdk_pixbuf_cache_file = .*$")
3471                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3472              #t))
3473          (add-after 'configure 'gnu-configure
3474            (lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
3475              ((assoc-ref gnu:%standard-phases 'configure)
3476               #:native-inputs native-inputs
3477               #:inputs inputs
3478               #:outputs outputs
3479               #:configure-flags
3480               (list "--disable-static"
3481                     "--enable-vala"
3482                (string-append "--with-html-dir="
3483                               (assoc-ref %outputs "doc")
3484                               "/share/gtk-doc/html")))))
3485          (add-after 'configure 'dont-vendor-self
3486            (lambda* (#:key vendor-dir #:allow-other-keys)
3487              ;; Don't keep the whole tarball in the vendor directory
3488              (delete-file-recursively
3489               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
3490              #t))
3491          (replace 'build
3492            (assoc-ref gnu:%standard-phases 'build))
3493          (add-before 'check 'ignore-failing-tests
3494            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3495            (lambda _
3496              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3497                (("fn background_color_option_invalid_color_yields_error" all)
3498                 (string-append "#[ignore] " all))
3499                (("fn empty_input_yields_error" all)
3500                 (string-append "#[ignore] " all))
3501                (("fn empty_svg_yields_error" all)
3502                 (string-append "#[ignore] " all))
3503                (("fn env_source_data_epoch_empty" all)
3504                 (string-append "#[ignore] " all))
3505                (("fn env_source_data_epoch_no_digits" all)
3506                 (string-append "#[ignore] " all))
3507                (("fn env_source_data_epoch_trailing_garbage" all)
3508                 (string-append "#[ignore] " all))
3509                (("fn export_id_option_error" all)
3510                 (string-append "#[ignore] " all))
3511                (("fn huge_zoom_factor_yields_error" all)
3512                 (string-append "#[ignore] " all))
3513                (("fn multiple_input_files_not_allowed_for_png_output" all)
3514                 (string-append "#[ignore] " all))
3515                (("fn stylesheet_option_error" all)
3516                 (string-append "#[ignore] " all)))
3517              #t))
3518          (replace 'check
3519            (lambda* args
3520              ((assoc-ref gnu:%standard-phases 'check)
3521               #:test-target "check")))
3522          (replace 'install
3523            (assoc-ref gnu:%standard-phases 'install)))))
3524     (native-inputs
3525      `(("docbook-xml" ,docbook-xml-4.3)
3526        ("glib" ,glib "bin")
3527        ("gobject-introspection" ,gobject-introspection)
3528        ("pkg-config" ,pkg-config)
3529        ("python" ,python-wrapper)
3530        ("ruby" ,ruby)
3531        ("vala" ,vala)))
3532     (inputs
3533      `(("bzip2" ,bzip2)
3534        ("fontconfig" ,fontconfig)
3535        ("freetype" ,freetype)
3536        ("harfbuzz" ,harfbuzz)
3537        ("libcroco" ,libcroco)
3538        ("libgsf" ,libgsf)
3539        ("libxml2" ,libxml2)
3540        ("pango" ,pango)))
3541     (propagated-inputs
3542      `(("cairo" ,cairo)
3543        ("gdk-pixbuf" ,gdk-pixbuf)
3544        ("glib" ,glib)))
3545     (synopsis "SVG rendering library")
3546     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3547 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3548 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3549 diagrams.")
3550     (home-page "https://wiki.gnome.org/LibRsvg")
3551     (license license:lgpl2.1+)))
3552
3553 (define-public libidl
3554   (package
3555     (name "libidl")
3556     (version "0.8.14")
3557     (source (origin
3558               (method url-fetch)
3559               (uri (string-append "mirror://gnome/sources/libIDL/"
3560                                   (version-major+minor version) "/"
3561                                   "libIDL-" version ".tar.bz2"))
3562               (sha256
3563                (base32
3564                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3565     (build-system gnu-build-system)
3566     (inputs `(("glib" ,glib)))
3567     (native-inputs
3568      `(("pkg-config" ,pkg-config)
3569        ("flex" ,flex)
3570        ("bison" ,bison)))
3571     (home-page "http://freecode.com/projects/libidl")
3572     (synopsis "Create trees of CORBA Interface Definition Language files")
3573     (description  "Libidl is a library for creating trees of CORBA Interface
3574 Definition Language (idl) files, which is a specification for defining
3575 portable interfaces. libidl was initially written for orbit (the orb from the
3576 GNOME project, and the primary means of libidl distribution).  However, the
3577 functionality was designed to be as reusable and portable as possible.")
3578     (properties `((upstream-name . "libIDL")))
3579     (license license:lgpl2.0+)))
3580
3581
3582 (define-public orbit2
3583   (package
3584     (name "orbit2")
3585     (version "2.14.19")
3586     (source (origin
3587               (method url-fetch)
3588               (uri (let ((upstream-name "ORBit2"))
3589                      (string-append "mirror://gnome/sources/" upstream-name "/"
3590                                     (version-major+minor version) "/"
3591                                     upstream-name "-" version ".tar.bz2")))
3592               (sha256
3593                (base32
3594                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3595     (build-system gnu-build-system)
3596     (arguments
3597      `(;; The "timeout-server" test hangs when run in parallel.
3598        #:parallel-tests? #f
3599        #:configure-flags
3600        '(;; We don't need static libraries, plus they don't build reproducibly
3601          ;; (non-deterministic ordering of .o files in the archive.)
3602          "--disable-static"
3603
3604          ;; The programmer kindly gives us a hook to turn off deprecation
3605          ;; warnings ...
3606          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3607        ;; ... which they then completly ignore !!
3608        #:phases
3609        (modify-phases %standard-phases
3610          (add-before 'configure 'ignore-deprecations
3611            (lambda _
3612              (substitute* "linc2/src/Makefile.in"
3613                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3614              #t)))))
3615     (inputs `(("glib" ,glib)
3616               ("libidl" ,libidl)))
3617     (native-inputs
3618      `(("pkg-config" ,pkg-config)))
3619     (home-page "https://projects.gnome.org/orbit2/")
3620     (synopsis "CORBA 2.4-compliant Object Request Broker")
3621     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3622 featuring mature C, C++ and Python bindings.")
3623     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3624     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3625     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3626     (license license:gpl2+)
3627     (properties `((upstream-name . "ORBit2")))))
3628
3629
3630 (define-public libbonobo
3631   (package
3632     (name "libbonobo")
3633     (version "2.32.1")
3634     (source (origin
3635               (method url-fetch)
3636               (uri (string-append "mirror://gnome/sources/" name "/"
3637                                   (version-major+minor version)
3638                                   "/" name "-" version ".tar.bz2"))
3639               (sha256
3640                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3641               (patches (search-patches
3642                         "libbonobo-activation-test-race.patch"))))
3643     (build-system gnu-build-system)
3644     (arguments
3645      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3646      `(#:configure-flags
3647        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3648        ;; ... which they then completly ignore !!
3649        #:phases
3650        (modify-phases %standard-phases
3651          (add-before 'configure 'ignore-deprecations
3652            (lambda _
3653              (substitute* "activation-server/Makefile.in"
3654                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3655              #t)))
3656
3657        ;; There's apparently a race condition between the server stub
3658        ;; generation and linking of the example under 'samples/echo' that can
3659        ;; lead do undefined references when building in parallel, as reported
3660        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3661        ;; Thus, disable parallel builds.
3662        #:parallel-build? #f))
3663     (inputs `(("popt" ,popt)
3664               ("libxml2" ,libxml2)))
3665     ;; The following are Required by the .pc file
3666     (propagated-inputs
3667      `(("glib" ,glib)
3668        ("orbit2" ,orbit2)))
3669     (native-inputs
3670      `(("intltool" ,intltool)
3671        ("pkg-config" ,pkg-config)
3672        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3673        ("flex" ,flex)
3674        ("bison" ,bison)))
3675     (home-page "https://developer.gnome.org/libbonobo/")
3676     (synopsis "Framework for creating reusable components for use in GNOME applications")
3677     (description "Bonobo is a framework for creating reusable components for
3678 use in GNOME applications, built on top of CORBA.")
3679     ;; Licence not explicitly stated.  Source files contain no licence notices.
3680     ;; Tarball contains text of both GPLv2 and LGPLv2
3681     ;; GPLv2 covers both conditions
3682     (license license:gpl2+)))
3683
3684
3685 (define-public gconf
3686   (package
3687     (name "gconf")
3688     (version "3.2.6")
3689     (source (origin
3690               (method url-fetch)
3691               (uri
3692                (let ((upstream-name "GConf"))
3693                  (string-append "mirror://gnome/sources/" upstream-name "/"
3694                                 (version-major+minor version) "/"
3695                                 upstream-name "-" version ".tar.xz")))
3696               (sha256
3697                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3698     (build-system gnu-build-system)
3699     (inputs `(("dbus-glib" ,dbus-glib)
3700               ("libxml2" ,libxml2)))
3701     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3702                          ("orbit2" ,orbit2)))
3703     (native-inputs
3704      `(("intltool" ,intltool)
3705        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3706        ("pkg-config" ,pkg-config)))
3707     (home-page "https://projects.gnome.org/gconf/")
3708     (synopsis "Store application preferences")
3709     (description "Gconf is a system for storing application preferences.  It
3710 is intended for user preferences; not arbitrary data storage.")
3711     (license license:lgpl2.0+)
3712     (properties '((upstream-name . "GConf")))))
3713
3714
3715 (define-public gnome-mime-data
3716   (package
3717     (name "gnome-mime-data")
3718     (version "2.18.0")
3719     (source (origin
3720               (method url-fetch)
3721               (uri (string-append "mirror://gnome/sources/" name "/"
3722                                   (version-major+minor version)  "/"
3723                                   name "-" version ".tar.bz2"))
3724               (sha256
3725                (base32
3726                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3727     (build-system gnu-build-system)
3728     (native-inputs
3729      `(("perl" ,perl)
3730        ("intltool" ,intltool)))
3731     (arguments
3732      '(#:phases (modify-phases %standard-phases
3733                   (add-after 'configure 'use-our-intltool
3734                     (lambda _
3735                       ;; Do not use the bundled intltool commands, which lack
3736                       ;; the "dotless @INC" fixes of our 'intltool' package.
3737                       (substitute* (find-files "." "^Makefile$")
3738                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3739                          (string-append "INTLTOOL_" tool " = intltool-"
3740                                         (string-downcase tool) "\n")))
3741                       #t)))))
3742     (home-page "https://www.gnome.org")
3743     (synopsis "Base MIME and Application database for GNOME")
3744     (description  "GNOME Mime Data is a module which contains the base MIME
3745 and Application database for GNOME.  The data stored by this module is
3746 designed to be accessed through the MIME functions in GnomeVFS.")
3747     (license license:gpl2+)))
3748
3749
3750 (define-public gnome-vfs
3751   (package
3752     (name "gnome-vfs")
3753     (version "2.24.4")
3754     (source (origin
3755               (method url-fetch)
3756               (uri (string-append "mirror://gnome/sources/" name "/"
3757                                   (version-major+minor version)  "/"
3758                                   name "-" version ".tar.bz2"))
3759               (sha256
3760                (base32
3761                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3762     (build-system gnu-build-system)
3763     (arguments
3764      `(#:phases
3765        (modify-phases %standard-phases
3766          (add-before 'configure 'ignore-deprecations
3767            (lambda _
3768              (substitute* '("libgnomevfs/Makefile.in"
3769                             "daemon/Makefile.in")
3770                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3771              #t))
3772          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3773            (lambda _
3774              (substitute* "test/test-async-cancel.c"
3775                (("EXIT_FAILURE") "77"))
3776              #t)))))
3777     (inputs `(("libxml2" ,libxml2)
3778               ("dbus-glib" ,dbus-glib)
3779               ("gconf" ,gconf)
3780               ("gnome-mime-data" ,gnome-mime-data)
3781               ("zlib" ,zlib)))
3782     (native-inputs
3783      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3784        ("intltool" ,intltool)
3785        ("pkg-config" ,pkg-config)))
3786     (home-page "https://developer.gnome.org/gnome-vfs/")
3787     (synopsis "Access files and folders in GNOME applications")
3788     (description
3789      "GnomeVFS is the core library used to access files and folders in GNOME
3790 applications.  It provides a file system abstraction which allows applications
3791 to access local and remote files with a single consistent API.")
3792     (license license:lgpl2.0+)))
3793
3794
3795
3796 (define-public libgnome
3797   (package
3798     (name "libgnome")
3799     (version "2.32.1")
3800     (source (origin
3801               (method url-fetch)
3802               (uri (string-append "mirror://gnome/sources/" name "/"
3803                                   (version-major+minor version)  "/"
3804                                   name "-" version ".tar.bz2"))
3805               (sha256
3806                (base32
3807                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3808               (patches (search-patches "libgnome-encoding.patch"))))
3809     (build-system gnu-build-system)
3810     (arguments
3811      `(#:phases
3812        (modify-phases %standard-phases
3813          (add-before 'configure 'enable-deprecated
3814            (lambda _
3815              (substitute* "libgnome/Makefile.in"
3816                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3817              #t)))))
3818     (inputs `(("libxml2" ,libxml2)))
3819     (native-inputs
3820      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3821        ("intltool" ,intltool)
3822        ("pkg-config" ,pkg-config)))
3823     ;; The following are listed as Required in the .pc file
3824     ;; (except for libcanberra -- which seems to be oversight on the part
3825     ;; of the upstream developers -- anything that links against libgnome,
3826     ;; must also link against libcanberra
3827     (propagated-inputs
3828      `(("libcanberra" ,libcanberra)
3829        ("libbonobo" ,libbonobo)
3830        ("gconf" ,gconf)
3831        ("gnome-vfs" ,gnome-vfs)
3832        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
3833     (home-page "https://developer.gnome.org/libgnome/")
3834     (synopsis "Useful routines for building applications")
3835     (description  "The libgnome library provides a number of useful routines
3836 for building modern applications, including session management, activation of
3837 files and URIs, and displaying help.")
3838     (license license:lgpl2.0+)))
3839
3840
3841 (define-public libart-lgpl
3842   (package
3843     (name "libart-lgpl")
3844     (version "2.3.21")
3845     (source (origin
3846               (method url-fetch)
3847               (uri (let ((upstream-name "libart_lgpl"))
3848                      (string-append "mirror://gnome/sources/" upstream-name "/"
3849                                     (version-major+minor version) "/"
3850                                     upstream-name "-" version ".tar.bz2")))
3851               (sha256
3852                (base32
3853                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3854     (build-system gnu-build-system)
3855     (native-inputs
3856      `(("pkg-config" ,pkg-config)))
3857     (home-page "https://people.gnome.org/~mathieu/libart")
3858     (synopsis "2D drawing library")
3859     (description  "Libart is a 2D drawing library intended as a
3860 high-quality vector-based 2D library with antialiasing and alpha composition.")
3861     (license license:lgpl2.0+)))
3862
3863
3864
3865 (define-public libgnomecanvas
3866   (package
3867     (name "libgnomecanvas")
3868     (version "2.30.3")
3869     (source (origin
3870               (method url-fetch)
3871               (uri (string-append "mirror://gnome/sources/" name "/"
3872                                   (version-major+minor version)  "/"
3873                                   name "-" version ".tar.gz"))
3874               (sha256
3875                (base32
3876                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3877     (build-system gnu-build-system)
3878     ;; Mentioned as Required in the .pc file
3879     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
3880                          ("gtk+" ,gtk+-2)))
3881     (native-inputs
3882      `(("intltool" ,intltool)
3883        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3884        ("pkg-config" ,pkg-config)))
3885     (home-page "https://developer.gnome.org/libgnomecanvas/")
3886     (synopsis "Flexible widget for creating interactive structured graphics")
3887     (description  "The GnomeCanvas widget provides a flexible widget for
3888 creating interactive structured graphics.")
3889     (license license:lgpl2.0+)))
3890
3891 (define-public libgnomecanvasmm
3892   (package
3893     (name "libgnomecanvasmm")
3894     (version "2.26.0")
3895     (source (origin
3896               (method url-fetch)
3897               (uri (string-append "mirror://gnome/sources/" name "/"
3898                                   (version-major+minor version)  "/"
3899                                   name "-" version ".tar.bz2"))
3900               (sha256
3901                (base32
3902                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3903     (build-system gnu-build-system)
3904     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
3905     (native-inputs
3906      `(("gtkmm-2" ,gtkmm-2)
3907        ("pkg-config" ,pkg-config)))
3908     (home-page "https://gtkmm.org")
3909     (synopsis "C++ bindings to the GNOME Canvas library")
3910     (description "C++ bindings to the GNOME Canvas library.")
3911     (license license:lgpl2.0+)))
3912
3913 (define-public libgnomeui
3914   (package
3915     (name "libgnomeui")
3916     (version "2.24.5")
3917     (source (origin
3918               (method url-fetch)
3919               (uri (string-append "mirror://gnome/sources/" name "/"
3920                                   (version-major+minor version)  "/"
3921                                   name "-" version ".tar.bz2"))
3922               (patches (search-patches "libgnomeui-utf8.patch"))
3923               (sha256
3924                (base32
3925                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3926     (build-system gnu-build-system)
3927     ;; Mentioned as Required in the .pc file
3928     (propagated-inputs `(("libbonoboui" ,libbonoboui)
3929                          ("libgnome" ,libgnome)
3930                          ("libgnomecanvas" ,libgnomecanvas)
3931                          ("libgnome-keyring" ,libgnome-keyring)))
3932     (inputs `(("libjpeg" ,libjpeg-turbo)
3933               ("popt" ,popt)
3934               ("libbonobo" ,libbonobo)
3935               ("libxml2" ,libxml2)
3936               ("libglade" ,libglade)))
3937     (native-inputs
3938      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3939        ("intltool" ,intltool)
3940        ("pkg-config" ,pkg-config)))
3941     (home-page "https://developer.gnome.org/libgnomeui/")
3942     (synopsis "Additional widgets for applications")
3943     (description "The libgnomeui library provides additional widgets for
3944 applications.  Many of the widgets from libgnomeui have already been
3945 ported to GTK+.")
3946     (license license:lgpl2.0+)))
3947
3948 (define-public libglade
3949   (package
3950     (name "libglade")
3951     (version "2.6.4")
3952     (source (origin
3953               (method url-fetch)
3954               (uri (string-append "mirror://gnome/sources/" name "/"
3955                                   (version-major+minor version)  "/"
3956                                   name "-" version ".tar.bz2"))
3957               (sha256
3958                (base32
3959                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
3960     (build-system gnu-build-system)
3961     (inputs
3962      `(("python" ,python))) ;; needed for the optional libglade-convert program
3963     (propagated-inputs
3964      `(("gtk+-2" ,gtk+-2)
3965        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
3966     (native-inputs
3967      `(("pkg-config" ,pkg-config)))
3968     (home-page "https://developer.gnome.org/libglade")
3969     (synopsis "Load glade interfaces and access the glade built widgets")
3970     (description "Libglade is a library that provides interfaces for loading
3971 graphical interfaces described in glade files and for accessing the
3972 widgets built in the loading process.")
3973     (license license:gpl2+))) ; This is correct.  GPL not LGPL
3974
3975 (define-public libgnomeprint
3976   ;; This library has been deprecated since 2006; see
3977   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
3978   (package
3979     (name "libgnomeprint")
3980     (version "2.18.8")
3981     (source (origin
3982               (method url-fetch)
3983               (uri (string-append "mirror://gnome/sources/" name "/"
3984                                   (version-major+minor version)  "/"
3985                                   name "-" version ".tar.bz2"))
3986               (sha256
3987                (base32
3988                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
3989     (build-system gnu-build-system)
3990     (inputs
3991      `(("popt" ,popt)
3992        ("libart-lgpl" ,libart-lgpl)
3993        ("gtk+" ,gtk+-2)
3994        ("libxml2" ,libxml2)))
3995     (native-inputs
3996      `(("intltool" ,intltool)
3997        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3998        ("pkg-config" ,pkg-config)))
3999     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
4000     (synopsis "Printing framework for GNOME")
4001     (description
4002      "GNOME-print was a printing framework for GNOME.  It has been deprecated
4003 since ca. 2006, when GTK+ itself incorporated printing support.")
4004     (license license:lgpl2.0+)))
4005
4006
4007 (define-public libgnomeprintui
4008   ;; Deprecated; see libgnomeprint.
4009   (package
4010     (name "libgnomeprintui")
4011     (version "2.18.6")
4012     (source (origin
4013               (method url-fetch)
4014               (uri (string-append "mirror://gnome/sources/" name "/"
4015                                   (version-major+minor version)  "/"
4016                                   name "-" version ".tar.bz2"))
4017               (sha256
4018                (base32
4019                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
4020     (build-system gnu-build-system)
4021     ;; Mentioned as Required in the .pc file
4022     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
4023     (inputs `(("gtk+" ,gtk+-2)
4024               ("glib" ,glib)
4025               ("gnome-icon-theme" ,gnome-icon-theme)
4026               ("libgnomecanvas" ,libgnomecanvas)
4027               ("libxml2" ,libxml2)))
4028     (native-inputs
4029      `(("intltool" ,intltool)
4030        ("pkg-config" ,pkg-config)))
4031     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
4032     (synopsis "Printing framework for GNOME")
4033     (description (package-description libgnomeprint))
4034     (license license:lgpl2.0+)))
4035
4036 (define-public libbonoboui
4037   (package
4038     (name "libbonoboui")
4039     (version "2.24.5")
4040     (source (origin
4041               (method url-fetch)
4042               (uri (string-append "mirror://gnome/sources/" name "/"
4043                                   (version-major+minor version)  "/"
4044                                   name "-" version ".tar.bz2"))
4045               (sha256
4046                (base32
4047                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4048     (build-system gnu-build-system)
4049     (arguments
4050      `(#:phases
4051        (modify-phases %standard-phases
4052          (add-before 'check 'start-xserver
4053            (lambda* (#:key inputs #:allow-other-keys)
4054              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4055                    (disp ":1"))
4056
4057                (setenv "HOME" (getcwd))
4058                (setenv "DISPLAY" disp)
4059                ;; There must be a running X server and make check doesn't start one.
4060                ;; Therefore we must do it.
4061                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4062     ;; Mentioned as Required by the .pc file
4063     (propagated-inputs `(("libxml2" ,libxml2)))
4064     (inputs
4065      `(("popt" ,popt)
4066        ("pangox-compat" ,pangox-compat)
4067        ("libgnome" ,libgnome)
4068        ("libgnomecanvas" ,libgnomecanvas)
4069        ("libglade" ,libglade)))
4070     (native-inputs
4071      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4072        ("intltool" ,intltool)
4073        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
4074        ("pkg-config" ,pkg-config)))
4075     (home-page "https://developer.gnome.org/libbonoboui/")
4076     (synopsis "Some user interface controls using Bonobo")
4077     (description  "The Bonobo UI library provides a number of user interface
4078 controls using the Bonobo component framework.")
4079     (license license:lgpl2.0+)))
4080
4081 (define-public libwnck
4082   (package
4083     (name "libwnck")
4084     (version "3.32.0")
4085     (source (origin
4086               (method url-fetch)
4087               (uri (string-append "mirror://gnome/sources/" name "/"
4088                                   (version-major+minor version) "/"
4089                                   name "-" version ".tar.xz"))
4090               (sha256
4091                (base32
4092                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4093     (build-system meson-build-system)
4094     (native-inputs
4095      `(("pkg-config" ,pkg-config)
4096        ("glib" ,glib "bin") ; for glib-mkenums
4097        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
4098        ("intltool" ,intltool)))
4099     (propagated-inputs
4100      `(("gtk+" ,gtk+)
4101        ("libxres" ,libxres)
4102        ("startup-notification" ,startup-notification)))
4103     (home-page "https://developer.gnome.org/libwnck/")
4104     (synopsis "Window Navigator Construction Kit")
4105     (description
4106      "Libwnck is the Window Navigator Construction Kit, a library for use in
4107 writing pagers, tasklists, and more generally applications that are dealing
4108 with window management.  It tries hard to respect the Extended Window Manager
4109 Hints specification (EWMH).")
4110     (license license:lgpl2.0+)))
4111
4112 ;; stable version for gtk2, required by xfwm4.
4113 (define-public libwnck-2
4114   (package (inherit libwnck)
4115     (name "libwnck")
4116     (version "2.30.7")
4117     (source (origin
4118               (method url-fetch)
4119               (uri (string-append "mirror://gnome/sources/" name "/"
4120                                   (version-major+minor version) "/"
4121                                   name "-" version ".tar.xz"))
4122               (sha256
4123                (base32
4124                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4125     (build-system gnu-build-system)
4126     (native-inputs
4127      `(("pkg-config" ,pkg-config)
4128        ("intltool" ,intltool)))
4129     (propagated-inputs
4130      `(("gtk+" ,gtk+-2)
4131        ("libxres" ,libxres)
4132        ("startup-notification" ,startup-notification)))))
4133
4134 (define-public goffice
4135   (package
4136     (name "goffice")
4137     (version "0.10.49")
4138     (source (origin
4139               (method url-fetch)
4140               (uri (string-append "mirror://gnome/sources/goffice/"
4141                                   (version-major+minor version)  "/"
4142                                   "goffice-" version ".tar.xz"))
4143               (sha256
4144                (base32 "1s87ngs3g3nfvcn96aq4lgzx5cscbfg4n9f6ns2zpvc5ngdiiz2z"))))
4145     (build-system gnu-build-system)
4146     (outputs '("out"
4147                "doc"))                  ; 4.0 MiB of gtk-doc
4148     (arguments
4149      '(#:configure-flags (list (string-append "--with-html-dir="
4150                                               (assoc-ref %outputs "doc")
4151                                               "/share/gtk-doc/html"))))
4152     (inputs
4153      `(("gtk+" ,gtk+)
4154        ("libgsf" ,libgsf)
4155        ("librsvg" ,librsvg)
4156        ("libxslt" ,libxslt)
4157        ("libxml2" ,libxml2)))
4158     (native-inputs
4159      `(("intltool" ,intltool)
4160        ("glib" ,glib "bin")
4161        ("pkg-config" ,pkg-config)))
4162     (home-page "https://developer.gnome.org/goffice/")
4163     (synopsis "Document-centric objects and utilities")
4164     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4165     (license
4166      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4167      ;; Note: NOT LGPL
4168      (list license:gpl2 license:gpl3))))
4169
4170 (define-public goffice-0.8
4171   (package (inherit goffice)
4172     (version "0.8.17")
4173     (source (origin
4174               (method url-fetch)
4175               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4176                                   (version-major+minor version)  "/"
4177                                   (package-name goffice) "-" version ".tar.xz"))
4178               (sha256
4179                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4180     (arguments
4181      `(#:phases
4182        (modify-phases %standard-phases
4183          (add-after 'unpack 'fix-pcre-check
4184            (lambda _
4185              ;; Only glib.h can be included directly.  See
4186              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4187              (substitute* "configure"
4188                (("glib/gregex\\.h") "glib.h")) #t)))
4189
4190        ,@(package-arguments goffice)))
4191     (propagated-inputs
4192      ;; libgoffice-0.8.pc mentions libgsf-1
4193      `(("libgsf" ,libgsf)))
4194     (inputs
4195      `(("gtk" ,gtk+-2)
4196        ,@(alist-delete "gtk" (package-inputs goffice))))))
4197
4198 (define-public gnumeric
4199   (package
4200     (name "gnumeric")
4201     (version "1.12.49")
4202     (source (origin
4203               (method url-fetch)
4204               (uri (string-append "mirror://gnome/sources/gnumeric/"
4205                                   (version-major+minor version)  "/"
4206                                   "gnumeric-" version ".tar.xz"))
4207               (sha256
4208                (base32
4209                 "0mzdhhpa7kwkc51l344g6vgqwaxkjdf03s7zasqh0bn3jpn75h4i"))))
4210     (build-system glib-or-gtk-build-system)
4211     (arguments
4212      `(;; The gnumeric developers don't worry much about failing tests.
4213        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4214        #:tests? #f
4215        #:phases
4216        (modify-phases %standard-phases
4217          (add-before
4218           'configure 'pre-conf
4219            (lambda* (#:key outputs #:allow-other-keys)
4220              ;; Make install tries to write into the directory of goffice
4221              ;; I am informed that this only affects the possibility to embed a
4222              ;; spreadsheet inside an Abiword document.   So presumably when we
4223              ;; package Abiword we'll have to refer it to this directory.
4224              (substitute* "configure"
4225                (("^GOFFICE_PLUGINS_DIR=.*")
4226                 (string-append "GOFFICE_PLUGINS_DIR="
4227                                (assoc-ref outputs "out")
4228                                "/goffice/plugins"))))))))
4229     (inputs
4230      `(("glib" ,glib)
4231        ("gtk+" ,gtk+)
4232        ("goffice" ,goffice)
4233        ("libgsf" ,libgsf)
4234        ("librsvg" ,librsvg)
4235        ("libxml2" ,libxml2)
4236        ("libxslt" ,libxslt)
4237        ("python" ,python)
4238        ("python-pygobject" ,python-pygobject)
4239        ("zlib" ,zlib)))
4240     (native-inputs
4241      `(("bison" ,bison)
4242        ("docbook-xml" ,docbook-xml)
4243        ("intltool" ,intltool)
4244        ("itstool" ,itstool)
4245        ("glib:bin" ,glib "bin")
4246        ("pkg-config" ,pkg-config)))
4247     (home-page "http://www.gnumeric.org")
4248     (synopsis "Spreadsheet application")
4249     (description
4250      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4251 interoperable with other spreadsheet applications.  It has a vast array of
4252 features beyond typical spreadsheet functionality, such as support for linear
4253 and non-linear solvers, statistical analysis, and telecommunication
4254 engineering.")
4255     (license
4256     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4257      (list license:gpl2 license:gpl3))))
4258
4259 (define-public drawing
4260   (package
4261     (name "drawing")
4262     (version "0.6.5")
4263     (source
4264      (origin
4265        (method git-fetch)
4266        (uri (git-reference
4267              (url "https://github.com/maoschanz/drawing")
4268              (commit version)))
4269        (file-name (git-file-name name version))
4270        (sha256
4271         (base32 "1kfgmalakifcvzhzss9zhmqjbdk24zr22c5xwkkahlvfcafp13wn"))))
4272     (build-system meson-build-system)
4273     (arguments
4274      `(#:glib-or-gtk? #t
4275        #:phases
4276        (modify-phases %standard-phases
4277          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4278            (lambda* (#:key outputs #:allow-other-keys)
4279              (let ((prog (string-append (assoc-ref outputs "out")
4280                                         "/bin/drawing"))
4281                    (pylib (string-append (assoc-ref outputs "out")
4282                                          "/lib/python"
4283                                          ,(version-major+minor
4284                                            (package-version python))
4285                                          "/site-packages")))
4286                (wrap-program prog
4287                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
4288                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4289                #t))))))
4290     (native-inputs
4291      `(("desktop-file-utils" ,desktop-file-utils)
4292        ("gettext" ,gettext-minimal)
4293        ("glib:bin" ,glib "bin")
4294        ("gobject-introspection" ,gobject-introspection)
4295        ("gtk+:bin" ,gtk+ "bin")
4296        ("pkg-config" ,pkg-config)))
4297     (inputs
4298      `(("gdk-pixbuf" ,gdk-pixbuf+svg)
4299        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4300        ("gtk+" ,gtk+)
4301        ("pango" ,pango)
4302        ("python-pycairo" ,python-pycairo)
4303        ("python-pygobject" ,python-pygobject)))
4304     (home-page "https://maoschanz.github.io/drawing/")
4305     (synopsis "Basic image editor for GNOME")
4306     (description
4307      "Drawing is a basic image editor aiming at the GNOME desktop.")
4308     (license license:gpl3+)))
4309
4310 (define-public gnome-themes-standard
4311   (package
4312     (name "gnome-themes-standard")
4313     (version "3.22.3")
4314     (source
4315      (origin
4316        (method url-fetch)
4317        (uri (string-append "mirror://gnome/sources/" name "/"
4318                            (version-major+minor version) "/" name "-"
4319                            version ".tar.xz"))
4320        (sha256
4321         (base32
4322          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4323     (build-system gnu-build-system)
4324     (arguments
4325      '(#:configure-flags
4326        ;; Don't create 'icon-theme.cache'.
4327        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4328               (true      (string-append coreutils "/bin/true")))
4329          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4330     (inputs
4331      `(("gtk+" ,gtk+)
4332        ("gtk+-2" ,gtk+-2)
4333        ("librsvg" ,librsvg)
4334        ("libxml2" ,libxml2)
4335        ("glib" ,glib)))
4336     (native-inputs
4337      `(("intltool" ,intltool)
4338        ("glib:bin" ,glib "bin")
4339        ("pkg-config" ,pkg-config)))
4340     (home-page "https://launchpad.net/gnome-themes-standard")
4341     (synopsis "Default GNOME 3 themes")
4342     (description
4343      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4344     (license license:lgpl2.1+)))
4345
4346 (define-public seahorse
4347   (package
4348     (name "seahorse")
4349     (version "3.36.2")
4350     (source
4351      (origin
4352        (method url-fetch)
4353        (uri (string-append "mirror://gnome/sources/" name "/"
4354                            (version-major+minor version) "/" name "-"
4355                            version ".tar.xz"))
4356        (sha256
4357         (base32 "16wmxxppgcgfj8zkagcny5af1c81x32ysm9d6j9f2k7bmik21ss5"))))
4358     (build-system meson-build-system)
4359     (arguments
4360      '(#:glib-or-gtk? #t
4361        #:phases
4362        (modify-phases %standard-phases
4363          (add-after 'unpack 'skip-gtk-update-icon-cache
4364            ;; Don't create 'icon-theme.cache'.
4365            (lambda _
4366              (substitute* "build-aux/meson_post_install.py"
4367                (("gtk-update-icon-cache") "true"))
4368              #t)))))
4369     (inputs
4370      `(("gtk+" ,gtk+)
4371        ("gcr" ,gcr)
4372        ("gnupg" ,gnupg)
4373        ("gpgme" ,gpgme)
4374        ("openldap" ,openldap)
4375        ("openssh" ,openssh)
4376        ("avahi" ,avahi)
4377        ("libhandy" ,libhandy-0.0)
4378        ("libpwquality" ,libpwquality)
4379        ("libsecret" ,libsecret)
4380        ("libsoup" ,libsoup)))
4381     (native-inputs
4382      `(("gettext" ,gettext-minimal)
4383        ("glib:bin" ,glib "bin")
4384        ("itstool" ,itstool)
4385        ("pkg-config" ,pkg-config)
4386        ("vala" ,vala)
4387        ("xmllint" ,libxml2)))
4388     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4389     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4390     (description
4391      "Seahorse is a GNOME application for managing encryption keys and
4392 passwords in the GNOME keyring.")
4393     (license license:gpl2+)))
4394
4395 (define-public vala
4396   (package
4397     (name "vala")
4398     (version "0.46.5")
4399     (source (origin
4400               (method url-fetch)
4401               (uri (string-append "mirror://gnome/sources/" name "/"
4402                                   (version-major+minor version) "/"
4403                                   name "-" version ".tar.xz"))
4404               (sha256
4405                (base32
4406                 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
4407     (build-system gnu-build-system)
4408     (arguments
4409      '(#:phases
4410        (modify-phases %standard-phases
4411          (add-before 'check 'pre-check
4412                      (lambda _
4413                        (setenv "CC" "gcc")
4414                        (substitute* "valadoc/tests/testrunner.sh"
4415                          (("export PKG_CONFIG_PATH=" m)
4416                           (string-append m "$PKG_CONFIG_PATH:")))
4417                        ;; For missing '/etc/machine-id'.
4418                        (setenv "DBUS_FATAL_WARNINGS" "0")
4419                        #t)))))
4420     (native-inputs
4421      `(("pkg-config" ,pkg-config)
4422        ("flex" ,flex)
4423        ("bison" ,bison)
4424        ("xsltproc" ,libxslt)
4425        ("dbus" ,dbus)                                     ; for dbus tests
4426        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
4427     (inputs
4428      `(("graphviz" ,graphviz)))
4429     (propagated-inputs
4430      `(("glib" ,glib))) ; required by libvala-0.40.pc
4431     (home-page "https://wiki.gnome.org/Projects/Vala/")
4432     (synopsis "Compiler for the GObject type system")
4433     (description
4434      "Vala is a programming language that aims to bring modern programming
4435 language features to GNOME developers without imposing any additional runtime
4436 requirements and without using a different ABI compared to applications and
4437 libraries written in C.")
4438     (license license:lgpl2.1+)))
4439
4440 (define-public vala-0.50
4441   (package
4442     (inherit vala)
4443     (version "0.50.2")
4444     (source (origin
4445               (method url-fetch)
4446               (uri (string-append "mirror://gnome/sources/vala/"
4447                                   (version-major+minor version) "/"
4448                                   "vala-" version ".tar.xz"))
4449               (sha256
4450                (base32
4451                 "1nnf0x6vk0a9p2y6z7jwjfvmlxh3qhj581v381r0y1sxsv35s39c"))))))
4452
4453 (define-public vte
4454   (package
4455     (name "vte")
4456     (version "0.60.3")
4457     (source (origin
4458               (method url-fetch)
4459               (uri (string-append "mirror://gnome/sources/vte/"
4460                                   (version-major+minor version) "/"
4461                                   "vte-" version ".tar.xz"))
4462               (sha256
4463                (base32
4464                 "0al2v6fn061v4j1wwvppim1q283y2a6s0iyl29hxhmx3h48nxdzy"))))
4465     (build-system meson-build-system)
4466     (arguments
4467      `(#:configure-flags
4468        '("-Dvapi=true"
4469          "-D_systemd=false")))
4470     (native-inputs
4471      `(("pkg-config" ,pkg-config)
4472        ("gettext" ,gettext-minimal)
4473        ("vala" ,vala)
4474        ("gobject-introspection" ,gobject-introspection)
4475        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4476        ("gperf" ,gperf)
4477        ("xmllint" ,libxml2)))
4478     (propagated-inputs
4479      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
4480        ("gnutls" ,gnutls)               ; ditto
4481        ("pcre2" ,pcre2)))               ; ditto
4482     (home-page "https://www.gnome.org/")
4483     (synopsis "Virtual Terminal Emulator")
4484     (description
4485      "VTE is a library (libvte) implementing a terminal emulator widget for
4486 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4487 gnome-terminal, but can also be used to embed a console/terminal in games,
4488 editors, IDEs, etc.")
4489     (license license:lgpl2.1+)))
4490
4491 (define-public vte-ng
4492   (package
4493     (inherit vte)
4494     (name "vte-ng")
4495     (version "0.58.2.a")
4496     (home-page "https://github.com/thestinger/vte-ng")
4497     (source (origin
4498               (method git-fetch)
4499               (uri (git-reference (url home-page) (commit version)))
4500               (file-name (git-file-name name version))
4501               (sha256
4502                (base32
4503                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4504     (build-system meson-build-system)
4505     (native-inputs
4506      `(("gtk-doc" ,gtk-doc)
4507        ,@(package-native-inputs vte)))
4508     (arguments
4509      `(#:configure-flags '("-Ddocs=true")))
4510   (synopsis "Enhanced VTE terminal widget")
4511   (description
4512    "VTE is a library (libvte) implementing a terminal emulator widget for
4513 GTK+, this fork provides additional functions exposed for keyboard text
4514 selection and URL hints.")))
4515
4516 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4517 (define-public vte/gtk+-2
4518   (package (inherit vte)
4519     (name "vte")
4520     (version "0.28.2")
4521     (source (origin
4522               (method url-fetch)
4523               (uri (string-append "mirror://gnome/sources/" name "/"
4524                                   (version-major+minor version) "/"
4525                                   name "-" version ".tar.xz"))
4526               (sha256
4527                (base32
4528                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4529               (patches (search-patches
4530                          "vte-CVE-2012-2738-pt1.patch"
4531                          "vte-CVE-2012-2738-pt2.patch"))))
4532     (build-system gnu-build-system)
4533     (arguments
4534      '(#:configure-flags '("--disable-python")))
4535     (native-inputs
4536      `(("pkg-config" ,pkg-config)
4537        ("intltool" ,intltool)
4538        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
4539     (propagated-inputs
4540      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
4541        ("ncurses" ,ncurses))))) ; required by libvte.la
4542
4543 (define-public vinagre
4544   (package
4545     (name "vinagre")
4546     (version "3.22.0")
4547     (source (origin
4548               (method url-fetch)
4549               (uri (string-append "mirror://gnome/sources/" name "/"
4550                                   (version-major+minor version) "/"
4551                                   name "-" version ".tar.xz"))
4552               (patches (search-patches "vinagre-newer-freerdp.patch"
4553                                        "vinagre-newer-rdp-parameters.patch"))
4554               (sha256
4555                (base32
4556                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4557     (build-system glib-or-gtk-build-system)
4558     (arguments
4559      ;; Disable -Werror and such, to avoid build failures on compilation
4560      ;; warnings.
4561      '(#:configure-flags '("--enable-compile-warnings=minimum")
4562        #:phases
4563        (modify-phases %standard-phases
4564          (add-before 'install 'skip-gtk-update-icon-cache
4565            (lambda _
4566              ;; Don't create 'icon-theme.cache'
4567              (substitute* (find-files "." "^Makefile$")
4568                (("gtk-update-icon-cache") (which "true")))
4569              #t))
4570          (add-after 'unpack 'patch-configure
4571            (lambda _
4572              (substitute* "configure"
4573                (("freerdp") "freerdp2"))
4574              #t)))))
4575     (native-inputs
4576      `(("pkg-config" ,pkg-config)
4577        ("intltool" ,intltool)
4578        ("itstool" ,itstool)
4579        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4580     (inputs
4581      `(("libxml2" ,libxml2)
4582        ("gtk-vnc" ,gtk-vnc)
4583        ("gnome-keyring" ,gnome-keyring)
4584        ("libsecret" ,libsecret)
4585        ("freerdp" ,freerdp)
4586        ("spice" ,spice)
4587        ("spice-gtk" ,spice-gtk)
4588        ("telepathy-glib" ,telepathy-glib)
4589        ("vte" ,vte)))
4590     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4591     (synopsis "Remote desktop viewer for GNOME")
4592     (description "Vinagre is a remote display client supporting the VNC, SPICE
4593 and RDP protocols.")
4594     (license license:gpl3+)))
4595
4596 (define-public dconf
4597   (package
4598     (name "dconf")
4599     (version "0.36.0")
4600     (source (origin
4601               (method url-fetch)
4602               (uri (string-append
4603                     "mirror://gnome/sources/" name "/"
4604                     (version-major+minor version) "/"
4605                     name "-" version ".tar.xz"))
4606               (sha256
4607                (base32
4608                 "0bfs069pjv6lhp7xrzmrhz3876ay2ryqxzc6mlva1hhz34ibprlz"))))
4609     (build-system meson-build-system)
4610     (propagated-inputs
4611      ;; In Requires of dconf.pc.
4612      `(("glib" ,glib)))
4613     (inputs
4614      `(("gtk+" ,gtk+)
4615        ("dbus" ,dbus)))
4616     (native-inputs
4617      `(("bash-completion" ,bash-completion)
4618        ("libxslt" ,libxslt)                     ;for xsltproc
4619        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4620        ("docbook-xml" ,docbook-xml-4.2)
4621        ("docbook-xsl" ,docbook-xsl)
4622        ("glib:bin" ,glib "bin")
4623        ("gtk-doc" ,gtk-doc)
4624        ("pkg-config" ,pkg-config)
4625        ("vala" ,vala)))
4626     (arguments
4627      `(#:glib-or-gtk? #t
4628        #:configure-flags '("-Denable-gtk-doc=true")
4629        #:phases (modify-phases %standard-phases
4630                   (add-after 'unpack 'increase-test-timeout
4631                     (lambda _
4632                       ;; On big-memory systems, the engine test may take
4633                       ;; much longer than the default of 30 seconds.
4634                       (substitute* "tests/meson.build"
4635                         (("test\\(unit_test\\[0\\], exe" all)
4636                          (string-append all ", timeout : 90")))
4637                       #t)))))
4638     (home-page "https://developer.gnome.org/dconf/")
4639     (synopsis "Low-level GNOME configuration system")
4640     (description "Dconf is a low-level configuration system.  Its main purpose
4641 is to provide a backend to GSettings on platforms that don't already have
4642 configuration storage systems.")
4643     (license license:lgpl2.1+)))
4644
4645 (define-public json-glib
4646   (package
4647     (name "json-glib")
4648     (version "1.4.4")
4649     (source (origin
4650               (method url-fetch)
4651               (uri (string-append "mirror://gnome/sources/" name "/"
4652                                   (version-major+minor version) "/"
4653                                   name "-" version ".tar.xz"))
4654               (sha256
4655                (base32
4656                 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
4657     (build-system meson-build-system)
4658     (native-inputs
4659      `(("gettext" ,gettext-minimal)
4660        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
4661        ("gobject-introspection" ,gobject-introspection)
4662        ("pkg-config" ,pkg-config)))
4663     (propagated-inputs
4664      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
4665     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4666     (synopsis "Compiler for the GObject type system")
4667     (description
4668      "JSON-GLib is a C library based on GLib providing serialization and
4669 deserialization support for the JavaScript Object Notation (JSON) format
4670 described by RFC 4627.  It provides parser and generator GObject classes and
4671 various wrappers for the complex data types employed by JSON, such as arrays
4672 and objects.")
4673     (license license:lgpl2.1+)))
4674
4675 (define-public libxklavier
4676   (package
4677     (name "libxklavier")
4678     (version "5.4")
4679     (source (origin
4680               ;; Note: There's no tarball at ftp.gnome.org for this version.
4681               (method git-fetch)
4682               (uri (git-reference
4683                     (url "https://anongit.freedesktop.org/git/libxklavier")
4684                     (commit (string-append "libxklavier-" version))))
4685               (sha256
4686                (base32
4687                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4688               (file-name (git-file-name name version))))
4689     (build-system gnu-build-system)
4690     (arguments
4691      '(#:configure-flags
4692        (list (string-append "--with-xkb-base="
4693                             (assoc-ref %build-inputs "xkeyboard-config")
4694                             "/share/X11/xkb")
4695              "--disable-xmodmap-support")))
4696     (native-inputs
4697      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4698        ("gobject-introspection" ,gobject-introspection)
4699        ("pkg-config"            ,pkg-config)
4700        ("gtk-doc" ,gtk-doc)
4701        ("intltool" ,intltool)
4702        ("which" ,which)
4703        ("autoconf" ,autoconf)
4704        ("automake" ,automake)
4705        ("libtool" ,libtool)))
4706     (propagated-inputs
4707      ;; Required by libxklavier.pc.
4708      `(("glib"    ,glib)
4709        ("libxml2" ,libxml2)))
4710     (inputs
4711      `(("iso-codes"        ,iso-codes)
4712        ("libxi"            ,libxi)
4713        ("libxkbfile"       ,libxkbfile)
4714        ("xkbcomp"          ,xkbcomp)
4715        ("xkeyboard-config" ,xkeyboard-config)))
4716     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4717     (synopsis "High-level API for X Keyboard Extension")
4718     (description
4719      "LibXklavier is a library providing high-level API for X Keyboard
4720 Extension known as XKB.  This library is intended to support XFree86 and other
4721 commercial X servers.  It is useful for creating XKB-related software (layout
4722 indicators etc).")
4723     (license license:lgpl2.0+)))
4724
4725 (define-public python2-rsvg
4726   ;; XXX: This is actually a subset of gnome-python-desktop.
4727   (package
4728     (name "python2-rsvg")
4729     (version "2.32.0")
4730     (source
4731      (origin
4732        (method url-fetch)
4733        (uri (string-append
4734              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4735              version ".tar.bz2"))
4736        (sha256
4737         (base32
4738          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4739     (build-system gnu-build-system)
4740     (native-inputs
4741      `(("pkg-config" ,pkg-config)))
4742     (inputs
4743      `(("python" ,python-2)
4744        ("python2-pygtk" ,python2-pygtk)
4745        ("librsvg" ,librsvg)))
4746     (home-page "https://www.gnome.org")
4747     (synopsis "Python bindings to librsvg")
4748     (description
4749      "This package provides Python bindings to librsvg, the SVG rendering
4750 library.")
4751
4752     ;; This is the license of the rsvg bindings.  The license of each module
4753     ;; of gnome-python-desktop is given in 'COPYING'.
4754     (license license:lgpl2.1+)))
4755
4756 (define-public glib-networking
4757   (package
4758     (name "glib-networking")
4759     (version "2.62.2")
4760     (source (origin
4761               (method url-fetch)
4762               (uri (string-append "mirror://gnome/sources/glib-networking/"
4763                                   (version-major+minor version) "/"
4764                                   "glib-networking-" version ".tar.xz"))
4765               (sha256
4766                (base32
4767                 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
4768     (build-system meson-build-system)
4769     (arguments
4770      `(#:configure-flags '("-Dlibproxy_support=false")))
4771     (native-inputs
4772      `(("pkg-config" ,pkg-config)
4773        ("intltool" ,intltool)))
4774     (inputs
4775      `(("glib" ,glib)
4776        ("gnutls" ,gnutls)
4777        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
4778     (home-page "https://www.gnome.org")
4779     (synopsis "Network-related GIO modules")
4780     (description
4781      "This package contains various network related extensions for the GIO
4782 library.")
4783     (license license:lgpl2.0+)))
4784
4785 (define-public rest
4786   (package
4787     (name "rest")
4788     (version "0.8.1")
4789     (source (origin
4790               (method url-fetch)
4791               (uri (string-append "mirror://gnome/sources/rest/"
4792                                   (version-major+minor version) "/"
4793                                   name "-" version ".tar.xz"))
4794               (sha256
4795                (base32
4796                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4797     (build-system gnu-build-system)
4798     (arguments
4799      '(#:tests? #f ; tests require internet connection
4800        #:configure-flags
4801        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4802     (native-inputs
4803      `(("glib-mkenums" ,glib "bin")
4804        ("gobject-introspection" ,gobject-introspection)
4805        ("pkg-config" ,pkg-config)))
4806     (propagated-inputs
4807      ;; rest-0.7.pc refers to all these.
4808      `(("glib"    ,glib)
4809        ("libsoup" ,libsoup)
4810        ("libxml2" ,libxml2)))
4811     (home-page "https://www.gtk.org/")
4812     (synopsis "RESTful web api query library")
4813     (description
4814      "This library was designed to make it easier to access web services that
4815 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4816 libxml to ease remote use of the RESTful API.")
4817     (license license:lgpl2.1+)))
4818
4819 (define-public libsoup
4820   (package
4821     (name "libsoup")
4822     (version "2.72.0")
4823     (source (origin
4824               (method url-fetch)
4825               (uri (string-append "mirror://gnome/sources/libsoup/"
4826                                   (version-major+minor version) "/"
4827                                   "libsoup-" version ".tar.xz"))
4828               (sha256
4829                (base32
4830                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
4831     (build-system meson-build-system)
4832     (outputs '("out" "doc"))
4833     (arguments
4834      `(#:modules ((guix build utils)
4835                   (guix build meson-build-system)
4836                   (ice-9 popen))
4837
4838        #:configure-flags '("-Dgtk_doc=true")
4839        #:phases
4840        (modify-phases %standard-phases
4841          (add-after 'unpack 'patch-docbook-xml
4842            (lambda* (#:key inputs #:allow-other-keys)
4843              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
4844                                           "/xml/dtd/docbook")))
4845                (substitute* (find-files "docs/reference")
4846                  (("http://.*/docbookx\\.dtd")
4847                   (string-append xmldoc "/docbookx.dtd")))
4848                #t)))
4849          (add-after 'unpack 'adjust-tests
4850            (lambda _
4851              ;; This test fails due to missing /etc/nsswitch.conf
4852              ;; in the build environment.
4853              (substitute* "tests/socket-test.c"
4854                ((".*/sockets/unconnected.*") ""))
4855
4856              ;; These fail because "subdomain.localhost" does not resolve in
4857              ;; the build environment.
4858              (substitute* "tests/hsts-test.c"
4859                ((".*/hsts/basic.*") "")
4860                ((".*/hsts/subdomains.*") "")
4861                ((".*/hsts/superdomain.*") "")
4862                ((".*/hsts/utf8-address.*") ""))
4863              (substitute* "tests/hsts-db-test.c"
4864                ((".*/hsts-db/subdomains.*") ""))
4865
4866              ;; Generate a self-signed certificate that has "localhost" as its
4867              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
4868              ;; 3.5.12, tests such as "ssl-tests" fail:
4869              ;;
4870              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
4871              ;;
4872              ;; 'certtool' is interactive so we have to pipe it the answers.
4873              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
4874              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
4875  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
4876                (for-each (lambda (line)
4877                            (display line pipe)
4878                            (newline pipe))
4879                          '(""               ;Common name
4880                            ""               ;UID
4881                            "Guix"           ;Organizational unit name
4882                            "GNU"            ;Organization name
4883                            ""               ;Locality name
4884                            ""               ;State or province
4885                            ""               ;Country
4886                            ""               ;subject's domain component (DC)
4887                            ""               ;E-mail
4888                            ""               ;serial number
4889                            "-1"             ;expiration time
4890                            "N"              ;belong to authority?
4891                            "N"              ;web client certificate?
4892                            "N"              ;IPsec IKE?
4893                            "Y"              ;web server certificate?
4894                            "localhost"      ;dnsName of subject
4895                            ""               ;dnsName of subject (end)
4896                            ""               ;URI of subject
4897                            "127.0.0.1"      ;IP address of subject
4898                            ""               ;signing?
4899                            ""               ;encryption (RSA)?
4900                            ""               ;data encryption?
4901                            ""               ;sign OCSP requests?
4902                            ""               ;sign code?
4903                            ""               ;time stamping?
4904                            ""               ;email protection?
4905                            ""               ;URI of the CRL distribution point
4906                            "y"              ;above info OK?
4907                            ))
4908                (close-pipe pipe))
4909              #t))
4910          (add-after 'install 'move-doc
4911            (lambda* (#:key outputs #:allow-other-keys)
4912              (let ((out (assoc-ref outputs "out"))
4913                    (doc (assoc-ref outputs "doc")))
4914                (mkdir-p (string-append doc "/share"))
4915                (copy-recursively (string-append out "/share/gtk-doc")
4916                                  (string-append doc "/share/gtk-doc"))
4917                (delete-file-recursively (string-append out "/share/gtk-doc"))
4918                #t))))))
4919     (native-inputs
4920      `(("docbook-xml" ,docbook-xml-4.1.2)
4921        ("glib:bin" ,glib "bin")                   ; for glib-mkenums
4922        ("gobject-introspection" ,gobject-introspection)
4923        ("gtk-doc" ,gtk-doc)
4924        ("intltool" ,intltool)
4925        ("pkg-config" ,pkg-config)
4926        ("python" ,python-wrapper)
4927        ("vala" ,vala)
4928        ("php" ,php)
4929        ("curl" ,curl)
4930        ("gnutls" ,gnutls)                         ;for 'certtool'
4931        ("httpd" ,httpd)))
4932     (propagated-inputs
4933      ;; libsoup-2.4.pc refers to all these.
4934      `(("brotli" ,google-brotli)
4935        ("glib" ,glib)
4936        ("libpsl" ,libpsl)
4937        ("libxml2" ,libxml2)
4938        ("sqlite" ,sqlite)
4939        ("zlib" ,zlib)))
4940     (inputs
4941      `(("glib-networking" ,glib-networking)
4942        ("mit-krb5" ,mit-krb5)))
4943     (home-page "https://live.gnome.org/LibSoup/")
4944     (synopsis "GLib-based HTTP Library")
4945     (description
4946      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4947 and the GLib main loop, to integrate well with GNOME applications.")
4948     (license license:lgpl2.0+)))
4949
4950
4951 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4952 (define-public libsoup-minimal
4953   (package/inherit libsoup
4954     (name "libsoup-minimal")
4955     (outputs (delete "doc" (package-outputs libsoup)))
4956     (arguments
4957      (substitute-keyword-arguments (package-arguments libsoup)
4958        ((#:configure-flags configure-flags)
4959         `(delete "-Dgtk_doc=true" ,configure-flags))
4960        ((#:phases phases)
4961         `(modify-phases ,phases
4962            (delete 'move-doc)))))
4963     (native-inputs (alist-delete "gtk-doc" (package-native-inputs libsoup)))))
4964
4965 (define-public libsecret
4966   (package
4967     (name "libsecret")
4968     (version "0.20.4")
4969     (source (origin
4970               (method url-fetch)
4971               (uri (string-append
4972                     "mirror://gnome/sources/libsecret/"
4973                     (version-major+minor version) "/"
4974                     "libsecret-" version ".tar.xz"))
4975               (sha256
4976                (base32
4977                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
4978     (build-system gnu-build-system)
4979     (outputs '("out" "doc"))
4980     (arguments
4981      `(#:tests? #f ; FIXME: Testing hangs.
4982        #:configure-flags
4983        (list (string-append "--with-html-dir="
4984                             (assoc-ref %outputs "doc")
4985                             "/share/gtk-doc/html"))))
4986     (native-inputs
4987      `(("gettext" ,gettext-minimal)
4988        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
4989        ("gobject-introspection" ,gobject-introspection)
4990        ("pkg-config" ,pkg-config)
4991        ("vala" ,vala)
4992        ("xsltproc" ,libxslt)))
4993        ;; These are needed for the tests.
4994        ;; FIXME: Add gjs once available.
4995        ;("dbus" ,dbus)
4996        ;("python2" ,python-2)
4997        ;("python2-dbus" ,python2-dbus)
4998        ;("python2-pygobject" ,python2-pygobject)
4999        ;("python2-pygobject-2" ,python2-pygobject-2)))
5000     (propagated-inputs
5001      `(("glib" ,glib))) ; required by libsecret-1.pc
5002     (inputs
5003      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5004      ;; doesn't seem to affect the build result.
5005      `(("docbook-xsl" ,docbook-xsl)
5006        ("libgcrypt" ,libgcrypt)
5007        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
5008     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5009     (synopsis "GObject bindings for \"Secret Service\" API")
5010     (description
5011      "Libsecret is a GObject based library for storing and retrieving passwords
5012 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5013     (license license:lgpl2.1+)))
5014
5015 (define-public five-or-more
5016   (package
5017     (name "five-or-more")
5018     (version "3.32.2")
5019     (source
5020      (origin
5021        (method url-fetch)
5022        (uri (string-append "mirror://gnome/sources/five-or-more/"
5023                            (version-major+minor version) "/"
5024                            "five-or-more-" version ".tar.xz"))
5025        (sha256
5026         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
5027     (build-system meson-build-system)
5028     (arguments
5029      '(#:glib-or-gtk? #t
5030        #:phases
5031        (modify-phases %standard-phases
5032          (add-after 'unpack 'skip-gtk-update-icon-cache
5033            (lambda _
5034              (substitute* "meson_post_install.py"
5035                (("gtk-update-icon-cache") (which "true")))
5036              #t)))))
5037     (native-inputs
5038      `(("pkg-config" ,pkg-config)
5039        ("appstream-glib" ,appstream-glib)
5040        ("desktop-file-utils" ,desktop-file-utils)
5041        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5042        ("intltool" ,intltool)
5043        ("itstool" ,itstool)
5044        ("vala" ,vala)
5045        ("xmllint" ,libxml2)))
5046     (inputs
5047      `(("gtk+" ,gtk+)
5048        ("libgnome-games-support" ,libgnome-games-support)
5049        ("librsvg" ,librsvg)))
5050     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5051     (synopsis "Logic puzzle game")
5052     (description "Five or More is a game where you try to align
5053  five or more objects of the same color and shape causing them to disappear.
5054  On every turn more objects will appear, until the board is full.
5055  Try to last as long as possible.")
5056     (license license:gpl2+)))
5057
5058 (define-public gnome-mines
5059   (package
5060     (name "gnome-mines")
5061     (version "3.36.1")
5062     (source
5063      (origin
5064        (method url-fetch)
5065        (uri (string-append "mirror://gnome/sources/" name "/"
5066                            (version-major+minor version) "/"
5067                            name "-" version ".tar.xz"))
5068        (sha256
5069         (base32 "0m2680r94nk61imym4x73j03jwfjd8cxm592m5ybiqdfdw6i723i"))))
5070     (build-system meson-build-system)
5071     (arguments
5072      '(#:glib-or-gtk? #t
5073        #:phases
5074        (modify-phases %standard-phases
5075          (add-after 'unpack 'skip-gtk-update-icon-cache
5076            (lambda _
5077              (substitute* "build-aux/meson_post_install.py"
5078                (("gtk-update-icon-cache") (which "true")))
5079              #t)))))
5080     (native-inputs
5081      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5082        ("pkg-config" ,pkg-config)
5083        ("desktop-file-utils" ,desktop-file-utils)
5084        ("intltool" ,intltool)
5085        ("itstool" ,itstool)
5086        ("vala" ,vala)
5087        ("yelp" ,yelp)
5088        ("appstream-glib" ,appstream-glib)))
5089     (inputs
5090      `(("gtk+" ,gtk+)
5091        ("libgnome-games-support" ,libgnome-games-support)
5092        ("librsvg" ,librsvg)))
5093     (home-page "https://wiki.gnome.org/Apps/Mines")
5094     (synopsis "Minesweeper game")
5095     (description
5096      "Mines (previously gnomine) is a puzzle game where you locate mines
5097 floating in an ocean using only your brain and a little bit of luck.")
5098     (license license:gpl2+)))
5099
5100 (define-public gnome-multi-writer
5101   (package
5102     (name "gnome-multi-writer")
5103     (version "3.35.90")
5104     (source
5105      (origin
5106        (method url-fetch)
5107        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5108                            (version-major+minor version) "/"
5109                            "gnome-multi-writer-" version ".tar.xz"))
5110        (sha256
5111         (base32
5112          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5113     (build-system meson-build-system)
5114     (arguments
5115      '(#:glib-or-gtk? #t
5116        #:phases
5117        (modify-phases %standard-phases
5118          (add-after 'unpack 'skip-post-install
5119            (lambda _
5120              (substitute* "meson.build"
5121                (("meson.add_install_script" &) (string-append "# " &)))
5122              #t)))))
5123     (native-inputs
5124      `(("glib:bin" ,glib "bin")
5125        ("pkg-config" ,pkg-config)))
5126     (inputs
5127      `(("gtk+" ,gtk+)
5128        ("glib" ,glib)                   ; for gio
5129        ("gusb" ,gusb)
5130        ("udisks" ,udisks)
5131        ("libgudev" ,libgudev)
5132        ("libcanberra" ,libcanberra)
5133        ("polkit" ,polkit)))
5134     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5135     (synopsis "Write to multiple USB devices at once")
5136     (description
5137      "MultiWriter can be used to write an ISO file to multiple USB devices at
5138 once.")
5139     (license license:gpl2+)))
5140
5141 (define-public gnome-sudoku
5142   (package
5143     (name "gnome-sudoku")
5144     (version "3.34.1")
5145     (source
5146      (origin
5147        (method url-fetch)
5148        (uri (string-append "mirror://gnome/sources/" name "/"
5149                            (version-major+minor version) "/"
5150                            name "-" version ".tar.xz"))
5151        (sha256
5152         (base32
5153          "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
5154     (build-system meson-build-system)
5155     (arguments
5156      '(#:glib-or-gtk? #t
5157        #:phases
5158        (modify-phases %standard-phases
5159          (add-after 'unpack 'skip-gtk-update-icon-cache
5160            (lambda _
5161              (substitute* "build-aux/post_install.py"
5162                (("gtk-update-icon-cache") (which "true")))
5163              #t)))))
5164     (native-inputs
5165      `(("pkg-config" ,pkg-config)
5166        ("desktop-file-utils" ,desktop-file-utils)
5167        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5168        ("intltool" ,intltool)
5169        ("itstool" ,itstool)
5170        ("vala" ,vala)
5171        ("xmllint" ,libxml2)))
5172     (inputs
5173      `(("gtk+" ,gtk+)
5174        ("json-glib" ,json-glib)
5175        ("libgee" ,libgee)
5176        ("librsvg" ,librsvg)
5177        ("qqwing" ,qqwing)))
5178     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5179     (synopsis "Japanese logic game")
5180     (description
5181      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5182 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5183 possible while still providing features that make playing difficult Sudoku
5184 more fun.")
5185     (license license:gpl2+)))
5186
5187 (define-public gnome-terminal
5188   (package
5189     (name "gnome-terminal")
5190     (version "3.34.2")
5191     (source
5192      (origin
5193        (method url-fetch)
5194        (uri (string-append "mirror://gnome/sources/" name "/"
5195                            (version-major+minor version) "/"
5196                            name "-" version ".tar.xz"))
5197        (sha256
5198         (base32
5199          "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
5200     (build-system glib-or-gtk-build-system)
5201     (arguments
5202      '(#:configure-flags
5203        (list "--disable-migration" "--disable-search-provider"
5204              "--without-nautilus-extension")
5205        #:phases
5206        (modify-phases %standard-phases
5207          (add-before 'configure 'patch-/bin/true
5208                      (lambda _
5209                        (substitute* "configure"
5210                          (("/bin/true") (which "true"))))))))
5211     (native-inputs
5212      `(("pkg-config" ,pkg-config)
5213        ("desktop-file-utils" ,desktop-file-utils)
5214        ("intltool" ,intltool)
5215        ("itstool" ,itstool)
5216        ("xmllint" ,libxml2)))
5217     (propagated-inputs
5218      `(("dconf" ,dconf)))
5219     (inputs
5220      `(("gtk+" ,gtk+)
5221        ("vte" ,vte)
5222        ("gnutls" ,gnutls)
5223        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5224        ("util-linux" ,util-linux "lib")
5225        ("vala" ,vala)))
5226     (home-page "https://wiki.gnome.org/Apps/Terminal")
5227     (synopsis "Terminal emulator")
5228     (description
5229      "GNOME Terminal is a terminal emulator application for accessing a
5230 UNIX shell environment which can be used to run programs available on
5231 your system.
5232
5233 It supports several profiles, multiple tabs and implements several
5234 keyboard shortcuts.")
5235     (license license:gpl3+)))
5236
5237 (define-public colord
5238   (package
5239     (name "colord")
5240     (version "1.4.5")
5241     (source
5242      (origin
5243        (method url-fetch)
5244        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5245                            "colord-" version ".tar.xz"))
5246        (sha256
5247         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5248     (build-system meson-build-system)
5249     (arguments
5250      '(;; FIXME: One test fails:
5251        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5252        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5253        ;; application/x-zerosize
5254        #:tests? #f
5255        #:glib-or-gtk? #t
5256        #:configure-flags (list "-Dlocalstatedir=/var"
5257                                ;; No dep on systemd.
5258                                "-Dsystemd=false"
5259                                ;; Wants to install to global completion dir;
5260                                ;; punt.
5261                                "-Dbash_completion=false"
5262                                "-Ddaemon_user=colord"
5263                                "-Dsane=true"
5264                                "-Dvapi=true"
5265                                ;; Requires spotread.
5266                                "-Dargyllcms_sensor=false"
5267                                ;; TODO: Requires docbook2x.
5268                                "-Dman=false")
5269        #:phases
5270        (modify-phases %standard-phases
5271          (add-before 'configure 'patch-build-system
5272            (lambda* (#:key outputs #:allow-other-keys)
5273              (substitute* "rules/meson.build"
5274                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5275                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
5276              #t))
5277          (add-before 'configure 'set-sqlite3-file-name
5278            (lambda* (#:key inputs #:allow-other-keys)
5279              ;; "colormgr dump" works by invoking the "sqlite3" command.
5280              ;; Record its absolute file name.
5281              (let ((sqlite (assoc-ref inputs "sqlite")))
5282                (substitute* "client/cd-util.c"
5283                  (("\"sqlite3\"")
5284                   (string-append "\"" sqlite "/bin/sqlite3\"")))
5285                #t))))))
5286     (native-inputs
5287      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5288        ("gettext" ,gettext-minimal)
5289        ("gobject-introspection" ,gobject-introspection)
5290        ("gtk-doc" ,gtk-doc)
5291        ("pkg-config" ,pkg-config)
5292        ("vala" ,vala)))
5293     (propagated-inputs
5294      ;; colord.pc refers to all these.
5295      `(("glib" ,glib)
5296        ("lcms" ,lcms)
5297        ("udev" ,eudev)))
5298     (inputs
5299      `(("dbus-glib" ,dbus-glib)
5300        ("gusb" ,gusb)
5301        ("libgudev" ,libgudev)
5302        ("libusb" ,libusb)
5303        ("polkit" ,polkit)
5304        ("python" ,python-wrapper)
5305        ("sqlite" ,sqlite)
5306        ("sane-backends" ,sane-backends)))
5307     (home-page "https://www.freedesktop.org/software/colord/")
5308     (synopsis "Color management service")
5309     (description "Colord is a system service that makes it easy to manage,
5310 install and generate color profiles to accurately color manage input and
5311 output devices.")
5312     (license license:gpl2+)))
5313
5314 (define-public geoclue
5315   (package
5316     (name "geoclue")
5317     (version "2.5.7")
5318     (source
5319      (origin
5320        (method url-fetch)
5321        (uri
5322         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5323                        version "/geoclue-" version ".tar.bz2"))
5324        (sha256
5325         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5326        (patches (search-patches "geoclue-config.patch"))))
5327     (build-system meson-build-system)
5328     (arguments
5329      '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
5330     (native-inputs
5331      `(("pkg-config" ,pkg-config)
5332        ("gobject-introspection" ,gobject-introspection)
5333        ("modem-manager" ,modem-manager)
5334        ("libnotify" ,libnotify)
5335        ("gtk-doc" ,gtk-doc)
5336        ("intltool" ,intltool)))
5337     (inputs
5338      `(("avahi" ,avahi)
5339        ("glib:bin" ,glib "bin")
5340        ("glib-networking" ,glib-networking)
5341        ("json-glib" ,json-glib)
5342        ("libsoup" ,libsoup)))
5343     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5344     (synopsis "Geolocation service")
5345     (description "Geoclue is a D-Bus service that provides location
5346 information.  The primary goal of the Geoclue project is to make creating
5347 location-aware applications as simple as possible, while the secondary goal is
5348 to ensure that no application can access location information without explicit
5349 permission from user.")
5350     (license license:gpl2+)))
5351
5352 (define-public geocode-glib
5353   (package
5354     (name "geocode-glib")
5355     (version "3.26.2")
5356     (source (origin
5357               (method url-fetch)
5358               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5359                                   (version-major+minor version) "/"
5360                                   "geocode-glib-" version ".tar.xz"))
5361               (sha256
5362                (base32
5363                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5364     (build-system meson-build-system)
5365     (arguments
5366      `(#:phases
5367        (modify-phases %standard-phases
5368          ;; The tests require a bunch of locales.
5369          (add-before 'check 'set-locales
5370            (lambda* (#:key inputs #:allow-other-keys)
5371              (setenv "GUIX_LOCPATH"
5372                      (string-append (assoc-ref inputs "glibc-locales")
5373                                     "/lib/locale"))
5374              #t)))))
5375     (native-inputs
5376      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5377        ("glibc-locales" ,glibc-locales) ; for tests
5378        ("gettext" ,gettext-minimal)
5379        ("gobject-introspection" ,gobject-introspection)
5380        ("gtk-doc" ,gtk-doc)
5381        ("pkg-config" ,pkg-config)
5382        ("json-glib" ,json-glib)))
5383     (propagated-inputs
5384      ;; geocode-glib-1.0.pc refers to GIO.
5385      `(("glib" ,glib)))
5386     (inputs
5387      `(("libsoup" ,libsoup)))
5388     (home-page "https://github.com/GNOME/geocode-glib/")
5389     (synopsis "Geocoding and reverse-geocoding library")
5390     (description
5391      "geocode-glib is a convenience library for geocoding (finding longitude,
5392 and latitude from an address) and reverse geocoding (finding an address from
5393 coordinates) using the Nominatim service.  geocode-glib caches requests for
5394 faster results and to avoid unnecessary server load.")
5395     (license license:lgpl2.0+)))
5396
5397 (define-public upower
5398   (package
5399     (name "upower")
5400     (version "0.99.11")
5401     (source (origin
5402               (method url-fetch)
5403               (uri (string-append "https://upower.freedesktop.org/releases/"
5404                                   "upower-" version ".tar.xz"))
5405               (sha256
5406                (base32
5407                 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
5408               (patches (search-patches "upower-builddir.patch"))
5409               (modules '((guix build utils)))
5410               (snippet
5411                '(begin
5412                   ;; Upstream commit
5413                   ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5414                   ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5415                   ;; 'dbus-configuration-directory' in (gnu services dbus)
5416                   ;; expects it in etc/.  Thus, move it back to its previous
5417                   ;; location.
5418                   (substitute* "src/Makefile.in"
5419                     (("^dbusconfdir =.*$")
5420                      "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5421                   #t))))
5422     (build-system glib-or-gtk-build-system)
5423     (arguments
5424      '(#:phases
5425        (modify-phases %standard-phases
5426          (add-before 'check 'pre-check
5427            (lambda* (#:key inputs #:allow-other-keys)
5428              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5429                                             "/lib")))
5430                (setenv "LD_LIBRARY_PATH" umockdev))
5431              #t)))
5432        #:configure-flags (list "--localstatedir=/var"
5433                                (string-append "--with-udevrulesdir="
5434                                               (assoc-ref %outputs "out")
5435                                               "/lib/udev/rules.d"))))
5436     (native-inputs
5437      `(("gobject-introspection" ,gobject-introspection)
5438        ("pkg-config" ,pkg-config)
5439        ("intltool" ,intltool)
5440        ("python" ,python)
5441
5442        ;; For tests.
5443        ("python-dbus" ,python-dbus)
5444        ("python-dbusmock" ,python-dbusmock)
5445        ("python-pygobject" ,python-pygobject)
5446        ("umockdev" ,umockdev)
5447
5448        ;; For man pages.
5449        ("libxslt" ,libxslt)                       ;for 'xsltproc'
5450        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
5451        ("docbook-xsl" ,docbook-xsl)))
5452     (inputs
5453      `(("dbus-glib" ,dbus-glib)
5454        ("libgudev" ,libgudev)
5455        ("libusb" ,libusb)))
5456     (propagated-inputs
5457      ;; In Requires of upower-glib.pc.
5458      `(("glib" ,glib)))
5459     (home-page "https://upower.freedesktop.org/")
5460     (synopsis "System daemon for managing power devices")
5461     (description
5462      "UPower is an abstraction for enumerating power devices,
5463 listening to device events and querying history and statistics.  Any
5464 application or service on the system can access the org.freedesktop.UPower
5465 service via the system message bus.")
5466     (license license:gpl2+)))
5467
5468 (define-public libgweather
5469   (package
5470     (name "libgweather")
5471     (version "3.34.0")
5472     (source (origin
5473               (method url-fetch)
5474               (uri (string-append "mirror://gnome/sources/" name "/"
5475                                   (version-major+minor version) "/"
5476                                   name "-" version ".tar.xz"))
5477               (sha256
5478                (base32
5479                 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
5480     (build-system meson-build-system)
5481     (arguments
5482      `(#:tests? #f ; one of two tests requires network access
5483        #:configure-flags
5484        `(,(string-append "-Dzoneinfo_dir="
5485                          (assoc-ref %build-inputs "tzdata")
5486                          "/share/zoneinfo"))))
5487     (native-inputs
5488      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5489        ("gobject-introspection" ,gobject-introspection)
5490        ("pkg-config" ,pkg-config)
5491        ("vala" ,vala)
5492        ("intltool" ,intltool)))
5493     (propagated-inputs
5494      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5495      ;; libsoup.
5496      `(("gtk+" ,gtk+)
5497        ("gdk-pixbuf" ,gdk-pixbuf)
5498        ("libxml2" ,libxml2)
5499        ("libsoup" ,libsoup)
5500        ("geocode-glib" ,geocode-glib)))
5501     (inputs
5502      `(("tzdata" ,tzdata)))
5503     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5504     (synopsis "Location, time zone, and weather library for GNOME")
5505     (description
5506      "libgweather is a library to access weather information from online
5507 services for numerous locations.")
5508     (license license:gpl2+)))
5509
5510 (define-public gnome-settings-daemon
5511   (package
5512     (name "gnome-settings-daemon")
5513     (version "3.34.1")
5514     (source
5515      (origin
5516        (method url-fetch)
5517        (uri (string-append "mirror://gnome/sources/" name "/"
5518                            (version-major+minor version) "/"
5519                            name "-" version ".tar.xz"))
5520        (sha256
5521         (base32
5522          "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))
5523        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5524     (build-system meson-build-system)
5525     (arguments
5526      `(#:glib-or-gtk? #t
5527        #:configure-flags
5528        (list (string-append "-Dudev_dir="
5529                             (assoc-ref %outputs "out")
5530                             "/lib/udev/rules.d/")
5531              "-Dsystemd=false"
5532              ;; Otherwise, the RUNPATH will lack the final path component.
5533              (string-append "-Dc_link_args=-Wl,-rpath="
5534                             (assoc-ref %outputs "out")
5535                             "/lib/gnome-settings-daemon-3.0"))
5536
5537        #:phases (modify-phases %standard-phases
5538                   (add-before 'configure 'set-baobab-file-name
5539                     (lambda* (#:key inputs #:allow-other-keys)
5540                       ;; Hard-code the file name of Baobab instead of looking
5541                       ;; it up in $PATH.  This ensures users get the "Examine"
5542                       ;; button in the low disk space notification of GDM even
5543                       ;; if they don't have GNOME in their main profile.
5544                       (let ((baobab (assoc-ref inputs "baobab")))
5545                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5546                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5547                            (string-append "g_strdup (\"" baobab
5548                                           "/bin/baobab\")")))
5549                         #t))))
5550
5551        ;; Color management test can't reach the colord system service.
5552        #:tests? #f))
5553     (native-inputs
5554      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5555        ("pkg-config" ,pkg-config)
5556        ("intltool" ,intltool)
5557        ("xsltproc" ,libxslt)
5558        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5559        ("docbook-xml" ,docbook-xml-4.2)
5560        ("docbook-xsl" ,docbook-xsl)))
5561     (inputs
5562      `(("alsa-lib" ,alsa-lib)
5563        ("baobab" ,baobab)
5564        ("colord" ,colord)
5565        ("libgudev" ,libgudev)
5566        ("upower" ,upower)
5567        ("polkit" ,polkit)
5568        ("pulseaudio" ,pulseaudio)
5569        ("libcanberra" ,libcanberra)
5570        ("libx11" ,libx11)
5571        ("libxtst" ,libxtst)
5572        ("lcms" ,lcms)
5573        ("libnotify" ,libnotify)
5574        ("geoclue" ,geoclue)
5575        ("geocode-glib" ,geocode-glib)
5576        ("libgweather" ,libgweather)
5577        ("gnome-desktop" ,gnome-desktop)
5578        ("nss" ,nss)
5579        ("cups" ,cups)
5580        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5581        ("libwacom" ,libwacom)
5582        ("librsvg" ,librsvg)
5583        ("xf86-input-wacom" ,xf86-input-wacom)
5584        ("wayland" ,wayland)
5585        ("network-manager" ,network-manager)
5586        ("gcr" ,gcr)
5587        ("modem-manager" ,modem-manager)))
5588     (home-page "https://www.gnome.org")
5589     (synopsis "GNOME settings daemon")
5590     (description
5591      "This package contains the daemon responsible for setting the various
5592 parameters of a GNOME session and the applications that run under it.  It
5593 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5594 settings, themes, mouse settings, and startup of other daemons.")
5595     (license license:gpl2+)))
5596
5597 (define-public totem-pl-parser
5598  (package
5599    (name "totem-pl-parser")
5600    (version "3.26.5")
5601    (source (origin
5602             (method url-fetch)
5603             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5604                                 (version-major+minor version) "/"
5605                                 "totem-pl-parser-" version ".tar.xz"))
5606             (sha256
5607              (base32
5608               "132jihnf51zs98yjkc6jxyqib4f3dawpjm17g4bj4j78y93dww2k"))))
5609    (build-system meson-build-system)
5610    (arguments
5611     ;; FIXME: Tests require gvfs.
5612     `(#:tests? #f))
5613    (native-inputs
5614     `(("intltool" ,intltool)
5615       ("glib" ,glib "bin")
5616       ("gobject-introspection" ,gobject-introspection)
5617       ("pkg-config" ,pkg-config)))
5618    (propagated-inputs
5619     `(("glib" ,glib)
5620       ("gmime" ,gmime)
5621       ("libarchive" ,libarchive)
5622       ("libgcrypt" ,libgcrypt)
5623       ("libxml2" ,libxml2)))
5624    (inputs
5625     `(("libsoup" ,libsoup)))
5626    (home-page "https://projects.gnome.org/totem")
5627    (synopsis "Library to parse and save media playlists for GNOME")
5628    (description "Totem-pl-parser is a GObjects-based library to parse and save
5629 playlists in a variety of formats.")
5630    (license license:lgpl2.0+)))
5631
5632 (define-public aisleriot
5633   (package
5634     (name "aisleriot")
5635     (version "3.22.9")
5636     (source (origin
5637               (method url-fetch)
5638               (uri (string-append "mirror://gnome/sources/aisleriot/"
5639                                   (version-major+minor version) "/"
5640                                   "aisleriot-" version ".tar.xz"))
5641               (sha256
5642                (base32
5643                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5644     (build-system glib-or-gtk-build-system)
5645     (arguments
5646      '(#:configure-flags
5647        '("--with-platform=gtk-only"
5648          "--with-card-theme-formats=svg")))
5649     (native-inputs
5650      `(("desktop-file-utils" ,desktop-file-utils)
5651        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5652        ("intltool" ,intltool)
5653        ("itstool" ,itstool)
5654        ("pkg-config" ,pkg-config)
5655        ("xmllint" ,libxml2)))
5656     (inputs
5657      `(("gtk+" ,gtk+)
5658        ("guile" ,guile-2.2)
5659        ("libcanberra" ,libcanberra)
5660        ("librsvg" ,librsvg)))
5661     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5662     (synopsis "Solitaire card games")
5663     (description
5664      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5665 which are easy to play with the aid of a mouse.")
5666     (license license:gpl3+)))
5667
5668 (define-public amtk
5669   (package
5670     (name "amtk")
5671     (version "5.0.2")
5672     (source (origin
5673               (method url-fetch)
5674               (uri (string-append "mirror://gnome/sources/amtk/"
5675                                   (version-major+minor version) "/"
5676                                   "amtk-" version ".tar.xz"))
5677               (sha256
5678                (base32
5679                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
5680     (build-system gnu-build-system)
5681     (arguments
5682      '(#:configure-flags '("--enable-gtk-doc")))
5683     (native-inputs
5684      `(("gobject-introspection" ,gobject-introspection)
5685        ("glib:bin" ,glib "bin")         ; for glib-mkenums
5686        ("gtk-doc" ,gtk-doc)
5687        ("pkg-config" ,pkg-config)))
5688     (inputs
5689      `(("glib" ,glib)
5690        ("gtk+" ,gtk+)))
5691     (home-page "https://wiki.gnome.org/Projects/Amtk")
5692     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5693     (description
5694      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5695 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5696 both a traditional UI or a modern UI with a GtkHeaderBar.")
5697     (license license:lgpl2.1+)))
5698
5699 (define-public devhelp
5700   (package
5701     (name "devhelp")
5702     (version "3.34.0")
5703     (source (origin
5704               (method url-fetch)
5705               (uri (string-append "mirror://gnome/sources/" name "/"
5706                                   (version-major+minor version) "/"
5707                                   name "-" version ".tar.xz"))
5708               (sha256
5709                (base32
5710                 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
5711     (build-system meson-build-system)
5712     (arguments
5713      '(#:glib-or-gtk? #t
5714        #:phases
5715        (modify-phases %standard-phases
5716          (add-after 'unpack 'skip-gtk-update-icon-cache
5717            ;; Don't create 'icon-theme.cache'.
5718            (lambda _
5719              (substitute* "meson_post_install.py"
5720                (("gtk-update-icon-cache") "true"))
5721              #t)))))
5722     (native-inputs
5723      `(("intltool" ,intltool)
5724        ("itstool" ,itstool)
5725        ("gobject-introspection" ,gobject-introspection)
5726        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5727        ("pkg-config" ,pkg-config)))
5728     (inputs
5729      `(("amtk" ,amtk)
5730        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5731        ("webkitgtk" ,webkitgtk)))
5732     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5733     (synopsis "API documentation browser for GNOME")
5734     (description
5735      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5736 natively with GTK-Doc (the API reference system developed for GTK+ and used
5737 throughout GNOME for API documentation).")
5738     (license license:gpl2+)))
5739
5740 (define-public cogl
5741   (package
5742     (name "cogl")
5743     (version "1.22.8")
5744     (source
5745      (origin
5746        (method url-fetch)
5747        (uri (string-append "mirror://gnome/sources/cogl/"
5748                            (version-major+minor version) "/"
5749                            "cogl-" version ".tar.xz"))
5750        (sha256
5751         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5752     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5753     ;; cogl, corresponding changes may be appropriate in mutter as well.
5754     (build-system gnu-build-system)
5755     (native-inputs
5756      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5757        ("gobject-introspection" ,gobject-introspection)
5758        ("xorg-server" ,xorg-server-for-tests)
5759        ("pkg-config" ,pkg-config)))
5760     (propagated-inputs
5761      `(("glib" ,glib)
5762        ("gdk-pixbuf" ,gdk-pixbuf)
5763        ("libx11" ,libx11)
5764        ("libxext" ,libxext)
5765        ("libxfixes" ,libxfixes)
5766        ("libxdamage" ,libxdamage)
5767        ("libxcomposite" ,libxcomposite)
5768        ("libxrandr" ,libxrandr)))
5769     (inputs
5770      `(("mesa" ,mesa)
5771        ("cairo" ,cairo)
5772        ("pango" ,pango)
5773        ("gstreamer" ,gstreamer)
5774        ("gst-plugins-base" ,gst-plugins-base)
5775        ("wayland" ,wayland)))
5776     (arguments
5777      `(#:disallowed-references (,xorg-server-for-tests)
5778        #:configure-flags (list "--enable-cogl-gst"
5779                                "--enable-wayland-egl-platform"
5780                                "--enable-wayland-egl-server"
5781
5782                                ;; Arrange to pass an absolute file name to
5783                                ;; dlopen for libGL.so.
5784                                (string-append "--with-gl-libname="
5785                                               (assoc-ref %build-inputs "mesa")
5786                                               "/lib/libGL.so"))
5787        #:phases
5788        (modify-phases %standard-phases
5789          (add-after 'unpack 'fix-build-with-mesa-20
5790            (lambda _
5791              ;; Work around a problem with Mesa 20 where some macros used by
5792              ;; Cogl went missing from eglext.h.  This can likely be removed
5793              ;; for newer versions of Cogl or Mesa.
5794              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5795              (substitute* '("configure"
5796                             "cogl/winsys/cogl-winsys-egl-kms.c")
5797                (("#include <EGL/eglext.h>" all)
5798                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5799              #t))
5800          (add-before 'check 'start-xorg-server
5801                      (lambda* (#:key tests? inputs #:allow-other-keys)
5802                        (if tests?
5803                            (begin
5804                              ;; The test suite requires a running X server.
5805                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5806                                              (assoc-ref inputs "xorg-server")))
5807                              (setenv "DISPLAY" ":1")
5808                              #t)
5809                            (format #t "test suite not run~%"))
5810                        #t)))))
5811     (home-page "https://www.cogl3d.org")
5812     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5813     (description
5814      "Cogl is a small library for using 3D graphics hardware to draw pretty
5815 pictures.  The API departs from the flat state machine style of OpenGL and is
5816 designed to make it easy to write orthogonal components that can render
5817 without stepping on each others toes.")
5818     (license (list license:expat       ; most of the code
5819                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5820                    license:sgifreeb2.0 ; cogl-path/tesselator/
5821                    license:asl2.0))))  ; examples/android/
5822
5823 (define-public clutter
5824   (package
5825     (name "clutter")
5826     (version "1.26.2")
5827     (source
5828      (origin
5829        (method url-fetch)
5830        (uri (string-append "mirror://gnome/sources/" name "/"
5831                            (version-major+minor version) "/"
5832                            name "-" version ".tar.xz"))
5833        (sha256
5834         (base32
5835          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5836     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5837     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5838     (build-system gnu-build-system)
5839     (outputs '("out"
5840                "doc"))                            ;9 MiB of gtk-doc HTML pages
5841     (native-inputs
5842      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5843        ("gobject-introspection" ,gobject-introspection)
5844        ("pkg-config" ,pkg-config)
5845        ("xsltproc" ,libxslt)))
5846     (propagated-inputs
5847      `(("cogl" ,cogl)
5848        ("cairo" ,cairo)
5849        ("atk" ,atk)
5850        ("gtk+" ,gtk+)
5851        ("json-glib" ,json-glib)
5852        ("glib" ,glib)
5853        ("libxcomposite" ,libxcomposite)
5854        ("libxdamage" ,libxdamage)
5855        ("libxext" ,libxext)
5856        ("xinput" ,xinput)))
5857     (inputs
5858      `(("libxkbcommon" ,libxkbcommon)
5859        ("udev" ,eudev)))
5860     (arguments
5861      `(#:configure-flags (list "--enable-x11-backend=yes"
5862
5863                                ;; This produces share/doc/{clutter,cally}.
5864                                (string-append "--with-html-dir="
5865                                               (assoc-ref %outputs "doc")
5866                                               "/share/doc"))
5867        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5868        ;; same way the cogl tests fail, since clutter is based on cogl.
5869        #:tests? #f))
5870     (home-page "http://www.clutter-project.org")
5871     (synopsis "OpenGL-based interactive canvas library")
5872     (description
5873      "Clutter is an OpenGL-based interactive canvas library, designed for
5874 creating fast, mainly 2D single window applications such as media box UIs,
5875 presentations, kiosk style applications and so on.")
5876     (license license:lgpl2.0+)))
5877
5878 (define-public clutter-gtk
5879   (package
5880     (name "clutter-gtk")
5881     (version "1.8.4")
5882     (source
5883      (origin
5884        (method url-fetch)
5885        (uri (string-append "mirror://gnome/sources/" name "/"
5886                            (version-major+minor version) "/"
5887                            name "-" version ".tar.xz"))
5888        (sha256
5889         (base32
5890          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5891     (build-system gnu-build-system)
5892     (native-inputs
5893      `(("pkg-config" ,pkg-config)
5894        ("gobject-introspection" ,gobject-introspection)))
5895     (propagated-inputs
5896      ;; clutter-gtk.pc refers to all these.
5897      `(("clutter" ,clutter)
5898        ("gtk+" ,gtk+)))
5899     (home-page "http://www.clutter-project.org")
5900     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5901     (description
5902      "Clutter is an OpenGL-based interactive canvas library, designed for
5903 creating fast, mainly 2D single window applications such as media box UIs,
5904 presentations, kiosk style applications and so on.")
5905     (license license:lgpl2.0+)))
5906
5907 (define-public clutter-gst
5908   (package
5909     (name "clutter-gst")
5910     (version "3.0.27")
5911     (source
5912      (origin
5913        (method url-fetch)
5914        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5915                            (version-major+minor version) "/"
5916                            "clutter-gst-" version ".tar.xz"))
5917        (sha256
5918         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
5919     (build-system gnu-build-system)
5920     (native-inputs
5921      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
5922        ("pkg-config" ,pkg-config)
5923        ("gobject-introspection" ,gobject-introspection)))
5924     (inputs
5925      `(("clutter" ,clutter)
5926        ("gstreamer" ,gstreamer)
5927        ("gst-plugins-base" ,gst-plugins-base)))
5928     (home-page "http://www.clutter-project.org")
5929     (synopsis "Integration library for using GStreamer with Clutter")
5930     (description
5931      "Clutter-Gst is an integration library for using GStreamer with Clutter.
5932 It provides a GStreamer sink to upload frames to GL and an actor that
5933 implements the ClutterGstPlayer interface using playbin.  Clutter is an
5934 OpenGL-based interactive canvas library.")
5935     (license license:lgpl2.0+)))
5936
5937 (define-public libchamplain
5938   (package
5939     (name "libchamplain")
5940     (version "0.12.16")
5941     (source (origin
5942               (method url-fetch)
5943               (uri (string-append
5944                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5945                     version ".tar.xz"))
5946               (sha256
5947                (base32
5948                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
5949     (build-system gnu-build-system)
5950     (arguments '(#:configure-flags '("--enable-vala")))
5951     (native-inputs
5952      `(("gobject-introspection" ,gobject-introspection)
5953        ("pkg-config" ,pkg-config)
5954        ("vala" ,vala)))
5955     (propagated-inputs
5956      `(("libsoup" ,libsoup)
5957        ("sqlite" ,sqlite)
5958        ("clutter" ,clutter)
5959        ("clutter-gtk" ,clutter-gtk)
5960        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
5961        ("cairo" ,cairo)
5962        ("gtk+3" ,gtk+)
5963        ("glib" ,glib)))
5964     (home-page "https://projects.gnome.org/libchamplain/")
5965     (synopsis "C library providing a ClutterActor to display maps")
5966     (description
5967      "libchamplain is a C library providing a ClutterActor to display maps.
5968 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
5969 and Perl bindings are also available.  It supports numerous free map sources
5970 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
5971     (license license:lgpl2.1+)))
5972
5973 (define-public gom
5974   (package
5975     (name "gom")
5976     (version "0.3.2")
5977     (source
5978      (origin
5979        (method url-fetch)
5980        (uri (string-append "mirror://gnome/sources/gom/"
5981                            (version-major+minor version) "/"
5982                            "gom-" version ".tar.xz"))
5983        (sha256
5984         (base32
5985          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
5986     (build-system gnu-build-system)
5987     (native-inputs
5988      `(("intltool" ,intltool)
5989        ("pkg-config" ,pkg-config)
5990        ("gobject-introspection" ,gobject-introspection)))
5991     (inputs
5992      `(("glib" ,glib)
5993        ("gdk-pixbuf" ,gdk-pixbuf)
5994        ("sqlite" ,sqlite)))
5995     ;; XXX TODO: Figure out how to run the test suite.
5996     (arguments `(#:tests? #f))
5997     (home-page "https://wiki.gnome.org/Projects/Gom")
5998     (synopsis "Object mapper from GObjects to SQLite")
5999     (description
6000      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6001 write applications that need to store structured data as well as make complex
6002 queries upon that data.")
6003     (license license:lgpl2.1+)))
6004
6005 (define-public libgnome-games-support
6006   (package
6007     (name "libgnome-games-support")
6008     (version "1.4.4")
6009     (source (origin
6010               (method url-fetch)
6011               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6012                                   (version-major+minor version) "/"
6013                                   "libgnome-games-support-" version ".tar.xz"))
6014               (sha256
6015                (base32
6016                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
6017     (build-system gnu-build-system)
6018     (arguments
6019      '(#:phases
6020        (modify-phases %standard-phases
6021          (add-before 'check 'pre-check
6022            (lambda _
6023              ;; Tests require a writable HOME.
6024              (setenv "HOME" (getcwd))
6025              #t)))))
6026     (native-inputs
6027      `(("intltool" ,intltool)
6028        ("pkg-config" ,pkg-config)
6029        ("vala" ,vala)))
6030     (propagated-inputs
6031      ;; Required by libgnome-games-support-1.0.pc
6032      `(("gtk+" ,gtk+)
6033        ("libgee" ,libgee)))
6034     (home-page "https://www.gnome.org/")
6035     (synopsis "Useful functionality shared among GNOME games")
6036     (description
6037      "libgnome-games-support is a small library intended for internal use by
6038 GNOME Games, but it may be used by others.")
6039     (license license:lgpl3+)))
6040
6041 (define-public gnome-klotski
6042   (package
6043     (name "gnome-klotski")
6044     (version "3.34.0")
6045     (source (origin
6046               (method url-fetch)
6047               (uri (string-append "mirror://gnome/sources/" name "/"
6048                                   (version-major+minor version) "/"
6049                                   name "-" version ".tar.xz"))
6050               (sha256
6051                (base32
6052                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6053     (build-system meson-build-system)
6054     (arguments
6055      '(#:glib-or-gtk? #t
6056        #:phases
6057        (modify-phases %standard-phases
6058          (add-after 'unpack 'skip-gtk-update-icon-cache
6059            ;; Don't create 'icon-theme.cache'.
6060            (lambda _
6061              (substitute* "build-aux/meson_post_install.py"
6062                (("gtk-update-icon-cache") (which "true")))
6063              #t)))))
6064     (native-inputs
6065      `(("desktop-file-utils" ,desktop-file-utils)
6066        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6067        ("intltool" ,intltool)
6068        ("itstool" ,itstool)
6069        ("pkg-config" ,pkg-config)
6070        ("vala" ,vala)
6071        ("xmllint" ,libxml2)))
6072     (inputs
6073      `(("gtk+" ,gtk+)
6074        ("libgnome-games-support" ,libgnome-games-support)
6075        ("librsvg" ,librsvg)))
6076     (home-page "https://wiki.gnome.org/Apps/Klotski")
6077     (synopsis "Sliding block puzzles")
6078     (description
6079      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6080 the patterned block to the area bordered by green markers.  To do so, you will
6081 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6082 as possible!")
6083     (license license:gpl2+)))
6084
6085 (define-public grilo
6086   (package
6087     (name "grilo")
6088     (version "0.3.12")
6089     (source
6090      (origin
6091        (method url-fetch)
6092        (uri (string-append "mirror://gnome/sources/grilo/"
6093                            (version-major+minor version) "/"
6094                            "grilo-" version ".tar.xz"))
6095        (sha256
6096         (base32 "0w8sq5g6g1rg85h53vbll8va70fcp6082mlpmy98aa03444ddyyv"))))
6097     (build-system meson-build-system)
6098     (native-inputs
6099      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
6100        ("intltool" ,intltool)
6101        ("pkg-config" ,pkg-config)
6102        ("gobject-introspection" ,gobject-introspection)
6103        ("gtk-doc" ,gtk-doc)
6104        ("vala" ,vala)))
6105     (inputs
6106      `(("cyrus-sasl" ,cyrus-sasl)
6107        ("glib" ,glib)
6108        ("gtk+" ,gtk+)
6109        ("libxml2" ,libxml2)
6110        ("liboauth" ,liboauth)
6111        ("libsoup" ,libsoup)
6112        ("totem-pl-parser" ,totem-pl-parser)))
6113     (native-search-paths
6114      (list (search-path-specification
6115             (variable "GRL_PLUGIN_PATH")
6116             (files (list (string-append "lib/grilo-"
6117                                         (version-major+minor version)))))))
6118     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6119     (synopsis "Framework for discovering and browsing media")
6120     (description
6121      "Grilo is a framework focused on making media discovery and browsing easy
6122 for application developers.")
6123     (license license:lgpl2.1+)))
6124
6125 (define-public grilo-plugins
6126   (package
6127     (name "grilo-plugins")
6128     (version "0.3.11")
6129     (source
6130      (origin
6131        (method url-fetch)
6132        (uri (string-append "mirror://gnome/sources/" name "/"
6133                            (version-major+minor version) "/"
6134                            name "-" version ".tar.xz"))
6135        (sha256
6136         (base32 "0wyd3n5mn7b77hxylkc3f62v01mlavh96901pz342hwrn42ydqnx"))))
6137     (build-system meson-build-system)
6138     (native-inputs
6139      `(("gettext" ,gettext-minimal)
6140        ("glib:bin" ,glib "bin")
6141        ("gtk+:bin" ,gtk+ "bin")
6142        ("itstool" ,itstool)
6143        ("pkg-config" ,pkg-config)))
6144     ;; TODO: ahavi, gstreamer
6145     (inputs
6146      `(("grilo" ,grilo)
6147        ;("gmime" ,gmime) ; unused
6148        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6149        ("gom" ,gom)
6150        ;("gssdp" ,gssdp) ; unused
6151        ;("gupnp" ,gupnp) ; unused
6152        ;("gupnp-av" ,gupnp-av) ; unused
6153        ("json-glib" ,json-glib)
6154        ("avahi" ,avahi)
6155        ("libgdata" ,libgdata)
6156        ("libmediaart" ,libmediaart)
6157        ;("librest" ,rest) ; unused
6158        ("libsoup" ,libsoup)
6159        ("totam-pl-parser" ,totem-pl-parser)
6160        ("tracker" ,tracker))) ; unused because it's too old
6161     (arguments
6162      `(#:glib-or-gtk? #t
6163        ;;Disable lua-factory as it needs missing dependencies
6164        #:configure-flags '("-Denable-lua-factory=no")))
6165     (home-page "https://live.gnome.org/Grilo")
6166     (synopsis "Plugins for the Grilo media discovery library")
6167     (description
6168      "Grilo is a framework focused on making media discovery and browsing easy
6169 for application developers.  This package provides plugins for common media
6170 discovery protocols.")
6171     (license license:lgpl2.1+)))
6172
6173 (define-public totem
6174   (package
6175     (name "totem")
6176     (version "3.38.0")
6177     (source
6178      (origin
6179        (method url-fetch)
6180        (uri (string-append "mirror://gnome/sources/totem/"
6181                            (version-major+minor version) "/"
6182                            "totem-" version ".tar.xz"))
6183        (sha256
6184         (base32
6185          "0bs33ijvxbr2prb9yj4dxglsszslsn9k258n311sld84masz4ad8"))))
6186     (build-system meson-build-system)
6187     (native-inputs
6188      `(("pkg-config" ,pkg-config)
6189        ("desktop-file-utils" ,desktop-file-utils)
6190        ("gettext" ,gettext-minimal)
6191        ("gobject-introspection" ,gobject-introspection)
6192        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6193        ("itstool" ,itstool)
6194        ("xmllint" ,libxml2)
6195        ("xorg-server" ,xorg-server-for-tests)))
6196     (propagated-inputs
6197      `(("dconf" ,dconf)))
6198     (inputs
6199      `(("gtk+" ,gtk+)
6200        ("gdk-pixbuf" ,gdk-pixbuf)
6201        ("atk" ,atk)
6202        ("cairo" ,cairo)
6203        ("dbus-glib" ,dbus-glib)
6204        ("clutter" ,clutter)
6205        ("clutter-gtk" ,clutter-gtk)
6206        ("clutter-gst" ,clutter-gst)
6207        ("xorgproto" ,xorgproto)
6208        ("libxxf86vm" ,libxxf86vm)
6209        ("libxtst" ,libxtst)
6210        ("libxrandr" ,libxrandr)
6211        ("libxml2" ,libxml2)
6212        ("libsoup" ,libsoup)
6213        ("libpeas" ,libpeas)
6214        ("librsvg" ,librsvg)
6215        ("lirc" ,lirc)
6216        ("gnome-desktop" ,gnome-desktop)
6217        ("gstreamer" ,gstreamer)
6218        ("gst-plugins-base" ,gst-plugins-base)
6219        ("gst-plugins-good" ,gst-plugins-good)
6220        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6221        ("adwaita-icon-theme" ,adwaita-icon-theme)
6222        ("python" ,python)
6223        ("python-pygobject" ,python-pygobject)
6224        ("totem-pl-parser" ,totem-pl-parser)
6225        ("grilo" ,grilo)
6226        ("grilo-plugins" ,grilo-plugins)
6227        ("vala" ,vala)))
6228     (arguments
6229      `(#:glib-or-gtk? #t
6230
6231        ;; Disable automatic GStreamer plugin installation via PackageKit and
6232        ;; all that.
6233        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6234
6235                            ;; Do not build .a files for the plugins, it's
6236                            ;; completely useless.  This saves 2 MiB.
6237                            "--default-library" "shared")
6238        #:phases
6239        (modify-phases %standard-phases
6240          (add-after 'unpack 'skip-gtk-update-icon-cache
6241            ;; Don't create 'icon-theme.cache'.
6242            (lambda _
6243              (substitute* "meson_post_install.py"
6244                (("gtk-update-icon-cache") "true"))
6245              #t))
6246          (add-after 'unpack 'patch-failing-test
6247            (lambda _
6248              ;; Work around test failure with GStreamer 1.18, because the test
6249              ;; relies on "und" not being mapped to a particular language:
6250              ;; https://gitlab.gnome.org/GNOME/totem/-/issues/450
6251             (substitute* "src/test-totem.c"
6252               (("und") "nosuchlang"))
6253             #t))
6254          (add-before
6255           'install 'disable-cache-generation
6256           (lambda _
6257             (setenv "DESTDIR" "/")
6258             #t))
6259          (add-before
6260           'check 'pre-check
6261           (lambda _
6262             ;; Tests require a running X server.
6263             (system "Xvfb :1 &")
6264             (setenv "DISPLAY" ":1")
6265             #t))
6266          (add-after
6267           'install 'wrap-totem
6268           (lambda* (#:key inputs outputs #:allow-other-keys)
6269             (let ((out             (assoc-ref outputs "out"))
6270                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6271                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6272               (wrap-program (string-append out "/bin/totem")
6273                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6274                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6275               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6276                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6277             #t)))))
6278     (home-page "https://wiki.gnome.org/Apps/Videos")
6279     (synopsis "Simple media player for GNOME based on GStreamer")
6280     (description "Totem is a simple yet featureful media player for GNOME
6281 which can read a large number of file formats.")
6282     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6283     ;; to be used and distributed together with GStreamer and Totem.  See
6284     ;; file://COPYING in the source distribution for details.
6285     (license license:gpl2+)))
6286
6287 (define-public rhythmbox
6288  (package
6289    (name "rhythmbox")
6290    (version "3.4.4")
6291    (source (origin
6292             (method url-fetch)
6293             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6294                                 (version-major+minor version) "/"
6295                                 "rhythmbox-" version ".tar.xz"))
6296             (sha256
6297              (base32
6298               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6299    (build-system glib-or-gtk-build-system)
6300    (arguments
6301     `(#:configure-flags
6302       (list "--enable-lirc"
6303             "--enable-python"
6304             "--enable-vala"
6305             "--with-brasero"
6306             "--with-gudev"
6307             "--with-libsecret")
6308       #:phases
6309       (modify-phases %standard-phases
6310         (add-after
6311          'install 'wrap-rhythmbox
6312          (lambda* (#:key inputs outputs #:allow-other-keys)
6313            (let ((out               (assoc-ref outputs "out"))
6314                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6315                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6316                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6317                  (python-path       (getenv "PYTHONPATH")))
6318              (wrap-program (string-append out "/bin/rhythmbox")
6319                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6320                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6321                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6322                `("PYTHONPATH"             ":" prefix (,python-path))))
6323            #t)))))
6324    (propagated-inputs
6325     `(("dconf" ,dconf)))
6326    (native-inputs
6327     `(("itstool" ,itstool)
6328       ("intltool" ,intltool)
6329       ("glib" ,glib "bin")
6330       ("gobject-introspection" ,gobject-introspection)
6331       ("desktop-file-utils" ,desktop-file-utils)
6332       ("pkg-config" ,pkg-config)
6333       ("xmllint" ,libxml2)))
6334    (inputs
6335     `(("json-glib" ,json-glib)
6336       ("tdb" ,tdb)
6337       ("gnome-desktop" ,gnome-desktop)
6338       ("python" ,python)
6339       ("python-pygobject" ,python2-pygobject)
6340       ("vala" ,vala)
6341       ("gmime" ,gmime)
6342       ("adwaita-icon-theme" ,adwaita-icon-theme)
6343       ("grilo" ,grilo)
6344       ("grilo-plugins" ,grilo-plugins)
6345       ("gstreamer" ,gstreamer)
6346       ("gst-plugins-base" ,gst-plugins-base)
6347       ("gst-plugins-good" ,gst-plugins-good)
6348       ("totem-pl-parser" ,totem-pl-parser)
6349       ("libgudev" ,libgudev)
6350       ;;("libmtp" ,libmtp) FIXME: Not detected
6351       ("libsecret" ,libsecret)
6352       ("libsoup" ,libsoup)
6353       ("libnotify" ,libnotify)
6354       ("libpeas" ,libpeas)
6355       ("lirc" ,lirc)
6356       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6357       ;;("clutter" ,clutter)
6358       ;;("clutter-gtk" ,clutter-gtk)
6359       ;;("clutter-gst" ,clutter-gst)
6360       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6361       ("atk" ,atk)
6362       ("pango" ,pango)
6363       ("gtk+" ,gtk+)
6364       ;; TODO:
6365       ;;  * libgpod
6366       ;;  * mx
6367       ("brasero" ,brasero)))
6368    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6369    (synopsis "Music player for GNOME")
6370    (description "Rhythmbox is a music playing application for GNOME.  It
6371 supports playlists, song ratings, and any codecs installed through gstreamer.")
6372    (license license:gpl2+)))
6373
6374 (define-public eog
6375  (package
6376    (name "eog")
6377    (version "3.34.1")
6378    (source (origin
6379             (method url-fetch)
6380             (uri (string-append "mirror://gnome/sources/" name "/"
6381                                 (version-major+minor version) "/"
6382                                 name "-" version ".tar.xz"))
6383             (sha256
6384              (base32
6385               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
6386    (build-system meson-build-system)
6387    (arguments
6388     `(#:configure-flags
6389       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6390       (list (string-append "-Dc_link_args=-Wl,-rpath="
6391                            (assoc-ref %outputs "out") "/lib/eog"))
6392       #:phases
6393       (modify-phases %standard-phases
6394          (add-after 'unpack 'skip-gtk-update-icon-cache
6395            ;; Don't create 'icon-theme.cache'.
6396            (lambda _
6397              (substitute* "meson_post_install.py"
6398                (("gtk-update-icon-cache") "true"))
6399              #t))
6400         (add-after 'install 'wrap-eog
6401           (lambda* (#:key outputs #:allow-other-keys)
6402             (let ((out               (assoc-ref outputs "out"))
6403                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6404               (wrap-program (string-append out "/bin/eog")
6405                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6406             #t)))))
6407    (propagated-inputs
6408     `(("dconf" ,dconf)))
6409    (native-inputs
6410     `(("intltool" ,intltool)
6411       ("itstool" ,itstool)
6412       ("glib" ,glib "bin")
6413       ("gobject-introspection" ,gobject-introspection)
6414       ("pkg-config" ,pkg-config)
6415       ("xmllint" ,libxml2)))
6416    (inputs
6417     `(("gnome-desktop" ,gnome-desktop)
6418       ("shared-mime-info" ,shared-mime-info)
6419       ("adwaita-icon-theme" ,adwaita-icon-theme)
6420       ("exempi" ,exempi)
6421       ("lcms" ,lcms)
6422       ("libexif" ,libexif)
6423       ("libpeas" ,libpeas)
6424       ("libjpeg" ,libjpeg-turbo)
6425       ("librsvg" ,librsvg-next)
6426       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6427       ("gtk+" ,gtk+)))
6428    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6429    (synopsis "GNOME image viewer")
6430    (description "Eye of GNOME is the GNOME image viewer.  It
6431 supports image conversion, rotation, and slideshows.")
6432    (license license:gpl2+)))
6433
6434 (define-public eog-plugins
6435   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6436   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6437   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6438   ;; 'XDG_DATA_DIRS' appropriately set.
6439   (package
6440     (name "eog-plugins")
6441     (version "3.26.4")
6442     (source (origin
6443               (method url-fetch)
6444               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6445                                   (version-major+minor version) "/"
6446                                   "eog-plugins-" version ".tar.xz"))
6447               (sha256
6448                (base32
6449                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
6450     (build-system gnu-build-system)
6451     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6452     (synopsis "Extensions for the Eye of GNOME image viewer")
6453     (native-inputs
6454      `(("pkg-config" ,pkg-config)
6455        ("gettext" ,gettext-minimal)))
6456     (inputs
6457      `(("eog" ,eog)
6458        ("glib" ,glib)
6459        ("gtk+" ,gtk+)
6460        ("libpeas" ,libpeas)
6461        ("libexif" ,libexif)
6462        ("libchamplain" ,libchamplain)))
6463     (description
6464      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6465 notably:
6466
6467 @itemize
6468 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6469 @item @dfn{Map}, which displays a map of where the picture was taken on the
6470 side panel;
6471 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6472 @end itemize\n")
6473
6474     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6475     ;; long suspicious byte stream that goes to a
6476     ;; ".gresource.eog_postasa_plugin" ELF section.
6477     (license license:gpl2+)))
6478
6479 (define-public libgudev
6480   (package
6481     (name "libgudev")
6482     (version "232")
6483     (source (origin
6484               (method url-fetch)
6485               (uri (string-append "mirror://gnome/sources/" name "/"
6486                                   version "/" name "-" version ".tar.xz"))
6487               (sha256
6488                (base32
6489                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
6490     (build-system gnu-build-system)
6491     (arguments
6492      '(#:configure-flags
6493        ;; umockdev depends on libgudev.
6494        (list "--disable-umockdev")))
6495     (native-inputs
6496      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6497        ("gobject-introspection" ,gobject-introspection)
6498        ("pkg-config" ,pkg-config)))
6499     (propagated-inputs
6500      `(("glib" ,glib))) ; required by gudev-1.0.pc
6501     (inputs
6502      `(("udev" ,eudev)))
6503     (home-page "https://wiki.gnome.org/Projects/libgudev")
6504     (synopsis "GObject bindings for libudev")
6505     (description
6506      "This library provides GObject bindings for libudev.  It was originally
6507 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6508     (license license:lgpl2.1+)))
6509
6510 (define-public gvfs
6511   (package
6512     (name "gvfs")
6513     (version "1.40.2")
6514     (source (origin
6515               (method url-fetch)
6516               (uri (string-append "mirror://gnome/sources/gvfs/"
6517                                   (version-major+minor version) "/"
6518                                   "gvfs-" version ".tar.xz"))
6519               (sha256
6520                (base32
6521                 "07lpcfric3h0302n9b1pwa38mjb76r9s98kg2867y2d1qvzfivxx"))
6522               ;; This patch may be removed when upgrading to version 1.46.x.
6523               (patches
6524                (search-patches "gvfs-add-support-for-libplist-2.2.patch"))))
6525     (build-system meson-build-system)
6526     (arguments
6527      '(#:glib-or-gtk? #t
6528        #:configure-flags
6529        (list "-Dsystemduserunitdir=no"
6530              "-Dtmpfilesdir=no"
6531              ;; Otherwise, the RUNPATH will lack the final path component.
6532              (string-append "-Dc_link_args=-Wl,-rpath="
6533                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6534     (native-inputs
6535      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6536        ("gettext" ,gettext-minimal)
6537        ("gtk-doc" ,gtk-doc)
6538        ("pkg-config" ,pkg-config)
6539        ("xsltproc" ,libxslt)))
6540     (inputs
6541      `(("avahi" ,avahi)
6542        ("docbook-xml" ,docbook-xml-4.2)
6543        ("docbook-xsl" ,docbook-xsl)
6544        ("dbus" ,dbus)
6545        ("elogind" ,elogind)
6546        ("fuse" ,fuse)
6547        ("gcr" ,gcr)
6548        ("glib" ,glib)
6549        ("gnome-online-accounts" ,gnome-online-accounts)
6550        ("libarchive" ,libarchive)
6551        ("libbluray" ,libbluray)
6552        ("libcap" ,libcap)
6553        ("libcdio-paranoia" ,libcdio-paranoia)
6554        ("libgcrypt" ,libgcrypt)
6555        ("libgdata" ,libgdata)
6556        ("libgphoto2" ,libgphoto2)
6557        ("libgudev" ,libgudev)
6558        ("libimobiledevice" ,libimobiledevice)
6559        ("libmtp" ,libmtp)
6560        ("libnfs" ,libnfs)
6561        ("libsecret" ,libsecret)
6562        ("libsmbclient" ,samba)
6563        ("libsoup" ,libsoup)
6564        ("libxml2" ,libxml2)
6565        ("openssh" ,openssh)
6566        ("polkit" ,polkit)
6567        ("udisks" ,udisks)))
6568     ;; CVE-2019-{12447,12448,12449} are fixed in the 1.40.2 release.
6569     (properties '((lint-hidden-cve . ("CVE-2019-12447"
6570                                       "CVE-2019-12448"
6571                                       "CVE-2019-12449"))))
6572     (home-page "https://wiki.gnome.org/gvfs/")
6573     (synopsis "Userspace virtual file system for GIO")
6574     (description
6575      "GVFS is a userspace virtual file system designed to work with the I/O
6576 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
6577 to all applications using the GIO API.  It also supports exposing the GVFS
6578 mounts to non-GIO applications using FUSE.
6579
6580 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6581 DAV, and others.")
6582     (license license:lgpl2.0+)))
6583
6584 (define-public gusb
6585   (package
6586     (name "gusb")
6587     (version "0.3.5")
6588     (source (origin
6589               (method git-fetch)
6590               (uri (git-reference
6591                      (url "https://github.com/hughsie/libgusb")
6592                      (commit version)))
6593               (file-name (git-file-name name version))
6594               (sha256
6595                (base32
6596                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6597     (build-system meson-build-system)
6598     (native-inputs
6599      `(("gobject-introspection" ,gobject-introspection)
6600        ("pkg-config" ,pkg-config)
6601        ("vala" ,vala)
6602        ("gtk-doc" ,gtk-doc)))
6603     (propagated-inputs
6604      ;; Both of these are required by gusb.pc.
6605      `(("glib" ,glib)
6606        ("libusb" ,libusb)))
6607     (arguments
6608      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
6609     (home-page "https://github.com/hughsie/libgusb")
6610     (synopsis "GLib binding for libusb1")
6611     (description
6612      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6613 asynchronous control, bulk and interrupt transfers with proper cancellation
6614 and integration into a mainloop.  This makes it easy to integrate low level
6615 USB transfers with your high-level application or system daemon.")
6616     (license license:lgpl2.1+)))
6617
6618 (define-public simple-scan
6619   (package
6620     (name "simple-scan")
6621     (version "3.38.2")
6622     (source
6623      (origin
6624        (method url-fetch)
6625        (uri (string-append "mirror://gnome/sources/simple-scan/"
6626                            (version-major+minor version) "/"
6627                            "simple-scan-" version ".tar.xz"))
6628        (sha256
6629         (base32 "02sdkhxgr6i7iy481h4xavgaqd0a5dlsipzwrm4qd242jrr813d8"))))
6630     (build-system meson-build-system)
6631     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6632     (arguments
6633      '(#:glib-or-gtk? #t))
6634     (inputs
6635      `(("gtk" ,gtk+)
6636        ("zlib" ,zlib)
6637        ("cairo" ,cairo)
6638        ("colord" ,colord)
6639        ("gdk-pixbuf" ,gdk-pixbuf)
6640        ("gusb" ,gusb)
6641        ("libsane" ,sane-backends)))
6642     (native-inputs
6643      `(("gettext" ,gettext-minimal)
6644        ("itstool" ,itstool)
6645        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
6646        ("pkg-config" ,pkg-config)
6647        ("vala" ,vala)
6648        ("xmllint" ,libxml2)))
6649     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6650     (synopsis "Document and image scanner")
6651     (description
6652      "Document Scanner is an easy-to-use application that lets you connect your
6653 scanner and quickly capture images and documents in an appropriate format.  It
6654 supports any scanner for which a suitable SANE driver is available, which is
6655 almost all of them.")
6656     (license license:gpl3+)))
6657
6658 (define-public eolie
6659   (package
6660     (name "eolie")
6661     (version "0.9.101")
6662     (source (origin
6663               (method url-fetch)
6664               (uri (string-append "https://adishatz.org/eolie/eolie-"
6665                                   version ".tar.xz"))
6666               (sha256
6667                (base32
6668                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6669     (build-system meson-build-system)
6670     (arguments
6671      `(#:glib-or-gtk? #t
6672        #:phases
6673        (modify-phases %standard-phases
6674          (add-after 'unpack 'skip-gtk-update-icon-cache
6675            ;; Don't create 'icon-theme.cache'.
6676            (lambda _
6677              (substitute* "meson_post_install.py"
6678                (("gtk-update-icon-cache") "true"))
6679              #t))
6680          (add-after 'wrap 'wrap-more
6681            (lambda* (#:key inputs outputs #:allow-other-keys)
6682              (let* ((out  (assoc-ref outputs "out"))
6683                     ;; These libraries must be on LD_LIBRARY_PATH.
6684                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6685                             "atk" "gtk+" "gsettings-desktop-schemas"
6686                             "gobject-introspection"))
6687                     (path (string-join
6688                            (map (lambda (lib)
6689                                   (string-append (assoc-ref inputs lib) "/lib"))
6690                                 libs)
6691                            ":")))
6692                (wrap-program (string-append out "/bin/eolie")
6693                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6694                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
6695                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6696              #t)))))
6697     (native-inputs
6698      `(("intltool" ,intltool)
6699        ("itstool" ,itstool)
6700        ("pkg-config" ,pkg-config)
6701        ("python" ,python)
6702        ("glib:bin" ,glib "bin")))
6703     (inputs
6704      `(("gobject-introspection" ,gobject-introspection)
6705        ("glib-networking" ,glib-networking)
6706        ("cairo" ,cairo)
6707        ("gtk+" ,gtk+)
6708        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6709        ("python" ,python-wrapper)
6710        ("python-dateutil" ,python-dateutil)
6711        ("python-pyfxa" ,python-pyfxa)
6712        ("python-pygobject" ,python-pygobject)
6713        ("python-pycairo" ,python-pycairo)
6714        ("python-pycrypto" ,python-pycrypto)
6715        ("libsecret" ,libsecret)
6716        ("gtkspell3" ,gtkspell3)
6717        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6718        ("webkitgtk" ,webkitgtk)))
6719     (home-page "https://wiki.gnome.org/Apps/Eolie")
6720     (synopsis "Web browser for GNOME")
6721     (description
6722      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6723 a secret password store, an adblocker, and a modern UI.")
6724     (license license:gpl3+)))
6725
6726 (define-public epiphany
6727   (package
6728     (name "epiphany")
6729     (version "3.34.4")
6730     (source (origin
6731               (method url-fetch)
6732               (uri (string-append "mirror://gnome/sources/epiphany/"
6733                                   (version-major+minor version) "/"
6734                                   "epiphany-" version ".tar.xz"))
6735               (sha256
6736                (base32
6737                 "13ar3s40cds1rplwbzx0fzigf120w0rydiv05r3k6zpc0zy91qb0"))))
6738
6739     (build-system meson-build-system)
6740     (arguments
6741      '(#:glib-or-gtk? #t
6742        #:phases
6743        (modify-phases %standard-phases
6744          (add-after 'unpack 'skip-gtk-update-icon-cache
6745            ;; Don't create 'icon-theme.cache'.
6746            (lambda _
6747              (substitute* "post_install.py"
6748                (("gtk-update-icon-cache") "true"))
6749              #t))
6750          (add-after 'unpack 'disable-failing-tests
6751            (lambda _
6752              (substitute* "tests/meson.build"
6753                ;; embed_shell fails, because webkitgtk apparently no longer supports
6754                ;; overriding the ftp schema
6755                ;; web_app_utils fails due to missing network access
6756                (("(embed_shell|web_app_utils)_test,")
6757                 "find_program('sh'), args: ['-c', 'exit 77'],"))
6758              #t))
6759          (add-before 'check 'pre-check
6760            (lambda _
6761              ;; Tests require a running X server.
6762              (system "Xvfb :1 &")
6763              (setenv "DISPLAY" ":1")
6764              #t)))
6765        #:configure-flags
6766        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6767        (list (string-append "-Dc_link_args=-Wl,-rpath="
6768                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6769     (propagated-inputs
6770      `(("dconf" ,dconf)))
6771     (native-inputs
6772      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6773        ("glib:bin" ,glib "bin") ; for glib-mkenums
6774        ("intltool" ,intltool)
6775        ("itstool" ,itstool)
6776        ("pkg-config" ,pkg-config)
6777        ("xmllint" ,libxml2)
6778        ("xorg-server" ,xorg-server-for-tests)))
6779     (inputs
6780      `(("avahi" ,avahi)
6781        ("gcr" ,gcr)
6782        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
6783        ("glib-networking" ,glib-networking)
6784        ("gnome-desktop" ,gnome-desktop)
6785        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6786        ("json-glib" ,json-glib)
6787        ("iso-codes" ,iso-codes)
6788        ("libdazzle" ,libdazzle)
6789        ("libnotify" ,libnotify)
6790        ("libsecret" ,libsecret)
6791        ("libxslt" ,libxslt)
6792        ("nettle" ,nettle) ; for hogweed
6793        ("sqlite" ,sqlite)
6794        ("webkitgtk" ,webkitgtk)))
6795     (home-page "https://wiki.gnome.org/Apps/Web")
6796     (synopsis "GNOME web browser")
6797     (description
6798      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6799 principles are simplicity and standards compliance.")
6800     (license license:gpl2+)))
6801
6802 (define-public d-feet
6803   (package
6804     (name "d-feet")
6805     (version "0.3.14")
6806     (source (origin
6807               (method url-fetch)
6808               (uri (string-append "mirror://gnome/sources/" name "/"
6809                                   (version-major+minor version) "/"
6810                                   name "-" version ".tar.xz"))
6811               (sha256
6812                (base32
6813                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6814     (build-system glib-or-gtk-build-system)
6815     (arguments
6816      '(#:out-of-source? #f ; tests need to run in the source directory.
6817        #:phases
6818        (modify-phases %standard-phases
6819          (add-before
6820           'check 'pre-check
6821           (lambda _
6822             ;; The test suite requires a running X server.
6823             (system "Xvfb :1 &")
6824             (setenv "DISPLAY" ":1")
6825             ;; Don't fail on missing '/etc/machine-id'.
6826             (setenv "DBUS_FATAL_WARNINGS" "0")
6827             ;; tests.py and window.py don't meet E402:
6828             ;;   E402 module level import not at top of file
6829             (substitute* "src/tests/Makefile"
6830               (("--ignore=E123") "--ignore=E123,E402"))
6831             #t))
6832          (add-after
6833           'install 'wrap-program
6834           (lambda* (#:key outputs #:allow-other-keys)
6835             (let ((prog (string-append (assoc-ref outputs "out")
6836                                        "/bin/d-feet")))
6837               (wrap-program prog
6838                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
6839                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6840               #t))))))
6841     (native-inputs
6842      `(("intltool" ,intltool)
6843        ("itstool" ,itstool)
6844        ("pkg-config" ,pkg-config)
6845        ("python-pep8" ,python-pep8)
6846        ("xmllint" ,libxml2)
6847        ("xorg-server" ,xorg-server-for-tests)))
6848     (inputs
6849      `(("gobject-introspection" ,gobject-introspection)
6850        ("gtk+" ,gtk+)
6851        ("python" ,python-wrapper)
6852        ("hicolor-icon-theme" ,hicolor-icon-theme)
6853        ("python-pygobject" ,python-pygobject)))
6854     (home-page "https://wiki.gnome.org/Apps/DFeet")
6855     (synopsis "D-Bus debugger")
6856     (description
6857      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6858 of running programs and invoke methods on those interfaces.")
6859     (license license:gpl2+)))
6860
6861 (define-public yelp-xsl
6862   (package
6863     (name "yelp-xsl")
6864     (version "3.34.2")
6865     (source
6866      (origin
6867        (method url-fetch)
6868        (uri
6869         (string-append "mirror://gnome/sources/" name "/"
6870                        (version-major+minor version) "/"
6871                        name "-" version ".tar.xz"))
6872        (sha256
6873         (base32 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
6874     (build-system gnu-build-system)
6875     (native-inputs
6876      `(("gettext-minimal" ,gettext-minimal)
6877        ("itstool" ,itstool)
6878        ("xmllint" ,libxml2)))
6879     (synopsis "XSL stylesheets for Yelp")
6880     (description "Yelp-XSL is a collection of programs and data files to help
6881 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
6882 that can be built upon for help viewers and publishing systems.  These
6883 stylesheets output JavaScript and CSS content, and reference images
6884 provided by yelp-xsl. It also redistributes copies of the jQuery and
6885 jQuery.Syntax JavaScript libraries.")
6886     (home-page "https://wiki.gnome.org/Apps/Yelp")
6887     (license
6888      (list
6889       ;; XSLT
6890       license:gpl2+
6891       ;; Images
6892       license:lgpl2.1+
6893       ;; JavaScript
6894       license:expat))))
6895
6896 (define-public yelp
6897   (package
6898     (name "yelp")
6899     (version "3.32.2")
6900     (source (origin
6901               (method url-fetch)
6902               (uri (string-append "mirror://gnome/sources/" name "/"
6903                                   (version-major+minor version) "/"
6904                                   name "-" version ".tar.xz"))
6905               (sha256
6906                (base32
6907                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
6908     (build-system glib-or-gtk-build-system)
6909     (native-inputs
6910      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6911        ("intltool" ,intltool)
6912        ("itstool" ,itstool)
6913        ("pkg-config" ,pkg-config)))
6914     (propagated-inputs
6915      `(("dconf" ,dconf)))
6916     (inputs
6917      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6918        ("libxslt" ,libxslt)
6919        ("sqlite" ,sqlite)
6920        ("webkitgtk" ,webkitgtk)
6921        ("yelp-xsl" ,yelp-xsl)))
6922     (home-page "https://wiki.gnome.org/Apps/Yelp")
6923     (synopsis "GNOME help browser")
6924     (description
6925      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
6926 man, info, and HTML documents.  It can locate documents according to the
6927 freedesktop.org help system specification.")
6928     (license license:gpl2+)))
6929
6930 (define-public yelp-tools
6931   (package
6932     (name "yelp-tools")
6933     (version "3.32.2")
6934     (source
6935      (origin
6936        (method url-fetch)
6937        (uri
6938         (string-append "mirror://gnome/sources/" name "/"
6939                        (version-major+minor version) "/"
6940                        name "-" version ".tar.xz"))
6941        (sha256
6942         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
6943     (build-system gnu-build-system)
6944     (native-inputs
6945      `(("pkg-config" ,pkg-config)))
6946     (inputs
6947      `(("yelp-xsl" ,yelp-xsl)))
6948     (propagated-inputs
6949      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
6950      `(("itstool" ,itstool)
6951        ("xmllint" ,libxml2)
6952        ("xsltproc" ,libxslt)))
6953     (synopsis "Yelp documentation tools")
6954     (description
6955      "Yelp-tools is a collection of scripts and build utilities to help create,
6956 manage, and publish documentation for Yelp and the web.  Most of the heavy
6957 lifting is done by packages like yelp-xsl and itstool.  This package just
6958 wraps things up in a developer-friendly way.")
6959     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
6960     (license license:gpl2+)))
6961
6962 (define-public libgee
6963   (package
6964     (name "libgee")
6965     (version "0.20.3")
6966     (source (origin
6967               (method url-fetch)
6968               (uri (string-append "mirror://gnome/sources/libgee/"
6969                                   (version-major+minor version) "/"
6970                                   "libgee-" version ".tar.xz"))
6971               (sha256
6972                (base32
6973                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
6974     (build-system gnu-build-system)
6975     (arguments
6976      `(#:phases
6977        (modify-phases %standard-phases
6978          (add-after 'unpack 'fix-introspection-install-dir
6979           (lambda* (#:key outputs #:allow-other-keys)
6980             (let ((out (assoc-ref outputs "out")))
6981               (substitute* "gee/Makefile.in"
6982                 (("@INTROSPECTION_GIRDIR@")
6983                  (string-append out "/share/gir-1.0/"))
6984                 (("@INTROSPECTION_TYPELIBDIR@")
6985                  (string-append out "/lib/girepository-1.0/")))))))))
6986     (native-inputs
6987      `(("glib" ,glib "bin")
6988        ("pkg-config" ,pkg-config)))
6989     (inputs
6990      `(("glib" ,glib)
6991        ("gobject-introspection" ,gobject-introspection)))
6992     (home-page "https://wiki.gnome.org/Projects/Libgee")
6993     (synopsis "GObject collection library")
6994     (description
6995      "Libgee is a utility library providing GObject-based interfaces and
6996 classes for commonly used data structures.")
6997     (license license:lgpl2.1+)))
6998
6999 (define-public gexiv2
7000   (package
7001     (name "gexiv2")
7002     (version "0.12.2")
7003     (source (origin
7004               (method url-fetch)
7005               (uri (string-append "mirror://gnome/sources/" name "/"
7006                                   (version-major+minor version) "/"
7007                                   name "-" version ".tar.xz"))
7008               (sha256
7009                (base32
7010                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7011     (build-system meson-build-system)
7012     (native-inputs
7013      `(("gcr" ,gcr)
7014        ("glib" ,glib "bin")
7015        ("pkg-config" ,pkg-config)
7016        ("vala" ,vala)))
7017     (propagated-inputs
7018      ;; Listed in "Requires" section of gexiv2.pc
7019      `(("exiv2" ,exiv2)))
7020     (inputs
7021      `(("glib" ,glib)
7022        ("gobject-introspection" ,gobject-introspection)))
7023     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7024     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7025     (description
7026      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7027 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7028 metadata in photo and video files of various formats.")
7029     (license license:gpl2+)))
7030
7031 (define-public shotwell
7032   (package
7033     (name "shotwell")
7034     (version "0.30.11")
7035     (source (origin
7036               (method url-fetch)
7037               (uri (string-append "mirror://gnome/sources/shotwell/"
7038                                   (version-major+minor version) "/"
7039                                   "shotwell-" version ".tar.xz"))
7040               (sha256
7041                (base32
7042                 "12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
7043     (build-system meson-build-system)
7044     (arguments
7045      '(#:glib-or-gtk? #t
7046        #:phases
7047        (modify-phases %standard-phases
7048          (add-after 'unpack 'skip-gtk-update-icon-cache
7049            (lambda _
7050              (substitute* "build-aux/meson/postinstall.py"
7051                (("gtk-update-icon-cache") (which "true"))
7052                (("update-desktop-database") (which "true")))
7053              #t)))))
7054     (propagated-inputs
7055      `(("dconf" ,dconf)))
7056     (native-inputs
7057      `(("gettext" ,gettext-minimal)
7058        ("glib:bin" ,glib "bin")
7059        ("itstool" ,itstool)
7060        ("pkg-config" ,pkg-config)
7061        ("vala" ,vala)))
7062     (inputs
7063      `(("gcr" ,gcr)
7064        ("gexiv2" ,gexiv2)
7065        ("gst-plugins-base" ,gst-plugins-base)
7066        ("gstreamer" ,gstreamer)
7067        ("json-glib" ,json-glib)
7068        ("libgdata" ,libgdata)
7069        ("libgee" ,libgee)
7070        ("libgphoto2" ,libgphoto2)
7071        ("libgudev" ,libgudev)
7072        ("libraw" ,libraw)
7073        ("libsoup" ,libsoup)
7074        ("libxml2" ,libxml2)
7075        ("sqlite" ,sqlite)
7076        ("webkitgtk" ,webkitgtk)))
7077     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7078     (synopsis "Photo manager for GNOME 3")
7079     (description
7080      "Shotwell is a digital photo manager designed for the GNOME desktop
7081 environment.  It allows you to import photos from disk or camera, organize
7082 them by keywords and events, view them in full-window or fullscreen mode, and
7083 share them with others via social networking and more.")
7084     (license license:lgpl2.1+)))
7085
7086 (define-public file-roller
7087   (package
7088     (name "file-roller")
7089     (version "3.38.0")
7090     (source (origin
7091               (method url-fetch)
7092               (uri (string-append "mirror://gnome/sources/file-roller/"
7093                                   (version-major+minor version) "/"
7094                                   "file-roller-" version ".tar.xz"))
7095               (sha256
7096                (base32
7097                 "06ikvjjcgb8nxabkn2rywy76a1c7s6w8dszaxvaxldbxarp1qgbj"))))
7098     (build-system meson-build-system)
7099     (native-inputs
7100      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7101        ("intltool" ,intltool)
7102        ("itstool" ,itstool)
7103        ("pkg-config" ,pkg-config)
7104        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
7105        ("glib:bin" ,glib "bin")))
7106     ;; TODO: Add libnautilus.
7107     (inputs
7108      `(("gtk+" ,gtk+)
7109        ("gdk-pixbuf" ,gdk-pixbuf)
7110        ("json-glib" ,json-glib)
7111        ("libarchive" ,libarchive)
7112        ("libnotify" ,libnotify)
7113        ("nettle" ,nettle)
7114        ("libxml2" ,libxml2)))
7115     (synopsis "Graphical archive manager for GNOME")
7116     (description "File Roller is an archive manager for the GNOME desktop
7117 environment that allows users to view, unpack, and create compressed archives
7118 such as gzip tarballs.")
7119     (home-page "http://fileroller.sourceforge.net/")
7120     (license license:gpl2+)))
7121
7122 (define-public gnome-session
7123   (package
7124     (name "gnome-session")
7125     (version "3.34.2")
7126     (source (origin
7127               (method url-fetch)
7128               (uri (string-append "mirror://gnome/sources/" name "/"
7129                                   (version-major+minor version) "/"
7130                                   name "-" version ".tar.xz"))
7131               (sha256
7132                (base32
7133                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
7134     (arguments
7135      '(#:glib-or-gtk? #t
7136        #:phases
7137        (modify-phases %standard-phases
7138          (add-before 'configure 'pre-configure
7139            (lambda* (#:key outputs #:allow-other-keys)
7140              ;; Use elogind instead of systemd.
7141              (substitute* "meson.build"
7142                (("libsystemd-login") "libelogind")
7143                (("and libsystemd_daemon_dep.found.*") ","))
7144              (substitute* "gnome-session/gsm-systemd.c"
7145                (("#include <systemd/sd-login.h>")
7146                 "#include <elogind/sd-login.h>"))
7147              ;; Remove uses of the systemd daemon.
7148              (substitute* "gnome-session/gsm-autostart-app.c"
7149                (("#ifdef HAVE_SYSTEMD") "#if 0"))
7150              #t))
7151          (add-after 'install 'wrap-gnome-session
7152            (lambda* (#:key inputs outputs #:allow-other-keys)
7153              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7154              (let ((glib (assoc-ref inputs "glib:bin"))
7155                    (out  (assoc-ref outputs "out")))
7156                (wrap-program (string-append out "/bin/gnome-session")
7157                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
7158                #t))))
7159
7160        #:configure-flags
7161        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7162          "-Dman=false" ; FIXME: disabled because of docbook validation error
7163          "-Dsystemd_journal=false")))
7164     (build-system meson-build-system)
7165     (native-inputs
7166      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7167        ("pkg-config" ,pkg-config)
7168        ("intltool" ,intltool)
7169        ("xsltproc" ,libxslt)
7170        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7171        ("docbook-xsl" ,docbook-xsl)
7172        ("docbook-xml" ,docbook-xml)
7173        ("xmlto" ,xmlto)))
7174     (inputs
7175      `(("elogind" ,elogind)
7176        ("gnome-desktop" ,gnome-desktop)
7177        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7178        ("gtk+" ,gtk+)
7179        ("json-glib" ,json-glib)
7180        ("libsm" ,libsm)
7181        ("libxcomposite" ,libxcomposite)
7182        ("libxtst" ,libxtst)
7183        ("mesa" ,mesa)
7184        ("upower" ,upower)
7185        ("xtrans" ,xtrans)))
7186     (synopsis "Session manager for GNOME")
7187     (description
7188      "This package contains the GNOME session manager, as well as a
7189 configuration program to choose applications starting on login.")
7190     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7191     (license license:gpl2+)))
7192
7193 (define-public gjs
7194   (package
7195     (name "gjs")
7196     (version "1.58.3")
7197     (source (origin
7198               (method url-fetch)
7199               (uri (string-append "mirror://gnome/sources/" name "/"
7200                                   (version-major+minor version) "/"
7201                                   name "-" version ".tar.xz"))
7202               (sha256
7203                (base32
7204                 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
7205     (build-system gnu-build-system)
7206     (arguments
7207      '(#:phases
7208        (modify-phases %standard-phases
7209          (add-before
7210           'check 'pre-check
7211           (lambda _
7212             ;; The test suite requires a running X server.
7213             (system "Xvfb :1 &")
7214             (setenv "DISPLAY" ":1")
7215
7216             ;; For the missing /etc/machine-id.
7217             (setenv "DBUS_FATAL_WARNINGS" "0")
7218
7219             ;; Our mozjs-38 package does not compile the required Intl API
7220             ;; support for these failing tests.
7221             (substitute* "installed-tests/js/testLocale.js"
7222               ((".*toBeDefined.*") "")
7223               ((".*expect\\(datestr\\).*") ""))
7224             (substitute* "installed-tests/scripts/testCommandLine.sh"
7225               (("Valentín") "")
7226               (("☭") ""))
7227             #t)))))
7228     (native-inputs
7229      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7230        ("pkg-config" ,pkg-config)
7231        ("xmllint" ,libxml2)
7232        ;; For testing
7233        ("dbus-launch" ,dbus)
7234        ("dconf" ,dconf) ; required to properly store settings
7235        ("uuidgen" ,util-linux)
7236        ("xvfb" ,xorg-server-for-tests)))
7237     (propagated-inputs
7238      ;; These are all in the Requires.private field of gjs-1.0.pc.
7239      `(("cairo" ,cairo)
7240        ("gobject-introspection" ,gobject-introspection)
7241        ("mozjs" ,mozjs-60)))
7242     (inputs
7243      `(("gtk+" ,gtk+)
7244        ("readline" ,readline)))
7245     (synopsis "Javascript bindings for GNOME")
7246     (home-page "https://live.gnome.org/Gjs")
7247     (description
7248      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7249 javascript engine and the GObject introspection framework.")
7250     (license license:gpl2+)))
7251
7252 (define-public gedit
7253   (package
7254     (name "gedit")
7255     (version "3.34.1")
7256     (source (origin
7257               (method url-fetch)
7258               (uri (string-append "mirror://gnome/sources/" name "/"
7259                                   (version-major+minor version) "/"
7260                                   name "-" version ".tar.xz"))
7261               (sha256
7262                (base32
7263                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
7264     (build-system meson-build-system)
7265     (arguments
7266      `(#:glib-or-gtk? #t
7267        #:configure-flags
7268        ;; Otherwise, the RUNPATH will lack the final path component.
7269        (list (string-append "-Dc_link_args=-Wl,-rpath="
7270                             (assoc-ref %outputs "out") "/lib/gedit"))
7271
7272        ;; XXX: Generated .h files are sometimes used before being built.
7273        #:parallel-build? #f
7274
7275        #:phases
7276        (modify-phases %standard-phases
7277          (add-after 'unpack 'skip-gtk-update-icon-cache
7278            ;; Don't create 'icon-theme.cache'.
7279            (lambda _
7280              (substitute* "build-aux/meson/post_install.py"
7281                (("gtk-update-icon-cache") (which "true")))
7282              #t))
7283          (add-after 'unpack 'patch-libgd-fetch
7284            (lambda* (#:key inputs #:allow-other-keys)
7285              (let ((libgd (assoc-ref inputs "libgd")))
7286                ;; Calling git is unnecessary because libgd is fetched as a
7287                ;; native input to this package.
7288                (substitute* "meson.build"
7289                  ((".*git.*") ""))
7290                (copy-recursively libgd "subprojects/libgd")
7291                #t)))
7292          (add-after 'install 'wrap-gedit
7293            (lambda* (#:key inputs outputs #:allow-other-keys)
7294              (let ((out               (assoc-ref outputs "out"))
7295                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7296                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7297                    (python-path       (getenv "PYTHONPATH")))
7298                (wrap-program (string-append out "/bin/gedit")
7299                  ;; For plugins.
7300                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7301                  `("PYTHONPATH" ":" prefix (,python-path))
7302                  ;; For language-specs.
7303                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7304                                                                "/share")))))
7305              #t)))))
7306     (propagated-inputs
7307      `(("dconf" ,dconf)))
7308     (native-inputs
7309      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7310        ("intltool" ,intltool)
7311        ("itstool" ,itstool)
7312        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7313        ("gobject-introspection" ,gobject-introspection)
7314        ("libgd"
7315         ,(origin
7316            (method git-fetch)
7317            (uri (git-reference
7318                  (url "https://gitlab.gnome.org/GNOME/libgd")
7319                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7320            (file-name (git-file-name "libgd" version))
7321            (sha256
7322             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7323        ("pkg-config" ,pkg-config)))
7324     (inputs
7325      `(("glib" ,glib)
7326        ("gspell" ,gspell)
7327        ("gtk+" ,gtk+)
7328        ("gtksourceview" ,gtksourceview)
7329        ("libpeas" ,libpeas)
7330        ("libxml2" ,libxml2)
7331        ("iso-codes" ,iso-codes)
7332        ("python-pygobject" ,python-pygobject)
7333        ("python" ,python)
7334        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7335        ("libx11" ,libx11)
7336        ("vala" ,vala)
7337        ("adwaita-icon-theme" ,adwaita-icon-theme)
7338        ("libsoup" ,libsoup)
7339        ("gnome-desktop" ,gnome-desktop)))
7340     (home-page "https://wiki.gnome.org/Apps/Gedit")
7341     (synopsis "GNOME text editor")
7342     (description "While aiming at simplicity and ease of use, gedit is a
7343 powerful general purpose text editor.")
7344     (license license:gpl2+)))
7345
7346 (define-public zenity
7347   (package
7348     (name "zenity")
7349     (version "3.32.0")
7350     (source (origin
7351               (method url-fetch)
7352               (uri (string-append "mirror://gnome/sources/zenity/"
7353                                   (version-major+minor version) "/"
7354                                   "zenity-" version ".tar.xz"))
7355               (sha256
7356                (base32
7357                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7358     (build-system gnu-build-system)
7359     (native-inputs
7360      `(("gettext" ,gettext-minimal)
7361        ("itstool" ,itstool)
7362        ("pkg-config" ,pkg-config)))
7363     (inputs
7364      `(("libnotify" ,libnotify)
7365        ("webkitgtk" ,webkitgtk)))
7366     (synopsis "Display graphical dialog boxes from shell scripts")
7367     (home-page "https://www.gnome.org")
7368     (description
7369      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7370 to display dialog boxes from the commandline and shell scripts.")
7371     (license license:lgpl2.0+)))
7372
7373 (define-public mutter
7374   (package
7375     (name "mutter")
7376     (version "3.34.2")
7377     (source (origin
7378               (method url-fetch)
7379               (uri (string-append "mirror://gnome/sources/" name "/"
7380                                   (version-major+minor version) "/"
7381                                   name "-" version ".tar.xz"))
7382               (sha256
7383                (base32
7384                 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
7385     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7386     ;; versions of cogl and clutter.  As a result, many of the inputs,
7387     ;; propagated-inputs, and configure flags used in cogl and clutter are
7388     ;; needed here as well.
7389     (build-system meson-build-system)
7390     (arguments
7391      '(;; XXX: All mutter tests fail with the following error:
7392        ;;   Settings schema 'org.gnome.mutter' is not installed
7393        #:tests? #f
7394        #:glib-or-gtk? #t
7395        #:configure-flags
7396        ;; TODO: Enable profiler when Sysprof is packaged.
7397        (list "-Dprofiler=false"
7398              ;; Otherwise, the RUNPATH will lack the final path component.
7399              (string-append "-Dc_link_args=-Wl,-rpath="
7400                             (assoc-ref %outputs "out") "/lib:"
7401                             (assoc-ref %outputs "out") "/lib/mutter-5")
7402
7403              ;; The following flags are needed for the bundled clutter
7404              (string-append "-Dxwayland_path="
7405                             (assoc-ref %build-inputs "xorg-server-xwayland")
7406                             "/bin/Xwayland")
7407
7408              ;; the remaining flags are needed for the bundled cogl
7409              (string-append "-Dopengl_libname="
7410                             (assoc-ref %build-inputs "mesa")
7411                             "/lib/libGL.so"))
7412        #:phases (modify-phases %standard-phases
7413                   (add-after 'unpack 'fix-build-with-mesa-20
7414                     (lambda _
7415                       ;; Mimic upstream commit a444a4c5f58ea516ad for
7416                       ;; compatibility with Mesa 20.  Remove for 3.36.
7417                       (substitute* '("src/backends/meta-egl-ext.h"
7418                                      "src/backends/meta-egl.c"
7419                                      "src/backends/meta-egl.h")
7420                         (("#include <EGL/eglext\\.h>" all)
7421                          (string-append all "\n#include <EGL/eglmesaext.h>")))
7422                       (substitute* "cogl/cogl/meson.build"
7423                         (("#include <EGL/eglext\\.h>" all)
7424                          (string-append all "\\n#include <EGL/eglmesaext.h>")))
7425                       #t)))))
7426     (native-inputs
7427      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7428        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7429        ("gobject-introspection" ,gobject-introspection)
7430        ("intltool" ,intltool)
7431        ("pkg-config" ,pkg-config)
7432        ("xorg-server" ,xorg-server-for-tests)
7433        ;; For git build
7434        ("autoconf" ,autoconf)
7435        ("automake" ,automake)
7436        ("libtool" ,libtool)))
7437     (propagated-inputs
7438      `(;; libmutter.pc refers to these:
7439        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7440        ("gtk+" ,gtk+)
7441        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7442        ("atk" ,atk)
7443        ("cairo" ,cairo)
7444        ("gdk-pixbuf" ,gdk-pixbuf)
7445        ("glib" ,glib)
7446        ("json-glib" ,json-glib)
7447        ("libinput" ,libinput)
7448        ("libx11" ,libx11)
7449        ("libxcomposite" ,libxcomposite)
7450        ("libxdamage" ,libxdamage)
7451        ("libxext" ,libxext)
7452        ("libxfixes" ,libxfixes)
7453        ("libxkbcommon" ,libxkbcommon)
7454        ("libxrandr" ,libxrandr)
7455        ("mesa" ,mesa)
7456        ("pango" ,pango)
7457        ("udev" ,eudev)
7458        ("xinput" ,xinput)))
7459     (inputs
7460      `(("elogind" ,elogind)
7461        ("gnome-desktop" ,gnome-desktop)
7462        ("gnome-settings-daemon" ,gnome-settings-daemon)
7463        ("libcanberra-gtk" ,libcanberra)
7464        ("libgudev" ,libgudev)
7465        ("libice" ,libice)
7466        ("libsm" ,libsm)
7467        ("libwacom" ,libwacom)
7468        ("libxkbfile" ,libxkbfile)
7469        ("libxrandr" ,libxrandr)
7470        ("libxtst" ,libxtst)
7471        ("pipewire" ,pipewire)
7472        ("startup-notification" ,startup-notification)
7473        ("upower-glib" ,upower)
7474        ("xkeyboard-config" ,xkeyboard-config)
7475        ("xorg-server-xwayland" ,xorg-server-xwayland)
7476        ("zenity" ,zenity)))
7477     (synopsis "Window and compositing manager")
7478     (home-page "https://www.gnome.org")
7479     (description
7480      "Mutter is a window and compositing manager that displays and manages your
7481 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7482 Clutter toolkit with solid window-management logic inherited from the Metacity
7483 window manager.")
7484     (license license:gpl2+)))
7485
7486 (define-public gnome-online-accounts
7487   (package
7488     (name "gnome-online-accounts")
7489     (version "3.36.0")
7490     (source (origin
7491               (method url-fetch)
7492               (uri (string-append "mirror://gnome/sources/" name "/"
7493                                   (version-major+minor version) "/"
7494                                   name "-" version ".tar.xz"))
7495               (sha256
7496                (base32
7497                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
7498     (outputs '("out" "lib"))
7499     (build-system glib-or-gtk-build-system)
7500     (arguments
7501      `(#:configure-flags
7502        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7503        #:phases
7504        (modify-phases %standard-phases
7505          (add-before 'configure 'patch-libgoa-output
7506            (lambda* (#:key outputs #:allow-other-keys)
7507              (let ((lib (assoc-ref outputs "lib")))
7508                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7509                  (("@prefix@") lib)
7510                  (("@exec_prefix@") lib)
7511                  (("@libdir@") (string-append lib "/lib"))
7512                  (("@includedir@") (string-append lib "/include"))
7513                  (("@datadir@") (string-append lib "/share")))
7514                ;; Make sure gobject-introspection knows about the output
7515                ;; too (see <https://bugs.gnu.org/36535>).
7516                (setenv "outputs" "out lib")
7517                #t))))))
7518     (native-inputs
7519      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7520        ("gobject-introspection" ,gobject-introspection)
7521        ("intltool" ,intltool)
7522        ("pkg-config" ,pkg-config)
7523        ("vala" ,vala)
7524        ("xsltproc" ,libxslt)))
7525     (propagated-inputs
7526      `(("glib" ,glib)           ; required by goa-1.0.pc
7527        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
7528     (inputs
7529      `(("docbook-xsl" ,docbook-xsl)
7530        ("json-glib" ,json-glib)
7531        ("libsecret" ,libsecret)
7532        ("rest" ,rest)
7533        ("webkitgtk" ,webkitgtk)))
7534     (synopsis "Single sign-on framework for GNOME")
7535     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7536     (description
7537      "GNOME Online Accounts provides interfaces so that applications and
7538 libraries in GNOME can access the user's online accounts.  It has providers for
7539 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
7540 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7541     (license license:lgpl2.0+)))
7542
7543 (define-public evolution-data-server
7544   (package
7545     (name "evolution-data-server")
7546     (version "3.34.2")
7547     (source (origin
7548               (method url-fetch)
7549               (uri (string-append "mirror://gnome/sources/" name "/"
7550                                   (version-major+minor version) "/"
7551                                   name "-" version ".tar.xz"))
7552               (patches (search-patches "evolution-data-server-locales.patch"
7553                                        "evolution-data-server-libical-compat.patch"
7554                                        "evolution-data-server-CVE-2020-14928.patch"
7555                                        "evolution-data-server-CVE-2020-16117.patch"))
7556               (sha256
7557                (base32
7558                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
7559     (build-system cmake-build-system)
7560     (arguments
7561      '(#:configure-flags
7562        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7563               (runpaths (map (lambda (s)
7564                                (string-append lib "/evolution-data-server/" s))
7565                              '("addressbook-backends" "calendar-backends"
7566                                "camel-providers" "credential-modules"
7567                                "registry-modules"))))
7568          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7569                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7570                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7571                "-DENABLE_VALA_BINDINGS=ON"
7572                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7573                               (string-append lib "/evolution-data-server;")
7574                               (string-join runpaths ";"))
7575                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7576        #:phases
7577        (modify-phases %standard-phases
7578          (add-after 'unpack 'disable-failing-tests
7579            (lambda _
7580              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7581              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7582              (delete-file-recursively "tests/book-migration")
7583              (substitute* "tests/CMakeLists.txt"
7584                (("add_subdirectory\\(book-migration\\)") ""))
7585              #t))
7586          (add-after 'unpack 'patch-paths
7587           (lambda _
7588             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7589                            "tests/libedata-book/data-test-utils.c"
7590                            "tests/libedata-book/test-book-cache-utils.c"
7591                            "tests/libedata-cal/test-cal-cache-utils.c")
7592               (("/bin/rm") (which "rm")))
7593             #t))
7594          (add-before 'configure 'dont-override-rpath
7595            (lambda _
7596              (substitute* "CMakeLists.txt"
7597                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7598                ;; Remove it so the configure flag is respected.
7599                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
7600              #t)))))
7601     (native-inputs
7602      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7603        ("gobject-introspection" ,gobject-introspection)
7604        ("gperf" ,gperf)
7605        ("intltool" ,intltool)
7606        ("pkg-config" ,pkg-config)
7607        ("vala" ,vala)
7608        ("python" ,python-wrapper)))
7609     (propagated-inputs
7610      ;; These are all in the Requires field of .pc files.
7611      `(("gtk+" ,gtk+)
7612        ("libical" ,libical)
7613        ("libsecret" ,libsecret)
7614        ("libsoup" ,libsoup)
7615        ("nss" ,nss)
7616        ("sqlite" ,sqlite)))
7617     (inputs
7618      `(("bdb" ,bdb)
7619        ("gcr" ,gcr)
7620        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7621        ("json-glib" ,json-glib)
7622        ("libcanberra" ,libcanberra)
7623        ("libgweather" ,libgweather)
7624        ("mit-krb5" ,mit-krb5)
7625        ("openldap" ,openldap)
7626        ("webkitgtk" ,webkitgtk)))
7627     (synopsis "Store address books and calendars")
7628     (home-page "https://wiki.gnome.org/Apps/Evolution")
7629     (description
7630      "This package provides a unified backend for programs that work with
7631 contacts, tasks, and calendar information.  It was originally developed for
7632 Evolution (hence the name), but is now used by other packages as well.")
7633     (license license:lgpl2.0)))
7634
7635 (define-public caribou
7636   (package
7637     (name "caribou")
7638     (version "0.4.21")
7639     (source (origin
7640               (method url-fetch)
7641               (uri (string-append "mirror://gnome/sources/" name "/"
7642                                   (version-major+minor version) "/"
7643                                   name "-" version ".tar.xz"))
7644               (sha256
7645                (base32
7646                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7647     (build-system glib-or-gtk-build-system)
7648     (arguments
7649      '(#:phases
7650        (modify-phases %standard-phases
7651          (add-before
7652           'build 'pre-build
7653           (lambda* (#:key outputs #:allow-other-keys)
7654             (let ((out (assoc-ref outputs "out")))
7655               ;; Use absolute shared library path in Caribou-1.0.typelib.
7656               (substitute* "libcaribou/Makefile"
7657                 (("--shared-library=libcaribou.so")
7658                  (string-append "--shared-library="
7659                                 out "/lib/libcaribou.so")))
7660               #t)))
7661          (add-after 'install 'wrap-programs
7662           (lambda* (#:key outputs #:allow-other-keys)
7663             (let* ((out (assoc-ref outputs "out"))
7664                    (python-path (getenv "PYTHONPATH"))
7665                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7666               (for-each
7667                (lambda (prog)
7668                  (wrap-program prog
7669                    `("PYTHONPATH"      ":" prefix (,python-path))
7670                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7671                (list (string-append out "/bin/caribou-preferences")
7672                      (string-append out "/libexec/antler-keyboard"))))
7673             #t)))))
7674     (native-inputs
7675      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7676        ("gobject-introspection" ,gobject-introspection)
7677        ("intltool" ,intltool)
7678        ("pkg-config" ,pkg-config)
7679        ("python" ,python)
7680        ("vala" ,vala)
7681        ("xsltproc" ,libxslt)))
7682     (propagated-inputs
7683      ;; caribou-1.0.pc refers to all these.
7684      `(("libgee" ,libgee)
7685        ("libxklavier" ,libxklavier)
7686        ("libxtst" ,libxtst)
7687        ("gtk+" ,gtk+)))
7688     (inputs
7689      `(("clutter" ,clutter)
7690        ("dconf" ,dconf)
7691        ("gtk+-2" ,gtk+-2)
7692        ("python-pygobject" ,python-pygobject)))
7693     (synopsis "Text entry and UI navigation application")
7694     (home-page "https://wiki.gnome.org/Projects/Caribou")
7695     (description
7696      "Caribou is an input assistive technology intended for switch and pointer
7697 users.")
7698     (license license:lgpl2.1)))
7699
7700 (define-public network-manager
7701   (package
7702     (name "network-manager")
7703     (version "1.24.0")
7704     (source (origin
7705               (method url-fetch)
7706               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7707                                   (version-major+minor version) "/"
7708                                   "NetworkManager-" version ".tar.xz"))
7709               (patches (search-patches "network-manager-plugin-path.patch"))
7710               (sha256
7711                (base32
7712                 "06044fl60bjlj7c6rqqfbm5795h61h6yzp7ch392hzcnm46wwhn3"))
7713               (modules '((guix build utils)))
7714               (snippet
7715                '(begin
7716                   (substitute* "src/devices/wwan/nm-modem-manager.c"
7717                     (("systemd") "elogind"))
7718                   #t))))
7719     (build-system meson-build-system)
7720     (outputs '("out"
7721                "doc")) ; 8 MiB of gtk-doc HTML
7722     (arguments
7723      `(#:configure-flags
7724        (let ((out      (assoc-ref %outputs "out"))
7725              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
7726                                       "/sbin/dhclient")))
7727          (list
7728           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7729           ;; component.
7730           (string-append "-Dc_link_args=-Wl,-rpath="
7731                          out "/lib:"
7732                          out "/lib/NetworkManager/" ,version)
7733           "-Dsystemd_journal=false"
7734           "-Dsession_tracking=elogind"
7735           "-Dsuspend_resume=elogind"
7736           "-Dsystemdsystemunitdir=no"
7737           "-Dsession_tracking_consolekit=false"
7738           "-Ddhcpcd=no"
7739           "-Ddhcpcanon=no"
7740           "-Dcrypto=gnutls"
7741           "-Diwd=true"
7742           "-Dlibaudit=yes"
7743           "-Dqt=false"
7744           "-Ddocs=true"
7745           "--sysconfdir=/etc"
7746           "--localstatedir=/var"
7747           (string-append "-Dudev_dir="
7748                          out "/lib/udev")
7749           (string-append "-Ddbus_conf_dir="
7750                          out "/etc/dbus-1/system.d")
7751
7752           (string-append "-Ddhclient=" dhclient)))
7753        #:phases
7754        (modify-phases %standard-phases
7755          (add-before 'configure 'pre-configure
7756            (lambda _
7757              ;; These tests try to test aspects of network-manager's
7758              ;; functionality within restricted containers, but they don't
7759              ;; cope with being already in the Guix build jail as that jail
7760              ;; lacks some features that they would like to proxy over (like
7761              ;; a /sys mount).
7762              (substitute* "src/platform/tests/meson.build"
7763                ((".*test-address-linux.*") "")
7764                ((".*test-cleanup-linux.*") "")
7765                ((".*test-link-linux.*") "")
7766                ((".*test-route-linux.*") ""))
7767              (substitute* "src/devices/tests/meson.build"
7768                ((".*test-acd.*") "")
7769                ((".*test-lldp.*") ""))
7770              #t))
7771          (add-after 'unpack 'patch-docbook-xml
7772            (lambda* (#:key inputs #:allow-other-keys)
7773              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7774                                           "/xml/dtd/docbook")))
7775                (substitute* (find-files "." ".*\\.(xsl|xml)")
7776                  (("http://.*/docbookx\\.dtd")
7777                   (string-append xmldoc "/docbookx.dtd")))
7778                #t)))
7779          (add-before 'check 'pre-check
7780            (lambda _
7781              ;; For the missing /etc/machine-id.
7782              (setenv "DBUS_FATAL_WARNINGS" "0")
7783              #t))
7784          (add-before 'install 'no-polkit-magic
7785            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7786            (lambda _
7787              (setenv "PKEXEC_UID" "something")
7788              #t))
7789          (add-after 'install 'move-doc
7790            (lambda* (#:key outputs #:allow-other-keys)
7791              (let ((out (assoc-ref outputs "out"))
7792                    (doc (assoc-ref outputs "doc")))
7793                (mkdir-p (string-append doc "/share"))
7794                (for-each (lambda (directory)
7795                            (copy-recursively (string-append out directory)
7796                                              (string-append doc directory))
7797                            (delete-file-recursively
7798                             (string-append out directory)))
7799                          '("/share/doc" "/share/gtk-doc"))
7800                #t))))))
7801     (propagated-inputs
7802      `(("glib" ,glib)))
7803     (native-inputs
7804      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7805        ("gtk-doc" ,gtk-doc)
7806        ("gobject-introspection" ,gobject-introspection)
7807        ("docbook-xml" ,docbook-xml)
7808        ("docbook-xsl" ,docbook-xsl)
7809        ("intltool" ,intltool)
7810        ("libxslt" ,libxslt)
7811        ("libxml2" ,libxml2)
7812        ("pkg-config" ,pkg-config)
7813        ("vala" ,vala)
7814        ;; For testing.
7815        ("python" ,python-wrapper)
7816        ("python-dbus" ,python-dbus)
7817        ("python-pygobject" ,python-pygobject)))
7818     (inputs
7819      `(("curl" ,curl)
7820        ("cyrus-sasl" ,cyrus-sasl)
7821        ("dbus-glib" ,dbus-glib)
7822        ("dnsmasq" ,dnsmasq)
7823        ("eudev" ,eudev)
7824        ("gnutls" ,gnutls)
7825        ("iptables" ,iptables)
7826        ("isc-dhcp" ,isc-dhcp)
7827        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7828        ("jansson" ,jansson)
7829        ("libaudit" ,audit)
7830        ("libgcrypt" ,libgcrypt)
7831        ("libgudev" ,libgudev)
7832        ("libndp" ,libndp)
7833        ("libnl" ,libnl)
7834        ("libsoup" ,libsoup)
7835        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7836        ("modem-manager" ,modem-manager)
7837        ("newt" ,newt)                       ;for the 'nmtui' console interface
7838        ("openresolv" ,openresolv)           ; alternative resolv.conf manager
7839        ("polkit" ,polkit)
7840        ("ppp" ,ppp)
7841        ("readline" ,readline)
7842        ("util-linux" ,util-linux)
7843        ("elogind" ,elogind)))
7844     (synopsis "Network connection manager")
7845     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7846     (description
7847      "NetworkManager is a system network service that manages your network
7848 devices and connections, attempting to keep active network connectivity when
7849 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7850 devices, and provides VPN integration with a variety of different VPN
7851 services.")
7852     ;; “This NetworkManager project consists of the daemon, client tools, and
7853     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7854     ;; GPL-2.0+.”
7855     (license (list license:gpl2+
7856                    license:lgpl2.1+))
7857     (properties '((upstream-name . "NetworkManager")))))
7858
7859 (define-public network-manager-openvpn
7860   (package
7861     (name "network-manager-openvpn")
7862     (version "1.8.12")
7863     (source (origin
7864               (method url-fetch)
7865               (uri (string-append
7866                     "mirror://gnome/sources/NetworkManager-openvpn/"
7867                     (version-major+minor version)
7868                     "/NetworkManager-openvpn-" version ".tar.xz"))
7869               (sha256
7870                (base32
7871                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
7872     (build-system gnu-build-system)
7873     (arguments
7874      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7875        #:phases
7876        (modify-phases %standard-phases
7877          (add-after 'configure 'patch-path
7878            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7879              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
7880                                          "/sbin/openvpn"))
7881                     (modprobe (string-append (assoc-ref inputs "kmod")
7882                                              "/bin/modprobe"))
7883                     (pretty-ovpn (string-append "\"" ovpn "\"")))
7884                (for-each
7885                 (lambda (file)
7886                   (substitute* file
7887                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7888                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7889                     (("\"/sbin/openvpn\"") pretty-ovpn)
7890                     (("/sbin/modprobe") modprobe)))
7891                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7892              #t)))))
7893     (native-inputs
7894      `(("pkg-config" ,pkg-config)
7895        ("intltool" ,intltool)))
7896     (inputs
7897      `(("gtk+" ,gtk+)
7898        ("kmod" ,kmod)
7899        ("openvpn" ,openvpn)
7900        ("network-manager" ,network-manager)
7901        ("libnma" ,libnma)
7902        ("libsecret" ,libsecret)))
7903     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7904     (synopsis "OpenVPN plug-in for NetworkManager")
7905     (description
7906      "This extension of NetworkManager allows it to take care of connections
7907 to virtual private networks (VPNs) via OpenVPN.")
7908     (license license:gpl2+)
7909     (properties `((upstream-name . "NetworkManager-openvpn")))))
7910
7911 (define-public network-manager-vpnc
7912   (package
7913     (name "network-manager-vpnc")
7914     (version "1.2.6")
7915     (source (origin
7916               (method url-fetch)
7917               (uri (string-append
7918                     "mirror://gnome/sources/NetworkManager-vpnc/"
7919                     (version-major+minor version)
7920                     "/NetworkManager-vpnc-" version ".tar.xz"))
7921               (sha256
7922                (base32
7923                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
7924     (build-system gnu-build-system)
7925     (arguments
7926      `(#:configure-flags '("--enable-absolute-paths"
7927                            "--localstatedir=/var"
7928                            ;; libnm-glib has been removed from network-manager
7929                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
7930                            "--with-libnm-glib=no")
7931        #:phases
7932        (modify-phases %standard-phases
7933          (add-after 'configure 'patch-path
7934            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7935              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
7936                                          "/sbin/vpnc"))
7937                     (modprobe (string-append (assoc-ref inputs "kmod")
7938                                              "/bin/modprobe"))
7939                     (pretty-ovpn (string-append "\"" vpnc "\"")))
7940                (substitute* "src/nm-vpnc-service.c"
7941                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
7942                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
7943                     (("\"/sbin/vpnc\"") pretty-ovpn)
7944                     (("/sbin/modprobe") modprobe)))
7945              #t)))))
7946     (native-inputs
7947      `(("pkg-config" ,pkg-config)
7948        ("intltool" ,intltool)))
7949     (inputs
7950      `(("gtk+" ,gtk+)
7951        ("kmod" ,kmod)
7952        ("vpnc" ,vpnc)
7953        ("network-manager" ,network-manager)
7954        ("libnma" ,libnma)
7955        ("libsecret" ,libsecret)))
7956     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7957     (synopsis "VPNC plug-in for NetworkManager")
7958     (description
7959      "Support for configuring virtual private networks based on VPNC.
7960 Compatible with Cisco VPN concentrators configured to use IPsec.")
7961     (license license:gpl2+)
7962     (properties `((upstream-name . "NetworkManager-vpnc")))))
7963
7964 (define-public network-manager-openconnect
7965   (package
7966     (name "network-manager-openconnect")
7967     (version "1.2.6")
7968     (source (origin
7969               (method url-fetch)
7970               (uri (string-append
7971                     "mirror://gnome/sources/NetworkManager-openconnect/"
7972                     (version-major+minor version)
7973                     "/NetworkManager-openconnect-" version ".tar.xz"))
7974               (sha256
7975                (base32
7976                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
7977     (build-system gnu-build-system)
7978     (arguments
7979      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7980        #:phases
7981        (modify-phases %standard-phases
7982          (add-after 'configure 'patch-path
7983            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7984              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
7985                                          "/sbin/openconnect"))
7986                     (modprobe (string-append (assoc-ref inputs "kmod")
7987                                              "/bin/modprobe"))
7988                     (pretty-ovpn (string-append "\"" openconnect "\"")))
7989                (substitute* "src/nm-openconnect-service.c"
7990                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
7991                  (("/sbin/modprobe") modprobe)))
7992              #t)))))
7993     (native-inputs
7994      `(("intltool" ,intltool)
7995        ("libnma" ,libnma)
7996        ("pkg-config" ,pkg-config)))
7997     (inputs
7998      `(("gcr" ,gcr)
7999        ("gtk+" ,gtk+)
8000        ("kmod" ,kmod)
8001        ("libsecret" ,libsecret)
8002        ("libxml2" ,libxml2)
8003        ("lz4" ,lz4)
8004        ("network-manager" ,network-manager)
8005        ("openconnect" ,openconnect)))
8006     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8007     (synopsis "OpenConnect plug-in for NetworkManager")
8008     (description
8009      "This extension of NetworkManager allows it to take care of connections
8010 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8011 Cisco's AnyConnect SSL VPN.")
8012     (license license:gpl2+)
8013     (properties `((upstream-name . "NetworkManager-openconnect")
8014
8015                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8016                   ;; file refers to account "nm-openconnect".  Specify it here
8017                   ;; so that 'network-manager-service-type' creates it.
8018                   (user-accounts . ("nm-openconnect"))))))
8019
8020 (define-public mobile-broadband-provider-info
8021   (package
8022     (name "mobile-broadband-provider-info")
8023     (version "20190116")
8024     (source (origin
8025               (method url-fetch)
8026               (uri (string-append
8027                     "mirror://gnome/sources/"
8028                     "mobile-broadband-provider-info/" version "/"
8029                     "mobile-broadband-provider-info-" version ".tar.xz"))
8030               (sha256
8031                (base32
8032                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8033     (build-system gnu-build-system)
8034     (arguments
8035      `(#:tests? #f))                    ; no tests
8036     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8037     (synopsis "Database of broadband connection configuration")
8038     (description "Database of broadband connection configuration.")
8039     (license license:public-domain)))
8040
8041 (define-public network-manager-applet
8042   (package
8043     (name "network-manager-applet")
8044     (version "1.20.0")
8045     (source (origin
8046               (method url-fetch)
8047               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8048                                   (version-major+minor version) "/"
8049                                   "network-manager-applet-" version ".tar.xz"))
8050               (sha256
8051                (base32
8052                 "0lsjkbv66hn7acl2pg9h6hz4b700zzv4cjwrwjvy7043blw0bcla"))))
8053     (build-system meson-build-system)
8054     (arguments
8055      '(#:glib-or-gtk? #t
8056        #:configure-flags
8057        '("-Dappindicator=yes")))
8058     (native-inputs
8059      `(("intltool" ,intltool)
8060        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
8061        ("gobject-introspection" ,gobject-introspection)
8062        ("gtk-doc" ,gtk-doc)
8063        ("pkg-config" ,pkg-config)))
8064     (propagated-inputs
8065      ;; libnm-gtk.pc refers to all these.
8066      `(("dbus-glib" ,dbus-glib)
8067        ("gtk+" ,gtk+)
8068        ("network-manager" ,network-manager)
8069        ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8070        ("libnma" ,libnma)))
8071     (inputs
8072      `(("gcr" ,gcr)
8073        ("libappindicator" ,libappindicator)
8074        ("libgudev" ,libgudev)
8075        ("libnotify" ,libnotify)
8076        ("libsecret" ,libsecret)
8077        ("libselinux" ,libselinux)
8078        ("jansson" ,jansson) ; for team support
8079        ("modem-manager" ,modem-manager)))
8080     (synopsis "Applet for managing network connections")
8081     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8082     (description
8083      "This package contains a systray applet for NetworkManager.  It displays
8084 the available networks and allows users to easily switch between them.")
8085     (license license:gpl2+)))
8086
8087 (define-public libxml++
8088   (package
8089     (name "libxml++")
8090     (version "3.0.1")
8091     (source (origin
8092               (method url-fetch)
8093               (uri (string-append "mirror://gnome/sources/" name "/"
8094                                   (version-major+minor version) "/"
8095                                   name "-" version ".tar.xz"))
8096               (sha256
8097                (base32
8098                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
8099     (build-system gnu-build-system)
8100     ;; libxml++-3.0.pc refers to all these.
8101     (propagated-inputs
8102      `(("libxml2" ,libxml2)
8103        ("glibmm" ,glibmm)))
8104     (native-inputs
8105      `(("perl" ,perl)
8106        ("pkg-config" ,pkg-config)))
8107     (home-page "http://libxmlplusplus.sourceforge.net/")
8108     (synopsis "C++ wrapper for XML parser library libxml2")
8109     (description
8110      "This package provides a C++ wrapper for the XML parser library
8111 libxml2.")
8112     (license license:lgpl2.1+)))
8113
8114 (define-public libxml++-2
8115   (package
8116     (inherit libxml++)
8117     (name "libxml++")
8118     (version "2.40.1")
8119     (source (origin
8120               (method url-fetch)
8121               (uri (string-append "mirror://gnome/sources/" name "/"
8122                                   (version-major+minor version) "/"
8123                                   name "-" version ".tar.xz"))
8124               (sha256
8125                (base32
8126                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
8127
8128 (define-public gdm
8129   (package
8130     (name "gdm")
8131     (version "3.34.1")
8132     (source (origin
8133               (method url-fetch)
8134               (uri (string-append "mirror://gnome/sources/" name "/"
8135                                   (version-major+minor version) "/"
8136                                   name "-" version ".tar.xz"))
8137               (sha256
8138                (base32
8139                 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
8140               (patches (search-patches "gdm-default-session.patch"))))
8141     (build-system glib-or-gtk-build-system)
8142     (arguments
8143      '(#:configure-flags
8144        `("--without-plymouth"
8145          "--disable-systemd-journal"
8146
8147          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8148          ;; instead of having to replace it (i.e., stopping the mingetty
8149          ;; service for TTY 1 before starting GDM).
8150          "--with-initial-vt=7"
8151
8152          ;; Use '/etc/environment' for locale settings instead of the
8153          ;; systemd-specific '/etc/locale.conf'.
8154          "--with-lang-file=/etc/environment"
8155
8156          ,(string-append "--with-udevdir="
8157                          (assoc-ref %outputs "out") "/lib/udev")
8158
8159          "--localstatedir=/var"
8160          ,(string-append "--with-default-path="
8161                          (string-join '("/run/setuid-programs"
8162                                         "/run/current-system/profile/bin"
8163                                         "/run/current-system/profile/sbin")
8164                                       ":"))
8165          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8166          ;; XDG_DATA_DIRS so that it finds its schemas.
8167          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
8168        #:phases
8169        (modify-phases %standard-phases
8170          (add-before
8171           'configure 'pre-configure
8172           (lambda* (#:key inputs outputs #:allow-other-keys)
8173             ;; We don't have <systemd/sd-daemon.h>.
8174             (substitute* '("common/gdm-log.c"
8175                            "daemon/gdm-server.c"
8176                            "daemon/gdm-session-worker.c"
8177                            "daemon/gdm-session-worker-job.c")
8178               (("#include <systemd/sd-daemon\\.h>") ""))
8179             ;; Use elogind for sd-login.
8180             (substitute* '("common/gdm-common.c"
8181                            "daemon/gdm-local-display-factory.c"
8182                            "daemon/gdm-manager.c"
8183                            "libgdm/gdm-user-switching.c")
8184               (("#include <systemd/sd-login\\.h>")
8185                "#include <elogind/sd-login.h>"))
8186             ;; Check for elogind.
8187             (substitute* '("configure")
8188               (("libsystemd")
8189                "libelogind"))
8190             ;; Look for system-installed sessions in
8191             ;; /run/current-system/profile/share.
8192             (substitute* '("libgdm/gdm-sessions.c"
8193                            "daemon/gdm-session.c"
8194                            "daemon/gdm-display.c"
8195                            "daemon/gdm-launch-environment.c")
8196               (("DATADIR \"/x")
8197                "\"/run/current-system/profile/share/x")
8198               (("DATADIR \"/wayland")
8199                "\"/run/current-system/profile/share/wayland")
8200               (("DATADIR \"/gnome")
8201                "\"/run/current-system/profile/share/gnome"))
8202             (let ((propagate '("GDM_CUSTOM_CONF"
8203                                "GDM_DBUS_DAEMON"
8204                                "GDM_X_SERVER"
8205                                "GDM_X_SESSION"
8206                                ;; XXX: Remove this once GNOME Shell is
8207                                ;; a dependency of GDM.
8208                                "XDG_DATA_DIRS")))
8209               (substitute* "daemon/gdm-session.c"
8210                 (("set_up_session_environment \\(self\\);")
8211                  (apply string-append
8212                         "set_up_session_environment (self);\n"
8213                         (map (lambda (name)
8214                                (string-append
8215                                 "gdm_session_set_environment_variable "
8216                                 "(self, \"" name "\","
8217                                 "g_getenv (\"" name "\"));\n"))
8218                              propagate)))))
8219             ;; Find the configuration file using an environment variable.
8220             (substitute* '("common/gdm-settings.c")
8221               (("GDM_CUSTOM_CONF")
8222                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8223                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8224                               " : GDM_CUSTOM_CONF)")))
8225             ;; Use service-supplied path to X.
8226             (substitute* '("daemon/gdm-server.c")
8227               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8228                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8229             (substitute* '("daemon/gdm-wayland-session.c"
8230                            "daemon/gdm-x-session.c")
8231               (("\"dbus-daemon\"")
8232                "g_getenv (\"GDM_DBUS_DAEMON\")")
8233               (("X_SERVER")
8234                "g_getenv (\"GDM_X_SERVER\")")
8235               (("GDMCONFDIR \"/Xsession\"")
8236                "g_getenv (\"GDM_X_SESSION\")"))
8237             ;; Use an absolute path for GNOME Session.
8238             (substitute* "daemon/gdm-launch-environment.c"
8239               (("\"gnome-session\"")
8240                (string-append "\"" (assoc-ref inputs "gnome-session")
8241                               "/bin/gnome-session\"")))
8242             ;; Do not automatically select the placeholder session.
8243             (substitute* "daemon/gdm-session.c"
8244               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8245                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8246                               "(g_strcmp0(search_dirs[i], \""
8247                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8248                               "\") == 0 && "
8249                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8250               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8251                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
8252             #t))
8253          ;; GDM requires that there be at least one desktop entry
8254          ;; file.  This phase installs a hidden one that simply
8255          ;; fails.  This enables users to use GDM with a
8256          ;; '~/.xsession' script with no other desktop entry files.
8257          ;; See <https://bugs.gnu.org/35068>.
8258          (add-after 'install 'install-placeholder-desktop-entry
8259            (lambda* (#:key inputs outputs #:allow-other-keys)
8260              (let* ((out (assoc-ref outputs "out"))
8261                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8262                     (fail (string-append sessions "/fail.desktop")))
8263                (mkdir-p sessions)
8264                (with-output-to-file fail
8265                  (lambda ()
8266                    (for-each
8267                     display
8268                     '("[Desktop Entry]\n"
8269                       "Encoding=UTF-8\n"
8270                       "Type=Application\n"
8271                       "Name=Fail\n"
8272                       "Comment=This session fails immediately.\n"
8273                       "NoDisplay=true\n"
8274                       "Exec=false\n"))))
8275                #t)))
8276          ;; GDM needs GNOME Session to run these applications.  We link
8277          ;; their autostart files in `share/gdm/greeter/autostart'
8278          ;; because GDM explicitly tells GNOME Session to look there.
8279          ;;
8280          ;; XXX: GNOME Shell should be linked here too, but currently
8281          ;; GNOME Shell depends on GDM.
8282          (add-after 'install 'link-autostart-files
8283            (lambda* (#:key inputs outputs #:allow-other-keys)
8284              (let* ((out (assoc-ref outputs "out"))
8285                     (autostart (string-append out "/share/gdm/"
8286                                               "greeter/autostart"))
8287                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8288                (mkdir-p autostart)
8289                (with-directory-excursion autostart
8290                  (for-each (lambda (desktop)
8291                              (symlink desktop (basename desktop)))
8292                            (find-files (string-append settings "/etc/xdg"))))
8293                #t))))))
8294     (native-inputs
8295      `(("dconf" ,dconf)
8296        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8297        ("gobject-introspection" ,gobject-introspection)
8298        ("intltool" ,intltool)
8299        ("itstool" ,itstool)
8300        ("pkg-config" ,pkg-config)
8301        ("xmllint" ,libxml2)))
8302     (inputs
8303      `(("accountsservice" ,accountsservice)
8304        ("check" ,check-0.14)            ;for testing
8305        ("elogind" ,elogind)
8306        ("gnome-session" ,gnome-session)
8307        ("gnome-settings-daemon" ,gnome-settings-daemon)
8308        ("gtk+" ,gtk+)
8309        ("iso-codes" ,iso-codes)
8310        ("libcanberra" ,libcanberra)
8311        ("linux-pam" ,linux-pam)))
8312     (synopsis "Display manager for GNOME")
8313     (home-page "https://wiki.gnome.org/Projects/GDM/")
8314     (description
8315      "GNOME Display Manager is a system service that is responsible for
8316 providing graphical log-ins and managing local and remote displays.")
8317     (license license:gpl2+)))
8318
8319 (define-public libgtop
8320   (package
8321     (name "libgtop")
8322     (version "2.40.0")
8323     (source (origin
8324               (method url-fetch)
8325               (uri (string-append "mirror://gnome/sources/libgtop/"
8326                                   (version-major+minor version) "/"
8327                                   "libgtop-" version ".tar.xz"))
8328               (sha256
8329                (base32
8330                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8331     (build-system gnu-build-system)
8332     (native-inputs
8333      `(("gobject-introspection" ,gobject-introspection)
8334        ("intltool" ,intltool)
8335        ("perl" ,perl)
8336        ("pkg-config" ,pkg-config)))
8337     (propagated-inputs
8338      `(("glib" ,glib))) ; required by libgtop-2.0.pc
8339     (synopsis "Portable system access library")
8340     (home-page "https://www.gnome.org/")
8341     (description
8342      "LibGTop is a library to get system specific data such as CPU and memory
8343 usage and information about running processes.")
8344     (license license:gpl2+)))
8345
8346 (define-public gnome-bluetooth
8347   (package
8348     (name "gnome-bluetooth")
8349     (version "3.34.2")
8350     (source (origin
8351               (method url-fetch)
8352               (uri (string-append "mirror://gnome/sources/" name "/"
8353                                   (version-major+minor version) "/"
8354                                   name "-" version ".tar.xz"))
8355               (sha256
8356                (base32
8357                 "0lmjvb49vgr4jjplrisv6pi29jsn1q42715i6c5a0p9ad3gawyyv"))))
8358     (build-system meson-build-system)
8359     (native-inputs
8360      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8361        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8362        ("gobject-introspection" ,gobject-introspection)
8363        ("intltool" ,intltool)
8364        ("pkg-config" ,pkg-config)
8365        ("xmllint" ,libxml2)))
8366     (propagated-inputs
8367      ;; gnome-bluetooth-1.0.pc refers to all these.
8368      `(("glib" ,glib)
8369        ("gtk+" ,gtk+)))
8370     (inputs
8371      `(("eudev" ,eudev)
8372        ("libcanberra" ,libcanberra)
8373        ("libnotify" ,libnotify)))
8374     (synopsis "GNOME Bluetooth subsystem")
8375     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8376     (description
8377      "This package contains tools for managing and manipulating Bluetooth
8378 devices using the GNOME desktop.")
8379     (license license:lgpl2.1+)))
8380
8381 (define-public gnome-control-center
8382   (package
8383     (name "gnome-control-center")
8384     (version "3.34.2")
8385     (source (origin
8386               (method url-fetch)
8387               (uri (string-append "mirror://gnome/sources/" name "/"
8388                                   (version-major+minor version) "/"
8389                                   name "-" version ".tar.xz"))
8390               (sha256
8391                (base32
8392                 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
8393     (build-system meson-build-system)
8394     (arguments
8395      '(#:glib-or-gtk? #t
8396        #:configure-flags
8397        (list "-Dcheese=false"
8398              (string-append "-Dgnome_session_libexecdir="
8399                             (assoc-ref %build-inputs "gnome-session")
8400                             "/libexec"))
8401        #:phases
8402        (modify-phases %standard-phases
8403          (add-before 'configure 'patch-paths
8404            (lambda* (#:key inputs #:allow-other-keys)
8405              (let ((libc   (assoc-ref inputs "libc"))
8406                    (tzdata (assoc-ref inputs "tzdata"))
8407                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8408                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8409                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8410                (substitute* "panels/datetime/tz.h"
8411                  (("/usr/share/zoneinfo/zone.tab")
8412                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8413                (substitute* "tests/datetime/test-endianess.c"
8414                  (("/usr/share/locale")
8415                   (string-append libc "/share/locale")))
8416                (substitute* "panels/region/cc-region-panel.c"
8417                  (("\"gkbd-keyboard-display")
8418                   (string-append "\"" libgnomekbd
8419                                  "/bin/gkbd-keyboard-display")))
8420                (substitute* '("panels/network/net-device-wifi.c"
8421                               "panels/network/net-device.c"
8422                               "panels/network/connection-editor/net-connection-editor.c")
8423                  (("\"nm-connection-editor")
8424                   (string-append "\"" nm-applet
8425                                  "/bin/nm-connection-editor")))
8426                (substitute* '("panels/user-accounts/run-passwd.c")
8427                  (("/usr/bin/passwd")
8428                   "/run/setuid-programs/passwd"))
8429                (substitute* "panels/info/cc-info-overview-panel.c"
8430                  (("DATADIR \"/gnome/gnome-version.xml\"")
8431                   (string-append "\"" gnome-desktop
8432                                  "/share/gnome/gnome-version.xml\"")))
8433                #t)))
8434          (add-after 'unpack 'skip-gtk-update-icon-cache
8435            ;; Don't create 'icon-theme.cache'.
8436            (lambda _
8437              (substitute* "build-aux/meson/meson_post_install.py"
8438                (("gtk-update-icon-cache") (which "true")))
8439              #t)))))
8440     (native-inputs
8441      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8442        ("intltool" ,intltool)
8443        ("pkg-config" ,pkg-config)
8444        ("xsltproc" ,libxslt)
8445        ;; For tests
8446        ("hicolor-icon-theme" ,hicolor-icon-theme)
8447        ("python-dbusmock" ,python-dbusmock)
8448        ("xorg-server" ,xorg-server-for-tests)))
8449     (inputs
8450      `(("accountsservice" ,accountsservice)
8451        ("clutter-gtk" ,clutter-gtk)
8452        ("colord-gtk" ,colord-gtk)
8453        ("cups" ,cups)
8454        ("dconf" ,dconf)
8455        ("docbook-xsl" ,docbook-xsl)
8456        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8457        ("gnome-bluetooth" ,gnome-bluetooth)
8458        ("gnome-desktop" ,gnome-desktop)
8459        ("gnome-online-accounts" ,gnome-online-accounts)
8460        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8461        ("gnome-session" ,gnome-session)
8462        ("gnome-settings-daemon" ,gnome-settings-daemon)
8463        ("grilo" ,grilo)
8464        ("gsound" ,gsound)
8465        ("ibus" ,ibus)
8466        ("libcanberra" ,libcanberra)
8467        ("libgnomekbd" ,libgnomekbd)
8468        ("libgudev" ,libgudev)
8469        ("libgtop" ,libgtop)
8470        ("libnma" ,libnma)
8471        ("libpwquality" ,libpwquality)
8472        ("libsecret" ,libsecret)
8473        ("libsoup" ,libsoup)
8474        ("libxml2" ,libxml2)
8475        ("libwacom" ,libwacom)
8476        ("mesa" ,mesa)
8477        ("mit-krb5" ,mit-krb5)
8478        ("modem-manager" ,modem-manager)
8479        ("network-manager-applet" ,network-manager-applet)
8480        ("polkit" ,polkit)
8481        ("pulseaudio" ,pulseaudio)
8482        ("smbclient" ,samba)
8483        ("tzdata" ,tzdata)
8484        ("udisks" ,udisks)
8485        ("upower" ,upower)))
8486     (synopsis "Utilities to configure the GNOME desktop")
8487     (home-page "https://www.gnome.org/")
8488     (description
8489      "This package contains configuration applets for the GNOME desktop,
8490 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8491 properties, sound setup, desktop theme and background, user interface
8492 properties, screen resolution, and other GNOME parameters.")
8493     (license license:gpl2+)))
8494
8495 (define-public gnome-shell
8496   (package
8497     (name "gnome-shell")
8498     (version "3.34.5")
8499     (source (origin
8500               (method url-fetch)
8501               (uri (string-append "mirror://gnome/sources/" name "/"
8502                                   (version-major+minor version) "/"
8503                                   name "-" version ".tar.xz"))
8504               (sha256
8505                (base32
8506                 "0l3mdn7g2c22mdhrqkxvvc1pk2w0v32f2v4a6n1phvaalwcg75nj"))
8507               (patches (search-patches "gnome-shell-CVE-2020-17489.patch"
8508                                        "gnome-shell-theme.patch"
8509                                        "gnome-shell-disable-test.patch"))
8510               (modules '((guix build utils)))
8511               (snippet
8512                #~(begin
8513                    ;; Copy images for use on the GDM log-in screen.
8514                    (copy-file #$(file-append %artwork-repository
8515                                              "/slim/0.x/background.png")
8516                               "data/theme/guix-background.png")
8517                    (copy-file #$(file-append %artwork-repository
8518                                              "/logo/Guix-horizontal-white.svg")
8519                               "data/theme/guix-logo.svg")
8520                    #t))))
8521     (build-system meson-build-system)
8522     (arguments
8523      `(#:glib-or-gtk? #t
8524        #:disallowed-references ((,glib "bin")
8525                                 ,inkscape ,libxslt
8526                                 ,ruby-sass)
8527        #:configure-flags
8528        (list "-Dsystemd=false"
8529              ;; Otherwise, the RUNPATH will lack the final path component.
8530              (string-append "-Dc_link_args=-Wl,-rpath="
8531                             (assoc-ref %outputs "out")
8532                             "/lib/gnome-shell"))
8533
8534        #:modules ((guix build meson-build-system)
8535                   (guix build utils)
8536                   (srfi srfi-1))
8537
8538        #:phases
8539        (modify-phases %standard-phases
8540          (add-after 'unpack 'fix-keysdir
8541            (lambda* (#:key outputs #:allow-other-keys)
8542              (let* ((out     (assoc-ref outputs "out"))
8543                     (keysdir (string-append
8544                               out "/share/gnome-control-center/keybindings")))
8545                (substitute* "meson.build"
8546                  (("keysdir =.*")
8547                   (string-append "keysdir = '" keysdir "'\n")))
8548                #t)))
8549          (add-before 'configure 'convert-logo-to-png
8550            (lambda* (#:key inputs #:allow-other-keys)
8551              ;; Convert the logo from SVG to PNG.
8552              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
8553                      "data/theme/guix-logo.svg")))
8554          (add-before 'configure 'record-absolute-file-names
8555            (lambda* (#:key inputs #:allow-other-keys)
8556              (substitute* "js/misc/ibusManager.js"
8557                (("'ibus-daemon'")
8558                 (string-append "'" (assoc-ref inputs "ibus")
8559                                "/bin/ibus-daemon'")))
8560              (substitute* "js/ui/status/keyboard.js"
8561                (("'gkbd-keyboard-display'")
8562                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8563                                "/bin/gkbd-keyboard-display'")))
8564              #t))
8565          (add-before 'check 'pre-check
8566            (lambda* (#:key inputs #:allow-other-keys)
8567              ;; Tests require a running X server.
8568              (system "Xvfb :1 &")
8569              (setenv "DISPLAY" ":1")
8570              #t))
8571          (add-after 'install 'wrap-programs
8572            (lambda* (#:key inputs outputs #:allow-other-keys)
8573              (let ((out              (assoc-ref outputs "out"))
8574                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8575                    (python-path      (getenv "PYTHONPATH")))
8576                (wrap-program (string-append out "/bin/gnome-shell")
8577                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8578                  ;; FIXME: gnome-shell loads these libraries with unqualified
8579                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
8580                  ;; alternative might be to patch gnome-shell.
8581                  `("LD_LIBRARY_PATH" ":" prefix
8582                    ,(map (lambda (pkg)
8583                            (string-append (assoc-ref inputs pkg) "/lib"))
8584                          '("gdk-pixbuf"
8585                            "gnome-bluetooth" "librsvg" "libgweather"))))
8586                (for-each
8587                 (lambda (prog)
8588                   (wrap-program (string-append out "/bin/" prog)
8589                     `("PYTHONPATH"      ":" prefix (,python-path))
8590                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8591                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
8592                #t)))
8593          (replace 'glib-or-gtk-wrap
8594            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8595              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8596                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
8597                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8598                ;; phase.  Fix that since we don't need these.
8599                (wrap #:inputs (fold alist-delete inputs
8600                                     '("inkscape" "intltool" "glib:bin"))
8601                      #:outputs outputs)))))))
8602     (native-inputs
8603      `(("asciidoc" ,asciidoc)
8604        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8605        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8606        ("gobject-introspection" ,gobject-introspection)
8607        ("inkscape" ,inkscape)
8608        ("intltool" ,intltool)
8609        ("pkg-config" ,pkg-config)
8610        ("python" ,python)
8611        ("ruby-sass" ,ruby-sass)
8612        ("sassc" ,sassc)
8613        ("xsltproc" ,libxslt)
8614        ;; For tests
8615        ("xorg-server" ,xorg-server-for-tests)))
8616     (inputs
8617      `(("accountsservice" ,accountsservice)
8618        ("caribou" ,caribou)
8619        ("docbook-xsl" ,docbook-xsl)
8620        ("evolution-data-server" ,evolution-data-server)
8621        ("gcr" ,gcr)
8622        ("gdm" ,gdm)
8623        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8624        ("gjs" ,gjs)
8625        ("gnome-autoar" ,gnome-autoar)
8626        ("gnome-bluetooth" ,gnome-bluetooth)
8627        ("gnome-desktop" ,gnome-desktop)
8628        ("gnome-settings-daemon" ,gnome-settings-daemon)
8629        ("gst-plugins-base" ,gst-plugins-base)
8630        ("ibus" ,ibus)
8631        ("libcanberra" ,libcanberra)
8632        ("libcroco" ,libcroco)
8633        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
8634        ("libgweather" ,libgweather)
8635        ("libnma" ,libnma)
8636        ("libsoup" ,libsoup)
8637        ("mesa-headers" ,mesa-headers)
8638        ("mutter" ,mutter)
8639        ("network-manager-applet" ,network-manager-applet)
8640        ("polkit" ,polkit)
8641        ("pulseaudio" ,pulseaudio)
8642        ("python-pygobject" ,python-pygobject)
8643        ("startup-notification" ,startup-notification)
8644        ("telepathy-logger" ,telepathy-logger)
8645        ("upower" ,upower)
8646        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8647        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8648        ("librsvg" ,librsvg)
8649        ("geoclue" ,geoclue)))
8650     ;; CVE-2019-3820 was fixed before GNOME 3.34 was released, in upstream
8651     ;; commit f0a7395b3006360905ccdc642982f9fc67378927.
8652     (properties '((lint-hidden-cve . ("CVE-2019-3820"))))
8653     (synopsis "Desktop shell for GNOME")
8654     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8655     (description
8656      "GNOME Shell provides core user interface functions for the GNOME desktop,
8657 like switching to windows and launching applications.")
8658     (license license:gpl2+)))
8659
8660 (define-public gtk-vnc
8661   (package
8662     (name "gtk-vnc")
8663     (version "1.0.0")
8664     (source
8665      (origin
8666        (method url-fetch)
8667        (uri
8668         (string-append "mirror://gnome/sources/" name "/"
8669                        (version-major+minor version) "/"
8670                        name "-" version ".tar.xz"))
8671        (sha256
8672         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8673     (build-system meson-build-system)
8674     (arguments
8675      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8676     (native-inputs
8677      `(("gjs" ,gjs)
8678        ("glib:bin" ,glib "bin")
8679        ("gobject-introspection" ,gobject-introspection)
8680        ("intltool" ,intltool)
8681        ("node" ,node)
8682        ("perl" ,perl)
8683        ("pkg-config" ,pkg-config)
8684        ("python" ,python-wrapper)
8685        ("vala" ,vala)))
8686     (inputs
8687      `(("cairo" ,cairo)
8688        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8689        ("glib" ,glib)
8690        ("gnutls" ,gnutls)
8691        ("libgcrypt" ,libgcrypt)
8692        ("libsasl" ,cyrus-sasl)
8693        ("pulseaudio" ,pulseaudio)
8694        ("x11" ,libx11)
8695        ("zlib" ,zlib)))
8696     (propagated-inputs
8697      `(("gtk+" ,gtk+)))
8698     (synopsis "VNC client viewer widget for GTK+")
8699     (description "GTK-VNC is a project providing client side APIs for the RFB
8700 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8701 it to be completely asynchronous while remaining single threaded.  It provides a
8702 core C library, and bindings for Python (PyGTK).")
8703     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8704     (license license:lgpl2.1+)))
8705
8706 (define-public gnome-autoar
8707   (package
8708     (name "gnome-autoar")
8709     (version "0.3.1")
8710     (source (origin
8711               (method url-fetch)
8712               (uri (string-append "mirror://gnome/sources/" name "/"
8713                                   (version-major+minor version) "/"
8714                                   name "-" version ".tar.xz"))
8715               (sha256
8716                (base32
8717                 "1y6hh5dldhdq7mpbmd571zl0yadfackvifhnxvykkqqddwz72y0f"))))
8718     (build-system glib-or-gtk-build-system)
8719     (native-inputs
8720      `(("gobject-introspection" ,gobject-introspection)
8721        ("pkg-config" ,pkg-config)))
8722     (propagated-inputs
8723      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
8724     (inputs
8725      `(("gtk+" ,gtk+)))
8726     (synopsis "Archives integration support for GNOME")
8727     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8728     (description
8729      "GNOME Autoar is a library which makes creating and extracting archives
8730 easy, safe, and automatic.")
8731     (license license:lgpl2.1+)))
8732
8733 (define-public tracker
8734   (package
8735     (name "tracker")
8736     (version "2.3.5")
8737     (source (origin
8738               (method url-fetch)
8739               (uri (string-append "mirror://gnome/sources/tracker/"
8740                                   (version-major+minor version) "/"
8741                                   "tracker-" version ".tar.xz"))
8742               (sha256
8743                (base32
8744                 "1ixxyqjlv7pnl4j8g6b72fkbjvzfspza8y71ppkncry8i6xkr223"))))
8745     (build-system meson-build-system)
8746     (arguments
8747      `(#:glib-or-gtk? #t
8748        #:configure-flags
8749        ;; Otherwise, the RUNPATH will lack the final path component.
8750        (list (string-append "-Dc_link_args=-Wl,-rpath="
8751                             (assoc-ref %outputs "out") "/lib:"
8752                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
8753        #:phases
8754        (modify-phases %standard-phases
8755          (add-before 'check 'pre-check
8756            (lambda _
8757              ;; Some tests expect to write to $HOME.
8758              (setenv "HOME" "/tmp")
8759              #t)))))
8760     (native-inputs
8761      `(("glib:bin" ,glib "bin")
8762        ("gobject-introspection" ,gobject-introspection)
8763        ("python-pygobject" ,python-pygobject)
8764        ("intltool" ,intltool)
8765        ("pkg-config" ,pkg-config)
8766        ("vala" ,vala)))
8767     (inputs
8768      `(("dbus" ,dbus)
8769        ("sqlite" ,sqlite)
8770        ("libxml2" ,libxml2)
8771        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
8772        ("json-glib" ,json-glib)
8773        ("libsoup" ,libsoup)))
8774     (synopsis "Metadata database, indexer and search tool")
8775     (home-page "https://wiki.gnome.org/Projects/Tracker")
8776     (description
8777      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8778
8779 It is a middleware component aimed at desktop application developers who want
8780 their apps to browse and search user content.  It's not designed to be used
8781 directly by desktop users, but it provides a commandline tool named
8782 @command{tracker} for the adventurous.
8783
8784 Tracker allows your application to instantly perform full-text searches across
8785 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
8786 example.  This is achieved by indexing the user's home directory in the
8787 background.
8788
8789 Tracker also allows your application to query and list content that the user
8790 has stored.  For example, GNOME Music displays all the music files that are
8791 found by Tracker.  This means that GNOME Music doesn't need to maintain a
8792 database of its own.
8793
8794 If you need to go beyond simple searches, Tracker is also a linked data
8795 endpoint and it understands SPARQL. ")
8796     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
8797     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8798     ;; libstemmer is bsd-3 and the rest is gpl2+.
8799     (license (list license:gpl2+
8800                    license:bsd-3
8801                    license:lgpl2.1+))))
8802
8803 (define-public tracker-miners
8804   (package
8805     (name "tracker-miners")
8806     (version "2.3.4")
8807     (source (origin
8808               (method url-fetch)
8809               (uri (string-append "mirror://gnome/sources/tracker-miners/"
8810                                   (version-major+minor version)
8811                                   "/tracker-miners-" version ".tar.xz"))
8812               (sha256
8813                (base32
8814                 "10wy8d8ski52k809p7s6lbw72qmg05bbmhnl00vx4qrbzqyxvc0b"))))
8815     (build-system meson-build-system)
8816     (arguments
8817      `(#:glib-or-gtk? #t
8818        #:configure-flags
8819        (list "-Dminer_rss=false" ; libgrss is required.
8820              ;; Ensure the RUNPATH contains all installed library locations.
8821              (string-append "-Dc_link_args=-Wl,-rpath="
8822                             (assoc-ref %outputs "out")
8823                             "/lib/tracker-miners-2.0")
8824              ;; TODO: Enable functional tests. Currently, the following error
8825              ;; appears:
8826              ;; Exception: The functional tests require DConf to be the default
8827              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8828              "-Dfunctional_tests=false")))
8829     (native-inputs
8830      `(("dbus" ,dbus)
8831        ("intltool" ,intltool)
8832        ("glib:bin" ,glib "bin")
8833        ("gobject-introspection" ,gobject-introspection)
8834        ("pkg-config" ,pkg-config)
8835        ("python-pygobject" ,python-pygobject)))
8836     (inputs
8837      `(("exempi" ,exempi)
8838        ("ffmpeg" ,ffmpeg)
8839        ("flac" ,flac)
8840        ("giflib" ,giflib)
8841        ("glib" ,glib)
8842        ("gstreamer" ,gstreamer)
8843        ("icu4c" ,icu4c)
8844        ("libcue" ,libcue)
8845        ("libexif" ,libexif)
8846        ("libgsf" ,libgsf)
8847        ("libgxps" ,libgxps)
8848        ("libiptcdata" ,libiptcdata)
8849        ("libjpeg" ,libjpeg-turbo)
8850        ("libosinfo" ,libosinfo)
8851        ("libpng" ,libpng)
8852        ("libseccomp" ,libseccomp)
8853        ("libtiff" ,libtiff)
8854        ("libvorbis" ,libvorbis)
8855        ("libxml2" ,libxml2)
8856        ("poppler" ,poppler)
8857        ("taglib" ,taglib)
8858        ("totem-pl-parser" ,totem-pl-parser)
8859        ("tracker" ,tracker)
8860        ("upower" ,upower)
8861        ("zlib" ,zlib)))
8862     (synopsis "Metadata database, indexer and search tool")
8863     (home-page "https://wiki.gnome.org/Projects/Tracker")
8864     (description
8865      "Tracker is an advanced framework for first class objects with associated
8866 metadata and tags.  It provides a one stop solution for all metadata, tags,
8867 shared object databases, search tools and indexing.")
8868     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8869     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
8870     (license (list license:gpl2+
8871                    license:lgpl2.1+
8872                    license:lgpl2.0+))))
8873
8874 (define-public nautilus
8875   (package
8876     (name "nautilus")
8877     (version "3.34.2")
8878     (source (origin
8879               (method url-fetch)
8880               (uri (string-append "mirror://gnome/sources/" name "/"
8881                                   (version-major+minor version) "/"
8882                                   name "-" version ".tar.xz"))
8883               (sha256
8884                (base32
8885                 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
8886     (build-system meson-build-system)
8887     (arguments
8888      '(#:glib-or-gtk? #t
8889        #:phases
8890        (modify-phases %standard-phases
8891          (add-after 'unpack 'skip-gtk-update-icon-cache
8892            ;; Don't create 'icon-theme.cache'.
8893            (lambda _
8894              (substitute* "build-aux/meson/postinstall.py"
8895                (("gtk-update-icon-cache") "true"))
8896              #t)))
8897        ;; XXX: FAIL: check-nautilus
8898        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
8899        #:tests? #f))
8900     (native-inputs
8901      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8902        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
8903        ("gobject-introspection" ,gobject-introspection)
8904        ("intltool" ,intltool)
8905        ("pkg-config" ,pkg-config)))
8906     (inputs
8907      `(("dconf" ,dconf)
8908        ("gexiv2" ,gexiv2)
8909        ("gvfs" ,gvfs)
8910        ("exempi" ,exempi)
8911        ("gnome-desktop" ,gnome-desktop)
8912        ("gnome-autoar" ,gnome-autoar)
8913        ("gst-plugins-base" ,gst-plugins-base)
8914        ("libseccomp" ,libseccomp)
8915        ("libselinux" ,libselinux)
8916        ("tracker" ,tracker)
8917        ("tracker-miners" ,tracker-miners)
8918        ;; XXX: gtk+ is required by libnautilus-extension.pc
8919        ;;
8920        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
8921        ;; package.  See:
8922        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
8923        ("gtk+" ,gtk+)
8924        ("libexif" ,libexif)
8925        ("libxml2" ,libxml2)))
8926     (synopsis "File manager for GNOME")
8927     (home-page "https://wiki.gnome.org/Apps/Nautilus")
8928     (description
8929      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
8930 design and behaviour, giving the user a simple way to navigate and manage its
8931 files.")
8932     (license license:gpl2+)))
8933
8934 (define-public baobab
8935   (package
8936     (name "baobab")
8937     (version "3.38.0")
8938     (source (origin
8939               (method url-fetch)
8940               (uri (string-append
8941                     "mirror://gnome/sources/" name "/"
8942                     (version-major+minor version) "/"
8943                     name "-" version ".tar.xz"))
8944               (sha256
8945                (base32
8946                 "0ac3fbl15l836yvgw724q4whbkws9v4b6l2xy6bnp0b0g0a6i104"))))
8947     (build-system meson-build-system)
8948     (arguments
8949      '(#:glib-or-gtk? #t))
8950     (native-inputs
8951      `(("intltool" ,intltool)
8952        ("pkg-config" ,pkg-config)
8953        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8954        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8955        ("itstool" ,itstool)
8956        ("xmllint" ,libxml2)
8957        ("glib" ,glib "bin")
8958        ("vala" ,vala)))
8959     (inputs
8960      `(("gtk+" ,gtk+)))
8961     (synopsis "Disk usage analyzer for GNOME")
8962     (description
8963      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
8964 usage in the GNOME desktop environment.  It can easily scan device volumes or
8965 a specific user-requested directory branch (local or remote).  Once the scan
8966 is complete it provides a graphical representation of each selected folder.")
8967     (home-page "https://wiki.gnome.org/Apps/Baobab")
8968     (license license:gpl2+)))
8969
8970 (define-public gnome-backgrounds
8971   (package
8972     (name "gnome-backgrounds")
8973     (version "3.34.0")
8974     (source
8975      (origin
8976        (method url-fetch)
8977        (uri (string-append "mirror://gnome/sources/" name "/"
8978                            (version-major+minor version) "/"
8979                            name "-" version ".tar.xz"))
8980        (sha256
8981         (base32
8982          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
8983     (build-system meson-build-system)
8984     (native-inputs
8985      `(("intltool" ,intltool)))
8986     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
8987     (synopsis "Background images for the GNOME desktop")
8988     (description
8989      "GNOME backgrounds package contains a collection of graphics files which
8990 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
8991 the package creates the proper framework and directory structure so that you
8992 can add your own files to the collection.")
8993     (license (list license:gpl2+
8994                    license:cc-by2.0
8995                    license:cc-by-sa2.0
8996                    license:cc-by-sa3.0))))
8997
8998 (define-public gnome-screenshot
8999   (package
9000     (name "gnome-screenshot")
9001     (version "3.34.0")
9002     (source
9003      (origin
9004        (method url-fetch)
9005        (uri (string-append "mirror://gnome/sources/" name "/"
9006                            (version-major+minor version) "/"
9007                            name "-" version ".tar.xz"))
9008        (sha256
9009         (base32
9010          "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
9011     (build-system meson-build-system)
9012     (arguments
9013      '(#:phases
9014        (modify-phases %standard-phases
9015          (add-after 'unpack 'skip-gtk-update-icon-cache
9016            ;; Don't create 'icon-theme.cache'.
9017            (lambda _
9018              (substitute* "build-aux/postinstall.py"
9019                (("gtk-update-icon-cache") "true"))
9020              #t)))))
9021     (native-inputs
9022      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
9023        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9024        ("intltool" ,intltool)
9025        ("appstream-glib" ,appstream-glib)
9026        ("pkg-config" ,pkg-config)))
9027     (inputs
9028      `(("gtk+" ,gtk+)
9029        ("libcanberra" ,libcanberra)
9030        ("libx11" ,libx11)
9031        ("libxext" ,libxext)))
9032     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9033     (synopsis "Take pictures of your screen")
9034     (description
9035      "GNOME Screenshot is a utility used for taking screenshots of the entire
9036 screen, a window or a user defined area of the screen, with optional
9037 beautifying border effects.")
9038     (license license:gpl2+)))
9039
9040 (define-public dconf-editor
9041   (package
9042     (name "dconf-editor")
9043     (version "3.34.2")
9044     (source
9045      (origin
9046        (method url-fetch)
9047        (uri (string-append "mirror://gnome/sources/" name "/"
9048                            (version-major+minor version) "/"
9049                            name "-" version ".tar.xz"))
9050        (sha256
9051         (base32
9052          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
9053     (build-system meson-build-system)
9054     (native-inputs
9055      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9056        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9057        ("intltool" ,intltool)
9058        ("pkg-config" ,pkg-config)
9059        ("vala" ,vala)))
9060     (inputs
9061      `(("dconf" ,dconf)
9062        ("gtk+" ,gtk+)
9063        ("libxml2" ,libxml2)))
9064     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9065     (synopsis "Graphical editor for GNOME's dconf configuration system")
9066     (description
9067      "Dconf-editor is a graphical tool for browsing and editing the dconf
9068 configuration system for GNOME.  It allows users to configure desktop
9069 software that do not provide their own configuration interface.")
9070     (license license:lgpl2.1+)))
9071
9072 (define-public gnome-default-applications
9073   (package
9074     (name "gnome-default-applications")
9075     (version "0")
9076     (build-system trivial-build-system)
9077     (source #f)
9078     (propagated-inputs
9079      `(("nautilus" ,nautilus)
9080        ("evince" ,evince)))
9081     (arguments
9082      `(#:modules ((guix build utils))
9083        #:builder
9084        (begin
9085          (use-modules (guix build utils))
9086          (let* ((out (assoc-ref %outputs "out"))
9087                 (apps (string-append out "/share/applications")))
9088            (mkdir-p apps)
9089            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9090              (lambda (port)
9091                (format port "[Default Applications]\n")
9092                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9093                (format port "application/pdf=evince.desktop\n")
9094                (format port "application/postscript=evince.desktop\n")))
9095            #t))))
9096     (synopsis "Default MIME type associations for the GNOME desktop")
9097     (description
9098      "Given many installed packages which might handle a given MIME type, a
9099 user running the GNOME desktop probably has some preferences: for example,
9100 that folders be opened by default by the Nautilus file manager, not the Baobab
9101 disk usage analyzer.  This package establishes that set of default MIME type
9102 associations for GNOME.")
9103     (license license:gpl3+)
9104     (home-page #f)))
9105
9106 (define-public libgovirt
9107   (package
9108    (name "libgovirt")
9109    (version "0.3.8")
9110    (source (origin
9111             (method url-fetch)
9112             (uri (string-append "mirror://gnome/sources/" name "/"
9113                                 (version-major+minor version) "/"
9114                                 name "-" version ".tar.xz"))
9115             (sha256
9116              (base32
9117               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9118    (build-system glib-or-gtk-build-system)
9119    (native-inputs
9120     `(("gettext" ,gettext-minimal)
9121       ("glib:bin" ,glib "bin")
9122       ("gobject-introspection" ,gobject-introspection)
9123       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9124       ("gtk+:bin" ,gtk+ "bin")
9125       ("pkg-config" ,pkg-config)))
9126    (inputs
9127     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
9128       ("librest" ,rest)))
9129    (synopsis "GoVirt Library")
9130    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9131    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9132    (license license:gpl2+)))
9133
9134 (define-public gnome-weather
9135   (package
9136    (name "gnome-weather")
9137    (version "3.34.0")
9138    (source (origin
9139             (method url-fetch)
9140             (uri (string-append "mirror://gnome/sources/" name "/"
9141                                 (version-major+minor version) "/"
9142                                 name "-" version ".tar.xz"))
9143             (sha256
9144              (base32
9145               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
9146    (build-system meson-build-system)
9147    (native-inputs
9148     `(("gettext" ,gettext-minimal)
9149       ("glib:bin" ,glib "bin")
9150       ("gobject-introspection" ,gobject-introspection)
9151       ("gtk+:bin" ,gtk+ "bin")
9152       ("pkg-config" ,pkg-config)))
9153    (inputs
9154     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
9155       ("appstream-glib" ,appstream-glib)
9156       ("geoclue" ,geoclue)
9157       ("gdk-pixbuf" ,gdk-pixbuf)
9158       ("gjs" ,gjs)
9159       ("gnome-desktop" ,gnome-desktop)
9160       ("libgweather" ,libgweather)))
9161    (arguments
9162     `(#:glib-or-gtk? #t
9163       #:phases
9164       (modify-phases %standard-phases
9165         (add-after 'install 'fix-desktop-file
9166           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
9167           ;; See https://issues.guix.gnu.org/issue/39324.
9168           (lambda* (#:key outputs #:allow-other-keys)
9169             (let* ((out (assoc-ref outputs "out"))
9170                    (applications (string-append out "/share/applications")))
9171               (substitute* (string-append applications "/org.gnome.Weather.desktop")
9172                 (("Exec=.*") "Exec=gnome-weather\n"))
9173               #t)))
9174         (add-after 'install 'wrap
9175           (lambda* (#:key inputs outputs #:allow-other-keys)
9176             (let ((out               (assoc-ref outputs "out"))
9177                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9178               ;; GNOME Weather needs the typelib files of GTK+, Pango etc at runtime.
9179               (wrap-program (string-append out "/bin/gnome-weather")
9180                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
9181               #t))))))
9182    (synopsis "Weather monitoring for GNOME desktop")
9183    (description "GNOME Weather is a small application that allows you to
9184 monitor the current weather conditions for your city, or anywhere in the
9185 world.")
9186    (home-page "https://wiki.gnome.org/Apps/Weather")
9187    (license license:gpl2+)))
9188
9189 (define-public gnome
9190   (package
9191     (name "gnome")
9192     (version (package-version gnome-shell))
9193     (source #f)
9194     (build-system trivial-build-system)
9195     (arguments '(#:builder (begin (mkdir %output) #t)))
9196     (propagated-inputs
9197      ;; TODO: Add or remove packages according to:
9198      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
9199      `(
9200      ;; GNOME-Core-OS-Services
9201        ("accountsservice" ,accountsservice)
9202        ("network-manager" ,network-manager)
9203        ("packagekit" ,packagekit)
9204        ("upower" ,upower)
9205      ;; GNOME-Core-Shell
9206        ("adwaita-icon-theme" ,adwaita-icon-theme)
9207        ("gdm" ,gdm)
9208        ("glib-networking" ,glib-networking)
9209        ("gnome-backgrounds" ,gnome-backgrounds)
9210        ("gnome-bluetooth" ,gnome-bluetooth)
9211        ("gnome-color-manager" ,gnome-color-manager)
9212        ("gnome-control-center" ,gnome-control-center)
9213        ("gnome-desktop" ,gnome-desktop)
9214        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
9215        ("gnome-initial-setup" ,gnome-initial-setup)
9216        ("gnome-keyring" ,gnome-keyring)
9217        ("gnome-menus" ,gnome-menus)
9218        ("gnome-session" ,gnome-session)
9219        ("gnome-settings-daemon" ,gnome-settings-daemon)
9220        ("gnome-shell-extensions" ,gnome-shell-extensions)
9221        ("gnome-shell" ,gnome-shell)
9222        ("gnome-themes-extra" ,gnome-themes-extra)
9223        ("gnome-user-docs" ,gnome-user-docs)
9224        ("gnome-user-share" ,gnome-user-share)
9225        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9226        ("gvfs" ,gvfs)
9227        ("mutter" ,mutter)
9228        ("orca" ,orca)
9229        ("rygel" ,rygel)
9230        ("sushi" ,sushi)
9231      ;; GNOME-Core-Utilities
9232        ("baobab" ,baobab)
9233        ("cheese" ,cheese)
9234        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9235        ;; only works on x86_64, so exclude it on other architectures.
9236        ,@(if (string-prefix? "x86_64" (%current-system))
9237              `(("eog" ,eog))
9238              '())
9239        ("epiphany" ,epiphany)
9240        ("evince" ,evince)
9241        ("file-roller" ,file-roller)
9242        ("gedit" ,gedit)
9243        ("gnome-boxes" ,gnome-boxes)
9244        ("gnome-calculator" ,gnome-calculator)
9245        ("gnome-calendar" ,gnome-calendar)
9246        ("gnome-characters" ,gnome-characters)
9247        ("gnome-clocks" ,gnome-clocks)
9248        ("gnome-contacts" ,gnome-contacts)
9249        ("gnome-disk-utility" ,gnome-disk-utility)
9250        ("gnome-font-viewer" ,gnome-font-viewer)
9251        ("gnome-maps" ,gnome-maps)
9252        ; TODO: ("gnome-music" ,gnome-music)
9253        ; TODO: ("gnome-photos" ,gnome-photos)
9254        ("gnome-screenshot" ,gnome-screenshot)
9255        ("gnome-system-monitor" ,gnome-system-monitor)
9256        ("gnome-terminal" ,gnome-terminal)
9257        ("gnome-weather" ,gnome-weather)
9258        ("nautilus" ,nautilus)
9259        ("simple-scan" ,simple-scan)
9260        ("totem" ,totem)
9261        ("yelp" ,yelp)
9262      ;; Others
9263        ("hicolor-icon-theme" ,hicolor-icon-theme)
9264        ("gnome-online-accounts" ,gnome-online-accounts)
9265
9266        ;; Packages not part of GNOME proper but that are needed for a good
9267        ;; experience.  See <https://bugs.gnu.org/39646>.
9268        ;; XXX: Find out exactly which ones are needed and why.
9269        ("font-cantarell"            ,font-cantarell)
9270        ("font-dejavu"               ,font-dejavu)
9271        ("at-spi2-core"              ,at-spi2-core)
9272        ("dbus"                      ,dbus)
9273        ("dconf"                     ,dconf)
9274        ("desktop-file-utils"        ,desktop-file-utils)
9275        ("gnome-default-applications" ,gnome-default-applications)
9276        ("gnome-themes-standard"     ,gnome-themes-standard)
9277        ("gst-plugins-base"          ,gst-plugins-base)
9278        ("gst-plugins-good"          ,gst-plugins-good)
9279        ("gucharmap"                 ,gucharmap)
9280        ("pinentry-gnome3"           ,pinentry-gnome3)
9281        ("pulseaudio"                ,pulseaudio)
9282        ("shared-mime-info"          ,shared-mime-info)
9283        ("system-config-printer"     ,system-config-printer)
9284        ("xdg-user-dirs"             ,xdg-user-dirs)
9285        ("yelp"                      ,yelp)
9286        ("zenity"                    ,zenity)))
9287     (synopsis "The GNU desktop environment")
9288     (home-page "https://www.gnome.org/")
9289     (description
9290      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9291 applications for browsing the web, editing text and images, creating
9292 documents and diagrams, playing media, scanning, and much more.")
9293     (license license:gpl2+)))
9294
9295 (define-public byzanz
9296   ;; The last stable release of Byzanz was in 2011, but there have been many
9297   ;; useful commits made to the Byzanz repository since then that it would be
9298   ;; silly to use such an old release.
9299   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9300     (package
9301       (name "byzanz")
9302       (version (string-append "0.2-1." (string-take commit 7)))
9303       (source (origin
9304                 (method git-fetch)
9305                 (uri (git-reference
9306                       (url "https://git.gnome.org/browse/byzanz")
9307                       (commit commit)))
9308                 (file-name (string-append name "-" version "-checkout"))
9309                 (sha256
9310                  (base32
9311                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9312       (build-system glib-or-gtk-build-system)
9313       (arguments
9314        '(#:phases
9315          (modify-phases %standard-phases
9316            (add-before 'bootstrap 'build-without-Werror
9317              (lambda _
9318                ;; The build system cleverly detects that we're not building from
9319                ;; a release tarball and turns on -Werror for GCC.
9320                ;; Unsurprisingly, there is a warning during compilation that
9321                ;; causes the build to fail unnecessarily, so we remove the flag.
9322                (substitute* '("configure.ac")
9323                  (("-Werror") ""))
9324                #t)))))
9325       (native-inputs
9326        `(("autoconf" ,autoconf)
9327          ("automake" ,automake)
9328          ("gnome-common" ,gnome-common)
9329          ("intltool" ,intltool)
9330          ("libtool" ,libtool)
9331          ("pkg-config" ,pkg-config)
9332          ("which" ,which)))
9333       (inputs
9334        `(("glib" ,glib)
9335          ("gstreamer" ,gstreamer)
9336          ("gst-plugins-base" ,gst-plugins-base)
9337          ("gtk+" ,gtk+)))
9338       (synopsis "Desktop recording program")
9339       (description "Byzanz is a simple desktop recording program with a
9340 command-line interface.  It can record part or all of an X display for a
9341 specified duration and save it as a GIF encoded animated image file.")
9342       (home-page "https://git.gnome.org/browse/byzanz")
9343       (license license:gpl2+))))
9344
9345 (define-public authenticator
9346   (package
9347     (name "authenticator")
9348     (version "3.32.2")
9349     (source
9350      (origin
9351        (method git-fetch)
9352        (uri (git-reference
9353              (url "https://gitlab.gnome.org/World/Authenticator")
9354              (commit version)))
9355        (file-name (git-file-name name version))
9356        (sha256
9357         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9358     (build-system meson-build-system)
9359     (arguments
9360      `(#:glib-or-gtk? #t
9361        #:phases
9362        (modify-phases %standard-phases
9363          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9364            (lambda* (#:key inputs outputs #:allow-other-keys)
9365              (let ((prog (string-append (assoc-ref outputs "out")
9366                                         "/bin/authenticator"))
9367                    (pylib (string-append (assoc-ref outputs "out")
9368                                          "/lib/python"
9369                                          ,(version-major+minor
9370                                            (package-version python))
9371                                          "/site-packages")))
9372                (wrap-program prog
9373                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
9374                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9375                #t))))))
9376     (native-inputs
9377      `(("desktop-file-utils" ,desktop-file-utils)
9378        ("gettext" ,gettext-minimal)
9379        ("glib:bin" ,glib "bin")
9380        ("gobject-introspection" ,gobject-introspection)
9381        ("gtk+:bin" ,gtk+ "bin")
9382        ("pkg-config" ,pkg-config)))
9383     (inputs
9384      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9385        ("gtk+" ,gtk+)
9386        ("libhandy" ,libhandy-0.0)
9387        ("libsecret" ,libsecret)
9388        ("python-beautifulsoup4" ,python-beautifulsoup4)
9389        ("python-pillow" ,python-pillow)
9390        ("python-pyfavicon" ,python-pyfavicon)
9391        ("python-pygobject" ,python-pygobject)
9392        ("python-pyotp" ,python-pyotp)
9393        ("python-pyzbar" ,python-pyzbar)
9394        ("yoyo-migrations" ,yoyo-migrations)
9395        ("zbar" ,zbar)))
9396     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9397     (synopsis "Two-factor authentication application built for GNOME")
9398     (description
9399      "Authenticator is a two-factor authentication (2FA) application built for
9400 the GNOME desktop environment.
9401
9402 Features:
9403
9404 @itemize
9405 @item QR code scanner
9406 @item Beautiful UI
9407 @item Huge database of more than 560 supported services
9408 @item Keep your PIN tokens secure by locking the application with a password
9409 @item Automatically fetch an image for services using their favicon
9410 @item The possibility to add new services
9411 @end itemize")
9412     (license license:gpl3+)))
9413
9414 (define-public gsound
9415   (package
9416     (name "gsound")
9417     (version "1.0.2")
9418     (source (origin
9419               (method url-fetch)
9420               (uri (string-append "mirror://gnome/sources/" name "/"
9421                                   (version-major+minor version) "/"
9422                                   name "-" version ".tar.xz"))
9423               (sha256
9424                (base32
9425                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
9426     (build-system glib-or-gtk-build-system)
9427     (native-inputs
9428      `(("pkg-config" ,pkg-config)
9429        ("gobject-introspection" ,gobject-introspection)
9430        ("vala" ,vala)))
9431     (inputs
9432      `(("glib" ,glib)
9433        ("libcanberra" ,libcanberra)))
9434     (home-page "https://wiki.gnome.org/Projects/GSound")
9435     (synopsis "GObject wrapper for libcanberra")
9436     (description
9437      "GSound is a small library for playing system sounds.  It's designed to be
9438 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9439 library.")
9440     (license license:lgpl2.1+)))
9441
9442 (define-public libzapojit
9443   (package
9444     (name "libzapojit")
9445     (version "0.0.3")
9446     (source (origin
9447               (method url-fetch)
9448               (uri (string-append "mirror://gnome/sources/" name "/"
9449                                   (version-major+minor version) "/"
9450                                   name "-" version ".tar.xz"))
9451               (sha256
9452                (base32
9453                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9454     (build-system gnu-build-system)
9455     (native-inputs
9456      `(("gobject-introspection" ,gobject-introspection)
9457        ("intltool" ,intltool)
9458        ("pkg-config" ,pkg-config)))
9459     (inputs
9460      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9461        ("json-glib" ,json-glib)
9462        ("rest" ,rest)))
9463     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9464     (synopsis "Library for accessing SkyDrive and Hotmail")
9465     (description
9466      "Libzapojit is a GLib-based library for accessing online service APIs of
9467 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9468     (license license:lgpl2.1+)))
9469
9470 (define-public gnome-clocks
9471   (package
9472     (name "gnome-clocks")
9473     (version "3.34.0")
9474     (source (origin
9475               (method url-fetch)
9476               (uri (string-append "mirror://gnome/sources/" name "/"
9477                                   (version-major+minor version) "/"
9478                                   name "-" version ".tar.xz"))
9479               (sha256
9480                (base32
9481                 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
9482     (build-system meson-build-system)
9483     (arguments
9484      '(#:glib-or-gtk? #t
9485        #:phases
9486        (modify-phases %standard-phases
9487          (add-after 'unpack 'skip-gtk-update-icon-cache
9488            ;; Don't create 'icon-theme.cache'.
9489            (lambda _
9490              (substitute* "build-aux/post-install.py"
9491                (("gtk-update-icon-cache") "true"))
9492              #t)))))
9493     (native-inputs
9494      `(("vala" ,vala)
9495        ("pkg-config" ,pkg-config)
9496        ("glib" ,glib "bin")             ; for glib-compile-resources
9497        ("desktop-file-utils" ,desktop-file-utils)
9498        ("gettext" ,gettext-minimal)
9499        ("itstool" ,itstool)))
9500     (inputs
9501      `(("glib" ,glib)
9502        ("gtk+" ,gtk+)
9503        ("gsound" ,gsound)
9504        ("geoclue" ,geoclue)
9505        ("geocode-glib" ,geocode-glib)
9506        ("libgweather" ,libgweather)
9507        ("gnome-desktop" ,gnome-desktop)))
9508     (home-page "https://wiki.gnome.org/Apps/Clocks")
9509     (synopsis "GNOME's clock application")
9510     (description
9511      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9512 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9513     (license license:gpl3+)))
9514
9515 (define-public gnome-calendar
9516   (package
9517     (name "gnome-calendar")
9518     (version "3.34.2")
9519     (source (origin
9520               (method url-fetch)
9521               (uri (string-append "mirror://gnome/sources/" name "/"
9522                                   (version-major+minor version) "/"
9523                                   name "-" version ".tar.xz"))
9524               (sha256
9525                (base32
9526                 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
9527     (build-system meson-build-system)
9528     (arguments
9529      '(#:glib-or-gtk? #t
9530        ;; gnome-calendar has to be installed before the tests can be run
9531        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9532        #:tests? #f
9533        #:phases
9534        (modify-phases %standard-phases
9535          (add-after 'unpack 'skip-gtk-update-icon-cache
9536            ;; Don't create 'icon-theme.cache'.
9537            (lambda _
9538              (substitute* "build-aux/meson/meson_post_install.py"
9539                (("gtk-update-icon-cache") "true"))
9540              #t)))))
9541     (native-inputs
9542      `(("gettext" ,gettext-minimal)
9543        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9544        ("pkg-config" ,pkg-config)))
9545     (inputs
9546      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9547        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9548        ("libdazzle" ,libdazzle)
9549        ("libedataserverui" ,evolution-data-server)
9550        ("libgweather" ,libgweather)
9551        ("geoclue" ,geoclue)))
9552     (propagated-inputs
9553      `(("evolution-data-server" ,evolution-data-server)))
9554     (home-page "https://wiki.gnome.org/Apps/Calendar")
9555     (synopsis "GNOME's calendar application")
9556     (description
9557      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9558 desktop.  It supports multiple calendars, month, week and year view.")
9559     (license license:gpl3+)))
9560
9561 (define-public gnome-todo
9562   (package
9563     (name "gnome-todo")
9564     (version "3.28.1")
9565     (source (origin
9566               (method url-fetch)
9567               (uri (string-append "mirror://gnome/sources/" name "/"
9568                                   (version-major+minor version) "/"
9569                                   name "-" version ".tar.xz"))
9570               (sha256
9571                (base32
9572                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))
9573               (patches
9574                (search-patches "gnome-todo-delete-esource-duplicate.patch"))))
9575     (build-system meson-build-system)
9576     (arguments
9577      '(#:glib-or-gtk? #t
9578        #:phases (modify-phases %standard-phases
9579                   (add-after
9580                       'install 'wrap-gnome-todo
9581                     (lambda* (#:key inputs outputs #:allow-other-keys)
9582                       (let ((out               (assoc-ref outputs "out"))
9583                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9584                             (python-path       (getenv "PYTHONPATH")))
9585                         (wrap-program (string-append out "/bin/gnome-todo")
9586                           ;; XXX: gi plugins are broken.
9587                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
9588                           ;; For plugins.
9589                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9590                           `("PYTHONPATH" ":" prefix (,python-path))))
9591                       #t)))))
9592     (native-inputs
9593      `(("gettext" ,gettext-minimal)
9594        ("gobject-introspection" ,gobject-introspection)
9595        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9596        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
9597        ("pkg-config" ,pkg-config)))
9598     (inputs
9599      `(("rest" ,rest)                   ; For Todoist plugin
9600        ("json-glib" ,json-glib)         ; For Todoist plugin
9601        ("libedataserverui" ,evolution-data-server)
9602        ("libical" ,libical)
9603        ("libpeas" ,libpeas)
9604        ("python-pygobject" ,python-pygobject)
9605        ("evolution-data-server" ,evolution-data-server)
9606        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9607        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9608     (home-page "https://wiki.gnome.org/Apps/Todo")
9609     (synopsis "GNOME's ToDo Application")
9610     (description
9611      "GNOME To Do is a simplistic personal task manager designed to perfectly
9612 fit the GNOME desktop.")
9613     (license license:gpl3+)))
9614
9615 (define-public gnome-dictionary
9616   (package
9617     (name "gnome-dictionary")
9618     (version "3.26.1")
9619     (source (origin
9620               (method url-fetch)
9621               (uri (string-append "mirror://gnome/sources/" name "/"
9622                                   (version-major+minor version) "/"
9623                                   name "-" version ".tar.xz"))
9624               (sha256
9625                (base32
9626                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
9627     (build-system meson-build-system)
9628     (arguments '(#:glib-or-gtk? #t
9629                  #:phases (modify-phases %standard-phases
9630                             (add-after 'unpack 'patch-install-script
9631                               (lambda _
9632                                 ;; This script attempts to compile glib schemas
9633                                 ;; and create an empty MIME database.  We do
9634                                 ;; that elsewhere, so prevent it from running.
9635                                 (substitute* "build-aux/post-install.sh"
9636                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
9637                                 #t)))))
9638     (native-inputs
9639      `(("glib:bin" ,glib "bin")
9640        ("gobject-introspection" ,gobject-introspection)
9641        ("intltool" ,intltool)
9642        ("itstool" ,itstool)
9643        ("pkg-config" ,pkg-config)
9644        ("xmllint" ,libxml2)))
9645     (inputs
9646      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9647        ("gtk+" ,gtk+)))
9648     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9649     (synopsis "Look up words in dictionary sources")
9650     (description
9651      "GNOME Dictionary can look for the definition or translation of a word in
9652 existing databases over the internet.")
9653     (license license:gpl3+)))
9654
9655 (define-public gnome-tweaks
9656   (package
9657     (name "gnome-tweaks")
9658     (version "3.34.1")
9659     (source (origin
9660               (method url-fetch)
9661               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9662                                   (version-major+minor version) "/"
9663                                   "gnome-tweaks-" version ".tar.xz"))
9664               (patches
9665                (list (search-patch "gnome-tweaks-search-paths.patch")))
9666               (sha256
9667                (base32
9668                 "19y62dj4n5i6v4zpjllxl51dch6ndy8xs45v5aqmmq9xyfrqk5yq"))))
9669     (build-system meson-build-system)
9670     (arguments
9671      `(#:glib-or-gtk? #t
9672        #:configure-flags '("-Dlocalstatedir=/tmp"
9673                            "-Dsysconfdir=/tmp")
9674        #:imported-modules ((guix build python-build-system)
9675                            ,@%meson-build-system-modules)
9676        #:phases
9677        (modify-phases %standard-phases
9678          (add-after 'unpack 'skip-gtk-update-icon-cache
9679            ;; Don't create 'icon-theme.cache'.
9680            (lambda _
9681              (substitute* "meson-postinstall.py"
9682                (("gtk-update-icon-cache") "true"))
9683              #t))
9684          (add-after 'install 'wrap
9685            (@@ (guix build python-build-system) wrap))
9686          (add-after 'wrap 'wrap-gi-typelib
9687            (lambda* (#:key inputs outputs #:allow-other-keys)
9688              (let ((out               (assoc-ref outputs "out"))
9689                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9690                (wrap-program (string-append out "/bin/gnome-tweaks")
9691                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
9692              #t)))))
9693     (native-inputs
9694      `(("intltool" ,intltool)
9695        ("pkg-config" ,pkg-config)))
9696     (inputs
9697      `(("gnome-desktop" ,gnome-desktop)
9698        ("gtk+" ,gtk+)
9699        ("gobject-introspection" ,gobject-introspection)
9700        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9701        ("libhandy" ,libhandy-0.0)
9702        ("libnotify" ,libnotify)
9703        ("libsoup" ,libsoup)
9704        ("nautilus" ,nautilus)
9705        ("python" ,python)
9706        ("python-pygobject" ,python-pygobject)))
9707     (synopsis "Customize advanced GNOME 3 options")
9708     (home-page "https://wiki.gnome.org/Apps/Tweaks")
9709     (description
9710      "GNOME Tweaks allows adjusting advanced configuration settings in
9711 GNOME 3.  This includes things like the fonts used in user interface elements,
9712 alternative user interface themes, changes in window management behavior,
9713 GNOME Shell appearance and extension, etc.")
9714     (license license:gpl3+)))
9715
9716 (define-public gnome-shell-extensions
9717   (package
9718     (name "gnome-shell-extensions")
9719     (version "3.34.2")
9720     (source (origin
9721               (method url-fetch)
9722               (uri (string-append "mirror://gnome/sources/" name "/"
9723                                   (version-major+minor version)  "/"
9724                                   name "-" version ".tar.xz"))
9725               (sha256
9726                (base32
9727                 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
9728     (build-system meson-build-system)
9729     (arguments
9730      '(#:configure-flags '("-Dextension_set=all")))
9731     (native-inputs
9732      `(("glib:bin" ,glib "bin")
9733        ("intltool" ,intltool)
9734        ("pkg-config" ,pkg-config)))
9735     (propagated-inputs
9736      `(("glib" ,glib)))
9737     (synopsis "Extensions for GNOME Shell")
9738     (description "GNOME Shell extensions modify and extend GNOME Shell
9739 functionality and behavior.")
9740     (home-page "https://extensions.gnome.org/")
9741     (license license:gpl3+)))
9742
9743 (define-public folks
9744   (package
9745     (name "folks")
9746     (version "0.13.1")
9747     (source (origin
9748               (method url-fetch)
9749               (uri (string-append
9750                     "mirror://gnome/sources/folks/"
9751                     (version-major+minor version) "/"
9752                     "folks-" version ".tar.xz"))
9753               (sha256
9754                (base32
9755                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
9756     (build-system meson-build-system)
9757     (arguments
9758      '(#:phases
9759        (modify-phases %standard-phases
9760          (add-after 'unpack 'skip-gtk-update-icon-cache
9761            ;; Don't create 'icon-theme.cache'.
9762            (lambda _
9763              (substitute* "meson_post_install.py"
9764                (("gtk-update-icon-cache") "true"))
9765              #t)))))
9766     (inputs
9767      `(("bdb" ,bdb)
9768        ("dbus-glib" ,dbus-glib)
9769        ("evolution-data-server" ,evolution-data-server)
9770        ("glib" ,glib)
9771        ("libgee" ,libgee)
9772        ("readline" ,readline)
9773        ("telepathy-glib" ,telepathy-glib)))
9774     (native-inputs
9775      `(("glib:bin" ,glib "bin")
9776        ("gobject-introspection" ,gobject-introspection)
9777        ("intltool" ,intltool)
9778        ("pkg-config" ,pkg-config)
9779        ("vala" ,vala)))
9780     (synopsis "Library to aggregate data about people")
9781     (description "Libfolks is a library that aggregates information about people
9782 from multiple sources (e.g., Telepathy connection managers for IM contacts,
9783 Evolution Data Server for local contacts, libsocialweb for web service contacts,
9784 etc.) to create metacontacts.  It's written in Vala, which generates C code when
9785 compiled.")
9786     (home-page "https://wiki.gnome.org/Projects/Folks")
9787     (license license:lgpl2.1+)))
9788
9789 (define-public gfbgraph
9790   (package
9791     (name "gfbgraph")
9792     (version "0.2.4")
9793     (source (origin
9794               (method url-fetch)
9795               (uri (string-append
9796                     "mirror://gnome/sources/gfbgraph/"
9797                     (version-major+minor version) "/"
9798                     "gfbgraph-" version ".tar.xz"))
9799               (sha256
9800                (base32
9801                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
9802     (build-system glib-or-gtk-build-system)
9803     (arguments
9804      `(#:tests? #f                      ; tests appear to require the network
9805        #:configure-flags '("--disable-static"
9806                            "--enable-gtk-doc"
9807                            "--enable-introspection")))
9808     (native-inputs
9809      `(("gobject-introspection" ,gobject-introspection)
9810        ("gtk-doc" ,gtk-doc)
9811        ("pkg-config" ,pkg-config)
9812
9813        ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
9814        ("autoconf" ,autoconf)
9815        ("automake" ,automake)
9816        ("libtool" ,libtool)
9817        ("which" ,which)))
9818     (inputs
9819      `(("json-glib" ,json-glib)
9820        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9821        ("rest" ,rest)))
9822     (synopsis "GLib/GObject wrapper for the Facebook API")
9823     (description "This library allows you to use the Facebook API from
9824 GLib/GObject code.")
9825     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
9826     (license license:lgpl2.1+)))
9827
9828 (define-public libgnomekbd
9829   (package
9830     (name "libgnomekbd")
9831     (version "3.26.1")
9832     (source (origin
9833               (method url-fetch)
9834               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
9835                                   (version-major+minor version)  "/"
9836                                   "libgnomekbd-" version ".tar.xz"))
9837               (sha256
9838                (base32
9839                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
9840     (build-system gnu-build-system)
9841     (native-inputs
9842      `(("pkg-config" ,pkg-config)
9843        ("glib" ,glib "bin")
9844        ("intltool" ,intltool)))
9845     (propagated-inputs
9846      ;; Referred to in .h files and .pc.
9847      `(("glib" ,glib)
9848        ("gtk+" ,gtk+)
9849        ("libxklavier" ,libxklavier)))
9850     (home-page "https://www.gnome.org")
9851     (synopsis "GNOME keyboard configuration library")
9852     (description
9853      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
9854 environment, which can notably display keyboard layouts.")
9855     (license license:lgpl2.0+)))
9856
9857 ;;; This package is no longer maintained:
9858 ;;; https://wiki.gnome.org/Attic/LibUnique
9859 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
9860 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
9861 (define-public libunique
9862   (package
9863     (name "libunique")
9864     (version "3.0.2")
9865     (source (origin
9866               (method url-fetch)
9867               (uri (string-append "mirror://gnome/sources/" name "/"
9868                                   (version-major+minor version)  "/"
9869                                   name "-" version ".tar.xz"))
9870               (sha256
9871                (base32
9872                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
9873     (build-system glib-or-gtk-build-system)
9874     (arguments
9875      `(#:configure-flags '("--disable-static"
9876                            "--disable-dbus" ; use gdbus
9877                            "--enable-introspection")))
9878     (native-inputs
9879      `(("pkg-config" ,pkg-config)
9880        ("gobject-introspection" ,gobject-introspection)
9881        ("glib:bin" ,glib "bin")
9882        ("gtk-doc" ,gtk-doc)))
9883     (propagated-inputs
9884      ;; Referred to in .h files and .pc.
9885      `(("gtk+" ,gtk+)))
9886     (home-page "https://wiki.gnome.org/Attic/LibUnique")
9887     (synopsis "Library for writing single instance applications")
9888     (description
9889      "Libunique is a library for writing single instance applications.  If you
9890 launch a single instance application twice, the second instance will either just
9891 quit or will send a message to the running instance.  Libunique makes it easy to
9892 write this kind of application, by providing a base class, taking care of all
9893 the IPC machinery needed to send messages to a running instance, and also
9894 handling the startup notification side.")
9895     (license license:lgpl2.1+)))
9896
9897 (define-public gnome-calculator
9898   (package
9899     (name "gnome-calculator")
9900     (version "3.34.1")
9901     (source
9902      (origin
9903        (method url-fetch)
9904        (uri (string-append "mirror://gnome/sources/" name "/"
9905                            (version-major+minor version) "/"
9906                            name "-" version ".tar.xz"))
9907        (sha256
9908         (base32
9909          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
9910     (build-system meson-build-system)
9911     (arguments '(#:glib-or-gtk? #t))
9912     (native-inputs
9913      `(("gettext" ,gettext-minimal)
9914        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9915        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9916        ("itstool" ,itstool)
9917        ("vala" ,vala)
9918        ("pkg-config" ,pkg-config)))
9919     (inputs
9920      `(("glib" ,glib)
9921        ("gtksourceview" ,gtksourceview)
9922        ("libgee" ,libgee)
9923        ("libsoup" ,libsoup)
9924        ("libxml2" ,libxml2)
9925        ("mpc" ,mpc)
9926        ("mpfr" ,mpfr)))
9927     (home-page "https://wiki.gnome.org/Apps/Calculator")
9928     (synopsis "Desktop calculator")
9929     (description
9930      "Calculator is an application that solves mathematical equations and
9931 is suitable as a default application in a Desktop environment.")
9932     (license license:gpl3)))
9933
9934 (define-public xpad
9935   (package
9936     (name "xpad")
9937     (version "5.1.0")
9938     (source
9939      (origin
9940        (method url-fetch)
9941        (uri (string-append "https://launchpad.net/xpad/trunk/"
9942                            version "/+download/"
9943                            name "-" version ".tar.bz2"))
9944        (sha256
9945         (base32
9946          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
9947     (build-system gnu-build-system)
9948     (native-inputs
9949      `(("autoconf" ,autoconf)
9950        ("automake" ,automake)
9951        ("gtk+:bin" ,gtk+ "bin")
9952        ("intltool" ,intltool)
9953        ("pkg-config" ,pkg-config)))
9954     (inputs
9955      `(("gtksourceview" ,gtksourceview-3)
9956        ("libsm" ,libsm)))
9957     (home-page "https://wiki.gnome.org/Apps/Xpad")
9958     (synopsis "Virtual sticky note")
9959     (description
9960      "Xpad is a sticky note that strives to be simple, fault tolerant,
9961 and customizable.  Xpad consists of independent pad windows, each is
9962 basically a text box in which notes can be written.")
9963     (license license:gpl3+)))
9964
9965 (define-public gucharmap
9966   (let ((unicode-files
9967          '(("Blocks.txt"
9968             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
9969            ("DerivedAge.txt"
9970             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
9971            ("NamesList.txt"
9972             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
9973            ("Scripts.txt"
9974             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
9975            ("UnicodeData.txt"
9976             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
9977            ("Unihan.zip"
9978             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
9979     (package
9980       (name "gucharmap")
9981       (version "12.0.1")
9982       (source
9983        (origin
9984          (method url-fetch)
9985          (uri (string-append "mirror://gnome/sources/" name "/"
9986                              (version-major+minor version) "/"
9987                              name "-" version ".tar.xz"))
9988          (sha256
9989           (base32
9990            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
9991       (build-system glib-or-gtk-build-system)
9992       (arguments
9993        `(#:modules ((ice-9 match)
9994                     (guix build glib-or-gtk-build-system)
9995                     (guix build utils))
9996          #:configure-flags
9997          (list "--with-unicode-data=../unicode-data")
9998          #:phases
9999          (modify-phases %standard-phases
10000            (add-after 'unpack 'prepare-unicode-data
10001              (lambda* (#:key inputs #:allow-other-keys)
10002                (mkdir-p "../unicode-data")
10003                (with-directory-excursion "../unicode-data"
10004                  (for-each (match-lambda
10005                              ((file _)
10006                               (install-file (assoc-ref inputs file) ".")))
10007                            ',unicode-files))
10008                #t)))))
10009       (native-inputs
10010        `(("desktop-file-utils" ,desktop-file-utils)
10011          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10012          ("gobject-introspection" ,gobject-introspection)
10013          ("intltool" ,intltool)
10014          ("itstool" ,itstool)
10015          ("pkg-config" ,pkg-config)
10016          ,@(map (match-lambda
10017                   ((file hash)
10018                    `(,file
10019                      ,(origin
10020                         (method url-fetch)
10021                         (uri (string-append
10022                               "http://www.unicode.org/Public/12.0.0/ucd/"
10023                               file))
10024                         (sha256 (base32 hash))))))
10025                 unicode-files)
10026          ("unzip" ,unzip)))
10027       (inputs
10028        `(("gtk+" ,gtk+)
10029          ("xmllint" ,libxml2)))
10030       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10031       (synopsis "Unicode character picker and font browser")
10032       (description
10033        "This program allows you to browse through all the available Unicode
10034 characters and categories for the installed fonts, and to examine their
10035 detailed properties.  It is an easy way to find the character you might
10036 only know by its Unicode name or code point.")
10037       (license license:gpl3+))))
10038
10039 (define-public bluefish
10040   (package
10041     (name "bluefish")
10042     (version "2.2.12")
10043     (source
10044      (origin
10045        (method url-fetch)
10046        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10047                            "bluefish-" version ".tar.gz"))
10048        (sha256
10049         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10050     (build-system gnu-build-system)
10051     (native-inputs
10052      `(("desktop-file-utils" ,desktop-file-utils)
10053        ("intltool" ,intltool)
10054        ("pkg-config" ,pkg-config)))
10055     (inputs
10056      `(("enchant" ,enchant)
10057        ("gtk+" ,gtk+)
10058        ("python" ,python-wrapper)
10059        ("xmllint" ,libxml2)
10060        ("gucharmap" ,gucharmap)))
10061     (home-page "http://bluefish.openoffice.nl")
10062     (synopsis "Web development studio")
10063     (description
10064      "Bluefish is an editor aimed at programmers and web developers,
10065 with many options to write web sites, scripts and other code.
10066 Bluefish supports many programming and markup languages.")
10067     (license license:gpl3+)))
10068
10069 (define-public gnome-system-monitor
10070   (package
10071     (name "gnome-system-monitor")
10072     (version "3.32.1")
10073     (source
10074      (origin
10075        (method url-fetch)
10076        (uri (string-append "mirror://gnome/sources/" name "/"
10077                            (version-major+minor version) "/"
10078                            name "-" version ".tar.xz"))
10079        (sha256
10080         (base32
10081          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
10082     (build-system meson-build-system)
10083     (arguments
10084      '(#:glib-or-gtk? #t
10085        #:configure-flags '("-Dsystemd=false")))
10086     (native-inputs
10087      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
10088        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
10089        ("intltool" ,intltool)
10090        ("itstool" ,itstool)
10091        ("libgtop" ,libgtop)
10092        ("polkit" ,polkit)
10093        ("pkg-config" ,pkg-config)))
10094     (inputs
10095      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
10096        ("gtk+" ,gtk+)
10097        ("gtkmm" ,gtkmm)
10098        ("librsvg" ,librsvg)
10099        ("libxml2" ,libxml2)
10100        ("libwnck" ,libwnck)))
10101     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10102     (synopsis "Process viewer and system resource monitor for GNOME")
10103     (description
10104      "GNOME System Monitor is a GNOME process viewer and system monitor with
10105 an attractive, easy-to-use interface.  It has features, such as a tree view
10106 for process dependencies, icons for processes, the ability to hide processes,
10107 graphical time histories of CPU/memory/swap usage and the ability to
10108 kill/reinice processes.")
10109     (license license:gpl2+)))
10110
10111 (define-public python-pyatspi
10112   (package
10113     (name "python-pyatspi")
10114     (version "2.34.0")
10115     (source (origin
10116               (method url-fetch)
10117               (uri (string-append
10118                     "mirror://gnome/sources/pyatspi/"
10119                     (version-major+minor version)
10120                     "/pyatspi-" version ".tar.xz"))
10121               (sha256
10122                (base32
10123                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10124     (build-system gnu-build-system)
10125     (arguments
10126      `(#:phases
10127        (modify-phases %standard-phases
10128          (add-before 'build 'fix-atk-load
10129            (lambda _
10130              (substitute* "pyatspi/__init__.py"
10131                (("from gi.repository import Atspi")
10132                 "gi.require_version('Gtk', '3.0')
10133 from gi.repository import Gtk
10134 from gi.repository import Atspi"))
10135              #t)))))
10136     (native-inputs
10137      `(("pkg-config" ,pkg-config)))
10138     (inputs
10139      `(("python" ,python)))
10140     (propagated-inputs
10141      `(("python-pygobject" ,python-pygobject)))
10142     (synopsis "Python client bindings for D-Bus AT-SPI")
10143     (home-page "https://wiki.linuxfoundation.org/accessibility\
10144 /atk/at-spi/at-spi_on_d-bus")
10145     (description
10146      "This package includes a python client library for the AT-SPI D-Bus
10147 accessibility infrastructure.")
10148     (license license:lgpl2.0)
10149     (properties '((upstream-name . "pyatspi")))))
10150
10151 (define-public python2-pyatspi
10152   (package/inherit python-pyatspi
10153     (name "python2-pyatspi")
10154     (inputs
10155      `(("python" ,python-2)))
10156     (propagated-inputs
10157      `(("python-pygobject" ,python2-pygobject)))))
10158
10159 (define-public orca
10160   (package
10161     (name "orca")
10162     (version "3.34.1")
10163     (source (origin
10164               (method url-fetch)
10165               (uri (string-append
10166                     "mirror://gnome/sources/" name "/"
10167                     (version-major+minor version) "/"
10168                     name "-" version ".tar.xz"))
10169               (sha256
10170                (base32
10171                 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
10172     (build-system glib-or-gtk-build-system)
10173     (arguments
10174      '(#:phases
10175        (modify-phases %standard-phases
10176          (add-before 'configure 'qualify-xkbcomp
10177            (lambda* (#:key inputs #:allow-other-keys)
10178              (let ((xkbcomp (string-append
10179                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10180                (substitute* "src/orca/orca.py"
10181                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10182              #t))
10183          (add-after 'install 'wrap-orca
10184            (lambda* (#:key outputs #:allow-other-keys)
10185              (let* ((out  (assoc-ref outputs "out"))
10186                     (prog (string-append out "/bin/orca")))
10187                (wrap-program prog
10188                  `("GI_TYPELIB_PATH" ":" prefix
10189                    (,(getenv "GI_TYPELIB_PATH")))
10190                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10191                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10192                  `("PYTHONPATH" ":" prefix
10193                    (,(getenv "PYTHONPATH")))))
10194              #t)))))
10195     (native-inputs
10196      `(("intltool" ,intltool)
10197        ("itstool" ,itstool)
10198        ("pkg-config" ,pkg-config)
10199        ("xmllint" ,libxml2)))
10200     (inputs
10201      `(("at-spi2-atk" ,at-spi2-atk)
10202        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10203        ("gstreamer" ,gstreamer)
10204        ("gst-plugins-base" ,gst-plugins-base)
10205        ("gst-plugins-good" ,gst-plugins-good)
10206        ("gtk+" ,gtk+)
10207        ("python" ,python)
10208        ("python-pygobject" ,python-pygobject)
10209        ("python-pyatspi" ,python-pyatspi)
10210        ("python-speechd" ,speech-dispatcher)
10211        ("xkbcomp" ,xkbcomp)))
10212     (synopsis
10213      "Screen reader for individuals who are blind or visually impaired")
10214     (home-page "https://wiki.gnome.org/Projects/Orca")
10215     (description
10216      "Orca is a screen reader that provides access to the graphical desktop
10217 via speech and refreshable braille.  Orca works with applications and toolkits
10218 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10219     (license license:lgpl2.1+)))
10220
10221 (define-public gspell
10222   (package
10223     (name "gspell")
10224     (version "1.8.2")
10225     (source (origin
10226               (method url-fetch)
10227               (uri (string-append "mirror://gnome/sources/" name "/"
10228                                   (version-major+minor version) "/"
10229                                   name "-" version ".tar.xz"))
10230               (sha256
10231                (base32
10232                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10233               (patches (search-patches "gspell-dash-test.patch"))))
10234     (build-system glib-or-gtk-build-system)
10235     (arguments
10236      '(#:configure-flags (list "--enable-vala")
10237        #:phases
10238        (modify-phases %standard-phases
10239          (add-before 'check 'pre-check
10240            (lambda* (#:key inputs #:allow-other-keys)
10241              ;; Tests require a running X server.
10242              (system "Xvfb :1 &")
10243              (setenv "DISPLAY" ":1")
10244
10245              ;; For the missing /etc/machine-id.
10246              (setenv "DBUS_FATAL_WARNINGS" "0")
10247
10248              ;; Allow Enchant and its Aspell backend to find the en_US
10249              ;; dictionary.
10250              (setenv "ASPELL_DICT_DIR"
10251                      (string-append (assoc-ref inputs "aspell-dict-en")
10252                                     "/lib/aspell"))
10253              #t)))))
10254     (inputs
10255      `(("gtk+" ,gtk+)
10256        ("glib" ,glib)
10257        ("iso-codes" ,iso-codes)))
10258     (native-inputs
10259      `(("glib" ,glib "bin")
10260        ("gobject-introspection" ,gobject-introspection)
10261        ("pkg-config" ,pkg-config)
10262        ("vala" ,vala)                             ;for VAPI, needed by Geary
10263        ("xmllint" ,libxml2)
10264
10265        ;; For tests.
10266        ("aspell-dict-en" ,aspell-dict-en)
10267        ("xorg-server" ,xorg-server-for-tests)))
10268     (propagated-inputs
10269      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
10270     (home-page "https://wiki.gnome.org/Projects/gspell")
10271     (synopsis "GNOME's alternative spell checker")
10272     (description
10273      "gspell provides a flexible API to add spell-checking to a GTK+
10274 application.  It provides a GObject API, spell-checking to text entries and
10275 text views, and buttons to choose the language.")
10276     (license license:gpl2+)))
10277
10278 (define-public gnome-planner
10279   (package
10280     (name "gnome-planner")
10281     (version "0.14.6")
10282     (source (origin
10283               (method url-fetch)
10284               (uri (string-append "mirror://gnome/sources/planner/"
10285                                   (version-major+minor version) "/planner-"
10286                                   version ".tar.xz"))
10287               (sha256
10288                (base32
10289                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10290     (build-system glib-or-gtk-build-system)
10291     (arguments
10292      ;; Disable the Python bindings because the Planner program functions
10293      ;; without them, and (as of 2017-06-13) we have not packaged all of
10294      ;; packages that are necessary for building the Python bindings.
10295      `(#:configure-flags
10296        (list "--disable-python"
10297              ,@(if (string=? "aarch64-linux" (%current-system))
10298                    '("--build=aarch64-unknown-linux-gnu")
10299                    '()))))
10300     (inputs
10301      `(("libgnomecanvas" ,libgnomecanvas)
10302        ("libgnomeui" ,libgnomeui)
10303        ("libglade" ,libglade)
10304        ("gnome-vfs" ,gnome-vfs)
10305        ("gconf" ,gconf)
10306        ("libxml2" ,libxml2)
10307        ("libxslt" ,libxslt)
10308        ("gtk+" ,gtk+)
10309        ("glib" ,glib)))
10310     (native-inputs
10311      `(("intltool" ,intltool)
10312        ("scrollkeeper" ,scrollkeeper)
10313        ("pkg-config" ,pkg-config)))
10314     (home-page "https://wiki.gnome.org/Apps/Planner")
10315     (synopsis "Project management software for the GNOME desktop")
10316     (description
10317      "GNOME Planner is a project management tool based on the Work Breakdown
10318 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10319 the resources, tasks, and constraints that you define, Planner generates
10320 various views into a project.  For example, Planner can show a Gantt chart of
10321 the project.  It can show a detailed summary of tasks including their
10322 duration, cost, and current progress.  It can also show a report of resource
10323 utilization that highlights under-utilized and over-utilized resources.  These
10324 views can be printed as PDF or PostScript files, or exported to HTML.")
10325     (license license:gpl2+)))
10326
10327 (define-public lollypop
10328   (package
10329     (name "lollypop")
10330     (version "1.4.6")
10331     (source
10332      (origin
10333        (method url-fetch)
10334        (uri (string-append "https://adishatz.org/lollypop/"
10335                            "lollypop-" version ".tar.xz"))
10336        (sha256
10337         (base32 "1hlahr50gsagx1ifcdk4yn43xps6w0vqn0gnd6xckfc7qmg1pgq7"))))
10338     (build-system meson-build-system)
10339     (arguments
10340      `(#:imported-modules
10341        (,@%meson-build-system-modules
10342         (guix build python-build-system))
10343        #:modules
10344        ((guix build meson-build-system)
10345         ((guix build python-build-system) #:prefix python:)
10346         (guix build utils))
10347        #:glib-or-gtk? #t
10348        #:tests? #f                      ; no test suite
10349        #:phases
10350        (modify-phases %standard-phases
10351          (add-after 'install 'wrap-program
10352            (lambda* (#:key outputs #:allow-other-keys)
10353              (let ((out               (assoc-ref outputs "out"))
10354                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10355                (wrap-program (string-append out "/bin/lollypop")
10356                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10357              #t))
10358          (add-after 'install 'wrap-python
10359            (assoc-ref python:%standard-phases 'wrap)))))
10360     (native-inputs
10361      `(("intltool" ,intltool)
10362        ("itstool" ,itstool)
10363        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10364        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10365        ("pkg-config" ,pkg-config)))
10366     (inputs
10367      `(("glib-networking" ,glib-networking)
10368        ("gobject-introspection" ,gobject-introspection)
10369        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10370        ("gst-plugins-base" ,gst-plugins-base)
10371        ("libnotify" ,libnotify)
10372        ("libsecret" ,libsecret)
10373        ("libhandy" ,libhandy)
10374        ("libsoup" ,libsoup)
10375        ("python" ,python)
10376        ("python-beautifulsoup4" ,python-beautifulsoup4)
10377        ("python-gst" ,python-gst)
10378        ("python-pil" ,python-pillow)
10379        ("python-pycairo" ,python-pycairo)
10380        ("python-pygobject" ,python-pygobject)
10381        ("python-pylast" ,python-pylast)
10382        ("totem-pl-parser" ,totem-pl-parser)
10383        ("webkitgtk" ,webkitgtk)))
10384     (propagated-inputs
10385      `(;; gst-plugins-base is required to start Lollypop,
10386        ;; the others are required to play streaming.
10387        ("gst-plugins-good" ,gst-plugins-good)
10388        ("gst-plugins-ugly" ,gst-plugins-ugly)))
10389     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10390     (synopsis "GNOME music playing application")
10391     (description
10392      "Lollypop is a music player designed to play well with GNOME desktop.
10393 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10394 from artists and tracks from the web.  It also fetches cover artworks
10395 automatically and it can stream songs from online music services and charts.")
10396     (license license:gpl3+)))
10397
10398 (define-public gnome-video-effects
10399   (package
10400     (name "gnome-video-effects")
10401     (version "0.5.0")
10402     (source (origin
10403               (method url-fetch)
10404               (uri (string-append "mirror://gnome/sources/" name "/"
10405                                   (version-major+minor version) "/" name "-"
10406                                   version ".tar.xz"))
10407               (sha256
10408                (base32
10409                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10410     (build-system meson-build-system)
10411     (native-inputs
10412      `(("gettext" ,gettext-minimal)
10413        ("pkg-config" ,pkg-config)))
10414     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10415     (synopsis "Video effects for Cheese and other GNOME applications")
10416     (description
10417      "A collection of GStreamer video filters and effects to be used in
10418 photo-booth-like software, such as Cheese.")
10419     (license license:gpl2+)))
10420
10421 (define-public cheese
10422   (package
10423     (name "cheese")
10424     (version "3.38.0")
10425     (source (origin
10426               (method url-fetch)
10427               (uri (string-append "mirror://gnome/sources/" name "/"
10428                                   (version-major+minor version) "/" name "-"
10429                                   version ".tar.xz"))
10430               (sha256
10431                (base32
10432                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))))
10433     (arguments
10434      `(#:glib-or-gtk? #t
10435        ;; Tests require GDK.
10436        #:tests? #f
10437        #:phases
10438        (modify-phases %standard-phases
10439          (add-after 'unpack 'skip-gtk-update-icon-cache
10440            (lambda _
10441              ;; Don't create 'icon-theme.cache'
10442              (substitute* "meson_post_install.py"
10443                (("gtk-update-icon-cache") (which "true")))
10444              #t))
10445          (add-after 'unpack 'patch-docbook-xml
10446            (lambda* (#:key inputs #:allow-other-keys)
10447              ;; Avoid a network connection attempt during the build.
10448              (substitute* '("docs/reference/cheese.xml"
10449                             "docs/reference/cheese-docs.xml")
10450                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10451                 (string-append (assoc-ref inputs "docbook-xml")
10452                                "/xml/dtd/docbook/docbookx.dtd")))
10453              #t))
10454          (add-after 'install 'wrap-cheese
10455            (lambda* (#:key inputs outputs #:allow-other-keys)
10456              (let ((out             (assoc-ref outputs "out"))
10457                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10458                (wrap-program (string-append out "/bin/cheese")
10459                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10460              #t)))))
10461     (build-system meson-build-system)
10462     (native-inputs
10463      `(("docbook-xsl" ,docbook-xsl)
10464        ("docbook-xml" ,docbook-xml-4.3)
10465        ("gettext" ,gettext-minimal)
10466        ("glib:bin" ,glib "bin")
10467        ("gtk-doc" ,gtk-doc)
10468        ("itstool" ,itstool)
10469        ("libxml2" ,libxml2)
10470        ("libxslt" ,libxslt)
10471        ("pkg-config" ,pkg-config)
10472        ("vala" ,vala)))
10473     (propagated-inputs
10474      `(("gnome-video-effects" ,gnome-video-effects)
10475        ("clutter" ,clutter)
10476        ("clutter-gst" ,clutter-gst)
10477        ("clutter-gtk" ,clutter-gtk)
10478        ("libcanberra" ,libcanberra)
10479        ("gdk-pixbuf" ,gdk-pixbuf)
10480        ("glib" ,glib)
10481        ("gstreamer" ,gstreamer)))
10482     (inputs
10483      `(("gnome-desktop" ,gnome-desktop)
10484        ("gobject-introspection" ,gobject-introspection)
10485        ("gst-plugins-base" ,gst-plugins-base)
10486        ("gst-plugins-good" ,gst-plugins-good)
10487        ("gst-plugins-bad" ,gst-plugins-bad)
10488        ("gtk+" ,gtk+)
10489        ("libx11" ,libx11)
10490        ("libxtst" ,libxtst)))
10491     (home-page "https://wiki.gnome.org/Apps/Cheese")
10492     (synopsis "Webcam photo booth software for GNOME")
10493     (description
10494      "Cheese uses your webcam to take photos and videos.  Cheese can also
10495 apply fancy special effects and lets you share the fun with others.")
10496     (license license:gpl2+)))
10497
10498 (define-public passwordsafe
10499   (package
10500     (name "passwordsafe")
10501     (version "3.99.2")
10502     (source
10503      (origin
10504        (method git-fetch)
10505        (uri (git-reference
10506              (url "https://gitlab.gnome.org/World/PasswordSafe")
10507              (commit version)))
10508        (file-name (git-file-name name version))
10509        (sha256
10510         (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf"))))
10511     (build-system meson-build-system)
10512     (arguments
10513      `(#:glib-or-gtk? #t
10514        #:phases
10515        (modify-phases %standard-phases
10516          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10517            (lambda* (#:key outputs #:allow-other-keys)
10518              (let ((prog (string-append (assoc-ref outputs "out")
10519                                         "/bin/gnome-passwordsafe"))
10520                    (pylib (string-append (assoc-ref outputs "out")
10521                                          "/lib/python"
10522                                          ,(version-major+minor
10523                                            (package-version python))
10524                                          "/site-packages")))
10525                (wrap-program prog
10526                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10527                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10528                #t))))))
10529     (native-inputs
10530      `(("desktop-file-utils" ,desktop-file-utils)
10531        ("gettext" ,gettext-minimal)
10532        ("glib:bin" ,glib "bin")
10533        ("gobject-introspection" ,gobject-introspection)
10534        ("gtk+:bin" ,gtk+ "bin")
10535        ("pkg-config" ,pkg-config)))
10536     (inputs
10537      `(("glib" ,glib)
10538        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10539        ("gtk+" ,gtk+)
10540        ("libhandy" ,libhandy-0.0)
10541        ("libpwquality" ,libpwquality)
10542        ("python-pygobject" ,python-pygobject)
10543        ("python-pykeepass" ,python-pykeepass)))
10544     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10545     (synopsis "Password manager for the GNOME desktop")
10546     (description
10547      "Password Safe is a password manager which makes use of the KeePass v4
10548 format.  It integrates perfectly with the GNOME desktop and provides an easy
10549 and uncluttered interface for the management of password databases.")
10550     (license license:gpl3+)))
10551
10552 (define-public sound-juicer
10553   (package
10554     (name "sound-juicer")
10555     (version "3.24.0")
10556     (source
10557      (origin
10558        (method url-fetch)
10559        (uri (string-append "mirror://gnome/sources/" name "/"
10560                            (version-major+minor version) "/"
10561                            name "-" version ".tar.xz"))
10562        (sha256
10563         (base32
10564          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10565     (build-system glib-or-gtk-build-system)
10566     (native-inputs
10567      `(("desktop-file-utils" ,desktop-file-utils)
10568        ("intltool" ,intltool)
10569        ("itstool" ,itstool)
10570        ("pkg-config" ,pkg-config)
10571        ("xmllint" ,libxml2)))
10572     (inputs
10573      `(("gtk+" ,gtk+)
10574        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10575        ("gstreamer" ,gstreamer)
10576        ("gst-plugins-base" ,gst-plugins-base)
10577        ("gst-plugins-good" ,gst-plugins-good)
10578        ("iso-codes" ,iso-codes)
10579        ("libbrasero-media3" ,brasero)
10580        ("libcanberra" ,libcanberra)
10581        ("libdiscid" ,libdiscid)
10582        ("libmusicbrainz" ,libmusicbrainz)
10583        ("neon" ,neon)))
10584     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10585     (synopsis "Audio music cd ripper")
10586     (description "Sound Juicer extracts audio from compact discs and convert it
10587 into audio files that a personal computer or digital audio player can play.
10588 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10589 mp3, Ogg Vorbis and FLAC")
10590     (license license:gpl2+)))
10591
10592 (define-public soundconverter
10593   (package
10594     (name "soundconverter")
10595     (version "3.0.2")
10596     (source
10597      (origin
10598        (method url-fetch)
10599        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10600                            version "/+download/"
10601                            "soundconverter-" version ".tar.xz"))
10602
10603        (sha256
10604         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10605     (build-system glib-or-gtk-build-system)
10606     (arguments
10607      `(#:imported-modules ((guix build python-build-system)
10608                            (guix build glib-or-gtk-build-system)
10609                            ,@%gnu-build-system-modules)
10610
10611        #:modules ((guix build glib-or-gtk-build-system)
10612                   (guix build utils)
10613                   ((guix build gnu-build-system) #:prefix gnu:)
10614                   ((guix build python-build-system) #:prefix python:))
10615
10616        #:phases
10617        (modify-phases %standard-phases
10618          (add-after 'install 'wrap-soundconverter-for-python
10619            (assoc-ref python:%standard-phases 'wrap))
10620          (add-after 'install 'wrap-soundconverter
10621            (lambda* (#:key inputs outputs #:allow-other-keys)
10622              (let ((out               (assoc-ref outputs "out"))
10623                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10624                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10625                (wrap-program (string-append out "/bin/soundconverter")
10626                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10627                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10628              #t)))))
10629     (native-inputs
10630      `(("intltool" ,intltool)
10631        ("pkg-config" ,pkg-config)
10632        ("glib:bin" ,glib "bin")))
10633     (inputs
10634      `(("gtk+" ,gtk+)
10635        ("python" ,python)
10636        ("python-pygobject" ,python-pygobject)
10637        ("gstreamer" ,gstreamer)
10638        ("gst-plugins-base" ,gst-plugins-base)))
10639     (home-page "https://soundconverter.org/")
10640     (synopsis "Convert between audio formats with a graphical interface")
10641     (description
10642      "SoundConverter supports converting between many audio formats including
10643 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10644 configurable file renaming. ")
10645     (license license:gpl3)))
10646
10647 (define-public workrave
10648   (package
10649     (name "workrave")
10650     (version "1.10.42")
10651     (source
10652      (origin
10653        (method git-fetch)
10654        (uri (git-reference
10655              (url "https://github.com/rcaelers/workrave")
10656              (commit (string-append "v" (string-map
10657                                          (match-lambda (#\. #\_) (chr chr))
10658                                          version)))))
10659        (file-name (git-file-name name version))
10660        (sha256
10661         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
10662     (build-system glib-or-gtk-build-system)
10663     (arguments
10664      ;; The only tests are maintainer tests (in po/), which fail.
10665      `(#:tests? #f))
10666     (inputs `(("glib" ,glib)
10667               ("gtk+" ,gtk+)
10668               ("gdk-pixbuf" ,gdk-pixbuf)
10669               ("gtkmm" ,gtkmm)
10670               ("glibmm" ,glibmm)
10671               ("libx11" ,libx11)
10672               ("libxtst" ,libxtst)
10673               ("dconf" ,dconf)
10674               ("libice" ,libice)
10675               ("libsm" ,libsm)
10676               ("libxscrnsaver" ,libxscrnsaver)))
10677     (native-inputs `(("boost" ,boost)
10678                      ("pkg-config" ,pkg-config)
10679                      ("gettext" ,gettext-minimal)
10680                      ("autoconf" ,autoconf)
10681                      ("autoconf-archive" , autoconf-archive)
10682                      ("automake" ,automake)
10683                      ("libtool" ,libtool)
10684                      ("intltool" ,intltool)
10685                      ("gobject-introspection" ,gobject-introspection)
10686                      ("python3" ,python-3)
10687                      ("python-jinja2" ,python-jinja2)))
10688     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10689     (description
10690      "Workrave is a program that assists in the recovery and prevention of
10691 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10692 micro-pauses and rest breaks, and restricts you to your daily limit.")
10693     (home-page "http://www.workrave.org")
10694     (license license:gpl3+)))
10695
10696 (define-public ghex
10697   (package
10698     (name "ghex")
10699     (version "3.18.4")
10700     (source (origin
10701               (method url-fetch)
10702               (uri (string-append "mirror://gnome/sources/ghex/"
10703                                   (version-major+minor version) "/"
10704                                   "ghex-" version ".tar.xz"))
10705               (sha256
10706                (base32
10707                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10708     (build-system meson-build-system)
10709     (arguments
10710      '(#:glib-or-gtk? #t
10711        #:phases
10712        (modify-phases %standard-phases
10713          (add-after 'unpack 'skip-gtk-update-icon-cache
10714            ;; Don't create 'icon-theme.cache'.
10715            (lambda _
10716              (substitute* "meson_post_install.py"
10717                (("gtk-update-icon-cache") (which "true")))
10718              #t)))))
10719     (native-inputs
10720      `(("pkg-config" ,pkg-config)
10721        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
10722        ("gnome-common" ,gnome-common)
10723        ("which" ,which)
10724        ("intltool" ,intltool)
10725        ("yelp-tools" ,yelp-tools)
10726        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
10727     (inputs
10728      `(("atk" ,atk)
10729        ("gtk" ,gtk+)))
10730     (synopsis "GNOME hexadecimal editor")
10731     (description "The GHex program can view and edit files in two ways:
10732 hexadecimal or ASCII.  It is useful for editing binary files in general.")
10733     (home-page "https://wiki.gnome.org/Apps/Ghex")
10734     (license license:gpl2)))
10735
10736 (define-public libdazzle
10737   (package
10738     (name "libdazzle")
10739     (version "3.37.1")
10740     (source (origin
10741               (method url-fetch)
10742               (uri (string-append "mirror://gnome/sources/libdazzle/"
10743                                   (version-major+minor version) "/"
10744                                   "libdazzle-" version ".tar.xz"))
10745               (sha256
10746                (base32
10747                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
10748     (build-system meson-build-system)
10749     (arguments
10750      `(#:phases
10751        (modify-phases %standard-phases
10752          (add-before 'check 'pre-check
10753            (lambda _
10754              ;; Tests require a running X server.
10755              (system "Xvfb :1 &")
10756              (setenv "DISPLAY" ":1")
10757              #t)))))
10758     (native-inputs
10759      `(("glib" ,glib "bin")             ; glib-compile-resources
10760        ("pkg-config" ,pkg-config)
10761        ;; For tests.
10762        ("xorg-server" ,xorg-server-for-tests)))
10763     (inputs
10764      `(("glib" ,glib)
10765        ("gobject-introspection" ,gobject-introspection)
10766        ("gtk+" ,gtk+)
10767        ("vala" ,vala)))
10768     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
10769     (synopsis "Companion library to GObject and Gtk+")
10770     (description "The libdazzle library is a companion library to GObject and
10771 Gtk+.  It provides various features that the authors wish were in the
10772 underlying library but cannot for various reasons.  In most cases, they are
10773 wildly out of scope for those libraries.  In other cases, they are not quite
10774 generic enough to work for everyone.")
10775     (license license:gpl3+)))
10776
10777 (define-public evolution
10778   (package
10779     (name "evolution")
10780     (version "3.34.2")
10781     (source (origin
10782               (method url-fetch)
10783               (uri (string-append "mirror://gnome/sources/evolution/"
10784                                   (version-major+minor version) "/"
10785                                   "evolution-" version ".tar.xz"))
10786               (sha256
10787                (base32
10788                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))
10789               (patches (search-patches "evolution-CVE-2020-11879.patch"))))
10790     (build-system cmake-build-system)
10791     (arguments
10792      `(#:imported-modules (,@%cmake-build-system-modules
10793                            (guix build glib-or-gtk-build-system))
10794        #:modules ((guix build cmake-build-system)
10795                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10796                   (guix build utils))
10797        #:configure-flags
10798        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
10799              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
10800                                           ; in four years and cannot be built.
10801        #:phases
10802        (modify-phases %standard-phases
10803          ;; The build system attempts to install user interface modules to the
10804          ;; output directory of the "evolution-data-server" package.  This
10805          ;; change redirects that change.
10806          (add-after 'unpack 'patch-ui-module-dir
10807            (lambda* (#:key outputs #:allow-other-keys)
10808              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
10809                (("\\$\\{edsuimoduledir\\}")
10810                 (string-append (assoc-ref outputs "out")
10811                                "/lib/evolution-data-server/ui-modules")))
10812              #t))
10813          (add-after 'install 'glib-or-gtk-compile-schemas
10814            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
10815          (add-after 'install 'glib-or-gtk-wrap
10816            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10817     (native-inputs
10818      `(("glib" ,glib "bin")             ; glib-mkenums
10819        ("pkg-config" ,pkg-config)
10820        ("intltool" ,intltool)
10821        ("itstool" ,itstool)))
10822     (inputs
10823      `(("enchant" ,enchant)
10824        ("evolution-data-server" ,evolution-data-server) ; must be the same version
10825        ("gcr" ,gcr)
10826        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10827        ("gnome-autoar" ,gnome-autoar)
10828        ("gnome-desktop" ,gnome-desktop)
10829        ("gspell" ,gspell)
10830        ("highlight" ,highlight)
10831        ("libcanberra" ,libcanberra)
10832        ("libgweather" ,libgweather)
10833        ("libnotify" ,libnotify)
10834        ("libsoup" ,libsoup)
10835        ("nss" ,nss)
10836        ("openldap" ,openldap)
10837        ("webkitgtk" ,webkitgtk)
10838        ("ytnef" ,ytnef)))
10839     (home-page "https://gitlab.gnome.org/GNOME/evolution")
10840     (synopsis "Manage your email, contacts and schedule")
10841     (description "Evolution is a personal information management application
10842 that provides integrated mail, calendaring and address book
10843 functionality.")
10844     ;; See COPYING for details.
10845     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
10846                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
10847                    license:lgpl2.1+))))  ; smime/lib/*
10848
10849 (define-public gthumb
10850   (package
10851     (name "gthumb")
10852     (version "3.10.2")
10853     (source (origin
10854               (method url-fetch)
10855               (uri (string-append "mirror://gnome/sources/gthumb/"
10856                                   (version-major+minor version) "/"
10857                                   "gthumb-" version ".tar.xz"))
10858               (sha256
10859                (base32
10860                 "14sw8d37g1lkp44dwsgyxjjsgh5pnpp4wq00mcy9p3rp30lf9spx"))))
10861     (build-system meson-build-system)
10862     (arguments
10863      `(#:glib-or-gtk? #t
10864        #:configure-flags
10865        ;; Ensure the RUNPATH contains all installed library locations.
10866        (list (string-append "-Dc_link_args=-Wl,-rpath="
10867                             (assoc-ref %outputs "out")
10868                             "/lib/gthumb/extensions")
10869              (string-append "-Dcpp_link_args=-Wl,-rpath="
10870                             (assoc-ref %outputs "out")
10871                             "/lib/gthumb/extensions"))))
10872     (native-inputs
10873      `(("pkg-config" ,pkg-config)
10874        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10875        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
10876        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
10877        ("intltool" ,intltool)
10878        ("itstool" ,itstool)))
10879     (inputs
10880      `(("exiv2" ,exiv2)
10881        ("gtk" ,gtk+)
10882        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10883        ("gstreamer" ,gstreamer)
10884        ("clutter" ,clutter)
10885        ("clutter-gst" ,clutter-gst)
10886        ("clutter-gtk" ,clutter-gtk)
10887        ("libjpeg" ,libjpeg-turbo)
10888        ("libtiff" ,libtiff)
10889        ("libraw" ,libraw)))
10890     (home-page "https://wiki.gnome.org/Apps/Gthumb")
10891     (synopsis "GNOME image viewer and browser")
10892     (description "GThumb is an image viewer, browser, organizer, editor and
10893 advanced image management tool")
10894     (license license:gpl2+)))
10895
10896 (define-public terminator
10897   (package
10898     (name "terminator")
10899     (version "2.1.0")
10900     (source
10901      (origin
10902        (method url-fetch)
10903        (uri (string-append "https://github.com/gnome-terminator/terminator/"
10904                            "releases/download/v" version "/"
10905                            name "-" version ".tar.gz"))
10906        (sha256
10907         (base32
10908          "1vap4li2i24l1iz2q4b8wvhj8flamarf18xcmzq5ik2vzcrisbjy"))))
10909     (build-system python-build-system)
10910     (native-inputs
10911      `(("gettext" ,gettext-minimal)
10912        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
10913        ("gobject-introspection" ,gobject-introspection)
10914        ("intltool" ,intltool)
10915        ("pkg-config" ,pkg-config)
10916        ("python-psutil" ,python-psutil)
10917        ("python-pytest-runner" ,python-pytest-runner)
10918        ("python-pytest" ,python-pytest)))
10919     (inputs
10920      `(("cairo" ,cairo)
10921        ("dbus-glib" ,dbus-glib)
10922        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10923        ("gtk+" ,gtk+)
10924        ("python" ,python-wrapper)
10925        ("python-dbus" ,python-dbus)
10926        ("python-notify2" ,python-notify2)
10927        ("python-pycairo" ,python-pycairo)
10928        ("python-pygobject" ,python-pygobject)
10929        ("vte" ,vte)))
10930     (propagated-inputs
10931      `(("python-configobj" ,python-configobj)))
10932     (arguments
10933      ;; One test out of 28 fails due to dbus-python and python-notify; skip
10934      ;; tests.
10935      `(#:tests? #f
10936        #:imported-modules ((guix build glib-or-gtk-build-system)
10937                            ,@%python-build-system-modules)
10938        #:modules ((guix build python-build-system)
10939                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10940                   (guix build utils))
10941        #:phases
10942        (modify-phases %standard-phases
10943          (add-after 'unpack 'handle-dbus-python
10944            (lambda _
10945              ;; python-dbus cannot be found but it's really there.  See
10946              ;; https://github.com/SpotlightKid/jack-select/issues/2
10947              (substitute* "setup.py"
10948                (("'dbus-python',") ""))
10949              #t))
10950          (add-after 'install 'wrap-program
10951            (lambda* (#:key outputs #:allow-other-keys)
10952              (let ((prog (string-append (assoc-ref outputs "out")
10953                                         "/bin/terminator"))
10954                    (pylib (string-append (assoc-ref outputs "out")
10955                                          "/lib/python"
10956                                          ,(version-major+minor
10957                                            (package-version python))
10958                                          "/site-packages")))
10959                (wrap-program prog
10960                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10961                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10962                #t)))
10963          (add-after 'wrap-program 'glib-or-gtk-wrap
10964            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10965     (home-page "https://gnome-terminator.org/")
10966     (synopsis "Store and run multiple GNOME terminals in one window")
10967     (description
10968      "Terminator allows you to run multiple GNOME terminals in a grid and
10969 tabs, and it supports drag and drop re-ordering of terminals.")
10970     (license license:gpl2)))
10971
10972 (define-public libhandy
10973   (package
10974     (name "libhandy")
10975     (version "1.2.0")
10976     (source
10977      (origin
10978        (method git-fetch)
10979        (uri (git-reference
10980              (url "https://gitlab.gnome.org/GNOME/libhandy")
10981              (commit version)))
10982        (file-name (git-file-name name version))
10983        (sha256
10984         (base32 "1a8wfgm2jd3gcbk1nzhq6f2xq7vkxdc9qky8p9k0za9gqi7xfg4v"))))
10985     (build-system meson-build-system)
10986     (arguments
10987      `(#:configure-flags
10988        '("-Dglade_catalog=enabled"
10989          "-Dgtk_doc=true")
10990        #:phases
10991        (modify-phases %standard-phases
10992          (add-before 'check 'pre-check
10993            (lambda _
10994              ;; Tests require a running X server.
10995              (system "Xvfb :1 &")
10996              (setenv "DISPLAY" ":1")
10997              #t)))))
10998     (inputs
10999      `(("gtk+" ,gtk+)
11000        ("glade" ,glade3)
11001        ("libxml2" ,libxml2)))
11002     (native-inputs
11003      `(("glib:bin" ,glib "bin")
11004        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
11005        ("vala" ,vala)
11006        ("gtk-doc" ,gtk-doc)
11007        ("pkg-config" ,pkg-config)
11008        ("gettext" ,gettext-minimal)
11009
11010        ;; Test suite dependencies.
11011        ("xorg-server" ,xorg-server-for-tests)
11012        ("hicolor-icon-theme" ,hicolor-icon-theme)))
11013     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11014     (synopsis "Library full of GTK+ widgets for mobile phones")
11015     (description "The aim of the handy library is to help with developing user
11016 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11017 for usage on small and big screens.")
11018     (license license:lgpl2.1+)))
11019
11020 (define-public libhandy-0.0
11021   (package
11022     (inherit libhandy)
11023     (version "0.0.13")
11024     (source
11025      (origin
11026        (method git-fetch)
11027        (uri (git-reference
11028              (url "https://gitlab.gnome.org/GNOME/libhandy")
11029              (commit (string-append "v" version))))
11030        (file-name (git-file-name "libhandy" version))
11031        (sha256
11032         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11033     (arguments
11034      (substitute-keyword-arguments (package-arguments libhandy)
11035        ((#:configure-flags flags)
11036         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11037
11038 (define-public libgit2-glib
11039   (package
11040     (name "libgit2-glib")
11041     (version "0.99.0.1")
11042     (source (origin
11043               (method url-fetch)
11044               (uri (string-append "mirror://gnome/sources/" name "/"
11045                                   (version-major+minor version) "/"
11046                                   name "-" version ".tar.xz"))
11047               (sha256
11048                (base32
11049                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
11050     (build-system meson-build-system)
11051     (native-inputs
11052      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
11053        ("gobject-introspection" ,gobject-introspection)
11054        ("pkg-config" ,pkg-config)
11055        ("python-pygobject" ,python-pygobject)
11056        ("python-wrapper" ,python-wrapper)
11057        ("vala" ,vala)))
11058     (inputs
11059      `(("glib" ,glib)
11060        ("libssh2" ,libssh2)))
11061     (propagated-inputs
11062      `(;; In Requires of libgit2-glib.pc.
11063        ("libgit2" ,libgit2)))
11064     (synopsis "GLib wrapper around the libgit2 Git access library")
11065     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11066 access library.  It only implements the core plumbing functions, not really the
11067 higher level porcelain stuff.")
11068     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11069     (license license:gpl2+)))
11070
11071 (define-public gitg
11072   (package
11073     (name "gitg")
11074     (version "3.32.1")
11075     (source (origin
11076               (method url-fetch)
11077               (uri (string-append "mirror://gnome/sources/" name "/"
11078                                   (version-major+minor version) "/"
11079                                   name "-" version ".tar.xz"))
11080               (sha256
11081                (base32
11082                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11083     (build-system meson-build-system)
11084     (arguments
11085      `(#:glib-or-gtk? #t
11086        #:phases
11087        (modify-phases %standard-phases
11088          (add-after 'unpack 'disable-post-install-partially
11089            (lambda _
11090              (substitute* "meson_post_install.py"
11091                (("'python'") ; there are no python sources to compile
11092                 (string-append "'" (which "true") "'"))
11093                (("gtk-update-icon-cache") (which "true")))
11094              #t))
11095          (add-after 'unpack 'fix-test-sources
11096            (lambda _
11097              (substitute* "tests/libgitg/test-commit.vala"
11098                (("/bin/bash") (which "bash")))
11099              #t))
11100          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11101            (lambda* (#:key outputs #:allow-other-keys)
11102              (let ((prog (string-append (assoc-ref outputs "out")
11103                                         "/bin/gitg")))
11104                (wrap-program prog
11105                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11106                #t))))))
11107     (inputs
11108      `(("glib" ,glib)
11109        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11110        ("gtk+" ,gtk+)
11111        ("gtkspell3" ,gtkspell3)
11112        ("gtksourceview" ,gtksourceview-3)
11113        ("json-glib" ,json-glib)
11114        ("libdazzle" ,libdazzle)
11115        ("libgee" ,libgee)
11116        ("libgit2-glib" ,libgit2-glib)
11117        ("libpeas" ,libpeas)
11118        ("libsecret" ,libsecret)
11119        ("libsoup" ,libsoup)
11120        ("libxml2" ,libxml2)))
11121     (native-inputs
11122      `(("glib:bin" ,glib "bin")
11123        ("gtk+:bin" ,gtk+ "bin")
11124        ("gobject-introspection" ,gobject-introspection)
11125        ("intltool" ,intltool)
11126        ("pkg-config" ,pkg-config)
11127        ("vala" ,vala)))
11128     (synopsis "Graphical user interface for git")
11129     (description
11130      "gitg is a graphical user interface for git.  It aims at being a small,
11131 fast and convenient tool to visualize the history of git repositories.
11132 Besides visualization, gitg also provides several utilities to manage your
11133 repository and commit your work.")
11134     (home-page "https://wiki.gnome.org/Apps/Gitg")
11135     (license license:gpl2+)))
11136
11137 (define-public gamin
11138   (package
11139     (name "gamin")
11140     (version "0.1.10")
11141     (source (origin
11142               (method url-fetch)
11143               (uri (string-append "mirror://gnome/sources/" name "/"
11144                                   (version-major+minor version) "/"
11145                                   name "-" version ".tar.bz2"))
11146               (sha256
11147                (base32
11148                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11149     (build-system gnu-build-system)
11150     (arguments
11151      `(#:phases
11152        (modify-phases %standard-phases
11153          (add-after 'unpack 'remove-deprecated-macro
11154            (lambda _
11155              (substitute* '("server/gam_node.c"
11156                             "server/gam_subscription.h"
11157                             "server/gam_node.h"
11158                             "server/gam_subscription.c")
11159                (("G_CONST_RETURN") "const"))
11160              #t)))))
11161     (inputs
11162      `(("glib" ,glib)))
11163     (native-inputs
11164      `(("intltool" ,intltool)
11165        ("pkg-config" ,pkg-config)))
11166     (home-page "https://people.gnome.org/~veillard/gamin/")
11167     (synopsis "File alteration monitor")
11168     (description
11169      "Gamin is a file and directory monitoring system defined to be a subset
11170 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11171 library which detects when a file or a directory has been modified.")
11172     (license license:gpl2+)))
11173
11174 (define-public gnome-mahjongg
11175   (package
11176     (name "gnome-mahjongg")
11177     (version "3.35.1")
11178     (source (origin
11179               (method git-fetch)
11180               (uri (git-reference
11181                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11182                     (commit version)))
11183               (file-name (git-file-name name version))
11184               (sha256
11185                (base32
11186                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11187     (build-system meson-build-system)
11188     (arguments
11189      `(#:glib-or-gtk? #t))
11190     (native-inputs
11191      `(("appstream-glib" ,appstream-glib)
11192        ("gettext" ,gettext-minimal)
11193        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11194        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11195        ("itstool" ,itstool)
11196        ("pkg-config" ,pkg-config)
11197        ("vala" ,vala)))
11198     (propagated-inputs
11199      `(("dconf" ,dconf)))
11200     (inputs
11201      `(("glib" ,glib)
11202        ("gtk+" ,gtk+)
11203        ("librsvg" ,librsvg)))
11204     (synopsis "Mahjongg tile-matching game")
11205     (description "GNOME Mahjongg is a game based on the classic Chinese
11206 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11207 and a high score table.")
11208     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11209     (license license:gpl2+)))
11210
11211 (define-public gnome-themes-extra
11212   (package
11213     (name "gnome-themes-extra")
11214     (version "3.28")
11215     (source
11216      (origin
11217        (method url-fetch)
11218        (uri (string-append "mirror://gnome/sources/" name "/"
11219                            (version-major+minor version) "/" name "-"
11220                            version ".tar.xz"))
11221        (sha256
11222         (base32
11223          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11224     (build-system gnu-build-system)
11225     (arguments
11226      '(#:configure-flags
11227        ;; Don't create 'icon-theme.cache'.
11228        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11229               (true      (string-append coreutils "/bin/true")))
11230          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11231     (native-inputs
11232      `(("glib:bin" ,glib "bin")
11233        ("intltool" ,intltool)
11234        ("pkg-config" ,pkg-config)))
11235     (inputs
11236      `(("glib" ,glib)
11237        ("gtk+" ,gtk+)
11238        ("gtk+-2" ,gtk+-2)
11239        ("librsvg" ,librsvg)
11240        ("libxml2" ,libxml2)))
11241     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11242     (synopsis "GNOME Extra Themes")
11243     (description "This package provides themes and related elements that don't
11244 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11245 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11246 index files needed for Adwaita to be used outside of GNOME.")
11247     (license license:lgpl2.1+)))
11248
11249 (define-public gnote
11250   (package
11251     (name "gnote")
11252     (version "3.38.1")
11253     (source
11254      (origin
11255        (method url-fetch)
11256        (uri (string-append "mirror://gnome/sources/" name "/"
11257                            (version-major+minor version)  "/"
11258                            "gnote-" version ".tar.xz"))
11259        (sha256
11260         (base32 "1adjfjhmsm2d33999khjyzvli6kiz1jlzavn77jhd49kfzhxa9y4"))))
11261     (build-system glib-or-gtk-build-system)
11262     (native-inputs
11263      `(("desktop-file-utils" ,desktop-file-utils)
11264        ("glib:bin" ,glib "bin")
11265        ("gobject-introspection" ,gobject-introspection)
11266        ("intltool" ,intltool)
11267        ("itstool" ,itstool)
11268        ("pkg-config" ,pkg-config)
11269        ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11270     (inputs
11271      `(("glibmm" ,glibmm)
11272        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11273        ("gspell" ,gspell)
11274        ("gtk+" ,gtk+)
11275        ("gtkmm" ,gtkmm)
11276        ("libsecret" ,libsecret)
11277        ("libuuid" ,util-linux "lib")
11278        ("libxml2" ,libxml2)
11279        ("libxslt" ,libxslt)))
11280     (synopsis "Note-taking application for the GNOME desktop")
11281     (description
11282      "Gnote is a note-taking application written for the GNOME desktop
11283 environment.")
11284     (home-page "https://wiki.gnome.org/Apps/Gnote")
11285     (license license:gpl3+)))
11286
11287 (define-public polari
11288   (package
11289     (name "polari")
11290     (version "3.36.3")
11291     (source (origin
11292               (method url-fetch)
11293               (uri (string-append "mirror://gnome/sources/polari/"
11294                                   (version-major+minor version)
11295                                   "/polari-" version ".tar.xz"))
11296               (sha256
11297                (base32
11298                 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
11299     (build-system meson-build-system)
11300     (arguments
11301      `(#:glib-or-gtk? #t
11302        #:phases
11303        (modify-phases %standard-phases
11304          (add-after 'unpack 'skip-gtk-update-icon-cache
11305            (lambda _
11306              (substitute* "meson/meson-postinstall.sh"
11307                (("gtk-update-icon-cache") (which "true")))
11308              #t))
11309          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11310            (lambda* (#:key outputs #:allow-other-keys)
11311              (let ((prog (string-append (assoc-ref outputs "out")
11312                                         "/bin/polari")))
11313                (wrap-program prog
11314                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11315                #t))))))
11316     (inputs
11317      `(("glib" ,glib)
11318        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11319        ("gspell" ,gspell)
11320        ("gtk+" ,gtk+)
11321        ("gjs" ,gjs)
11322        ("libsecret" ,libsecret)
11323        ("libsoup" ,libsoup)
11324        ("telepathy-glib" ,telepathy-glib)
11325        ("telepathy-logger" ,telepathy-logger)))
11326     (native-inputs
11327      `(("glib:bin" ,glib "bin")
11328        ("gobject-introspection" ,gobject-introspection)
11329        ("intltool" ,intltool)
11330        ("pkg-config" ,pkg-config)
11331        ("yelp-tools" ,yelp-tools)))
11332     (propagated-inputs
11333      `(("telepathy-idle" ,telepathy-idle)
11334        ("telepathy-mission-control" ,telepathy-mission-control)))
11335     (synopsis "Simple IRC Client")
11336     (description
11337      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11338 integrate seamlessly with the GNOME desktop.")
11339     (home-page "https://wiki.gnome.org/Apps/Polari")
11340     (license license:gpl2+)))
11341
11342 (define-public gnome-boxes
11343   (package
11344     (name "gnome-boxes")
11345     (version "3.36.6")
11346     (source
11347      (origin
11348        (method url-fetch)
11349        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11350                            (version-major+minor version) "/"
11351                            "gnome-boxes-" version ".tar.xz"))
11352        (sha256
11353         (base32 "0c3cw90xqqcpacc2z06ljs0gg8saxizfgjzg9alhpwgz3gl4c5pg"))))
11354     (build-system meson-build-system)
11355     (arguments
11356      '(#:glib-or-gtk? #t
11357        #:configure-flags (list "-Drdp=false"
11358                                (string-append "-Dc_link_args=-Wl,-rpath="
11359                                               (assoc-ref %outputs "out")
11360                                               "/lib/gnome-boxes"))))
11361     (native-inputs
11362      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
11363        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
11364        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11365        ("itstool" ,itstool)
11366        ("intltool" ,intltool)
11367        ("vala" ,vala)
11368        ("pkg-config" ,pkg-config)))
11369     (inputs
11370      `(("libarchive" ,libarchive)
11371        ("glib-networking" ,glib-networking) ;for TLS support
11372        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11373        ("gtk" ,gtk+)
11374        ("gtk-vnc" ,gtk-vnc)
11375        ("libosinfo" ,libosinfo)
11376        ("libsecret" ,libsecret)
11377        ("libsoup" ,libsoup)
11378        ("libusb" ,libusb)
11379        ("libvirt" ,libvirt)
11380        ("libvirt-glib" ,libvirt-glib)
11381        ("libxml" ,libxml2)
11382        ("spice-gtk" ,spice-gtk)
11383        ("sparql-query" ,sparql-query)
11384        ("vte" ,vte)
11385        ("webkitgtk" ,webkitgtk)
11386        ("tracker" ,tracker)
11387        ("libgudev" ,libgudev)))
11388     (home-page "https://wiki.gnome.org/Apps/Boxes")
11389     (synopsis "View, access, and manage remote and virtual systems")
11390     (description "GNOME Boxes is a simple application to view, access, and
11391 manage remote and virtual systems.  Note that this application requires the
11392 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11393 @command{info '(guix) Virtualization Services'} to learn how to configure
11394 these services on the Guix System.")
11395     (license (list
11396               ;; For data/icons/empty-boxes.png.
11397               license:cc-by2.0
11398               ;; For all others.
11399               license:lgpl2.0+))))
11400
11401 (define-public geary
11402   (package
11403     (name "geary")
11404     (version "3.34.1")
11405     (source (origin
11406               (method git-fetch)
11407               (uri (git-reference
11408                     (url "https://gitlab.gnome.org/GNOME/geary")
11409                     (commit version)))
11410               (file-name (git-file-name name version))
11411               (sha256
11412                (base32
11413                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))
11414               (patches (search-patches "geary-CVE-2020-24661.patch"))))
11415     (build-system meson-build-system)
11416     (arguments
11417      `(#:glib-or-gtk? #t
11418        #:phases (modify-phases %standard-phases
11419                   (add-after 'unpack 'disable-failing-tests
11420                     (lambda _
11421                       (substitute* "test/meson.build"
11422                         (("test\\('client-tests', geary_test_client_bin\\)")
11423                          ""))
11424                       #t))
11425                   (add-after 'unpack 'disable-postinstall-script
11426                     (lambda _
11427                       (substitute* "meson.build"
11428                         (("meson.add_install_script\\(\
11429 join_paths\\('build-aux', 'post_install.py'\\)\\)")
11430                          ""))
11431                       #t))
11432                   (add-before 'check 'setup-xvfb
11433                     (lambda _
11434                       (system "Xvfb :1 &")
11435                       (setenv "DISPLAY" ":1")
11436                       #t)))))
11437     (inputs
11438      `(("enchant" ,enchant)
11439        ("folks" ,folks)
11440        ("gcr" ,gcr)
11441        ("glib" ,glib)
11442        ("gmime" ,gmime-2.6)
11443        ("gnome-online-accounts:lib"
11444         ,gnome-online-accounts "lib")
11445        ("gspell" ,gspell)
11446        ("gtk+" ,gtk+)
11447        ("iso-codes" ,iso-codes)
11448        ("json-glib" ,json-glib)
11449        ("libcanberra" ,libcanberra)
11450        ("libgee" ,libgee)
11451        ("libhandy" ,libhandy-0.0)
11452        ("libpeas" ,libpeas)
11453        ("libsecret" ,libsecret)
11454        ("libunwind" ,libunwind)
11455        ("sqlite" ,sqlite)
11456        ("webkitgtk" ,webkitgtk)
11457        ("ytnef" ,ytnef)))
11458     (native-inputs
11459      `(("appstream-glib" ,appstream-glib)
11460        ("cmake-minimal" ,cmake-minimal)
11461        ("desktop-file-utils" ,desktop-file-utils)
11462        ("gettext" ,gettext-minimal)
11463        ("glib:bin" ,glib "bin")
11464        ("gobject-introspection" ,gobject-introspection)
11465        ("itstool" ,itstool)
11466        ("libarchive" ,libarchive)
11467        ("libxml2" ,libxml2)
11468        ("pkg-config" ,pkg-config)
11469        ("vala" ,vala)
11470        ("xvfb" ,xorg-server-for-tests)))
11471     (synopsis "GNOME email application built around conversations")
11472     (description
11473      "Geary collects related messages together into conversations,
11474 making it easy to find and follow your discussions.  Full-text and keyword
11475 search makes it easy to find the email you are looking for.  Geary's
11476 full-featured composer lets you send rich, styled text with images, links, and
11477 lists, but also send lightweight, easy to read text messages.  Geary
11478 automatically picks up your existing GNOME Online Accounts, and adding more is
11479 easy.  Geary has a clean, fast, modern interface that works like you want it
11480 to.")
11481     (home-page "https://wiki.gnome.org/Apps/Geary")
11482     (license (list
11483               ;; geary
11484               license:lgpl2.1+
11485               ;; icons
11486               license:cc-by3.0
11487               license:cc-by-sa3.0
11488               license:public-domain
11489               ;; snowball
11490               license:bsd-2))))
11491
11492 (define-public glabels
11493   (package
11494     (name "glabels")
11495     (version "3.4.1")
11496     (source
11497      (origin
11498        (method url-fetch)
11499        (uri (string-append "mirror://gnome/sources/" name "/"
11500                            (version-major+minor version)  "/"
11501                            "glabels-" version ".tar.xz"))
11502        (sha256
11503         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11504     (build-system glib-or-gtk-build-system)
11505     (native-inputs
11506      `(("gettext" ,gettext-minimal)
11507        ("glib:bin" ,glib "bin")
11508        ("intltool" ,intltool)
11509        ("itstool" ,itstool)
11510        ("pkg-config" ,pkg-config)))
11511     (inputs
11512      `(("gtk+" ,gtk+)
11513        ("librsvg" ,librsvg)
11514        ("libxml2" ,libxml2)))
11515     (home-page "https://glabels.org/")
11516     (synopsis "Program for creating labels and business cards")
11517     (description
11518      "gLabels is a program for creating labels and business cards.  It is
11519 designed to work with various laser/ink-jet peel-off label and business
11520 card sheets that you’ll find at most office supply stores.")
11521     (license license:gpl3+)))
11522
11523 ;; Version 3.38.0 is out but requires tepl>=5 which requires glib>=2.64.
11524 (define-public gnome-latex
11525   (package
11526     (name "gnome-latex")
11527     (version "3.36.0")
11528     (source
11529      (origin
11530        (method url-fetch)
11531        (uri (string-append "mirror://gnome/sources/" name "/"
11532                            (version-major+minor version)  "/"
11533                            "gnome-latex-" version ".tar.xz"))
11534        (sha256
11535         (base32 "1869kr1zhcp04mzbi67lwgk497w840dbbc7427i9yh9b9s7j6mqn"))))
11536     (build-system glib-or-gtk-build-system)
11537     (native-inputs
11538      `(("gettext" ,gettext-minimal)
11539        ("glib:bin" ,glib "bin")
11540        ("gobject-introspection" ,gobject-introspection)
11541        ("gtk-doc" ,gtk-doc)
11542        ("intltool" ,intltool)
11543        ("itstool" ,itstool)
11544        ("pkg-config" ,pkg-config)
11545        ("vala" ,vala)))
11546     (inputs
11547      `(("amtk" ,amtk)
11548        ("dconf" ,dconf)
11549        ("glib" ,glib)
11550        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11551        ("gspell" ,gspell)
11552        ("gtk+" ,gtk+)
11553        ("gtksourceview" ,gtksourceview)
11554        ("libgee" ,libgee)
11555        ("tepl" ,tepl)
11556        ("uchardet" ,uchardet)))
11557     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11558     (synopsis "LaTeX editor for the GNOME desktop")
11559     (description
11560      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11561 such as build tools, completion of LaTeX commands, structure navigation,
11562 symbol tables, document templates, project management, spell-checking, menus
11563 and toolbars.")
11564     (license license:gpl3+)))
11565
11566 (define-public setzer
11567   (package
11568     (name "setzer")
11569     (version "0.4.1")
11570     (source
11571      (origin
11572        (method git-fetch)
11573        (uri (git-reference
11574              (url "https://github.com/cvfosammmm/Setzer")
11575              (commit (string-append "v" version))))
11576        (file-name (git-file-name name version))
11577        (sha256
11578         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
11579     (build-system meson-build-system)
11580     (arguments
11581      `(#:glib-or-gtk? #t
11582        #:phases
11583        (modify-phases %standard-phases
11584          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11585            (lambda* (#:key outputs #:allow-other-keys)
11586              (let ((prog (string-append (assoc-ref outputs "out")
11587                                         "/bin/setzer"))
11588                    (pylib (string-append (assoc-ref outputs "out")
11589                                          "/lib/python"
11590                                          ,(version-major+minor
11591                                            (package-version python))
11592                                          "/site-packages")))
11593                (wrap-program prog
11594                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
11595                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11596                #t))))))
11597     (native-inputs
11598      `(("desktop-file-utils" ,desktop-file-utils)
11599        ("gettext" ,gettext-minimal)
11600        ("glib:bin" ,glib "bin")
11601        ("gobject-introspection" ,gobject-introspection)
11602        ("gtk+:bin" ,gtk+ "bin")))
11603     (inputs
11604      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11605        ("gspell" ,gspell)
11606        ("gtk+" ,gtk+)
11607        ("gtksourceview" ,gtksourceview)
11608        ("pango" ,pango)
11609        ("poppler" ,poppler)
11610        ("python-pdfminer" ,python-pdfminer-six)
11611        ("python-pycairo" ,python-pycairo)
11612        ("python-pygobject" ,python-pygobject)
11613        ("python-pyxdg" ,python-pyxdg)
11614        ("webkitgtk" ,webkitgtk)
11615        ("xdg-utils" ,xdg-utils)))
11616     (home-page "https://www.cvfosammmm.org/setzer/")
11617     (synopsis "LaTeX editor written in Python with GTK+")
11618     (description
11619      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11620 GTK+.  It integrates well with the GNOME desktop environment.")
11621     (license license:gpl3+)))
11622
11623 (define-public libratbag
11624   (package
11625     (name "libratbag")
11626     (version "0.14")
11627     (source
11628      (origin
11629        (method git-fetch)
11630        (uri (git-reference
11631              (url "https://github.com/libratbag/libratbag")
11632              (commit (string-append "v" version))))
11633        (file-name (git-file-name name version))
11634        (sha256
11635         (base32 "1fpwp2sj8mf98bqasq2h8qwgprxi7k3iw33gcfid3d1lbyiacw0x"))))
11636     (build-system meson-build-system)
11637     (arguments
11638      `(#:configure-flags
11639        (list "-Dsystemd=false"
11640              "-Dlogind-provider=elogind")
11641        #:phases
11642        (modify-phases %standard-phases
11643          (add-after 'install 'wrap
11644            (lambda* (#:key inputs outputs #:allow-other-keys)
11645              (let* ((out (assoc-ref outputs "out"))
11646                     (site (string-append
11647                            "/lib/python"
11648                            ,(version-major+minor (package-version python))
11649                            "/site-packages"))
11650                     (evdev (string-append
11651                             (assoc-ref inputs "python-evdev") site))
11652                     (pygo (string-append
11653                            (assoc-ref inputs "python-pygobject") site))
11654                     (python-wrap
11655                      `("PYTHONPATH" = (,evdev ,pygo))))
11656                (wrap-program (string-append out "/bin/" "ratbagctl")
11657                  python-wrap)
11658                #t))))))
11659     (native-inputs
11660      `(("check" ,check)
11661        ("pkg-config" ,pkg-config)
11662        ("swig" ,swig)
11663        ("valgrind" ,valgrind)))
11664     (inputs
11665      `(("glib" ,glib)
11666        ("json-glib" ,json-glib)
11667        ("libevdev" ,libevdev)
11668        ("libsystemd" ,elogind)
11669        ("libunistring" ,libunistring)
11670        ("python-evdev" ,python-evdev)
11671        ("python-pygobject" ,python-pygobject)
11672        ("udev" ,eudev)))
11673     (home-page "https://github.com/libratbag/libratbag")
11674     (synopsis "DBus daemon and utility for configuring gaming mice")
11675     (description "libratbag provides @command{ratbagd}, a DBus daemon to
11676 configure input devices, mainly gaming mice.  The daemon provides a generic
11677 way to access the various features exposed by these mice and abstracts away
11678 hardware-specific and kernel-specific quirks.  There is also the
11679 @command{ratbagctl} command line interface for configuring devices.
11680
11681 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
11682 Steelseries.
11683
11684 The ratbagd DBus service can be enabled by adding the following service to
11685 your operating-system definition:
11686
11687   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11688     (license license:expat)))
11689
11690 (define-public piper
11691   (package
11692     (name "piper")
11693     (version "0.5.1")
11694     (source
11695      (origin
11696        (method git-fetch)
11697        (uri (git-reference
11698              (url "https://github.com/libratbag/piper")
11699              (commit version)))
11700        (sha256
11701         (base32 "1nfjnsiwg2rs6gkjsxzhr2708i6di149dgwq3cf6l12rxqpb8arj"))
11702        (file-name (git-file-name name version))))
11703     (build-system meson-build-system)
11704     (native-inputs
11705      `(("gettext" ,gettext-minimal)
11706        ("glib:bin" ,glib "bin")
11707        ("gobject-introspection" ,gobject-introspection)
11708        ("pkg-config" ,pkg-config)
11709        ("python-flake8" ,python-flake8)))
11710     (inputs
11711      `(("adwaita-icon-theme" ,adwaita-icon-theme)
11712        ("gtk" ,gtk+)
11713        ("gtk:bin" ,gtk+ "bin")
11714        ("librsvg" ,librsvg)
11715        ("python-evdev" ,python-evdev)
11716        ("python-lxml" ,python-lxml)
11717        ("python-pycairo" ,python-pycairo)
11718        ("python-pygobject" ,python-pygobject)))
11719     (arguments
11720      `(#:imported-modules ((guix build python-build-system)
11721                            ,@%meson-build-system-modules)
11722        #:modules (((guix build python-build-system) #:prefix python:)
11723                   (guix build meson-build-system)
11724                   (guix build utils))
11725        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
11726        #:phases
11727        (modify-phases %standard-phases
11728          (add-after 'unpack 'dont-update-gtk-icon-cache
11729            (lambda _
11730              (substitute* "meson.build"
11731                (("meson.add_install_script('meson_install.sh')") ""))
11732              #t))
11733          ;; TODO: Switch to wrap-script when it is fixed.
11734          (add-after 'install 'wrap-python
11735            (assoc-ref python:%standard-phases 'wrap))
11736          (add-after 'wrap-python 'wrap
11737            (lambda* (#:key outputs #:allow-other-keys)
11738              (wrap-program
11739                  (string-append (assoc-ref outputs "out" )"/bin/piper")
11740                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11741              #t)))))
11742     (home-page "https://github.com/libratbag/piper/")
11743     (synopsis "Configure bindings and LEDs on gaming mice")
11744     (description "Piper is a GTK+ application for configuring gaming mice with
11745 onboard configuration for key bindings via libratbag.  Piper requires
11746 a @command{ratbagd} daemon running with root privileges.  It can be run
11747 manually as root, but is preferably configured as a DBus service that can
11748 launch on demand.  This can be configured by enabling the following service,
11749 provided there is a DBus service present:
11750
11751   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11752     (license license:gpl2)))
11753
11754 (define-public parlatype
11755   (package
11756     (name "parlatype")
11757     (version "2.1")
11758     (source
11759      (origin
11760        (method git-fetch)
11761        (uri (git-reference
11762              (url "https://github.com/gkarsay/parlatype")
11763              (commit (string-append "v" version))))
11764        (file-name (git-file-name name version))
11765        (sha256
11766         (base32 "1c15ja0rwz3jj8bnqdq0nmqka39iwrhy8krdv2a2x8nl4shfpmv0"))))
11767     (build-system meson-build-system)
11768     (arguments
11769      `(#:glib-or-gtk? #t
11770        #:tests? #f                      ;require internet access
11771        #:phases
11772        (modify-phases %standard-phases
11773          (add-after 'install 'wrap-parlatype
11774            ;; Add gstreamer plugin provided in this package to system's
11775            ;; plugins.
11776            (lambda* (#:key outputs #:allow-other-keys)
11777              (let* ((out (assoc-ref outputs "out"))
11778                     (gst-plugin-path (string-append
11779                                       out "/lib/gstreamer-1.0/"
11780                                       ":"
11781                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
11782                (wrap-program (string-append out "/bin/parlatype")
11783                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
11784              #t)))))
11785     (native-inputs
11786      `(("appstream-glib" ,appstream-glib)
11787        ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11788        ("gettext" ,gettext-minimal)
11789        ("glib" ,glib "bin")             ;for glib-compile-resources
11790        ("pkg-config" ,pkg-config)
11791        ("yelp-tools" ,yelp-tools)))
11792     (inputs
11793      `(("gst-plugins-base" ,gst-plugins-base)
11794        ("gst-plugins-good" ,gst-plugins-good)
11795        ("gstreamer" ,gstreamer)
11796        ("gtk+" ,gtk+)
11797        ("pocketsphinx" ,pocketsphinx)
11798        ("pulseaudio" ,pulseaudio)
11799        ("sphinxbase" ,sphinxbase)))
11800     (home-page "http://gkarsay.github.io/parlatype/")
11801     (synopsis "GNOME audio player for transcription")
11802     (description "Parlatype is an audio player for the GNOME desktop
11803 environment.  Its main purpose is the manual transcription of spoken
11804 audio files.")
11805     (license license:gpl3+)))
11806
11807 (define-public jsonrpc-glib
11808   (package
11809     (name "jsonrpc-glib")
11810     (version "3.34.0")
11811     (source (origin
11812               (method url-fetch)
11813               (uri (string-append "mirror://gnome/sources/" name "/"
11814                                   (version-major+minor version) "/"
11815                                    name "-" version ".tar.xz"))
11816               (sha256
11817                (base32
11818                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
11819     (build-system meson-build-system)
11820     (inputs
11821      `(("json-glib" ,json-glib)
11822        ("glib" ,glib)))
11823     (native-inputs
11824      `(("pkg-config" ,pkg-config)
11825        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
11826        ("gobject-introspection" ,gobject-introspection)
11827        ("vala" ,vala)))
11828     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
11829     (synopsis "JSON-RPC library for GLib")
11830     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
11831 peers in either a synchronous or asynchronous fashion.  It also allows
11832 communicating using the GVariant serialization format instead of JSON when
11833 both peers support it.  You might want that when communicating on a single
11834 host to avoid parser overhead and memory-allocator fragmentation.")
11835     (license license:lgpl2.1+)))
11836
11837 (define-public feedbackd
11838   (package
11839     (name "feedbackd")
11840     (version "0.0.0+git20200527")
11841     (source (origin
11842               (method git-fetch)
11843               (uri (git-reference
11844                     (url "https://source.puri.sm/Librem5/feedbackd.git")
11845                     (commit (string-append "v" version))))
11846               (file-name (git-file-name name version))
11847               (sha256
11848                (base32
11849                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
11850     (build-system meson-build-system)
11851     (native-inputs
11852      `(("glib:bin" ,glib "bin")
11853        ("gobject-introspection" ,gobject-introspection)
11854        ("pkg-config" ,pkg-config)
11855        ("vala" ,vala)))
11856     (inputs
11857      `(("dbus" ,dbus)
11858        ("gsound" ,gsound)
11859        ("json-glib" ,json-glib)
11860        ("libgudev" ,libgudev)))
11861     (propagated-inputs
11862      `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
11863     (synopsis "Haptic/visual/audio feedback via DBus")
11864     (description "Feedbackd provides a DBus daemon to act on events to provide
11865 haptic, visual and audio feedback.  It offers the libfeedbackd library and
11866 GObject introspection bindings.")
11867      (home-page "https://source.puri.sm/Librem5/feedbackd")
11868      (license (list license:lgpl2.1+   ; libfeedbackd
11869                     license:lgpl3+)))) ; the rest
11870
11871 (define-public sysprof
11872   (package
11873     (name "sysprof")
11874     (version "3.36.0")
11875     (source
11876      (origin
11877        (method url-fetch)
11878        (uri (string-append "mirror://gnome/sources/sysprof/"
11879                            (version-major+minor version) "/"
11880                            "sysprof-" version ".tar.xz"))
11881        (sha256
11882         (base32 "024i0gzqnm79rpr4gqxdvcj6gvf82xdlcp2p1k9ikcppmi6xnw46"))))
11883     (build-system meson-build-system)
11884     (arguments
11885      `(#:configure-flags
11886        (list (string-append "-Dsystemdunitdir="
11887                             %output
11888                             "/share/systemd"))
11889        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
11890        #:phases
11891        (modify-phases %standard-phases
11892          (add-after 'unpack 'patch-install-script
11893            (lambda _
11894              (substitute* "build-aux/meson/post_install.sh"
11895                (("gtk-update-icon-cache") "true")
11896                (("update-desktop-database") "true"))
11897              #t)))))
11898     (inputs
11899      `(("glib" ,glib)
11900        ("gtk+" ,gtk+)
11901        ("libdazzle" ,libdazzle)
11902        ("polkit" ,polkit)))
11903     (native-inputs
11904      `(("gettext" ,gettext-minimal)
11905        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
11906        ("itstool" ,itstool)
11907        ("pkg-config" ,pkg-config)
11908        ("xmllint" ,libxml2)))
11909     ;; This home page is so woefully out of date as to be essentially useless.
11910     ;; (home-page "http://www.sysprof.com")
11911     (home-page "https://wiki.gnome.org/Apps/Sysprof")
11912     (synopsis "System-wide performance profiler for GNU/Linux")
11913     (description
11914      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
11915 GNU/Linux system including the kernel and all user-space applications.  This
11916 helps find the function(s) in which a program spends most of its time.
11917
11918 It uses the kernel's built-in @code{ptrace} feature and handles shared
11919 libraries.  Applications do not need to be recompiled--or even restarted.")
11920     (license license:gpl3+)))
11921
11922 (define-public gnome-builder
11923   (package
11924     (name "gnome-builder")
11925     (version "3.36.1")
11926     (source (origin
11927               (method url-fetch)
11928               (uri (string-append "mirror://gnome/sources/" name "/"
11929                                   (version-major+minor version) "/"
11930                                   name "-" version ".tar.xz"))
11931               (sha256
11932                (base32
11933                 "17pvmd5jypar8dkr6w56hvf7jnq4l1wih2wwgkrv7sblr7rkkar2"))))
11934     (build-system meson-build-system)
11935     (arguments
11936      `(#:configure-flags (list "-Dnetwork_tests=false"
11937                                ;; TODO: Enable all plugins...
11938                                "-Dplugin_clang=false"
11939                                "-Dplugin_flatpak=false"
11940                                "-Dplugin_glade=false"
11941                                ;; XXX: This one has been shown not to work in
11942                                ;;      <https://issues.guix.gnu.org/45272>
11943                                "-Dplugin_jedi=false"
11944                                ;; ... except this one.
11945                                "-Dplugin_update_manager=false")
11946        #:phases
11947        (modify-phases %standard-phases
11948          (add-after 'unpack 'patch-meson
11949            (lambda* (#:key inputs #:allow-other-keys)
11950              (substitute* "build-aux/meson/post_install.py"
11951                (("gtk-update-icon-cache") "true")
11952                (("update-desktop-database") "true"))
11953              (substitute* "src/libide/meson.build"
11954                (("/usr/lib")
11955                 (string-append (assoc-ref inputs "python-pygobject")
11956                                "/lib")))
11957              #t))
11958          (add-after 'configure 'fix-ninja
11959            (lambda _
11960              ;; #43296: meson(?) incorrectly assumes we want to link
11961              ;;         this PIE against a static libselinux.
11962              (substitute* "build.ninja"
11963                (("libselinux\\.a") "libselinux.so"))
11964              #t))
11965          (add-before 'check 'pre-check
11966            (lambda _
11967              (system "Xvfb :1 &")
11968              (setenv "DISPLAY" ":1")
11969              #t)))))
11970     (inputs
11971      `(("devhelp" ,devhelp)
11972        ("gspell" ,gspell)
11973        ("gtk+" ,gtk+)
11974        ("json-glib" ,json-glib)
11975        ("jsonrpc-glib" ,jsonrpc-glib)
11976        ("libdazzle" ,libdazzle)
11977        ("libgit2-glib" ,libgit2-glib)
11978        ("libpeas" ,libpeas)
11979        ("python-pygobject" ,python-pygobject)
11980        ("sysprof" ,sysprof)
11981        ("template-glib" ,template-glib)
11982        ("vte" ,vte)
11983        ("webkitgtk" ,webkitgtk)))
11984     (propagated-inputs
11985      `(("gtksourceview" ,gtksourceview)))         ;needed for settings
11986     (native-inputs
11987      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11988        ("glib:bin" ,glib "bin")
11989        ("gettext" ,gettext-minimal)
11990        ("pkg-config" ,pkg-config)
11991        ("vala" ,vala)
11992        ("xorg-server" ,xorg-server-for-tests)))
11993     (home-page "https://wiki.gnome.org/Apps/Builder")
11994     (synopsis "Toolsmith for GNOME-based applications")
11995     (description "Builder aims to be an integrated development
11996 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
11997 auto-completion, a mini code map, documentation browsing, Git integration, an
11998 integrated profiler via Sysprof, debugging support, and more.")
11999     (license license:gpl3+)))
12000
12001 (define-public komikku
12002   (package
12003     (name "komikku")
12004     (version "0.27.0")
12005     (source
12006      (origin
12007        (method git-fetch)
12008        (uri (git-reference
12009              (url "https://gitlab.com/valos/Komikku/")
12010              (commit (string-append "v" version))))
12011        (file-name (git-file-name name version))
12012        (sha256
12013         (base32
12014          "0mj4bsy7jp9wjj1dqz9zdq5aj0ib813wkz5k1481k80jp9dnlqnv"))))
12015     (build-system meson-build-system)
12016     (arguments
12017      `(#:glib-or-gtk? #t
12018        #:phases
12019        (modify-phases %standard-phases
12020          (add-after 'unpack 'patch-sources
12021            (lambda _
12022              (substitute* "komikku/utils.py"
12023                (("from komikku\\.servers import get_servers_list")
12024                 ;; code following that line should migrate old databases
12025                 ;; but the line itself results in an import error
12026                 "return data_dir_path"))))
12027          (add-after 'unpack 'skip-gtk-update-icon-cache
12028            (lambda _
12029              (substitute* "meson_post_install.py"
12030                (("gtk-update-icon-cache") (which "true")))
12031              #t))
12032          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12033           (lambda* (#:key outputs #:allow-other-keys)
12034             (let ((prog (string-append (assoc-ref outputs "out")
12035                                        "/bin/komikku")))
12036               (wrap-program prog
12037                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
12038                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12039               #t))))))
12040     (inputs
12041      `(("gtk+" ,gtk+)
12042        ("libhandy" ,libhandy)
12043        ("libnotify" ,libnotify)
12044        ("libsecret" ,libsecret)
12045        ("python-beautifulsoup4" ,python-beautifulsoup4)
12046        ("python-brotli" ,python-brotli)
12047        ("python-dateparser" ,python-dateparser)
12048        ("python-keyring" ,python-keyring)
12049        ("python-lxml" ,python-lxml)
12050        ("python-magic" ,python-magic)
12051        ("python-pillow" ,python-pillow)
12052        ("python-pure-protobuf" ,python-pure-protobuf)
12053        ("python-pycairo" ,python-pycairo)
12054        ("python-pygobject" ,python-pygobject)
12055        ("python-requests" ,python-requests)
12056        ("python-unidecode" ,python-unidecode)
12057        ("webkitgtk" ,webkitgtk)))
12058     (native-inputs
12059      `(("desktop-file-utils" ,desktop-file-utils)
12060        ("gettext" ,gettext-minimal)
12061        ("glib:bin" ,glib "bin")
12062        ("gobject-introspection" ,gobject-introspection)
12063        ("pkg-config" ,pkg-config)))
12064     (home-page "https://gitlab.com/valos/Komikku")
12065     (synopsis "Manga reader for GNOME")
12066     (description "Komikku is an online/offline manga reader for GNOME,
12067 developed with the aim of being used with the Librem 5 phone.")
12068     (license license:gpl3+)))
12069
12070 (define-public libgda
12071   (package
12072     (name "libgda")
12073     (version "5.2.10")
12074     (source
12075      (origin
12076        (method git-fetch)
12077        (uri (git-reference
12078              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
12079              (commit (string-append "LIBGDA_" (string-replace-substring
12080                                                version "." "_")))))
12081        (file-name (git-file-name name version))
12082        (sha256
12083         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
12084     (build-system gnu-build-system)
12085     (arguments
12086      `(#:configure-flags '("--enable-vala")
12087        ;; There's a race between check_cnc_lock and check_threaded_cnc
12088        ;; in tests/multi-threading.
12089        #:parallel-tests? #f
12090        #:phases
12091        (modify-phases %standard-phases
12092          (add-after 'unpack 'fix-glade-install
12093            (lambda _
12094              (substitute* "configure.ac"
12095                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12096                 "${datadir}/glade/catalogs")
12097                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12098                 "${datadir}/glade/pixmaps"))
12099              #t))
12100          (add-before 'check 'pre-check
12101            (lambda* (#:key inputs #:allow-other-keys)
12102              ;; Tests require a running X server.
12103              (system "Xvfb :1 &")
12104              (setenv "DISPLAY" ":1")
12105              #t))
12106          (add-after 'install 'symlink-glade-module
12107            (lambda* (#:key outputs #:allow-other-keys)
12108              (let* ((shlib "libgda-ui-5.0.so")
12109                     (out (assoc-ref outputs "out"))
12110                     (out/lib (string-append out "/lib"))
12111                     (moduledir (string-append out/lib "/glade/modules")))
12112                (mkdir-p moduledir)
12113                (symlink (string-append out/lib "/" shlib)
12114                         (string-append moduledir "/" shlib))
12115                #t))))))
12116     (propagated-inputs
12117      `(("libxml2" ,libxml2)))           ; required by libgda-5.0.pc
12118     (inputs
12119      `(("glib" ,glib)
12120        ("glade" ,glade3)
12121        ("gtk+" ,gtk+)
12122        ("libsecret" ,libsecret)
12123        ("libxslt" ,libxslt)
12124        ("openssl" ,openssl)
12125        ("vala" ,vala)))
12126     (native-inputs
12127      `(("autoconf" ,autoconf)
12128        ("autoconf-archive" ,autoconf-archive)
12129        ("automake" ,automake)
12130        ("glib:bin" ,glib "bin")
12131        ("gnome-common" ,gnome-common)
12132        ("gobject-introspection" ,gobject-introspection)
12133        ("gtk-doc" ,gtk-doc)
12134        ("intltool" ,intltool)
12135        ("libtool" ,libtool)
12136        ("pkg-config" ,pkg-config)
12137        ("vala" ,vala)
12138        ("which" ,which)
12139        ("xorg-server" ,xorg-server-for-tests)
12140        ("yelp-tools" ,yelp-tools)))
12141     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12142     (synopsis "Uniform data access")
12143     (description
12144      "GNU Data Access (GDA) is an attempt to provide uniform access to
12145 different kinds of data sources (databases, information servers, mail spools,
12146 etc).  It is a complete architecture that provides all you need to access
12147 your data.")
12148     (license license:lgpl2.1+)))
12149
12150 (define-public gtranslator
12151   (package
12152     (name "gtranslator")
12153     (version "3.36.0")
12154         (source (origin
12155               (method url-fetch)
12156               (uri (string-append "mirror://gnome/sources/" name "/"
12157                                   (version-major+minor version) "/"
12158                                   name "-" version ".tar.xz"))
12159               (sha256
12160                (base32
12161                 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12162     (build-system meson-build-system)
12163     (inputs
12164      `(("json-glib" ,json-glib)
12165        ("jsonrpc-glib" ,jsonrpc-glib)
12166        ("gettext" ,gettext-minimal)
12167        ("glib" ,glib)
12168        ("gtk+" ,gtk+)
12169        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12170        ("gspell" ,gspell)
12171        ("libdazzle" ,libdazzle)
12172        ("libgda" ,libgda)
12173        ("libsoup" ,libsoup)))
12174     (native-inputs
12175      `(("glib:bin" ,glib "bin")
12176        ("itstool" ,itstool)
12177        ("pkg-config" ,pkg-config)))
12178     (propagated-inputs
12179      `(("gtksourceview" ,gtksourceview))) ; required for source view
12180     (arguments
12181      `(#:build-type "release"
12182        #:glib-or-gtk? #t
12183        #:phases
12184        (modify-phases %standard-phases
12185          (add-after 'unpack 'skip-gtk-update-icon-cache
12186            (lambda _
12187              (substitute* "build-aux/meson/meson_post_install.py"
12188                (("gtk-update-icon-cache") (which "true")))
12189              #t)))))
12190     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12191     (synopsis "Translation making program")
12192     (description
12193      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12194 for the GNOME 3.x platform with many features.  It aims to be a very complete
12195 editing environment for translation issues within the GNU gettext/GNOME desktop
12196 world.")
12197     (license license:gpl3+)))
12198
12199
12200 (define-public ocrfeeder
12201   (package
12202     (name "ocrfeeder")
12203     (version "0.8.3")
12204     (source (origin
12205               (method url-fetch)
12206               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12207                                   (version-major+minor version) "/"
12208                                   "ocrfeeder-" version ".tar.xz"))
12209               (sha256
12210                (base32
12211                 "12f5gnq92ffnd5zaj04df7jrnsdz1zn4zcgpbf5p9qnd21i2y529"))))
12212     (build-system gnu-build-system)
12213     (arguments
12214      `(#:phases
12215        (modify-phases %standard-phases
12216          (add-after
12217           'install 'wrap-program
12218           (lambda* (#:key outputs #:allow-other-keys)
12219             (let ((prog (string-append (assoc-ref outputs "out")
12220                                        "/bin/" "ocrfeeder"))
12221                   (pylib (string-append (assoc-ref outputs "out")
12222                                         "/lib/python"
12223                                         ,(version-major+minor
12224                                           (package-version python))
12225                                         "/site-packages")))
12226               (wrap-program prog
12227                 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
12228                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12229               #t))))))
12230     (native-inputs
12231      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12232        ("gobject-introspection" ,gobject-introspection)
12233        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12234        ("intltool" ,intltool)
12235        ("itstool" ,itstool)
12236        ("pkg-config" ,pkg-config)
12237        ("xmllint" ,libxml2)))
12238     (inputs
12239      `(("enchant" ,enchant)
12240        ("glib" ,glib)
12241        ("goocanvas" ,goocanvas)
12242        ("gtk" ,gtk+)
12243        ("gtkspell3" ,gtkspell3)
12244        ("libjpeg" ,libjpeg-turbo)
12245        ("libtiff" ,libtiff)
12246        ("libraw" ,libraw)
12247        ("ocrad" ,ocrad)
12248        ("python" ,python-wrapper)
12249        ("python-pygobject" ,python-pygobject)
12250        ("python-odfpy" ,python-odfpy)
12251        ("python-pillow" ,python-pillow)
12252        ("python-pyenchant" ,python-pyenchant)
12253        ("python-reportlab" ,python-reportlab)
12254        ("python-sane" ,python-sane)
12255        ("sane-backends" ,sane-backends)
12256        ("tesseract-ocr" ,tesseract-ocr)))
12257     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12258     (synopsis "Complete OCR Suite")
12259     (description "OCRFeeder is a complete Optical Character Recognition and
12260 Document Analysis and Recognition program.")
12261     (license license:gpl3+)))