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 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 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 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 Andy Tai <atai@atai.org>
  60 ;;;
  61 ;;; This file is part of GNU Guix.
  62 ;;;
  63 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  64 ;;; under the terms of the GNU General Public License as published by
  65 ;;; the Free Software Foundation; either version 3 of the License, or (at
  66 ;;; your option) any later version.
  67 ;;;
  68 ;;; GNU Guix is distributed in the hope that it will be useful, but
  69 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  70 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  71 ;;; GNU General Public License for more details.
  72 ;;;
  73 ;;; You should have received a copy of the GNU General Public License
  74 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  75
  76 (define-module (gnu packages gnome)
  77   #:use-module (gnu packages)
  78   #:use-module (gnu packages admin)
  79   #:use-module (gnu packages aidc)
  80   #:use-module (gnu packages aspell)
  81   #:use-module (gnu packages autotools)
  82   #:use-module (gnu packages avahi)
  83   #:use-module (gnu packages backup)
  84   #:use-module (gnu packages base)
  85   #:use-module (gnu packages bash)
  86   #:use-module (gnu packages bison)
  87   #:use-module (gnu packages boost)
  88   #:use-module (gnu packages build-tools)
  89   #:use-module (gnu packages calendar)
  90   #:use-module (gnu packages cdrom)
  91   #:use-module (gnu packages check)
  92   #:use-module (gnu packages cmake)
  93   #:use-module (gnu packages compression)
  94   #:use-module (gnu packages crates-io)
  95   #:use-module (gnu packages crates-graphics)
  96   #:use-module (gnu packages crates-gtk)
  97   #:use-module (gnu packages cups)
  98   #:use-module (gnu packages curl)
  99   #:use-module (gnu packages cyrus-sasl)
 100   #:use-module (gnu packages databases)
 101   #:use-module (gnu packages dbm)
 102   #:use-module (gnu packages djvu)
 103   #:use-module (gnu packages dns)
 104   #:use-module (gnu packages docbook)
 105   #:use-module (gnu packages documentation)
 106   #:use-module (gnu packages enchant)
 107   #:use-module (gnu packages flex)
 108   #:use-module (gnu packages fonts)
 109   #:use-module (gnu packages file-systems)
 110   #:use-module (gnu packages fontutils)
 111   #:use-module (gnu packages freedesktop)
 112   #:use-module (gnu packages game-development)
 113   #:use-module (gnu packages gcc)
 114   #:use-module (gnu packages gettext)
 115   #:use-module (gnu packages ghostscript)
 116   #:use-module (gnu packages gimp)
 117   #:use-module (gnu packages gl)
 118   #:use-module (gnu packages glib)
 119   #:use-module (gnu packages gnupg)
 120   #:use-module (gnu packages gnuzilla)
 121   #:use-module (gnu packages geo)
 122   #:use-module (gnu packages gperf)
 123   #:use-module (gnu packages graphviz)
 124   #:use-module (gnu packages gstreamer)
 125   #:use-module (gnu packages gtk)
 126   #:use-module (gnu packages guile)
 127   #:use-module (gnu packages ibus)
 128   #:use-module (gnu packages icu4c)
 129   #:use-module (gnu packages image)
 130   #:use-module (gnu packages imagemagick)
 131   #:use-module (gnu packages inkscape)
 132   #:use-module (gnu packages iso-codes)
 133   #:use-module (gnu packages kerberos)
 134   #:use-module (gnu packages libcanberra)
 135   #:use-module (gnu packages libffi)
 136   #:use-module (gnu packages libunistring)
 137   #:use-module (gnu packages libunwind)
 138   #:use-module (gnu packages libusb)
 139   #:use-module (gnu packages linux)
 140   #:use-module (gnu packages lirc)
 141   #:use-module (gnu packages lua)
 142   #:use-module (gnu packages mail)
 143   #:use-module (gnu packages mp3)
 144   #:use-module (gnu packages multiprecision)
 145   #:use-module (gnu packages music)
 146   #:use-module (gnu packages ncurses)
 147   #:use-module (gnu packages nettle)
 148   #:use-module (gnu packages networking)
 149   #:use-module (gnu packages ninja)
 150   #:use-module (gnu packages node)
 151   #:use-module (gnu packages nss)
 152   #:use-module (gnu packages openldap)
 153   #:use-module (gnu packages package-management)
 154   #:use-module (gnu packages password-utils)
 155   #:use-module (gnu packages pcre)
 156   #:use-module (gnu packages pdf)
 157   #:use-module (gnu packages perl)
 158   #:use-module (gnu packages photo)
 159   #:use-module (gnu packages php)
 160   #:use-module (gnu packages pkg-config)
 161   #:use-module (gnu packages polkit)
 162   #:use-module (gnu packages popt)
 163   #:use-module (gnu packages pretty-print)
 164   #:use-module (gnu packages protobuf)
 165   #:use-module (gnu packages pulseaudio)
 166   #:use-module (gnu packages python)
 167   #:use-module (gnu packages python-crypto)
 168   #:use-module (gnu packages python-web)
 169   #:use-module (gnu packages python-xyz)
 170   #:use-module (gnu packages rdesktop)
 171   #:use-module (gnu packages rdf)
 172   #:use-module (gnu packages readline)
 173   #:use-module (gnu packages ruby)
 174   #:use-module (gnu packages rust)
 175   #:use-module (gnu packages samba)
 176   #:use-module (gnu packages scanner)
 177   #:use-module (gnu packages sdl)
 178   #:use-module (gnu packages search)
 179   #:use-module (gnu packages selinux)
 180   #:use-module (gnu packages slang)
 181   #:use-module (gnu packages speech)
 182   #:use-module (gnu packages spice)
 183   #:use-module (gnu packages sqlite)
 184   #:use-module (gnu packages ssh)
 185   #:use-module (gnu packages swig)
 186   #:use-module (gnu packages tex)
 187   #:use-module (gnu packages time)
 188   #:use-module (gnu packages tls)
 189   #:use-module (gnu packages valgrind)
 190   #:use-module (gnu packages version-control)
 191   #:use-module (gnu packages video)
 192   #:use-module (gnu packages virtualization)
 193   #:use-module (gnu packages vpn)
 194   #:use-module (gnu packages web)
 195   #:use-module (gnu packages webkit)
 196   #:use-module (gnu packages xdisorg)
 197   #:use-module (gnu packages xiph)
 198   #:use-module (gnu packages xml)
 199   #:use-module (gnu packages xorg)
 200   #:use-module (gnu artwork)
 201   #:use-module ((guix build utils) #:select (modify-phases))
 202   #:use-module (guix build-system cargo)
 203   #:use-module (guix build-system cmake)
 204   #:use-module (guix build-system glib-or-gtk)
 205   #:use-module (guix build-system gnu)
 206   #:use-module (guix build-system meson)
 207   #:use-module (guix build-system python)
 208   #:use-module (guix build-system trivial)
 209   #:use-module (guix download)
 210   #:use-module (guix git-download)
 211   #:use-module ((guix licenses) #:prefix license:)
 212   #:use-module (guix packages)
 213   #:use-module (guix utils)
 214   #:use-module (guix gexp)
 215   #:use-module (guix monads)
 216   #:use-module (guix store)
 217   #:use-module (ice-9 match)
 218   #:use-module (srfi srfi-1))
 219
 220 (define-public gupnp-igd
 221   (package
 222     (name "gupnp-igd")
 223     (version "1.2.0")
 224     (source
 225      (origin
 226        (method url-fetch)
 227        (uri
 228         (string-append "mirror://gnome/sources/" name "/"
 229                        (version-major+minor version) "/"
 230                        name "-" version ".tar.xz"))
 231        (sha256
 232         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 233     (build-system meson-build-system)
 234     (outputs '("out" "doc"))
 235     (arguments
 236      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 237        #:configure-flags (list "-Dgtk_doc=true")
 238        #:phases
 239        (modify-phases %standard-phases
 240          (add-after 'unpack 'patch-docbook-xml
 241            (lambda* (#:key inputs #:allow-other-keys)
 242              (with-directory-excursion "doc"
 243                (substitute* "gupnp-igd-docs.xml"
 244                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 245                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 246                                  "/xml/dtd/docbook/"))))
 247              #t))
 248          (add-after 'install 'move-doc
 249            (lambda* (#:key outputs #:allow-other-keys)
 250              (let* ((out (assoc-ref outputs "out"))
 251                     (doc (assoc-ref outputs "doc")))
 252                (mkdir-p (string-append doc "/share"))
 253                (rename-file
 254                 (string-append out "/share/gtk-doc")
 255                 (string-append doc "/share/gtk-doc"))
 256                #t))))))
 257     (native-inputs
 258      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 259        ("docbook-xsl" ,docbook-xsl)
 260        ("glib:bin" ,glib "bin")
 261        ("gobject-introspection" ,gobject-introspection)
 262        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 263        ("gtk-doc" ,gtk-doc)
 264        ("pkg-config" ,pkg-config)))
 265     (propagated-inputs
 266      `(("glib" ,glib)
 267        ("glib-networking" ,glib-networking)
 268        ("gssdp" ,gssdp)
 269        ("gupnp" ,gupnp)
 270        ("libsoup" ,libsoup)))
 271     (synopsis "UPnP IGD for GNOME")
 272     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 273     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 274     (license license:lgpl2.1+)))
 275
 276 (define-public brasero
 277   (package
 278     (name "brasero")
 279     (version "3.12.2")
 280     (source (origin
 281              (method url-fetch)
 282              (uri (string-append "mirror://gnome/sources/brasero/"
 283                                  (version-major+minor version) "/"
 284                                  "brasero-" version ".tar.xz"))
 285              (sha256
 286               (base32
 287                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 288     (build-system glib-or-gtk-build-system)
 289     (arguments
 290      `(#:configure-flags (list
 291                           (string-append "--with-girdir="
 292                                          (assoc-ref %outputs "out")
 293                                          "/share/gir-1.0")
 294                           (string-append "--with-typelibdir="
 295                                          (assoc-ref %outputs "out")
 296                                          "/lib/girepository-1.0"))
 297        #:phases
 298        (modify-phases %standard-phases
 299          (add-before 'configure 'embed-growisofs
 300            (lambda* (#:key inputs #:allow-other-keys)
 301              (substitute* "plugins/growisofs/burn-growisofs.c"
 302                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 303              #t)))))
 304     (propagated-inputs
 305      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 306     (native-inputs
 307      `(("intltool" ,intltool)
 308        ("itstool" ,itstool)
 309        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 310        ("gobject-introspection" ,gobject-introspection)
 311        ("pkg-config" ,pkg-config)))
 312     (inputs
 313      `(("dvd+rw-tools" ,dvd+rw-tools)
 314        ("glib" ,glib)
 315        ("gnome-doc-utils" ,gnome-doc-utils)
 316        ("gstreamer" ,gstreamer)
 317        ("gst-plugins-base" ,gst-plugins-base)
 318        ("gtk+" ,gtk+)
 319        ("libcanberra" ,libcanberra)
 320        ("libice" ,libice)
 321        ("libnotify" ,libnotify)
 322        ("libsm" ,libsm)
 323        ("libxml2" ,libxml2)
 324        ("totem-pl-parser" ,totem-pl-parser)))
 325     (home-page "https://wiki.gnome.org/Apps/Brasero")
 326     (synopsis "CD/DVD burning tool for Gnome")
 327     (description "Brasero is an application to burn CD/DVD for the Gnome
 328 Desktop.  It is designed to be as simple as possible and has some unique
 329 features to enable users to create their discs easily and quickly.")
 330     (license license:gpl2+)))
 331
 332 (define-public libcloudproviders
 333   (package
 334     (name "libcloudproviders")
 335     (version "0.3.1")
 336     (source
 337      (origin
 338        (method url-fetch)
 339        (uri
 340         (string-append "mirror://gnome/sources/" name "/"
 341                        (version-major+minor version) "/"
 342                        name "-" version ".tar.xz"))
 343        (sha256
 344         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 345     (build-system meson-build-system)
 346     (outputs '("out" "doc"))
 347     (arguments
 348      `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
 349        #:configure-flags
 350        (list
 351         "-Denable-gtk-doc=true")
 352        #:phases
 353        (modify-phases %standard-phases
 354          (add-after 'install 'move-doc
 355            (lambda* (#:key outputs #:allow-other-keys)
 356              (let* ((out (assoc-ref outputs "out"))
 357                     (doc (assoc-ref outputs "doc")))
 358                (mkdir-p (string-append doc "/share"))
 359                (rename-file
 360                 (string-append out "/share/gtk-doc")
 361                 (string-append doc "/share/gtk-doc"))
 362                #t))))))
 363     (native-inputs
 364      `(("glib:bin" ,glib "bin")
 365        ("gobject-introspection" ,gobject-introspection)
 366        ("gtk-doc" ,gtk-doc)
 367        ("pkg-config" ,pkg-config)
 368        ("vala" ,vala)))
 369     (inputs
 370      `(("glib" ,glib)
 371        ("glib-networking" ,glib-networking)))
 372     (synopsis "Cloudproviders Integration API")
 373     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 374 clients to expose their services.  Clients such as file managers and desktop
 375 environments can then provide integrated access to the cloud providers
 376 services.")
 377     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 378     (license license:lgpl3+)))
 379
 380 (define-public libgrss
 381   (package
 382     (name "libgrss")
 383     (version "0.7.0")
 384     (source
 385      (origin
 386        (method url-fetch)
 387        (uri
 388         (string-append "mirror://gnome/sources/" name "/"
 389                        (version-major+minor version) "/"
 390                        name "-" version ".tar.xz"))
 391        (sha256
 392         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))))
 393     (build-system glib-or-gtk-build-system)
 394     (outputs '("out" "doc"))
 395     (arguments
 396      `(#:configure-flags
 397        (list
 398         "--enable-gtk-doc"
 399         (string-append "--with-html-dir="
 400                        (assoc-ref %outputs "doc")
 401                        "/share/gtk-doc/html"))
 402        #:phases
 403        (modify-phases %standard-phases
 404          (add-after 'unpack 'patch-docbook-xml
 405            (lambda* (#:key inputs #:allow-other-keys)
 406              (with-directory-excursion "doc/reference"
 407                (substitute* "libgrss-docs.sgml"
 408                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 409                   (string-append (assoc-ref inputs "docbook-xml")
 410                                  "/xml/dtd/docbook/"))))
 411              #t)))))
 412     (native-inputs
 413      `(("docbook-xml" ,docbook-xml-4.1.2)
 414        ("gobject-introspection" ,gobject-introspection)
 415        ("gtk-doc" ,gtk-doc)
 416        ("pkg-config" ,pkg-config)))
 417     (propagated-inputs
 418      `(("glib" ,glib)
 419        ("libsoup" ,libsoup)
 420        ("libxml2" ,libxml2)))
 421     (synopsis "Glib library for feeds")
 422     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 423 and other formats.")
 424     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 425     (license license:lgpl3+)))
 426
 427 (define-public gnome-js-common
 428   (package
 429     (name "gnome-js-common")
 430     (version "0.1.2")
 431     (source
 432      (origin
 433        (method url-fetch)
 434        (uri
 435         (string-append "mirror://gnome/sources/" name "/"
 436                        (version-major+minor version) "/"
 437                        name "-" version ".tar.gz"))
 438        (sha256
 439         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 440     (build-system glib-or-gtk-build-system)
 441     (arguments
 442      `(#:configure-flags
 443        (list
 444         "--disable-static")))
 445     (native-inputs
 446      `(("gettext" ,gettext-minimal)
 447        ("intltool" ,intltool)
 448        ("pkg-config" ,pkg-config)))
 449     (synopsis "Common JS Modules")
 450     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 451 bindings.")
 452     (home-page "https://wiki.gnome.org/Projects/Seed")
 453     (license license:gpl3+)))
 454
 455 (define-public seed
 456   (package
 457     (name "seed")
 458     (version "3.8.1")
 459     (source
 460      (origin
 461        (method url-fetch)
 462        (uri
 463         (string-append "mirror://gnome/sources/" name "/"
 464                        (version-major+minor version) "/"
 465                        name "-" version ".tar.xz"))
 466        (sha256
 467         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 468        (patches
 469         (search-patches "seed-webkit.patch"))))
 470     (build-system glib-or-gtk-build-system)
 471     (outputs '("out" "doc"))
 472     (arguments
 473      `(#:configure-flags
 474        (list
 475         "--disable-static"
 476         "--enable-xorg-module"
 477         (string-append "--with-html-dir="
 478                        (assoc-ref %outputs "doc")
 479                        "/share/gtk-doc/html")
 480         "--with-webkit=4.0")
 481        #:phases
 482        (modify-phases %standard-phases
 483          ;; The seed-webkit.patch patches configure.ac.
 484          ;; So the source files need to be re-bootstrapped.
 485          (add-after 'unpack 'trigger-bootstrap
 486            (lambda _
 487              (for-each delete-file
 488                        (list
 489                         "configure"
 490                         "Makefile.in"))
 491              #t))
 492          (add-after 'unpack 'patch-tests
 493            (lambda* (#:key outputs #:allow-other-keys)
 494              (substitute* (find-files "." "\\.js$")
 495               (("#!/usr/bin/env seed")
 496                (string-append "#!" (getcwd) "/src/seed")))
 497              #t))
 498          (add-before 'build 'patch-docbook-xml
 499            (lambda* (#:key inputs #:allow-other-keys)
 500              (with-directory-excursion "doc"
 501                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 502                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 503                   (string-append (assoc-ref inputs "docbook-xml")
 504                                  "/xml/dtd/docbook/"))))
 505              #t)))))
 506     (native-inputs
 507      `(("autoconf" ,autoconf)
 508        ("automake" ,automake)
 509        ("docbook-xml" ,docbook-xml-4.1.2)
 510        ("gettext" ,gettext-minimal)
 511        ("gobject-introspection" ,gobject-introspection)
 512        ("gtk-doc" ,gtk-doc)
 513        ("intltool" ,intltool)
 514        ("libtool" ,libtool)
 515        ("pkg-config" ,pkg-config)))
 516     (inputs
 517      `(("cairo" ,cairo)
 518        ("dbus" ,dbus)
 519        ("dbus-glib" ,dbus-glib)
 520        ("gnome-js-common" ,gnome-js-common)
 521        ("gtk+" ,gtk+)
 522        ("gtk+-2" ,gtk+-2)
 523        ("libffi" ,libffi)
 524        ("libxml2" ,libxml2)
 525        ("mpfr" ,mpfr)
 526        ("readline" ,readline)
 527        ("sqlite" ,sqlite)
 528        ("xscrnsaver" ,libxscrnsaver)))
 529     (propagated-inputs
 530      `(("glib" ,glib)
 531        ("webkit" ,webkitgtk)))
 532     (synopsis "GObject JavaScriptCore bridge")
 533     (description "Seed is a library and interpreter, dynamically bridging
 534 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 535 GNOME platform.  It serves as something which enables you to write standalone
 536 applications in JavaScript, or easily enable your application to be extensible
 537 in JavaScript.")
 538     (home-page "https://wiki.gnome.org/Projects/Seed")
 539     (license license:lgpl2.0+)))
 540
 541 (define-public libdmapsharing
 542   (package
 543     (name "libdmapsharing")
 544     (version "3.9.10")
 545     (source
 546      (origin
 547        (method url-fetch)
 548        (uri
 549         (string-append "https://www.flyn.org/projects/"
 550                        name "/" name "-" version ".tar.gz"))
 551        (sha256
 552         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 553     (build-system glib-or-gtk-build-system)
 554     (outputs '("out" "doc"))
 555     (arguments
 556      `(#:tests? #f                      ; Tests require networking.
 557        #:configure-flags
 558        (list
 559         "--disable-static"
 560         (string-append "--with-html-dir="
 561                        (assoc-ref %outputs "doc")
 562                        "/share/gtk-doc/html"))
 563        #:phases
 564        (modify-phases %standard-phases
 565          (add-after 'unpack 'patch-docbook-xml
 566            (lambda* (#:key inputs #:allow-other-keys)
 567              (with-directory-excursion "doc"
 568                (substitute* "libdmapsharing-4.0-docs.xml"
 569                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 570                   (string-append (assoc-ref inputs "docbook-xml")
 571                                  "/xml/dtd/docbook/"))))
 572              #t)))))
 573     (native-inputs
 574      `(("check" ,check)
 575        ("docbook-xml" ,docbook-xml-4.3)
 576        ("gobject-introspection" ,gobject-introspection)
 577        ("pedansee" ,pedansee)
 578        ("pkg-config" ,pkg-config)
 579        ("vala" ,vala)))
 580     (inputs
 581      `(("avahi" ,avahi)
 582        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 583        ("gee" ,libgee)
 584        ("gst-plugins-base" ,gst-plugins-base)
 585        ("gtk+" ,gtk+)))
 586     (propagated-inputs
 587      `(("glib" ,glib)
 588        ("glib-networking" ,glib-networking)
 589        ("gstreamer" ,gstreamer)
 590        ("libsoup" ,libsoup)))
 591     (synopsis "Media management library")
 592     (description "Libdmapsharing is a library which allows programs to access,
 593 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 594 It is written in C using GObject and libsoup.")
 595     (home-page "https://launchpad.net/gtx")
 596     (license license:lgpl2.1+)))
 597
 598 (define-public gtx
 599   (package
 600     (name "gtx")
 601     (version "0.2.2")
 602     (source
 603      (origin
 604        (method url-fetch)
 605        (uri
 606         (string-append "https://launchpad.net/gtx/trunk/"
 607                        version "/+download/gtx-" version ".tar.gz"))
 608        (sha256
 609         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 610     (build-system glib-or-gtk-build-system)
 611     (outputs '("out" "doc"))
 612     (arguments
 613      `(#:configure-flags
 614        (list
 615         "--disable-static"
 616         "--enable-gtk-doc"
 617         (string-append "--with-html-dir="
 618                        (assoc-ref %outputs "doc")
 619                        "/share/gtk-doc/html"))))
 620     (native-inputs
 621      `(("gobject-introspection" ,gobject-introspection)
 622        ("gtk-doc" ,gtk-doc)
 623        ("pkg-config" ,pkg-config)))
 624     (propagated-inputs
 625      `(("glib" ,glib)))
 626     (synopsis "GLib Testing Framework")
 627     (description "GTX is a small collection of convenience functions intended to
 628 enhance the GLib testing framework.  With specific emphasis on easing the pain
 629 of writing test cases for asynchronous interactions.")
 630     (home-page "https://launchpad.net/gtx")
 631     (license license:lgpl2.1+)))
 632
 633 (define-public dee
 634   (package
 635     (name "dee")
 636     (version "1.2.7")
 637     (source
 638      (origin
 639        (method url-fetch)
 640        (uri
 641         (string-append "https://launchpad.net/dee/1.0/"
 642                        version "/+download/dee-" version ".tar.gz"))
 643        (sha256
 644         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 645        (patches
 646         (search-patches "dee-vapi.patch"))))
 647     (build-system glib-or-gtk-build-system)
 648     (outputs '("out" "doc"))
 649     (arguments
 650      `(#:configure-flags
 651        (list
 652         "--disable-maintainer-flags"
 653         (string-append "--with-pygi-overrides-dir="
 654                        (assoc-ref %outputs "out")
 655                        "/lib/python"
 656                        ,(version-major+minor
 657                          (package-version python))
 658                        "/site-packages/gi/overrides")
 659         (string-append "--with-html-dir="
 660                        (assoc-ref %outputs "doc")
 661                        "/share/gtk-doc/html"))
 662        #:phases
 663        (modify-phases %standard-phases
 664          (add-after 'unpack 'patch-docbook-xml
 665            (lambda* (#:key inputs #:allow-other-keys)
 666              (with-directory-excursion "doc/reference/dee-1.0"
 667                (substitute* "dee-1.0-docs.sgml"
 668                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 669                   (string-append (assoc-ref inputs "docbook-xml")
 670                                  "/xml/dtd/docbook/"))))
 671              #t))
 672          (add-after 'patch-docbook-xml 'disable-failing-tests
 673            (lambda _
 674              (substitute* "tests/test-icu.c"
 675                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 676                 "")
 677                (("setup, test_ascii_folder, teardown\\);")
 678                 ""))
 679              #t))
 680          (add-before 'check 'pre-check
 681            (lambda _
 682              ;; Tests require a running dbus-daemon.
 683              (system "dbus-daemon &")
 684              ;; For missing '/etc/machine-id'.
 685              (setenv "DBUS_FATAL_WARNINGS" "0")
 686              #t)))))
 687     (native-inputs
 688      `(("dbus" ,dbus)
 689        ("dbus-test-runner" ,dbus-test-runner)
 690        ("docbook-xml" ,docbook-xml-4.3)
 691        ("gobject-introspection" ,gobject-introspection)
 692        ("gtk-doc" ,gtk-doc)
 693        ;; Would only be required by configure flag "--enable-extended-tests".
 694        ;("gtx" ,gtx)
 695        ("pkg-config" ,pkg-config)
 696        ("pygobject" ,python-pygobject)
 697        ("python" ,python-wrapper)
 698        ("vala" ,vala)))
 699     (inputs
 700      `(("icu" ,icu4c)))
 701     (propagated-inputs
 702      `(("glib" ,glib)))
 703     (synopsis "Model to synchronize multiple instances over DBus")
 704     (description "Dee is a library that uses DBus to provide objects allowing
 705 you to create Model-View-Controller type programs across DBus.  It also consists
 706 of utility objects which extend DBus allowing for peer-to-peer discoverability
 707 of known objects without needing a central registrar.")
 708     (home-page "https://launchpad.net/dee")
 709     (license
 710      ;; Dual-licensed
 711      (list
 712       license:lgpl3+
 713       license:gpl3+))))
 714
 715 (define-public zeitgeist
 716   (package
 717     (name "zeitgeist")
 718     (version "1.0.3")
 719     (source
 720      (origin
 721        (method git-fetch)
 722        (uri
 723         (git-reference
 724          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 725          (commit
 726           (string-append "v" version))))
 727        (file-name
 728         (git-file-name name version))
 729        (sha256
 730         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 731     (build-system glib-or-gtk-build-system)
 732     (arguments
 733      `(#:configure-flags
 734        (list
 735         "--enable-explain-queries"
 736         "--enable-fts"
 737         "--enable-docs")
 738        #:phases
 739        (modify-phases %standard-phases
 740          (add-after 'unpack 'patch-docbook-xml
 741            (lambda* (#:key inputs #:allow-other-keys)
 742              (with-directory-excursion "doc/libzeitgeist"
 743                (substitute* "zeitgeist-gtkdoc-index.sgml"
 744                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 745                   (string-append (assoc-ref inputs "docbook-xml")
 746                                  "/xml/dtd/docbook/"))))
 747              #t))
 748          (add-after 'patch-docbook-xml 'disable-failing-tests
 749            (lambda _
 750              (substitute* "test/direct/Makefile.am"
 751                (("      log-test ")
 752                 ""))
 753              (substitute* "test/c/Makefile.am"
 754                (("      test-log ")
 755                 ""))
 756              #t))
 757          (add-before 'bootstrap 'remove-autogen-script
 758            (lambda _
 759              ;; To honor `autoreconf -vif` by build-system.
 760              (delete-file "autogen.sh")
 761              #t)))))
 762     (native-inputs
 763      `(("autoconf" ,autoconf)
 764        ("automake" ,automake)
 765        ("docbook-xml" ,docbook-xml-4.3)
 766        ("gettext" ,gettext-minimal)
 767        ("gobject-introspection" ,gobject-introspection)
 768        ("gtk-doc" ,gtk-doc)
 769        ("libtool" ,libtool)
 770        ("pkg-config" ,pkg-config)
 771        ("vala" ,vala)
 772        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 773     (inputs
 774      `(("dee-icu" ,dee)
 775        ("gtk+" ,gtk+)
 776        ("json-glib" ,json-glib)
 777        ("sqlite" ,sqlite)
 778        ("telepathy-glib" ,telepathy-glib)
 779        ("python" ,python-wrapper)
 780        ("python-rdflib" ,python-rdflib)
 781        ("xapian-config" ,xapian)))
 782     (propagated-inputs
 783      `(("glib" ,glib)))
 784     (synopsis "Desktop Activity Logging")
 785     (description "Zeitgeist is a service which logs the users’s activities and
 786 events, anywhere from files opened to websites visited and conversations.  It
 787 makes this information readily available for other applications to use.  It is
 788 able to establish relationships between items based on similarity and usage
 789 patterns.")
 790     (home-page "https://zeitgeist.freedesktop.org/")
 791     (license
 792      ;; Dual-licensed
 793      (list
 794       license:lgpl2.1+
 795       license:gpl2+))))
 796
 797 (define-public gnome-photos
 798   (package
 799     (name "gnome-photos")
 800     (version "3.34.2")
 801     (source
 802      (origin
 803        (method url-fetch)
 804        (uri
 805         (string-append "mirror://gnome/sources/" name "/"
 806                        (version-major+minor version) "/"
 807                        name "-" version ".tar.xz"))
 808        (sha256
 809         (base32
 810          "06ml5sf8xhpan410msqz085hmfc7082d368pb82yq646y9pcfn9w"))))
 811     (build-system meson-build-system)
 812     (arguments
 813      `(#:glib-or-gtk? #t
 814        #:configure-flags
 815        (list "-Ddogtail=false"     ; Not available
 816              ;; Required for RUNPATH validation.
 817              (string-append "-Dc_link_args=-Wl,-rpath="
 818                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 819        #:phases
 820        (modify-phases %standard-phases
 821          (add-after 'install 'wrap-gnome-photos
 822            (lambda* (#:key inputs outputs #:allow-other-keys)
 823              (let*
 824                  ((out (assoc-ref outputs "out")))
 825                (wrap-program (string-append out "/bin/gnome-photos")
 826                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))))
 827              #t)))))
 828     (native-inputs
 829      `(("dbus" ,dbus)
 830        ("desktop-file-utils" ,desktop-file-utils)
 831        ("gettext" ,gettext-minimal)
 832        ("git" ,git-minimal)
 833        ("glib:bin" ,glib "bin")
 834        ("gobject-introspection" ,gobject-introspection)
 835        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 836        ("gtk+:bin" ,gtk+ "bin")
 837        ("itstool" ,itstool)
 838        ("pkg-config" ,pkg-config)))
 839     (inputs
 840      `(("babl" ,babl)
 841        ("cairo" ,cairo)
 842        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 843        ("gegl" ,gegl)
 844        ("geocode-glib" ,geocode-glib)
 845        ("gexiv2" ,gexiv2)
 846        ("gnome-online-accounts" ,gnome-online-accounts)
 847        ("gnome-online-miners" ,gnome-online-miners)
 848        ("grilo" ,grilo)
 849        ("grilo-plugins" ,grilo-plugins)
 850        ("gtk+" ,gtk+)
 851        ("libdazzle" ,libdazzle)
 852        ("libgdata" ,libgdata)
 853        ("libgfbgraph" ,gfbgraph)
 854        ("libjpeg" ,libjpeg-turbo)
 855        ("libpng" ,libpng)
 856        ("librest" ,rest)
 857        ("pygobject" ,python-pygobject)
 858        ("tracker" ,tracker)
 859        ("tracker-miners" ,tracker-miners)))
 860     (synopsis "Access, organize and share your photos on GNOME desktop")
 861     (description "GNOME Photos is a simple and elegant replacement for using a
 862 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 863 cloud integration is offered through GNOME Online Accounts.")
 864     (home-page "https://wiki.gnome.org/Apps/Photos")
 865     (license license:gpl3+)))
 866
 867 (define-public gnome-music
 868   (package
 869     (name "gnome-music")
 870     (version "3.34.5")
 871     (source
 872      (origin
 873        (method url-fetch)
 874        (uri
 875         (string-append "mirror://gnome/sources/" name "/"
 876                        (version-major+minor version) "/"
 877                        name "-" version ".tar.xz"))
 878        (sha256
 879         (base32
 880          "1r5sfw5cbd6qqh27lzhblazir0bfi3k7nqppw66qw990isqm5psy"))))
 881     (build-system meson-build-system)
 882     (arguments
 883      `(#:glib-or-gtk? #t
 884        #:phases
 885        (modify-phases %standard-phases
 886          (add-after 'install 'wrap-gnome-music
 887            (lambda* (#:key inputs outputs #:allow-other-keys)
 888              (let*
 889                  ((out (assoc-ref outputs "out"))
 890                   (pylib (string-append out "/lib/python"
 891                                         ,(version-major+minor
 892                                           (package-version python))
 893                                         "/site-packages")))
 894                (wrap-program (string-append out "/bin/gnome-music")
 895                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
 896                  `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 897                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))
 898                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))))
 899              #t)))))
 900     (native-inputs
 901      `(("desktop-file-utils" ,desktop-file-utils)
 902        ("gettext" ,gettext-minimal)
 903        ("glib:bin" ,glib "bin")
 904        ("gobject-introspection" ,gobject-introspection)
 905        ("gtk+:bin" ,gtk+ "bin")
 906        ("itstools" ,itstool)
 907        ("pkg-config" ,pkg-config)))
 908     (inputs
 909      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 910        ("grilo" ,grilo)
 911        ("grilo-plugins" ,grilo-plugins)
 912        ("gst-plugins-base" ,gst-plugins-base)
 913        ("gstreamer" ,gstreamer)
 914        ("gvfs" ,gvfs)
 915        ("libdazzle" ,libdazzle)
 916        ("libmediaart" ,libmediaart)
 917        ("libsoup" ,libsoup)
 918        ("pycairo" ,python-pycairo)
 919        ("pygobject" ,python-pygobject)
 920        ("tracker" ,tracker)
 921        ("tracker-miners" ,tracker-miners)))
 922     (synopsis "Simple music player for GNOME desktop")
 923     (description "GNOME Music is the new GNOME music playing application that
 924 aims to combine an elegant and immersive browsing experience with simple
 925 and straightforward controls.")
 926     (home-page "https://wiki.gnome.org/Apps/Music")
 927     (license license:gpl2+)))
 928
 929 (define-public portablexdr
 930   (package
 931     (name "portablexdr")
 932     (version "4.9.1")
 933     (source
 934      (origin
 935        (method url-fetch)
 936        (uri
 937         (string-append "https://people.redhat.com/~rjones/" name "/files/"
 938                        name "-" version ".tar.gz"))
 939        (sha256
 940         (base32
 941          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
 942     (build-system gnu-build-system)
 943     (synopsis "External Data Representation Library")
 944     (description "PortableXDR is an implementation of External Data
 945 Representation (XDR) Library.  It is a standard data serialization format, for
 946 uses such as computer network protocols.  It allows data to be transferred
 947 between different kinds of computer systems.")
 948     (home-page "https://people.redhat.com/~rjones/portablexdr/")
 949     (license
 950      (list
 951       license:gpl2+
 952       license:lgpl2.1+))))
 953
 954 (define-public tepl
 955   (package
 956     (name "tepl")
 957     (version "4.4.0")
 958     (source
 959      (origin
 960        (method url-fetch)
 961        (uri
 962         (string-append "mirror://gnome/sources/" name "/"
 963                        (version-major+minor version) "/"
 964                        name "-" version ".tar.xz"))
 965        (sha256
 966         (base32
 967          "0mm2z849hnni7597an05mrv0dckrxjngpf2xfa0g5s17i8x6gxp6"))))
 968     (build-system glib-or-gtk-build-system)
 969     (arguments
 970      `(#:tests? #f))                    ; FIX-ME: Requires gvfs
 971     (native-inputs
 972      `(("gobject-introspection" ,gobject-introspection)
 973        ("pkg-config" ,pkg-config)))
 974     (inputs
 975      `(("amtk" ,amtk)
 976        ("glib" ,glib)
 977        ("gtk+" ,gtk+)
 978        ("gtksourceview" ,gtksourceview)
 979        ("libxml2" ,libxml2)
 980        ("uchardet" ,uchardet)))
 981     (synopsis "Text editor product line")
 982     (description "Tepl is a library that eases the development of
 983 GtkSourceView-based text editors and IDEs.")
 984     (home-page "https://wiki.gnome.org/Projects/Tepl")
 985     (license license:lgpl2.1+)))
 986
 987 (define-public krb5-auth-dialog
 988   (package
 989     (name "krb5-auth-dialog")
 990     (version "3.26.1")
 991     (source
 992      (origin
 993        (method url-fetch)
 994        (uri
 995         (string-append "mirror://gnome/sources/" name "/"
 996                        (version-major+minor version) "/"
 997                        name "-" version ".tar.xz"))
 998        (sha256
 999         (base32
1000          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1001     (build-system glib-or-gtk-build-system)
1002     (native-inputs
1003      `(("intltool" ,intltool)
1004        ("itstool" ,itstool)
1005        ("libxml2" ,libxml2)
1006        ("pkg-config" ,pkg-config)
1007        ("python-wrapper" ,python-wrapper)))
1008     (inputs
1009      `(("glib" ,glib)
1010        ("gtk+" ,gtk+)
1011        ("libnotify" ,libnotify)
1012        ("mit-krb5" ,mit-krb5)
1013        ("network-manager" ,network-manager)))
1014     (synopsis "Popup dialogs for Kerberos 5")
1015     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1016 tickets, and pops up a dialog when they are about to expire.")
1017     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1018     (license license:gpl2+)))
1019
1020 (define-public notification-daemon
1021   (package
1022     (name "notification-daemon")
1023     (version "3.20.0")
1024     (source
1025      (origin
1026        (method url-fetch)
1027        (uri
1028         (string-append "mirror://gnome/sources/" name "/"
1029                        (version-major+minor version) "/"
1030                        name "-" version ".tar.xz"))
1031        (sha256
1032         (base32
1033          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1034     (build-system glib-or-gtk-build-system)
1035     (native-inputs
1036      `(("intltool" ,intltool)
1037        ("pkg-config" ,pkg-config)))
1038     (inputs
1039      `(("glib" ,glib)
1040        ("gtk+" ,gtk+)
1041        ("x11" ,libx11)))
1042     (synopsis "Notification Daemon for GNOME Desktop")
1043     (description "Notification-Daemon is the server implementation of the
1044 freedesktop.org desktop notification specification.")
1045     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1046     (license license:gpl2+)))
1047
1048 (define-public mm-common
1049   (package
1050     (name "mm-common")
1051     (version "1.0.2")
1052     (source (origin
1053               (method url-fetch)
1054               (uri (string-append "mirror://gnome/sources/mm-common/"
1055                                   (version-major+minor version) "/"
1056                                   "mm-common-" version ".tar.xz"))
1057               (sha256
1058                (base32
1059                 "07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
1060     (build-system meson-build-system)
1061     (arguments
1062      `(#:phases
1063        (modify-phases %standard-phases
1064          (add-after 'unpack 'patch
1065            (lambda* (#:key inputs #:allow-other-keys)
1066              (substitute* "util/mm-common-prepare.in"
1067               (("ln") (string-append (assoc-ref inputs "coreutils")
1068                                      "/bin/ln"))
1069               (("cp") (string-append (assoc-ref inputs "coreutils")
1070                                      "/bin/cp"))
1071               (("sed") (string-append (assoc-ref inputs "sed")
1072                                       "/bin/sed"))
1073               (("cat") (string-append (assoc-ref inputs "coreutils")
1074                                       "/bin/cat")))
1075              #t)))))
1076     (native-inputs
1077      `(("coreutils" ,coreutils)
1078        ("gettext" ,gettext-minimal)
1079        ("pkg-config" ,pkg-config)
1080        ("sed" ,sed)))
1081     (inputs
1082      `(("python" ,python)))
1083     (synopsis "Module of GNOME C++ bindings")
1084     (description "The mm-common module provides the build infrastructure
1085 and utilities shared among the GNOME C++ binding libraries.  Release
1086 archives of mm-common include the Doxygen tag file for the GNU C++
1087 Library reference documentation.")
1088     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1089     (license license:gpl2+)))
1090
1091 (define-public phodav
1092   (package
1093    (name "phodav")
1094    (version "2.5")
1095    (source (origin
1096             (method url-fetch)
1097             (uri (string-append "mirror://gnome/sources/" name "/"
1098                                 (version-major+minor version) "/"
1099                                 name "-" version ".tar.xz"))
1100             (sha256
1101              (base32
1102               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1103    (build-system meson-build-system)
1104    (arguments
1105     `(#:phases
1106       (modify-phases %standard-phases
1107         (add-before 'check 'start-virtual-dir-server
1108           ;; The same server when started by tests/virtual-dir returns an
1109           ;; unexpected status (4 instead of 200) and fails a test.  It is
1110           ;; unclear why starting it manually here makes it pass.
1111           (lambda _
1112             (system "tests/virtual-dir-server &")
1113             #t)))))
1114    (native-inputs
1115     `(("docbook-xml" ,docbook-xml-4.3)
1116       ("gettext" ,gettext-minimal)
1117       ("glib:bin" ,glib "bin")
1118       ("gtk-doc" ,gtk-doc)
1119       ("pkg-config" ,pkg-config)))
1120    (inputs
1121     `(("avahi" ,avahi)
1122       ("libgudev" ,libgudev)
1123       ("libsoup" ,libsoup)))
1124    (synopsis "WebDav server implementation using libsoup")
1125    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1126 but it is generic enough to be reused in other projects,
1127 in particular in the GNOME desktop.")
1128    (home-page "https://wiki.gnome.org/phodav")
1129    (license license:lgpl2.1+)))
1130
1131 (define-public gnome-color-manager
1132   (package
1133    (name "gnome-color-manager")
1134    (version "3.32.0")
1135    (source (origin
1136             (method url-fetch)
1137             (uri (string-append "mirror://gnome/sources/" name "/"
1138                                 (version-major+minor version) "/"
1139                                 name "-" version ".tar.xz"))
1140             (sha256
1141              (base32
1142               "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
1143    (build-system meson-build-system)
1144    (arguments
1145     `(#:glib-or-gtk? #t
1146       #:phases
1147        (modify-phases %standard-phases
1148         (add-before
1149          'check 'pre-check
1150          (lambda _
1151            ;; Tests require a running X server.
1152            (system "Xvfb :1 &")
1153            (setenv "DISPLAY" ":1")
1154            #t)))))
1155    (native-inputs
1156     `(("desktop-file-utils" ,desktop-file-utils)
1157       ("gettext" ,gettext-minimal)
1158       ("glib:bin" ,glib "bin")
1159       ("gtk+:bin" ,gtk+ "bin")
1160       ("itstool" ,itstool)
1161       ("pkg-config" ,pkg-config)
1162       ("xorg-server" ,xorg-server-for-tests)))
1163    (inputs
1164     `(("adwaita-icon-theme" ,adwaita-icon-theme)
1165       ("appstream-glib" ,appstream-glib)
1166       ("colord-gtk" ,colord-gtk)
1167       ("exiv2" ,exiv2)
1168       ("gnome-desktop" ,gnome-desktop)
1169       ("libcanberra" ,libcanberra)
1170       ("libexif" ,libexif)
1171       ("libtiff" ,libtiff)
1172       ("libxrandr" ,libxrandr)
1173       ("libxtst" ,libxtst)
1174       ("libxxf86vm" ,libxxf86vm)
1175       ("vte" ,vte)
1176       ("xorgproto" ,xorgproto)))
1177    (synopsis "Color profile manager for the GNOME desktop")
1178    (description "GNOME Color Manager is a session framework that makes
1179 it easy to manage, install and generate color profiles
1180 in the GNOME desktop.")
1181    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1182    (license license:gpl2+)))
1183
1184 (define-public gnome-online-miners
1185   (package
1186     (name "gnome-online-miners")
1187     (version "3.34.0")
1188     (source (origin
1189               (method url-fetch)
1190               (uri (string-append "mirror://gnome/sources/" name "/"
1191                                   (version-major+minor version) "/"
1192                                   name "-" version ".tar.xz"))
1193               (sha256
1194                (base32
1195                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
1196     (build-system glib-or-gtk-build-system)
1197     (native-inputs
1198      `(("gettext" ,gettext-minimal)
1199        ("glib:bin" ,glib "bin")
1200        ("gobject-introspection" ,gobject-introspection)
1201        ("gtk+:bin" ,gtk+ "bin")
1202        ("pkg-config" ,pkg-config)))
1203     (inputs
1204      `(("gnome-online-accounts" ,gnome-online-accounts)
1205        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1206        ("grilo" ,grilo)
1207        ("libgdata" ,libgdata)
1208        ("libgfbgraph" ,gfbgraph)
1209        ("libzapojit" ,libzapojit)
1210        ("rest" ,rest)
1211        ("tracker" ,tracker)))
1212     (synopsis "Web Crawlers for GNOME")
1213     (description "GNOME Online Miners provides a set of crawlers that
1214 go through your online content and index them locally in Tracker.
1215 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1216     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1217     (license license:gpl2+)))
1218
1219 (define-public gssdp
1220   (package
1221    (name "gssdp")
1222    (version "1.2.3")
1223    (source (origin
1224             (method url-fetch)
1225             (uri (string-append "mirror://gnome/sources/" name "/"
1226                                 (version-major+minor version) "/"
1227                                 name "-" version ".tar.xz"))
1228             (sha256
1229              (base32
1230               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1231    (build-system meson-build-system)
1232    (native-inputs
1233     `(("gettext" ,gettext-minimal)
1234       ("glib:bin" ,glib "bin")
1235       ("gobject-introspection" ,gobject-introspection)
1236       ("gtk-doc" ,gtk-doc)
1237       ("pkg-config" ,pkg-config)
1238       ("vala" ,vala)))
1239    (inputs
1240     `(("gtk+" ,gtk+)
1241       ("libsoup" ,libsoup)))
1242    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1243 Protocol} for GNOME")
1244    (description "This package provides a library to handle resource discovery
1245 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1246 a debugging tool, @command{gssdp-device-sniffer}.")
1247    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1248    (license license:lgpl2.0+)))
1249
1250 (define-public gupnp
1251   (package
1252    (name "gupnp")
1253    (version "1.2.4")
1254    (source (origin
1255             (method url-fetch)
1256             (uri (string-append "mirror://gnome/sources/" name "/"
1257                                 (version-major+minor version) "/"
1258                                 name "-" version ".tar.xz"))
1259             (sha256
1260              (base32
1261               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1262    (build-system meson-build-system)
1263    (native-inputs
1264     `(("gettext" ,gettext-minimal)
1265       ("glib:bin" ,glib "bin")
1266       ("gobject-introspection" ,gobject-introspection)
1267       ("gtk-doc" ,gtk-doc)
1268       ("pkg-config" ,pkg-config)
1269       ("vala" ,vala)))
1270    (inputs
1271     `(("gssdp" ,gssdp)
1272       ("gtk+" ,gtk+)
1273       ("libsoup" ,libsoup)))
1274    (synopsis "PnP API for GNOME")
1275    (description "This package provides GUPnP, an object-oriented framework
1276 for creating UPnP devices and control points, written in C using
1277 @code{GObject} and @code{libsoup}.")
1278    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1279    (license license:lgpl2.0+)))
1280
1281 (define-public gupnp-dlna
1282   (package
1283    (name "gupnp-dlna")
1284    (version "0.10.5")
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               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1293    (build-system gnu-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       ("libxml" ,libxml2)
1300       ("pkg-config" ,pkg-config)
1301       ("vala" ,vala)))
1302    (inputs
1303     `(("gstreamer" ,gstreamer)
1304       ("gupnp" ,gupnp)))
1305    (propagated-inputs
1306     `(("gst-plugins-base" ,gst-plugins-base)
1307       ("gst-plugins-good" ,gst-plugins-good)))
1308    (synopsis "GUPnP DLNA for GNOME")
1309    (description "This package provides a small utility library to
1310 support DLNA-related tasks such as media profile guessing, transcoding to a
1311 given profile, etc.  DLNA is a subset of UPnP A/V.")
1312    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1313    (license license:lgpl2.0+)))
1314
1315 (define-public gupnp-av
1316   (package
1317    (name "gupnp-av")
1318    (version "0.12.11")
1319    (source (origin
1320             (method url-fetch)
1321             (uri (string-append "mirror://gnome/sources/" name "/"
1322                                 (version-major+minor version) "/"
1323                                 name "-" version ".tar.xz"))
1324             (sha256
1325              (base32
1326               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1327    (build-system gnu-build-system)
1328    (native-inputs
1329     `(("gettext" ,gettext-minimal)
1330       ("glib:bin" ,glib "bin")
1331       ("gobject-introspection" ,gobject-introspection)
1332       ("gtk-doc" ,gtk-doc)
1333       ("libxml" ,libxml2)
1334       ("pkg-config" ,pkg-config)))
1335    (inputs
1336     `(("gtk+" ,gtk+)
1337       ("gupnp" ,gupnp)))
1338    (synopsis "GUPnP A/V for GNOME")
1339    (description "This package provides a small library for handling
1340 and implementation of UPnP A/V profiles.")
1341    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1342    (license license:lgpl2.0+)))
1343
1344 (define-public libmediaart
1345   (package
1346     (name "libmediaart")
1347     (version "1.9.4")
1348     (source (origin
1349               (method url-fetch)
1350               (uri (string-append "mirror://gnome/sources/" name "/"
1351                                   (version-major+minor version) "/"
1352                                   name "-" version ".tar.xz"))
1353               (sha256
1354                (base32
1355                 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
1356     (build-system gnu-build-system)
1357     (native-inputs
1358      `(("glib:bin" ,glib "bin")
1359        ("pkg-config" ,pkg-config)))
1360     (inputs
1361      `(("gdk-pixbuf" ,gdk-pixbuf)
1362        ("gettext" ,gettext-minimal)
1363        ("gobject-introspection" ,gobject-introspection)
1364        ("gtk+:doc" ,gtk+ "doc")
1365        ("vala" ,vala)))
1366     (synopsis "Media art library for the GNOME desktop")
1367     (description
1368      "The libmediaart library is the foundation for media art caching,
1369 extraction, and lookup for applications on the desktop.")
1370     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1371     (license license:lgpl2.1+)))
1372
1373 (define-public gnome-initial-setup
1374   (package
1375    (name "gnome-initial-setup")
1376    (version "3.32.1")
1377    (source (origin
1378             (method url-fetch)
1379            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1380                                 (version-major+minor version)
1381                                 "/gnome-initial-setup-" version ".tar.xz"))
1382             (sha256
1383              (base32
1384               "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
1385    (build-system meson-build-system)
1386    (arguments
1387     '(#:configure-flags '(;; Enable camera support for user selfie.
1388                           "-Dcheese=auto"
1389                           "-Dsystemd=false")
1390       #:phases (modify-phases %standard-phases
1391                  (add-after 'unpack 'set-gkbd-file-name
1392                    (lambda* (#:key inputs #:allow-other-keys)
1393                      ;; Allow the "Preview" button in the keyboard layout
1394                      ;; selection dialog to display the layout.
1395                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1396                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1397                          (("\"gkbd-keyboard-display")
1398                           (string-append "\"" libgnomekbd
1399                                          "/bin/gkbd-keyboard-display")))
1400                        #t))))))
1401    (native-inputs
1402     `(("gettext" ,gettext-minimal)
1403       ("glib:bin" ,glib "bin")
1404       ("gobject-introspection" ,gobject-introspection)
1405       ("gtk+:bin" ,gtk+ "bin")
1406       ("pkg-config" ,pkg-config)))
1407    (inputs
1408     `(("accountsservice" ,accountsservice)
1409       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1410       ("gdm" ,gdm)
1411       ("geoclue" ,geoclue)
1412       ("gnome-desktop" ,gnome-desktop)
1413       ("gnome-getting-started-docs" ,gnome-getting-started-docs)
1414       ("gnome-online-accounts" ,gnome-online-accounts)
1415       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1416       ("gstreamer" ,gstreamer)
1417       ("ibus" ,ibus)
1418       ("json-glib" ,json-glib)
1419       ("krb5" ,mit-krb5)
1420       ("libgweather" ,libgweather)
1421       ("libnma" ,libnma)
1422       ("libsecret" ,libsecret)
1423       ("network-manager" ,network-manager)
1424       ("packagekit" ,packagekit)
1425       ("polkit" ,polkit)
1426       ("pwquality" ,libpwquality)
1427       ("rest" ,rest)
1428       ("upower" ,upower)
1429       ("webkitgtk" ,webkitgtk)
1430       ("libgnomekbd" ,libgnomekbd)))
1431    (synopsis "Initial setup wizard for GNOME desktop")
1432    (description "This package provides a set-up wizard when a
1433 user logs into GNOME for the first time.  It typically provides a
1434 tour of all gnome components and allows the user to set them up.")
1435    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1436    (license license:gpl2)))
1437
1438 (define-public gnome-user-share
1439   (package
1440    (name "gnome-user-share")
1441    (version "3.33.1")
1442    (source (origin
1443             (method url-fetch)
1444             (uri (string-append "mirror://gnome/sources/" name "/"
1445                                 (version-major+minor version) "/"
1446                                 name "-" version ".tar.xz"))
1447             (sha256
1448              (base32
1449               "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
1450    (build-system meson-build-system)
1451    (arguments
1452     `(#:glib-or-gtk? #t
1453       #:configure-flags
1454        `("-Dsystemd=false"
1455          ;; Enable nautilus extension for file sharing.
1456          "-Dnautilus_extension=true")))
1457    (native-inputs
1458     `(("gettext" ,gettext-minimal)
1459       ("glib:bin" ,glib "bin")
1460       ("gobject-introspection" ,gobject-introspection)
1461       ("gtk+:bin" ,gtk+ "bin")
1462       ("pkg-config" ,pkg-config)
1463       ("yelp-tools" ,yelp-tools)))
1464    (inputs
1465     `(("glib" ,glib)
1466       ("gnome-bluetooth" ,gnome-bluetooth)
1467       ("gtk+" ,gtk+)
1468       ("libcanberra" ,libcanberra)
1469       ("libnotify" ,libnotify)
1470       ("nautilus" ,nautilus)))      ; For nautilus extension.
1471    (synopsis "File sharing for GNOME desktop")
1472    (description "GNOME User Share is a small package that binds together
1473 various free software projects to bring easy to use user-level file
1474 sharing to the masses.")
1475    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1476    (license license:gpl2+)))
1477
1478 (define-public sushi
1479   (package
1480     (name "sushi")
1481     (version "3.32.1")
1482     (source (origin
1483               (method url-fetch)
1484               (uri (string-append "mirror://gnome/sources/" name "/"
1485                                   (version-major+minor version) "/"
1486                                   name "-" version ".tar.xz"))
1487               (sha256
1488                (base32
1489                 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
1490     (build-system meson-build-system)
1491     (arguments
1492      `(#:glib-or-gtk? #t
1493        #:phases
1494        (modify-phases %standard-phases
1495          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1496            (lambda* (#:key outputs #:allow-other-keys)
1497              (let ((prog (string-append (assoc-ref outputs "out")
1498                                         "/bin/sushi")))
1499                ;; Put existing typelibs before sushi's deps, so as to correctly
1500                ;; infer gdk-pixbuf
1501                (wrap-program prog
1502                  `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
1503                #t))))))
1504     (native-inputs
1505      `(("glib:bin" ,glib "bin")
1506        ("gettext" ,gettext-minimal)
1507        ("gobject-introspection" ,gobject-introspection)
1508        ("pkg-config" ,pkg-config)))
1509     (inputs
1510      `(("clutter" ,clutter)
1511        ("clutter-gst" ,clutter-gst)
1512        ("clutter-gtk" ,clutter-gtk)
1513        ("evince" ,evince)                         ; For file previewing.
1514        ("freetype" ,freetype)
1515        ("gdk-pixbuf" ,gdk-pixbuf)
1516        ("gjs" ,gjs)
1517        ("gst-plugins-base" ,gst-plugins-base)
1518        ("gstreamer" ,gstreamer)
1519        ("gtksourceview" ,gtksourceview-3)
1520        ("harfbuzz" ,harfbuzz)
1521        ("libepoxy" ,libepoxy)
1522        ("libmusicbrainz" ,libmusicbrainz)
1523        ("libxml2" ,libxml2)
1524        ("neon" ,neon)
1525        ("webkitgtk" ,webkitgtk)))
1526     (synopsis "File previewer for the GNOME desktop")
1527     (description "Sushi is a DBus-activated service that allows applications to
1528 preview files on the GNOME desktop.")
1529     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1530     (license license:gpl2+)))
1531
1532 (define-public rygel
1533   (package
1534     (name "rygel")
1535     (version "0.38.3")
1536     (source (origin
1537               (method url-fetch)
1538               (uri (string-append "mirror://gnome/sources/" name "/"
1539                                   (version-major+minor version) "/"
1540                                   name "-" version ".tar.xz"))
1541               (sha256
1542                (base32
1543                 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
1544     (build-system gnu-build-system)
1545     (native-inputs
1546      `(("gettext" ,gettext-minimal)
1547        ("gobject-introspection" ,gobject-introspection)
1548        ("gtk-doc" ,gtk-doc)
1549        ("pkg-config" ,pkg-config)
1550        ("vala" ,vala)))
1551     (inputs
1552      `(("gdk-pixbuf" ,gdk-pixbuf)
1553        ("gssdp" ,gssdp)
1554        ("gstreamer" ,gstreamer)
1555        ("gst-plugins-base" ,gst-plugins-base)
1556        ("gtk+" ,gtk+)
1557        ("gupnp" ,gupnp)
1558        ("gupnp-av" ,gupnp-av)
1559        ("gupnp-dlna" ,gupnp-dlna)
1560        ("libgee" ,libgee)
1561        ("libmediaart" ,libmediaart)
1562        ("libsoup" ,libsoup)
1563        ("libxslt" ,libxslt)
1564        ("libunistring" ,libunistring)
1565        ("tracker" ,tracker)))
1566     (synopsis "Share audio, video, and pictures with other devices")
1567     (description
1568      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1569 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1570 pictures, and to control a media player on your home network.
1571
1572 Rygel achieves interoperability with other devices by trying to conform to the
1573 strict requirements of DLNA and by converting media on-the-fly to formats that
1574 client devices can handle.")
1575     (home-page "https://wiki.gnome.org/Projects/Rygel")
1576     (license (list
1577               ;; For logo (data/icons/*).
1578               license:cc-by-sa3.0
1579               ;; For all others.
1580               license:lgpl2.1+))))
1581
1582 (define-public libnma
1583   (package
1584     (name "libnma")
1585     (version "1.8.28")
1586     (source (origin
1587               (method url-fetch)
1588               (uri (string-append "mirror://gnome/sources/" name "/"
1589                                   (version-major+minor version) "/"
1590                                   name "-" version ".tar.xz"))
1591               (sha256
1592                (base32
1593                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1594     (build-system meson-build-system)
1595     (arguments
1596      `(#:phases
1597        (modify-phases %standard-phases
1598          (add-after 'unpack 'patch-docbook-xml
1599            (lambda* (#:key inputs #:allow-other-keys)
1600              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1601                                           "/xml/dtd/docbook")))
1602                (substitute* "libnma-docs.xml"
1603                  (("http://.*/docbookx\\.dtd")
1604                   (string-append xmldoc "/docbookx.dtd")))
1605                #t))))))
1606     (native-inputs
1607      `(("docbook-xml" ,docbook-xml-4.3)
1608        ("gettext" ,gettext-minimal)
1609        ("glib:bin" ,glib "bin")
1610        ("gtk-doc" ,gtk-doc)
1611        ("gobject-introspection" ,gobject-introspection)
1612        ("pkg-config" ,pkg-config)
1613        ("vala" ,vala)))
1614     (inputs
1615      `(("gcr" ,gcr)
1616        ("gtk+" ,gtk+)
1617        ("iso-codes" ,iso-codes)
1618        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1619        ("network-manager" ,network-manager)))
1620     (synopsis "Network Manager's applet library")
1621     (description "Libnma is an applet library for Network Manager.  It was
1622 initially part of network-manager-applet and has now become a separate
1623 project.")
1624     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1625     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1626     ;; "LGPL-2.1+".
1627     (license license:gpl2+)))
1628
1629 (define-public gnome-menus
1630   (package
1631     (name "gnome-menus")
1632     (version "3.32.0")
1633     (source (origin
1634               (method url-fetch)
1635               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1636                                   (version-major+minor version) "/"
1637                                   name "-" version ".tar.xz"))
1638               (sha256
1639                (base32
1640                 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
1641     (build-system gnu-build-system)
1642     (native-inputs
1643      `(("gettext" ,gettext-minimal)
1644        ("glib" ,glib)
1645        ("pkg-config" ,pkg-config)))
1646     (synopsis "Menu support for GNOME desktop")
1647     (description "GNOME Menus contains the libgnome-menu library, the layout
1648 configuration files for the GNOME menu, as well as a simple menu editor.")
1649     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1650     (license license:lgpl2.0+)))
1651
1652 (define-public deja-dup
1653   (package
1654     (name "deja-dup")
1655     (version "40.6")
1656     (source (origin
1657               (method url-fetch)
1658               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1659                                   version "/deja-dup-" version ".tar.bz2"))
1660               (sha256
1661                (base32
1662                 "0lwazh6crby5wpy9fg6zvwy4plqbhs2f98bm5lbizjdlbh88n5q0"))))
1663     (build-system meson-build-system)
1664     (arguments
1665      `(#:glib-or-gtk? #t
1666        #:configure-flags
1667        (list
1668         ;; Otherwise, the RUNPATH will lack the final path component.
1669         (string-append "-Dc_link_args=-Wl,-rpath="
1670                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1671        #:phases
1672        (modify-phases %standard-phases
1673          (add-after 'unpack 'patch-paths
1674            (lambda* (#:key inputs #:allow-other-keys)
1675              (let ((python (assoc-ref inputs "python")))
1676                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1677                               "libdeja/tests/scripts/instance-error.test")
1678                  (("/bin/rm")
1679                   (which "rm")))
1680                (substitute* "libdeja/tests/runner.vala"
1681                  (("/bin/sh")
1682                   (which "sh")))
1683                (substitute* "libdeja/tests/scripts/instance-error.test"
1684                  (("`which python3`")
1685                   (string-append python "/bin/python3"))))))
1686          (add-after 'unpack 'patch-libgpg-error
1687            (lambda* (#:key inputs #:allow-other-keys)
1688              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1689                (substitute* "meson.build"
1690                  (("(gpgerror_libs = ).*" _ var)
1691                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1692              #t))
1693          (add-after 'unpack 'skip-gtk-update-icon-cache
1694            ;; Don't create 'icon-theme.cache'.
1695            (lambda _
1696              (substitute* "data/post-install.sh"
1697                (("gtk-update-icon-cache") "true"))
1698              #t)))))
1699     (inputs
1700      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1701        ("duplicity" ,duplicity)
1702        ("python" ,python)
1703        ("python-pygobject" ,python-pygobject)
1704        ("gtk+" ,gtk+)
1705        ("json-glib" ,json-glib)
1706        ("libnotify" ,libnotify)
1707        ("libgpg-error" ,libgpg-error)
1708        ("libsecret" ,libsecret)
1709        ("libsoup" ,libsoup)
1710        ("packagekit" ,packagekit)))
1711     (native-inputs
1712      `(("appstream-glib" ,appstream-glib)
1713        ("desktop-file-utils" ,desktop-file-utils)
1714        ("gettext" ,gettext-minimal)
1715        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1716        ("gobject-introspection" ,gobject-introspection)
1717        ("itstool" ,itstool)
1718        ("pkg-config" ,pkg-config)
1719        ("vala" ,vala)))
1720     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1721     (synopsis "Simple backup tool, for regular encrypted backups")
1722     (description
1723      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1724 uses duplicity as the backend, which supports incremental backups and storage
1725 either on a local, or remote machine via a number of methods.")
1726     (license license:gpl3+)))
1727
1728 (define-public gnome-commander
1729   (package
1730     (name "gnome-commander")
1731     (version "1.10.3")
1732     (source
1733      (origin
1734        (method url-fetch)
1735        (uri (string-append "mirror://gnome/sources/" name "/"
1736                            (version-major+minor version)  "/"
1737                            "gnome-commander-" version ".tar.xz"))
1738        (sha256
1739         (base32 "0bis36awb73vhkncq8yr0qlnyaxynqkvmyqbg57ijqwd0m8hh4zg"))))
1740     (build-system glib-or-gtk-build-system)
1741     (native-inputs
1742      `(("desktop-file-utils" ,desktop-file-utils)
1743        ("gcc" ,gcc-8) ;required for -Wcast-function-type
1744        ("gettext" ,gettext-minimal)
1745        ("glib:bin" ,glib "bin")
1746        ("gobject-introspection" ,gobject-introspection)
1747        ("googletest" ,googletest)
1748        ("intltool" ,intltool)
1749        ("itstool" ,itstool)
1750        ("libtool" ,libtool)
1751        ("pkg-config" ,pkg-config)))
1752     (inputs
1753      `(("gconf" ,gconf)
1754        ("gnome-vfs" ,gnome-vfs)
1755        ("gtk+" ,gtk+-2)
1756        ("libxml2" ,libxml2)))
1757     (home-page "https://gcmd.github.io/")
1758     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1759     (description
1760      "GNOME Commander is a two-pane graphical file manager using GNOME
1761 libraries.  It aims to fulfill the demands of more advanced users who
1762 like to focus on file management, their work through special applications
1763 and running smart commands.")
1764     (license license:gpl2+)))
1765
1766 (define-public gnome-user-docs
1767   (package
1768    (name "gnome-user-docs")
1769    (version "3.32.3")
1770    (source
1771     (origin
1772       (method url-fetch)
1773       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1774                           (version-major+minor version)
1775                           "/gnome-user-docs-" version ".tar.xz"))
1776       (sha256
1777        (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
1778    (build-system gnu-build-system)
1779    (native-inputs
1780     `(("gettext" ,gettext-minimal)
1781       ("itstool" ,itstool)
1782       ("pkg-config" ,pkg-config)
1783       ("xmllint" ,libxml2)))
1784    (synopsis "User documentation for the GNOME desktop")
1785    (description
1786     "The GNOME User Documentation explains how to use the GNOME desktop and its
1787 components.  It covers usage and setup of the core GNOME programs by end-users
1788 and system administrators.")
1789    (home-page "https://live.gnome.org/DocumentationProject")
1790    (license license:cc-by3.0)))
1791
1792 (define-public gnome-getting-started-docs
1793   (package
1794    (name "gnome-getting-started-docs")
1795    (version "3.32.2")
1796    (source
1797     (origin
1798       (method url-fetch)
1799       (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
1800                           (version-major+minor version)
1801                           "/gnome-getting-started-docs-" version ".tar.xz"))
1802       (sha256
1803        (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
1804    (build-system gnu-build-system)
1805    (native-inputs
1806     `(("gettext" ,gettext-minimal)
1807       ("itstool" ,itstool)
1808       ("pkg-config" ,pkg-config)
1809       ("xmllint" ,libxml2)))
1810    (synopsis "Help to get new users started with the GNOME desktop")
1811    (description
1812     "The GNOME Getting Started Documentation contains GNOME's intuitive
1813 \"Getting Started\" tour, with video guides, that can be viewed with Yelp.
1814
1815 It is normally used together with @command{gnome-initial-setup}, but is also
1816 useful as a tutorial and users' guide for new or less experienced users.")
1817    (home-page "https://live.gnome.org/DocumentationProject")
1818    (license license:cc-by-sa3.0)))
1819
1820 (define-public dia
1821   ;; This version from GNOME's repository includes fixes for compiling with
1822   ;; recent versions of the build tools.  The latest activity on the
1823   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1824   ;; fixes since.
1825   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1826         (revision "2"))
1827     (package
1828       (name "dia")
1829       (version (git-version "0.97.3" revision commit))
1830       (source (origin
1831                 (method git-fetch)
1832                 (uri (git-reference
1833                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1834                       (commit commit)))
1835                 (file-name (git-file-name name version))
1836                 (sha256
1837                  (base32
1838                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1839       (build-system meson-build-system)
1840       (inputs
1841        `(("graphene" ,graphene)
1842          ("gtk+" ,gtk+-2)
1843          ("libxml2" ,libxml2)
1844          ("libxslt" ,libxslt)
1845          ("poppler" ,poppler)
1846          ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1847          ;; ERROR: Unknown method "dependency" in object.
1848          ("python-2" ,python-2)))
1849       (native-inputs
1850        `(("appstream-glib" ,appstream-glib)
1851          ("docbook-xsl" ,docbook-xsl)
1852          ("glib" ,glib "bin")
1853          ("intltool" ,intltool)
1854          ("pkg-config" ,pkg-config)))
1855       (home-page "https://wiki.gnome.org/Apps/Dia")
1856       (synopsis "Diagram creation for GNOME")
1857       (description "Dia can be used to draw different types of diagrams, and
1858 includes support for UML static structure diagrams (class diagrams), entity
1859 relationship modeling, and network diagrams.  The program supports various file
1860 formats like PNG, SVG, PDF and EPS.")
1861       (license license:gpl2+))))
1862
1863 ;; This is the unstable release, but it is required for the current stable
1864 ;; release of gvfs (1.38.1).
1865 (define-public libgdata
1866   (package
1867     (name "libgdata")
1868     (version "0.17.9")
1869     (source (origin
1870               (method url-fetch)
1871               (uri (string-append "mirror://gnome/sources/" name "/"
1872                                   (version-major+minor version)  "/"
1873                                   name "-" version ".tar.xz"))
1874               (sha256
1875                (base32
1876                 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
1877     (build-system gnu-build-system)
1878     (arguments
1879      '(#:phases
1880        (modify-phases %standard-phases
1881          (add-before 'check 'disable-failing-tests
1882            (lambda _
1883              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1884              ;; They have been removed in libgdata 0.17.6, so just do the same.
1885              (substitute* "gdata/tests/Makefile"
1886                (("picasaweb\\$\\(EXEEXT\\) ") ""))
1887              #t)))))
1888     (native-inputs
1889      `(("glib:bin" ,glib "bin")
1890        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1891        ("intltool" ,intltool)
1892        ("pkg-config" ,pkg-config)
1893        ("uhttpmock" ,uhttpmock)))
1894     (inputs
1895      `(("cyrus-sasl" ,cyrus-sasl)
1896        ("glib-networking" ,glib-networking)))
1897     (propagated-inputs
1898      `(("gcr" ,gcr)
1899        ("glib" ,glib)
1900        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1901        ("json-glib" ,json-glib)
1902        ("liboauth" ,liboauth)
1903        ("libsoup" ,libsoup)
1904        ("libxml2" ,libxml2)))
1905     (home-page "https://wiki.gnome.org/Projects/libgdata")
1906     (synopsis "Library for accessing online service APIs")
1907     (description
1908      "libgdata is a GLib-based library for accessing online service APIs using
1909 the GData protocol — most notably, Google's services.  It provides APIs to
1910 access the common Google services, and has full asynchronous support.")
1911     (license license:lgpl2.1+)))
1912
1913 (define-public libgxps
1914   (package
1915     (name "libgxps")
1916     (version "0.3.1")
1917     (source (origin
1918               (method url-fetch)
1919               (uri (string-append "mirror://gnome/sources/" name "/"
1920                                   (version-major+minor version) "/"
1921                                   name "-" version ".tar.xz"))
1922               (sha256
1923                (base32
1924                 "157s4c9gjjss6yd7qp7n4q6s72gz1k4ilsx4xjvp357azk49z4qs"))))
1925     (build-system meson-build-system)
1926     (native-inputs
1927      `(("gobject-introspection" ,gobject-introspection)
1928        ("pkg-config" ,pkg-config)))
1929     (inputs
1930      `(("gtk+" ,gtk+)
1931        ("libjpeg" ,libjpeg-turbo)
1932        ("lcms" ,lcms)
1933        ("libtiff" ,libtiff)))
1934     (propagated-inputs
1935      ;; In Requires of libgxps.pc.
1936      `(("cairo" ,cairo)
1937        ("glib" ,glib)
1938        ("libarchive" ,libarchive)))
1939     (home-page "https://wiki.gnome.org/Projects/libgxps")
1940     (synopsis "GObject-based library for handling and rendering XPS documents")
1941     (description
1942      "libgxps is a GObject-based library for handling and rendering XPS
1943 documents.  This package also contains binaries that can convert XPS documents
1944 to other formats.")
1945     (license license:lgpl2.1+)))
1946
1947 (define-public gnome-characters
1948   (package
1949     (name "gnome-characters")
1950     (version "3.30.0")
1951     (source
1952      (origin
1953        (method url-fetch)
1954        (uri (string-append "mirror://gnome/sources/"
1955                            "gnome-characters/" (version-major+minor version)
1956                            "/gnome-characters-" version ".tar.xz"))
1957        (sha256
1958         (base32
1959          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
1960     (build-system meson-build-system)
1961     (arguments
1962      `(#:glib-or-gtk? #t
1963        #:phases (modify-phases %standard-phases
1964                   (add-after 'install 'wrap
1965                     (lambda* (#:key outputs #:allow-other-keys)
1966                       ;; GNOME Characters needs Typelib files from GTK and
1967                       ;; gnome-desktop.
1968                       (wrap-program (string-append (assoc-ref outputs "out")
1969                                                    "/bin/gnome-characters")
1970                         `("GI_TYPELIB_PATH" ":" prefix
1971                           (,(getenv "GI_TYPELIB_PATH"))))
1972                       #t)))))
1973     (native-inputs
1974      `(("gettext" ,gettext-minimal)
1975        ("glib:bin" ,glib "bin")
1976        ("gtk+:bin" ,gtk+ "bin")
1977        ("pkg-config" ,pkg-config)
1978        ("python" ,python-minimal)))
1979     (inputs
1980      `(("gjs" ,gjs)
1981        ("gtk+" ,gtk+)
1982        ("libunistring" ,libunistring)
1983        ("gnome-desktop" ,gnome-desktop)))
1984     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
1985     (synopsis "Find and insert unusual characters")
1986     (description "Characters is a simple utility application to find
1987 and insert unusual characters.  It allows you to quickly find the
1988 character you are looking for by searching for keywords.")
1989     (license license:bsd-3)))
1990
1991 (define-public gnome-common
1992   (package
1993     (name "gnome-common")
1994     (version "3.18.0")
1995     (source
1996      (origin
1997        (method url-fetch)
1998        (uri (string-append "mirror://gnome/sources/" name "/"
1999                            (version-major+minor version)  "/"
2000                            name "-" version ".tar.xz"))
2001        (sha256
2002         (base32
2003          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2004     (build-system gnu-build-system)
2005     (home-page "https://www.gnome.org/")
2006     (synopsis "Bootstrap GNOME modules built from Git")
2007     (description "gnome-common contains various files needed to bootstrap
2008 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2009 can be used to configure a source directory checked out from Git and some
2010 commonly used macros.")
2011     (license license:gpl2+)))
2012
2013 (define-public gnome-contacts
2014   (package
2015     (name "gnome-contacts")
2016     (version "3.34")
2017     (source (origin
2018               (method url-fetch)
2019               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2020                                   (version-major+minor version) "/"
2021                                   name "-" version ".tar.xz"))
2022               (sha256
2023                (base32
2024                 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
2025     (build-system meson-build-system)
2026     (arguments
2027      `(#:configure-flags '("-Dcheese=false")
2028        #:phases
2029        (modify-phases %standard-phases
2030          (add-after 'unpack 'generate-vapis
2031            (lambda* (#:key inputs #:allow-other-keys)
2032              ;; To generate goa's missing .vapi file
2033              (define goa
2034                (assoc-ref inputs "gnome-online-accounts:lib"))
2035
2036              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2037                      "--library=goa-1.0"
2038                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
2039              #t))
2040          (add-after 'unpack 'skip-gtk-update-icon-cache
2041            ;; Don't create 'icon-theme.cache'.
2042            (lambda _
2043              (substitute* "build-aux/meson_post_install.py"
2044                (("gtk-update-icon-cache") "true"))
2045              #t)))))
2046     (native-inputs
2047      `(("glib:bin" ,glib "bin")
2048        ("pkg-config" ,pkg-config)))
2049     (inputs
2050      `(("docbook-xml" ,docbook-xml)
2051        ("dockbook-xsl" ,docbook-xsl)
2052        ("evolution-data-server" ,evolution-data-server)
2053        ("gettext" ,gettext-minimal)
2054        ("gnome-desktop" ,gnome-desktop)
2055        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2056        ("gobject-introspection" ,gobject-introspection)
2057        ("gst-plugins-base" ,gst-plugins-base)
2058        ("gtk+" ,gtk+)
2059        ("libgee" ,libgee)
2060        ("libxslt" ,libxslt)
2061        ("telepathy-glib" ,telepathy-glib)
2062        ("vala" ,vala)))
2063     (propagated-inputs
2064      `(("folks" ,folks)
2065        ("telepathy-mission-control" ,telepathy-mission-control)))
2066     (synopsis "GNOME's integrated address book")
2067     (description
2068      "GNOME Contacts organizes your contact information from online and
2069 offline sources, providing a centralized place for managing your contacts.")
2070     (home-page "https://wiki.gnome.org/Apps/Contacts")
2071     (license license:gpl2+)))
2072
2073 (define-public gnome-desktop
2074   (package
2075     (name "gnome-desktop")
2076     (version "3.34.2")
2077     (source
2078      (origin
2079       (method url-fetch)
2080       (uri (string-append "mirror://gnome/sources/" name "/"
2081                           (version-major+minor version)  "/"
2082                           name "-" version ".tar.xz"))
2083       (sha256
2084        (base32
2085         "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
2086     (build-system meson-build-system)
2087     (arguments
2088      '(#:phases
2089        (modify-phases %standard-phases
2090          (add-before 'configure 'patch-path
2091            (lambda* (#:key inputs #:allow-other-keys)
2092              (let ((libc   (assoc-ref inputs "libc")))
2093                (substitute* "libgnome-desktop/gnome-languages.c"
2094                  (("\"locale\"")
2095                   (string-append "\"" libc "/bin/locale\"")))
2096                #t)))
2097          (add-before 'configure 'patch-bubblewrap
2098            (lambda* (#:key inputs #:allow-other-keys)
2099              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2100                (("\"bwrap\",")
2101                 (string-append "\"" (which "bwrap") "\","))
2102                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2103                 (string-append "\"--ro-bind\", \""
2104                                (%store-directory)
2105                                "\", \""
2106                                (%store-directory)
2107                                "\","))
2108                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2109              #t))
2110          (add-before 'check 'pre-check
2111            (lambda* (#:key inputs #:allow-other-keys)
2112              ;; Tests require a running X server and locales.
2113              (system "Xvfb :1 &")
2114              (setenv "DISPLAY" ":1")
2115              (setenv "GUIX_LOCPATH"
2116                      (string-append (assoc-ref inputs "glibc-locales")
2117                                     "/lib/locale"))
2118              #t)))))
2119     (native-inputs
2120      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2121        ("glibc-locales" ,glibc-locales) ; for tests
2122        ("gobject-introspection" ,gobject-introspection)
2123        ("itstool" ,itstool)
2124        ("intltool" ,intltool)
2125        ("pkg-config" ,pkg-config)
2126        ("xmllint" ,libxml2)
2127        ("xorg-server" ,xorg-server-for-tests)))
2128     (propagated-inputs
2129      ;; Required by gnome-desktop-3.0.pc.
2130      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2131        ("gtk+" ,gtk+)
2132        ("iso-codes" ,iso-codes)
2133        ("libseccomp" ,libseccomp)
2134        ("libx11" ,libx11)
2135        ("xkeyboard-config" ,xkeyboard-config)))
2136     (inputs
2137      `(("gdk-pixbuf" ,gdk-pixbuf)
2138        ("glib" ,glib)
2139        ("bubblewrap" ,bubblewrap)
2140        ("libxext" ,libxext)
2141        ("libxkbfile" ,libxkbfile)
2142        ("libxrandr" ,libxrandr)))
2143     (home-page "https://www.gnome.org/")
2144     (synopsis
2145      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2146     (description
2147      "The libgnome-desktop library provides API shared by several applications
2148 on the desktop, but that cannot live in the platform for various reasons.
2149 There is no API or ABI guarantee, although we are doing our best to provide
2150 stability.  Documentation for the API is available with gtk-doc.
2151
2152 The gnome-about program helps find which version of GNOME is installed.")
2153     ; Some bits under the LGPL.
2154     (license license:gpl2+)))
2155
2156 (define-public gnome-doc-utils
2157   (package
2158     (name "gnome-doc-utils")
2159     (version "0.20.10")
2160     (source
2161      (origin
2162       (method url-fetch)
2163       (uri (string-append "mirror://gnome/sources/" name "/"
2164                           (version-major+minor version)  "/"
2165                           name "-" version ".tar.xz"))
2166       (sha256
2167        (base32
2168         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2169     (build-system gnu-build-system)
2170     (native-inputs
2171      `(("intltool" ,intltool)
2172        ("docbook-xml" ,docbook-xml-4.4)
2173        ("python2-libxml2" ,python2-libxml2)
2174        ("libxml2" ,libxml2)
2175        ("libxslt" ,libxslt)
2176        ("pkg-config" ,pkg-config)
2177        ("python-2" ,python-2)))
2178     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2179     (synopsis
2180      "Documentation utilities for the Gnome project")
2181     (description
2182      "Gnome-doc-utils is a collection of documentation utilities for the
2183 Gnome project.  It includes xml2po tool which makes it easier to translate
2184 and keep up to date translations of documentation.")
2185     (license license:gpl2+))) ; xslt under lgpl
2186
2187 (define-public gnome-disk-utility
2188   (package
2189     (name "gnome-disk-utility")
2190     (version "3.34.0")
2191     (source (origin
2192               (method url-fetch)
2193               (uri (string-append "mirror://gnome/sources/" name "/"
2194                                   (version-major+minor version) "/"
2195                                   name "-" version ".tar.xz"))
2196               (sha256
2197                (base32
2198                 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
2199     (build-system meson-build-system)
2200     (arguments
2201      '(#:configure-flags '("-Dlogind=libelogind")
2202        #:phases
2203        (modify-phases %standard-phases
2204          (add-after 'unpack 'skip-gtk-update-icon-cache
2205            ;; Don't create 'icon-theme.cache'.
2206            (lambda _
2207              (substitute* "meson_post_install.py"
2208                (("gtk-update-icon-cache") "true"))
2209              #t)))))
2210     (native-inputs
2211      `(("glib:bin" ,glib "bin")
2212        ("intltool" ,intltool)
2213        ("pkg-config" ,pkg-config)
2214        ("docbook-xml" ,docbook-xml)
2215        ("docbook-xsl" ,docbook-xsl)
2216        ("libxml2" ,libxml2)
2217        ("libxslt" ,libxslt)))
2218     (inputs
2219      `(("elogind" ,elogind)
2220        ("glib" ,glib)
2221        ("appstream-glib" ,appstream-glib)
2222        ("gnome-settings-daemon" ,gnome-settings-daemon)
2223        ("gtk+" ,gtk+)
2224        ("libcanberra" ,libcanberra)
2225        ("libdvdread" ,libdvdread)
2226        ("libnotify" ,libnotify)
2227        ("libpwquality" ,libpwquality)
2228        ("libsecret" ,libsecret)
2229        ("udisks" ,udisks)))
2230     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2231     (synopsis "Disk management utility for GNOME")
2232     (description "Disk management utility for GNOME.")
2233     (license license:gpl2+)))
2234
2235 (define-public gnome-font-viewer
2236   (package
2237     (name "gnome-font-viewer")
2238     (version "3.30.0")
2239     (source (origin
2240               (method url-fetch)
2241               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2242                                   (version-major+minor version)
2243                                   "/gnome-font-viewer-" version ".tar.xz"))
2244               (sha256
2245                (base32
2246                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
2247     (build-system meson-build-system)
2248     (arguments
2249      '(#:phases
2250        (modify-phases %standard-phases
2251          (add-after 'unpack 'patch-post-install-script
2252            (lambda _
2253              (substitute* "meson-postinstall.sh"
2254                (("update-desktop-database") (which "true")))
2255              #t))
2256          (add-after 'install 'patch-thumbnailer
2257            (lambda* (#:key outputs #:allow-other-keys)
2258              (let ((out (assoc-ref outputs "out")))
2259                (substitute*
2260                    (string-append
2261                     out
2262                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2263                  (("gnome-thumbnail-font")
2264                   (string-append out "/bin/gnome-thumbnail-font"))))
2265              #t)))))
2266     (native-inputs
2267      `(("gettext" ,gettext-minimal)
2268        ("glib:bin" ,glib "bin")
2269        ("pkg-config" ,pkg-config)))
2270     (inputs
2271      `(("glib" ,glib)
2272        ("gnome-desktop" ,gnome-desktop)
2273        ("gtk+" ,gtk+)))
2274     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2275     (synopsis "GNOME Fonts")
2276     (description "Application to show you the fonts installed on your computer
2277 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2278 the font would look under various sizes.")
2279     (license license:gpl2+)))
2280
2281 (define-public gcr
2282   (package
2283     (name "gcr")
2284     (version "3.34.0")
2285     (source (origin
2286               (method url-fetch)
2287               (uri (string-append "mirror://gnome/sources/" name "/"
2288                                   (version-major+minor version)  "/"
2289                                   name "-" version ".tar.xz"))
2290               (sha256
2291                (base32
2292                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
2293     (build-system gnu-build-system)
2294     (arguments
2295      '(#:phases
2296        (modify-phases %standard-phases
2297          ;; These fail because /var/lib/dbus/machine-id is not present in the
2298          ;; build environment.
2299          (add-after 'unpack 'disable-failing-tests
2300            (lambda _
2301              (substitute* "Makefile.in"
2302                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
2303                 ""))
2304              #t))
2305          (add-before 'check 'pre-check
2306            (lambda _
2307              ;; Some tests expect to write to $HOME.
2308              (setenv "HOME" "/tmp")
2309              #t)))))
2310     (inputs
2311      `(("dbus" ,dbus)
2312        ("gnupg" ,gnupg)                ;called as a child process during tests
2313        ("libgcrypt" ,libgcrypt)))
2314     (native-inputs
2315      `(("python" ,python-wrapper)       ;for tests
2316        ("pkg-config" ,pkg-config)
2317        ("gettext" ,gettext-minimal)
2318        ("glib" ,glib "bin")
2319        ("gobject-introspection" ,gobject-introspection)
2320        ("libxml2" ,libxml2)
2321        ("vala" ,vala)
2322        ("xsltproc" ,libxslt)))
2323     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2324     (propagated-inputs
2325      `(("p11-kit" ,p11-kit)
2326        ("glib" ,glib)
2327        ("gtk+" ,gtk+)))
2328     (home-page "https://www.gnome.org")
2329     (synopsis "Libraries for displaying certificates and accessing key stores")
2330     (description
2331      "The GCR package contains libraries used for displaying certificates and
2332 accessing key stores.  It also provides the viewer for crypto files on the
2333 GNOME Desktop.")
2334     (license license:lgpl2.1+)))
2335
2336 (define-public gdl
2337   (package
2338     (name "gdl")
2339     (version "3.34.0")
2340     (source (origin
2341               (method git-fetch)
2342               (uri (git-reference
2343                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2344                     (commit (string-append "GDL_" (string-map (match-lambda
2345                                                                 (#\. #\_)
2346                                                                 (c c))
2347                                                               version)))))
2348               (file-name (git-file-name name version))
2349               (sha256
2350                (base32
2351                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2352     (build-system gnu-build-system)
2353     (native-inputs
2354      `(("autoconf" ,autoconf)
2355        ("automake" ,automake)
2356        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2357        ("gnome-common" ,gnome-common)
2358        ("gtk-doc" ,gtk-doc)
2359        ("intltool" ,intltool)
2360        ("pkg-config" ,pkg-config)
2361        ("libtool" ,libtool)
2362        ("which" ,which)))
2363     (inputs
2364      `(("libxml2" ,libxml2)))
2365     (propagated-inputs
2366      ;; The gdl-3.0.pc file 'Requires' GTK+.
2367      `(("gtk+" ,gtk+)))
2368     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2369     (synopsis "GNOME docking library")
2370     (description "This library provides docking features for gtk+.")
2371     (license license:lgpl2.1+)))
2372
2373 ;;; A minimal variant used to break a cycle with Inkscape.
2374 (define-public gdl-minimal
2375   (package
2376     (inherit gdl)
2377     (name "gdl-minimal")
2378     (arguments
2379      '(#:phases
2380        (modify-phases %standard-phases
2381          (add-after 'unpack 'disable-doc-generation
2382            ;; XXX: There is no easy way to disable generating the
2383            ;; documentation.
2384            (lambda _
2385              (substitute* "configure.in"
2386                (("GTK_DOC_CHECK.*") "")
2387                (("docs/.*") ""))
2388              (substitute* "Makefile.am"
2389                (("gdl docs po") "gdl po"))
2390              #t)))))
2391     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2392
2393 (define-public libgnome-keyring
2394   (package
2395     (name "libgnome-keyring")
2396     (version "3.12.0")
2397     (source (origin
2398              (method url-fetch)
2399              (uri (string-append "mirror://gnome/sources/" name "/"
2400                                  (version-major+minor version)  "/"
2401                                  name "-" version ".tar.xz"))
2402              (sha256
2403               (base32
2404                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2405     (build-system gnu-build-system)
2406     (inputs
2407      `(("libgcrypt" ,libgcrypt)
2408        ("dbus" ,dbus)))
2409     (native-inputs
2410      `(("pkg-config" ,pkg-config)
2411        ("glib" ,glib "bin")
2412        ("intltool" ,intltool)))
2413     (propagated-inputs
2414      ;; Referred to in .h files and .pc.
2415      `(("glib" ,glib)))
2416     (home-page "https://www.gnome.org")
2417     (synopsis "Accessing passwords from the GNOME keyring")
2418     (description
2419      "Client library to access passwords from the GNOME keyring.")
2420
2421     ;; Though a couple of files are LGPLv2.1+.
2422     (license license:lgpl2.0+)))
2423
2424 (define-public gnome-keyring
2425   (package
2426     (name "gnome-keyring")
2427     (version "3.34.0")
2428     (source (origin
2429              (method url-fetch)
2430              (uri (string-append "mirror://gnome/sources/" name "/"
2431                                  (version-major+minor version)  "/"
2432                                  name "-" version ".tar.xz"))
2433              (sha256
2434               (base32
2435                "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
2436     (build-system gnu-build-system)
2437     (arguments
2438      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2439                    ;not exist
2440        #:configure-flags
2441        (list
2442         (string-append "--with-pkcs11-config="
2443                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2444         (string-append "--with-pkcs11-modules="
2445                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2446        #:phases
2447        (modify-phases %standard-phases
2448          (add-after 'unpack 'fix-/bin/sh-reference
2449            (lambda _
2450              (substitute* "po/Makefile.in.in"
2451                (("/bin/sh") (which "sh")))
2452              #t))
2453          (add-after 'unpack 'fix-docbook
2454            (lambda* (#:key inputs #:allow-other-keys)
2455              (substitute* "docs/Makefile.am"
2456                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2457                 (string-append (assoc-ref inputs "docbook-xsl")
2458                                "/xml/xsl/docbook-xsl-"
2459                                ,(package-version docbook-xsl)
2460                                "/manpages/docbook.xsl")))
2461              (setenv "XML_CATALOG_FILES"
2462                      (string-append (assoc-ref inputs "docbook-xml")
2463                                     "/xml/dtd/docbook/catalog.xml"))
2464              ;; Rerun the whole thing to avoid version mismatch ("This is
2465              ;; Automake 1.15.1, but the definition used by this
2466              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2467              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2468              (invoke "autoconf")
2469              (invoke "aclocal")
2470              (invoke "automake" "-ac"))))))
2471     (inputs
2472      `(("libgcrypt" ,libgcrypt)
2473        ("linux-pam" ,linux-pam)
2474        ("openssh" ,openssh)
2475        ("dbus" ,dbus)
2476        ("gcr" ,gcr)))
2477     (native-inputs
2478      `(("pkg-config" ,pkg-config)
2479        ("glib" ,glib "bin")
2480        ("glib" ,glib) ; for m4 macros
2481        ("python" ,python-2) ;for tests
2482        ("intltool" ,intltool)
2483        ("autoconf" ,autoconf)
2484        ("automake" ,automake)
2485        ("libxslt" ,libxslt) ;for documentation
2486        ("docbook-xml" ,docbook-xml-4.2)
2487        ("docbook-xsl" ,docbook-xsl)))
2488     (home-page "https://www.gnome.org")
2489     (synopsis "Daemon to store passwords and encryption keys")
2490     (description
2491      "gnome-keyring is a program that keeps passwords and other secrets for
2492 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2493 applications locate it via an environment variable or D-Bus.
2494
2495 The program can manage several keyrings, each with its own master password,
2496 and there is also a session keyring which is never stored to disk, but
2497 forgotten when the session ends.")
2498     (license license:lgpl2.1+)))
2499
2500 (define-public evince
2501   (package
2502     (name "evince")
2503     (version "3.36.5")
2504     (source (origin
2505              (method url-fetch)
2506              (uri (string-append "mirror://gnome/sources/evince/"
2507                                  (version-major+minor version) "/"
2508                                  "evince-" version ".tar.xz"))
2509              (sha256
2510               (base32
2511                "0z79jl0j9xq9wgwkfr0d1w1qrdy4447y8shs407n5srr0vixc3bg"))))
2512     (build-system glib-or-gtk-build-system)
2513     (arguments
2514      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
2515        #:phases
2516        (modify-phases %standard-phases
2517          (add-before 'install 'skip-gtk-update-icon-cache
2518            ;; Don't create 'icon-theme.cache'.
2519            (lambda _
2520              (substitute* "data/Makefile"
2521                (("gtk-update-icon-cache") "true"))
2522              #t)))))
2523     (inputs
2524      `(("libarchive" ,libarchive)
2525        ("libgxps" ,libgxps)
2526        ("libspectre" ,libspectre)
2527        ("djvulibre" ,djvulibre)
2528        ("ghostscript" ,ghostscript)
2529        ("poppler" ,poppler)
2530        ("libtiff" ,libtiff)
2531        ;; TODO:
2532        ;;   Build libkpathsea as a shared library for DVI support.
2533        ;; ("libkpathsea" ,texlive-bin)
2534        ("gnome-desktop" ,gnome-desktop)
2535        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2536        ("gspell" ,gspell)
2537        ("libgnome-keyring" ,libgnome-keyring)
2538        ("adwaita-icon-theme" ,adwaita-icon-theme)
2539        ("gdk-pixbuf" ,gdk-pixbuf)
2540        ("atk" ,atk)
2541        ("pango" ,pango)
2542        ("gtk+" ,gtk+)
2543        ("glib" ,glib)
2544        ("libxml2" ,libxml2)
2545        ("libsm" ,libsm)
2546        ("libice" ,libice)
2547        ("shared-mime-info" ,shared-mime-info)
2548        ("dconf" ,dconf)
2549        ("libcanberra" ,libcanberra)
2550        ("libsecret" ,libsecret)
2551
2552        ;; For tests.
2553        ("dogtail" ,python2-dogtail)))
2554     (native-inputs
2555      `(("itstool" ,itstool)
2556        ("intltool" ,intltool)
2557        ("glib" ,glib "bin")
2558        ("gobject-introspection" ,gobject-introspection)
2559        ("pkg-config" ,pkg-config)
2560        ("xmllint" ,libxml2)))
2561     (home-page "https://www.gnome.org/projects/evince/")
2562     (synopsis "GNOME's document viewer")
2563     (description
2564      "Evince is a document viewer for multiple document formats.  It
2565 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2566 of Evince is to replace the multiple document viewers that exist
2567 on the GNOME Desktop with a single simple application.")
2568     (license license:gpl2+)))
2569
2570 (define-public gsettings-desktop-schemas
2571   (package
2572     (name "gsettings-desktop-schemas")
2573     (version "3.34.0")
2574     (source
2575      (origin
2576       (method url-fetch)
2577       (uri (string-append "mirror://gnome/sources/" name "/"
2578                           (version-major+minor version)  "/"
2579                           name "-" version ".tar.xz"))
2580       (sha256
2581        (base32
2582         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
2583     (build-system meson-build-system)
2584     (arguments
2585      '(#:phases (modify-phases %standard-phases
2586                   (add-after 'unpack 'patch-schemas
2587                     (lambda* (#:key inputs #:allow-other-keys)
2588                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2589                         (substitute* (find-files "schemas"
2590                                                  "\\.gschema\\.xml\\.in$")
2591                           ;; Provide the correct file name of the default GNOME
2592                           ;; background, 'adwaita-timed.xml'.
2593                           (("@datadir@/backgrounds/gnome")
2594                            (string-append theme "/share/backgrounds/gnome"))
2595                           ;; Do not reference fonts, that may not exist.
2596                           (("'Source Code Pro 10'") "'Monospace 11'"))
2597                         #t))))))
2598     (inputs
2599      `(("glib" ,glib)
2600        ("gnome-backgrounds" ,gnome-backgrounds)))
2601     (native-inputs
2602      `(("intltool" ,intltool)
2603        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
2604        ("gobject-introspection" ,gobject-introspection)
2605        ("pkg-config" ,pkg-config)))
2606     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2607     (synopsis
2608      "GNOME settings for various desktop components")
2609     (description
2610      "Gsettings-desktop-schemas contains a collection of GSettings schemas
2611 for settings shared by various components of the GNOME desktop.")
2612     (license license:lgpl2.1+)))
2613
2614 (define-public python-liblarch
2615   (package
2616     (name "python-liblarch")
2617     (version "3.0.1")
2618     (source
2619      (origin
2620        (method git-fetch)
2621        (uri (git-reference
2622              (url "https://github.com/getting-things-gnome/liblarch")
2623              (commit (string-append "v" version))))
2624        (file-name (git-file-name name version))
2625        (sha256
2626         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2627     (build-system python-build-system)
2628     (arguments
2629      `(#:phases
2630        (modify-phases %standard-phases
2631          (add-before 'check 'start-xserver
2632            (lambda* (#:key inputs #:allow-other-keys)
2633              (system (format #f "~a/bin/Xvfb :1 &"
2634                              (assoc-ref inputs "xorg-server")))
2635              (setenv "DISPLAY" ":1")
2636              #t)))))
2637     (native-inputs
2638      `(("xorg-server" ,xorg-server-for-tests)))
2639     (inputs
2640      `(("gtk+" ,gtk+)))
2641     (propagated-inputs
2642      `(("python-pygobject" ,python-pygobject)))
2643     (home-page "https://wiki.gnome.org/Projects/liblarch")
2644     (synopsis "Library to easily handle complex data structures")
2645     (description
2646      "Liblarch is a Python library built to easily handle data structures such
2647 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2648 allow you to use your data structure in a @code{Gtk.Treeview}.
2649
2650 Liblarch support multiple views of one data structure and complex filtering.
2651 That way, you have a clear separation between your data themselves (Model)
2652 and how they are displayed (View).")
2653     (license license:lgpl3+)))
2654
2655 (define-public gtg
2656   (package
2657     (name "gtg")
2658     (version "0.4")
2659     (source
2660      (origin
2661        (method git-fetch)
2662        (uri (git-reference
2663              (url "https://github.com/getting-things-gnome/gtg")
2664              (commit (string-append "v" version))))
2665        (file-name (git-file-name name version))
2666        (sha256
2667         (base32 "0r28vyr88rj3kd3cg4gj7sd29wadjchi92wzmbx67d4hlg25h8kk"))))
2668     (build-system meson-build-system)
2669     (arguments
2670      `(#:glib-or-gtk? #t
2671        #:phases
2672        (modify-phases %standard-phases
2673          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2674            (lambda* (#:key outputs #:allow-other-keys)
2675              (let ((prog (string-append (assoc-ref outputs "out")
2676                                         "/bin/gtg"))
2677                    (pylib (string-append (assoc-ref outputs "out")
2678                                          "/lib/python"
2679                                          ,(version-major+minor
2680                                            (package-version python))
2681                                          "/site-packages")))
2682                (wrap-program prog
2683                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
2684                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2685                #t))))))
2686     (native-inputs
2687      `(("desktop-file-utils" ,desktop-file-utils)
2688        ("gettext" ,gettext-minimal)
2689        ("glib:bin" ,glib "bin")
2690        ("gobject-introspection" ,gobject-introspection)
2691        ("gtk+:bin" ,gtk+ "bin")
2692        ("pkg-config" ,pkg-config)))
2693     (inputs
2694      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2695        ("gtk+" ,gtk+)
2696        ("python-dbus" ,python-dbus)
2697        ("python-liblarch" ,python-liblarch)
2698        ("python-pycairo" ,python-pycairo)
2699        ("python-pygobject" ,python-pygobject)
2700        ("python-pyxdg" ,python-pyxdg)))
2701     (home-page "https://wiki.gnome.org/Apps/GTG")
2702     (synopsis "Personal organizer for the GNOME desktop")
2703     (description
2704      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2705 organizer for the GNOME desktop environment inspired by the Getting Things
2706 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2707 and ease of use in mind so it can be used as more than just GTD software.
2708 GTG is intended to help you track everything you need to do and need to
2709 know, from small tasks to large projects.")
2710     (license license:gpl3+)))
2711
2712 (define-public icon-naming-utils
2713   (package
2714     (name "icon-naming-utils")
2715     (version "0.8.90")
2716     (source
2717      (origin
2718       (method url-fetch)
2719       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2720                           version ".tar.bz2"))
2721       (sha256
2722        (base32
2723         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2724     (build-system gnu-build-system)
2725     (inputs
2726      `(("perl" ,perl)
2727        ("perl-xml-simple" ,perl-xml-simple)))
2728     (arguments
2729      '(#:phases
2730        (modify-phases %standard-phases
2731          (add-after 'install 'set-load-paths
2732            ;; Tell 'icon-name-mapping' where XML::Simple is.
2733            (lambda* (#:key outputs #:allow-other-keys)
2734              (let* ((out  (assoc-ref outputs "out"))
2735                     (prog (string-append out "/libexec/icon-name-mapping")))
2736                (wrap-program
2737                    prog
2738                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2739              #t)))))
2740     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2741     (synopsis
2742      "Utility to implement the Freedesktop Icon Naming Specification")
2743     (description
2744      "To help with the transition to the Freedesktop Icon Naming
2745 Specification, the icon naming utility maps the icon names used by the
2746 GNOME and KDE desktops to the icon names proposed in the specification.")
2747     (license license:lgpl2.1+)))
2748
2749 (define-public gnome-icon-theme
2750   (package
2751     (name "gnome-icon-theme")
2752     (version "3.12.0")
2753     (source
2754      (origin
2755       (method url-fetch)
2756       (uri (string-append "mirror://gnome/sources/" name "/"
2757                           (version-major+minor version)  "/"
2758                           name "-" version ".tar.xz"))
2759       (sha256
2760        (base32
2761         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2762     (build-system gnu-build-system)
2763     (arguments
2764      '(#:configure-flags
2765        ;; Don't create 'icon-theme.cache'.
2766        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2767               (true      (string-append coreutils "/bin/true")))
2768          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2769     (native-inputs
2770      `(("icon-naming-utils" ,icon-naming-utils)
2771        ("intltool" ,intltool)
2772        ("pkg-config" ,pkg-config)))
2773     (home-page "https://wiki.gnome.org/Personalization")
2774     (synopsis "GNOME icon theme")
2775     (description "Icons for the GNOME desktop.")
2776     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2777
2778 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2779 (define-public adwaita-icon-theme
2780   (package (inherit gnome-icon-theme)
2781     (name "adwaita-icon-theme")
2782     (version "3.34.3")
2783     (source (origin
2784               (method url-fetch)
2785               (uri (string-append "mirror://gnome/sources/" name "/"
2786                                   (version-major+minor version) "/"
2787                                   name "-" version ".tar.xz"))
2788               (sha256
2789                (base32
2790                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
2791     (native-inputs
2792      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
2793
2794 (define-public tango-icon-theme
2795   (package
2796     (name "tango-icon-theme")
2797     (version "0.8.90")
2798     (source (origin
2799               (method url-fetch)
2800               (uri (string-append "http://tango.freedesktop.org/releases/"
2801                                   "tango-icon-theme-" version ".tar.bz2"))
2802               (sha256
2803                (base32
2804                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2805     (build-system gnu-build-system)
2806     (native-inputs
2807      `(("icon-naming-utils" ,icon-naming-utils)
2808        ("intltool" ,intltool)
2809        ("imagemagick" ,imagemagick)
2810        ("pkg-config" ,pkg-config)))
2811     (home-page "http://tango-project.org/")
2812     (synopsis "Tango icon theme")
2813     (description "This is an icon theme that follows the Tango visual
2814 guidelines.")
2815     (license license:public-domain)))
2816
2817 (define-public shared-mime-info
2818   (package
2819     (name "shared-mime-info")
2820     (version "1.15")
2821     (source (origin
2822              (method url-fetch)
2823              (uri (string-append
2824                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2825                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2826                    ".tar.xz"))
2827              (sha256
2828               (base32
2829                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2830     (build-system gnu-build-system)
2831     (arguments
2832      ;; The build system appears not to be parallel-safe.
2833      '(#:parallel-build? #f))
2834     (inputs
2835      `(("glib" ,glib)
2836        ("libxml2" ,libxml2)))
2837     (native-inputs
2838      `(("gettext" ,gettext-minimal)
2839        ("itstool" ,itstool)
2840        ("pkg-config" ,pkg-config)))
2841     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2842     (synopsis "Database of common MIME types")
2843     (description
2844      "The shared-mime-info package contains the core database of common types
2845 and the update-mime-database command used to extend it.  It requires glib2 to
2846 be installed for building the update command.  Additionally, it uses intltool
2847 for translations, though this is only a dependency for the maintainers.  This
2848 database is translated at Transifex.")
2849     (license license:gpl2+)))
2850
2851 (define-public system-config-printer
2852   (package
2853     (name "system-config-printer")
2854     (version "1.5.15")
2855     (source
2856      (origin
2857        (method url-fetch)
2858        (uri (string-append
2859              "https://github.com/OpenPrinting/system-config-printer/releases/"
2860              "download/v" version
2861              "/system-config-printer-" version ".tar.xz"))
2862        (sha256
2863         (base32 "12d6xx51vizc476zfnsga9q09nflp51ipn6y7lhi9w2v4772dlpv"))))
2864     (build-system glib-or-gtk-build-system)
2865     (arguments
2866      `(#:imported-modules ((guix build python-build-system)
2867                            ,@%glib-or-gtk-build-system-modules)
2868        #:phases
2869        (modify-phases %standard-phases
2870          (add-after 'unpack 'patch-Makefile.am
2871            (lambda _
2872              ;; The Makefile generates some scripts, so set a valid shebang
2873              (substitute* "Makefile.am"
2874                (("/bin/bash") (which "bash")))
2875              (delete-file "configure")
2876              #t))
2877          (add-after 'unpack 'patch-docbook-xml
2878            (lambda* (#:key inputs #:allow-other-keys)
2879              ;; Modify the man XML otherwise xmlto tries to access the network
2880              (substitute* "man/system-config-printer.xml"
2881                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2882                 (string-append (assoc-ref inputs "docbook-xml")
2883                                "/xml/dtd/docbook/")))
2884              #t))
2885          (add-after 'install 'wrap-for-python
2886            (@@ (guix build python-build-system) wrap))
2887          (add-after 'install 'wrap
2888            (lambda* (#:key outputs #:allow-other-keys)
2889              (let ((out               (assoc-ref outputs "out"))
2890                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2891                (for-each
2892                 (lambda (program)
2893                   (wrap-program program
2894                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2895                 (map (lambda (name)
2896                        (string-append out "/bin/" name))
2897                      '("system-config-printer"
2898                        "system-config-printer-applet"
2899                        "install-printerdriver"
2900                        "scp-dbus-service"))))
2901              #t)))))
2902     (inputs
2903      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2904        ("gobject-introspection" ,gobject-introspection)
2905        ("python" ,python)
2906        ("cups" ,cups)
2907        ("gtk+" ,gtk+)
2908        ("python-dbus" ,python-dbus)
2909        ("python-pygobject" ,python-pygobject)
2910        ("python-pycups" ,python-pycups)
2911        ("python-requests" ,python-requests)
2912        ("python-pycairo" ,python-pycairo)
2913        ("libnotify" ,libnotify)
2914        ("packagekit" ,packagekit)))
2915     (native-inputs
2916      `(("pkg-config" ,pkg-config)
2917        ("desktop-file-utils" ,desktop-file-utils)
2918        ("glib" ,glib)
2919        ("autoconf" ,autoconf)
2920        ("automake" ,automake)
2921        ("intltool" ,intltool)
2922        ("xmlto" ,xmlto)
2923        ("docbook-xml" ,docbook-xml-4.1.2)
2924        ("docbook-xsl" ,docbook-xsl)
2925        ("libxml2" ,libxml2)))
2926     (home-page "https://github.com/zdohnal/system-config-printer")
2927     (synopsis "CUPS administration tool")
2928     (description
2929      "system-config-printer is a CUPS administration tool.  It's written in
2930 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2931 configuring CUPS.")
2932     (license license:gpl2+)))
2933
2934 (define-public hicolor-icon-theme
2935   (package
2936     (name "hicolor-icon-theme")
2937     (version "0.17")
2938     (source
2939      (origin
2940       (method url-fetch)
2941       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
2942                           "hicolor-icon-theme-" version ".tar.xz"))
2943       (sha256
2944        (base32
2945         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
2946     (build-system gnu-build-system)
2947     (arguments
2948      `(#:tests? #f)) ; no check target
2949     (home-page "https://icon-theme.freedesktop.org/releases/")
2950     (synopsis
2951      "Freedesktop icon theme")
2952     (description
2953      "Freedesktop icon theme.")
2954     (license license:gpl2)))
2955
2956 (define-public libnotify
2957   (package
2958     (name "libnotify")
2959     (version "0.7.9")
2960     (source
2961      (origin
2962        (method url-fetch)
2963        (uri (string-append "mirror://gnome/sources/" name "/"
2964                            (version-major+minor version)  "/"
2965                            name "-" version ".tar.xz"))
2966        (sha256
2967         (base32
2968          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
2969     (build-system meson-build-system)
2970     (arguments
2971      `(#:phases
2972        (modify-phases %standard-phases
2973          (add-after 'unpack 'fix-docbook
2974            (lambda* (#:key inputs #:allow-other-keys)
2975              ;; Don't attempt to download XSL schema.
2976              (substitute* "meson.build"
2977                (("http://docbook.sourceforge.net/release/xsl-ns/current\
2978 /manpages/docbook.xsl")
2979                 (string-append (assoc-ref inputs "docbook-xsl")
2980                                "/xml/xsl/docbook-xsl-"
2981                                ,(package-version docbook-xsl)
2982                                "/manpages/docbook.xsl")))
2983              #t)))))
2984     (propagated-inputs
2985      `(;; In Requires of libnotify.pc.
2986        ("gdk-pixbuf" ,gdk-pixbuf)
2987        ("glib" ,glib)))
2988     (inputs
2989      `(("gtk+" ,gtk+)
2990        ("libpng" ,libpng)))
2991     (native-inputs
2992      `(("pkg-config" ,pkg-config)
2993        ("glib" ,glib "bin")
2994        ("gobject-introspection" ,gobject-introspection)
2995
2996        ;; For the documentation.
2997        ("gtk-doc" ,gtk-doc)
2998        ("xsltproc" ,libxslt)
2999        ("docbook-xsl" ,docbook-xsl)))
3000     (home-page "https://developer-next.gnome.org/libnotify/")
3001     (synopsis
3002      "GNOME desktop notification library")
3003     (description
3004      "Libnotify is a library that sends desktop notifications to a
3005 notification daemon, as defined in the Desktop Notifications spec.  These
3006 notifications can be used to inform the user about an event or display
3007 some form of information without getting in the user's way.")
3008     (license license:lgpl2.1+)))
3009
3010 (define-public libpeas
3011   (package
3012     (name "libpeas")
3013     (version "1.28.0")
3014     (source
3015      (origin
3016       (method url-fetch)
3017       (uri (string-append "mirror://gnome/sources/" name "/"
3018                           (version-major+minor version)  "/"
3019                           name "-" version ".tar.xz"))
3020       (sha256
3021        (base32
3022         "05cb7drn6arc4gi02wgsvzibigi2riz5gnfnmlb0zmbfnj9ikna2"))))
3023     (build-system meson-build-system)
3024     (arguments
3025      '(#:phases
3026        (modify-phases %standard-phases
3027          (add-before 'check 'start-xserver
3028            (lambda* (#:key inputs #:allow-other-keys)
3029              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3030                    (disp ":1"))
3031                (setenv "DISPLAY" disp)
3032                ;; Tests require a running X server.
3033                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3034                #t))))))
3035     (inputs
3036      `(("gtk+" ,gtk+)
3037        ("glade" ,glade3)
3038        ("python" ,python)
3039        ("python-pygobject" ,python-pygobject)))
3040     (native-inputs
3041      `(("pkg-config" ,pkg-config)
3042        ("gettext" ,gettext-minimal)
3043        ("glib:bin" ,glib "bin")
3044        ("gobject-introspection" ,gobject-introspection)
3045        ("xorg-server" ,xorg-server-for-tests)))
3046     (propagated-inputs
3047      ;; The .pc file "Requires" gobject-introspection.
3048      `(("gobject-introspection" ,gobject-introspection)))
3049     (home-page "https://wiki.gnome.org/Libpeas")
3050     (synopsis "GObject plugin system")
3051     (description
3052      "Libpeas is a gobject-based plugin engine, targeted at giving every
3053 application the chance to assume its own extensibility.  It also has a set of
3054 features including, but not limited to: multiple extension points; on-demand
3055 (lazy) programming language support for C, Python and JS; simplicity of the
3056 API.")
3057     (license license:lgpl2.0+)))
3058
3059 (define-public gtkglext
3060   (package
3061     (name "gtkglext")
3062     (version "1.2.0")
3063     (source (origin
3064               (method url-fetch)
3065               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3066                                   version "/gtkglext-" version ".tar.gz"))
3067               (sha256
3068                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3069               (patches (search-patches
3070                         "gtkglext-disable-disable-deprecated.patch"))))
3071     (build-system gnu-build-system)
3072     (arguments
3073      `(#:phases
3074        (modify-phases %standard-phases
3075          ;; Fix a collision between a local variable and a definition from
3076          ;; glibc's string.h.
3077          (add-after 'unpack 'fix-collision
3078            (lambda _
3079              (substitute* "gdk/gdkglshapes.c"
3080                ((" index") " triangle_index"))
3081              #t)))))
3082     (inputs `(("gtk+" ,gtk+-2)
3083               ("mesa" ,mesa)
3084               ("glu" ,glu)
3085               ("libx11" ,libx11)
3086               ("libxt" ,libxt)))
3087     (native-inputs `(("pkg-config" ,pkg-config)
3088                      ("glib" ,glib "bin")))
3089     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
3090     (home-page "https://projects.gnome.org/gtkglext")
3091     (synopsis "OpenGL extension to GTK+")
3092     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3093 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3094 API add-ons to make GTK+ widgets OpenGL-capable.")
3095     (license license:lgpl2.1+)))
3096
3097 (define-public glade3
3098   (package
3099     (name "glade")
3100     (version "3.36.0")
3101     (source (origin
3102               (method url-fetch)
3103               (uri (string-append "mirror://gnome/sources/" name "/"
3104                                   (version-major+minor version)  "/"
3105                                   name "-" version ".tar.xz"))
3106               (sha256
3107                (base32
3108                 "023gx8rj51njn8fsb6ma5kz1irjpxi4js0n8rwy22inc4ysldd8r"))))
3109     (build-system glib-or-gtk-build-system)
3110     (arguments
3111      `(#:phases
3112        (modify-phases %standard-phases
3113          (add-before 'configure 'fix-docbook
3114            (lambda* (#:key inputs #:allow-other-keys)
3115              (substitute* "man/Makefile.in"
3116                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
3117                 (string-append (assoc-ref inputs "docbook-xsl")
3118                                "/xml/xsl/docbook-xsl-"
3119                                ,(package-version docbook-xsl)
3120                                "/manpages/docbook.xsl")))
3121              #t))
3122          (add-before 'check 'pre-check
3123            (lambda _
3124              (setenv "HOME" "/tmp")
3125              ;; Tests require a running X server.
3126              (system "Xvfb :1 &")
3127              (setenv "DISPLAY" ":1")
3128              #t)))))
3129     (inputs
3130      `(("gtk+" ,gtk+)
3131        ("libxml2" ,libxml2)))
3132     (native-inputs
3133      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3134        ("intltool" ,intltool)
3135        ("itstool" ,itstool)
3136        ("libxslt" ,libxslt) ;for xsltproc
3137        ("docbook-xml" ,docbook-xml-4.2)
3138        ("docbook-xsl" ,docbook-xsl)
3139        ("python" ,python-2)
3140        ("pkg-config" ,pkg-config)
3141        ("xorg-server" ,xorg-server-for-tests)))
3142     (home-page "https://glade.gnome.org")
3143     (synopsis "GTK+ rapid application development tool")
3144     (description "Glade is a rapid application development (RAD) tool to
3145 enable quick & easy development of user interfaces for the GTK+ toolkit and
3146 the GNOME desktop environment.")
3147     (license license:lgpl2.0+)
3148     (native-search-paths (list (search-path-specification
3149                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3150                                 (files '("share/glade/catalogs")))
3151                                (search-path-specification
3152                                 (variable "GLADE_MODULE_SEARCH_PATH")
3153                                 (files '("lib/glade/modules")))))))
3154
3155 (define-public libcroco
3156   (package
3157     (name "libcroco")
3158     (version "0.6.13")
3159     (source (origin
3160               (method url-fetch)
3161               (uri (string-append "mirror://gnome/sources/" name "/"
3162                                   (version-major+minor version)  "/"
3163                                   name "-" version ".tar.xz"))
3164               (sha256
3165                (base32
3166                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3167     (build-system gnu-build-system)
3168     (native-inputs
3169      `(("pkg-config" ,pkg-config)))
3170     (inputs
3171      `(("glib" ,glib)
3172        ("libxml2" ,libxml2)
3173        ("zlib" ,zlib)))
3174     (home-page "https://github.com/GNOME/libcroco")
3175     (synopsis "CSS2 parsing and manipulation library")
3176     (description
3177      "Libcroco is a standalone CSS2 parsing and manipulation library.
3178 The parser provides a low level event driven SAC-like API and a CSS object
3179 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3180 XML/CSS rendering engine.")
3181
3182     ;; LGPLv2.1-only.
3183     (license license:lgpl2.1)))
3184
3185 (define-public libgsf
3186   (package
3187     (name "libgsf")
3188     (version "1.14.47")
3189     (source (origin
3190               (method url-fetch)
3191               (uri (string-append "mirror://gnome/sources/" name "/"
3192                                   (version-major+minor version)  "/"
3193                                   name "-" version ".tar.xz"))
3194               (sha256
3195                (base32
3196                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3197     (build-system gnu-build-system)
3198     (arguments
3199      '(#:configure-flags '("--disable-static")))
3200     (native-inputs
3201      `(("pkg-config" ,pkg-config)
3202        ("gettext" ,gettext-minimal)
3203
3204        ;; For tests.
3205        ("perl" ,perl)
3206        ("perl-xml-parser" ,perl-xml-parser)))
3207     (inputs
3208      `(("zlib" ,zlib)
3209        ("bzip2" ,bzip2)))
3210     (propagated-inputs
3211      `(("gdk-pixbuf" ,gdk-pixbuf)
3212        ("glib" ,glib)
3213        ("libxml2" ,libxml2)))
3214     (home-page "https://www.gnome.org/projects/libgsf")
3215     (synopsis "GNOME's Structured File Library")
3216     (description
3217      "Libgsf aims to provide an efficient extensible I/O abstraction for
3218 dealing with different structured file formats.")
3219
3220     ;; LGPLv2.1-only.
3221     (license license:lgpl2.1)))
3222
3223 (define-public librsvg
3224   (package
3225     (name "librsvg")
3226     (version "2.40.21")
3227     (source (origin
3228               (method url-fetch)
3229               (uri (string-append "mirror://gnome/sources/" name "/"
3230                                   (version-major+minor version)  "/"
3231                                   name "-" version ".tar.xz"))
3232               (sha256
3233                (base32
3234                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3235     (build-system gnu-build-system)
3236     (arguments
3237      `(#:configure-flags
3238        (list "--disable-static"
3239              "--enable-vala") ; needed for e.g. gnome-mines
3240        #:phases
3241        (modify-phases %standard-phases
3242          (add-before 'configure 'pre-configure
3243            (lambda* (#:key inputs #:allow-other-keys)
3244              (substitute* "gdk-pixbuf-loader/Makefile.in"
3245                ;; By default the gdk-pixbuf loader is installed under
3246                ;; gdk-pixbuf's prefix.  Work around that.
3247                (("gdk_pixbuf_moduledir = .*$")
3248                 (string-append "gdk_pixbuf_moduledir = "
3249                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3250                                 "loaders\n"))
3251                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3252                (("gdk_pixbuf_cache_file = .*$")
3253                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3254              #t))
3255          (add-before 'check 'remove-failing-tests
3256            (lambda _
3257              (with-directory-excursion "tests/fixtures/reftests"
3258                (for-each delete-file
3259                          '(;; This test fails on i686:
3260                            "svg1.1/masking-path-04-b.svg"
3261                            ;; This test fails on armhf:
3262                            "svg1.1/masking-mask-01-b.svg"
3263                            ;; This test fails on aarch64:
3264                            "bugs/777834-empty-text-children.svg")))
3265              #t)))))
3266     (native-inputs
3267      `(("pkg-config" ,pkg-config)
3268        ("vala" ,vala)
3269        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
3270        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3271     (inputs
3272      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3273        ;; this ancient version of librsvg.
3274        ("pango" ,pango-1.42)
3275        ("libcroco" ,libcroco)
3276        ("bzip2" ,bzip2)
3277        ("libgsf" ,libgsf)
3278        ("libxml2" ,libxml2)))
3279     (propagated-inputs
3280      ;; librsvg-2.0.pc refers to all of that.
3281      `(("cairo" ,cairo)
3282        ("gdk-pixbuf" ,gdk-pixbuf)
3283        ("glib" ,glib)))
3284     (home-page "https://wiki.gnome.org/LibRsvg")
3285     (synopsis "Render SVG files using Cairo")
3286     (description
3287      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
3288 library.")
3289     (license license:lgpl2.0+)))
3290
3291 (define-public librsvg-next
3292   (package
3293     (name "librsvg")
3294     (version "2.50.2")
3295     (source (origin
3296               (method url-fetch)
3297               (uri (string-append "mirror://gnome/sources/librsvg/"
3298                                   (version-major+minor version)  "/"
3299                                   "librsvg-" version ".tar.xz"))
3300               (sha256
3301                (base32
3302                 "1lsnl08b5pjf01q3agixjd53islw5rqkc38r31rlmm2crrqz44b2"))
3303               (modules '((guix build utils)))
3304               (snippet
3305                '(begin (delete-file-recursively "vendor")
3306                        #t))))
3307     (build-system cargo-build-system)
3308     (outputs '("out" "doc"))
3309     (arguments
3310      `(#:modules
3311        ((guix build cargo-build-system)
3312         (guix build utils)
3313         ((guix build gnu-build-system) #:prefix gnu:))
3314        #:cargo-inputs
3315        (("rust-bitflags" ,rust-bitflags-1)
3316         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3317         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3318         ("rust-cast" ,rust-cast-0.2)
3319         ("rust-cssparser" ,rust-cssparser-0.27)
3320         ("rust-data-url" ,rust-data-url-0.1)
3321         ("rust-encoding" ,rust-encoding-0.2)
3322         ("rust-float-cmp" ,rust-float-cmp-0.8)
3323         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3324         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3325         ("rust-gio" ,rust-gio-0.8)
3326         ("rust-gio-sys" ,rust-gio-sys-0.9)
3327         ("rust-glib" ,rust-glib-0.9)
3328         ("rust-glib-sys" ,rust-glib-sys-0.9)
3329         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3330         ("rust-itertools" ,rust-itertools-0.9)
3331         ("rust-language-tags" ,rust-language-tags-0.2)
3332         ("rust-libc" ,rust-libc-0.2)
3333         ("rust-locale-config" ,rust-locale-config-0.3)
3334         ("rust-markup5ever" ,rust-markup5ever-0.10)
3335         ("rust-nalgebra" ,rust-nalgebra-0.21)
3336         ("rust-num-traits" ,rust-num-traits-0.2)
3337         ("rust-once-cell" ,rust-once-cell-1)
3338         ("rust-pkg-config" ,rust-pkg-config-0.3)
3339         ("rust-pango" ,rust-pango-0.8)
3340         ("rust-pango-sys" ,rust-pango-sys-0.9)
3341         ("rust-pangocairo" ,rust-pangocairo-0.9)
3342         ("rust-rayon" ,rust-rayon-1)
3343         ("rust-rctree" ,rust-rctree-0.3)
3344         ("rust-rgb" ,rust-rgb-0.8)
3345         ("rust-regex" ,rust-regex-1)
3346         ("rust-selectors" ,rust-selectors-0.22)
3347         ("rust-string-cache" ,rust-string-cache-0.8)
3348         ("rust-tinyvec" ,rust-tinyvec-0.3)
3349         ("rust-url" ,rust-url-2)
3350         ("rust-xml5ever" ,rust-xml5ever-0.16))
3351        #:cargo-development-inputs
3352        (("rust-assert-cmd" ,rust-assert-cmd-1)
3353         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3354         ("rust-chrono" ,rust-chrono-0.4)
3355         ("rust-criterion" ,rust-criterion-0.3)
3356         ("rust-float-cmp" ,rust-float-cmp-0.8)
3357         ("rust-lopdf" ,rust-lopdf-0.25)
3358         ("rust-png" ,rust-png-0.16)
3359         ("rust-predicates" ,rust-predicates-1)
3360         ("rust-tempfile" ,rust-tempfile-3))
3361        #:phases
3362        (modify-phases %standard-phases
3363          (add-after 'unpack 'patch-docbook-xml
3364            (lambda* (#:key inputs #:allow-other-keys)
3365              (with-directory-excursion "doc"
3366                (substitute* "rsvg-docs.xml"
3367                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3368                   (string-append (assoc-ref inputs "docbook-xml")
3369                                  "/xml/dtd/docbook/"))))
3370              #t))
3371          (add-after 'unpack 'prepare-for-build
3372            (lambda _
3373              ;; In lieu of #:make-flags
3374              (setenv "CC" ,(cc-for-target))
3375              ;; Something about the build environment resists building
3376              ;; successfully with the '--locked' flag.
3377              (substitute* '("Makefile.am" "Makefile.in")
3378                (("--locked") ""))
3379              #t))
3380          (add-before 'configure 'pre-configure
3381            (lambda _
3382              (substitute* "gdk-pixbuf-loader/Makefile.in"
3383                ;; By default the gdk-pixbuf loader is installed under
3384                ;; gdk-pixbuf's prefix.  Work around that.
3385                (("gdk_pixbuf_moduledir = .*$")
3386                 (string-append "gdk_pixbuf_moduledir = "
3387                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3388                                "loaders\n"))
3389                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3390                (("gdk_pixbuf_cache_file = .*$")
3391                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3392              #t))
3393          (add-after 'configure 'gnu-configure
3394            (lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
3395              ((assoc-ref gnu:%standard-phases 'configure)
3396               #:native-inputs native-inputs
3397               #:inputs inputs
3398               #:outputs outputs
3399               #:configure-flags
3400               (list "--disable-static"
3401                     "--enable-vala"
3402                (string-append "--with-html-dir="
3403                               (assoc-ref %outputs "doc")
3404                               "/share/gtk-doc/html")))))
3405          (add-after 'configure 'dont-vendor-self
3406            (lambda* (#:key vendor-dir #:allow-other-keys)
3407              ;; Don't keep the whole tarball in the vendor directory
3408              (delete-file-recursively
3409               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
3410              #t))
3411          (replace 'build
3412            (assoc-ref gnu:%standard-phases 'build))
3413          (add-before 'check 'ignore-failing-tests
3414            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3415            (lambda _
3416              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3417                (("fn background_color_option_invalid_color_yields_error" all)
3418                 (string-append "#[ignore] " all))
3419                (("fn empty_input_yields_error" all)
3420                 (string-append "#[ignore] " all))
3421                (("fn empty_svg_yields_error" all)
3422                 (string-append "#[ignore] " all))
3423                (("fn env_source_data_epoch_empty" all)
3424                 (string-append "#[ignore] " all))
3425                (("fn env_source_data_epoch_no_digits" all)
3426                 (string-append "#[ignore] " all))
3427                (("fn env_source_data_epoch_trailing_garbage" all)
3428                 (string-append "#[ignore] " all))
3429                (("fn export_id_option_error" all)
3430                 (string-append "#[ignore] " all))
3431                (("fn huge_zoom_factor_yields_error" all)
3432                 (string-append "#[ignore] " all))
3433                (("fn multiple_input_files_not_allowed_for_png_output" all)
3434                 (string-append "#[ignore] " all))
3435                (("fn stylesheet_option_error" all)
3436                 (string-append "#[ignore] " all)))
3437              #t))
3438          (replace 'check
3439            (lambda* args
3440              ((assoc-ref gnu:%standard-phases 'check)
3441               #:test-target "check")))
3442          (replace 'install
3443            (assoc-ref gnu:%standard-phases 'install)))))
3444     (native-inputs
3445      `(("docbook-xml" ,docbook-xml-4.3)
3446        ("glib" ,glib "bin")
3447        ("gobject-introspection" ,gobject-introspection)
3448        ("pkg-config" ,pkg-config)
3449        ("python" ,python-wrapper)
3450        ("ruby" ,ruby)
3451        ("vala" ,vala)))
3452     (inputs
3453      `(("bzip2" ,bzip2)
3454        ("fontconfig" ,fontconfig)
3455        ("freetype" ,freetype)
3456        ("harfbuzz" ,harfbuzz)
3457        ("libcroco" ,libcroco)
3458        ("libgsf" ,libgsf)
3459        ("libxml2" ,libxml2)
3460        ("pango" ,pango)))
3461     (propagated-inputs
3462      `(("cairo" ,cairo)
3463        ("gdk-pixbuf" ,gdk-pixbuf)
3464        ("glib" ,glib)))
3465     (synopsis "SVG rendering library")
3466     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3467 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3468 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3469 diagrams.")
3470     (home-page "https://wiki.gnome.org/LibRsvg")
3471     (license license:lgpl2.1+)))
3472
3473 (define-public libidl
3474   (package
3475     (name "libidl")
3476     (version "0.8.14")
3477     (source (origin
3478               (method url-fetch)
3479               (uri (string-append "mirror://gnome/sources/libIDL/"
3480                                   (version-major+minor version) "/"
3481                                   "libIDL-" version ".tar.bz2"))
3482               (sha256
3483                (base32
3484                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3485     (build-system gnu-build-system)
3486     (inputs `(("glib" ,glib)))
3487     (native-inputs
3488      `(("pkg-config" ,pkg-config)
3489        ("flex" ,flex)
3490        ("bison" ,bison)))
3491     (home-page "http://freecode.com/projects/libidl")
3492     (synopsis "Create trees of CORBA Interface Definition Language files")
3493     (description  "Libidl is a library for creating trees of CORBA Interface
3494 Definition Language (idl) files, which is a specification for defining
3495 portable interfaces. libidl was initially written for orbit (the orb from the
3496 GNOME project, and the primary means of libidl distribution).  However, the
3497 functionality was designed to be as reusable and portable as possible.")
3498     (properties `((upstream-name . "libIDL")))
3499     (license license:lgpl2.0+)))
3500
3501
3502 (define-public orbit2
3503   (package
3504     (name "orbit2")
3505     (version "2.14.19")
3506     (source (origin
3507               (method url-fetch)
3508               (uri (let ((upstream-name "ORBit2"))
3509                      (string-append "mirror://gnome/sources/" upstream-name "/"
3510                                     (version-major+minor version) "/"
3511                                     upstream-name "-" version ".tar.bz2")))
3512               (sha256
3513                (base32
3514                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3515     (build-system gnu-build-system)
3516     (arguments
3517      `(;; The "timeout-server" test hangs when run in parallel.
3518        #:parallel-tests? #f
3519        #:configure-flags
3520        '(;; We don't need static libraries, plus they don't build reproducibly
3521          ;; (non-deterministic ordering of .o files in the archive.)
3522          "--disable-static"
3523
3524          ;; The programmer kindly gives us a hook to turn off deprecation
3525          ;; warnings ...
3526          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3527        ;; ... which they then completly ignore !!
3528        #:phases
3529        (modify-phases %standard-phases
3530          (add-before 'configure 'ignore-deprecations
3531            (lambda _
3532              (substitute* "linc2/src/Makefile.in"
3533                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3534              #t)))))
3535     (inputs `(("glib" ,glib)
3536               ("libidl" ,libidl)))
3537     (native-inputs
3538      `(("pkg-config" ,pkg-config)))
3539     (home-page "https://projects.gnome.org/orbit2/")
3540     (synopsis "CORBA 2.4-compliant Object Request Broker")
3541     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3542 featuring mature C, C++ and Python bindings.")
3543     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3544     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3545     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3546     (license license:gpl2+)
3547     (properties `((upstream-name . "ORBit2")))))
3548
3549
3550 (define-public libbonobo
3551   (package
3552     (name "libbonobo")
3553     (version "2.32.1")
3554     (source (origin
3555               (method url-fetch)
3556               (uri (string-append "mirror://gnome/sources/" name "/"
3557                                   (version-major+minor version)
3558                                   "/" name "-" version ".tar.bz2"))
3559               (sha256
3560                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3561               (patches (search-patches
3562                         "libbonobo-activation-test-race.patch"))))
3563     (build-system gnu-build-system)
3564     (arguments
3565      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3566      `(#:configure-flags
3567        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3568        ;; ... which they then completly ignore !!
3569        #:phases
3570        (modify-phases %standard-phases
3571          (add-before 'configure 'ignore-deprecations
3572            (lambda _
3573              (substitute* "activation-server/Makefile.in"
3574                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3575              #t)))
3576
3577        ;; There's apparently a race condition between the server stub
3578        ;; generation and linking of the example under 'samples/echo' that can
3579        ;; lead do undefined references when building in parallel, as reported
3580        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3581        ;; Thus, disable parallel builds.
3582        #:parallel-build? #f))
3583     (inputs `(("popt" ,popt)
3584               ("libxml2" ,libxml2)))
3585     ;; The following are Required by the .pc file
3586     (propagated-inputs
3587      `(("glib" ,glib)
3588        ("orbit2" ,orbit2)))
3589     (native-inputs
3590      `(("intltool" ,intltool)
3591        ("pkg-config" ,pkg-config)
3592        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3593        ("flex" ,flex)
3594        ("bison" ,bison)))
3595     (home-page "https://developer.gnome.org/libbonobo/")
3596     (synopsis "Framework for creating reusable components for use in GNOME applications")
3597     (description "Bonobo is a framework for creating reusable components for
3598 use in GNOME applications, built on top of CORBA.")
3599     ;; Licence not explicitly stated.  Source files contain no licence notices.
3600     ;; Tarball contains text of both GPLv2 and LGPLv2
3601     ;; GPLv2 covers both conditions
3602     (license license:gpl2+)))
3603
3604
3605 (define-public gconf
3606   (package
3607     (name "gconf")
3608     (version "3.2.6")
3609     (source (origin
3610               (method url-fetch)
3611               (uri
3612                (let ((upstream-name "GConf"))
3613                  (string-append "mirror://gnome/sources/" upstream-name "/"
3614                                 (version-major+minor version) "/"
3615                                 upstream-name "-" version ".tar.xz")))
3616               (sha256
3617                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3618     (build-system gnu-build-system)
3619     (inputs `(("dbus-glib" ,dbus-glib)
3620               ("libxml2" ,libxml2)))
3621     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3622                          ("orbit2" ,orbit2)))
3623     (native-inputs
3624      `(("intltool" ,intltool)
3625        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3626        ("pkg-config" ,pkg-config)))
3627     (home-page "https://projects.gnome.org/gconf/")
3628     (synopsis "Store application preferences")
3629     (description "Gconf is a system for storing application preferences.  It
3630 is intended for user preferences; not arbitrary data storage.")
3631     (license license:lgpl2.0+)
3632     (properties '((upstream-name . "GConf")))))
3633
3634
3635 (define-public gnome-mime-data
3636   (package
3637     (name "gnome-mime-data")
3638     (version "2.18.0")
3639     (source (origin
3640               (method url-fetch)
3641               (uri (string-append "mirror://gnome/sources/" name "/"
3642                                   (version-major+minor version)  "/"
3643                                   name "-" version ".tar.bz2"))
3644               (sha256
3645                (base32
3646                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3647     (build-system gnu-build-system)
3648     (native-inputs
3649      `(("perl" ,perl)
3650        ("intltool" ,intltool)))
3651     (arguments
3652      '(#:phases (modify-phases %standard-phases
3653                   (add-after 'configure 'use-our-intltool
3654                     (lambda _
3655                       ;; Do not use the bundled intltool commands, which lack
3656                       ;; the "dotless @INC" fixes of our 'intltool' package.
3657                       (substitute* (find-files "." "^Makefile$")
3658                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3659                          (string-append "INTLTOOL_" tool " = intltool-"
3660                                         (string-downcase tool) "\n")))
3661                       #t)))))
3662     (home-page "https://www.gnome.org")
3663     (synopsis "Base MIME and Application database for GNOME")
3664     (description  "GNOME Mime Data is a module which contains the base MIME
3665 and Application database for GNOME.  The data stored by this module is
3666 designed to be accessed through the MIME functions in GnomeVFS.")
3667     (license license:gpl2+)))
3668
3669
3670 (define-public gnome-vfs
3671   (package
3672     (name "gnome-vfs")
3673     (version "2.24.4")
3674     (source (origin
3675               (method url-fetch)
3676               (uri (string-append "mirror://gnome/sources/" name "/"
3677                                   (version-major+minor version)  "/"
3678                                   name "-" version ".tar.bz2"))
3679               (sha256
3680                (base32
3681                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3682     (build-system gnu-build-system)
3683     (arguments
3684      `(#:phases
3685        (modify-phases %standard-phases
3686          (add-before 'configure 'ignore-deprecations
3687            (lambda _
3688              (substitute* '("libgnomevfs/Makefile.in"
3689                             "daemon/Makefile.in")
3690                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3691              #t))
3692          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3693            (lambda _
3694              (substitute* "test/test-async-cancel.c"
3695                (("EXIT_FAILURE") "77"))
3696              #t)))))
3697     (inputs `(("libxml2" ,libxml2)
3698               ("dbus-glib" ,dbus-glib)
3699               ("gconf" ,gconf)
3700               ("gnome-mime-data" ,gnome-mime-data)
3701               ("zlib" ,zlib)))
3702     (native-inputs
3703      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3704        ("intltool" ,intltool)
3705        ("pkg-config" ,pkg-config)))
3706     (home-page "https://developer.gnome.org/gnome-vfs/")
3707     (synopsis "Access files and folders in GNOME applications")
3708     (description
3709      "GnomeVFS is the core library used to access files and folders in GNOME
3710 applications.  It provides a file system abstraction which allows applications
3711 to access local and remote files with a single consistent API.")
3712     (license license:lgpl2.0+)))
3713
3714
3715
3716 (define-public libgnome
3717   (package
3718     (name "libgnome")
3719     (version "2.32.1")
3720     (source (origin
3721               (method url-fetch)
3722               (uri (string-append "mirror://gnome/sources/" name "/"
3723                                   (version-major+minor version)  "/"
3724                                   name "-" version ".tar.bz2"))
3725               (sha256
3726                (base32
3727                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3728               (patches (search-patches "libgnome-encoding.patch"))))
3729     (build-system gnu-build-system)
3730     (arguments
3731      `(#:phases
3732        (modify-phases %standard-phases
3733          (add-before 'configure 'enable-deprecated
3734            (lambda _
3735              (substitute* "libgnome/Makefile.in"
3736                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3737              #t)))))
3738     (inputs `(("libxml2" ,libxml2)))
3739     (native-inputs
3740      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3741        ("intltool" ,intltool)
3742        ("pkg-config" ,pkg-config)))
3743     ;; The following are listed as Required in the .pc file
3744     ;; (except for libcanberra -- which seems to be oversight on the part
3745     ;; of the upstream developers -- anything that links against libgnome,
3746     ;; must also link against libcanberra
3747     (propagated-inputs
3748      `(("libcanberra" ,libcanberra)
3749        ("libbonobo" ,libbonobo)
3750        ("gconf" ,gconf)
3751        ("gnome-vfs" ,gnome-vfs)
3752        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
3753     (home-page "https://developer.gnome.org/libgnome/")
3754     (synopsis "Useful routines for building applications")
3755     (description  "The libgnome library provides a number of useful routines
3756 for building modern applications, including session management, activation of
3757 files and URIs, and displaying help.")
3758     (license license:lgpl2.0+)))
3759
3760
3761 (define-public libart-lgpl
3762   (package
3763     (name "libart-lgpl")
3764     (version "2.3.21")
3765     (source (origin
3766               (method url-fetch)
3767               (uri (let ((upstream-name "libart_lgpl"))
3768                      (string-append "mirror://gnome/sources/" upstream-name "/"
3769                                     (version-major+minor version) "/"
3770                                     upstream-name "-" version ".tar.bz2")))
3771               (sha256
3772                (base32
3773                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3774     (build-system gnu-build-system)
3775     (native-inputs
3776      `(("pkg-config" ,pkg-config)))
3777     (home-page "https://people.gnome.org/~mathieu/libart")
3778     (synopsis "2D drawing library")
3779     (description  "Libart is a 2D drawing library intended as a
3780 high-quality vector-based 2D library with antialiasing and alpha composition.")
3781     (license license:lgpl2.0+)))
3782
3783
3784
3785 (define-public libgnomecanvas
3786   (package
3787     (name "libgnomecanvas")
3788     (version "2.30.3")
3789     (source (origin
3790               (method url-fetch)
3791               (uri (string-append "mirror://gnome/sources/" name "/"
3792                                   (version-major+minor version)  "/"
3793                                   name "-" version ".tar.gz"))
3794               (sha256
3795                (base32
3796                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3797     (build-system gnu-build-system)
3798     ;; Mentioned as Required in the .pc file
3799     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
3800                          ("gtk+" ,gtk+-2)))
3801     (native-inputs
3802      `(("intltool" ,intltool)
3803        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3804        ("pkg-config" ,pkg-config)))
3805     (home-page "https://developer.gnome.org/libgnomecanvas/")
3806     (synopsis "Flexible widget for creating interactive structured graphics")
3807     (description  "The GnomeCanvas widget provides a flexible widget for
3808 creating interactive structured graphics.")
3809     (license license:lgpl2.0+)))
3810
3811 (define-public libgnomecanvasmm
3812   (package
3813     (name "libgnomecanvasmm")
3814     (version "2.26.0")
3815     (source (origin
3816               (method url-fetch)
3817               (uri (string-append "mirror://gnome/sources/" name "/"
3818                                   (version-major+minor version)  "/"
3819                                   name "-" version ".tar.bz2"))
3820               (sha256
3821                (base32
3822                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3823     (build-system gnu-build-system)
3824     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
3825     (native-inputs
3826      `(("gtkmm-2" ,gtkmm-2)
3827        ("pkg-config" ,pkg-config)))
3828     (home-page "https://gtkmm.org")
3829     (synopsis "C++ bindings to the GNOME Canvas library")
3830     (description "C++ bindings to the GNOME Canvas library.")
3831     (license license:lgpl2.0+)))
3832
3833 (define-public libgnomeui
3834   (package
3835     (name "libgnomeui")
3836     (version "2.24.5")
3837     (source (origin
3838               (method url-fetch)
3839               (uri (string-append "mirror://gnome/sources/" name "/"
3840                                   (version-major+minor version)  "/"
3841                                   name "-" version ".tar.bz2"))
3842               (patches (search-patches "libgnomeui-utf8.patch"))
3843               (sha256
3844                (base32
3845                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3846     (build-system gnu-build-system)
3847     ;; Mentioned as Required in the .pc file
3848     (propagated-inputs `(("libbonoboui" ,libbonoboui)
3849                          ("libgnome" ,libgnome)
3850                          ("libgnomecanvas" ,libgnomecanvas)
3851                          ("libgnome-keyring" ,libgnome-keyring)))
3852     (inputs `(("libjpeg" ,libjpeg-turbo)
3853               ("popt" ,popt)
3854               ("libbonobo" ,libbonobo)
3855               ("libxml2" ,libxml2)
3856               ("libglade" ,libglade)))
3857     (native-inputs
3858      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3859        ("intltool" ,intltool)
3860        ("pkg-config" ,pkg-config)))
3861     (home-page "https://developer.gnome.org/libgnomeui/")
3862     (synopsis "Additional widgets for applications")
3863     (description "The libgnomeui library provides additional widgets for
3864 applications.  Many of the widgets from libgnomeui have already been
3865 ported to GTK+.")
3866     (license license:lgpl2.0+)))
3867
3868 (define-public libglade
3869   (package
3870     (name "libglade")
3871     (version "2.6.4")
3872     (source (origin
3873               (method url-fetch)
3874               (uri (string-append "mirror://gnome/sources/" name "/"
3875                                   (version-major+minor version)  "/"
3876                                   name "-" version ".tar.bz2"))
3877               (sha256
3878                (base32
3879                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
3880     (build-system gnu-build-system)
3881     (inputs
3882      `(("python" ,python))) ;; needed for the optional libglade-convert program
3883     (propagated-inputs
3884      `(("gtk+-2" ,gtk+-2)
3885        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
3886     (native-inputs
3887      `(("pkg-config" ,pkg-config)))
3888     (home-page "https://developer.gnome.org/libglade")
3889     (synopsis "Load glade interfaces and access the glade built widgets")
3890     (description "Libglade is a library that provides interfaces for loading
3891 graphical interfaces described in glade files and for accessing the
3892 widgets built in the loading process.")
3893     (license license:gpl2+))) ; This is correct.  GPL not LGPL
3894
3895 (define-public libgnomeprint
3896   ;; This library has been deprecated since 2006; see
3897   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
3898   (package
3899     (name "libgnomeprint")
3900     (version "2.18.8")
3901     (source (origin
3902               (method url-fetch)
3903               (uri (string-append "mirror://gnome/sources/" name "/"
3904                                   (version-major+minor version)  "/"
3905                                   name "-" version ".tar.bz2"))
3906               (sha256
3907                (base32
3908                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
3909     (build-system gnu-build-system)
3910     (inputs
3911      `(("popt" ,popt)
3912        ("libart-lgpl" ,libart-lgpl)
3913        ("gtk+" ,gtk+-2)
3914        ("libxml2" ,libxml2)))
3915     (native-inputs
3916      `(("intltool" ,intltool)
3917        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3918        ("pkg-config" ,pkg-config)))
3919     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
3920     (synopsis "Printing framework for GNOME")
3921     (description
3922      "GNOME-print was a printing framework for GNOME.  It has been deprecated
3923 since ca. 2006, when GTK+ itself incorporated printing support.")
3924     (license license:lgpl2.0+)))
3925
3926
3927 (define-public libgnomeprintui
3928   ;; Deprecated; see libgnomeprint.
3929   (package
3930     (name "libgnomeprintui")
3931     (version "2.18.6")
3932     (source (origin
3933               (method url-fetch)
3934               (uri (string-append "mirror://gnome/sources/" name "/"
3935                                   (version-major+minor version)  "/"
3936                                   name "-" version ".tar.bz2"))
3937               (sha256
3938                (base32
3939                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
3940     (build-system gnu-build-system)
3941     ;; Mentioned as Required in the .pc file
3942     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
3943     (inputs `(("gtk+" ,gtk+-2)
3944               ("glib" ,glib)
3945               ("gnome-icon-theme" ,gnome-icon-theme)
3946               ("libgnomecanvas" ,libgnomecanvas)
3947               ("libxml2" ,libxml2)))
3948     (native-inputs
3949      `(("intltool" ,intltool)
3950        ("pkg-config" ,pkg-config)))
3951     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
3952     (synopsis "Printing framework for GNOME")
3953     (description (package-description libgnomeprint))
3954     (license license:lgpl2.0+)))
3955
3956 (define-public libbonoboui
3957   (package
3958     (name "libbonoboui")
3959     (version "2.24.5")
3960     (source (origin
3961               (method url-fetch)
3962               (uri (string-append "mirror://gnome/sources/" name "/"
3963                                   (version-major+minor version)  "/"
3964                                   name "-" version ".tar.bz2"))
3965               (sha256
3966                (base32
3967                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
3968     (build-system gnu-build-system)
3969     (arguments
3970      `(#:phases
3971        (modify-phases %standard-phases
3972          (add-before 'check 'start-xserver
3973            (lambda* (#:key inputs #:allow-other-keys)
3974              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3975                    (disp ":1"))
3976
3977                (setenv "HOME" (getcwd))
3978                (setenv "DISPLAY" disp)
3979                ;; There must be a running X server and make check doesn't start one.
3980                ;; Therefore we must do it.
3981                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
3982     ;; Mentioned as Required by the .pc file
3983     (propagated-inputs `(("libxml2" ,libxml2)))
3984     (inputs
3985      `(("popt" ,popt)
3986        ("pangox-compat" ,pangox-compat)
3987        ("libgnome" ,libgnome)
3988        ("libgnomecanvas" ,libgnomecanvas)
3989        ("libglade" ,libglade)))
3990     (native-inputs
3991      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3992        ("intltool" ,intltool)
3993        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
3994        ("pkg-config" ,pkg-config)))
3995     (home-page "https://developer.gnome.org/libbonoboui/")
3996     (synopsis "Some user interface controls using Bonobo")
3997     (description  "The Bonobo UI library provides a number of user interface
3998 controls using the Bonobo component framework.")
3999     (license license:lgpl2.0+)))
4000
4001 (define-public libwnck
4002   (package
4003     (name "libwnck")
4004     (version "3.32.0")
4005     (source (origin
4006               (method url-fetch)
4007               (uri (string-append "mirror://gnome/sources/" name "/"
4008                                   (version-major+minor version) "/"
4009                                   name "-" version ".tar.xz"))
4010               (sha256
4011                (base32
4012                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4013     (build-system meson-build-system)
4014     (native-inputs
4015      `(("pkg-config" ,pkg-config)
4016        ("glib" ,glib "bin") ; for glib-mkenums
4017        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
4018        ("intltool" ,intltool)))
4019     (propagated-inputs
4020      `(("gtk+" ,gtk+)
4021        ("libxres" ,libxres)
4022        ("startup-notification" ,startup-notification)))
4023     (home-page "https://developer.gnome.org/libwnck/")
4024     (synopsis "Window Navigator Construction Kit")
4025     (description
4026      "Libwnck is the Window Navigator Construction Kit, a library for use in
4027 writing pagers, tasklists, and more generally applications that are dealing
4028 with window management.  It tries hard to respect the Extended Window Manager
4029 Hints specification (EWMH).")
4030     (license license:lgpl2.0+)))
4031
4032 ;; stable version for gtk2, required by xfwm4.
4033 (define-public libwnck-2
4034   (package (inherit libwnck)
4035     (name "libwnck")
4036     (version "2.30.7")
4037     (source (origin
4038               (method url-fetch)
4039               (uri (string-append "mirror://gnome/sources/" name "/"
4040                                   (version-major+minor version) "/"
4041                                   name "-" version ".tar.xz"))
4042               (sha256
4043                (base32
4044                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4045     (build-system gnu-build-system)
4046     (native-inputs
4047      `(("pkg-config" ,pkg-config)
4048        ("intltool" ,intltool)))
4049     (propagated-inputs
4050      `(("gtk+" ,gtk+-2)
4051        ("libxres" ,libxres)
4052        ("startup-notification" ,startup-notification)))))
4053
4054 (define-public goffice
4055   (package
4056     (name "goffice")
4057     (version "0.10.48")
4058     (source (origin
4059               (method url-fetch)
4060               (uri (string-append "mirror://gnome/sources/goffice/"
4061                                   (version-major+minor version)  "/"
4062                                   "goffice-" version ".tar.xz"))
4063               (sha256
4064                (base32 "1z6f3q8fxkd1ysqrwdxdi0844zqa00vjpf07gq8mh3kal8picfd4"))))
4065     (build-system gnu-build-system)
4066     (outputs '("out"
4067                "doc"))                  ; 4.0 MiB of gtk-doc
4068     (arguments
4069      '(#:configure-flags (list (string-append "--with-html-dir="
4070                                               (assoc-ref %outputs "doc")
4071                                               "/share/gtk-doc/html"))))
4072     (inputs
4073      `(("gtk+" ,gtk+)
4074        ("libgsf" ,libgsf)
4075        ("librsvg" ,librsvg)
4076        ("libxslt" ,libxslt)
4077        ("libxml2" ,libxml2)))
4078     (native-inputs
4079      `(("intltool" ,intltool)
4080        ("glib" ,glib "bin")
4081        ("pkg-config" ,pkg-config)))
4082     (home-page "https://developer.gnome.org/goffice/")
4083     (synopsis "Document-centric objects and utilities")
4084     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4085     (license
4086      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4087      ;; Note: NOT LGPL
4088      (list license:gpl2 license:gpl3))))
4089
4090 (define-public goffice-0.8
4091   (package (inherit goffice)
4092     (version "0.8.17")
4093     (source (origin
4094               (method url-fetch)
4095               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4096                                   (version-major+minor version)  "/"
4097                                   (package-name goffice) "-" version ".tar.xz"))
4098               (sha256
4099                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4100     (arguments
4101      `(#:phases
4102        (modify-phases %standard-phases
4103          (add-after 'unpack 'fix-pcre-check
4104            (lambda _
4105              ;; Only glib.h can be included directly.  See
4106              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4107              (substitute* "configure"
4108                (("glib/gregex\\.h") "glib.h")) #t)))
4109
4110        ,@(package-arguments goffice)))
4111     (propagated-inputs
4112      ;; libgoffice-0.8.pc mentions libgsf-1
4113      `(("libgsf" ,libgsf)))
4114     (inputs
4115      `(("gtk" ,gtk+-2)
4116        ,@(alist-delete "gtk" (package-inputs goffice))))))
4117
4118 (define-public gnumeric
4119   (package
4120     (name "gnumeric")
4121     (version "1.12.48")
4122     (source (origin
4123               (method url-fetch)
4124               (uri (string-append "mirror://gnome/sources/gnumeric/"
4125                                   (version-major+minor version)  "/"
4126                                   "gnumeric-" version ".tar.xz"))
4127               (sha256
4128                (base32
4129                 "14556b0vyxdvdwjlin0rv7jk0vq4nplbmvp9j89bhkfk84xf7k2p"))))
4130     (build-system glib-or-gtk-build-system)
4131     (arguments
4132      `(;; The gnumeric developers don't worry much about failing tests.
4133        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4134        #:tests? #f
4135        #:phases
4136        (modify-phases %standard-phases
4137          (add-before
4138           'configure 'pre-conf
4139            (lambda* (#:key outputs #:allow-other-keys)
4140              ;; Make install tries to write into the directory of goffice
4141              ;; I am informed that this only affects the possibility to embed a
4142              ;; spreadsheet inside an Abiword document.   So presumably when we
4143              ;; package Abiword we'll have to refer it to this directory.
4144              (substitute* "configure"
4145                (("^GOFFICE_PLUGINS_DIR=.*")
4146                 (string-append "GOFFICE_PLUGINS_DIR="
4147                                (assoc-ref outputs "out")
4148                                "/goffice/plugins"))))))))
4149     (inputs
4150      `(("glib" ,glib)
4151        ("gtk+" ,gtk+)
4152        ("goffice" ,goffice)
4153        ("libgsf" ,libgsf)
4154        ("librsvg" ,librsvg)
4155        ("libxml2" ,libxml2)
4156        ("libxslt" ,libxslt)
4157        ("python" ,python)
4158        ("python-pygobject" ,python-pygobject)
4159        ("zlib" ,zlib)))
4160     (native-inputs
4161      `(("bison" ,bison)
4162        ("docbook-xml" ,docbook-xml)
4163        ("intltool" ,intltool)
4164        ("itstool" ,itstool)
4165        ("glib:bin" ,glib "bin")
4166        ("pkg-config" ,pkg-config)))
4167     (home-page "http://www.gnumeric.org")
4168     (synopsis "Spreadsheet application")
4169     (description
4170      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4171 interoperable with other spreadsheet applications.  It has a vast array of
4172 features beyond typical spreadsheet functionality, such as support for linear
4173 and non-linear solvers, statistical analysis, and telecommunication
4174 engineering.")
4175     (license
4176     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4177      (list license:gpl2 license:gpl3))))
4178
4179 (define-public gnome-themes-standard
4180   (package
4181     (name "gnome-themes-standard")
4182     (version "3.22.3")
4183     (source
4184      (origin
4185        (method url-fetch)
4186        (uri (string-append "mirror://gnome/sources/" name "/"
4187                            (version-major+minor version) "/" name "-"
4188                            version ".tar.xz"))
4189        (sha256
4190         (base32
4191          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4192     (build-system gnu-build-system)
4193     (arguments
4194      '(#:configure-flags
4195        ;; Don't create 'icon-theme.cache'.
4196        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4197               (true      (string-append coreutils "/bin/true")))
4198          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4199     (inputs
4200      `(("gtk+" ,gtk+)
4201        ("gtk+-2" ,gtk+-2)
4202        ("librsvg" ,librsvg)
4203        ("libxml2" ,libxml2)
4204        ("glib" ,glib)))
4205     (native-inputs
4206      `(("intltool" ,intltool)
4207        ("glib:bin" ,glib "bin")
4208        ("pkg-config" ,pkg-config)))
4209     (home-page "https://launchpad.net/gnome-themes-standard")
4210     (synopsis "Default GNOME 3 themes")
4211     (description
4212      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4213     (license license:lgpl2.1+)))
4214
4215 (define-public seahorse
4216   (package
4217     (name "seahorse")
4218     (version "3.36.2")
4219     (source
4220      (origin
4221        (method url-fetch)
4222        (uri (string-append "mirror://gnome/sources/" name "/"
4223                            (version-major+minor version) "/" name "-"
4224                            version ".tar.xz"))
4225        (sha256
4226         (base32 "16wmxxppgcgfj8zkagcny5af1c81x32ysm9d6j9f2k7bmik21ss5"))))
4227     (build-system meson-build-system)
4228     (arguments
4229      '(#:glib-or-gtk? #t
4230        #:phases
4231        (modify-phases %standard-phases
4232          (add-after 'unpack 'skip-gtk-update-icon-cache
4233            ;; Don't create 'icon-theme.cache'.
4234            (lambda _
4235              (substitute* "build-aux/meson_post_install.py"
4236                (("gtk-update-icon-cache") "true"))
4237              #t)))))
4238     (inputs
4239      `(("gtk+" ,gtk+)
4240        ("gcr" ,gcr)
4241        ("gnupg" ,gnupg)
4242        ("gpgme" ,gpgme)
4243        ("openldap" ,openldap)
4244        ("openssh" ,openssh)
4245        ("avahi" ,avahi)
4246        ("libhandy" ,libhandy-0.0)
4247        ("libpwquality" ,libpwquality)
4248        ("libsecret" ,libsecret)
4249        ("libsoup" ,libsoup)))
4250     (native-inputs
4251      `(("gettext" ,gettext-minimal)
4252        ("glib:bin" ,glib "bin")
4253        ("itstool" ,itstool)
4254        ("pkg-config" ,pkg-config)
4255        ("vala" ,vala)
4256        ("xmllint" ,libxml2)))
4257     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4258     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4259     (description
4260      "Seahorse is a GNOME application for managing encryption keys and
4261 passwords in the GNOME keyring.")
4262     (license license:gpl2+)))
4263
4264 (define-public vala
4265   (package
4266     (name "vala")
4267     (version "0.46.5")
4268     (source (origin
4269               (method url-fetch)
4270               (uri (string-append "mirror://gnome/sources/" name "/"
4271                                   (version-major+minor version) "/"
4272                                   name "-" version ".tar.xz"))
4273               (sha256
4274                (base32
4275                 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
4276     (build-system gnu-build-system)
4277     (arguments
4278      '(#:phases
4279        (modify-phases %standard-phases
4280          (add-before 'check 'pre-check
4281                      (lambda _
4282                        (setenv "CC" "gcc")
4283                        (substitute* "valadoc/tests/testrunner.sh"
4284                          (("export PKG_CONFIG_PATH=" m)
4285                           (string-append m "$PKG_CONFIG_PATH:")))
4286                        ;; For missing '/etc/machine-id'.
4287                        (setenv "DBUS_FATAL_WARNINGS" "0")
4288                        #t)))))
4289     (native-inputs
4290      `(("pkg-config" ,pkg-config)
4291        ("flex" ,flex)
4292        ("bison" ,bison)
4293        ("xsltproc" ,libxslt)
4294        ("dbus" ,dbus)                                     ; for dbus tests
4295        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
4296     (inputs
4297      `(("graphviz" ,graphviz)))
4298     (propagated-inputs
4299      `(("glib" ,glib))) ; required by libvala-0.40.pc
4300     (home-page "https://wiki.gnome.org/Projects/Vala/")
4301     (synopsis "Compiler for the GObject type system")
4302     (description
4303      "Vala is a programming language that aims to bring modern programming
4304 language features to GNOME developers without imposing any additional runtime
4305 requirements and without using a different ABI compared to applications and
4306 libraries written in C.")
4307     (license license:lgpl2.1+)))
4308
4309 (define-public vala-0.50
4310   (package
4311     (inherit vala)
4312     (version "0.50.2")
4313     (source (origin
4314               (method url-fetch)
4315               (uri (string-append "mirror://gnome/sources/vala/"
4316                                   (version-major+minor version) "/"
4317                                   "vala-" version ".tar.xz"))
4318               (sha256
4319                (base32
4320                 "1nnf0x6vk0a9p2y6z7jwjfvmlxh3qhj581v381r0y1sxsv35s39c"))))))
4321
4322 (define-public vte
4323   (package
4324     (name "vte")
4325     (version "0.60.3")
4326     (source (origin
4327               (method url-fetch)
4328               (uri (string-append "mirror://gnome/sources/vte/"
4329                                   (version-major+minor version) "/"
4330                                   "vte-" version ".tar.xz"))
4331               (sha256
4332                (base32
4333                 "0al2v6fn061v4j1wwvppim1q283y2a6s0iyl29hxhmx3h48nxdzy"))))
4334     (build-system meson-build-system)
4335     (arguments
4336      `(#:configure-flags
4337        '("-Dvapi=true"
4338          "-D_systemd=false")))
4339     (native-inputs
4340      `(("pkg-config" ,pkg-config)
4341        ("gettext" ,gettext-minimal)
4342        ("vala" ,vala)
4343        ("gobject-introspection" ,gobject-introspection)
4344        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4345        ("gperf" ,gperf)
4346        ("xmllint" ,libxml2)))
4347     (propagated-inputs
4348      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
4349        ("gnutls" ,gnutls)               ; ditto
4350        ("pcre2" ,pcre2)))               ; ditto
4351     (home-page "https://www.gnome.org/")
4352     (synopsis "Virtual Terminal Emulator")
4353     (description
4354      "VTE is a library (libvte) implementing a terminal emulator widget for
4355 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4356 gnome-terminal, but can also be used to embed a console/terminal in games,
4357 editors, IDEs, etc.")
4358     (license license:lgpl2.1+)))
4359
4360 (define-public vte-ng
4361   (package
4362     (inherit vte)
4363     (name "vte-ng")
4364     (version "0.58.2.a")
4365     (home-page "https://github.com/thestinger/vte-ng")
4366     (source (origin
4367               (method git-fetch)
4368               (uri (git-reference (url home-page) (commit version)))
4369               (file-name (git-file-name name version))
4370               (sha256
4371                (base32
4372                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4373     (build-system meson-build-system)
4374     (native-inputs
4375      `(("gtk-doc" ,gtk-doc)
4376        ,@(package-native-inputs vte)))
4377     (arguments
4378      `(#:configure-flags '("-Ddocs=true")))
4379   (synopsis "Enhanced VTE terminal widget")
4380   (description
4381    "VTE is a library (libvte) implementing a terminal emulator widget for
4382 GTK+, this fork provides additional functions exposed for keyboard text
4383 selection and URL hints.")))
4384
4385 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4386 (define-public vte/gtk+-2
4387   (package (inherit vte)
4388     (name "vte")
4389     (version "0.28.2")
4390     (source (origin
4391               (method url-fetch)
4392               (uri (string-append "mirror://gnome/sources/" name "/"
4393                                   (version-major+minor version) "/"
4394                                   name "-" version ".tar.xz"))
4395               (sha256
4396                (base32
4397                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4398               (patches (search-patches
4399                          "vte-CVE-2012-2738-pt1.patch"
4400                          "vte-CVE-2012-2738-pt2.patch"))))
4401     (build-system gnu-build-system)
4402     (arguments
4403      '(#:configure-flags '("--disable-python")))
4404     (native-inputs
4405      `(("pkg-config" ,pkg-config)
4406        ("intltool" ,intltool)
4407        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
4408     (propagated-inputs
4409      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
4410        ("ncurses" ,ncurses))))) ; required by libvte.la
4411
4412 (define-public vinagre
4413   (package
4414     (name "vinagre")
4415     (version "3.22.0")
4416     (source (origin
4417               (method url-fetch)
4418               (uri (string-append "mirror://gnome/sources/" name "/"
4419                                   (version-major+minor version) "/"
4420                                   name "-" version ".tar.xz"))
4421               (patches (search-patches "vinagre-newer-freerdp.patch"
4422                                        "vinagre-newer-rdp-parameters.patch"))
4423               (sha256
4424                (base32
4425                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4426     (build-system glib-or-gtk-build-system)
4427     (arguments
4428      ;; Disable -Werror and such, to avoid build failures on compilation
4429      ;; warnings.
4430      '(#:configure-flags '("--enable-compile-warnings=minimum")
4431        #:phases
4432        (modify-phases %standard-phases
4433          (add-before 'install 'skip-gtk-update-icon-cache
4434            (lambda _
4435              ;; Don't create 'icon-theme.cache'
4436              (substitute* (find-files "." "^Makefile$")
4437                (("gtk-update-icon-cache") (which "true")))
4438              #t))
4439          (add-after 'unpack 'patch-configure
4440            (lambda _
4441              (substitute* "configure"
4442                (("freerdp") "freerdp2"))
4443              #t)))))
4444     (native-inputs
4445      `(("pkg-config" ,pkg-config)
4446        ("intltool" ,intltool)
4447        ("itstool" ,itstool)
4448        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4449     (inputs
4450      `(("libxml2" ,libxml2)
4451        ("gtk-vnc" ,gtk-vnc)
4452        ("gnome-keyring" ,gnome-keyring)
4453        ("libsecret" ,libsecret)
4454        ("freerdp" ,freerdp)
4455        ("spice" ,spice)
4456        ("spice-gtk" ,spice-gtk)
4457        ("telepathy-glib" ,telepathy-glib)
4458        ("vte" ,vte)))
4459     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4460     (synopsis "Remote desktop viewer for GNOME")
4461     (description "Vinagre is a remote display client supporting the VNC, SPICE
4462 and RDP protocols.")
4463     (license license:gpl3+)))
4464
4465 (define-public dconf
4466   (package
4467     (name "dconf")
4468     (version "0.36.0")
4469     (source (origin
4470               (method url-fetch)
4471               (uri (string-append
4472                     "mirror://gnome/sources/" name "/"
4473                     (version-major+minor version) "/"
4474                     name "-" version ".tar.xz"))
4475               (sha256
4476                (base32
4477                 "0bfs069pjv6lhp7xrzmrhz3876ay2ryqxzc6mlva1hhz34ibprlz"))))
4478     (build-system meson-build-system)
4479     (propagated-inputs
4480      ;; In Requires of dconf.pc.
4481      `(("glib" ,glib)))
4482     (inputs
4483      `(("gtk+" ,gtk+)
4484        ("dbus" ,dbus)))
4485     (native-inputs
4486      `(("bash-completion" ,bash-completion)
4487        ("libxslt" ,libxslt)                     ;for xsltproc
4488        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4489        ("docbook-xml" ,docbook-xml-4.2)
4490        ("docbook-xsl" ,docbook-xsl)
4491        ("glib:bin" ,glib "bin")
4492        ("gtk-doc" ,gtk-doc)
4493        ("pkg-config" ,pkg-config)
4494        ("vala" ,vala)))
4495     (arguments
4496      `(#:glib-or-gtk? #t
4497        #:configure-flags '("-Denable-gtk-doc=true")
4498        #:phases (modify-phases %standard-phases
4499                   (add-after 'unpack 'increase-test-timeout
4500                     (lambda _
4501                       ;; On big-memory systems, the engine test may take
4502                       ;; much longer than the default of 30 seconds.
4503                       (substitute* "tests/meson.build"
4504                         (("test\\(unit_test\\[0\\], exe" all)
4505                          (string-append all ", timeout : 90")))
4506                       #t)))))
4507     (home-page "https://developer.gnome.org/dconf/")
4508     (synopsis "Low-level GNOME configuration system")
4509     (description "Dconf is a low-level configuration system.  Its main purpose
4510 is to provide a backend to GSettings on platforms that don't already have
4511 configuration storage systems.")
4512     (license license:lgpl2.1+)))
4513
4514 (define-public json-glib
4515   (package
4516     (name "json-glib")
4517     (version "1.4.4")
4518     (source (origin
4519               (method url-fetch)
4520               (uri (string-append "mirror://gnome/sources/" name "/"
4521                                   (version-major+minor version) "/"
4522                                   name "-" version ".tar.xz"))
4523               (sha256
4524                (base32
4525                 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
4526     (build-system meson-build-system)
4527     (native-inputs
4528      `(("gettext" ,gettext-minimal)
4529        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
4530        ("gobject-introspection" ,gobject-introspection)
4531        ("pkg-config" ,pkg-config)))
4532     (propagated-inputs
4533      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
4534     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4535     (synopsis "Compiler for the GObject type system")
4536     (description
4537      "JSON-GLib is a C library based on GLib providing serialization and
4538 deserialization support for the JavaScript Object Notation (JSON) format
4539 described by RFC 4627.  It provides parser and generator GObject classes and
4540 various wrappers for the complex data types employed by JSON, such as arrays
4541 and objects.")
4542     (license license:lgpl2.1+)))
4543
4544 (define-public libxklavier
4545   (package
4546     (name "libxklavier")
4547     (version "5.4")
4548     (source (origin
4549               ;; Note: There's no tarball at ftp.gnome.org for this version.
4550               (method git-fetch)
4551               (uri (git-reference
4552                     (url "https://anongit.freedesktop.org/git/libxklavier")
4553                     (commit (string-append "libxklavier-" version))))
4554               (sha256
4555                (base32
4556                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4557               (file-name (git-file-name name version))))
4558     (build-system gnu-build-system)
4559     (arguments
4560      '(#:configure-flags
4561        (list (string-append "--with-xkb-base="
4562                             (assoc-ref %build-inputs "xkeyboard-config")
4563                             "/share/X11/xkb")
4564              "--disable-xmodmap-support")))
4565     (native-inputs
4566      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4567        ("gobject-introspection" ,gobject-introspection)
4568        ("pkg-config"            ,pkg-config)
4569        ("gtk-doc" ,gtk-doc)
4570        ("intltool" ,intltool)
4571        ("which" ,which)
4572        ("autoconf" ,autoconf)
4573        ("automake" ,automake)
4574        ("libtool" ,libtool)))
4575     (propagated-inputs
4576      ;; Required by libxklavier.pc.
4577      `(("glib"    ,glib)
4578        ("libxml2" ,libxml2)))
4579     (inputs
4580      `(("iso-codes"        ,iso-codes)
4581        ("libxi"            ,libxi)
4582        ("libxkbfile"       ,libxkbfile)
4583        ("xkbcomp"          ,xkbcomp)
4584        ("xkeyboard-config" ,xkeyboard-config)))
4585     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4586     (synopsis "High-level API for X Keyboard Extension")
4587     (description
4588      "LibXklavier is a library providing high-level API for X Keyboard
4589 Extension known as XKB.  This library is intended to support XFree86 and other
4590 commercial X servers.  It is useful for creating XKB-related software (layout
4591 indicators etc).")
4592     (license license:lgpl2.0+)))
4593
4594 (define-public python2-rsvg
4595   ;; XXX: This is actually a subset of gnome-python-desktop.
4596   (package
4597     (name "python2-rsvg")
4598     (version "2.32.0")
4599     (source
4600      (origin
4601        (method url-fetch)
4602        (uri (string-append
4603              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4604              version ".tar.bz2"))
4605        (sha256
4606         (base32
4607          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4608     (build-system gnu-build-system)
4609     (native-inputs
4610      `(("pkg-config" ,pkg-config)))
4611     (inputs
4612      `(("python" ,python-2)
4613        ("python2-pygtk" ,python2-pygtk)
4614        ("librsvg" ,librsvg)))
4615     (home-page "https://www.gnome.org")
4616     (synopsis "Python bindings to librsvg")
4617     (description
4618      "This package provides Python bindings to librsvg, the SVG rendering
4619 library.")
4620
4621     ;; This is the license of the rsvg bindings.  The license of each module
4622     ;; of gnome-python-desktop is given in 'COPYING'.
4623     (license license:lgpl2.1+)))
4624
4625 (define-public glib-networking
4626   (package
4627     (name "glib-networking")
4628     (version "2.62.2")
4629     (source (origin
4630               (method url-fetch)
4631               (uri (string-append "mirror://gnome/sources/glib-networking/"
4632                                   (version-major+minor version) "/"
4633                                   "glib-networking-" version ".tar.xz"))
4634               (sha256
4635                (base32
4636                 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
4637     (build-system meson-build-system)
4638     (arguments
4639      `(#:configure-flags '("-Dlibproxy_support=false")))
4640     (native-inputs
4641      `(("pkg-config" ,pkg-config)
4642        ("intltool" ,intltool)))
4643     (inputs
4644      `(("glib" ,glib)
4645        ("gnutls" ,gnutls)
4646        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
4647     (home-page "https://www.gnome.org")
4648     (synopsis "Network-related GIO modules")
4649     (description
4650      "This package contains various network related extensions for the GIO
4651 library.")
4652     (license license:lgpl2.0+)))
4653
4654 (define-public rest
4655   (package
4656     (name "rest")
4657     (version "0.8.1")
4658     (source (origin
4659               (method url-fetch)
4660               (uri (string-append "mirror://gnome/sources/rest/"
4661                                   (version-major+minor version) "/"
4662                                   name "-" version ".tar.xz"))
4663               (sha256
4664                (base32
4665                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4666     (build-system gnu-build-system)
4667     (arguments
4668      '(#:tests? #f ; tests require internet connection
4669        #:configure-flags
4670        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4671     (native-inputs
4672      `(("glib-mkenums" ,glib "bin")
4673        ("gobject-introspection" ,gobject-introspection)
4674        ("pkg-config" ,pkg-config)))
4675     (propagated-inputs
4676      ;; rest-0.7.pc refers to all these.
4677      `(("glib"    ,glib)
4678        ("libsoup" ,libsoup)
4679        ("libxml2" ,libxml2)))
4680     (home-page "https://www.gtk.org/")
4681     (synopsis "RESTful web api query library")
4682     (description
4683      "This library was designed to make it easier to access web services that
4684 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4685 libxml to ease remote use of the RESTful API.")
4686     (license license:lgpl2.1+)))
4687
4688 (define-public libsoup
4689   (package
4690     (name "libsoup")
4691     (version "2.72.0")
4692     (source (origin
4693               (method url-fetch)
4694               (uri (string-append "mirror://gnome/sources/libsoup/"
4695                                   (version-major+minor version) "/"
4696                                   "libsoup-" version ".tar.xz"))
4697               (sha256
4698                (base32
4699                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
4700     (build-system meson-build-system)
4701     (outputs '("out" "doc"))
4702     (arguments
4703      `(#:modules ((guix build utils)
4704                   (guix build meson-build-system)
4705                   (ice-9 popen))
4706
4707        #:configure-flags '("-Dgtk_doc=true")
4708        #:phases
4709        (modify-phases %standard-phases
4710          (add-after 'unpack 'patch-docbook-xml
4711            (lambda* (#:key inputs #:allow-other-keys)
4712              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
4713                                           "/xml/dtd/docbook")))
4714                (substitute* (find-files "docs/reference")
4715                  (("http://.*/docbookx\\.dtd")
4716                   (string-append xmldoc "/docbookx.dtd")))
4717                #t)))
4718          (add-after 'unpack 'adjust-tests
4719            (lambda _
4720              ;; This test fails due to missing /etc/nsswitch.conf
4721              ;; in the build environment.
4722              (substitute* "tests/socket-test.c"
4723                ((".*/sockets/unconnected.*") ""))
4724
4725              ;; These fail because "subdomain.localhost" does not resolve in
4726              ;; the build environment.
4727              (substitute* "tests/hsts-test.c"
4728                ((".*/hsts/basic.*") "")
4729                ((".*/hsts/subdomains.*") "")
4730                ((".*/hsts/superdomain.*") "")
4731                ((".*/hsts/utf8-address.*") ""))
4732              (substitute* "tests/hsts-db-test.c"
4733                ((".*/hsts-db/subdomains.*") ""))
4734
4735              ;; Generate a self-signed certificate that has "localhost" as its
4736              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
4737              ;; 3.5.12, tests such as "ssl-tests" fail:
4738              ;;
4739              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
4740              ;;
4741              ;; 'certtool' is interactive so we have to pipe it the answers.
4742              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
4743              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
4744  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
4745                (for-each (lambda (line)
4746                            (display line pipe)
4747                            (newline pipe))
4748                          '(""               ;Common name
4749                            ""               ;UID
4750                            "Guix"           ;Organizational unit name
4751                            "GNU"            ;Organization name
4752                            ""               ;Locality name
4753                            ""               ;State or province
4754                            ""               ;Country
4755                            ""               ;subject's domain component (DC)
4756                            ""               ;E-mail
4757                            ""               ;serial number
4758                            "-1"             ;expiration time
4759                            "N"              ;belong to authority?
4760                            "N"              ;web client certificate?
4761                            "N"              ;IPsec IKE?
4762                            "Y"              ;web server certificate?
4763                            "localhost"      ;dnsName of subject
4764                            ""               ;dnsName of subject (end)
4765                            ""               ;URI of subject
4766                            "127.0.0.1"      ;IP address of subject
4767                            ""               ;signing?
4768                            ""               ;encryption (RSA)?
4769                            ""               ;data encryption?
4770                            ""               ;sign OCSP requests?
4771                            ""               ;sign code?
4772                            ""               ;time stamping?
4773                            ""               ;email protection?
4774                            ""               ;URI of the CRL distribution point
4775                            "y"              ;above info OK?
4776                            ))
4777                (close-pipe pipe))
4778              #t))
4779          (add-after 'install 'move-doc
4780            (lambda* (#:key outputs #:allow-other-keys)
4781              (let ((out (assoc-ref outputs "out"))
4782                    (doc (assoc-ref outputs "doc")))
4783                (mkdir-p (string-append doc "/share"))
4784                (copy-recursively (string-append out "/share/gtk-doc")
4785                                  (string-append doc "/share/gtk-doc"))
4786                (delete-file-recursively (string-append out "/share/gtk-doc"))
4787                #t))))))
4788     (native-inputs
4789      `(("docbook-xml" ,docbook-xml-4.1.2)
4790        ("glib:bin" ,glib "bin")                   ; for glib-mkenums
4791        ("gobject-introspection" ,gobject-introspection)
4792        ("gtk-doc" ,gtk-doc)
4793        ("intltool" ,intltool)
4794        ("pkg-config" ,pkg-config)
4795        ("python" ,python-wrapper)
4796        ("vala" ,vala)
4797        ("php" ,php)
4798        ("curl" ,curl)
4799        ("gnutls" ,gnutls)                         ;for 'certtool'
4800        ("httpd" ,httpd)))
4801     (propagated-inputs
4802      ;; libsoup-2.4.pc refers to all these.
4803      `(("brotli" ,google-brotli)
4804        ("glib" ,glib)
4805        ("libpsl" ,libpsl)
4806        ("libxml2" ,libxml2)
4807        ("sqlite" ,sqlite)
4808        ("zlib" ,zlib)))
4809     (inputs
4810      `(("glib-networking" ,glib-networking)
4811        ("mit-krb5" ,mit-krb5)))
4812     (home-page "https://live.gnome.org/LibSoup/")
4813     (synopsis "GLib-based HTTP Library")
4814     (description
4815      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4816 and the GLib main loop, to integrate well with GNOME applications.")
4817     (license license:lgpl2.0+)))
4818
4819
4820 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4821 (define-public libsoup-minimal
4822   (package
4823     (inherit libsoup)
4824     (name "libsoup-minimal")
4825     (outputs (delete "doc" (package-outputs libsoup)))
4826     (arguments
4827      (substitute-keyword-arguments (package-arguments libsoup)
4828        ((#:configure-flags configure-flags)
4829         `(delete "-Dgtk_doc=true" ,configure-flags))
4830        ((#:phases phases)
4831         `(modify-phases ,phases
4832            (delete 'move-doc)))))
4833     (native-inputs (alist-delete "gtk-doc" (package-native-inputs libsoup)))))
4834
4835 (define-public libsecret
4836   (package
4837     (name "libsecret")
4838     (version "0.20.4")
4839     (source (origin
4840               (method url-fetch)
4841               (uri (string-append
4842                     "mirror://gnome/sources/libsecret/"
4843                     (version-major+minor version) "/"
4844                     "libsecret-" version ".tar.xz"))
4845               (sha256
4846                (base32
4847                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
4848     (build-system gnu-build-system)
4849     (outputs '("out" "doc"))
4850     (arguments
4851      `(#:tests? #f ; FIXME: Testing hangs.
4852        #:configure-flags
4853        (list (string-append "--with-html-dir="
4854                             (assoc-ref %outputs "doc")
4855                             "/share/gtk-doc/html"))))
4856     (native-inputs
4857      `(("gettext" ,gettext-minimal)
4858        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
4859        ("gobject-introspection" ,gobject-introspection)
4860        ("pkg-config" ,pkg-config)
4861        ("vala" ,vala)
4862        ("xsltproc" ,libxslt)))
4863        ;; These are needed for the tests.
4864        ;; FIXME: Add gjs once available.
4865        ;("dbus" ,dbus)
4866        ;("python2" ,python-2)
4867        ;("python2-dbus" ,python2-dbus)
4868        ;("python2-pygobject" ,python2-pygobject)
4869        ;("python2-pygobject-2" ,python2-pygobject-2)))
4870     (propagated-inputs
4871      `(("glib" ,glib))) ; required by libsecret-1.pc
4872     (inputs
4873      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
4874      ;; doesn't seem to affect the build result.
4875      `(("docbook-xsl" ,docbook-xsl)
4876        ("libgcrypt" ,libgcrypt)
4877        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
4878     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
4879     (synopsis "GObject bindings for \"Secret Service\" API")
4880     (description
4881      "Libsecret is a GObject based library for storing and retrieving passwords
4882 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
4883     (license license:lgpl2.1+)))
4884
4885 (define-public five-or-more
4886   (package
4887     (name "five-or-more")
4888     (version "3.32.2")
4889     (source
4890      (origin
4891        (method url-fetch)
4892        (uri (string-append "mirror://gnome/sources/five-or-more/"
4893                            (version-major+minor version) "/"
4894                            "five-or-more-" version ".tar.xz"))
4895        (sha256
4896         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
4897     (build-system meson-build-system)
4898     (arguments
4899      '(#:glib-or-gtk? #t
4900        #:phases
4901        (modify-phases %standard-phases
4902          (add-after 'unpack 'skip-gtk-update-icon-cache
4903            (lambda _
4904              (substitute* "meson_post_install.py"
4905                (("gtk-update-icon-cache") (which "true")))
4906              #t)))))
4907     (native-inputs
4908      `(("pkg-config" ,pkg-config)
4909        ("appstream-glib" ,appstream-glib)
4910        ("desktop-file-utils" ,desktop-file-utils)
4911        ("glib:bin" ,glib "bin") ; for glib-compile-resources
4912        ("intltool" ,intltool)
4913        ("itstool" ,itstool)
4914        ("vala" ,vala)
4915        ("xmllint" ,libxml2)))
4916     (inputs
4917      `(("gtk+" ,gtk+)
4918        ("libgnome-games-support" ,libgnome-games-support)
4919        ("librsvg" ,librsvg)))
4920     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
4921     (synopsis "Logic puzzle game")
4922     (description "Five or More is a game where you try to align
4923  five or more objects of the same color and shape causing them to disappear.
4924  On every turn more objects will appear, until the board is full.
4925  Try to last as long as possible.")
4926     (license license:gpl2+)))
4927
4928 (define-public gnome-mines
4929   (package
4930     (name "gnome-mines")
4931     (version "3.36.1")
4932     (source
4933      (origin
4934        (method url-fetch)
4935        (uri (string-append "mirror://gnome/sources/" name "/"
4936                            (version-major+minor version) "/"
4937                            name "-" version ".tar.xz"))
4938        (sha256
4939         (base32 "0m2680r94nk61imym4x73j03jwfjd8cxm592m5ybiqdfdw6i723i"))))
4940     (build-system meson-build-system)
4941     (arguments
4942      '(#:glib-or-gtk? #t
4943        #:phases
4944        (modify-phases %standard-phases
4945          (add-after 'unpack 'skip-gtk-update-icon-cache
4946            (lambda _
4947              (substitute* "build-aux/meson_post_install.py"
4948                (("gtk-update-icon-cache") (which "true")))
4949              #t)))))
4950     (native-inputs
4951      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
4952        ("pkg-config" ,pkg-config)
4953        ("desktop-file-utils" ,desktop-file-utils)
4954        ("intltool" ,intltool)
4955        ("itstool" ,itstool)
4956        ("vala" ,vala)
4957        ("yelp" ,yelp)
4958        ("appstream-glib" ,appstream-glib)))
4959     (inputs
4960      `(("gtk+" ,gtk+)
4961        ("libgnome-games-support" ,libgnome-games-support)
4962        ("librsvg" ,librsvg)))
4963     (home-page "https://wiki.gnome.org/Apps/Mines")
4964     (synopsis "Minesweeper game")
4965     (description
4966      "Mines (previously gnomine) is a puzzle game where you locate mines
4967 floating in an ocean using only your brain and a little bit of luck.")
4968     (license license:gpl2+)))
4969
4970 (define-public gnome-multi-writer
4971   (package
4972     (name "gnome-multi-writer")
4973     (version "3.35.90")
4974     (source
4975      (origin
4976        (method url-fetch)
4977        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
4978                            (version-major+minor version) "/"
4979                            "gnome-multi-writer-" version ".tar.xz"))
4980        (sha256
4981         (base32
4982          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
4983     (build-system meson-build-system)
4984     (arguments
4985      '(#:glib-or-gtk? #t
4986        #:phases
4987        (modify-phases %standard-phases
4988          (add-after 'unpack 'skip-post-install
4989            (lambda _
4990              (substitute* "meson.build"
4991                (("meson.add_install_script" &) (string-append "# " &)))
4992              #t)))))
4993     (native-inputs
4994      `(("glib:bin" ,glib "bin")
4995        ("pkg-config" ,pkg-config)))
4996     (inputs
4997      `(("gtk+" ,gtk+)
4998        ("glib" ,glib)                   ; for gio
4999        ("gusb" ,gusb)
5000        ("udisks" ,udisks)
5001        ("libgudev" ,libgudev)
5002        ("libcanberra" ,libcanberra)
5003        ("polkit" ,polkit)))
5004     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5005     (synopsis "Write to multiple USB devices at once")
5006     (description
5007      "MultiWriter can be used to write an ISO file to multiple USB devices at
5008 once.")
5009     (license license:gpl2+)))
5010
5011 (define-public gnome-sudoku
5012   (package
5013     (name "gnome-sudoku")
5014     (version "3.34.1")
5015     (source
5016      (origin
5017        (method url-fetch)
5018        (uri (string-append "mirror://gnome/sources/" name "/"
5019                            (version-major+minor version) "/"
5020                            name "-" version ".tar.xz"))
5021        (sha256
5022         (base32
5023          "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
5024     (build-system meson-build-system)
5025     (arguments
5026      '(#:glib-or-gtk? #t
5027        #:phases
5028        (modify-phases %standard-phases
5029          (add-after 'unpack 'skip-gtk-update-icon-cache
5030            (lambda _
5031              (substitute* "build-aux/post_install.py"
5032                (("gtk-update-icon-cache") (which "true")))
5033              #t)))))
5034     (native-inputs
5035      `(("pkg-config" ,pkg-config)
5036        ("desktop-file-utils" ,desktop-file-utils)
5037        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5038        ("intltool" ,intltool)
5039        ("itstool" ,itstool)
5040        ("vala" ,vala)
5041        ("xmllint" ,libxml2)))
5042     (inputs
5043      `(("gtk+" ,gtk+)
5044        ("json-glib" ,json-glib)
5045        ("libgee" ,libgee)
5046        ("librsvg" ,librsvg)
5047        ("qqwing" ,qqwing)))
5048     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5049     (synopsis "Japanese logic game")
5050     (description
5051      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5052 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5053 possible while still providing features that make playing difficult Sudoku
5054 more fun.")
5055     (license license:gpl2+)))
5056
5057 (define-public gnome-terminal
5058   (package
5059     (name "gnome-terminal")
5060     (version "3.34.2")
5061     (source
5062      (origin
5063        (method url-fetch)
5064        (uri (string-append "mirror://gnome/sources/" name "/"
5065                            (version-major+minor version) "/"
5066                            name "-" version ".tar.xz"))
5067        (sha256
5068         (base32
5069          "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
5070     (build-system glib-or-gtk-build-system)
5071     (arguments
5072      '(#:configure-flags
5073        (list "--disable-migration" "--disable-search-provider"
5074              "--without-nautilus-extension")
5075        #:phases
5076        (modify-phases %standard-phases
5077          (add-before 'configure 'patch-/bin/true
5078                      (lambda _
5079                        (substitute* "configure"
5080                          (("/bin/true") (which "true"))))))))
5081     (native-inputs
5082      `(("pkg-config" ,pkg-config)
5083        ("desktop-file-utils" ,desktop-file-utils)
5084        ("intltool" ,intltool)
5085        ("itstool" ,itstool)
5086        ("xmllint" ,libxml2)))
5087     (propagated-inputs
5088      `(("dconf" ,dconf)))
5089     (inputs
5090      `(("gtk+" ,gtk+)
5091        ("vte" ,vte)
5092        ("gnutls" ,gnutls)
5093        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5094        ("util-linux" ,util-linux "lib")
5095        ("vala" ,vala)))
5096     (home-page "https://wiki.gnome.org/Apps/Terminal")
5097     (synopsis "Terminal emulator")
5098     (description
5099      "GNOME Terminal is a terminal emulator application for accessing a
5100 UNIX shell environment which can be used to run programs available on
5101 your system.
5102
5103 It supports several profiles, multiple tabs and implements several
5104 keyboard shortcuts.")
5105     (license license:gpl3+)))
5106
5107 (define-public colord
5108   (package
5109     (name "colord")
5110     (version "1.4.5")
5111     (source
5112      (origin
5113        (method url-fetch)
5114        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5115                            "colord-" version ".tar.xz"))
5116        (sha256
5117         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5118     (build-system meson-build-system)
5119     (arguments
5120      '(;; FIXME: One test fails:
5121        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5122        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5123        ;; application/x-zerosize
5124        #:tests? #f
5125        #:glib-or-gtk? #t
5126        #:configure-flags (list "-Dlocalstatedir=/var"
5127                                ;; No dep on systemd.
5128                                "-Dsystemd=false"
5129                                ;; Wants to install to global completion dir;
5130                                ;; punt.
5131                                "-Dbash_completion=false"
5132                                "-Ddaemon_user=colord"
5133                                "-Dsane=true"
5134                                "-Dvapi=true"
5135                                ;; Requires spotread.
5136                                "-Dargyllcms_sensor=false"
5137                                ;; TODO: Requires docbook2x.
5138                                "-Dman=false")
5139        #:phases
5140        (modify-phases %standard-phases
5141          (add-before 'configure 'patch-build-system
5142            (lambda* (#:key outputs #:allow-other-keys)
5143              (substitute* "rules/meson.build"
5144                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5145                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
5146              #t))
5147          (add-before 'configure 'set-sqlite3-file-name
5148            (lambda* (#:key inputs #:allow-other-keys)
5149              ;; "colormgr dump" works by invoking the "sqlite3" command.
5150              ;; Record its absolute file name.
5151              (let ((sqlite (assoc-ref inputs "sqlite")))
5152                (substitute* "client/cd-util.c"
5153                  (("\"sqlite3\"")
5154                   (string-append "\"" sqlite "/bin/sqlite3\"")))
5155                #t))))))
5156     (native-inputs
5157      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5158        ("gettext" ,gettext-minimal)
5159        ("gobject-introspection" ,gobject-introspection)
5160        ("gtk-doc" ,gtk-doc)
5161        ("pkg-config" ,pkg-config)
5162        ("vala" ,vala)))
5163     (propagated-inputs
5164      ;; colord.pc refers to all these.
5165      `(("glib" ,glib)
5166        ("lcms" ,lcms)
5167        ("udev" ,eudev)))
5168     (inputs
5169      `(("dbus-glib" ,dbus-glib)
5170        ("gusb" ,gusb)
5171        ("libgudev" ,libgudev)
5172        ("libusb" ,libusb)
5173        ("polkit" ,polkit)
5174        ("python" ,python-wrapper)
5175        ("sqlite" ,sqlite)
5176        ("sane-backends" ,sane-backends)))
5177     (home-page "https://www.freedesktop.org/software/colord/")
5178     (synopsis "Color management service")
5179     (description "Colord is a system service that makes it easy to manage,
5180 install and generate color profiles to accurately color manage input and
5181 output devices.")
5182     (license license:gpl2+)))
5183
5184 (define-public geoclue
5185   (package
5186     (name "geoclue")
5187     (version "2.5.7")
5188     (source
5189      (origin
5190        (method url-fetch)
5191        (uri
5192         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5193                        version "/geoclue-" version ".tar.bz2"))
5194        (sha256
5195         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5196        (patches (search-patches "geoclue-config.patch"))))
5197     (build-system meson-build-system)
5198     (arguments
5199      '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
5200     (native-inputs
5201      `(("pkg-config" ,pkg-config)
5202        ("gobject-introspection" ,gobject-introspection)
5203        ("modem-manager" ,modem-manager)
5204        ("libnotify" ,libnotify)
5205        ("gtk-doc" ,gtk-doc)
5206        ("intltool" ,intltool)))
5207     (inputs
5208      `(("avahi" ,avahi)
5209        ("glib:bin" ,glib "bin")
5210        ("glib-networking" ,glib-networking)
5211        ("json-glib" ,json-glib)
5212        ("libsoup" ,libsoup)))
5213     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5214     (synopsis "Geolocation service")
5215     (description "Geoclue is a D-Bus service that provides location
5216 information.  The primary goal of the Geoclue project is to make creating
5217 location-aware applications as simple as possible, while the secondary goal is
5218 to ensure that no application can access location information without explicit
5219 permission from user.")
5220     (license license:gpl2+)))
5221
5222 (define-public geocode-glib
5223   (package
5224     (name "geocode-glib")
5225     (version "3.26.2")
5226     (source (origin
5227               (method url-fetch)
5228               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5229                                   (version-major+minor version) "/"
5230                                   "geocode-glib-" version ".tar.xz"))
5231               (sha256
5232                (base32
5233                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5234     (build-system meson-build-system)
5235     (arguments
5236      `(#:phases
5237        (modify-phases %standard-phases
5238          ;; The tests require a bunch of locales.
5239          (add-before 'check 'set-locales
5240            (lambda* (#:key inputs #:allow-other-keys)
5241              (setenv "GUIX_LOCPATH"
5242                      (string-append (assoc-ref inputs "glibc-locales")
5243                                     "/lib/locale"))
5244              #t)))))
5245     (native-inputs
5246      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5247        ("glibc-locales" ,glibc-locales) ; for tests
5248        ("gettext" ,gettext-minimal)
5249        ("gobject-introspection" ,gobject-introspection)
5250        ("gtk-doc" ,gtk-doc)
5251        ("pkg-config" ,pkg-config)
5252        ("json-glib" ,json-glib)))
5253     (propagated-inputs
5254      ;; geocode-glib-1.0.pc refers to GIO.
5255      `(("glib" ,glib)))
5256     (inputs
5257      `(("libsoup" ,libsoup)))
5258     (home-page "https://github.com/GNOME/geocode-glib/")
5259     (synopsis "Geocoding and reverse-geocoding library")
5260     (description
5261      "geocode-glib is a convenience library for geocoding (finding longitude,
5262 and latitude from an address) and reverse geocoding (finding an address from
5263 coordinates) using the Nominatim service.  geocode-glib caches requests for
5264 faster results and to avoid unnecessary server load.")
5265     (license license:lgpl2.0+)))
5266
5267 (define-public upower
5268   (package
5269     (name "upower")
5270     (version "0.99.11")
5271     (source (origin
5272               (method url-fetch)
5273               (uri (string-append "https://upower.freedesktop.org/releases/"
5274                                   "upower-" version ".tar.xz"))
5275               (sha256
5276                (base32
5277                 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
5278               (patches (search-patches "upower-builddir.patch"))
5279               (modules '((guix build utils)))
5280               (snippet
5281                '(begin
5282                   ;; Upstream commit
5283                   ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5284                   ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5285                   ;; 'dbus-configuration-directory' in (gnu services dbus)
5286                   ;; expects it in etc/.  Thus, move it back to its previous
5287                   ;; location.
5288                   (substitute* "src/Makefile.in"
5289                     (("^dbusconfdir =.*$")
5290                      "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5291                   #t))))
5292     (build-system glib-or-gtk-build-system)
5293     (arguments
5294      '(#:phases
5295        (modify-phases %standard-phases
5296          (add-before 'check 'pre-check
5297            (lambda* (#:key inputs #:allow-other-keys)
5298              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5299                                             "/lib")))
5300                (setenv "LD_LIBRARY_PATH" umockdev))
5301              #t)))
5302        #:configure-flags (list "--localstatedir=/var"
5303                                (string-append "--with-udevrulesdir="
5304                                               (assoc-ref %outputs "out")
5305                                               "/lib/udev/rules.d"))))
5306     (native-inputs
5307      `(("gobject-introspection" ,gobject-introspection)
5308        ("pkg-config" ,pkg-config)
5309        ("intltool" ,intltool)
5310        ("python" ,python)
5311
5312        ;; For tests.
5313        ("python-dbus" ,python-dbus)
5314        ("python-dbusmock" ,python-dbusmock)
5315        ("python-pygobject" ,python-pygobject)
5316        ("umockdev" ,umockdev)
5317
5318        ;; For man pages.
5319        ("libxslt" ,libxslt)                       ;for 'xsltproc'
5320        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
5321        ("docbook-xsl" ,docbook-xsl)))
5322     (inputs
5323      `(("dbus-glib" ,dbus-glib)
5324        ("libgudev" ,libgudev)
5325        ("libusb" ,libusb)))
5326     (propagated-inputs
5327      ;; In Requires of upower-glib.pc.
5328      `(("glib" ,glib)))
5329     (home-page "https://upower.freedesktop.org/")
5330     (synopsis "System daemon for managing power devices")
5331     (description
5332      "UPower is an abstraction for enumerating power devices,
5333 listening to device events and querying history and statistics.  Any
5334 application or service on the system can access the org.freedesktop.UPower
5335 service via the system message bus.")
5336     (license license:gpl2+)))
5337
5338 (define-public libgweather
5339   (package
5340     (name "libgweather")
5341     (version "3.34.0")
5342     (source (origin
5343               (method url-fetch)
5344               (uri (string-append "mirror://gnome/sources/" name "/"
5345                                   (version-major+minor version) "/"
5346                                   name "-" version ".tar.xz"))
5347               (sha256
5348                (base32
5349                 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
5350     (build-system meson-build-system)
5351     (arguments
5352      `(#:tests? #f ; one of two tests requires network access
5353        #:configure-flags
5354        `(,(string-append "-Dzoneinfo_dir="
5355                          (assoc-ref %build-inputs "tzdata")
5356                          "/share/zoneinfo"))))
5357     (native-inputs
5358      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5359        ("gobject-introspection" ,gobject-introspection)
5360        ("pkg-config" ,pkg-config)
5361        ("vala" ,vala)
5362        ("intltool" ,intltool)))
5363     (propagated-inputs
5364      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5365      ;; libsoup.
5366      `(("gtk+" ,gtk+)
5367        ("gdk-pixbuf" ,gdk-pixbuf)
5368        ("libxml2" ,libxml2)
5369        ("libsoup" ,libsoup)
5370        ("geocode-glib" ,geocode-glib)))
5371     (inputs
5372      `(("tzdata" ,tzdata)))
5373     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5374     (synopsis "Location, time zone, and weather library for GNOME")
5375     (description
5376      "libgweather is a library to access weather information from online
5377 services for numerous locations.")
5378     (license license:gpl2+)))
5379
5380 (define-public gnome-settings-daemon
5381   (package
5382     (name "gnome-settings-daemon")
5383     (version "3.34.1")
5384     (source
5385      (origin
5386        (method url-fetch)
5387        (uri (string-append "mirror://gnome/sources/" name "/"
5388                            (version-major+minor version) "/"
5389                            name "-" version ".tar.xz"))
5390        (sha256
5391         (base32
5392          "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))
5393        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5394     (build-system meson-build-system)
5395     (arguments
5396      `(#:glib-or-gtk? #t
5397        #:configure-flags
5398        (list (string-append "-Dudev_dir="
5399                             (assoc-ref %outputs "out")
5400                             "/lib/udev/rules.d/")
5401              "-Dsystemd=false"
5402              ;; Otherwise, the RUNPATH will lack the final path component.
5403              (string-append "-Dc_link_args=-Wl,-rpath="
5404                             (assoc-ref %outputs "out")
5405                             "/lib/gnome-settings-daemon-3.0"))
5406
5407        #:phases (modify-phases %standard-phases
5408                   (add-before 'configure 'set-baobab-file-name
5409                     (lambda* (#:key inputs #:allow-other-keys)
5410                       ;; Hard-code the file name of Baobab instead of looking
5411                       ;; it up in $PATH.  This ensures users get the "Examine"
5412                       ;; button in the low disk space notification of GDM even
5413                       ;; if they don't have GNOME in their main profile.
5414                       (let ((baobab (assoc-ref inputs "baobab")))
5415                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5416                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5417                            (string-append "g_strdup (\"" baobab
5418                                           "/bin/baobab\")")))
5419                         #t))))
5420
5421        ;; Color management test can't reach the colord system service.
5422        #:tests? #f))
5423     (native-inputs
5424      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5425        ("pkg-config" ,pkg-config)
5426        ("intltool" ,intltool)
5427        ("xsltproc" ,libxslt)
5428        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5429        ("docbook-xml" ,docbook-xml-4.2)
5430        ("docbook-xsl" ,docbook-xsl)))
5431     (inputs
5432      `(("alsa-lib" ,alsa-lib)
5433        ("baobab" ,baobab)
5434        ("colord" ,colord)
5435        ("libgudev" ,libgudev)
5436        ("upower" ,upower)
5437        ("polkit" ,polkit)
5438        ("pulseaudio" ,pulseaudio)
5439        ("libcanberra" ,libcanberra)
5440        ("libx11" ,libx11)
5441        ("libxtst" ,libxtst)
5442        ("lcms" ,lcms)
5443        ("libnotify" ,libnotify)
5444        ("geoclue" ,geoclue)
5445        ("geocode-glib" ,geocode-glib)
5446        ("libgweather" ,libgweather)
5447        ("gnome-desktop" ,gnome-desktop)
5448        ("nss" ,nss)
5449        ("cups" ,cups)
5450        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5451        ("libwacom" ,libwacom)
5452        ("librsvg" ,librsvg)
5453        ("xf86-input-wacom" ,xf86-input-wacom)
5454        ("wayland" ,wayland)
5455        ("network-manager" ,network-manager)
5456        ("gcr" ,gcr)
5457        ("modem-manager" ,modem-manager)))
5458     (home-page "https://www.gnome.org")
5459     (synopsis "GNOME settings daemon")
5460     (description
5461      "This package contains the daemon responsible for setting the various
5462 parameters of a GNOME session and the applications that run under it.  It
5463 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5464 settings, themes, mouse settings, and startup of other daemons.")
5465     (license license:gpl2+)))
5466
5467 (define-public totem-pl-parser
5468  (package
5469    (name "totem-pl-parser")
5470    (version "3.26.5")
5471    (source (origin
5472             (method url-fetch)
5473             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5474                                 (version-major+minor version) "/"
5475                                 "totem-pl-parser-" version ".tar.xz"))
5476             (sha256
5477              (base32
5478               "132jihnf51zs98yjkc6jxyqib4f3dawpjm17g4bj4j78y93dww2k"))))
5479    (build-system meson-build-system)
5480    (arguments
5481     ;; FIXME: Tests require gvfs.
5482     `(#:tests? #f))
5483    (native-inputs
5484     `(("intltool" ,intltool)
5485       ("glib" ,glib "bin")
5486       ("gobject-introspection" ,gobject-introspection)
5487       ("pkg-config" ,pkg-config)))
5488    (propagated-inputs
5489     `(("glib" ,glib)
5490       ("gmime" ,gmime)
5491       ("libarchive" ,libarchive)
5492       ("libgcrypt" ,libgcrypt)
5493       ("libxml2" ,libxml2)))
5494    (inputs
5495     `(("libsoup" ,libsoup)))
5496    (home-page "https://projects.gnome.org/totem")
5497    (synopsis "Library to parse and save media playlists for GNOME")
5498    (description "Totem-pl-parser is a GObjects-based library to parse and save
5499 playlists in a variety of formats.")
5500    (license license:lgpl2.0+)))
5501
5502 (define-public aisleriot
5503   (package
5504     (name "aisleriot")
5505     (version "3.22.9")
5506     (source (origin
5507               (method url-fetch)
5508               (uri (string-append "mirror://gnome/sources/aisleriot/"
5509                                   (version-major+minor version) "/"
5510                                   "aisleriot-" version ".tar.xz"))
5511               (sha256
5512                (base32
5513                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5514     (build-system glib-or-gtk-build-system)
5515     (arguments
5516      '(#:configure-flags
5517        '("--with-platform=gtk-only"
5518          "--with-card-theme-formats=svg")))
5519     (native-inputs
5520      `(("desktop-file-utils" ,desktop-file-utils)
5521        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5522        ("intltool" ,intltool)
5523        ("itstool" ,itstool)
5524        ("pkg-config" ,pkg-config)
5525        ("xmllint" ,libxml2)))
5526     (inputs
5527      `(("gtk+" ,gtk+)
5528        ("guile" ,guile-2.2)
5529        ("libcanberra" ,libcanberra)
5530        ("librsvg" ,librsvg)))
5531     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5532     (synopsis "Solitaire card games")
5533     (description
5534      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5535 which are easy to play with the aid of a mouse.")
5536     (license license:gpl3+)))
5537
5538 (define-public amtk
5539   (package
5540     (name "amtk")
5541     (version "5.0.2")
5542     (source (origin
5543               (method url-fetch)
5544               (uri (string-append "mirror://gnome/sources/amtk/"
5545                                   (version-major+minor version) "/"
5546                                   "amtk-" version ".tar.xz"))
5547               (sha256
5548                (base32
5549                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
5550     (build-system gnu-build-system)
5551     (arguments
5552      '(#:configure-flags '("--enable-gtk-doc")))
5553     (native-inputs
5554      `(("gobject-introspection" ,gobject-introspection)
5555        ("glib:bin" ,glib "bin")         ; for glib-mkenums
5556        ("gtk-doc" ,gtk-doc)
5557        ("pkg-config" ,pkg-config)))
5558     (inputs
5559      `(("glib" ,glib)
5560        ("gtk+" ,gtk+)))
5561     (home-page "https://wiki.gnome.org/Projects/Amtk")
5562     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5563     (description
5564      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5565 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5566 both a traditional UI or a modern UI with a GtkHeaderBar.")
5567     (license license:lgpl2.1+)))
5568
5569 (define-public devhelp
5570   (package
5571     (name "devhelp")
5572     (version "3.34.0")
5573     (source (origin
5574               (method url-fetch)
5575               (uri (string-append "mirror://gnome/sources/" name "/"
5576                                   (version-major+minor version) "/"
5577                                   name "-" version ".tar.xz"))
5578               (sha256
5579                (base32
5580                 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
5581     (build-system meson-build-system)
5582     (arguments
5583      '(#:glib-or-gtk? #t
5584        #:phases
5585        (modify-phases %standard-phases
5586          (add-after 'unpack 'skip-gtk-update-icon-cache
5587            ;; Don't create 'icon-theme.cache'.
5588            (lambda _
5589              (substitute* "meson_post_install.py"
5590                (("gtk-update-icon-cache") "true"))
5591              #t)))))
5592     (native-inputs
5593      `(("intltool" ,intltool)
5594        ("itstool" ,itstool)
5595        ("gobject-introspection" ,gobject-introspection)
5596        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5597        ("pkg-config" ,pkg-config)))
5598     (inputs
5599      `(("amtk" ,amtk)
5600        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5601        ("webkitgtk" ,webkitgtk)))
5602     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5603     (synopsis "API documentation browser for GNOME")
5604     (description
5605      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5606 natively with GTK-Doc (the API reference system developed for GTK+ and used
5607 throughout GNOME for API documentation).")
5608     (license license:gpl2+)))
5609
5610 (define-public cogl
5611   (package
5612     (name "cogl")
5613     (version "1.22.8")
5614     (source
5615      (origin
5616        (method url-fetch)
5617        (uri (string-append "mirror://gnome/sources/cogl/"
5618                            (version-major+minor version) "/"
5619                            "cogl-" version ".tar.xz"))
5620        (sha256
5621         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5622     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5623     ;; cogl, corresponding changes may be appropriate in mutter as well.
5624     (build-system gnu-build-system)
5625     (native-inputs
5626      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5627        ("gobject-introspection" ,gobject-introspection)
5628        ("xorg-server" ,xorg-server-for-tests)
5629        ("pkg-config" ,pkg-config)))
5630     (propagated-inputs
5631      `(("glib" ,glib)
5632        ("gdk-pixbuf" ,gdk-pixbuf)
5633        ("libx11" ,libx11)
5634        ("libxext" ,libxext)
5635        ("libxfixes" ,libxfixes)
5636        ("libxdamage" ,libxdamage)
5637        ("libxcomposite" ,libxcomposite)
5638        ("libxrandr" ,libxrandr)))
5639     (inputs
5640      `(("mesa" ,mesa)
5641        ("cairo" ,cairo)
5642        ("pango" ,pango)
5643        ("gstreamer" ,gstreamer)
5644        ("gst-plugins-base" ,gst-plugins-base)
5645        ("wayland" ,wayland)))
5646     (arguments
5647      `(#:disallowed-references (,xorg-server-for-tests)
5648        #:configure-flags (list "--enable-cogl-gst"
5649                                "--enable-wayland-egl-platform"
5650                                "--enable-wayland-egl-server"
5651
5652                                ;; Arrange to pass an absolute file name to
5653                                ;; dlopen for libGL.so.
5654                                (string-append "--with-gl-libname="
5655                                               (assoc-ref %build-inputs "mesa")
5656                                               "/lib/libGL.so"))
5657        #:phases
5658        (modify-phases %standard-phases
5659          (add-after 'unpack 'fix-build-with-mesa-20
5660            (lambda _
5661              ;; Work around a problem with Mesa 20 where some macros used by
5662              ;; Cogl went missing from eglext.h.  This can likely be removed
5663              ;; for newer versions of Cogl or Mesa.
5664              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5665              (substitute* '("configure"
5666                             "cogl/winsys/cogl-winsys-egl-kms.c")
5667                (("#include <EGL/eglext.h>" all)
5668                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5669              #t))
5670          (add-before 'check 'start-xorg-server
5671                      (lambda* (#:key tests? inputs #:allow-other-keys)
5672                        (if tests?
5673                            (begin
5674                              ;; The test suite requires a running X server.
5675                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5676                                              (assoc-ref inputs "xorg-server")))
5677                              (setenv "DISPLAY" ":1")
5678                              #t)
5679                            (format #t "test suite not run~%"))
5680                        #t)))))
5681     (home-page "https://www.cogl3d.org")
5682     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5683     (description
5684      "Cogl is a small library for using 3D graphics hardware to draw pretty
5685 pictures.  The API departs from the flat state machine style of OpenGL and is
5686 designed to make it easy to write orthogonal components that can render
5687 without stepping on each others toes.")
5688     (license (list license:expat       ; most of the code
5689                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5690                    license:sgifreeb2.0 ; cogl-path/tesselator/
5691                    license:asl2.0))))  ; examples/android/
5692
5693 (define-public clutter
5694   (package
5695     (name "clutter")
5696     (version "1.26.2")
5697     (source
5698      (origin
5699        (method url-fetch)
5700        (uri (string-append "mirror://gnome/sources/" name "/"
5701                            (version-major+minor version) "/"
5702                            name "-" version ".tar.xz"))
5703        (sha256
5704         (base32
5705          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5706     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5707     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5708     (build-system gnu-build-system)
5709     (outputs '("out"
5710                "doc"))                            ;9 MiB of gtk-doc HTML pages
5711     (native-inputs
5712      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5713        ("gobject-introspection" ,gobject-introspection)
5714        ("pkg-config" ,pkg-config)
5715        ("xsltproc" ,libxslt)))
5716     (propagated-inputs
5717      `(("cogl" ,cogl)
5718        ("cairo" ,cairo)
5719        ("atk" ,atk)
5720        ("gtk+" ,gtk+)
5721        ("json-glib" ,json-glib)
5722        ("glib" ,glib)
5723        ("libxcomposite" ,libxcomposite)
5724        ("libxdamage" ,libxdamage)
5725        ("libxext" ,libxext)
5726        ("xinput" ,xinput)))
5727     (inputs
5728      `(("libxkbcommon" ,libxkbcommon)
5729        ("udev" ,eudev)))
5730     (arguments
5731      `(#:configure-flags (list "--enable-x11-backend=yes"
5732
5733                                ;; This produces share/doc/{clutter,cally}.
5734                                (string-append "--with-html-dir="
5735                                               (assoc-ref %outputs "doc")
5736                                               "/share/doc"))
5737        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5738        ;; same way the cogl tests fail, since clutter is based on cogl.
5739        #:tests? #f))
5740     (home-page "http://www.clutter-project.org")
5741     (synopsis "OpenGL-based interactive canvas library")
5742     (description
5743      "Clutter is an OpenGL-based interactive canvas library, designed for
5744 creating fast, mainly 2D single window applications such as media box UIs,
5745 presentations, kiosk style applications and so on.")
5746     (license license:lgpl2.0+)))
5747
5748 (define-public clutter-gtk
5749   (package
5750     (name "clutter-gtk")
5751     (version "1.8.4")
5752     (source
5753      (origin
5754        (method url-fetch)
5755        (uri (string-append "mirror://gnome/sources/" name "/"
5756                            (version-major+minor version) "/"
5757                            name "-" version ".tar.xz"))
5758        (sha256
5759         (base32
5760          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5761     (build-system gnu-build-system)
5762     (native-inputs
5763      `(("pkg-config" ,pkg-config)
5764        ("gobject-introspection" ,gobject-introspection)))
5765     (propagated-inputs
5766      ;; clutter-gtk.pc refers to all these.
5767      `(("clutter" ,clutter)
5768        ("gtk+" ,gtk+)))
5769     (home-page "http://www.clutter-project.org")
5770     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5771     (description
5772      "Clutter is an OpenGL-based interactive canvas library, designed for
5773 creating fast, mainly 2D single window applications such as media box UIs,
5774 presentations, kiosk style applications and so on.")
5775     (license license:lgpl2.0+)))
5776
5777 (define-public clutter-gst
5778   (package
5779     (name "clutter-gst")
5780     (version "3.0.27")
5781     (source
5782      (origin
5783        (method url-fetch)
5784        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5785                            (version-major+minor version) "/"
5786                            "clutter-gst-" version ".tar.xz"))
5787        (sha256
5788         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
5789     (build-system gnu-build-system)
5790     (native-inputs
5791      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
5792        ("pkg-config" ,pkg-config)
5793        ("gobject-introspection" ,gobject-introspection)))
5794     (inputs
5795      `(("clutter" ,clutter)
5796        ("gstreamer" ,gstreamer)
5797        ("gst-plugins-base" ,gst-plugins-base)))
5798     (home-page "http://www.clutter-project.org")
5799     (synopsis "Integration library for using GStreamer with Clutter")
5800     (description
5801      "Clutter-Gst is an integration library for using GStreamer with Clutter.
5802 It provides a GStreamer sink to upload frames to GL and an actor that
5803 implements the ClutterGstPlayer interface using playbin.  Clutter is an
5804 OpenGL-based interactive canvas library.")
5805     (license license:lgpl2.0+)))
5806
5807 (define-public libchamplain
5808   (package
5809     (name "libchamplain")
5810     (version "0.12.16")
5811     (source (origin
5812               (method url-fetch)
5813               (uri (string-append
5814                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5815                     version ".tar.xz"))
5816               (sha256
5817                (base32
5818                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
5819     (build-system gnu-build-system)
5820     (arguments '(#:configure-flags '("--enable-vala")))
5821     (native-inputs
5822      `(("gobject-introspection" ,gobject-introspection)
5823        ("pkg-config" ,pkg-config)
5824        ("vala" ,vala)))
5825     (propagated-inputs
5826      `(("libsoup" ,libsoup)
5827        ("sqlite" ,sqlite)
5828        ("clutter" ,clutter)
5829        ("clutter-gtk" ,clutter-gtk)
5830        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
5831        ("cairo" ,cairo)
5832        ("gtk+3" ,gtk+)
5833        ("glib" ,glib)))
5834     (home-page "https://projects.gnome.org/libchamplain/")
5835     (synopsis "C library providing a ClutterActor to display maps")
5836     (description
5837      "libchamplain is a C library providing a ClutterActor to display maps.
5838 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
5839 and Perl bindings are also available.  It supports numerous free map sources
5840 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
5841     (license license:lgpl2.1+)))
5842
5843 (define-public gom
5844   (package
5845     (name "gom")
5846     (version "0.3.2")
5847     (source
5848      (origin
5849        (method url-fetch)
5850        (uri (string-append "mirror://gnome/sources/gom/"
5851                            (version-major+minor version) "/"
5852                            "gom-" version ".tar.xz"))
5853        (sha256
5854         (base32
5855          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
5856     (build-system gnu-build-system)
5857     (native-inputs
5858      `(("intltool" ,intltool)
5859        ("pkg-config" ,pkg-config)
5860        ("gobject-introspection" ,gobject-introspection)))
5861     (inputs
5862      `(("glib" ,glib)
5863        ("gdk-pixbuf" ,gdk-pixbuf)
5864        ("sqlite" ,sqlite)))
5865     ;; XXX TODO: Figure out how to run the test suite.
5866     (arguments `(#:tests? #f))
5867     (home-page "https://wiki.gnome.org/Projects/Gom")
5868     (synopsis "Object mapper from GObjects to SQLite")
5869     (description
5870      "Gom provides an object mapper from GObjects to SQLite.  It helps you
5871 write applications that need to store structured data as well as make complex
5872 queries upon that data.")
5873     (license license:lgpl2.1+)))
5874
5875 (define-public libgnome-games-support
5876   (package
5877     (name "libgnome-games-support")
5878     (version "1.4.4")
5879     (source (origin
5880               (method url-fetch)
5881               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
5882                                   (version-major+minor version) "/"
5883                                   "libgnome-games-support-" version ".tar.xz"))
5884               (sha256
5885                (base32
5886                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
5887     (build-system gnu-build-system)
5888     (arguments
5889      '(#:phases
5890        (modify-phases %standard-phases
5891          (add-before 'check 'pre-check
5892            (lambda _
5893              ;; Tests require a writable HOME.
5894              (setenv "HOME" (getcwd))
5895              #t)))))
5896     (native-inputs
5897      `(("intltool" ,intltool)
5898        ("pkg-config" ,pkg-config)
5899        ("vala" ,vala)))
5900     (propagated-inputs
5901      ;; Required by libgnome-games-support-1.0.pc
5902      `(("gtk+" ,gtk+)
5903        ("libgee" ,libgee)))
5904     (home-page "https://www.gnome.org/")
5905     (synopsis "Useful functionality shared among GNOME games")
5906     (description
5907      "libgnome-games-support is a small library intended for internal use by
5908 GNOME Games, but it may be used by others.")
5909     (license license:lgpl3+)))
5910
5911 (define-public gnome-klotski
5912   (package
5913     (name "gnome-klotski")
5914     (version "3.34.0")
5915     (source (origin
5916               (method url-fetch)
5917               (uri (string-append "mirror://gnome/sources/" name "/"
5918                                   (version-major+minor version) "/"
5919                                   name "-" version ".tar.xz"))
5920               (sha256
5921                (base32
5922                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
5923     (build-system meson-build-system)
5924     (arguments
5925      '(#:glib-or-gtk? #t
5926        #:phases
5927        (modify-phases %standard-phases
5928          (add-after 'unpack 'skip-gtk-update-icon-cache
5929            ;; Don't create 'icon-theme.cache'.
5930            (lambda _
5931              (substitute* "build-aux/meson_post_install.py"
5932                (("gtk-update-icon-cache") (which "true")))
5933              #t)))))
5934     (native-inputs
5935      `(("desktop-file-utils" ,desktop-file-utils)
5936        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5937        ("intltool" ,intltool)
5938        ("itstool" ,itstool)
5939        ("pkg-config" ,pkg-config)
5940        ("vala" ,vala)
5941        ("xmllint" ,libxml2)))
5942     (inputs
5943      `(("gtk+" ,gtk+)
5944        ("libgnome-games-support" ,libgnome-games-support)
5945        ("librsvg" ,librsvg)))
5946     (home-page "https://wiki.gnome.org/Apps/Klotski")
5947     (synopsis "Sliding block puzzles")
5948     (description
5949      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
5950 the patterned block to the area bordered by green markers.  To do so, you will
5951 need to slide other blocks out of the way.  Complete each puzzle in as few moves
5952 as possible!")
5953     (license license:gpl2+)))
5954
5955 (define-public grilo
5956   (package
5957     (name "grilo")
5958     (version "0.3.12")
5959     (source
5960      (origin
5961        (method url-fetch)
5962        (uri (string-append "mirror://gnome/sources/grilo/"
5963                            (version-major+minor version) "/"
5964                            "grilo-" version ".tar.xz"))
5965        (sha256
5966         (base32 "0w8sq5g6g1rg85h53vbll8va70fcp6082mlpmy98aa03444ddyyv"))))
5967     (build-system meson-build-system)
5968     (native-inputs
5969      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
5970        ("intltool" ,intltool)
5971        ("pkg-config" ,pkg-config)
5972        ("gobject-introspection" ,gobject-introspection)
5973        ("gtk-doc" ,gtk-doc)
5974        ("vala" ,vala)))
5975     (inputs
5976      `(("cyrus-sasl" ,cyrus-sasl)
5977        ("glib" ,glib)
5978        ("gtk+" ,gtk+)
5979        ("libxml2" ,libxml2)
5980        ("liboauth" ,liboauth)
5981        ("libsoup" ,libsoup)
5982        ("totem-pl-parser" ,totem-pl-parser)))
5983     (native-search-paths
5984      (list (search-path-specification
5985             (variable "GRL_PLUGIN_PATH")
5986             (files (list (string-append "lib/grilo-"
5987                                         (version-major+minor version)))))))
5988     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
5989     (synopsis "Framework for discovering and browsing media")
5990     (description
5991      "Grilo is a framework focused on making media discovery and browsing easy
5992 for application developers.")
5993     (license license:lgpl2.1+)))
5994
5995 (define-public grilo-plugins
5996   (package
5997     (name "grilo-plugins")
5998     (version "0.3.11")
5999     (source
6000      (origin
6001        (method url-fetch)
6002        (uri (string-append "mirror://gnome/sources/" name "/"
6003                            (version-major+minor version) "/"
6004                            name "-" version ".tar.xz"))
6005        (sha256
6006         (base32 "0wyd3n5mn7b77hxylkc3f62v01mlavh96901pz342hwrn42ydqnx"))))
6007     (build-system meson-build-system)
6008     (native-inputs
6009      `(("gettext" ,gettext-minimal)
6010        ("glib:bin" ,glib "bin")
6011        ("gtk+:bin" ,gtk+ "bin")
6012        ("itstool" ,itstool)
6013        ("pkg-config" ,pkg-config)))
6014     ;; TODO: ahavi, gstreamer
6015     (inputs
6016      `(("grilo" ,grilo)
6017        ;("gmime" ,gmime) ; unused
6018        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6019        ("gom" ,gom)
6020        ;("gssdp" ,gssdp) ; unused
6021        ;("gupnp" ,gupnp) ; unused
6022        ;("gupnp-av" ,gupnp-av) ; unused
6023        ("json-glib" ,json-glib)
6024        ("avahi" ,avahi)
6025        ("libgdata" ,libgdata)
6026        ("libmediaart" ,libmediaart)
6027        ;("librest" ,rest) ; unused
6028        ("libsoup" ,libsoup)
6029        ("totam-pl-parser" ,totem-pl-parser)
6030        ("tracker" ,tracker))) ; unused because it's too old
6031     (arguments
6032      `(#:glib-or-gtk? #t
6033        ;;Disable lua-factory as it needs missing dependencies
6034        #:configure-flags '("-Denable-lua-factory=no")))
6035     (home-page "https://live.gnome.org/Grilo")
6036     (synopsis "Plugins for the Grilo media discovery library")
6037     (description
6038      "Grilo is a framework focused on making media discovery and browsing easy
6039 for application developers.  This package provides plugins for common media
6040 discovery protocols.")
6041     (license license:lgpl2.1+)))
6042
6043 (define-public totem
6044   (package
6045     (name "totem")
6046     (version "3.38.0")
6047     (source
6048      (origin
6049        (method url-fetch)
6050        (uri (string-append "mirror://gnome/sources/totem/"
6051                            (version-major+minor version) "/"
6052                            "totem-" version ".tar.xz"))
6053        (sha256
6054         (base32
6055          "0bs33ijvxbr2prb9yj4dxglsszslsn9k258n311sld84masz4ad8"))))
6056     (build-system meson-build-system)
6057     (native-inputs
6058      `(("pkg-config" ,pkg-config)
6059        ("desktop-file-utils" ,desktop-file-utils)
6060        ("gettext" ,gettext-minimal)
6061        ("gobject-introspection" ,gobject-introspection)
6062        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6063        ("itstool" ,itstool)
6064        ("xmllint" ,libxml2)
6065        ("xorg-server" ,xorg-server-for-tests)))
6066     (propagated-inputs
6067      `(("dconf" ,dconf)))
6068     (inputs
6069      `(("gtk+" ,gtk+)
6070        ("gdk-pixbuf" ,gdk-pixbuf)
6071        ("atk" ,atk)
6072        ("cairo" ,cairo)
6073        ("dbus-glib" ,dbus-glib)
6074        ("clutter" ,clutter)
6075        ("clutter-gtk" ,clutter-gtk)
6076        ("clutter-gst" ,clutter-gst)
6077        ("xorgproto" ,xorgproto)
6078        ("libxxf86vm" ,libxxf86vm)
6079        ("libxtst" ,libxtst)
6080        ("libxrandr" ,libxrandr)
6081        ("libxml2" ,libxml2)
6082        ("libsoup" ,libsoup)
6083        ("libpeas" ,libpeas)
6084        ("librsvg" ,librsvg)
6085        ("lirc" ,lirc)
6086        ("gnome-desktop" ,gnome-desktop)
6087        ("gstreamer" ,gstreamer)
6088        ("gst-plugins-base" ,gst-plugins-base)
6089        ("gst-plugins-good" ,gst-plugins-good)
6090        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6091        ("adwaita-icon-theme" ,adwaita-icon-theme)
6092        ("python" ,python)
6093        ("python-pygobject" ,python-pygobject)
6094        ("totem-pl-parser" ,totem-pl-parser)
6095        ("grilo" ,grilo)
6096        ("grilo-plugins" ,grilo-plugins)
6097        ("vala" ,vala)))
6098     (arguments
6099      `(#:glib-or-gtk? #t
6100
6101        ;; Disable automatic GStreamer plugin installation via PackageKit and
6102        ;; all that.
6103        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6104
6105                            ;; Do not build .a files for the plugins, it's
6106                            ;; completely useless.  This saves 2 MiB.
6107                            "--default-library" "shared")
6108        #:phases
6109        (modify-phases %standard-phases
6110          (add-after 'unpack 'skip-gtk-update-icon-cache
6111            ;; Don't create 'icon-theme.cache'.
6112            (lambda _
6113              (substitute* "meson_post_install.py"
6114                (("gtk-update-icon-cache") "true"))
6115              #t))
6116          (add-after 'unpack 'patch-failing-test
6117            (lambda _
6118              ;; Work around test failure with GStreamer 1.18, because the test
6119              ;; relies on "und" not being mapped to a particular language:
6120              ;; https://gitlab.gnome.org/GNOME/totem/-/issues/450
6121             (substitute* "src/test-totem.c"
6122               (("und") "nosuchlang"))
6123             #t))
6124          (add-before
6125           'install 'disable-cache-generation
6126           (lambda _
6127             (setenv "DESTDIR" "/")
6128             #t))
6129          (add-before
6130           'check 'pre-check
6131           (lambda _
6132             ;; Tests require a running X server.
6133             (system "Xvfb :1 &")
6134             (setenv "DISPLAY" ":1")
6135             #t))
6136          (add-after
6137           'install 'wrap-totem
6138           (lambda* (#:key inputs outputs #:allow-other-keys)
6139             (let ((out             (assoc-ref outputs "out"))
6140                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6141                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6142               (wrap-program (string-append out "/bin/totem")
6143                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6144                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6145               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6146                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6147             #t)))))
6148     (home-page "https://wiki.gnome.org/Apps/Videos")
6149     (synopsis "Simple media player for GNOME based on GStreamer")
6150     (description "Totem is a simple yet featureful media player for GNOME
6151 which can read a large number of file formats.")
6152     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6153     ;; to be used and distributed together with GStreamer and Totem.  See
6154     ;; file://COPYING in the source distribution for details.
6155     (license license:gpl2+)))
6156
6157 (define-public rhythmbox
6158  (package
6159    (name "rhythmbox")
6160    (version "3.4.4")
6161    (source (origin
6162             (method url-fetch)
6163             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6164                                 (version-major+minor version) "/"
6165                                 "rhythmbox-" version ".tar.xz"))
6166             (sha256
6167              (base32
6168               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6169    (build-system glib-or-gtk-build-system)
6170    (arguments
6171     `(#:configure-flags
6172       (list "--enable-lirc"
6173             "--enable-python"
6174             "--enable-vala"
6175             "--with-brasero"
6176             "--with-gudev"
6177             "--with-libsecret")
6178       #:phases
6179       (modify-phases %standard-phases
6180         (add-after
6181          'install 'wrap-rhythmbox
6182          (lambda* (#:key inputs outputs #:allow-other-keys)
6183            (let ((out               (assoc-ref outputs "out"))
6184                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6185                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6186                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6187                  (python-path       (getenv "PYTHONPATH")))
6188              (wrap-program (string-append out "/bin/rhythmbox")
6189                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6190                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6191                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6192                `("PYTHONPATH"             ":" prefix (,python-path))))
6193            #t)))))
6194    (propagated-inputs
6195     `(("dconf" ,dconf)))
6196    (native-inputs
6197     `(("itstool" ,itstool)
6198       ("intltool" ,intltool)
6199       ("glib" ,glib "bin")
6200       ("gobject-introspection" ,gobject-introspection)
6201       ("desktop-file-utils" ,desktop-file-utils)
6202       ("pkg-config" ,pkg-config)
6203       ("xmllint" ,libxml2)))
6204    (inputs
6205     `(("json-glib" ,json-glib)
6206       ("tdb" ,tdb)
6207       ("gnome-desktop" ,gnome-desktop)
6208       ("python" ,python)
6209       ("python-pygobject" ,python2-pygobject)
6210       ("vala" ,vala)
6211       ("gmime" ,gmime)
6212       ("adwaita-icon-theme" ,adwaita-icon-theme)
6213       ("grilo" ,grilo)
6214       ("grilo-plugins" ,grilo-plugins)
6215       ("gstreamer" ,gstreamer)
6216       ("gst-plugins-base" ,gst-plugins-base)
6217       ("gst-plugins-good" ,gst-plugins-good)
6218       ("totem-pl-parser" ,totem-pl-parser)
6219       ("libgudev" ,libgudev)
6220       ;;("libmtp" ,libmtp) FIXME: Not detected
6221       ("libsecret" ,libsecret)
6222       ("libsoup" ,libsoup)
6223       ("libnotify" ,libnotify)
6224       ("libpeas" ,libpeas)
6225       ("lirc" ,lirc)
6226       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6227       ;;("clutter" ,clutter)
6228       ;;("clutter-gtk" ,clutter-gtk)
6229       ;;("clutter-gst" ,clutter-gst)
6230       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6231       ("atk" ,atk)
6232       ("pango" ,pango)
6233       ("gtk+" ,gtk+)
6234       ;; TODO:
6235       ;;  * libgpod
6236       ;;  * mx
6237       ("brasero" ,brasero)))
6238    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6239    (synopsis "Music player for GNOME")
6240    (description "Rhythmbox is a music playing application for GNOME.  It
6241 supports playlists, song ratings, and any codecs installed through gstreamer.")
6242    (license license:gpl2+)))
6243
6244 (define-public eog
6245  (package
6246    (name "eog")
6247    (version "3.34.1")
6248    (source (origin
6249             (method url-fetch)
6250             (uri (string-append "mirror://gnome/sources/" name "/"
6251                                 (version-major+minor version) "/"
6252                                 name "-" version ".tar.xz"))
6253             (sha256
6254              (base32
6255               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
6256    (build-system meson-build-system)
6257    (arguments
6258     `(#:configure-flags
6259       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6260       (list (string-append "-Dc_link_args=-Wl,-rpath="
6261                            (assoc-ref %outputs "out") "/lib/eog"))
6262       #:phases
6263       (modify-phases %standard-phases
6264          (add-after 'unpack 'skip-gtk-update-icon-cache
6265            ;; Don't create 'icon-theme.cache'.
6266            (lambda _
6267              (substitute* "meson_post_install.py"
6268                (("gtk-update-icon-cache") "true"))
6269              #t))
6270         (add-after 'install 'wrap-eog
6271           (lambda* (#:key outputs #:allow-other-keys)
6272             (let ((out               (assoc-ref outputs "out"))
6273                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6274               (wrap-program (string-append out "/bin/eog")
6275                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6276             #t)))))
6277    (propagated-inputs
6278     `(("dconf" ,dconf)))
6279    (native-inputs
6280     `(("intltool" ,intltool)
6281       ("itstool" ,itstool)
6282       ("glib" ,glib "bin")
6283       ("gobject-introspection" ,gobject-introspection)
6284       ("pkg-config" ,pkg-config)
6285       ("xmllint" ,libxml2)))
6286    (inputs
6287     `(("gnome-desktop" ,gnome-desktop)
6288       ("shared-mime-info" ,shared-mime-info)
6289       ("adwaita-icon-theme" ,adwaita-icon-theme)
6290       ("exempi" ,exempi)
6291       ("lcms" ,lcms)
6292       ("libexif" ,libexif)
6293       ("libpeas" ,libpeas)
6294       ("libjpeg" ,libjpeg-turbo)
6295       ("librsvg" ,librsvg-next)
6296       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6297       ("gtk+" ,gtk+)))
6298    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6299    (synopsis "GNOME image viewer")
6300    (description "Eye of GNOME is the GNOME image viewer.  It
6301 supports image conversion, rotation, and slideshows.")
6302    (license license:gpl2+)))
6303
6304 (define-public eog-plugins
6305   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6306   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6307   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6308   ;; 'XDG_DATA_DIRS' appropriately set.
6309   (package
6310     (name "eog-plugins")
6311     (version "3.26.4")
6312     (source (origin
6313               (method url-fetch)
6314               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6315                                   (version-major+minor version) "/"
6316                                   "eog-plugins-" version ".tar.xz"))
6317               (sha256
6318                (base32
6319                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
6320     (build-system gnu-build-system)
6321     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6322     (synopsis "Extensions for the Eye of GNOME image viewer")
6323     (native-inputs
6324      `(("pkg-config" ,pkg-config)
6325        ("gettext" ,gettext-minimal)))
6326     (inputs
6327      `(("eog" ,eog)
6328        ("glib" ,glib)
6329        ("gtk+" ,gtk+)
6330        ("libpeas" ,libpeas)
6331        ("libexif" ,libexif)
6332        ("libchamplain" ,libchamplain)))
6333     (description
6334      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6335 notably:
6336
6337 @itemize
6338 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6339 @item @dfn{Map}, which displays a map of where the picture was taken on the
6340 side panel;
6341 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6342 @end itemize\n")
6343
6344     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6345     ;; long suspicious byte stream that goes to a
6346     ;; ".gresource.eog_postasa_plugin" ELF section.
6347     (license license:gpl2+)))
6348
6349 (define-public libgudev
6350   (package
6351     (name "libgudev")
6352     (version "232")
6353     (source (origin
6354               (method url-fetch)
6355               (uri (string-append "mirror://gnome/sources/" name "/"
6356                                   version "/" name "-" version ".tar.xz"))
6357               (sha256
6358                (base32
6359                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
6360     (build-system gnu-build-system)
6361     (arguments
6362      '(#:configure-flags
6363        ;; umockdev depends on libgudev.
6364        (list "--disable-umockdev")))
6365     (native-inputs
6366      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6367        ("gobject-introspection" ,gobject-introspection)
6368        ("pkg-config" ,pkg-config)))
6369     (propagated-inputs
6370      `(("glib" ,glib))) ; required by gudev-1.0.pc
6371     (inputs
6372      `(("udev" ,eudev)))
6373     (home-page "https://wiki.gnome.org/Projects/libgudev")
6374     (synopsis "GObject bindings for libudev")
6375     (description
6376      "This library provides GObject bindings for libudev.  It was originally
6377 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6378     (license license:lgpl2.1+)))
6379
6380 (define-public gvfs
6381   (package
6382     (name "gvfs")
6383     (version "1.40.1")
6384     (source (origin
6385               (method url-fetch)
6386               (uri (string-append "mirror://gnome/sources/gvfs/"
6387                                   (version-major+minor version) "/"
6388                                   "gvfs-" version ".tar.xz"))
6389               (sha256
6390                (base32
6391                 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))
6392               ;; This patch may be removed when upgrading to version 1.46.x.
6393               (patches
6394                (search-patches "gvfs-add-support-for-libplist-2.2.patch"))))
6395     (build-system meson-build-system)
6396     (arguments
6397      '(#:glib-or-gtk? #t
6398        #:configure-flags
6399        (list "-Dsystemduserunitdir=no"
6400              "-Dtmpfilesdir=no"
6401              ;; Otherwise, the RUNPATH will lack the final path component.
6402              (string-append "-Dc_link_args=-Wl,-rpath="
6403                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6404     (native-inputs
6405      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6406        ("gettext" ,gettext-minimal)
6407        ("gtk-doc" ,gtk-doc)
6408        ("pkg-config" ,pkg-config)
6409        ("xsltproc" ,libxslt)))
6410     (inputs
6411      `(("avahi" ,avahi)
6412        ("docbook-xml" ,docbook-xml-4.2)
6413        ("docbook-xsl" ,docbook-xsl)
6414        ("dbus" ,dbus)
6415        ("elogind" ,elogind)
6416        ("fuse" ,fuse)
6417        ("gcr" ,gcr)
6418        ("glib" ,glib)
6419        ("gnome-online-accounts" ,gnome-online-accounts)
6420        ("libarchive" ,libarchive)
6421        ("libbluray" ,libbluray)
6422        ("libcap" ,libcap)
6423        ("libcdio-paranoia" ,libcdio-paranoia)
6424        ("libgcrypt" ,libgcrypt)
6425        ("libgdata" ,libgdata)
6426        ("libgphoto2" ,libgphoto2)
6427        ("libgudev" ,libgudev)
6428        ("libimobiledevice" ,libimobiledevice)
6429        ("libmtp" ,libmtp)
6430        ("libnfs" ,libnfs)
6431        ("libsecret" ,libsecret)
6432        ("libsmbclient" ,samba)
6433        ("libsoup" ,libsoup)
6434        ("libxml2" ,libxml2)
6435        ("openssh" ,openssh)
6436        ("polkit" ,polkit)
6437        ("udisks" ,udisks)))
6438     (home-page "https://wiki.gnome.org/gvfs/")
6439     (synopsis "Userspace virtual file system for GIO")
6440     (description
6441      "GVFS is a userspace virtual file system designed to work with the I/O
6442 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
6443 to all applications using the GIO API.  It also supports exposing the GVFS
6444 mounts to non-GIO applications using FUSE.
6445
6446 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6447 DAV, and others.")
6448     (license license:lgpl2.0+)))
6449
6450 (define-public gusb
6451   (package
6452     (name "gusb")
6453     (version "0.3.5")
6454     (source (origin
6455               (method git-fetch)
6456               (uri (git-reference
6457                      (url "https://github.com/hughsie/libgusb")
6458                      (commit version)))
6459               (file-name (git-file-name name version))
6460               (sha256
6461                (base32
6462                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6463     (build-system meson-build-system)
6464     (native-inputs
6465      `(("gobject-introspection" ,gobject-introspection)
6466        ("pkg-config" ,pkg-config)
6467        ("vala" ,vala)
6468        ("gtk-doc" ,gtk-doc)))
6469     (propagated-inputs
6470      ;; Both of these are required by gusb.pc.
6471      `(("glib" ,glib)
6472        ("libusb" ,libusb)))
6473     (arguments
6474      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
6475     (home-page "https://github.com/hughsie/libgusb")
6476     (synopsis "GLib binding for libusb1")
6477     (description
6478      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6479 asynchronous control, bulk and interrupt transfers with proper cancellation
6480 and integration into a mainloop.  This makes it easy to integrate low level
6481 USB transfers with your high-level application or system daemon.")
6482     (license license:lgpl2.1+)))
6483
6484 (define-public simple-scan
6485   (package
6486     (name "simple-scan")
6487     (version "3.38.2")
6488     (source
6489      (origin
6490        (method url-fetch)
6491        (uri (string-append "mirror://gnome/sources/simple-scan/"
6492                            (version-major+minor version) "/"
6493                            "simple-scan-" version ".tar.xz"))
6494        (sha256
6495         (base32 "02sdkhxgr6i7iy481h4xavgaqd0a5dlsipzwrm4qd242jrr813d8"))))
6496     (build-system meson-build-system)
6497     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6498     (arguments
6499      '(#:glib-or-gtk? #t))
6500     (inputs
6501      `(("gtk" ,gtk+)
6502        ("zlib" ,zlib)
6503        ("cairo" ,cairo)
6504        ("colord" ,colord)
6505        ("gdk-pixbuf" ,gdk-pixbuf)
6506        ("gusb" ,gusb)
6507        ("libsane" ,sane-backends)))
6508     (native-inputs
6509      `(("gettext" ,gettext-minimal)
6510        ("itstool" ,itstool)
6511        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
6512        ("pkg-config" ,pkg-config)
6513        ("vala" ,vala)
6514        ("xmllint" ,libxml2)))
6515     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6516     (synopsis "Document and image scanner")
6517     (description
6518      "Document Scanner is an easy-to-use application that lets you connect your
6519 scanner and quickly capture images and documents in an appropriate format.  It
6520 supports any scanner for which a suitable SANE driver is available, which is
6521 almost all of them.")
6522     (license license:gpl3+)))
6523
6524 (define-public eolie
6525   (package
6526     (name "eolie")
6527     (version "0.9.101")
6528     (source (origin
6529               (method url-fetch)
6530               (uri (string-append "https://adishatz.org/eolie/eolie-"
6531                                   version ".tar.xz"))
6532               (sha256
6533                (base32
6534                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6535     (build-system meson-build-system)
6536     (arguments
6537      `(#:glib-or-gtk? #t
6538        #:phases
6539        (modify-phases %standard-phases
6540          (add-after 'unpack 'skip-gtk-update-icon-cache
6541            ;; Don't create 'icon-theme.cache'.
6542            (lambda _
6543              (substitute* "meson_post_install.py"
6544                (("gtk-update-icon-cache") "true"))
6545              #t))
6546          (add-after 'wrap 'wrap-more
6547            (lambda* (#:key inputs outputs #:allow-other-keys)
6548              (let* ((out  (assoc-ref outputs "out"))
6549                     ;; These libraries must be on LD_LIBRARY_PATH.
6550                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6551                             "atk" "gtk+" "gsettings-desktop-schemas"
6552                             "gobject-introspection"))
6553                     (path (string-join
6554                            (map (lambda (lib)
6555                                   (string-append (assoc-ref inputs lib) "/lib"))
6556                                 libs)
6557                            ":")))
6558                (wrap-program (string-append out "/bin/eolie")
6559                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6560                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
6561                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6562              #t)))))
6563     (native-inputs
6564      `(("intltool" ,intltool)
6565        ("itstool" ,itstool)
6566        ("pkg-config" ,pkg-config)
6567        ("python" ,python)
6568        ("glib:bin" ,glib "bin")))
6569     (inputs
6570      `(("gobject-introspection" ,gobject-introspection)
6571        ("glib-networking" ,glib-networking)
6572        ("cairo" ,cairo)
6573        ("gtk+" ,gtk+)
6574        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6575        ("python" ,python-wrapper)
6576        ("python-dateutil" ,python-dateutil)
6577        ("python-pyfxa" ,python-pyfxa)
6578        ("python-pygobject" ,python-pygobject)
6579        ("python-pycairo" ,python-pycairo)
6580        ("python-pycrypto" ,python-pycrypto)
6581        ("libsecret" ,libsecret)
6582        ("gtkspell3" ,gtkspell3)
6583        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6584        ("webkitgtk" ,webkitgtk)))
6585     (home-page "https://wiki.gnome.org/Apps/Eolie")
6586     (synopsis "Web browser for GNOME")
6587     (description
6588      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6589 a secret password store, an adblocker, and a modern UI.")
6590     (license license:gpl3+)))
6591
6592 (define-public epiphany
6593   (package
6594     (name "epiphany")
6595     (version "3.34.4")
6596     (source (origin
6597               (method url-fetch)
6598               (uri (string-append "mirror://gnome/sources/epiphany/"
6599                                   (version-major+minor version) "/"
6600                                   "epiphany-" version ".tar.xz"))
6601               (sha256
6602                (base32
6603                 "13ar3s40cds1rplwbzx0fzigf120w0rydiv05r3k6zpc0zy91qb0"))))
6604
6605     (build-system meson-build-system)
6606     (arguments
6607      '(#:glib-or-gtk? #t
6608        #:phases
6609        (modify-phases %standard-phases
6610          (add-after 'unpack 'skip-gtk-update-icon-cache
6611            ;; Don't create 'icon-theme.cache'.
6612            (lambda _
6613              (substitute* "post_install.py"
6614                (("gtk-update-icon-cache") "true"))
6615              #t))
6616          (add-after 'unpack 'disable-failing-tests
6617            (lambda _
6618              (substitute* "tests/meson.build"
6619                ;; embed_shell fails, because webkitgtk apparently no longer supports
6620                ;; overriding the ftp schema
6621                ;; web_app_utils fails due to missing network access
6622                (("(embed_shell|web_app_utils)_test,")
6623                 "find_program('sh'), args: ['-c', 'exit 77'],"))
6624              #t))
6625          (add-before 'check 'pre-check
6626            (lambda _
6627              ;; Tests require a running X server.
6628              (system "Xvfb :1 &")
6629              (setenv "DISPLAY" ":1")
6630              #t)))
6631        #:configure-flags
6632        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6633        (list (string-append "-Dc_link_args=-Wl,-rpath="
6634                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6635     (propagated-inputs
6636      `(("dconf" ,dconf)))
6637     (native-inputs
6638      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6639        ("glib:bin" ,glib "bin") ; for glib-mkenums
6640        ("intltool" ,intltool)
6641        ("itstool" ,itstool)
6642        ("pkg-config" ,pkg-config)
6643        ("xmllint" ,libxml2)
6644        ("xorg-server" ,xorg-server-for-tests)))
6645     (inputs
6646      `(("avahi" ,avahi)
6647        ("gcr" ,gcr)
6648        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
6649        ("glib-networking" ,glib-networking)
6650        ("gnome-desktop" ,gnome-desktop)
6651        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6652        ("json-glib" ,json-glib)
6653        ("iso-codes" ,iso-codes)
6654        ("libdazzle" ,libdazzle)
6655        ("libnotify" ,libnotify)
6656        ("libsecret" ,libsecret)
6657        ("libxslt" ,libxslt)
6658        ("nettle" ,nettle) ; for hogweed
6659        ("sqlite" ,sqlite)
6660        ("webkitgtk" ,webkitgtk)))
6661     (home-page "https://wiki.gnome.org/Apps/Web")
6662     (synopsis "GNOME web browser")
6663     (description
6664      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6665 principles are simplicity and standards compliance.")
6666     (license license:gpl2+)))
6667
6668 (define-public d-feet
6669   (package
6670     (name "d-feet")
6671     (version "0.3.14")
6672     (source (origin
6673               (method url-fetch)
6674               (uri (string-append "mirror://gnome/sources/" name "/"
6675                                   (version-major+minor version) "/"
6676                                   name "-" version ".tar.xz"))
6677               (sha256
6678                (base32
6679                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6680     (build-system glib-or-gtk-build-system)
6681     (arguments
6682      '(#:out-of-source? #f ; tests need to run in the source directory.
6683        #:phases
6684        (modify-phases %standard-phases
6685          (add-before
6686           'check 'pre-check
6687           (lambda _
6688             ;; The test suite requires a running X server.
6689             (system "Xvfb :1 &")
6690             (setenv "DISPLAY" ":1")
6691             ;; Don't fail on missing '/etc/machine-id'.
6692             (setenv "DBUS_FATAL_WARNINGS" "0")
6693             ;; tests.py and window.py don't meet E402:
6694             ;;   E402 module level import not at top of file
6695             (substitute* "src/tests/Makefile"
6696               (("--ignore=E123") "--ignore=E123,E402"))
6697             #t))
6698          (add-after
6699           'install 'wrap-program
6700           (lambda* (#:key outputs #:allow-other-keys)
6701             (let ((prog (string-append (assoc-ref outputs "out")
6702                                        "/bin/d-feet")))
6703               (wrap-program prog
6704                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
6705                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6706               #t))))))
6707     (native-inputs
6708      `(("intltool" ,intltool)
6709        ("itstool" ,itstool)
6710        ("pkg-config" ,pkg-config)
6711        ("python-pep8" ,python-pep8)
6712        ("xmllint" ,libxml2)
6713        ("xorg-server" ,xorg-server-for-tests)))
6714     (inputs
6715      `(("gobject-introspection" ,gobject-introspection)
6716        ("gtk+" ,gtk+)
6717        ("python" ,python-wrapper)
6718        ("hicolor-icon-theme" ,hicolor-icon-theme)
6719        ("python-pygobject" ,python-pygobject)))
6720     (home-page "https://wiki.gnome.org/Apps/DFeet")
6721     (synopsis "D-Bus debugger")
6722     (description
6723      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6724 of running programs and invoke methods on those interfaces.")
6725     (license license:gpl2+)))
6726
6727 (define-public yelp-xsl
6728   (package
6729     (name "yelp-xsl")
6730     (version "3.34.2")
6731     (source
6732      (origin
6733        (method url-fetch)
6734        (uri
6735         (string-append "mirror://gnome/sources/" name "/"
6736                        (version-major+minor version) "/"
6737                        name "-" version ".tar.xz"))
6738        (sha256
6739         (base32 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
6740     (build-system gnu-build-system)
6741     (native-inputs
6742      `(("gettext-minimal" ,gettext-minimal)
6743        ("itstool" ,itstool)
6744        ("xmllint" ,libxml2)))
6745     (synopsis "XSL stylesheets for Yelp")
6746     (description "Yelp-XSL is a collection of programs and data files to help
6747 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
6748 that can be built upon for help viewers and publishing systems.  These
6749 stylesheets output JavaScript and CSS content, and reference images
6750 provided by yelp-xsl. It also redistributes copies of the jQuery and
6751 jQuery.Syntax JavaScript libraries.")
6752     (home-page "https://wiki.gnome.org/Apps/Yelp")
6753     (license
6754      (list
6755       ;; XSLT
6756       license:gpl2+
6757       ;; Images
6758       license:lgpl2.1+
6759       ;; JavaScript
6760       license:expat))))
6761
6762 (define-public yelp
6763   (package
6764     (name "yelp")
6765     (version "3.32.2")
6766     (source (origin
6767               (method url-fetch)
6768               (uri (string-append "mirror://gnome/sources/" name "/"
6769                                   (version-major+minor version) "/"
6770                                   name "-" version ".tar.xz"))
6771               (sha256
6772                (base32
6773                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
6774     (build-system glib-or-gtk-build-system)
6775     (native-inputs
6776      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6777        ("intltool" ,intltool)
6778        ("itstool" ,itstool)
6779        ("pkg-config" ,pkg-config)))
6780     (propagated-inputs
6781      `(("dconf" ,dconf)))
6782     (inputs
6783      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6784        ("libxslt" ,libxslt)
6785        ("sqlite" ,sqlite)
6786        ("webkitgtk" ,webkitgtk)
6787        ("yelp-xsl" ,yelp-xsl)))
6788     (home-page "https://wiki.gnome.org/Apps/Yelp")
6789     (synopsis "GNOME help browser")
6790     (description
6791      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
6792 man, info, and HTML documents.  It can locate documents according to the
6793 freedesktop.org help system specification.")
6794     (license license:gpl2+)))
6795
6796 (define-public yelp-tools
6797   (package
6798     (name "yelp-tools")
6799     (version "3.32.2")
6800     (source
6801      (origin
6802        (method url-fetch)
6803        (uri
6804         (string-append "mirror://gnome/sources/" name "/"
6805                        (version-major+minor version) "/"
6806                        name "-" version ".tar.xz"))
6807        (sha256
6808         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
6809     (build-system gnu-build-system)
6810     (native-inputs
6811      `(("pkg-config" ,pkg-config)))
6812     (inputs
6813      `(("yelp-xsl" ,yelp-xsl)))
6814     (propagated-inputs
6815      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
6816      `(("itstool" ,itstool)
6817        ("xmllint" ,libxml2)
6818        ("xsltproc" ,libxslt)))
6819     (synopsis "Yelp documentation tools")
6820     (description
6821      "Yelp-tools is a collection of scripts and build utilities to help create,
6822 manage, and publish documentation for Yelp and the web.  Most of the heavy
6823 lifting is done by packages like yelp-xsl and itstool.  This package just
6824 wraps things up in a developer-friendly way.")
6825     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
6826     (license license:gpl2+)))
6827
6828 (define-public libgee
6829   (package
6830     (name "libgee")
6831     (version "0.20.3")
6832     (source (origin
6833               (method url-fetch)
6834               (uri (string-append "mirror://gnome/sources/libgee/"
6835                                   (version-major+minor version) "/"
6836                                   "libgee-" version ".tar.xz"))
6837               (sha256
6838                (base32
6839                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
6840     (build-system gnu-build-system)
6841     (arguments
6842      `(#:phases
6843        (modify-phases %standard-phases
6844          (add-after 'unpack 'fix-introspection-install-dir
6845           (lambda* (#:key outputs #:allow-other-keys)
6846             (let ((out (assoc-ref outputs "out")))
6847               (substitute* "gee/Makefile.in"
6848                 (("@INTROSPECTION_GIRDIR@")
6849                  (string-append out "/share/gir-1.0/"))
6850                 (("@INTROSPECTION_TYPELIBDIR@")
6851                  (string-append out "/lib/girepository-1.0/")))))))))
6852     (native-inputs
6853      `(("glib" ,glib "bin")
6854        ("pkg-config" ,pkg-config)))
6855     (inputs
6856      `(("glib" ,glib)
6857        ("gobject-introspection" ,gobject-introspection)))
6858     (home-page "https://wiki.gnome.org/Projects/Libgee")
6859     (synopsis "GObject collection library")
6860     (description
6861      "Libgee is a utility library providing GObject-based interfaces and
6862 classes for commonly used data structures.")
6863     (license license:lgpl2.1+)))
6864
6865 (define-public gexiv2
6866   (package
6867     (name "gexiv2")
6868     (version "0.12.1")
6869     (source (origin
6870               (method url-fetch)
6871               (uri (string-append "mirror://gnome/sources/" name "/"
6872                                   (version-major+minor version) "/"
6873                                   name "-" version ".tar.xz"))
6874               (sha256
6875                (base32
6876                 "0xxxq8xdkgkn146my307jgws4qgxx477h0ybg1mqza1ycmczvsla"))))
6877     (build-system meson-build-system)
6878     (native-inputs
6879      `(("gcr" ,gcr)
6880        ("glib" ,glib "bin")
6881        ("pkg-config" ,pkg-config)
6882        ("vala" ,vala)))
6883     (propagated-inputs
6884      ;; Listed in "Requires" section of gexiv2.pc
6885      `(("exiv2" ,exiv2)))
6886     (inputs
6887      `(("glib" ,glib)
6888        ("gobject-introspection" ,gobject-introspection)))
6889     (home-page "https://wiki.gnome.org/Projects/gexiv2")
6890     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
6891     (description
6892      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
6893 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
6894 metadata in photo and video files of various formats.")
6895     (license license:gpl2+)))
6896
6897 (define-public shotwell
6898   (package
6899     (name "shotwell")
6900     (version "0.30.11")
6901     (source (origin
6902               (method url-fetch)
6903               (uri (string-append "mirror://gnome/sources/shotwell/"
6904                                   (version-major+minor version) "/"
6905                                   "shotwell-" version ".tar.xz"))
6906               (sha256
6907                (base32
6908                 "12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
6909     (build-system meson-build-system)
6910     (arguments
6911      '(#:glib-or-gtk? #t
6912        #:phases
6913        (modify-phases %standard-phases
6914          (add-after 'unpack 'skip-gtk-update-icon-cache
6915            (lambda _
6916              (substitute* "build-aux/meson/postinstall.py"
6917                (("gtk-update-icon-cache") (which "true"))
6918                (("update-desktop-database") (which "true")))
6919              #t)))))
6920     (propagated-inputs
6921      `(("dconf" ,dconf)))
6922     (native-inputs
6923      `(("gettext" ,gettext-minimal)
6924        ("glib:bin" ,glib "bin")
6925        ("itstool" ,itstool)
6926        ("pkg-config" ,pkg-config)
6927        ("vala" ,vala)))
6928     (inputs
6929      `(("gcr" ,gcr)
6930        ("gexiv2" ,gexiv2)
6931        ("gst-plugins-base" ,gst-plugins-base)
6932        ("gstreamer" ,gstreamer)
6933        ("json-glib" ,json-glib)
6934        ("libgdata" ,libgdata)
6935        ("libgee" ,libgee)
6936        ("libgphoto2" ,libgphoto2)
6937        ("libgudev" ,libgudev)
6938        ("libraw" ,libraw)
6939        ("libsoup" ,libsoup)
6940        ("libxml2" ,libxml2)
6941        ("sqlite" ,sqlite)
6942        ("webkitgtk" ,webkitgtk)))
6943     (home-page "https://wiki.gnome.org/Apps/Shotwell")
6944     (synopsis "Photo manager for GNOME 3")
6945     (description
6946      "Shotwell is a digital photo manager designed for the GNOME desktop
6947 environment.  It allows you to import photos from disk or camera, organize
6948 them by keywords and events, view them in full-window or fullscreen mode, and
6949 share them with others via social networking and more.")
6950     (license license:lgpl2.1+)))
6951
6952 (define-public file-roller
6953   (package
6954     (name "file-roller")
6955     (version "3.38.0")
6956     (source (origin
6957               (method url-fetch)
6958               (uri (string-append "mirror://gnome/sources/file-roller/"
6959                                   (version-major+minor version) "/"
6960                                   "file-roller-" version ".tar.xz"))
6961               (sha256
6962                (base32
6963                 "06ikvjjcgb8nxabkn2rywy76a1c7s6w8dszaxvaxldbxarp1qgbj"))))
6964     (build-system meson-build-system)
6965     (native-inputs
6966      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6967        ("intltool" ,intltool)
6968        ("itstool" ,itstool)
6969        ("pkg-config" ,pkg-config)
6970        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
6971        ("glib:bin" ,glib "bin")))
6972     ;; TODO: Add libnautilus.
6973     (inputs
6974      `(("gtk+" ,gtk+)
6975        ("gdk-pixbuf" ,gdk-pixbuf)
6976        ("json-glib" ,json-glib)
6977        ("libarchive" ,libarchive)
6978        ("libnotify" ,libnotify)
6979        ("nettle" ,nettle)
6980        ("libxml2" ,libxml2)))
6981     (synopsis "Graphical archive manager for GNOME")
6982     (description "File Roller is an archive manager for the GNOME desktop
6983 environment that allows users to view, unpack, and create compressed archives
6984 such as gzip tarballs.")
6985     (home-page "http://fileroller.sourceforge.net/")
6986     (license license:gpl2+)))
6987
6988 (define-public gnome-session
6989   (package
6990     (name "gnome-session")
6991     (version "3.34.2")
6992     (source (origin
6993               (method url-fetch)
6994               (uri (string-append "mirror://gnome/sources/" name "/"
6995                                   (version-major+minor version) "/"
6996                                   name "-" version ".tar.xz"))
6997               (sha256
6998                (base32
6999                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
7000     (arguments
7001      '(#:glib-or-gtk? #t
7002        #:phases
7003        (modify-phases %standard-phases
7004          (add-before 'configure 'pre-configure
7005            (lambda* (#:key outputs #:allow-other-keys)
7006              ;; Use elogind instead of systemd.
7007              (substitute* "meson.build"
7008                (("libsystemd-login") "libelogind")
7009                (("and libsystemd_daemon_dep.found.*") ","))
7010              (substitute* "gnome-session/gsm-systemd.c"
7011                (("#include <systemd/sd-login.h>")
7012                 "#include <elogind/sd-login.h>"))
7013              ;; Remove uses of the systemd daemon.
7014              (substitute* "gnome-session/gsm-autostart-app.c"
7015                (("#ifdef HAVE_SYSTEMD") "#if 0"))
7016              #t))
7017          (add-after 'install 'wrap-gnome-session
7018            (lambda* (#:key inputs outputs #:allow-other-keys)
7019              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7020              (let ((glib (assoc-ref inputs "glib:bin"))
7021                    (out  (assoc-ref outputs "out")))
7022                (wrap-program (string-append out "/bin/gnome-session")
7023                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
7024                #t))))
7025
7026        #:configure-flags
7027        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7028          "-Dman=false" ; FIXME: disabled because of docbook validation error
7029          "-Dsystemd_journal=false")))
7030     (build-system meson-build-system)
7031     (native-inputs
7032      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7033        ("pkg-config" ,pkg-config)
7034        ("intltool" ,intltool)
7035        ("xsltproc" ,libxslt)
7036        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7037        ("docbook-xsl" ,docbook-xsl)
7038        ("docbook-xml" ,docbook-xml)
7039        ("xmlto" ,xmlto)))
7040     (inputs
7041      `(("elogind" ,elogind)
7042        ("gnome-desktop" ,gnome-desktop)
7043        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7044        ("gtk+" ,gtk+)
7045        ("json-glib" ,json-glib)
7046        ("libsm" ,libsm)
7047        ("libxcomposite" ,libxcomposite)
7048        ("libxtst" ,libxtst)
7049        ("mesa" ,mesa)
7050        ("upower" ,upower)
7051        ("xtrans" ,xtrans)))
7052     (synopsis "Session manager for GNOME")
7053     (description
7054      "This package contains the GNOME session manager, as well as a
7055 configuration program to choose applications starting on login.")
7056     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7057     (license license:gpl2+)))
7058
7059 (define-public gjs
7060   (package
7061     (name "gjs")
7062     (version "1.58.3")
7063     (source (origin
7064               (method url-fetch)
7065               (uri (string-append "mirror://gnome/sources/" name "/"
7066                                   (version-major+minor version) "/"
7067                                   name "-" version ".tar.xz"))
7068               (sha256
7069                (base32
7070                 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
7071     (build-system gnu-build-system)
7072     (arguments
7073      '(#:phases
7074        (modify-phases %standard-phases
7075          (add-before
7076           'check 'pre-check
7077           (lambda _
7078             ;; The test suite requires a running X server.
7079             (system "Xvfb :1 &")
7080             (setenv "DISPLAY" ":1")
7081
7082             ;; For the missing /etc/machine-id.
7083             (setenv "DBUS_FATAL_WARNINGS" "0")
7084
7085             ;; Our mozjs-38 package does not compile the required Intl API
7086             ;; support for these failing tests.
7087             (substitute* "installed-tests/js/testLocale.js"
7088               ((".*toBeDefined.*") "")
7089               ((".*expect\\(datestr\\).*") ""))
7090             (substitute* "installed-tests/scripts/testCommandLine.sh"
7091               (("Valentín") "")
7092               (("☭") ""))
7093             #t)))))
7094     (native-inputs
7095      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7096        ("pkg-config" ,pkg-config)
7097        ("xmllint" ,libxml2)
7098        ;; For testing
7099        ("dbus-launch" ,dbus)
7100        ("dconf" ,dconf) ; required to properly store settings
7101        ("uuidgen" ,util-linux)
7102        ("xvfb" ,xorg-server-for-tests)))
7103     (propagated-inputs
7104      ;; These are all in the Requires.private field of gjs-1.0.pc.
7105      `(("cairo" ,cairo)
7106        ("gobject-introspection" ,gobject-introspection)
7107        ("mozjs" ,mozjs-60)))
7108     (inputs
7109      `(("gtk+" ,gtk+)
7110        ("readline" ,readline)))
7111     (synopsis "Javascript bindings for GNOME")
7112     (home-page "https://live.gnome.org/Gjs")
7113     (description
7114      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7115 javascript engine and the GObject introspection framework.")
7116     (license license:gpl2+)))
7117
7118 (define-public gedit
7119   (package
7120     (name "gedit")
7121     (version "3.34.1")
7122     (source (origin
7123               (method url-fetch)
7124               (uri (string-append "mirror://gnome/sources/" name "/"
7125                                   (version-major+minor version) "/"
7126                                   name "-" version ".tar.xz"))
7127               (sha256
7128                (base32
7129                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
7130     (build-system meson-build-system)
7131     (arguments
7132      `(#:glib-or-gtk? #t
7133        #:configure-flags
7134        ;; Otherwise, the RUNPATH will lack the final path component.
7135        (list (string-append "-Dc_link_args=-Wl,-rpath="
7136                             (assoc-ref %outputs "out") "/lib/gedit"))
7137
7138        ;; XXX: Generated .h files are sometimes used before being built.
7139        #:parallel-build? #f
7140
7141        #:phases
7142        (modify-phases %standard-phases
7143          (add-after 'unpack 'skip-gtk-update-icon-cache
7144            ;; Don't create 'icon-theme.cache'.
7145            (lambda _
7146              (substitute* "build-aux/meson/post_install.py"
7147                (("gtk-update-icon-cache") (which "true")))
7148              #t))
7149          (add-after 'unpack 'patch-libgd-fetch
7150            (lambda* (#:key inputs #:allow-other-keys)
7151              (let ((libgd (assoc-ref inputs "libgd")))
7152                ;; Calling git is unnecessary because libgd is fetched as a
7153                ;; native input to this package.
7154                (substitute* "meson.build"
7155                  ((".*git.*") ""))
7156                (copy-recursively libgd "subprojects/libgd")
7157                #t)))
7158          (add-after 'install 'wrap-gedit
7159            (lambda* (#:key inputs outputs #:allow-other-keys)
7160              (let ((out               (assoc-ref outputs "out"))
7161                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7162                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7163                    (python-path       (getenv "PYTHONPATH")))
7164                (wrap-program (string-append out "/bin/gedit")
7165                  ;; For plugins.
7166                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7167                  `("PYTHONPATH" ":" prefix (,python-path))
7168                  ;; For language-specs.
7169                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7170                                                                "/share")))))
7171              #t)))))
7172     (propagated-inputs
7173      `(("dconf" ,dconf)))
7174     (native-inputs
7175      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7176        ("intltool" ,intltool)
7177        ("itstool" ,itstool)
7178        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7179        ("gobject-introspection" ,gobject-introspection)
7180        ("libgd"
7181         ,(origin
7182            (method git-fetch)
7183            (uri (git-reference
7184                  (url "https://gitlab.gnome.org/GNOME/libgd")
7185                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7186            (file-name (git-file-name "libgd" version))
7187            (sha256
7188             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7189        ("pkg-config" ,pkg-config)))
7190     (inputs
7191      `(("glib" ,glib)
7192        ("gspell" ,gspell)
7193        ("gtk+" ,gtk+)
7194        ("gtksourceview" ,gtksourceview)
7195        ("libpeas" ,libpeas)
7196        ("libxml2" ,libxml2)
7197        ("iso-codes" ,iso-codes)
7198        ("python-pygobject" ,python-pygobject)
7199        ("python" ,python)
7200        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7201        ("libx11" ,libx11)
7202        ("vala" ,vala)
7203        ("adwaita-icon-theme" ,adwaita-icon-theme)
7204        ("libsoup" ,libsoup)
7205        ("gnome-desktop" ,gnome-desktop)))
7206     (home-page "https://wiki.gnome.org/Apps/Gedit")
7207     (synopsis "GNOME text editor")
7208     (description "While aiming at simplicity and ease of use, gedit is a
7209 powerful general purpose text editor.")
7210     (license license:gpl2+)))
7211
7212 (define-public zenity
7213   (package
7214     (name "zenity")
7215     (version "3.32.0")
7216     (source (origin
7217               (method url-fetch)
7218               (uri (string-append "mirror://gnome/sources/zenity/"
7219                                   (version-major+minor version) "/"
7220                                   "zenity-" version ".tar.xz"))
7221               (sha256
7222                (base32
7223                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7224     (build-system gnu-build-system)
7225     (native-inputs
7226      `(("gettext" ,gettext-minimal)
7227        ("itstool" ,itstool)
7228        ("pkg-config" ,pkg-config)))
7229     (inputs
7230      `(("libnotify" ,libnotify)
7231        ("webkitgtk" ,webkitgtk)))
7232     (synopsis "Display graphical dialog boxes from shell scripts")
7233     (home-page "https://www.gnome.org")
7234     (description
7235      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7236 to display dialog boxes from the commandline and shell scripts.")
7237     (license license:lgpl2.0+)))
7238
7239 (define-public mutter
7240   (package
7241     (name "mutter")
7242     (version "3.34.2")
7243     (source (origin
7244               (method url-fetch)
7245               (uri (string-append "mirror://gnome/sources/" name "/"
7246                                   (version-major+minor version) "/"
7247                                   name "-" version ".tar.xz"))
7248               (sha256
7249                (base32
7250                 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
7251     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7252     ;; versions of cogl and clutter.  As a result, many of the inputs,
7253     ;; propagated-inputs, and configure flags used in cogl and clutter are
7254     ;; needed here as well.
7255     (build-system meson-build-system)
7256     (arguments
7257      '(;; XXX: All mutter tests fail with the following error:
7258        ;;   Settings schema 'org.gnome.mutter' is not installed
7259        #:tests? #f
7260        #:glib-or-gtk? #t
7261        #:configure-flags
7262        ;; TODO: Enable profiler when Sysprof is packaged.
7263        (list "-Dprofiler=false"
7264              ;; Otherwise, the RUNPATH will lack the final path component.
7265              (string-append "-Dc_link_args=-Wl,-rpath="
7266                             (assoc-ref %outputs "out") "/lib:"
7267                             (assoc-ref %outputs "out") "/lib/mutter-5")
7268
7269              ;; The following flags are needed for the bundled clutter
7270              (string-append "-Dxwayland_path="
7271                             (assoc-ref %build-inputs "xorg-server-xwayland")
7272                             "/bin/Xwayland")
7273
7274              ;; the remaining flags are needed for the bundled cogl
7275              (string-append "-Dopengl_libname="
7276                             (assoc-ref %build-inputs "mesa")
7277                             "/lib/libGL.so"))
7278        #:phases (modify-phases %standard-phases
7279                   (add-after 'unpack 'fix-build-with-mesa-20
7280                     (lambda _
7281                       ;; Mimic upstream commit a444a4c5f58ea516ad for
7282                       ;; compatibility with Mesa 20.  Remove for 3.36.
7283                       (substitute* '("src/backends/meta-egl-ext.h"
7284                                      "src/backends/meta-egl.c"
7285                                      "src/backends/meta-egl.h")
7286                         (("#include <EGL/eglext\\.h>" all)
7287                          (string-append all "\n#include <EGL/eglmesaext.h>")))
7288                       (substitute* "cogl/cogl/meson.build"
7289                         (("#include <EGL/eglext\\.h>" all)
7290                          (string-append all "\\n#include <EGL/eglmesaext.h>")))
7291                       #t)))))
7292     (native-inputs
7293      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7294        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7295        ("gobject-introspection" ,gobject-introspection)
7296        ("intltool" ,intltool)
7297        ("pkg-config" ,pkg-config)
7298        ("xorg-server" ,xorg-server-for-tests)
7299        ;; For git build
7300        ("autoconf" ,autoconf)
7301        ("automake" ,automake)
7302        ("libtool" ,libtool)))
7303     (propagated-inputs
7304      `(;; libmutter.pc refers to these:
7305        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7306        ("gtk+" ,gtk+)
7307        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7308        ("atk" ,atk)
7309        ("cairo" ,cairo)
7310        ("gdk-pixbuf" ,gdk-pixbuf)
7311        ("glib" ,glib)
7312        ("json-glib" ,json-glib)
7313        ("libinput" ,libinput)
7314        ("libx11" ,libx11)
7315        ("libxcomposite" ,libxcomposite)
7316        ("libxdamage" ,libxdamage)
7317        ("libxext" ,libxext)
7318        ("libxfixes" ,libxfixes)
7319        ("libxkbcommon" ,libxkbcommon)
7320        ("libxrandr" ,libxrandr)
7321        ("mesa" ,mesa)
7322        ("pango" ,pango)
7323        ("udev" ,eudev)
7324        ("xinput" ,xinput)))
7325     (inputs
7326      `(("elogind" ,elogind)
7327        ("gnome-desktop" ,gnome-desktop)
7328        ("gnome-settings-daemon" ,gnome-settings-daemon)
7329        ("libcanberra-gtk" ,libcanberra)
7330        ("libgudev" ,libgudev)
7331        ("libice" ,libice)
7332        ("libsm" ,libsm)
7333        ("libwacom" ,libwacom)
7334        ("libxkbfile" ,libxkbfile)
7335        ("libxrandr" ,libxrandr)
7336        ("libxtst" ,libxtst)
7337        ("pipewire" ,pipewire)
7338        ("startup-notification" ,startup-notification)
7339        ("upower-glib" ,upower)
7340        ("xkeyboard-config" ,xkeyboard-config)
7341        ("xorg-server-xwayland" ,xorg-server-xwayland)
7342        ("zenity" ,zenity)))
7343     (synopsis "Window and compositing manager")
7344     (home-page "https://www.gnome.org")
7345     (description
7346      "Mutter is a window and compositing manager that displays and manages your
7347 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7348 Clutter toolkit with solid window-management logic inherited from the Metacity
7349 window manager.")
7350     (license license:gpl2+)))
7351
7352 (define-public gnome-online-accounts
7353   (package
7354     (name "gnome-online-accounts")
7355     (version "3.36.0")
7356     (source (origin
7357               (method url-fetch)
7358               (uri (string-append "mirror://gnome/sources/" name "/"
7359                                   (version-major+minor version) "/"
7360                                   name "-" version ".tar.xz"))
7361               (sha256
7362                (base32
7363                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
7364     (outputs '("out" "lib"))
7365     (build-system glib-or-gtk-build-system)
7366     (arguments
7367      `(#:configure-flags
7368        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7369        #:phases
7370        (modify-phases %standard-phases
7371          (add-before 'configure 'patch-libgoa-output
7372            (lambda* (#:key outputs #:allow-other-keys)
7373              (let ((lib (assoc-ref outputs "lib")))
7374                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7375                  (("@prefix@") lib)
7376                  (("@exec_prefix@") lib)
7377                  (("@libdir@") (string-append lib "/lib"))
7378                  (("@includedir@") (string-append lib "/include"))
7379                  (("@datadir@") (string-append lib "/share")))
7380                ;; Make sure gobject-introspection knows about the output
7381                ;; too (see <https://bugs.gnu.org/36535>).
7382                (setenv "outputs" "out lib")
7383                #t))))))
7384     (native-inputs
7385      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7386        ("gobject-introspection" ,gobject-introspection)
7387        ("intltool" ,intltool)
7388        ("pkg-config" ,pkg-config)
7389        ("vala" ,vala)
7390        ("xsltproc" ,libxslt)))
7391     (propagated-inputs
7392      `(("glib" ,glib)           ; required by goa-1.0.pc
7393        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
7394     (inputs
7395      `(("docbook-xsl" ,docbook-xsl)
7396        ("json-glib" ,json-glib)
7397        ("libsecret" ,libsecret)
7398        ("rest" ,rest)
7399        ("webkitgtk" ,webkitgtk)))
7400     (synopsis "Single sign-on framework for GNOME")
7401     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7402     (description
7403      "GNOME Online Accounts provides interfaces so that applications and
7404 libraries in GNOME can access the user's online accounts.  It has providers for
7405 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
7406 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7407     (license license:lgpl2.0+)))
7408
7409 (define-public evolution-data-server
7410   (package
7411     (name "evolution-data-server")
7412     (version "3.34.2")
7413     (source (origin
7414               (method url-fetch)
7415               (uri (string-append "mirror://gnome/sources/" name "/"
7416                                   (version-major+minor version) "/"
7417                                   name "-" version ".tar.xz"))
7418               (patches (search-patches "evolution-data-server-locales.patch"
7419                                        "evolution-data-server-libical-compat.patch"))
7420               (sha256
7421                (base32
7422                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
7423     (build-system cmake-build-system)
7424     (arguments
7425      '(#:configure-flags
7426        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7427               (runpaths (map (lambda (s)
7428                                (string-append lib "/evolution-data-server/" s))
7429                              '("addressbook-backends" "calendar-backends"
7430                                "camel-providers" "credential-modules"
7431                                "registry-modules"))))
7432          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7433                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7434                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7435                "-DENABLE_VALA_BINDINGS=ON"
7436                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7437                               (string-append lib "/evolution-data-server;")
7438                               (string-join runpaths ";"))
7439                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7440        #:phases
7441        (modify-phases %standard-phases
7442          (add-after 'unpack 'disable-failing-tests
7443            (lambda _
7444              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7445              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7446              (delete-file-recursively "tests/book-migration")
7447              (substitute* "tests/CMakeLists.txt"
7448                (("add_subdirectory\\(book-migration\\)") ""))
7449              #t))
7450          (add-after 'unpack 'patch-paths
7451           (lambda _
7452             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7453                            "tests/libedata-book/data-test-utils.c"
7454                            "tests/libedata-book/test-book-cache-utils.c"
7455                            "tests/libedata-cal/test-cal-cache-utils.c")
7456               (("/bin/rm") (which "rm")))
7457             #t))
7458          (add-before 'configure 'dont-override-rpath
7459            (lambda _
7460              (substitute* "CMakeLists.txt"
7461                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7462                ;; Remove it so the configure flag is respected.
7463                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
7464              #t)))))
7465     (native-inputs
7466      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7467        ("gobject-introspection" ,gobject-introspection)
7468        ("gperf" ,gperf)
7469        ("intltool" ,intltool)
7470        ("pkg-config" ,pkg-config)
7471        ("vala" ,vala)
7472        ("python" ,python-wrapper)))
7473     (propagated-inputs
7474      ;; These are all in the Requires field of .pc files.
7475      `(("gtk+" ,gtk+)
7476        ("libical" ,libical)
7477        ("libsecret" ,libsecret)
7478        ("libsoup" ,libsoup)
7479        ("nss" ,nss)
7480        ("sqlite" ,sqlite)))
7481     (inputs
7482      `(("bdb" ,bdb)
7483        ("gcr" ,gcr)
7484        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7485        ("json-glib" ,json-glib)
7486        ("libcanberra" ,libcanberra)
7487        ("libgweather" ,libgweather)
7488        ("mit-krb5" ,mit-krb5)
7489        ("openldap" ,openldap)
7490        ("webkitgtk" ,webkitgtk)))
7491     (synopsis "Store address books and calendars")
7492     (home-page "https://wiki.gnome.org/Apps/Evolution")
7493     (description
7494      "This package provides a unified backend for programs that work with
7495 contacts, tasks, and calendar information.  It was originally developed for
7496 Evolution (hence the name), but is now used by other packages as well.")
7497     (license license:lgpl2.0)))
7498
7499 (define-public caribou
7500   (package
7501     (name "caribou")
7502     (version "0.4.21")
7503     (source (origin
7504               (method url-fetch)
7505               (uri (string-append "mirror://gnome/sources/" name "/"
7506                                   (version-major+minor version) "/"
7507                                   name "-" version ".tar.xz"))
7508               (sha256
7509                (base32
7510                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7511     (build-system glib-or-gtk-build-system)
7512     (arguments
7513      '(#:phases
7514        (modify-phases %standard-phases
7515          (add-before
7516           'build 'pre-build
7517           (lambda* (#:key outputs #:allow-other-keys)
7518             (let ((out (assoc-ref outputs "out")))
7519               ;; Use absolute shared library path in Caribou-1.0.typelib.
7520               (substitute* "libcaribou/Makefile"
7521                 (("--shared-library=libcaribou.so")
7522                  (string-append "--shared-library="
7523                                 out "/lib/libcaribou.so")))
7524               #t)))
7525          (add-after 'install 'wrap-programs
7526           (lambda* (#:key outputs #:allow-other-keys)
7527             (let* ((out (assoc-ref outputs "out"))
7528                    (python-path (getenv "PYTHONPATH"))
7529                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7530               (for-each
7531                (lambda (prog)
7532                  (wrap-program prog
7533                    `("PYTHONPATH"      ":" prefix (,python-path))
7534                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7535                (list (string-append out "/bin/caribou-preferences")
7536                      (string-append out "/libexec/antler-keyboard"))))
7537             #t)))))
7538     (native-inputs
7539      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7540        ("gobject-introspection" ,gobject-introspection)
7541        ("intltool" ,intltool)
7542        ("pkg-config" ,pkg-config)
7543        ("python" ,python)
7544        ("vala" ,vala)
7545        ("xsltproc" ,libxslt)))
7546     (propagated-inputs
7547      ;; caribou-1.0.pc refers to all these.
7548      `(("libgee" ,libgee)
7549        ("libxklavier" ,libxklavier)
7550        ("libxtst" ,libxtst)
7551        ("gtk+" ,gtk+)))
7552     (inputs
7553      `(("clutter" ,clutter)
7554        ("dconf" ,dconf)
7555        ("gtk+-2" ,gtk+-2)
7556        ("python-pygobject" ,python-pygobject)))
7557     (synopsis "Text entry and UI navigation application")
7558     (home-page "https://wiki.gnome.org/Projects/Caribou")
7559     (description
7560      "Caribou is an input assistive technology intended for switch and pointer
7561 users.")
7562     (license license:lgpl2.1)))
7563
7564 (define-public network-manager
7565   (package
7566     (name "network-manager")
7567     (version "1.24.0")
7568     (source (origin
7569               (method url-fetch)
7570               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7571                                   (version-major+minor version) "/"
7572                                   "NetworkManager-" version ".tar.xz"))
7573               (patches (search-patches "network-manager-plugin-path.patch"))
7574               (sha256
7575                (base32
7576                 "06044fl60bjlj7c6rqqfbm5795h61h6yzp7ch392hzcnm46wwhn3"))
7577               (modules '((guix build utils)))
7578               (snippet
7579                '(begin
7580                   (substitute* "src/devices/wwan/nm-modem-manager.c"
7581                     (("systemd") "elogind"))
7582                   #t))))
7583     (build-system meson-build-system)
7584     (outputs '("out"
7585                "doc")) ; 8 MiB of gtk-doc HTML
7586     (arguments
7587      `(#:configure-flags
7588        (let ((out      (assoc-ref %outputs "out"))
7589              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
7590                                       "/sbin/dhclient")))
7591          (list
7592           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7593           ;; component.
7594           (string-append "-Dc_link_args=-Wl,-rpath="
7595                          out "/lib:"
7596                          out "/lib/NetworkManager/" ,version)
7597           "-Dsystemd_journal=false"
7598           "-Dsession_tracking=elogind"
7599           "-Dsuspend_resume=elogind"
7600           "-Dsystemdsystemunitdir=no"
7601           "-Dsession_tracking_consolekit=false"
7602           "-Ddhcpcd=no"
7603           "-Ddhcpcanon=no"
7604           "-Dcrypto=gnutls"
7605           "-Diwd=true"
7606           "-Dlibaudit=yes"
7607           "-Dqt=false"
7608           "-Ddocs=true"
7609           "--sysconfdir=/etc"
7610           "--localstatedir=/var"
7611           (string-append "-Dudev_dir="
7612                          out "/lib/udev")
7613           (string-append "-Ddbus_conf_dir="
7614                          out "/etc/dbus-1/system.d")
7615
7616           (string-append "-Ddhclient=" dhclient)))
7617        #:phases
7618        (modify-phases %standard-phases
7619          (add-before 'configure 'pre-configure
7620            (lambda _
7621              ;; These tests try to test aspects of network-manager's
7622              ;; functionality within restricted containers, but they don't
7623              ;; cope with being already in the Guix build jail as that jail
7624              ;; lacks some features that they would like to proxy over (like
7625              ;; a /sys mount).
7626              (substitute* "src/platform/tests/meson.build"
7627                ((".*test-address-linux.*") "")
7628                ((".*test-cleanup-linux.*") "")
7629                ((".*test-link-linux.*") "")
7630                ((".*test-route-linux.*") ""))
7631              (substitute* "src/devices/tests/meson.build"
7632                ((".*test-acd.*") "")
7633                ((".*test-lldp.*") ""))
7634              #t))
7635          (add-after 'unpack 'patch-docbook-xml
7636            (lambda* (#:key inputs #:allow-other-keys)
7637              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7638                                           "/xml/dtd/docbook")))
7639                (substitute* (find-files "." ".*\\.(xsl|xml)")
7640                  (("http://.*/docbookx\\.dtd")
7641                   (string-append xmldoc "/docbookx.dtd")))
7642                #t)))
7643          (add-before 'check 'pre-check
7644            (lambda _
7645              ;; For the missing /etc/machine-id.
7646              (setenv "DBUS_FATAL_WARNINGS" "0")
7647              #t))
7648          (add-before 'install 'no-polkit-magic
7649            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7650            (lambda _
7651              (setenv "PKEXEC_UID" "something")
7652              #t))
7653          (add-after 'install 'move-doc
7654            (lambda* (#:key outputs #:allow-other-keys)
7655              (let ((out (assoc-ref outputs "out"))
7656                    (doc (assoc-ref outputs "doc")))
7657                (mkdir-p (string-append doc "/share"))
7658                (for-each (lambda (directory)
7659                            (copy-recursively (string-append out directory)
7660                                              (string-append doc directory))
7661                            (delete-file-recursively
7662                             (string-append out directory)))
7663                          '("/share/doc" "/share/gtk-doc"))
7664                #t))))))
7665     (propagated-inputs
7666      `(("glib" ,glib)))
7667     (native-inputs
7668      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7669        ("gtk-doc" ,gtk-doc)
7670        ("gobject-introspection" ,gobject-introspection)
7671        ("docbook-xml" ,docbook-xml)
7672        ("docbook-xsl" ,docbook-xsl)
7673        ("intltool" ,intltool)
7674        ("libxslt" ,libxslt)
7675        ("libxml2" ,libxml2)
7676        ("pkg-config" ,pkg-config)
7677        ("vala" ,vala)
7678        ;; For testing.
7679        ("python" ,python-wrapper)
7680        ("python-dbus" ,python-dbus)
7681        ("python-pygobject" ,python-pygobject)))
7682     (inputs
7683      `(("curl" ,curl)
7684        ("cyrus-sasl" ,cyrus-sasl)
7685        ("dbus-glib" ,dbus-glib)
7686        ("dnsmasq" ,dnsmasq)
7687        ("eudev" ,eudev)
7688        ("gnutls" ,gnutls)
7689        ("iptables" ,iptables)
7690        ("isc-dhcp" ,isc-dhcp)
7691        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7692        ("jansson" ,jansson)
7693        ("libaudit" ,audit)
7694        ("libgcrypt" ,libgcrypt)
7695        ("libgudev" ,libgudev)
7696        ("libndp" ,libndp)
7697        ("libnl" ,libnl)
7698        ("libsoup" ,libsoup)
7699        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7700        ("modem-manager" ,modem-manager)
7701        ("newt" ,newt)                       ;for the 'nmtui' console interface
7702        ("openresolv" ,openresolv)           ; alternative resolv.conf manager
7703        ("polkit" ,polkit)
7704        ("ppp" ,ppp)
7705        ("readline" ,readline)
7706        ("util-linux" ,util-linux)
7707        ("elogind" ,elogind)))
7708     (synopsis "Network connection manager")
7709     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7710     (description
7711      "NetworkManager is a system network service that manages your network
7712 devices and connections, attempting to keep active network connectivity when
7713 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7714 devices, and provides VPN integration with a variety of different VPN
7715 services.")
7716     ;; “This NetworkManager project consists of the daemon, client tools, and
7717     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7718     ;; GPL-2.0+.”
7719     (license (list license:gpl2+
7720                    license:lgpl2.1+))
7721     (properties '((upstream-name . "NetworkManager")))))
7722
7723 (define-public network-manager-openvpn
7724   (package
7725     (name "network-manager-openvpn")
7726     (version "1.8.12")
7727     (source (origin
7728               (method url-fetch)
7729               (uri (string-append
7730                     "mirror://gnome/sources/NetworkManager-openvpn/"
7731                     (version-major+minor version)
7732                     "/NetworkManager-openvpn-" version ".tar.xz"))
7733               (sha256
7734                (base32
7735                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
7736     (build-system gnu-build-system)
7737     (arguments
7738      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7739        #:phases
7740        (modify-phases %standard-phases
7741          (add-after 'configure 'patch-path
7742            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7743              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
7744                                          "/sbin/openvpn"))
7745                     (modprobe (string-append (assoc-ref inputs "kmod")
7746                                              "/bin/modprobe"))
7747                     (pretty-ovpn (string-append "\"" ovpn "\"")))
7748                (for-each
7749                 (lambda (file)
7750                   (substitute* file
7751                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7752                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7753                     (("\"/sbin/openvpn\"") pretty-ovpn)
7754                     (("/sbin/modprobe") modprobe)))
7755                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7756              #t)))))
7757     (native-inputs
7758      `(("pkg-config" ,pkg-config)
7759        ("intltool" ,intltool)))
7760     (inputs
7761      `(("gtk+" ,gtk+)
7762        ("kmod" ,kmod)
7763        ("openvpn" ,openvpn)
7764        ("network-manager" ,network-manager)
7765        ("libnma" ,libnma)
7766        ("libsecret" ,libsecret)))
7767     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7768     (synopsis "OpenVPN plug-in for NetworkManager")
7769     (description
7770      "This extension of NetworkManager allows it to take care of connections
7771 to virtual private networks (VPNs) via OpenVPN.")
7772     (license license:gpl2+)
7773     (properties `((upstream-name . "NetworkManager-openvpn")))))
7774
7775 (define-public network-manager-vpnc
7776   (package
7777     (name "network-manager-vpnc")
7778     (version "1.2.6")
7779     (source (origin
7780               (method url-fetch)
7781               (uri (string-append
7782                     "mirror://gnome/sources/NetworkManager-vpnc/"
7783                     (version-major+minor version)
7784                     "/NetworkManager-vpnc-" version ".tar.xz"))
7785               (sha256
7786                (base32
7787                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
7788     (build-system gnu-build-system)
7789     (arguments
7790      `(#:configure-flags '("--enable-absolute-paths"
7791                            "--localstatedir=/var"
7792                            ;; libnm-glib has been removed from network-manager
7793                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
7794                            "--with-libnm-glib=no")
7795        #:phases
7796        (modify-phases %standard-phases
7797          (add-after 'configure 'patch-path
7798            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7799              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
7800                                          "/sbin/vpnc"))
7801                     (modprobe (string-append (assoc-ref inputs "kmod")
7802                                              "/bin/modprobe"))
7803                     (pretty-ovpn (string-append "\"" vpnc "\"")))
7804                (substitute* "src/nm-vpnc-service.c"
7805                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
7806                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
7807                     (("\"/sbin/vpnc\"") pretty-ovpn)
7808                     (("/sbin/modprobe") modprobe)))
7809              #t)))))
7810     (native-inputs
7811      `(("pkg-config" ,pkg-config)
7812        ("intltool" ,intltool)))
7813     (inputs
7814      `(("gtk+" ,gtk+)
7815        ("kmod" ,kmod)
7816        ("vpnc" ,vpnc)
7817        ("network-manager" ,network-manager)
7818        ("libnma" ,libnma)
7819        ("libsecret" ,libsecret)))
7820     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7821     (synopsis "VPNC plug-in for NetworkManager")
7822     (description
7823      "Support for configuring virtual private networks based on VPNC.
7824 Compatible with Cisco VPN concentrators configured to use IPsec.")
7825     (license license:gpl2+)
7826     (properties `((upstream-name . "NetworkManager-vpnc")))))
7827
7828 (define-public network-manager-openconnect
7829   (package
7830     (name "network-manager-openconnect")
7831     (version "1.2.6")
7832     (source (origin
7833               (method url-fetch)
7834               (uri (string-append
7835                     "mirror://gnome/sources/NetworkManager-openconnect/"
7836                     (version-major+minor version)
7837                     "/NetworkManager-openconnect-" version ".tar.xz"))
7838               (sha256
7839                (base32
7840                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
7841     (build-system gnu-build-system)
7842     (arguments
7843      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7844        #:phases
7845        (modify-phases %standard-phases
7846          (add-after 'configure 'patch-path
7847            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7848              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
7849                                          "/sbin/openconnect"))
7850                     (modprobe (string-append (assoc-ref inputs "kmod")
7851                                              "/bin/modprobe"))
7852                     (pretty-ovpn (string-append "\"" openconnect "\"")))
7853                (substitute* "src/nm-openconnect-service.c"
7854                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
7855                  (("/sbin/modprobe") modprobe)))
7856              #t)))))
7857     (native-inputs
7858      `(("intltool" ,intltool)
7859        ("libnma" ,libnma)
7860        ("pkg-config" ,pkg-config)))
7861     (inputs
7862      `(("gcr" ,gcr)
7863        ("gtk+" ,gtk+)
7864        ("kmod" ,kmod)
7865        ("libsecret" ,libsecret)
7866        ("libxml2" ,libxml2)
7867        ("lz4" ,lz4)
7868        ("network-manager" ,network-manager)
7869        ("openconnect" ,openconnect)))
7870     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7871     (synopsis "OpenConnect plug-in for NetworkManager")
7872     (description
7873      "This extension of NetworkManager allows it to take care of connections
7874 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
7875 Cisco's AnyConnect SSL VPN.")
7876     (license license:gpl2+)
7877     (properties `((upstream-name . "NetworkManager-openconnect")
7878
7879                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
7880                   ;; file refers to account "nm-openconnect".  Specify it here
7881                   ;; so that 'network-manager-service-type' creates it.
7882                   (user-accounts . ("nm-openconnect"))))))
7883
7884 (define-public mobile-broadband-provider-info
7885   (package
7886     (name "mobile-broadband-provider-info")
7887     (version "20190116")
7888     (source (origin
7889               (method url-fetch)
7890               (uri (string-append
7891                     "mirror://gnome/sources/"
7892                     "mobile-broadband-provider-info/" version "/"
7893                     "mobile-broadband-provider-info-" version ".tar.xz"))
7894               (sha256
7895                (base32
7896                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
7897     (build-system gnu-build-system)
7898     (arguments
7899      `(#:tests? #f))                    ; no tests
7900     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7901     (synopsis "Database of broadband connection configuration")
7902     (description "Database of broadband connection configuration.")
7903     (license license:public-domain)))
7904
7905 (define-public network-manager-applet
7906   (package
7907     (name "network-manager-applet")
7908     (version "1.16.0")
7909     (source (origin
7910               (method url-fetch)
7911               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
7912                                   (version-major+minor version) "/"
7913                                   "network-manager-applet-" version ".tar.xz"))
7914               (sha256
7915                (base32
7916                 "1rf3nm0hjcy9f8ajb4vmvwy503w8yj8d4daxkcb7w7i7b92qmyfn"))))
7917     (build-system meson-build-system)
7918     (arguments
7919      '(#:glib-or-gtk? #t))
7920     (native-inputs
7921      `(("intltool" ,intltool)
7922        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
7923        ("gobject-introspection" ,gobject-introspection)
7924        ("gtk-doc" ,gtk-doc)
7925        ("pkg-config" ,pkg-config)))
7926     (propagated-inputs
7927      ;; libnm-gtk.pc refers to all these.
7928      `(("dbus-glib" ,dbus-glib)
7929        ("gtk+" ,gtk+)
7930        ("network-manager" ,network-manager)
7931        ;; nm-applet need by org.gnome.nm-applet.gschema.xml
7932        ("libnma" ,libnma)))
7933     (inputs
7934      `(("gcr" ,gcr)
7935        ("libgudev" ,libgudev)
7936        ("libnotify" ,libnotify)
7937        ("libsecret" ,libsecret)
7938        ("libselinux" ,libselinux)
7939        ("jansson" ,jansson) ; for team support
7940        ("modem-manager" ,modem-manager)))
7941     (synopsis "Applet for managing network connections")
7942     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7943     (description
7944      "This package contains a systray applet for NetworkManager.  It displays
7945 the available networks and allows users to easily switch between them.")
7946     (license license:gpl2+)))
7947
7948 (define-public libxml++
7949   (package
7950     (name "libxml++")
7951     (version "3.0.1")
7952     (source (origin
7953               (method url-fetch)
7954               (uri (string-append "mirror://gnome/sources/" name "/"
7955                                   (version-major+minor version) "/"
7956                                   name "-" version ".tar.xz"))
7957               (sha256
7958                (base32
7959                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
7960     (build-system gnu-build-system)
7961     ;; libxml++-3.0.pc refers to all these.
7962     (propagated-inputs
7963      `(("libxml2" ,libxml2)
7964        ("glibmm" ,glibmm)))
7965     (native-inputs
7966      `(("perl" ,perl)
7967        ("pkg-config" ,pkg-config)))
7968     (home-page "http://libxmlplusplus.sourceforge.net/")
7969     (synopsis "C++ wrapper for XML parser library libxml2")
7970     (description
7971      "This package provides a C++ wrapper for the XML parser library
7972 libxml2.")
7973     (license license:lgpl2.1+)))
7974
7975 (define-public libxml++-2
7976   (package
7977     (inherit libxml++)
7978     (name "libxml++")
7979     (version "2.40.1")
7980     (source (origin
7981               (method url-fetch)
7982               (uri (string-append "mirror://gnome/sources/" name "/"
7983                                   (version-major+minor version) "/"
7984                                   name "-" version ".tar.xz"))
7985               (sha256
7986                (base32
7987                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
7988
7989 (define-public gdm
7990   (package
7991     (name "gdm")
7992     (version "3.34.1")
7993     (source (origin
7994               (method url-fetch)
7995               (uri (string-append "mirror://gnome/sources/" name "/"
7996                                   (version-major+minor version) "/"
7997                                   name "-" version ".tar.xz"))
7998               (sha256
7999                (base32
8000                 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
8001               (patches (search-patches "gdm-default-session.patch"))))
8002     (build-system glib-or-gtk-build-system)
8003     (arguments
8004      '(#:configure-flags
8005        `("--without-plymouth"
8006          "--disable-systemd-journal"
8007
8008          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8009          ;; instead of having to replace it (i.e., stopping the mingetty
8010          ;; service for TTY 1 before starting GDM).
8011          "--with-initial-vt=7"
8012
8013          ;; Use '/etc/environment' for locale settings instead of the
8014          ;; systemd-specific '/etc/locale.conf'.
8015          "--with-lang-file=/etc/environment"
8016
8017          ,(string-append "--with-udevdir="
8018                          (assoc-ref %outputs "out") "/lib/udev")
8019
8020          "--localstatedir=/var"
8021          ,(string-append "--with-default-path="
8022                          (string-join '("/run/setuid-programs"
8023                                         "/run/current-system/profile/bin"
8024                                         "/run/current-system/profile/sbin")
8025                                       ":"))
8026          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8027          ;; XDG_DATA_DIRS so that it finds its schemas.
8028          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
8029        #:phases
8030        (modify-phases %standard-phases
8031          (add-before
8032           'configure 'pre-configure
8033           (lambda* (#:key inputs outputs #:allow-other-keys)
8034             ;; We don't have <systemd/sd-daemon.h>.
8035             (substitute* '("common/gdm-log.c"
8036                            "daemon/gdm-server.c"
8037                            "daemon/gdm-session-worker.c"
8038                            "daemon/gdm-session-worker-job.c")
8039               (("#include <systemd/sd-daemon\\.h>") ""))
8040             ;; Use elogind for sd-login.
8041             (substitute* '("common/gdm-common.c"
8042                            "daemon/gdm-local-display-factory.c"
8043                            "daemon/gdm-manager.c"
8044                            "libgdm/gdm-user-switching.c")
8045               (("#include <systemd/sd-login\\.h>")
8046                "#include <elogind/sd-login.h>"))
8047             ;; Check for elogind.
8048             (substitute* '("configure")
8049               (("libsystemd")
8050                "libelogind"))
8051             ;; Look for system-installed sessions in
8052             ;; /run/current-system/profile/share.
8053             (substitute* '("libgdm/gdm-sessions.c"
8054                            "daemon/gdm-session.c"
8055                            "daemon/gdm-display.c"
8056                            "daemon/gdm-launch-environment.c")
8057               (("DATADIR \"/x")
8058                "\"/run/current-system/profile/share/x")
8059               (("DATADIR \"/wayland")
8060                "\"/run/current-system/profile/share/wayland")
8061               (("DATADIR \"/gnome")
8062                "\"/run/current-system/profile/share/gnome"))
8063             (let ((propagate '("GDM_CUSTOM_CONF"
8064                                "GDM_DBUS_DAEMON"
8065                                "GDM_X_SERVER"
8066                                "GDM_X_SESSION"
8067                                ;; XXX: Remove this once GNOME Shell is
8068                                ;; a dependency of GDM.
8069                                "XDG_DATA_DIRS")))
8070               (substitute* "daemon/gdm-session.c"
8071                 (("set_up_session_environment \\(self\\);")
8072                  (apply string-append
8073                         "set_up_session_environment (self);\n"
8074                         (map (lambda (name)
8075                                (string-append
8076                                 "gdm_session_set_environment_variable "
8077                                 "(self, \"" name "\","
8078                                 "g_getenv (\"" name "\"));\n"))
8079                              propagate)))))
8080             ;; Find the configuration file using an environment variable.
8081             (substitute* '("common/gdm-settings.c")
8082               (("GDM_CUSTOM_CONF")
8083                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8084                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8085                               " : GDM_CUSTOM_CONF)")))
8086             ;; Use service-supplied path to X.
8087             (substitute* '("daemon/gdm-server.c")
8088               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8089                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8090             (substitute* '("daemon/gdm-wayland-session.c"
8091                            "daemon/gdm-x-session.c")
8092               (("\"dbus-daemon\"")
8093                "g_getenv (\"GDM_DBUS_DAEMON\")")
8094               (("X_SERVER")
8095                "g_getenv (\"GDM_X_SERVER\")")
8096               (("GDMCONFDIR \"/Xsession\"")
8097                "g_getenv (\"GDM_X_SESSION\")"))
8098             ;; Use an absolute path for GNOME Session.
8099             (substitute* "daemon/gdm-launch-environment.c"
8100               (("\"gnome-session\"")
8101                (string-append "\"" (assoc-ref inputs "gnome-session")
8102                               "/bin/gnome-session\"")))
8103             ;; Do not automatically select the placeholder session.
8104             (substitute* "daemon/gdm-session.c"
8105               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8106                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8107                               "(g_strcmp0(search_dirs[i], \""
8108                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8109                               "\") == 0 && "
8110                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8111               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8112                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
8113             #t))
8114          ;; GDM requires that there be at least one desktop entry
8115          ;; file.  This phase installs a hidden one that simply
8116          ;; fails.  This enables users to use GDM with a
8117          ;; '~/.xsession' script with no other desktop entry files.
8118          ;; See <https://bugs.gnu.org/35068>.
8119          (add-after 'install 'install-placeholder-desktop-entry
8120            (lambda* (#:key inputs outputs #:allow-other-keys)
8121              (let* ((out (assoc-ref outputs "out"))
8122                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8123                     (fail (string-append sessions "/fail.desktop")))
8124                (mkdir-p sessions)
8125                (with-output-to-file fail
8126                  (lambda ()
8127                    (for-each
8128                     display
8129                     '("[Desktop Entry]\n"
8130                       "Encoding=UTF-8\n"
8131                       "Type=Application\n"
8132                       "Name=Fail\n"
8133                       "Comment=This session fails immediately.\n"
8134                       "NoDisplay=true\n"
8135                       "Exec=false\n"))))
8136                #t)))
8137          ;; GDM needs GNOME Session to run these applications.  We link
8138          ;; their autostart files in `share/gdm/greeter/autostart'
8139          ;; because GDM explicitly tells GNOME Session to look there.
8140          ;;
8141          ;; XXX: GNOME Shell should be linked here too, but currently
8142          ;; GNOME Shell depends on GDM.
8143          (add-after 'install 'link-autostart-files
8144            (lambda* (#:key inputs outputs #:allow-other-keys)
8145              (let* ((out (assoc-ref outputs "out"))
8146                     (autostart (string-append out "/share/gdm/"
8147                                               "greeter/autostart"))
8148                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8149                (mkdir-p autostart)
8150                (with-directory-excursion autostart
8151                  (for-each (lambda (desktop)
8152                              (symlink desktop (basename desktop)))
8153                            (find-files (string-append settings "/etc/xdg"))))
8154                #t))))))
8155     (native-inputs
8156      `(("dconf" ,dconf)
8157        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8158        ("gobject-introspection" ,gobject-introspection)
8159        ("intltool" ,intltool)
8160        ("itstool" ,itstool)
8161        ("pkg-config" ,pkg-config)
8162        ("xmllint" ,libxml2)))
8163     (inputs
8164      `(("accountsservice" ,accountsservice)
8165        ("check" ,check-0.14)            ;for testing
8166        ("elogind" ,elogind)
8167        ("gnome-session" ,gnome-session)
8168        ("gnome-settings-daemon" ,gnome-settings-daemon)
8169        ("gtk+" ,gtk+)
8170        ("iso-codes" ,iso-codes)
8171        ("libcanberra" ,libcanberra)
8172        ("linux-pam" ,linux-pam)))
8173     (synopsis "Display manager for GNOME")
8174     (home-page "https://wiki.gnome.org/Projects/GDM/")
8175     (description
8176      "GNOME Display Manager is a system service that is responsible for
8177 providing graphical log-ins and managing local and remote displays.")
8178     (license license:gpl2+)))
8179
8180 (define-public libgtop
8181   (package
8182     (name "libgtop")
8183     (version "2.40.0")
8184     (source (origin
8185               (method url-fetch)
8186               (uri (string-append "mirror://gnome/sources/libgtop/"
8187                                   (version-major+minor version) "/"
8188                                   "libgtop-" version ".tar.xz"))
8189               (sha256
8190                (base32
8191                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8192     (build-system gnu-build-system)
8193     (native-inputs
8194      `(("gobject-introspection" ,gobject-introspection)
8195        ("intltool" ,intltool)
8196        ("perl" ,perl)
8197        ("pkg-config" ,pkg-config)))
8198     (propagated-inputs
8199      `(("glib" ,glib))) ; required by libgtop-2.0.pc
8200     (synopsis "Portable system access library")
8201     (home-page "https://www.gnome.org/")
8202     (description
8203      "LibGTop is a library to get system specific data such as CPU and memory
8204 usage and information about running processes.")
8205     (license license:gpl2+)))
8206
8207 (define-public gnome-bluetooth
8208   (package
8209     (name "gnome-bluetooth")
8210     (version "3.34.2")
8211     (source (origin
8212               (method url-fetch)
8213               (uri (string-append "mirror://gnome/sources/" name "/"
8214                                   (version-major+minor version) "/"
8215                                   name "-" version ".tar.xz"))
8216               (sha256
8217                (base32
8218                 "0lmjvb49vgr4jjplrisv6pi29jsn1q42715i6c5a0p9ad3gawyyv"))))
8219     (build-system meson-build-system)
8220     (native-inputs
8221      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8222        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8223        ("gobject-introspection" ,gobject-introspection)
8224        ("intltool" ,intltool)
8225        ("pkg-config" ,pkg-config)
8226        ("xmllint" ,libxml2)))
8227     (propagated-inputs
8228      ;; gnome-bluetooth-1.0.pc refers to all these.
8229      `(("glib" ,glib)
8230        ("gtk+" ,gtk+)))
8231     (inputs
8232      `(("eudev" ,eudev)
8233        ("libcanberra" ,libcanberra)
8234        ("libnotify" ,libnotify)))
8235     (synopsis "GNOME Bluetooth subsystem")
8236     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8237     (description
8238      "This package contains tools for managing and manipulating Bluetooth
8239 devices using the GNOME desktop.")
8240     (license license:lgpl2.1+)))
8241
8242 (define-public gnome-control-center
8243   (package
8244     (name "gnome-control-center")
8245     (version "3.34.2")
8246     (source (origin
8247               (method url-fetch)
8248               (uri (string-append "mirror://gnome/sources/" name "/"
8249                                   (version-major+minor version) "/"
8250                                   name "-" version ".tar.xz"))
8251               (sha256
8252                (base32
8253                 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
8254     (build-system meson-build-system)
8255     (arguments
8256      '(#:glib-or-gtk? #t
8257        #:configure-flags
8258        (list "-Dcheese=false"
8259              (string-append "-Dgnome_session_libexecdir="
8260                             (assoc-ref %build-inputs "gnome-session")
8261                             "/libexec"))
8262        #:phases
8263        (modify-phases %standard-phases
8264          (add-before 'configure 'patch-paths
8265            (lambda* (#:key inputs #:allow-other-keys)
8266              (let ((libc   (assoc-ref inputs "libc"))
8267                    (tzdata (assoc-ref inputs "tzdata"))
8268                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8269                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8270                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8271                (substitute* "panels/datetime/tz.h"
8272                  (("/usr/share/zoneinfo/zone.tab")
8273                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8274                (substitute* "tests/datetime/test-endianess.c"
8275                  (("/usr/share/locale")
8276                   (string-append libc "/share/locale")))
8277                (substitute* "panels/region/cc-region-panel.c"
8278                  (("\"gkbd-keyboard-display")
8279                   (string-append "\"" libgnomekbd
8280                                  "/bin/gkbd-keyboard-display")))
8281                (substitute* '("panels/network/net-device-wifi.c"
8282                               "panels/network/net-device.c"
8283                               "panels/network/connection-editor/net-connection-editor.c")
8284                  (("\"nm-connection-editor")
8285                   (string-append "\"" nm-applet
8286                                  "/bin/nm-connection-editor")))
8287                (substitute* '("panels/user-accounts/run-passwd.c")
8288                  (("/usr/bin/passwd")
8289                   "/run/setuid-programs/passwd"))
8290                (substitute* "panels/info/cc-info-overview-panel.c"
8291                  (("DATADIR \"/gnome/gnome-version.xml\"")
8292                   (string-append "\"" gnome-desktop
8293                                  "/share/gnome/gnome-version.xml\"")))
8294                #t)))
8295          (add-after 'unpack 'skip-gtk-update-icon-cache
8296            ;; Don't create 'icon-theme.cache'.
8297            (lambda _
8298              (substitute* "build-aux/meson/meson_post_install.py"
8299                (("gtk-update-icon-cache") (which "true")))
8300              #t)))))
8301     (native-inputs
8302      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8303        ("intltool" ,intltool)
8304        ("pkg-config" ,pkg-config)
8305        ("xsltproc" ,libxslt)
8306        ;; For tests
8307        ("hicolor-icon-theme" ,hicolor-icon-theme)
8308        ("python-dbusmock" ,python-dbusmock)
8309        ("xorg-server" ,xorg-server-for-tests)))
8310     (inputs
8311      `(("accountsservice" ,accountsservice)
8312        ("clutter-gtk" ,clutter-gtk)
8313        ("colord-gtk" ,colord-gtk)
8314        ("cups" ,cups)
8315        ("dconf" ,dconf)
8316        ("docbook-xsl" ,docbook-xsl)
8317        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8318        ("gnome-bluetooth" ,gnome-bluetooth)
8319        ("gnome-desktop" ,gnome-desktop)
8320        ("gnome-online-accounts" ,gnome-online-accounts)
8321        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8322        ("gnome-session" ,gnome-session)
8323        ("gnome-settings-daemon" ,gnome-settings-daemon)
8324        ("grilo" ,grilo)
8325        ("gsound" ,gsound)
8326        ("ibus" ,ibus)
8327        ("libcanberra" ,libcanberra)
8328        ("libgnomekbd" ,libgnomekbd)
8329        ("libgudev" ,libgudev)
8330        ("libgtop" ,libgtop)
8331        ("libnma" ,libnma)
8332        ("libpwquality" ,libpwquality)
8333        ("libsecret" ,libsecret)
8334        ("libsoup" ,libsoup)
8335        ("libxml2" ,libxml2)
8336        ("libwacom" ,libwacom)
8337        ("mesa" ,mesa)
8338        ("mit-krb5" ,mit-krb5)
8339        ("modem-manager" ,modem-manager)
8340        ("network-manager-applet" ,network-manager-applet)
8341        ("polkit" ,polkit)
8342        ("pulseaudio" ,pulseaudio)
8343        ("smbclient" ,samba)
8344        ("tzdata" ,tzdata)
8345        ("udisks" ,udisks)
8346        ("upower" ,upower)))
8347     (synopsis "Utilities to configure the GNOME desktop")
8348     (home-page "https://www.gnome.org/")
8349     (description
8350      "This package contains configuration applets for the GNOME desktop,
8351 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8352 properties, sound setup, desktop theme and background, user interface
8353 properties, screen resolution, and other GNOME parameters.")
8354     (license license:gpl2+)))
8355
8356 (define-public gnome-shell
8357   (package
8358     (name "gnome-shell")
8359     (version "3.34.2")
8360     (source (origin
8361               (method url-fetch)
8362               (uri (string-append "mirror://gnome/sources/" name "/"
8363                                   (version-major+minor version) "/"
8364                                   name "-" version ".tar.xz"))
8365               (sha256
8366                (base32
8367                 "0k9vq2gh1nhdd6fpp7jnwx37qxaakawiqw1xnlfjvq5g5zdn8ckh"))
8368               (patches (search-patches "gnome-shell-theme.patch"
8369                                        "gnome-shell-disable-test.patch"))
8370               (modules '((guix build utils)))
8371               (snippet
8372                #~(begin
8373                    ;; Copy images for use on the GDM log-in screen.
8374                    (copy-file #$(file-append %artwork-repository
8375                                              "/slim/0.x/background.png")
8376                               "data/theme/guix-background.png")
8377                    (copy-file #$(file-append %artwork-repository
8378                                              "/logo/Guix-horizontal-white.svg")
8379                               "data/theme/guix-logo.svg")
8380                    #t))))
8381     (build-system meson-build-system)
8382     (arguments
8383      `(#:glib-or-gtk? #t
8384        #:disallowed-references ((,glib "bin")
8385                                 ,inkscape ,libxslt
8386                                 ,ruby-sass)
8387        #:configure-flags
8388        (list "-Dsystemd=false"
8389              ;; Otherwise, the RUNPATH will lack the final path component.
8390              (string-append "-Dc_link_args=-Wl,-rpath="
8391                             (assoc-ref %outputs "out")
8392                             "/lib/gnome-shell"))
8393
8394        #:modules ((guix build meson-build-system)
8395                   (guix build utils)
8396                   (srfi srfi-1))
8397
8398        #:phases
8399        (modify-phases %standard-phases
8400          (add-after 'unpack 'fix-keysdir
8401            (lambda* (#:key outputs #:allow-other-keys)
8402              (let* ((out     (assoc-ref outputs "out"))
8403                     (keysdir (string-append
8404                               out "/share/gnome-control-center/keybindings")))
8405                (substitute* "meson.build"
8406                  (("keysdir =.*")
8407                   (string-append "keysdir = '" keysdir "'\n")))
8408                #t)))
8409          (add-before 'configure 'convert-logo-to-png
8410            (lambda* (#:key inputs #:allow-other-keys)
8411              ;; Convert the logo from SVG to PNG.
8412              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
8413                      "data/theme/guix-logo.svg")))
8414          (add-before 'configure 'record-absolute-file-names
8415            (lambda* (#:key inputs #:allow-other-keys)
8416              (substitute* "js/misc/ibusManager.js"
8417                (("'ibus-daemon'")
8418                 (string-append "'" (assoc-ref inputs "ibus")
8419                                "/bin/ibus-daemon'")))
8420              (substitute* "js/ui/status/keyboard.js"
8421                (("'gkbd-keyboard-display'")
8422                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8423                                "/bin/gkbd-keyboard-display'")))
8424              #t))
8425          (add-before 'check 'pre-check
8426            (lambda* (#:key inputs #:allow-other-keys)
8427              ;; Tests require a running X server.
8428              (system "Xvfb :1 &")
8429              (setenv "DISPLAY" ":1")
8430              #t))
8431          (add-after 'install 'wrap-programs
8432            (lambda* (#:key inputs outputs #:allow-other-keys)
8433              (let ((out              (assoc-ref outputs "out"))
8434                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8435                    (python-path      (getenv "PYTHONPATH")))
8436                (wrap-program (string-append out "/bin/gnome-shell")
8437                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8438                  ;; FIXME: gnome-shell loads these libraries with unqualified
8439                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
8440                  ;; alternative might be to patch gnome-shell.
8441                  `("LD_LIBRARY_PATH" ":" prefix
8442                    ,(map (lambda (pkg)
8443                            (string-append (assoc-ref inputs pkg) "/lib"))
8444                          '("gdk-pixbuf"
8445                            "gnome-bluetooth" "librsvg" "libgweather"))))
8446                (for-each
8447                 (lambda (prog)
8448                   (wrap-program (string-append out "/bin/" prog)
8449                     `("PYTHONPATH"      ":" prefix (,python-path))
8450                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8451                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
8452                #t)))
8453          (replace 'glib-or-gtk-wrap
8454            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8455              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8456                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
8457                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8458                ;; phase.  Fix that since we don't need these.
8459                (wrap #:inputs (fold alist-delete inputs
8460                                     '("inkscape" "intltool" "glib:bin"))
8461                      #:outputs outputs)))))))
8462     (native-inputs
8463      `(("asciidoc" ,asciidoc)
8464        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8465        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8466        ("gobject-introspection" ,gobject-introspection)
8467        ("inkscape" ,inkscape)
8468        ("intltool" ,intltool)
8469        ("pkg-config" ,pkg-config)
8470        ("python" ,python)
8471        ("ruby-sass" ,ruby-sass)
8472        ("sassc" ,sassc)
8473        ("xsltproc" ,libxslt)
8474        ;; For tests
8475        ("xorg-server" ,xorg-server-for-tests)))
8476     (inputs
8477      `(("accountsservice" ,accountsservice)
8478        ("caribou" ,caribou)
8479        ("docbook-xsl" ,docbook-xsl)
8480        ("evolution-data-server" ,evolution-data-server)
8481        ("gcr" ,gcr)
8482        ("gdm" ,gdm)
8483        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8484        ("gjs" ,gjs)
8485        ("gnome-autoar" ,gnome-autoar)
8486        ("gnome-bluetooth" ,gnome-bluetooth)
8487        ("gnome-desktop" ,gnome-desktop)
8488        ("gnome-settings-daemon" ,gnome-settings-daemon)
8489        ("gst-plugins-base" ,gst-plugins-base)
8490        ("ibus" ,ibus)
8491        ("libcanberra" ,libcanberra)
8492        ("libcroco" ,libcroco)
8493        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
8494        ("libgweather" ,libgweather)
8495        ("libnma" ,libnma)
8496        ("libsoup" ,libsoup)
8497        ("mesa-headers" ,mesa-headers)
8498        ("mutter" ,mutter)
8499        ("network-manager-applet" ,network-manager-applet)
8500        ("polkit" ,polkit)
8501        ("pulseaudio" ,pulseaudio)
8502        ("python-pygobject" ,python-pygobject)
8503        ("startup-notification" ,startup-notification)
8504        ("telepathy-logger" ,telepathy-logger)
8505        ("upower" ,upower)
8506        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8507        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8508        ("librsvg" ,librsvg)
8509        ("geoclue" ,geoclue)))
8510     (synopsis "Desktop shell for GNOME")
8511     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8512     (description
8513      "GNOME Shell provides core user interface functions for the GNOME desktop,
8514 like switching to windows and launching applications.")
8515     (license license:gpl2+)))
8516
8517 (define-public gtk-vnc
8518   (package
8519     (name "gtk-vnc")
8520     (version "1.0.0")
8521     (source
8522      (origin
8523        (method url-fetch)
8524        (uri
8525         (string-append "mirror://gnome/sources/" name "/"
8526                        (version-major+minor version) "/"
8527                        name "-" version ".tar.xz"))
8528        (sha256
8529         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8530     (build-system meson-build-system)
8531     (arguments
8532      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8533     (native-inputs
8534      `(("gjs" ,gjs)
8535        ("glib:bin" ,glib "bin")
8536        ("gobject-introspection" ,gobject-introspection)
8537        ("intltool" ,intltool)
8538        ("node" ,node)
8539        ("perl" ,perl)
8540        ("pkg-config" ,pkg-config)
8541        ("python" ,python-wrapper)
8542        ("vala" ,vala)))
8543     (inputs
8544      `(("cairo" ,cairo)
8545        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8546        ("glib" ,glib)
8547        ("gnutls" ,gnutls)
8548        ("libgcrypt" ,libgcrypt)
8549        ("libsasl" ,cyrus-sasl)
8550        ("pulseaudio" ,pulseaudio)
8551        ("x11" ,libx11)
8552        ("zlib" ,zlib)))
8553     (propagated-inputs
8554      `(("gtk+" ,gtk+)))
8555     (synopsis "VNC client viewer widget for GTK+")
8556     (description "GTK-VNC is a project providing client side APIs for the RFB
8557 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8558 it to be completely asynchronous while remaining single threaded.  It provides a
8559 core C library, and bindings for Python (PyGTK).")
8560     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8561     (license license:lgpl2.1+)))
8562
8563 (define-public gnome-autoar
8564   (package
8565     (name "gnome-autoar")
8566     (version "0.2.4")
8567     (source (origin
8568               (method url-fetch)
8569               (uri (string-append "mirror://gnome/sources/" name "/"
8570                                   (version-major+minor version) "/"
8571                                   name "-" version ".tar.xz"))
8572               (sha256
8573                (base32
8574                 "0yk56ch46n3wfy633mq31kif9n7v06rlij4vqbsbn6l4z1vw6d0a"))))
8575     (build-system glib-or-gtk-build-system)
8576     (native-inputs
8577      `(("gobject-introspection" ,gobject-introspection)
8578        ("pkg-config" ,pkg-config)))
8579     (propagated-inputs
8580      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
8581     (inputs
8582      `(("gtk+" ,gtk+)))
8583     (synopsis "Archives integration support for GNOME")
8584     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8585     (description
8586      "GNOME Autoar is a library which makes creating and extracting archives
8587 easy, safe, and automatic.")
8588     (license license:lgpl2.1+)))
8589
8590 (define-public tracker
8591   (package
8592     (name "tracker")
8593     (version "2.3.5")
8594     (source (origin
8595               (method url-fetch)
8596               (uri (string-append "mirror://gnome/sources/tracker/"
8597                                   (version-major+minor version) "/"
8598                                   "tracker-" version ".tar.xz"))
8599               (sha256
8600                (base32
8601                 "1ixxyqjlv7pnl4j8g6b72fkbjvzfspza8y71ppkncry8i6xkr223"))))
8602     (build-system meson-build-system)
8603     (arguments
8604      `(#:glib-or-gtk? #t
8605        #:configure-flags
8606        ;; Otherwise, the RUNPATH will lack the final path component.
8607        (list (string-append "-Dc_link_args=-Wl,-rpath="
8608                             (assoc-ref %outputs "out") "/lib:"
8609                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
8610        #:phases
8611        (modify-phases %standard-phases
8612          (add-before 'check 'pre-check
8613            (lambda _
8614              ;; Some tests expect to write to $HOME.
8615              (setenv "HOME" "/tmp")
8616              #t)))))
8617     (native-inputs
8618      `(("glib:bin" ,glib "bin")
8619        ("gobject-introspection" ,gobject-introspection)
8620        ("python-pygobject" ,python-pygobject)
8621        ("intltool" ,intltool)
8622        ("pkg-config" ,pkg-config)
8623        ("vala" ,vala)))
8624     (inputs
8625      `(("dbus" ,dbus)
8626        ("sqlite" ,sqlite)
8627        ("libxml2" ,libxml2)
8628        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
8629        ("json-glib" ,json-glib)
8630        ("libsoup" ,libsoup)))
8631     (synopsis "Metadata database, indexer and search tool")
8632     (home-page "https://wiki.gnome.org/Projects/Tracker")
8633     (description
8634      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8635
8636 It is a middleware component aimed at desktop application developers who want
8637 their apps to browse and search user content.  It's not designed to be used
8638 directly by desktop users, but it provides a commandline tool named
8639 @command{tracker} for the adventurous.
8640
8641 Tracker allows your application to instantly perform full-text searches across
8642 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
8643 example.  This is achieved by indexing the user's home directory in the
8644 background.
8645
8646 Tracker also allows your application to query and list content that the user
8647 has stored.  For example, GNOME Music displays all the music files that are
8648 found by Tracker.  This means that GNOME Music doesn't need to maintain a
8649 database of its own.
8650
8651 If you need to go beyond simple searches, Tracker is also a linked data
8652 endpoint and it understands SPARQL. ")
8653     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
8654     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8655     ;; libstemmer is bsd-3 and the rest is gpl2+.
8656     (license (list license:gpl2+
8657                    license:bsd-3
8658                    license:lgpl2.1+))))
8659
8660 (define-public tracker-miners
8661   (package
8662     (name "tracker-miners")
8663     (version "2.3.4")
8664     (source (origin
8665               (method url-fetch)
8666               (uri (string-append "mirror://gnome/sources/tracker-miners/"
8667                                   (version-major+minor version)
8668                                   "/tracker-miners-" version ".tar.xz"))
8669               (sha256
8670                (base32
8671                 "10wy8d8ski52k809p7s6lbw72qmg05bbmhnl00vx4qrbzqyxvc0b"))))
8672     (build-system meson-build-system)
8673     (arguments
8674      `(#:glib-or-gtk? #t
8675        #:configure-flags
8676        (list "-Dminer_rss=false" ; libgrss is required.
8677              ;; Ensure the RUNPATH contains all installed library locations.
8678              (string-append "-Dc_link_args=-Wl,-rpath="
8679                             (assoc-ref %outputs "out")
8680                             "/lib/tracker-miners-2.0")
8681              ;; TODO: Enable functional tests. Currently, the following error
8682              ;; appears:
8683              ;; Exception: The functional tests require DConf to be the default
8684              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8685              "-Dfunctional_tests=false")))
8686     (native-inputs
8687      `(("dbus" ,dbus)
8688        ("intltool" ,intltool)
8689        ("glib:bin" ,glib "bin")
8690        ("gobject-introspection" ,gobject-introspection)
8691        ("pkg-config" ,pkg-config)
8692        ("python-pygobject" ,python-pygobject)))
8693     (inputs
8694      `(("exempi" ,exempi)
8695        ("ffmpeg" ,ffmpeg)
8696        ("flac" ,flac)
8697        ("giflib" ,giflib)
8698        ("glib" ,glib)
8699        ("gstreamer" ,gstreamer)
8700        ("icu4c" ,icu4c)
8701        ("libcue" ,libcue)
8702        ("libexif" ,libexif)
8703        ("libgsf" ,libgsf)
8704        ("libgxps" ,libgxps)
8705        ("libiptcdata" ,libiptcdata)
8706        ("libjpeg" ,libjpeg-turbo)
8707        ("libosinfo" ,libosinfo)
8708        ("libpng" ,libpng)
8709        ("libseccomp" ,libseccomp)
8710        ("libtiff" ,libtiff)
8711        ("libvorbis" ,libvorbis)
8712        ("libxml2" ,libxml2)
8713        ("poppler" ,poppler)
8714        ("taglib" ,taglib)
8715        ("totem-pl-parser" ,totem-pl-parser)
8716        ("tracker" ,tracker)
8717        ("upower" ,upower)
8718        ("zlib" ,zlib)))
8719     (synopsis "Metadata database, indexer and search tool")
8720     (home-page "https://wiki.gnome.org/Projects/Tracker")
8721     (description
8722      "Tracker is an advanced framework for first class objects with associated
8723 metadata and tags.  It provides a one stop solution for all metadata, tags,
8724 shared object databases, search tools and indexing.")
8725     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8726     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
8727     (license (list license:gpl2+
8728                    license:lgpl2.1+
8729                    license:lgpl2.0+))))
8730
8731 (define-public nautilus
8732   (package
8733     (name "nautilus")
8734     (version "3.34.2")
8735     (source (origin
8736               (method url-fetch)
8737               (uri (string-append "mirror://gnome/sources/" name "/"
8738                                   (version-major+minor version) "/"
8739                                   name "-" version ".tar.xz"))
8740               (sha256
8741                (base32
8742                 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
8743     (build-system meson-build-system)
8744     (arguments
8745      '(#:glib-or-gtk? #t
8746        #:phases
8747        (modify-phases %standard-phases
8748          (add-after 'unpack 'skip-gtk-update-icon-cache
8749            ;; Don't create 'icon-theme.cache'.
8750            (lambda _
8751              (substitute* "build-aux/meson/postinstall.py"
8752                (("gtk-update-icon-cache") "true"))
8753              #t)))
8754        ;; XXX: FAIL: check-nautilus
8755        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
8756        #:tests? #f))
8757     (native-inputs
8758      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8759        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
8760        ("gobject-introspection" ,gobject-introspection)
8761        ("intltool" ,intltool)
8762        ("pkg-config" ,pkg-config)))
8763     (inputs
8764      `(("dconf" ,dconf)
8765        ("gexiv2" ,gexiv2)
8766        ("gvfs" ,gvfs)
8767        ("exempi" ,exempi)
8768        ("gnome-desktop" ,gnome-desktop)
8769        ("gnome-autoar" ,gnome-autoar)
8770        ("gst-plugins-base" ,gst-plugins-base)
8771        ("libseccomp" ,libseccomp)
8772        ("libselinux" ,libselinux)
8773        ("tracker" ,tracker)
8774        ("tracker-miners" ,tracker-miners)
8775        ;; XXX: gtk+ is required by libnautilus-extension.pc
8776        ;;
8777        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
8778        ;; package.  See:
8779        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
8780        ("gtk+" ,gtk+)
8781        ("libexif" ,libexif)
8782        ("libxml2" ,libxml2)))
8783     (synopsis "File manager for GNOME")
8784     (home-page "https://wiki.gnome.org/Apps/Nautilus")
8785     (description
8786      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
8787 design and behaviour, giving the user a simple way to navigate and manage its
8788 files.")
8789     (license license:gpl2+)))
8790
8791 (define-public baobab
8792   (package
8793     (name "baobab")
8794     (version "3.38.0")
8795     (source (origin
8796               (method url-fetch)
8797               (uri (string-append
8798                     "mirror://gnome/sources/" name "/"
8799                     (version-major+minor version) "/"
8800                     name "-" version ".tar.xz"))
8801               (sha256
8802                (base32
8803                 "0ac3fbl15l836yvgw724q4whbkws9v4b6l2xy6bnp0b0g0a6i104"))))
8804     (build-system meson-build-system)
8805     (arguments
8806      '(#:glib-or-gtk? #t))
8807     (native-inputs
8808      `(("intltool" ,intltool)
8809        ("pkg-config" ,pkg-config)
8810        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8811        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8812        ("itstool" ,itstool)
8813        ("xmllint" ,libxml2)
8814        ("glib" ,glib "bin")
8815        ("vala" ,vala)))
8816     (inputs
8817      `(("gtk+" ,gtk+)))
8818     (synopsis "Disk usage analyzer for GNOME")
8819     (description
8820      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
8821 usage in the GNOME desktop environment.  It can easily scan device volumes or
8822 a specific user-requested directory branch (local or remote).  Once the scan
8823 is complete it provides a graphical representation of each selected folder.")
8824     (home-page "https://wiki.gnome.org/Apps/Baobab")
8825     (license license:gpl2+)))
8826
8827 (define-public gnome-backgrounds
8828   (package
8829     (name "gnome-backgrounds")
8830     (version "3.34.0")
8831     (source
8832      (origin
8833        (method url-fetch)
8834        (uri (string-append "mirror://gnome/sources/" name "/"
8835                            (version-major+minor version) "/"
8836                            name "-" version ".tar.xz"))
8837        (sha256
8838         (base32
8839          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
8840     (build-system meson-build-system)
8841     (native-inputs
8842      `(("intltool" ,intltool)))
8843     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
8844     (synopsis "Background images for the GNOME desktop")
8845     (description
8846      "GNOME backgrounds package contains a collection of graphics files which
8847 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
8848 the package creates the proper framework and directory structure so that you
8849 can add your own files to the collection.")
8850     (license (list license:gpl2+
8851                    license:cc-by2.0
8852                    license:cc-by-sa2.0
8853                    license:cc-by-sa3.0))))
8854
8855 (define-public gnome-screenshot
8856   (package
8857     (name "gnome-screenshot")
8858     (version "3.34.0")
8859     (source
8860      (origin
8861        (method url-fetch)
8862        (uri (string-append "mirror://gnome/sources/" name "/"
8863                            (version-major+minor version) "/"
8864                            name "-" version ".tar.xz"))
8865        (sha256
8866         (base32
8867          "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
8868     (build-system meson-build-system)
8869     (arguments
8870      '(#:phases
8871        (modify-phases %standard-phases
8872          (add-after 'unpack 'skip-gtk-update-icon-cache
8873            ;; Don't create 'icon-theme.cache'.
8874            (lambda _
8875              (substitute* "build-aux/postinstall.py"
8876                (("gtk-update-icon-cache") "true"))
8877              #t)))))
8878     (native-inputs
8879      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8880        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8881        ("intltool" ,intltool)
8882        ("appstream-glib" ,appstream-glib)
8883        ("pkg-config" ,pkg-config)))
8884     (inputs
8885      `(("gtk+" ,gtk+)
8886        ("libcanberra" ,libcanberra)
8887        ("libx11" ,libx11)
8888        ("libxext" ,libxext)))
8889     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
8890     (synopsis "Take pictures of your screen")
8891     (description
8892      "GNOME Screenshot is a utility used for taking screenshots of the entire
8893 screen, a window or a user defined area of the screen, with optional
8894 beautifying border effects.")
8895     (license license:gpl2+)))
8896
8897 (define-public dconf-editor
8898   (package
8899     (name "dconf-editor")
8900     (version "3.34.2")
8901     (source
8902      (origin
8903        (method url-fetch)
8904        (uri (string-append "mirror://gnome/sources/" name "/"
8905                            (version-major+minor version) "/"
8906                            name "-" version ".tar.xz"))
8907        (sha256
8908         (base32
8909          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
8910     (build-system meson-build-system)
8911     (native-inputs
8912      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
8913        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8914        ("intltool" ,intltool)
8915        ("pkg-config" ,pkg-config)
8916        ("vala" ,vala)))
8917     (inputs
8918      `(("dconf" ,dconf)
8919        ("gtk+" ,gtk+)
8920        ("libxml2" ,libxml2)))
8921     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
8922     (synopsis "Graphical editor for GNOME's dconf configuration system")
8923     (description
8924      "Dconf-editor is a graphical tool for browsing and editing the dconf
8925 configuration system for GNOME.  It allows users to configure desktop
8926 software that do not provide their own configuration interface.")
8927     (license license:lgpl2.1+)))
8928
8929 (define-public gnome-default-applications
8930   (package
8931     (name "gnome-default-applications")
8932     (version "0")
8933     (build-system trivial-build-system)
8934     (source #f)
8935     (propagated-inputs
8936      `(("nautilus" ,nautilus)
8937        ("evince" ,evince)))
8938     (arguments
8939      `(#:modules ((guix build utils))
8940        #:builder
8941        (begin
8942          (use-modules (guix build utils))
8943          (let* ((out (assoc-ref %outputs "out"))
8944                 (apps (string-append out "/share/applications")))
8945            (mkdir-p apps)
8946            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
8947              (lambda (port)
8948                (format port "[Default Applications]\n")
8949                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
8950                (format port "application/pdf=evince.desktop\n")
8951                (format port "application/postscript=evince.desktop\n")))
8952            #t))))
8953     (synopsis "Default MIME type associations for the GNOME desktop")
8954     (description
8955      "Given many installed packages which might handle a given MIME type, a
8956 user running the GNOME desktop probably has some preferences: for example,
8957 that folders be opened by default by the Nautilus file manager, not the Baobab
8958 disk usage analyzer.  This package establishes that set of default MIME type
8959 associations for GNOME.")
8960     (license license:gpl3+)
8961     (home-page #f)))
8962
8963 (define-public libgovirt
8964   (package
8965    (name "libgovirt")
8966    (version "0.3.6")
8967    (source (origin
8968             (method url-fetch)
8969             (uri (string-append "mirror://gnome/sources/" name "/"
8970                                 (version-major+minor version) "/"
8971                                 name "-" version ".tar.xz"))
8972             (sha256
8973              (base32
8974               "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
8975    (build-system glib-or-gtk-build-system)
8976    (native-inputs
8977     `(("gettext" ,gettext-minimal)
8978       ("glib:bin" ,glib "bin")
8979       ("gobject-introspection" ,gobject-introspection)
8980       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8981       ("gtk+:bin" ,gtk+ "bin")
8982       ("pkg-config" ,pkg-config)))
8983    (inputs
8984     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
8985       ("librest" ,rest)))
8986    (synopsis "GoVirt Library")
8987    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
8988    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
8989    (license license:gpl2+)))
8990
8991 (define-public gnome-weather
8992   (package
8993    (name "gnome-weather")
8994    (version "3.34.0")
8995    (source (origin
8996             (method url-fetch)
8997             (uri (string-append "mirror://gnome/sources/" name "/"
8998                                 (version-major+minor version) "/"
8999                                 name "-" version ".tar.xz"))
9000             (sha256
9001              (base32
9002               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
9003    (build-system meson-build-system)
9004    (native-inputs
9005     `(("gettext" ,gettext-minimal)
9006       ("glib:bin" ,glib "bin")
9007       ("gobject-introspection" ,gobject-introspection)
9008       ("gtk+:bin" ,gtk+ "bin")
9009       ("pkg-config" ,pkg-config)))
9010    (inputs
9011     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
9012       ("appstream-glib" ,appstream-glib)
9013       ("geoclue" ,geoclue)
9014       ("gdk-pixbuf" ,gdk-pixbuf)
9015       ("gjs" ,gjs)
9016       ("gnome-desktop" ,gnome-desktop)
9017       ("libgweather" ,libgweather)))
9018    (arguments
9019     `(#:glib-or-gtk? #t
9020       #:phases
9021       (modify-phases %standard-phases
9022         (add-after 'install 'fix-desktop-file
9023           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
9024           ;; See https://issues.guix.gnu.org/issue/39324.
9025           (lambda* (#:key outputs #:allow-other-keys)
9026             (let* ((out (assoc-ref outputs "out"))
9027                    (applications (string-append out "/share/applications")))
9028               (substitute* (string-append applications "/org.gnome.Weather.desktop")
9029                 (("Exec=.*") "Exec=gnome-weather\n"))
9030               #t)))
9031         (add-after 'install 'wrap
9032           (lambda* (#:key inputs outputs #:allow-other-keys)
9033             (let ((out               (assoc-ref outputs "out"))
9034                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9035               ;; GNOME Weather needs the typelib files of GTK+, Pango etc at runtime.
9036               (wrap-program (string-append out "/bin/gnome-weather")
9037                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
9038               #t))))))
9039    (synopsis "Weather monitoring for GNOME desktop")
9040    (description "GNOME Weather is a small application that allows you to
9041 monitor the current weather conditions for your city, or anywhere in the
9042 world.")
9043    (home-page "https://wiki.gnome.org/Apps/Weather")
9044    (license license:gpl2+)))
9045
9046 (define-public gnome
9047   (package
9048     (name "gnome")
9049     (version (package-version gnome-shell))
9050     (source #f)
9051     (build-system trivial-build-system)
9052     (arguments '(#:builder (begin (mkdir %output) #t)))
9053     (propagated-inputs
9054      ;; TODO: Add or remove packages according to:
9055      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
9056      `(
9057      ;; GNOME-Core-OS-Services
9058        ("accountsservice" ,accountsservice)
9059        ("network-manager" ,network-manager)
9060        ("packagekit" ,packagekit)
9061        ("upower" ,upower)
9062      ;; GNOME-Core-Shell
9063        ("adwaita-icon-theme" ,adwaita-icon-theme)
9064        ("gdm" ,gdm)
9065        ("glib-networking" ,glib-networking)
9066        ("gnome-backgrounds" ,gnome-backgrounds)
9067        ("gnome-bluetooth" ,gnome-bluetooth)
9068        ("gnome-color-manager" ,gnome-color-manager)
9069        ("gnome-control-center" ,gnome-control-center)
9070        ("gnome-desktop" ,gnome-desktop)
9071        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
9072        ("gnome-initial-setup" ,gnome-initial-setup)
9073        ("gnome-keyring" ,gnome-keyring)
9074        ("gnome-menus" ,gnome-menus)
9075        ("gnome-session" ,gnome-session)
9076        ("gnome-settings-daemon" ,gnome-settings-daemon)
9077        ("gnome-shell-extensions" ,gnome-shell-extensions)
9078        ("gnome-shell" ,gnome-shell)
9079        ("gnome-themes-extra" ,gnome-themes-extra)
9080        ("gnome-user-docs" ,gnome-user-docs)
9081        ("gnome-user-share" ,gnome-user-share)
9082        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9083        ("gvfs" ,gvfs)
9084        ("mutter" ,mutter)
9085        ("orca" ,orca)
9086        ("rygel" ,rygel)
9087        ("sushi" ,sushi)
9088      ;; GNOME-Core-Utilities
9089        ("baobab" ,baobab)
9090        ("cheese" ,cheese)
9091        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9092        ;; only works on x86_64, so exclude it on other architectures.
9093        ,@(if (string-prefix? "x86_64" (%current-system))
9094              `(("eog" ,eog))
9095              '())
9096        ("epiphany" ,epiphany)
9097        ("evince" ,evince)
9098        ("file-roller" ,file-roller)
9099        ("gedit" ,gedit)
9100        ("gnome-boxes" ,gnome-boxes)
9101        ("gnome-calculator" ,gnome-calculator)
9102        ("gnome-calendar" ,gnome-calendar)
9103        ("gnome-characters" ,gnome-characters)
9104        ("gnome-clocks" ,gnome-clocks)
9105        ("gnome-contacts" ,gnome-contacts)
9106        ("gnome-disk-utility" ,gnome-disk-utility)
9107        ("gnome-font-viewer" ,gnome-font-viewer)
9108        ("gnome-maps" ,gnome-maps)
9109        ; TODO: ("gnome-music" ,gnome-music)
9110        ; TODO: ("gnome-photos" ,gnome-photos)
9111        ("gnome-screenshot" ,gnome-screenshot)
9112        ("gnome-system-monitor" ,gnome-system-monitor)
9113        ("gnome-terminal" ,gnome-terminal)
9114        ("gnome-weather" ,gnome-weather)
9115        ("nautilus" ,nautilus)
9116        ("simple-scan" ,simple-scan)
9117        ("totem" ,totem)
9118        ("yelp" ,yelp)
9119      ;; Others
9120        ("hicolor-icon-theme" ,hicolor-icon-theme)
9121        ("gnome-online-accounts" ,gnome-online-accounts)
9122
9123        ;; Packages not part of GNOME proper but that are needed for a good
9124        ;; experience.  See <https://bugs.gnu.org/39646>.
9125        ;; XXX: Find out exactly which ones are needed and why.
9126        ("font-cantarell"            ,font-cantarell)
9127        ("font-dejavu"               ,font-dejavu)
9128        ("at-spi2-core"              ,at-spi2-core)
9129        ("dbus"                      ,dbus)
9130        ("dconf"                     ,dconf)
9131        ("desktop-file-utils"        ,desktop-file-utils)
9132        ("gnome-default-applications" ,gnome-default-applications)
9133        ("gnome-themes-standard"     ,gnome-themes-standard)
9134        ("gst-plugins-base"          ,gst-plugins-base)
9135        ("gst-plugins-good"          ,gst-plugins-good)
9136        ("gucharmap"                 ,gucharmap)
9137        ("pinentry-gnome3"           ,pinentry-gnome3)
9138        ("pulseaudio"                ,pulseaudio)
9139        ("shared-mime-info"          ,shared-mime-info)
9140        ("system-config-printer"     ,system-config-printer)
9141        ("xdg-user-dirs"             ,xdg-user-dirs)
9142        ("yelp"                      ,yelp)
9143        ("zenity"                    ,zenity)))
9144     (synopsis "The GNU desktop environment")
9145     (home-page "https://www.gnome.org/")
9146     (description
9147      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9148 applications for browsing the web, editing text and images, creating
9149 documents and diagrams, playing media, scanning, and much more.")
9150     (license license:gpl2+)))
9151
9152 (define-public byzanz
9153   ;; The last stable release of Byzanz was in 2011, but there have been many
9154   ;; useful commits made to the Byzanz repository since then that it would be
9155   ;; silly to use such an old release.
9156   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9157     (package
9158       (name "byzanz")
9159       (version (string-append "0.2-1." (string-take commit 7)))
9160       (source (origin
9161                 (method git-fetch)
9162                 (uri (git-reference
9163                       (url "https://git.gnome.org/browse/byzanz")
9164                       (commit commit)))
9165                 (file-name (string-append name "-" version "-checkout"))
9166                 (sha256
9167                  (base32
9168                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9169       (build-system glib-or-gtk-build-system)
9170       (arguments
9171        '(#:phases
9172          (modify-phases %standard-phases
9173            (add-before 'bootstrap 'build-without-Werror
9174              (lambda _
9175                ;; The build system cleverly detects that we're not building from
9176                ;; a release tarball and turns on -Werror for GCC.
9177                ;; Unsurprisingly, there is a warning during compilation that
9178                ;; causes the build to fail unnecessarily, so we remove the flag.
9179                (substitute* '("configure.ac")
9180                  (("-Werror") ""))
9181                #t)))))
9182       (native-inputs
9183        `(("autoconf" ,autoconf)
9184          ("automake" ,automake)
9185          ("gnome-common" ,gnome-common)
9186          ("intltool" ,intltool)
9187          ("libtool" ,libtool)
9188          ("pkg-config" ,pkg-config)
9189          ("which" ,which)))
9190       (inputs
9191        `(("glib" ,glib)
9192          ("gstreamer" ,gstreamer)
9193          ("gst-plugins-base" ,gst-plugins-base)
9194          ("gtk+" ,gtk+)))
9195       (synopsis "Desktop recording program")
9196       (description "Byzanz is a simple desktop recording program with a
9197 command-line interface.  It can record part or all of an X display for a
9198 specified duration and save it as a GIF encoded animated image file.")
9199       (home-page "https://git.gnome.org/browse/byzanz")
9200       (license license:gpl2+))))
9201
9202 (define-public authenticator
9203   (package
9204     (name "authenticator")
9205     (version "3.32.2")
9206     (source
9207      (origin
9208        (method git-fetch)
9209        (uri (git-reference
9210              (url "https://gitlab.gnome.org/World/Authenticator")
9211              (commit version)))
9212        (file-name (git-file-name name version))
9213        (sha256
9214         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9215     (build-system meson-build-system)
9216     (arguments
9217      `(#:glib-or-gtk? #t
9218        #:phases
9219        (modify-phases %standard-phases
9220          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9221            (lambda* (#:key inputs outputs #:allow-other-keys)
9222              (let ((prog (string-append (assoc-ref outputs "out")
9223                                         "/bin/authenticator"))
9224                    (pylib (string-append (assoc-ref outputs "out")
9225                                          "/lib/python"
9226                                          ,(version-major+minor
9227                                            (package-version python))
9228                                          "/site-packages")))
9229                (wrap-program prog
9230                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
9231                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9232                #t))))))
9233     (native-inputs
9234      `(("desktop-file-utils" ,desktop-file-utils)
9235        ("gettext" ,gettext-minimal)
9236        ("glib:bin" ,glib "bin")
9237        ("gobject-introspection" ,gobject-introspection)
9238        ("gtk+:bin" ,gtk+ "bin")
9239        ("pkg-config" ,pkg-config)))
9240     (inputs
9241      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9242        ("gtk+" ,gtk+)
9243        ("libhandy" ,libhandy-0.0)
9244        ("libsecret" ,libsecret)
9245        ("python-beautifulsoup4" ,python-beautifulsoup4)
9246        ("python-pillow" ,python-pillow)
9247        ("python-pyfavicon" ,python-pyfavicon)
9248        ("python-pygobject" ,python-pygobject)
9249        ("python-pyotp" ,python-pyotp)
9250        ("python-pyzbar" ,python-pyzbar)
9251        ("yoyo-migrations" ,yoyo-migrations)
9252        ("zbar" ,zbar)))
9253     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9254     (synopsis "Two-factor authentication application built for GNOME")
9255     (description
9256      "Authenticator is a two-factor authentication (2FA) application built for
9257 the GNOME desktop environment.
9258
9259 Features:
9260
9261 @itemize
9262 @item QR code scanner
9263 @item Beautiful UI
9264 @item Huge database of more than 560 supported services
9265 @item Keep your PIN tokens secure by locking the application with a password
9266 @item Automatically fetch an image for services using their favicon
9267 @item The possibility to add new services
9268 @end itemize")
9269     (license license:gpl3+)))
9270
9271 (define-public gsound
9272   (package
9273     (name "gsound")
9274     (version "1.0.2")
9275     (source (origin
9276               (method url-fetch)
9277               (uri (string-append "mirror://gnome/sources/" name "/"
9278                                   (version-major+minor version) "/"
9279                                   name "-" version ".tar.xz"))
9280               (sha256
9281                (base32
9282                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
9283     (build-system glib-or-gtk-build-system)
9284     (native-inputs
9285      `(("pkg-config" ,pkg-config)
9286        ("gobject-introspection" ,gobject-introspection)
9287        ("vala" ,vala)))
9288     (inputs
9289      `(("glib" ,glib)
9290        ("libcanberra" ,libcanberra)))
9291     (home-page "https://wiki.gnome.org/Projects/GSound")
9292     (synopsis "GObject wrapper for libcanberra")
9293     (description
9294      "GSound is a small library for playing system sounds.  It's designed to be
9295 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9296 library.")
9297     (license license:lgpl2.1+)))
9298
9299 (define-public libzapojit
9300   (package
9301     (name "libzapojit")
9302     (version "0.0.3")
9303     (source (origin
9304               (method url-fetch)
9305               (uri (string-append "mirror://gnome/sources/" name "/"
9306                                   (version-major+minor version) "/"
9307                                   name "-" version ".tar.xz"))
9308               (sha256
9309                (base32
9310                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9311     (build-system gnu-build-system)
9312     (native-inputs
9313      `(("gobject-introspection" ,gobject-introspection)
9314        ("intltool" ,intltool)
9315        ("pkg-config" ,pkg-config)))
9316     (inputs
9317      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9318        ("json-glib" ,json-glib)
9319        ("rest" ,rest)))
9320     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9321     (synopsis "Library for accessing SkyDrive and Hotmail")
9322     (description
9323      "Libzapojit is a GLib-based library for accessing online service APIs of
9324 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9325     (license license:lgpl2.1+)))
9326
9327 (define-public gnome-clocks
9328   (package
9329     (name "gnome-clocks")
9330     (version "3.34.0")
9331     (source (origin
9332               (method url-fetch)
9333               (uri (string-append "mirror://gnome/sources/" name "/"
9334                                   (version-major+minor version) "/"
9335                                   name "-" version ".tar.xz"))
9336               (sha256
9337                (base32
9338                 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
9339     (build-system meson-build-system)
9340     (arguments
9341      '(#:glib-or-gtk? #t
9342        #:phases
9343        (modify-phases %standard-phases
9344          (add-after 'unpack 'skip-gtk-update-icon-cache
9345            ;; Don't create 'icon-theme.cache'.
9346            (lambda _
9347              (substitute* "build-aux/post-install.py"
9348                (("gtk-update-icon-cache") "true"))
9349              #t)))))
9350     (native-inputs
9351      `(("vala" ,vala)
9352        ("pkg-config" ,pkg-config)
9353        ("glib" ,glib "bin")             ; for glib-compile-resources
9354        ("desktop-file-utils" ,desktop-file-utils)
9355        ("gettext" ,gettext-minimal)
9356        ("itstool" ,itstool)))
9357     (inputs
9358      `(("glib" ,glib)
9359        ("gtk+" ,gtk+)
9360        ("gsound" ,gsound)
9361        ("geoclue" ,geoclue)
9362        ("geocode-glib" ,geocode-glib)
9363        ("libgweather" ,libgweather)
9364        ("gnome-desktop" ,gnome-desktop)))
9365     (home-page "https://wiki.gnome.org/Apps/Clocks")
9366     (synopsis "GNOME's clock application")
9367     (description
9368      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9369 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9370     (license license:gpl3+)))
9371
9372 (define-public gnome-calendar
9373   (package
9374     (name "gnome-calendar")
9375     (version "3.34.2")
9376     (source (origin
9377               (method url-fetch)
9378               (uri (string-append "mirror://gnome/sources/" name "/"
9379                                   (version-major+minor version) "/"
9380                                   name "-" version ".tar.xz"))
9381               (sha256
9382                (base32
9383                 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
9384     (build-system meson-build-system)
9385     (arguments
9386      '(#:glib-or-gtk? #t
9387        ;; gnome-calendar has to be installed before the tests can be run
9388        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9389        #:tests? #f
9390        #:phases
9391        (modify-phases %standard-phases
9392          (add-after 'unpack 'skip-gtk-update-icon-cache
9393            ;; Don't create 'icon-theme.cache'.
9394            (lambda _
9395              (substitute* "build-aux/meson/meson_post_install.py"
9396                (("gtk-update-icon-cache") "true"))
9397              #t)))))
9398     (native-inputs
9399      `(("gettext" ,gettext-minimal)
9400        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9401        ("pkg-config" ,pkg-config)))
9402     (inputs
9403      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9404        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9405        ("libdazzle" ,libdazzle)
9406        ("libedataserverui" ,evolution-data-server)
9407        ("libgweather" ,libgweather)
9408        ("geoclue" ,geoclue)))
9409     (propagated-inputs
9410      `(("evolution-data-server" ,evolution-data-server)))
9411     (home-page "https://wiki.gnome.org/Apps/Calendar")
9412     (synopsis "GNOME's calendar application")
9413     (description
9414      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9415 desktop.  It supports multiple calendars, month, week and year view.")
9416     (license license:gpl3+)))
9417
9418 (define-public gnome-todo
9419   (package
9420     (name "gnome-todo")
9421     (version "3.28.1")
9422     (source (origin
9423               (method url-fetch)
9424               (uri (string-append "mirror://gnome/sources/" name "/"
9425                                   (version-major+minor version) "/"
9426                                   name "-" version ".tar.xz"))
9427               (sha256
9428                (base32
9429                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))
9430               (patches
9431                (search-patches "gnome-todo-delete-esource-duplicate.patch"))))
9432     (build-system meson-build-system)
9433     (arguments
9434      '(#:glib-or-gtk? #t
9435        #:phases (modify-phases %standard-phases
9436                   (add-after
9437                       'install 'wrap-gnome-todo
9438                     (lambda* (#:key inputs outputs #:allow-other-keys)
9439                       (let ((out               (assoc-ref outputs "out"))
9440                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9441                             (python-path       (getenv "PYTHONPATH")))
9442                         (wrap-program (string-append out "/bin/gnome-todo")
9443                           ;; XXX: gi plugins are broken.
9444                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
9445                           ;; For plugins.
9446                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9447                           `("PYTHONPATH" ":" prefix (,python-path))))
9448                       #t)))))
9449     (native-inputs
9450      `(("gettext" ,gettext-minimal)
9451        ("gobject-introspection" ,gobject-introspection)
9452        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9453        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
9454        ("pkg-config" ,pkg-config)))
9455     (inputs
9456      `(("rest" ,rest)                   ; For Todoist plugin
9457        ("json-glib" ,json-glib)         ; For Todoist plugin
9458        ("libedataserverui" ,evolution-data-server)
9459        ("libical" ,libical)
9460        ("libpeas" ,libpeas)
9461        ("python-pygobject" ,python-pygobject)
9462        ("evolution-data-server" ,evolution-data-server)
9463        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9464        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9465     (home-page "https://wiki.gnome.org/Apps/Todo")
9466     (synopsis "GNOME's ToDo Application")
9467     (description
9468      "GNOME To Do is a simplistic personal task manager designed to perfectly
9469 fit the GNOME desktop.")
9470     (license license:gpl3+)))
9471
9472 (define-public gnome-dictionary
9473   (package
9474     (name "gnome-dictionary")
9475     (version "3.26.1")
9476     (source (origin
9477               (method url-fetch)
9478               (uri (string-append "mirror://gnome/sources/" name "/"
9479                                   (version-major+minor version) "/"
9480                                   name "-" version ".tar.xz"))
9481               (sha256
9482                (base32
9483                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
9484     (build-system meson-build-system)
9485     (arguments '(#:glib-or-gtk? #t
9486                  #:phases (modify-phases %standard-phases
9487                             (add-after 'unpack 'patch-install-script
9488                               (lambda _
9489                                 ;; This script attempts to compile glib schemas
9490                                 ;; and create an empty MIME database.  We do
9491                                 ;; that elsewhere, so prevent it from running.
9492                                 (substitute* "build-aux/post-install.sh"
9493                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
9494                                 #t)))))
9495     (native-inputs
9496      `(("glib:bin" ,glib "bin")
9497        ("gobject-introspection" ,gobject-introspection)
9498        ("intltool" ,intltool)
9499        ("itstool" ,itstool)
9500        ("pkg-config" ,pkg-config)
9501        ("xmllint" ,libxml2)))
9502     (inputs
9503      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9504        ("gtk+" ,gtk+)))
9505     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9506     (synopsis "Look up words in dictionary sources")
9507     (description
9508      "GNOME Dictionary can look for the definition or translation of a word in
9509 existing databases over the internet.")
9510     (license license:gpl3+)))
9511
9512 (define-public gnome-tweaks
9513   (package
9514     (name "gnome-tweaks")
9515     (version "3.34.1")
9516     (source (origin
9517               (method url-fetch)
9518               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9519                                   (version-major+minor version) "/"
9520                                   "gnome-tweaks-" version ".tar.xz"))
9521               (patches
9522                (list (search-patch "gnome-tweaks-search-paths.patch")))
9523               (sha256
9524                (base32
9525                 "19y62dj4n5i6v4zpjllxl51dch6ndy8xs45v5aqmmq9xyfrqk5yq"))))
9526     (build-system meson-build-system)
9527     (arguments
9528      `(#:glib-or-gtk? #t
9529        #:configure-flags '("-Dlocalstatedir=/tmp"
9530                            "-Dsysconfdir=/tmp")
9531        #:imported-modules ((guix build python-build-system)
9532                            ,@%meson-build-system-modules)
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* "meson-postinstall.py"
9539                (("gtk-update-icon-cache") "true"))
9540              #t))
9541          (add-after 'install 'wrap
9542            (@@ (guix build python-build-system) wrap))
9543          (add-after 'wrap 'wrap-gi-typelib
9544            (lambda* (#:key inputs outputs #:allow-other-keys)
9545              (let ((out               (assoc-ref outputs "out"))
9546                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9547                (wrap-program (string-append out "/bin/gnome-tweaks")
9548                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
9549              #t)))))
9550     (native-inputs
9551      `(("intltool" ,intltool)
9552        ("pkg-config" ,pkg-config)))
9553     (inputs
9554      `(("gnome-desktop" ,gnome-desktop)
9555        ("gtk+" ,gtk+)
9556        ("gobject-introspection" ,gobject-introspection)
9557        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9558        ("libhandy" ,libhandy-0.0)
9559        ("libnotify" ,libnotify)
9560        ("libsoup" ,libsoup)
9561        ("nautilus" ,nautilus)
9562        ("python" ,python)
9563        ("python-pygobject" ,python-pygobject)))
9564     (synopsis "Customize advanced GNOME 3 options")
9565     (home-page "https://wiki.gnome.org/Apps/Tweaks")
9566     (description
9567      "GNOME Tweaks allows adjusting advanced configuration settings in
9568 GNOME 3.  This includes things like the fonts used in user interface elements,
9569 alternative user interface themes, changes in window management behavior,
9570 GNOME Shell appearance and extension, etc.")
9571     (license license:gpl3+)))
9572
9573 (define-public gnome-shell-extensions
9574   (package
9575     (name "gnome-shell-extensions")
9576     (version "3.34.2")
9577     (source (origin
9578               (method url-fetch)
9579               (uri (string-append "mirror://gnome/sources/" name "/"
9580                                   (version-major+minor version)  "/"
9581                                   name "-" version ".tar.xz"))
9582               (sha256
9583                (base32
9584                 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
9585     (build-system meson-build-system)
9586     (arguments
9587      '(#:configure-flags '("-Dextension_set=all")))
9588     (native-inputs
9589      `(("glib:bin" ,glib "bin")
9590        ("intltool" ,intltool)
9591        ("pkg-config" ,pkg-config)))
9592     (propagated-inputs
9593      `(("glib" ,glib)))
9594     (synopsis "Extensions for GNOME Shell")
9595     (description "GNOME Shell extensions modify and extend GNOME Shell
9596 functionality and behavior.")
9597     (home-page "https://extensions.gnome.org/")
9598     (license license:gpl3+)))
9599
9600 (define-public folks
9601   (package
9602     (name "folks")
9603     (version "0.13.1")
9604     (source (origin
9605               (method url-fetch)
9606               (uri (string-append
9607                     "mirror://gnome/sources/folks/"
9608                     (version-major+minor version) "/"
9609                     "folks-" version ".tar.xz"))
9610               (sha256
9611                (base32
9612                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
9613     (build-system meson-build-system)
9614     (arguments
9615      '(#:phases
9616        (modify-phases %standard-phases
9617          (add-after 'unpack 'skip-gtk-update-icon-cache
9618            ;; Don't create 'icon-theme.cache'.
9619            (lambda _
9620              (substitute* "meson_post_install.py"
9621                (("gtk-update-icon-cache") "true"))
9622              #t)))))
9623     (inputs
9624      `(("bdb" ,bdb)
9625        ("dbus-glib" ,dbus-glib)
9626        ("evolution-data-server" ,evolution-data-server)
9627        ("glib" ,glib)
9628        ("libgee" ,libgee)
9629        ("readline" ,readline)
9630        ("telepathy-glib" ,telepathy-glib)))
9631     (native-inputs
9632      `(("glib:bin" ,glib "bin")
9633        ("gobject-introspection" ,gobject-introspection)
9634        ("intltool" ,intltool)
9635        ("pkg-config" ,pkg-config)
9636        ("vala" ,vala)))
9637     (synopsis "Library to aggregate data about people")
9638     (description "Libfolks is a library that aggregates information about people
9639 from multiple sources (e.g., Telepathy connection managers for IM contacts,
9640 Evolution Data Server for local contacts, libsocialweb for web service contacts,
9641 etc.) to create metacontacts.  It's written in Vala, which generates C code when
9642 compiled.")
9643     (home-page "https://wiki.gnome.org/Projects/Folks")
9644     (license license:lgpl2.1+)))
9645
9646 (define-public gfbgraph
9647   (package
9648     (name "gfbgraph")
9649     (version "0.2.4")
9650     (source (origin
9651               (method url-fetch)
9652               (uri (string-append
9653                     "mirror://gnome/sources/gfbgraph/"
9654                     (version-major+minor version) "/"
9655                     "gfbgraph-" version ".tar.xz"))
9656               (sha256
9657                (base32
9658                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
9659     (build-system glib-or-gtk-build-system)
9660     (arguments
9661      `(#:tests? #f                      ; tests appear to require the network
9662        #:configure-flags '("--disable-static"
9663                            "--enable-gtk-doc"
9664                            "--enable-introspection")))
9665     (native-inputs
9666      `(("gobject-introspection" ,gobject-introspection)
9667        ("gtk-doc" ,gtk-doc)
9668        ("pkg-config" ,pkg-config)
9669
9670        ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
9671        ("autoconf" ,autoconf)
9672        ("automake" ,automake)
9673        ("libtool" ,libtool)
9674        ("which" ,which)))
9675     (inputs
9676      `(("json-glib" ,json-glib)
9677        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9678        ("rest" ,rest)))
9679     (synopsis "GLib/GObject wrapper for the Facebook API")
9680     (description "This library allows you to use the Facebook API from
9681 GLib/GObject code.")
9682     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
9683     (license license:lgpl2.1+)))
9684
9685 (define-public libgnomekbd
9686   (package
9687     (name "libgnomekbd")
9688     (version "3.26.1")
9689     (source (origin
9690               (method url-fetch)
9691               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
9692                                   (version-major+minor version)  "/"
9693                                   "libgnomekbd-" version ".tar.xz"))
9694               (sha256
9695                (base32
9696                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
9697     (build-system gnu-build-system)
9698     (native-inputs
9699      `(("pkg-config" ,pkg-config)
9700        ("glib" ,glib "bin")
9701        ("intltool" ,intltool)))
9702     (propagated-inputs
9703      ;; Referred to in .h files and .pc.
9704      `(("glib" ,glib)
9705        ("gtk+" ,gtk+)
9706        ("libxklavier" ,libxklavier)))
9707     (home-page "https://www.gnome.org")
9708     (synopsis "GNOME keyboard configuration library")
9709     (description
9710      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
9711 environment, which can notably display keyboard layouts.")
9712     (license license:lgpl2.0+)))
9713
9714 ;;; This package is no longer maintained:
9715 ;;; https://wiki.gnome.org/Attic/LibUnique
9716 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
9717 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
9718 (define-public libunique
9719   (package
9720     (name "libunique")
9721     (version "3.0.2")
9722     (source (origin
9723               (method url-fetch)
9724               (uri (string-append "mirror://gnome/sources/" name "/"
9725                                   (version-major+minor version)  "/"
9726                                   name "-" version ".tar.xz"))
9727               (sha256
9728                (base32
9729                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
9730     (build-system glib-or-gtk-build-system)
9731     (arguments
9732      `(#:configure-flags '("--disable-static"
9733                            "--disable-dbus" ; use gdbus
9734                            "--enable-introspection")))
9735     (native-inputs
9736      `(("pkg-config" ,pkg-config)
9737        ("gobject-introspection" ,gobject-introspection)
9738        ("glib:bin" ,glib "bin")
9739        ("gtk-doc" ,gtk-doc)))
9740     (propagated-inputs
9741      ;; Referred to in .h files and .pc.
9742      `(("gtk+" ,gtk+)))
9743     (home-page "https://wiki.gnome.org/Attic/LibUnique")
9744     (synopsis "Library for writing single instance applications")
9745     (description
9746      "Libunique is a library for writing single instance applications.  If you
9747 launch a single instance application twice, the second instance will either just
9748 quit or will send a message to the running instance.  Libunique makes it easy to
9749 write this kind of application, by providing a base class, taking care of all
9750 the IPC machinery needed to send messages to a running instance, and also
9751 handling the startup notification side.")
9752     (license license:lgpl2.1+)))
9753
9754 (define-public gnome-calculator
9755   (package
9756     (name "gnome-calculator")
9757     (version "3.34.1")
9758     (source
9759      (origin
9760        (method url-fetch)
9761        (uri (string-append "mirror://gnome/sources/" name "/"
9762                            (version-major+minor version) "/"
9763                            name "-" version ".tar.xz"))
9764        (sha256
9765         (base32
9766          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
9767     (build-system meson-build-system)
9768     (arguments '(#:glib-or-gtk? #t))
9769     (native-inputs
9770      `(("gettext" ,gettext-minimal)
9771        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9772        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9773        ("itstool" ,itstool)
9774        ("vala" ,vala)
9775        ("pkg-config" ,pkg-config)))
9776     (inputs
9777      `(("glib" ,glib)
9778        ("gtksourceview" ,gtksourceview)
9779        ("libgee" ,libgee)
9780        ("libsoup" ,libsoup)
9781        ("libxml2" ,libxml2)
9782        ("mpc" ,mpc)
9783        ("mpfr" ,mpfr)))
9784     (home-page "https://wiki.gnome.org/Apps/Calculator")
9785     (synopsis "Desktop calculator")
9786     (description
9787      "Calculator is an application that solves mathematical equations and
9788 is suitable as a default application in a Desktop environment.")
9789     (license license:gpl3)))
9790
9791 (define-public xpad
9792   (package
9793     (name "xpad")
9794     (version "5.1.0")
9795     (source
9796      (origin
9797        (method url-fetch)
9798        (uri (string-append "https://launchpad.net/xpad/trunk/"
9799                            version "/+download/"
9800                            name "-" version ".tar.bz2"))
9801        (sha256
9802         (base32
9803          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
9804     (build-system gnu-build-system)
9805     (native-inputs
9806      `(("autoconf" ,autoconf)
9807        ("automake" ,automake)
9808        ("gtk+:bin" ,gtk+ "bin")
9809        ("intltool" ,intltool)
9810        ("pkg-config" ,pkg-config)))
9811     (inputs
9812      `(("gtksourceview" ,gtksourceview-3)
9813        ("libsm" ,libsm)))
9814     (home-page "https://wiki.gnome.org/Apps/Xpad")
9815     (synopsis "Virtual sticky note")
9816     (description
9817      "Xpad is a sticky note that strives to be simple, fault tolerant,
9818 and customizable.  Xpad consists of independent pad windows, each is
9819 basically a text box in which notes can be written.")
9820     (license license:gpl3+)))
9821
9822 (define-public gucharmap
9823   (let ((unicode-files
9824          '(("Blocks.txt"
9825             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
9826            ("DerivedAge.txt"
9827             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
9828            ("NamesList.txt"
9829             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
9830            ("Scripts.txt"
9831             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
9832            ("UnicodeData.txt"
9833             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
9834            ("Unihan.zip"
9835             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
9836     (package
9837       (name "gucharmap")
9838       (version "12.0.1")
9839       (source
9840        (origin
9841          (method url-fetch)
9842          (uri (string-append "mirror://gnome/sources/" name "/"
9843                              (version-major+minor version) "/"
9844                              name "-" version ".tar.xz"))
9845          (sha256
9846           (base32
9847            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
9848       (build-system glib-or-gtk-build-system)
9849       (arguments
9850        `(#:modules ((ice-9 match)
9851                     (guix build glib-or-gtk-build-system)
9852                     (guix build utils))
9853          #:configure-flags
9854          (list "--with-unicode-data=../unicode-data")
9855          #:phases
9856          (modify-phases %standard-phases
9857            (add-after 'unpack 'prepare-unicode-data
9858              (lambda* (#:key inputs #:allow-other-keys)
9859                (mkdir-p "../unicode-data")
9860                (with-directory-excursion "../unicode-data"
9861                  (for-each (match-lambda
9862                              ((file _)
9863                               (install-file (assoc-ref inputs file) ".")))
9864                            ',unicode-files))
9865                #t)))))
9866       (native-inputs
9867        `(("desktop-file-utils" ,desktop-file-utils)
9868          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
9869          ("gobject-introspection" ,gobject-introspection)
9870          ("intltool" ,intltool)
9871          ("itstool" ,itstool)
9872          ("pkg-config" ,pkg-config)
9873          ,@(map (match-lambda
9874                   ((file hash)
9875                    `(,file
9876                      ,(origin
9877                         (method url-fetch)
9878                         (uri (string-append
9879                               "http://www.unicode.org/Public/12.0.0/ucd/"
9880                               file))
9881                         (sha256 (base32 hash))))))
9882                 unicode-files)
9883          ("unzip" ,unzip)))
9884       (inputs
9885        `(("gtk+" ,gtk+)
9886          ("xmllint" ,libxml2)))
9887       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
9888       (synopsis "Unicode character picker and font browser")
9889       (description
9890        "This program allows you to browse through all the available Unicode
9891 characters and categories for the installed fonts, and to examine their
9892 detailed properties.  It is an easy way to find the character you might
9893 only know by its Unicode name or code point.")
9894       (license license:gpl3+))))
9895
9896 (define-public bluefish
9897   (package
9898     (name "bluefish")
9899     (version "2.2.12")
9900     (source
9901      (origin
9902        (method url-fetch)
9903        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
9904                            "bluefish-" version ".tar.gz"))
9905        (sha256
9906         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
9907     (build-system gnu-build-system)
9908     (native-inputs
9909      `(("desktop-file-utils" ,desktop-file-utils)
9910        ("intltool" ,intltool)
9911        ("pkg-config" ,pkg-config)))
9912     (inputs
9913      `(("enchant" ,enchant)
9914        ("gtk+" ,gtk+)
9915        ("python" ,python-wrapper)
9916        ("xmllint" ,libxml2)
9917        ("gucharmap" ,gucharmap)))
9918     (home-page "http://bluefish.openoffice.nl")
9919     (synopsis "Web development studio")
9920     (description
9921      "Bluefish is an editor aimed at programmers and web developers,
9922 with many options to write web sites, scripts and other code.
9923 Bluefish supports many programming and markup languages.")
9924     (license license:gpl3+)))
9925
9926 (define-public gnome-system-monitor
9927   (package
9928     (name "gnome-system-monitor")
9929     (version "3.32.1")
9930     (source
9931      (origin
9932        (method url-fetch)
9933        (uri (string-append "mirror://gnome/sources/" name "/"
9934                            (version-major+minor version) "/"
9935                            name "-" version ".tar.xz"))
9936        (sha256
9937         (base32
9938          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
9939     (build-system meson-build-system)
9940     (arguments
9941      '(#:glib-or-gtk? #t
9942        #:configure-flags '("-Dsystemd=false")))
9943     (native-inputs
9944      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
9945        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
9946        ("intltool" ,intltool)
9947        ("itstool" ,itstool)
9948        ("libgtop" ,libgtop)
9949        ("polkit" ,polkit)
9950        ("pkg-config" ,pkg-config)))
9951     (inputs
9952      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
9953        ("gtk+" ,gtk+)
9954        ("gtkmm" ,gtkmm)
9955        ("librsvg" ,librsvg)
9956        ("libxml2" ,libxml2)
9957        ("libwnck" ,libwnck)))
9958     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
9959     (synopsis "Process viewer and system resource monitor for GNOME")
9960     (description
9961      "GNOME System Monitor is a GNOME process viewer and system monitor with
9962 an attractive, easy-to-use interface.  It has features, such as a tree view
9963 for process dependencies, icons for processes, the ability to hide processes,
9964 graphical time histories of CPU/memory/swap usage and the ability to
9965 kill/reinice processes.")
9966     (license license:gpl2+)))
9967
9968 (define-public python-pyatspi
9969   (package
9970     (name "python-pyatspi")
9971     (version "2.34.0")
9972     (source (origin
9973               (method url-fetch)
9974               (uri (string-append
9975                     "mirror://gnome/sources/pyatspi/"
9976                     (version-major+minor version)
9977                     "/pyatspi-" version ".tar.xz"))
9978               (sha256
9979                (base32
9980                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
9981     (build-system gnu-build-system)
9982     (arguments
9983      `(#:phases
9984        (modify-phases %standard-phases
9985          (add-before 'build 'fix-atk-load
9986            (lambda _
9987              (substitute* "pyatspi/__init__.py"
9988                (("from gi.repository import Atspi")
9989                 "gi.require_version('Gtk', '3.0')
9990 from gi.repository import Gtk
9991 from gi.repository import Atspi"))
9992              #t)))))
9993     (native-inputs
9994      `(("pkg-config" ,pkg-config)))
9995     (inputs
9996      `(("python" ,python)))
9997     (propagated-inputs
9998      `(("python-pygobject" ,python-pygobject)))
9999     (synopsis "Python client bindings for D-Bus AT-SPI")
10000     (home-page "https://wiki.linuxfoundation.org/accessibility\
10001 /atk/at-spi/at-spi_on_d-bus")
10002     (description
10003      "This package includes a python client library for the AT-SPI D-Bus
10004 accessibility infrastructure.")
10005     (license license:lgpl2.0)
10006     (properties '((upstream-name . "pyatspi")))))
10007
10008 (define-public python2-pyatspi
10009   (package
10010     (inherit python-pyatspi)
10011     (name "python2-pyatspi")
10012     (inputs
10013      `(("python" ,python-2)))
10014     (propagated-inputs
10015      `(("python-pygobject" ,python2-pygobject)))))
10016
10017 (define-public orca
10018   (package
10019     (name "orca")
10020     (version "3.34.1")
10021     (source (origin
10022               (method url-fetch)
10023               (uri (string-append
10024                     "mirror://gnome/sources/" name "/"
10025                     (version-major+minor version) "/"
10026                     name "-" version ".tar.xz"))
10027               (sha256
10028                (base32
10029                 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
10030     (build-system glib-or-gtk-build-system)
10031     (arguments
10032      '(#:phases
10033        (modify-phases %standard-phases
10034          (add-before 'configure 'qualify-xkbcomp
10035            (lambda* (#:key inputs #:allow-other-keys)
10036              (let ((xkbcomp (string-append
10037                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10038                (substitute* "src/orca/orca.py"
10039                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10040              #t))
10041          (add-after 'install 'wrap-orca
10042            (lambda* (#:key outputs #:allow-other-keys)
10043              (let* ((out  (assoc-ref outputs "out"))
10044                     (prog (string-append out "/bin/orca")))
10045                (wrap-program prog
10046                  `("GI_TYPELIB_PATH" ":" prefix
10047                    (,(getenv "GI_TYPELIB_PATH")))
10048                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10049                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10050                  `("PYTHONPATH" ":" prefix
10051                    (,(getenv "PYTHONPATH")))))
10052              #t)))))
10053     (native-inputs
10054      `(("intltool" ,intltool)
10055        ("itstool" ,itstool)
10056        ("pkg-config" ,pkg-config)
10057        ("xmllint" ,libxml2)))
10058     (inputs
10059      `(("at-spi2-atk" ,at-spi2-atk)
10060        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10061        ("gstreamer" ,gstreamer)
10062        ("gst-plugins-base" ,gst-plugins-base)
10063        ("gst-plugins-good" ,gst-plugins-good)
10064        ("gtk+" ,gtk+)
10065        ("python" ,python)
10066        ("python-pygobject" ,python-pygobject)
10067        ("python-pyatspi" ,python-pyatspi)
10068        ("python-speechd" ,speech-dispatcher)
10069        ("xkbcomp" ,xkbcomp)))
10070     (synopsis
10071      "Screen reader for individuals who are blind or visually impaired")
10072     (home-page "https://wiki.gnome.org/Projects/Orca")
10073     (description
10074      "Orca is a screen reader that provides access to the graphical desktop
10075 via speech and refreshable braille.  Orca works with applications and toolkits
10076 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10077     (license license:lgpl2.1+)))
10078
10079 (define-public gspell
10080   (package
10081     (name "gspell")
10082     (version "1.8.2")
10083     (source (origin
10084               (method url-fetch)
10085               (uri (string-append "mirror://gnome/sources/" name "/"
10086                                   (version-major+minor version) "/"
10087                                   name "-" version ".tar.xz"))
10088               (sha256
10089                (base32
10090                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10091               (patches (search-patches "gspell-dash-test.patch"))))
10092     (build-system glib-or-gtk-build-system)
10093     (arguments
10094      '(#:configure-flags (list "--enable-vala")
10095        #:phases
10096        (modify-phases %standard-phases
10097          (add-before 'check 'pre-check
10098            (lambda* (#:key inputs #:allow-other-keys)
10099              ;; Tests require a running X server.
10100              (system "Xvfb :1 &")
10101              (setenv "DISPLAY" ":1")
10102
10103              ;; For the missing /etc/machine-id.
10104              (setenv "DBUS_FATAL_WARNINGS" "0")
10105
10106              ;; Allow Enchant and its Aspell backend to find the en_US
10107              ;; dictionary.
10108              (setenv "ASPELL_DICT_DIR"
10109                      (string-append (assoc-ref inputs "aspell-dict-en")
10110                                     "/lib/aspell"))
10111              #t)))))
10112     (inputs
10113      `(("gtk+" ,gtk+)
10114        ("glib" ,glib)
10115        ("iso-codes" ,iso-codes)))
10116     (native-inputs
10117      `(("glib" ,glib "bin")
10118        ("gobject-introspection" ,gobject-introspection)
10119        ("pkg-config" ,pkg-config)
10120        ("vala" ,vala)                             ;for VAPI, needed by Geary
10121        ("xmllint" ,libxml2)
10122
10123        ;; For tests.
10124        ("aspell-dict-en" ,aspell-dict-en)
10125        ("xorg-server" ,xorg-server-for-tests)))
10126     (propagated-inputs
10127      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
10128     (home-page "https://wiki.gnome.org/Projects/gspell")
10129     (synopsis "GNOME's alternative spell checker")
10130     (description
10131      "gspell provides a flexible API to add spell-checking to a GTK+
10132 application.  It provides a GObject API, spell-checking to text entries and
10133 text views, and buttons to choose the language.")
10134     (license license:gpl2+)))
10135
10136 (define-public gnome-planner
10137   (package
10138     (name "gnome-planner")
10139     (version "0.14.6")
10140     (source (origin
10141               (method url-fetch)
10142               (uri (string-append "mirror://gnome/sources/planner/"
10143                                   (version-major+minor version) "/planner-"
10144                                   version ".tar.xz"))
10145               (sha256
10146                (base32
10147                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10148     (build-system glib-or-gtk-build-system)
10149     (arguments
10150      ;; Disable the Python bindings because the Planner program functions
10151      ;; without them, and (as of 2017-06-13) we have not packaged all of
10152      ;; packages that are necessary for building the Python bindings.
10153      `(#:configure-flags
10154        (list "--disable-python"
10155              ,@(if (string=? "aarch64-linux" (%current-system))
10156                    '("--build=aarch64-unknown-linux-gnu")
10157                    '()))))
10158     (inputs
10159      `(("libgnomecanvas" ,libgnomecanvas)
10160        ("libgnomeui" ,libgnomeui)
10161        ("libglade" ,libglade)
10162        ("gnome-vfs" ,gnome-vfs)
10163        ("gconf" ,gconf)
10164        ("libxml2" ,libxml2)
10165        ("libxslt" ,libxslt)
10166        ("gtk+" ,gtk+)
10167        ("glib" ,glib)))
10168     (native-inputs
10169      `(("intltool" ,intltool)
10170        ("scrollkeeper" ,scrollkeeper)
10171        ("pkg-config" ,pkg-config)))
10172     (home-page "https://wiki.gnome.org/Apps/Planner")
10173     (synopsis "Project management software for the GNOME desktop")
10174     (description
10175      "GNOME Planner is a project management tool based on the Work Breakdown
10176 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10177 the resources, tasks, and constraints that you define, Planner generates
10178 various views into a project.  For example, Planner can show a Gantt chart of
10179 the project.  It can show a detailed summary of tasks including their
10180 duration, cost, and current progress.  It can also show a report of resource
10181 utilization that highlights under-utilized and over-utilized resources.  These
10182 views can be printed as PDF or PostScript files, or exported to HTML.")
10183     (license license:gpl2+)))
10184
10185 (define-public lollypop
10186   (package
10187     (name "lollypop")
10188     (version "1.4.6")
10189     (source
10190      (origin
10191        (method url-fetch)
10192        (uri (string-append "https://adishatz.org/lollypop/"
10193                            "lollypop-" version ".tar.xz"))
10194        (sha256
10195         (base32 "1hlahr50gsagx1ifcdk4yn43xps6w0vqn0gnd6xckfc7qmg1pgq7"))))
10196     (build-system meson-build-system)
10197     (arguments
10198      `(#:imported-modules
10199        (,@%meson-build-system-modules
10200         (guix build python-build-system))
10201        #:modules
10202        ((guix build meson-build-system)
10203         ((guix build python-build-system) #:prefix python:)
10204         (guix build utils))
10205        #:glib-or-gtk? #t
10206        #:tests? #f                      ; no test suite
10207        #:phases
10208        (modify-phases %standard-phases
10209          (add-after 'install 'wrap-program
10210            (lambda* (#:key outputs #:allow-other-keys)
10211              (let ((out               (assoc-ref outputs "out"))
10212                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10213                (wrap-program (string-append out "/bin/lollypop")
10214                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10215              #t))
10216          (add-after 'install 'wrap-python
10217            (assoc-ref python:%standard-phases 'wrap)))))
10218     (native-inputs
10219      `(("intltool" ,intltool)
10220        ("itstool" ,itstool)
10221        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10222        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10223        ("pkg-config" ,pkg-config)))
10224     (inputs
10225      `(("glib-networking" ,glib-networking)
10226        ("gobject-introspection" ,gobject-introspection)
10227        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10228        ("gst-plugins-base" ,gst-plugins-base)
10229        ("libnotify" ,libnotify)
10230        ("libsecret" ,libsecret)
10231        ("libhandy" ,libhandy)
10232        ("libsoup" ,libsoup)
10233        ("python" ,python)
10234        ("python-beautifulsoup4" ,python-beautifulsoup4)
10235        ("python-gst" ,python-gst)
10236        ("python-pil" ,python-pillow)
10237        ("python-pycairo" ,python-pycairo)
10238        ("python-pygobject" ,python-pygobject)
10239        ("python-pylast" ,python-pylast)
10240        ("totem-pl-parser" ,totem-pl-parser)
10241        ("webkitgtk" ,webkitgtk)))
10242     (propagated-inputs
10243      `(;; gst-plugins-base is required to start Lollypop,
10244        ;; the others are required to play streaming.
10245        ("gst-plugins-good" ,gst-plugins-good)
10246        ("gst-plugins-ugly" ,gst-plugins-ugly)))
10247     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10248     (synopsis "GNOME music playing application")
10249     (description
10250      "Lollypop is a music player designed to play well with GNOME desktop.
10251 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10252 from artists and tracks from the web.  It also fetches cover artworks
10253 automatically and it can stream songs from online music services and charts.")
10254     (license license:gpl3+)))
10255
10256 (define-public gnome-video-effects
10257   (package
10258     (name "gnome-video-effects")
10259     (version "0.5.0")
10260     (source (origin
10261               (method url-fetch)
10262               (uri (string-append "mirror://gnome/sources/" name "/"
10263                                   (version-major+minor version) "/" name "-"
10264                                   version ".tar.xz"))
10265               (sha256
10266                (base32
10267                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10268     (build-system meson-build-system)
10269     (native-inputs
10270      `(("gettext" ,gettext-minimal)
10271        ("pkg-config" ,pkg-config)))
10272     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10273     (synopsis "Video effects for Cheese and other GNOME applications")
10274     (description
10275      "A collection of GStreamer video filters and effects to be used in
10276 photo-booth-like software, such as Cheese.")
10277     (license license:gpl2+)))
10278
10279 (define-public cheese
10280   (package
10281     (name "cheese")
10282     (version "3.38.0")
10283     (source (origin
10284               (method url-fetch)
10285               (uri (string-append "mirror://gnome/sources/" name "/"
10286                                   (version-major+minor version) "/" name "-"
10287                                   version ".tar.xz"))
10288               (sha256
10289                (base32
10290                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))))
10291     (arguments
10292      `(#:glib-or-gtk? #t
10293        ;; Tests require GDK.
10294        #:tests? #f
10295        #:phases
10296        (modify-phases %standard-phases
10297          (add-after 'unpack 'skip-gtk-update-icon-cache
10298            (lambda _
10299              ;; Don't create 'icon-theme.cache'
10300              (substitute* "meson_post_install.py"
10301                (("gtk-update-icon-cache") (which "true")))
10302              #t))
10303          (add-after 'unpack 'patch-docbook-xml
10304            (lambda* (#:key inputs #:allow-other-keys)
10305              ;; Avoid a network connection attempt during the build.
10306              (substitute* '("docs/reference/cheese.xml"
10307                             "docs/reference/cheese-docs.xml")
10308                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10309                 (string-append (assoc-ref inputs "docbook-xml")
10310                                "/xml/dtd/docbook/docbookx.dtd")))
10311              #t))
10312          (add-after 'install 'wrap-cheese
10313            (lambda* (#:key inputs outputs #:allow-other-keys)
10314              (let ((out             (assoc-ref outputs "out"))
10315                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10316                (wrap-program (string-append out "/bin/cheese")
10317                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10318              #t)))))
10319     (build-system meson-build-system)
10320     (native-inputs
10321      `(("docbook-xsl" ,docbook-xsl)
10322        ("docbook-xml" ,docbook-xml-4.3)
10323        ("gettext" ,gettext-minimal)
10324        ("glib:bin" ,glib "bin")
10325        ("gtk-doc" ,gtk-doc)
10326        ("itstool" ,itstool)
10327        ("libxml2" ,libxml2)
10328        ("libxslt" ,libxslt)
10329        ("pkg-config" ,pkg-config)
10330        ("vala" ,vala)))
10331     (propagated-inputs
10332      `(("gnome-video-effects" ,gnome-video-effects)
10333        ("clutter" ,clutter)
10334        ("clutter-gst" ,clutter-gst)
10335        ("clutter-gtk" ,clutter-gtk)
10336        ("libcanberra" ,libcanberra)
10337        ("gdk-pixbuf" ,gdk-pixbuf)
10338        ("glib" ,glib)
10339        ("gstreamer" ,gstreamer)))
10340     (inputs
10341      `(("gnome-desktop" ,gnome-desktop)
10342        ("gobject-introspection" ,gobject-introspection)
10343        ("gst-plugins-base" ,gst-plugins-base)
10344        ("gst-plugins-bad" ,gst-plugins-bad)
10345        ("gtk+" ,gtk+)
10346        ("libx11" ,libx11)
10347        ("libxtst" ,libxtst)))
10348     (home-page "https://wiki.gnome.org/Apps/Cheese")
10349     (synopsis "Webcam photo booth software for GNOME")
10350     (description
10351      "Cheese uses your webcam to take photos and videos.  Cheese can also
10352 apply fancy special effects and lets you share the fun with others.")
10353     (license license:gpl2+)))
10354
10355 (define-public passwordsafe
10356   (package
10357     (name "passwordsafe")
10358     (version "3.99.2")
10359     (source
10360      (origin
10361        (method git-fetch)
10362        (uri (git-reference
10363              (url "https://gitlab.gnome.org/World/PasswordSafe")
10364              (commit version)))
10365        (file-name (git-file-name name version))
10366        (sha256
10367         (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf"))))
10368     (build-system meson-build-system)
10369     (arguments
10370      `(#:glib-or-gtk? #t
10371        #:phases
10372        (modify-phases %standard-phases
10373          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10374            (lambda* (#:key outputs #:allow-other-keys)
10375              (let ((prog (string-append (assoc-ref outputs "out")
10376                                         "/bin/gnome-passwordsafe"))
10377                    (pylib (string-append (assoc-ref outputs "out")
10378                                          "/lib/python"
10379                                          ,(version-major+minor
10380                                            (package-version python))
10381                                          "/site-packages")))
10382                (wrap-program prog
10383                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10384                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10385                #t))))))
10386     (native-inputs
10387      `(("desktop-file-utils" ,desktop-file-utils)
10388        ("gettext" ,gettext-minimal)
10389        ("glib:bin" ,glib "bin")
10390        ("gobject-introspection" ,gobject-introspection)
10391        ("gtk+:bin" ,gtk+ "bin")
10392        ("pkg-config" ,pkg-config)))
10393     (inputs
10394      `(("glib" ,glib)
10395        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10396        ("gtk+" ,gtk+)
10397        ("libhandy" ,libhandy-0.0)
10398        ("libpwquality" ,libpwquality)
10399        ("python-pygobject" ,python-pygobject)
10400        ("python-pykeepass" ,python-pykeepass)))
10401     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10402     (synopsis "Password manager for the GNOME desktop")
10403     (description
10404      "Password Safe is a password manager which makes use of the KeePass v4
10405 format.  It integrates perfectly with the GNOME desktop and provides an easy
10406 and uncluttered interface for the management of password databases.")
10407     (license license:gpl3+)))
10408
10409 (define-public sound-juicer
10410   (package
10411     (name "sound-juicer")
10412     (version "3.24.0")
10413     (source
10414      (origin
10415        (method url-fetch)
10416        (uri (string-append "mirror://gnome/sources/" name "/"
10417                            (version-major+minor version) "/"
10418                            name "-" version ".tar.xz"))
10419        (sha256
10420         (base32
10421          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10422     (build-system glib-or-gtk-build-system)
10423     (native-inputs
10424      `(("desktop-file-utils" ,desktop-file-utils)
10425        ("intltool" ,intltool)
10426        ("itstool" ,itstool)
10427        ("pkg-config" ,pkg-config)
10428        ("xmllint" ,libxml2)))
10429     (inputs
10430      `(("gtk+" ,gtk+)
10431        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10432        ("gstreamer" ,gstreamer)
10433        ("gst-plugins-base" ,gst-plugins-base)
10434        ("gst-plugins-good" ,gst-plugins-good)
10435        ("iso-codes" ,iso-codes)
10436        ("libbrasero-media3" ,brasero)
10437        ("libcanberra" ,libcanberra)
10438        ("libdiscid" ,libdiscid)
10439        ("libmusicbrainz" ,libmusicbrainz)
10440        ("neon" ,neon)))
10441     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10442     (synopsis "Audio music cd ripper")
10443     (description "Sound Juicer extracts audio from compact discs and convert it
10444 into audio files that a personal computer or digital audio player can play.
10445 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10446 mp3, Ogg Vorbis and FLAC")
10447     (license license:gpl2+)))
10448
10449 (define-public soundconverter
10450   (package
10451     (name "soundconverter")
10452     (version "3.0.2")
10453     (source
10454      (origin
10455        (method url-fetch)
10456        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10457                            version "/+download/"
10458                            "soundconverter-" version ".tar.xz"))
10459
10460        (sha256
10461         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10462     (build-system glib-or-gtk-build-system)
10463     (arguments
10464      `(#:imported-modules ((guix build python-build-system)
10465                            (guix build glib-or-gtk-build-system)
10466                            ,@%gnu-build-system-modules)
10467
10468        #:modules ((guix build glib-or-gtk-build-system)
10469                   (guix build utils)
10470                   ((guix build gnu-build-system) #:prefix gnu:)
10471                   ((guix build python-build-system) #:prefix python:))
10472
10473        #:phases
10474        (modify-phases %standard-phases
10475          (add-after 'install 'wrap-soundconverter-for-python
10476            (assoc-ref python:%standard-phases 'wrap))
10477          (add-after 'install 'wrap-soundconverter
10478            (lambda* (#:key inputs outputs #:allow-other-keys)
10479              (let ((out               (assoc-ref outputs "out"))
10480                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10481                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10482                (wrap-program (string-append out "/bin/soundconverter")
10483                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10484                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10485              #t)))))
10486     (native-inputs
10487      `(("intltool" ,intltool)
10488        ("pkg-config" ,pkg-config)
10489        ("glib:bin" ,glib "bin")))
10490     (inputs
10491      `(("gtk+" ,gtk+)
10492        ("python" ,python)
10493        ("python-pygobject" ,python-pygobject)
10494        ("gstreamer" ,gstreamer)
10495        ("gst-plugins-base" ,gst-plugins-base)))
10496     (home-page "https://soundconverter.org/")
10497     (synopsis "Convert between audio formats with a graphical interface")
10498     (description
10499      "SoundConverter supports converting between many audio formats including
10500 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10501 configurable file renaming. ")
10502     (license license:gpl3)))
10503
10504 (define-public workrave
10505   (package
10506     (name "workrave")
10507     (version "1.10.42")
10508     (source
10509      (origin
10510        (method git-fetch)
10511        (uri (git-reference
10512              (url "https://github.com/rcaelers/workrave")
10513              (commit (string-append "v" (string-map
10514                                          (match-lambda (#\. #\_) (chr chr))
10515                                          version)))))
10516        (file-name (git-file-name name version))
10517        (sha256
10518         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
10519     (build-system glib-or-gtk-build-system)
10520     (arguments
10521      ;; The only tests are maintainer tests (in po/), which fail.
10522      `(#:tests? #f))
10523     (inputs `(("glib" ,glib)
10524               ("gtk+" ,gtk+)
10525               ("gdk-pixbuf" ,gdk-pixbuf)
10526               ("gtkmm" ,gtkmm)
10527               ("glibmm" ,glibmm)
10528               ("libx11" ,libx11)
10529               ("libxtst" ,libxtst)
10530               ("dconf" ,dconf)
10531               ("libice" ,libice)
10532               ("libsm" ,libsm)
10533               ("libxscrnsaver" ,libxscrnsaver)))
10534     (native-inputs `(("boost" ,boost)
10535                      ("pkg-config" ,pkg-config)
10536                      ("gettext" ,gettext-minimal)
10537                      ("autoconf" ,autoconf)
10538                      ("autoconf-archive" , autoconf-archive)
10539                      ("automake" ,automake)
10540                      ("libtool" ,libtool)
10541                      ("intltool" ,intltool)
10542                      ("gobject-introspection" ,gobject-introspection)
10543                      ("python3" ,python-3)
10544                      ("python-jinja2" ,python-jinja2)))
10545     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10546     (description
10547      "Workrave is a program that assists in the recovery and prevention of
10548 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10549 micro-pauses and rest breaks, and restricts you to your daily limit.")
10550     (home-page "http://www.workrave.org")
10551     (license license:gpl3+)))
10552
10553 (define-public ghex
10554   (package
10555     (name "ghex")
10556     (version "3.18.4")
10557     (source (origin
10558               (method url-fetch)
10559               (uri (string-append "mirror://gnome/sources/ghex/"
10560                                   (version-major+minor version) "/"
10561                                   "ghex-" version ".tar.xz"))
10562               (sha256
10563                (base32
10564                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10565     (build-system meson-build-system)
10566     (arguments
10567      '(#:glib-or-gtk? #t
10568        #:phases
10569        (modify-phases %standard-phases
10570          (add-after 'unpack 'skip-gtk-update-icon-cache
10571            ;; Don't create 'icon-theme.cache'.
10572            (lambda _
10573              (substitute* "meson_post_install.py"
10574                (("gtk-update-icon-cache") (which "true")))
10575              #t)))))
10576     (native-inputs
10577      `(("pkg-config" ,pkg-config)
10578        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
10579        ("gnome-common" ,gnome-common)
10580        ("which" ,which)
10581        ("intltool" ,intltool)
10582        ("yelp-tools" ,yelp-tools)
10583        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
10584     (inputs
10585      `(("atk" ,atk)
10586        ("gtk" ,gtk+)))
10587     (synopsis "GNOME hexadecimal editor")
10588     (description "The GHex program can view and edit files in two ways:
10589 hexadecimal or ASCII.  It is useful for editing binary files in general.")
10590     (home-page "https://wiki.gnome.org/Apps/Ghex")
10591     (license license:gpl2)))
10592
10593 (define-public libdazzle
10594   (package
10595     (name "libdazzle")
10596     (version "3.37.1")
10597     (source (origin
10598               (method url-fetch)
10599               (uri (string-append "mirror://gnome/sources/libdazzle/"
10600                                   (version-major+minor version) "/"
10601                                   "libdazzle-" version ".tar.xz"))
10602               (sha256
10603                (base32
10604                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
10605     (build-system meson-build-system)
10606     (arguments
10607      `(#:phases
10608        (modify-phases %standard-phases
10609          (add-before 'check 'pre-check
10610            (lambda _
10611              ;; Tests require a running X server.
10612              (system "Xvfb :1 &")
10613              (setenv "DISPLAY" ":1")
10614              #t)))))
10615     (native-inputs
10616      `(("glib" ,glib "bin")             ; glib-compile-resources
10617        ("pkg-config" ,pkg-config)
10618        ;; For tests.
10619        ("xorg-server" ,xorg-server-for-tests)))
10620     (inputs
10621      `(("glib" ,glib)
10622        ("gobject-introspection" ,gobject-introspection)
10623        ("gtk+" ,gtk+)
10624        ("vala" ,vala)))
10625     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
10626     (synopsis "Companion library to GObject and Gtk+")
10627     (description "The libdazzle library is a companion library to GObject and
10628 Gtk+.  It provides various features that the authors wish were in the
10629 underlying library but cannot for various reasons.  In most cases, they are
10630 wildly out of scope for those libraries.  In other cases, they are not quite
10631 generic enough to work for everyone.")
10632     (license license:gpl3+)))
10633
10634 (define-public evolution
10635   (package
10636     (name "evolution")
10637     (version "3.34.2")
10638     (source (origin
10639               (method url-fetch)
10640               (uri (string-append "mirror://gnome/sources/evolution/"
10641                                   (version-major+minor version) "/"
10642                                   "evolution-" version ".tar.xz"))
10643               (sha256
10644                (base32
10645                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))))
10646     (build-system cmake-build-system)
10647     (arguments
10648      `(#:imported-modules (,@%cmake-build-system-modules
10649                            (guix build glib-or-gtk-build-system))
10650        #:modules ((guix build cmake-build-system)
10651                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10652                   (guix build utils))
10653        #:configure-flags
10654        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
10655              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
10656                                           ; in four years and cannot be built.
10657        #:phases
10658        (modify-phases %standard-phases
10659          ;; The build system attempts to install user interface modules to the
10660          ;; output directory of the "evolution-data-server" package.  This
10661          ;; change redirects that change.
10662          (add-after 'unpack 'patch-ui-module-dir
10663            (lambda* (#:key outputs #:allow-other-keys)
10664              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
10665                (("\\$\\{edsuimoduledir\\}")
10666                 (string-append (assoc-ref outputs "out")
10667                                "/lib/evolution-data-server/ui-modules")))
10668              #t))
10669          (add-after 'install 'glib-or-gtk-compile-schemas
10670            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
10671          (add-after 'install 'glib-or-gtk-wrap
10672            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10673     (native-inputs
10674      `(("glib" ,glib "bin")             ; glib-mkenums
10675        ("pkg-config" ,pkg-config)
10676        ("intltool" ,intltool)
10677        ("itstool" ,itstool)))
10678     (inputs
10679      `(("enchant" ,enchant)
10680        ("evolution-data-server" ,evolution-data-server) ; must be the same version
10681        ("gcr" ,gcr)
10682        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10683        ("gnome-autoar" ,gnome-autoar)
10684        ("gnome-desktop" ,gnome-desktop)
10685        ("gspell" ,gspell)
10686        ("highlight" ,highlight)
10687        ("libcanberra" ,libcanberra)
10688        ("libgweather" ,libgweather)
10689        ("libnotify" ,libnotify)
10690        ("libsoup" ,libsoup)
10691        ("nss" ,nss)
10692        ("openldap" ,openldap)
10693        ("webkitgtk" ,webkitgtk)
10694        ("ytnef" ,ytnef)))
10695     (home-page "https://gitlab.gnome.org/GNOME/evolution")
10696     (synopsis "Manage your email, contacts and schedule")
10697     (description "Evolution is a personal information management application
10698 that provides integrated mail, calendaring and address book
10699 functionality.")
10700     ;; See COPYING for details.
10701     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
10702                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
10703                    license:lgpl2.1+))))  ; smime/lib/*
10704
10705 (define-public gthumb
10706   (package
10707     (name "gthumb")
10708     (version "3.8.2")
10709     (source (origin
10710               (method url-fetch)
10711               (uri (string-append "mirror://gnome/sources/gthumb/"
10712                                   (version-major+minor version) "/"
10713                                   "gthumb-" version ".tar.xz"))
10714               (sha256
10715                (base32
10716                 "15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
10717     (build-system meson-build-system)
10718     (arguments
10719      `(#:glib-or-gtk? #t
10720        #:configure-flags
10721        ;; Ensure the RUNPATH contains all installed library locations.
10722        (list (string-append "-Dc_link_args=-Wl,-rpath="
10723                             (assoc-ref %outputs "out")
10724                             "/lib/gthumb/extensions")
10725              (string-append "-Dcpp_link_args=-Wl,-rpath="
10726                             (assoc-ref %outputs "out")
10727                             "/lib/gthumb/extensions"))))
10728     (native-inputs
10729      `(("pkg-config" ,pkg-config)
10730        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10731        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
10732        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
10733        ("intltool" ,intltool)
10734        ("itstool" ,itstool)))
10735     (inputs
10736      `(("exiv2" ,exiv2)
10737        ("gtk" ,gtk+)
10738        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10739        ("gstreamer" ,gstreamer)
10740        ("clutter" ,clutter)
10741        ("clutter-gst" ,clutter-gst)
10742        ("clutter-gtk" ,clutter-gtk)
10743        ("libjpeg" ,libjpeg-turbo)
10744        ("libtiff" ,libtiff)
10745        ("libraw" ,libraw)))
10746     (home-page "https://wiki.gnome.org/Apps/Gthumb")
10747     (synopsis "GNOME image viewer and browser")
10748     (description "GThumb is an image viewer, browser, organizer, editor and
10749 advanced image management tool")
10750     (license license:gpl2+)))
10751
10752 (define-public terminator
10753   (package
10754     (name "terminator")
10755     (version "1.92")
10756     (source (origin
10757               (method url-fetch)
10758               (uri (string-append "https://github.com/gnome-" name "/" name "/"
10759                                   "releases/download/v" version "/"
10760                                   name "-" version ".tar.gz"))
10761               (sha256
10762                (base32
10763                 "1wbkfp0nk6x9bcwi681zy30qmrp4h754sdz6b7hi9j22mmvdd50z"))))
10764     (build-system python-build-system)
10765     (native-inputs
10766      `(("gettext" ,gettext-minimal)
10767        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10768        ("gobject-introspection" ,gobject-introspection)
10769        ("intltool" ,intltool)
10770        ("pkg-config" ,pkg-config)
10771        ("python-psutil" ,python-psutil)
10772        ("python-pytest-runner" ,python-pytest-runner)
10773        ("python-pytest" ,python-pytest)))
10774     (inputs
10775      `(("cairo" ,cairo)
10776        ("dbus-glib" ,dbus-glib)
10777        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10778        ("gtk+" ,gtk+)
10779        ("python-pycairo" ,python-pycairo)
10780        ("python-pygobject" ,python-pygobject)
10781        ("vte" ,vte)))
10782     (propagated-inputs
10783      `(("python-configobj" ,python-configobj)))
10784     (arguments
10785      `(#:imported-modules ((guix build glib-or-gtk-build-system)
10786                            ,@%python-build-system-modules)
10787        #:modules ((guix build python-build-system)
10788                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10789                   (guix build utils))
10790        #:phases
10791        (modify-phases %standard-phases
10792          (add-after
10793           'install 'wrap-program
10794           (lambda* (#:key outputs #:allow-other-keys)
10795             (let ((prog (string-append (assoc-ref outputs "out")
10796                                        "/bin/terminator"))
10797                   (pylib (string-append (assoc-ref outputs "out")
10798                                         "/lib/python"
10799                                         ,(version-major+minor
10800                                           (package-version python))
10801                                         "/site-packages")))
10802               (wrap-program prog
10803                 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10804                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10805               #t)))
10806          (add-after 'wrap-program 'glib-or-gtk-wrap
10807            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10808     (home-page "https://gnome-terminator.org/")
10809     (synopsis "Store and run multiple GNOME terminals in one window")
10810     (description
10811      "Terminator allows you to run multiple GNOME terminals in a grid and
10812 tabs, and it supports drag and drop re-ordering of terminals.")
10813     (license license:gpl2)))
10814
10815 (define-public libhandy
10816   (package
10817     (name "libhandy")
10818     (version "1.0.3")
10819     (source
10820      (origin
10821        (method git-fetch)
10822        (uri (git-reference
10823              (url "https://gitlab.gnome.org/GNOME/libhandy")
10824              (commit version)))
10825        (file-name (git-file-name name version))
10826        (sha256
10827         (base32 "0flgwlm921801i3ns0dwqpnxl89f3rzn4y9h723i13bmflch3in7"))))
10828     (build-system meson-build-system)
10829     (arguments
10830      `(#:configure-flags
10831        '("-Dglade_catalog=enabled"
10832          "-Dgtk_doc=true")
10833        #:phases
10834        (modify-phases %standard-phases
10835          (add-before 'check 'pre-check
10836            (lambda _
10837              ;; Tests require a running X server.
10838              (system "Xvfb :1 &")
10839              (setenv "DISPLAY" ":1")
10840              #t)))))
10841     (inputs
10842      `(("gtk+" ,gtk+)
10843        ("glade" ,glade3)
10844        ("libxml2" ,libxml2)))
10845     (native-inputs
10846      `(("glib:bin" ,glib "bin")
10847        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
10848        ("vala" ,vala)
10849        ("gtk-doc" ,gtk-doc)
10850        ("pkg-config" ,pkg-config)
10851        ("gettext" ,gettext-minimal)
10852
10853        ;; Test suite dependencies.
10854        ("xorg-server" ,xorg-server-for-tests)
10855        ("hicolor-icon-theme" ,hicolor-icon-theme)))
10856     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
10857     (synopsis "Library full of GTK+ widgets for mobile phones")
10858     (description "The aim of the handy library is to help with developing user
10859 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
10860 for usage on small and big screens.")
10861     (license license:lgpl2.1+)))
10862
10863 (define-public libhandy-0.0
10864   (package
10865     (inherit libhandy)
10866     (version "0.0.13")
10867     (source
10868      (origin
10869        (method git-fetch)
10870        (uri (git-reference
10871              (url "https://gitlab.gnome.org/GNOME/libhandy")
10872              (commit (string-append "v" version))))
10873        (file-name (git-file-name "libhandy" version))
10874        (sha256
10875         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
10876     (arguments
10877      (substitute-keyword-arguments (package-arguments libhandy)
10878        ((#:configure-flags flags)
10879         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
10880
10881 (define-public libgit2-glib
10882   (package
10883     (name "libgit2-glib")
10884     (version "0.99.0.1")
10885     (source (origin
10886               (method url-fetch)
10887               (uri (string-append "mirror://gnome/sources/" name "/"
10888                                   (version-major+minor version) "/"
10889                                   name "-" version ".tar.xz"))
10890               (sha256
10891                (base32
10892                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
10893     (build-system meson-build-system)
10894     (native-inputs
10895      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
10896        ("gobject-introspection" ,gobject-introspection)
10897        ("pkg-config" ,pkg-config)
10898        ("python-pygobject" ,python-pygobject)
10899        ("python-wrapper" ,python-wrapper)
10900        ("vala" ,vala)))
10901     (inputs
10902      `(("glib" ,glib)
10903        ("libssh2" ,libssh2)))
10904     (propagated-inputs
10905      `(;; In Requires of libgit2-glib.pc.
10906        ("libgit2" ,libgit2)))
10907     (synopsis "GLib wrapper around the libgit2 Git access library")
10908     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
10909 access library.  It only implements the core plumbing functions, not really the
10910 higher level porcelain stuff.")
10911     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
10912     (license license:gpl2+)))
10913
10914 (define-public gitg
10915   (package
10916     (name "gitg")
10917     (version "3.32.1")
10918     (source (origin
10919               (method url-fetch)
10920               (uri (string-append "mirror://gnome/sources/" name "/"
10921                                   (version-major+minor version) "/"
10922                                   name "-" version ".tar.xz"))
10923               (sha256
10924                (base32
10925                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
10926     (build-system meson-build-system)
10927     (arguments
10928      `(#:glib-or-gtk? #t
10929        #:phases
10930        (modify-phases %standard-phases
10931          (add-after 'unpack 'disable-post-install-partially
10932            (lambda _
10933              (substitute* "meson_post_install.py"
10934                (("'python'") ; there are no python sources to compile
10935                 (string-append "'" (which "true") "'"))
10936                (("gtk-update-icon-cache") (which "true")))
10937              #t))
10938          (add-after 'unpack 'fix-test-sources
10939            (lambda _
10940              (substitute* "tests/libgitg/test-commit.vala"
10941                (("/bin/bash") (which "bash")))
10942              #t))
10943          (add-after 'glib-or-gtk-wrap 'wrap-typelib
10944            (lambda* (#:key outputs #:allow-other-keys)
10945              (let ((prog (string-append (assoc-ref outputs "out")
10946                                         "/bin/gitg")))
10947                (wrap-program prog
10948                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10949                #t))))))
10950     (inputs
10951      `(("glib" ,glib)
10952        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10953        ("gtk+" ,gtk+)
10954        ("gtkspell3" ,gtkspell3)
10955        ("gtksourceview" ,gtksourceview-3)
10956        ("json-glib" ,json-glib)
10957        ("libdazzle" ,libdazzle)
10958        ("libgee" ,libgee)
10959        ("libgit2-glib" ,libgit2-glib)
10960        ("libpeas" ,libpeas)
10961        ("libsecret" ,libsecret)
10962        ("libsoup" ,libsoup)
10963        ("libxml2" ,libxml2)))
10964     (native-inputs
10965      `(("glib:bin" ,glib "bin")
10966        ("gtk+:bin" ,gtk+ "bin")
10967        ("gobject-introspection" ,gobject-introspection)
10968        ("intltool" ,intltool)
10969        ("pkg-config" ,pkg-config)
10970        ("vala" ,vala)))
10971     (synopsis "Graphical user interface for git")
10972     (description
10973      "gitg is a graphical user interface for git.  It aims at being a small,
10974 fast and convenient tool to visualize the history of git repositories.
10975 Besides visualization, gitg also provides several utilities to manage your
10976 repository and commit your work.")
10977     (home-page "https://wiki.gnome.org/Apps/Gitg")
10978     (license license:gpl2+)))
10979
10980 (define-public gamin
10981   (package
10982     (name "gamin")
10983     (version "0.1.10")
10984     (source (origin
10985               (method url-fetch)
10986               (uri (string-append "mirror://gnome/sources/" name "/"
10987                                   (version-major+minor version) "/"
10988                                   name "-" version ".tar.bz2"))
10989               (sha256
10990                (base32
10991                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
10992     (build-system gnu-build-system)
10993     (arguments
10994      `(#:phases
10995        (modify-phases %standard-phases
10996          (add-after 'unpack 'remove-deprecated-macro
10997            (lambda _
10998              (substitute* '("server/gam_node.c"
10999                             "server/gam_subscription.h"
11000                             "server/gam_node.h"
11001                             "server/gam_subscription.c")
11002                (("G_CONST_RETURN") "const"))
11003              #t)))))
11004     (inputs
11005      `(("glib" ,glib)))
11006     (native-inputs
11007      `(("intltool" ,intltool)
11008        ("pkg-config" ,pkg-config)))
11009     (home-page "https://people.gnome.org/~veillard/gamin/")
11010     (synopsis "File alteration monitor")
11011     (description
11012      "Gamin is a file and directory monitoring system defined to be a subset
11013 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11014 library which detects when a file or a directory has been modified.")
11015     (license license:gpl2+)))
11016
11017 (define-public gnome-mahjongg
11018   (package
11019     (name "gnome-mahjongg")
11020     (version "3.35.1")
11021     (source (origin
11022               (method git-fetch)
11023               (uri (git-reference
11024                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11025                     (commit version)))
11026               (file-name (git-file-name name version))
11027               (sha256
11028                (base32
11029                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11030     (build-system meson-build-system)
11031     (arguments
11032      `(#:glib-or-gtk? #t))
11033     (native-inputs
11034      `(("appstream-glib" ,appstream-glib)
11035        ("gettext" ,gettext-minimal)
11036        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11037        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11038        ("itstool" ,itstool)
11039        ("pkg-config" ,pkg-config)
11040        ("vala" ,vala)))
11041     (propagated-inputs
11042      `(("dconf" ,dconf)))
11043     (inputs
11044      `(("glib" ,glib)
11045        ("gtk+" ,gtk+)
11046        ("librsvg" ,librsvg)))
11047     (synopsis "Mahjongg tile-matching game")
11048     (description "GNOME Mahjongg is a game based on the classic Chinese
11049 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11050 and a high score table.")
11051     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11052     (license license:gpl2+)))
11053
11054 (define-public gnome-themes-extra
11055   (package
11056     (name "gnome-themes-extra")
11057     (version "3.28")
11058     (source
11059      (origin
11060        (method url-fetch)
11061        (uri (string-append "mirror://gnome/sources/" name "/"
11062                            (version-major+minor version) "/" name "-"
11063                            version ".tar.xz"))
11064        (sha256
11065         (base32
11066          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11067     (build-system gnu-build-system)
11068     (arguments
11069      '(#:configure-flags
11070        ;; Don't create 'icon-theme.cache'.
11071        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11072               (true      (string-append coreutils "/bin/true")))
11073          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11074     (native-inputs
11075      `(("glib:bin" ,glib "bin")
11076        ("intltool" ,intltool)
11077        ("pkg-config" ,pkg-config)))
11078     (inputs
11079      `(("glib" ,glib)
11080        ("gtk+" ,gtk+)
11081        ("gtk+-2" ,gtk+-2)
11082        ("librsvg" ,librsvg)
11083        ("libxml2" ,libxml2)))
11084     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11085     (synopsis "GNOME Extra Themes")
11086     (description "This package provides themes and related elements that don't
11087 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11088 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11089 index files needed for Adwaita to be used outside of GNOME.")
11090     (license license:lgpl2.1+)))
11091
11092 (define-public gnote
11093   (package
11094     (name "gnote")
11095     (version "3.38.0")
11096     (source
11097      (origin
11098        (method url-fetch)
11099        (uri (string-append "mirror://gnome/sources/" name "/"
11100                            (version-major+minor version)  "/"
11101                            "gnote-" version ".tar.xz"))
11102        (sha256
11103         (base32 "1ingbaw4d8vpjn083xvzqw7kz8z0k2bx7msk78pbzd68bwgkadpx"))))
11104     (build-system glib-or-gtk-build-system)
11105     (native-inputs
11106      `(("desktop-file-utils" ,desktop-file-utils)
11107        ("glib:bin" ,glib "bin")
11108        ("gobject-introspection" ,gobject-introspection)
11109        ("intltool" ,intltool)
11110        ("itstool" ,itstool)
11111        ("pkg-config" ,pkg-config)
11112        ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11113     (inputs
11114      `(("glibmm" ,glibmm)
11115        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11116        ("gspell" ,gspell)
11117        ("gtk+" ,gtk+)
11118        ("gtkmm" ,gtkmm)
11119        ("libsecret" ,libsecret)
11120        ("libuuid" ,util-linux "lib")
11121        ("libxml2" ,libxml2)
11122        ("libxslt" ,libxslt)))
11123     (synopsis "Note-taking application for the GNOME desktop")
11124     (description
11125      "Gnote is a note-taking application written for the GNOME desktop
11126 environment.")
11127     (home-page "https://wiki.gnome.org/Apps/Gnote")
11128     (license license:gpl3+)))
11129
11130 (define-public polari
11131   (package
11132     (name "polari")
11133     (version "3.36.3")
11134     (source (origin
11135               (method url-fetch)
11136               (uri (string-append "mirror://gnome/sources/polari/"
11137                                   (version-major+minor version)
11138                                   "/polari-" version ".tar.xz"))
11139               (sha256
11140                (base32
11141                 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
11142     (build-system meson-build-system)
11143     (arguments
11144      `(#:glib-or-gtk? #t
11145        #:phases
11146        (modify-phases %standard-phases
11147          (add-after 'unpack 'skip-gtk-update-icon-cache
11148            (lambda _
11149              (substitute* "meson/meson-postinstall.sh"
11150                (("gtk-update-icon-cache") (which "true")))
11151              #t))
11152          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11153            (lambda* (#:key outputs #:allow-other-keys)
11154              (let ((prog (string-append (assoc-ref outputs "out")
11155                                         "/bin/polari")))
11156                (wrap-program prog
11157                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11158                #t))))))
11159     (inputs
11160      `(("glib" ,glib)
11161        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11162        ("gspell" ,gspell)
11163        ("gtk+" ,gtk+)
11164        ("gjs" ,gjs)
11165        ("libsecret" ,libsecret)
11166        ("libsoup" ,libsoup)
11167        ("telepathy-glib" ,telepathy-glib)
11168        ("telepathy-logger" ,telepathy-logger)))
11169     (native-inputs
11170      `(("glib:bin" ,glib "bin")
11171        ("gobject-introspection" ,gobject-introspection)
11172        ("intltool" ,intltool)
11173        ("pkg-config" ,pkg-config)
11174        ("yelp-tools" ,yelp-tools)))
11175     (propagated-inputs
11176      `(("telepathy-idle" ,telepathy-idle)
11177        ("telepathy-mission-control" ,telepathy-mission-control)))
11178     (synopsis "Simple IRC Client")
11179     (description
11180      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11181 integrate seamlessly with the GNOME desktop.")
11182     (home-page "https://wiki.gnome.org/Apps/Polari")
11183     (license license:gpl2+)))
11184
11185 (define-public gnome-boxes
11186   (package
11187     (name "gnome-boxes")
11188     (version "3.36.6")
11189     (source
11190      (origin
11191        (method url-fetch)
11192        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11193                            (version-major+minor version) "/"
11194                            "gnome-boxes-" version ".tar.xz"))
11195        (sha256
11196         (base32 "0c3cw90xqqcpacc2z06ljs0gg8saxizfgjzg9alhpwgz3gl4c5pg"))))
11197     (build-system meson-build-system)
11198     (arguments
11199      '(#:glib-or-gtk? #t
11200        #:configure-flags (list "-Drdp=false"
11201                                (string-append "-Dc_link_args=-Wl,-rpath="
11202                                               (assoc-ref %outputs "out")
11203                                               "/lib/gnome-boxes"))))
11204     (native-inputs
11205      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
11206        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
11207        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11208        ("itstool" ,itstool)
11209        ("intltool" ,intltool)
11210        ("vala" ,vala)
11211        ("pkg-config" ,pkg-config)))
11212     (inputs
11213      `(("libarchive" ,libarchive)
11214        ("glib-networking" ,glib-networking) ;for TLS support
11215        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11216        ("gtk" ,gtk+)
11217        ("gtk-vnc" ,gtk-vnc)
11218        ("libosinfo" ,libosinfo)
11219        ("libsecret" ,libsecret)
11220        ("libsoup" ,libsoup)
11221        ("libusb" ,libusb)
11222        ("libvirt" ,libvirt)
11223        ("libvirt-glib" ,libvirt-glib)
11224        ("libxml" ,libxml2)
11225        ("spice-gtk" ,spice-gtk)
11226        ("sparql-query" ,sparql-query)
11227        ("vte" ,vte)
11228        ("webkitgtk" ,webkitgtk)
11229        ("tracker" ,tracker)
11230        ("libgudev" ,libgudev)))
11231     (home-page "https://wiki.gnome.org/Apps/Boxes")
11232     (synopsis "View, access, and manage remote and virtual systems")
11233     (description "GNOME Boxes is a simple application to view, access, and
11234 manage remote and virtual systems.  Note that this application requires the
11235 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11236 @command{info '(guix) Virtualization Services'} to learn how to configure
11237 these services on the Guix System.")
11238     (license (list
11239               ;; For data/icons/empty-boxes.png.
11240               license:cc-by2.0
11241               ;; For all others.
11242               license:lgpl2.0+))))
11243
11244 (define-public geary
11245   (package
11246     (name "geary")
11247     (version "3.34.1")
11248     (source (origin
11249               (method git-fetch)
11250               (uri (git-reference
11251                     (url "https://gitlab.gnome.org/GNOME/geary")
11252                     (commit version)))
11253               (file-name (git-file-name name version))
11254               (sha256
11255                (base32
11256                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
11257     (build-system meson-build-system)
11258     (arguments
11259      `(#:glib-or-gtk? #t
11260        #:phases (modify-phases %standard-phases
11261                   (add-after 'unpack 'disable-failing-tests
11262                     (lambda _
11263                       (substitute* "test/meson.build"
11264                         (("test\\('client-tests', geary_test_client_bin\\)")
11265                          ""))
11266                       #t))
11267                   (add-after 'unpack 'disable-postinstall-script
11268                     (lambda _
11269                       (substitute* "meson.build"
11270                         (("meson.add_install_script\\(\
11271 join_paths\\('build-aux', 'post_install.py'\\)\\)")
11272                          ""))
11273                       #t))
11274                   (add-before 'check 'setup-xvfb
11275                     (lambda _
11276                       (system "Xvfb :1 &")
11277                       (setenv "DISPLAY" ":1")
11278                       #t)))))
11279     (inputs
11280      `(("enchant" ,enchant)
11281        ("folks" ,folks)
11282        ("gcr" ,gcr)
11283        ("glib" ,glib)
11284        ("gmime" ,gmime-2.6)
11285        ("gnome-online-accounts:lib"
11286         ,gnome-online-accounts "lib")
11287        ("gspell" ,gspell)
11288        ("gtk+" ,gtk+)
11289        ("iso-codes" ,iso-codes)
11290        ("json-glib" ,json-glib)
11291        ("libcanberra" ,libcanberra)
11292        ("libgee" ,libgee)
11293        ("libhandy" ,libhandy-0.0)
11294        ("libpeas" ,libpeas)
11295        ("libsecret" ,libsecret)
11296        ("libunwind" ,libunwind)
11297        ("sqlite" ,sqlite)
11298        ("webkitgtk" ,webkitgtk)
11299        ("ytnef" ,ytnef)))
11300     (native-inputs
11301      `(("appstream-glib" ,appstream-glib)
11302        ("cmake-minimal" ,cmake-minimal)
11303        ("desktop-file-utils" ,desktop-file-utils)
11304        ("gettext" ,gettext-minimal)
11305        ("glib:bin" ,glib "bin")
11306        ("gobject-introspection" ,gobject-introspection)
11307        ("itstool" ,itstool)
11308        ("libarchive" ,libarchive)
11309        ("libxml2" ,libxml2)
11310        ("pkg-config" ,pkg-config)
11311        ("vala" ,vala)
11312        ("xvfb" ,xorg-server-for-tests)))
11313     (synopsis "GNOME email application built around conversations")
11314     (description
11315      "Geary collects related messages together into conversations,
11316 making it easy to find and follow your discussions.  Full-text and keyword
11317 search makes it easy to find the email you are looking for.  Geary's
11318 full-featured composer lets you send rich, styled text with images, links, and
11319 lists, but also send lightweight, easy to read text messages.  Geary
11320 automatically picks up your existing GNOME Online Accounts, and adding more is
11321 easy.  Geary has a clean, fast, modern interface that works like you want it
11322 to.")
11323     (home-page "https://wiki.gnome.org/Apps/Geary")
11324     (license (list
11325               ;; geary
11326               license:lgpl2.1+
11327               ;; icons
11328               license:cc-by3.0
11329               license:cc-by-sa3.0
11330               license:public-domain
11331               ;; snowball
11332               license:bsd-2))))
11333
11334 (define-public glabels
11335   (package
11336     (name "glabels")
11337     (version "3.4.1")
11338     (source
11339      (origin
11340        (method url-fetch)
11341        (uri (string-append "mirror://gnome/sources/" name "/"
11342                            (version-major+minor version)  "/"
11343                            "glabels-" version ".tar.xz"))
11344        (sha256
11345         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11346     (build-system glib-or-gtk-build-system)
11347     (native-inputs
11348      `(("gettext" ,gettext-minimal)
11349        ("glib:bin" ,glib "bin")
11350        ("intltool" ,intltool)
11351        ("itstool" ,itstool)
11352        ("pkg-config" ,pkg-config)))
11353     (inputs
11354      `(("gtk+" ,gtk+)
11355        ("librsvg" ,librsvg)
11356        ("libxml2" ,libxml2)))
11357     (home-page "https://glabels.org/")
11358     (synopsis "Program for creating labels and business cards")
11359     (description
11360      "gLabels is a program for creating labels and business cards.  It is
11361 designed to work with various laser/ink-jet peel-off label and business
11362 card sheets that you’ll find at most office supply stores.")
11363     (license license:gpl3+)))
11364
11365 ;; Version 3.38.0 is out but requires tepl>=5 which requires glib>=2.64.
11366 (define-public gnome-latex
11367   (package
11368     (name "gnome-latex")
11369     (version "3.36.0")
11370     (source
11371      (origin
11372        (method url-fetch)
11373        (uri (string-append "mirror://gnome/sources/" name "/"
11374                            (version-major+minor version)  "/"
11375                            "gnome-latex-" version ".tar.xz"))
11376        (sha256
11377         (base32 "1869kr1zhcp04mzbi67lwgk497w840dbbc7427i9yh9b9s7j6mqn"))))
11378     (build-system glib-or-gtk-build-system)
11379     (native-inputs
11380      `(("gettext" ,gettext-minimal)
11381        ("glib:bin" ,glib "bin")
11382        ("gobject-introspection" ,gobject-introspection)
11383        ("gtk-doc" ,gtk-doc)
11384        ("intltool" ,intltool)
11385        ("itstool" ,itstool)
11386        ("pkg-config" ,pkg-config)
11387        ("vala" ,vala)))
11388     (inputs
11389      `(("amtk" ,amtk)
11390        ("dconf" ,dconf)
11391        ("glib" ,glib)
11392        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11393        ("gspell" ,gspell)
11394        ("gtk+" ,gtk+)
11395        ("gtksourceview" ,gtksourceview)
11396        ("libgee" ,libgee)
11397        ("tepl" ,tepl)
11398        ("uchardet" ,uchardet)))
11399     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11400     (synopsis "LaTeX editor for the GNOME desktop")
11401     (description
11402      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11403 such as build tools, completion of LaTeX commands, structure navigation,
11404 symbol tables, document templates, project management, spell-checking, menus
11405 and toolbars.")
11406     (license license:gpl3+)))
11407
11408 (define-public setzer
11409   (package
11410     (name "setzer")
11411     (version "0.3.9")
11412     (source
11413      (origin
11414        (method git-fetch)
11415        (uri (git-reference
11416              (url "https://github.com/cvfosammmm/Setzer")
11417              (commit (string-append "v" version))))
11418        (file-name (git-file-name name version))
11419        (sha256
11420         (base32 "1qmy2bxl8x6pijjaaj91v6rqdipha6iyy0b6b9y1lk3r2p3azd42"))))
11421     (build-system meson-build-system)
11422     (arguments
11423      `(#:glib-or-gtk? #t
11424        #:phases
11425        (modify-phases %standard-phases
11426          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11427            (lambda* (#:key outputs #:allow-other-keys)
11428              (let ((prog (string-append (assoc-ref outputs "out")
11429                                         "/bin/setzer"))
11430                    (pylib (string-append (assoc-ref outputs "out")
11431                                          "/lib/python"
11432                                          ,(version-major+minor
11433                                            (package-version python))
11434                                          "/site-packages")))
11435                (wrap-program prog
11436                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
11437                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11438                #t))))))
11439     (native-inputs
11440      `(("desktop-file-utils" ,desktop-file-utils)
11441        ("gettext" ,gettext-minimal)
11442        ("glib:bin" ,glib "bin")
11443        ("gobject-introspection" ,gobject-introspection)
11444        ("gtk+:bin" ,gtk+ "bin")))
11445     (inputs
11446      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11447        ("gspell" ,gspell)
11448        ("gtk+" ,gtk+)
11449        ("gtksourceview" ,gtksourceview)
11450        ("pango" ,pango)
11451        ("poppler" ,poppler)
11452        ("python-pycairo" ,python-pycairo)
11453        ("python-pygobject" ,python-pygobject)
11454        ("python-pyxdg" ,python-pyxdg)
11455        ("webkitgtk" ,webkitgtk)
11456        ("xdg-utils" ,xdg-utils)))
11457     (home-page "https://www.cvfosammmm.org/setzer/")
11458     (synopsis "LaTeX editor written in Python with GTK+")
11459     (description
11460      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11461 GTK+.  It integrates well with the GNOME desktop environment.")
11462     (license license:gpl3+)))
11463
11464 (define-public libratbag
11465   (package
11466     (name "libratbag")
11467     (version "0.14")
11468     (source
11469      (origin
11470        (method git-fetch)
11471        (uri (git-reference
11472              (url "https://github.com/libratbag/libratbag")
11473              (commit (string-append "v" version))))
11474        (file-name (git-file-name name version))
11475        (sha256
11476         (base32 "1fpwp2sj8mf98bqasq2h8qwgprxi7k3iw33gcfid3d1lbyiacw0x"))))
11477     (build-system meson-build-system)
11478     (arguments
11479      `(#:configure-flags
11480        (list "-Dsystemd=false"
11481              "-Dlogind-provider=elogind")
11482        #:phases
11483        (modify-phases %standard-phases
11484          (add-after 'install 'wrap
11485            (lambda* (#:key inputs outputs #:allow-other-keys)
11486              (let* ((out (assoc-ref outputs "out"))
11487                     (site (string-append
11488                            "/lib/python"
11489                            ,(version-major+minor (package-version python))
11490                            "/site-packages"))
11491                     (evdev (string-append
11492                             (assoc-ref inputs "python-evdev") site))
11493                     (pygo (string-append
11494                            (assoc-ref inputs "python-pygobject") site))
11495                     (python-wrap
11496                      `("PYTHONPATH" = (,evdev ,pygo))))
11497                (wrap-program (string-append out "/bin/" "ratbagctl")
11498                  python-wrap)
11499                #t))))))
11500     (native-inputs
11501      `(("check" ,check)
11502        ("pkg-config" ,pkg-config)
11503        ("swig" ,swig)
11504        ("valgrind" ,valgrind)))
11505     (inputs
11506      `(("glib" ,glib)
11507        ("json-glib" ,json-glib)
11508        ("libevdev" ,libevdev)
11509        ("libsystemd" ,elogind)
11510        ("libunistring" ,libunistring)
11511        ("python-evdev" ,python-evdev)
11512        ("python-pygobject" ,python-pygobject)
11513        ("udev" ,eudev)))
11514     (home-page "https://github.com/libratbag/libratbag")
11515     (synopsis "DBus daemon and utility for configuring gaming mice")
11516     (description "libratbag provides @command{ratbagd}, a DBus daemon to
11517 configure input devices, mainly gaming mice.  The daemon provides a generic
11518 way to access the various features exposed by these mice and abstracts away
11519 hardware-specific and kernel-specific quirks.  There is also the
11520 @command{ratbagctl} command line interface for configuring devices.
11521
11522 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
11523 Steelseries.
11524
11525 The ratbagd DBus service can be enabled by adding the following service to
11526 your operating-system definition:
11527
11528   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11529     (license license:expat)))
11530
11531 (define-public piper
11532   (package
11533     (name "piper")
11534     (version "0.5.1")
11535     (source
11536      (origin
11537        (method git-fetch)
11538        (uri (git-reference
11539              (url "https://github.com/libratbag/piper")
11540              (commit version)))
11541        (sha256
11542         (base32 "1nfjnsiwg2rs6gkjsxzhr2708i6di149dgwq3cf6l12rxqpb8arj"))
11543        (file-name (git-file-name name version))))
11544     (build-system meson-build-system)
11545     (native-inputs
11546      `(("gettext" ,gettext-minimal)
11547        ("glib:bin" ,glib "bin")
11548        ("gobject-introspection" ,gobject-introspection)
11549        ("pkg-config" ,pkg-config)
11550        ("python-flake8" ,python-flake8)))
11551     (inputs
11552      `(("adwaita-icon-theme" ,adwaita-icon-theme)
11553        ("gtk" ,gtk+)
11554        ("gtk:bin" ,gtk+ "bin")
11555        ("librsvg" ,librsvg)
11556        ("python-evdev" ,python-evdev)
11557        ("python-lxml" ,python-lxml)
11558        ("python-pycairo" ,python-pycairo)
11559        ("python-pygobject" ,python-pygobject)))
11560     (arguments
11561      `(#:imported-modules ((guix build python-build-system)
11562                            ,@%meson-build-system-modules)
11563        #:modules (((guix build python-build-system) #:prefix python:)
11564                   (guix build meson-build-system)
11565                   (guix build utils))
11566        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
11567        #:phases
11568        (modify-phases %standard-phases
11569          (add-after 'unpack 'dont-update-gtk-icon-cache
11570            (lambda _
11571              (substitute* "meson.build"
11572                (("meson.add_install_script('meson_install.sh')") ""))
11573              #t))
11574          ;; TODO: Switch to wrap-script when it is fixed.
11575          (add-after 'install 'wrap-python
11576            (assoc-ref python:%standard-phases 'wrap))
11577          (add-after 'wrap-python 'wrap
11578            (lambda* (#:key outputs #:allow-other-keys)
11579              (wrap-program
11580                  (string-append (assoc-ref outputs "out" )"/bin/piper")
11581                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11582              #t)))))
11583     (home-page "https://github.com/libratbag/piper/")
11584     (synopsis "Configure bindings and LEDs on gaming mice")
11585     (description "Piper is a GTK+ application for configuring gaming mice with
11586 onboard configuration for key bindings via libratbag.  Piper requires
11587 a @command{ratbagd} daemon running with root privileges.  It can be run
11588 manually as root, but is preferably configured as a DBus service that can
11589 launch on demand.  This can be configured by enabling the following service,
11590 provided there is a DBus service present:
11591
11592   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11593     (license license:gpl2)))
11594
11595 (define-public parlatype
11596   (package
11597     (name "parlatype")
11598     (version "2.1")
11599     (source
11600      (origin
11601        (method git-fetch)
11602        (uri (git-reference
11603              (url "https://github.com/gkarsay/parlatype")
11604              (commit (string-append "v" version))))
11605        (file-name (git-file-name name version))
11606        (sha256
11607         (base32 "1c15ja0rwz3jj8bnqdq0nmqka39iwrhy8krdv2a2x8nl4shfpmv0"))))
11608     (build-system meson-build-system)
11609     (arguments
11610      `(#:glib-or-gtk? #t
11611        #:tests? #f                      ;require internet access
11612        #:phases
11613        (modify-phases %standard-phases
11614          (add-after 'install 'wrap-parlatype
11615            ;; Add gstreamer plugin provided in this package to system's
11616            ;; plugins.
11617            (lambda* (#:key outputs #:allow-other-keys)
11618              (let* ((out (assoc-ref outputs "out"))
11619                     (gst-plugin-path (string-append
11620                                       out "/lib/gstreamer-1.0/"
11621                                       ":"
11622                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
11623                (wrap-program (string-append out "/bin/parlatype")
11624                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
11625              #t)))))
11626     (native-inputs
11627      `(("appstream-glib" ,appstream-glib)
11628        ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11629        ("gettext" ,gettext-minimal)
11630        ("glib" ,glib "bin")             ;for glib-compile-resources
11631        ("pkg-config" ,pkg-config)
11632        ("yelp-tools" ,yelp-tools)))
11633     (inputs
11634      `(("gst-plugins-base" ,gst-plugins-base)
11635        ("gst-plugins-good" ,gst-plugins-good)
11636        ("gstreamer" ,gstreamer)
11637        ("gtk+" ,gtk+)
11638        ("pocketsphinx" ,pocketsphinx)
11639        ("pulseaudio" ,pulseaudio)
11640        ("sphinxbase" ,sphinxbase)))
11641     (home-page "http://gkarsay.github.io/parlatype/")
11642     (synopsis "GNOME audio player for transcription")
11643     (description "Parlatype is an audio player for the GNOME desktop
11644 environment.  Its main purpose is the manual transcription of spoken
11645 audio files.")
11646     (license license:gpl3+)))
11647
11648 (define-public jsonrpc-glib
11649   (package
11650     (name "jsonrpc-glib")
11651     (version "3.34.0")
11652     (source (origin
11653               (method url-fetch)
11654               (uri (string-append "mirror://gnome/sources/" name "/"
11655                                   (version-major+minor version) "/"
11656                                    name "-" version ".tar.xz"))
11657               (sha256
11658                (base32
11659                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
11660     (build-system meson-build-system)
11661     (inputs
11662      `(("json-glib" ,json-glib)
11663        ("glib" ,glib)))
11664     (native-inputs
11665      `(("pkg-config" ,pkg-config)
11666        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
11667        ("gobject-introspection" ,gobject-introspection)
11668        ("vala" ,vala)))
11669     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
11670     (synopsis "JSON-RPC library for GLib")
11671     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
11672 peers in either a synchronous or asynchronous fashion.  It also allows
11673 communicating using the GVariant serialization format instead of JSON when
11674 both peers support it.  You might want that when communicating on a single
11675 host to avoid parser overhead and memory-allocator fragmentation.")
11676     (license license:lgpl2.1+)))
11677
11678 (define-public feedbackd
11679   (package
11680     (name "feedbackd")
11681     (version "0.0.0+git20200527")
11682     (source (origin
11683               (method git-fetch)
11684               (uri (git-reference
11685                     (url "https://source.puri.sm/Librem5/feedbackd.git")
11686                     (commit (string-append "v" version))))
11687               (file-name (git-file-name name version))
11688               (sha256
11689                (base32
11690                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
11691     (build-system meson-build-system)
11692     (native-inputs
11693      `(("glib:bin" ,glib "bin")
11694        ("gobject-introspection" ,gobject-introspection)
11695        ("pkg-config" ,pkg-config)
11696        ("vala" ,vala)))
11697     (inputs
11698      `(("dbus" ,dbus)
11699        ("gsound" ,gsound)
11700        ("json-glib" ,json-glib)
11701        ("libgudev" ,libgudev)))
11702     (propagated-inputs
11703      `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
11704     (synopsis "Haptic/visual/audio feedback via DBus")
11705     (description "Feedbackd provides a DBus daemon to act on events to provide
11706 haptic, visual and audio feedback.  It offers the libfeedbackd library and
11707 GObject introspection bindings.")
11708      (home-page "https://source.puri.sm/Librem5/feedbackd")
11709      (license (list license:lgpl2.1+   ; libfeedbackd
11710                     license:lgpl3+)))) ; the rest
11711
11712 (define-public sysprof
11713   (package
11714     (name "sysprof")
11715     (version "3.36.0")
11716     (source
11717      (origin
11718        (method url-fetch)
11719        (uri (string-append "mirror://gnome/sources/sysprof/"
11720                            (version-major+minor version) "/"
11721                            "sysprof-" version ".tar.xz"))
11722        (sha256
11723         (base32 "024i0gzqnm79rpr4gqxdvcj6gvf82xdlcp2p1k9ikcppmi6xnw46"))))
11724     (build-system meson-build-system)
11725     (arguments
11726      `(#:configure-flags
11727        (list (string-append "-Dsystemdunitdir="
11728                             %output
11729                             "/share/systemd"))
11730        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
11731        #:phases
11732        (modify-phases %standard-phases
11733          (add-after 'unpack 'patch-install-script
11734            (lambda _
11735              (substitute* "build-aux/meson/post_install.sh"
11736                (("gtk-update-icon-cache") "true")
11737                (("update-desktop-database") "true"))
11738              #t)))))
11739     (inputs
11740      `(("glib" ,glib)
11741        ("gtk+" ,gtk+)
11742        ("libdazzle" ,libdazzle)
11743        ("polkit" ,polkit)))
11744     (native-inputs
11745      `(("gettext" ,gettext-minimal)
11746        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
11747        ("itstool" ,itstool)
11748        ("pkg-config" ,pkg-config)
11749        ("xmllint" ,libxml2)))
11750     ;; This home page is so woefully out of date as to be essentially useless.
11751     ;; (home-page "http://www.sysprof.com")
11752     (home-page "https://wiki.gnome.org/Apps/Sysprof")
11753     (synopsis "System-wide performance profiler for GNU/Linux")
11754     (description
11755      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
11756 GNU/Linux system including the kernel and all user-space applications.  This
11757 helps find the function(s) in which a program spends most of its time.
11758
11759 It uses the kernel's built-in @code{ptrace} feature and handles shared
11760 libraries.  Applications do not need to be recompiled--or even restarted.")
11761     (license license:gpl3+)))
11762
11763 (define-public gnome-builder
11764   (package
11765     (name "gnome-builder")
11766     (version "3.36.1")
11767     (source (origin
11768               (method url-fetch)
11769               (uri (string-append "mirror://gnome/sources/" name "/"
11770                                   (version-major+minor version) "/"
11771                                   name "-" version ".tar.xz"))
11772               (sha256
11773                (base32
11774                 "17pvmd5jypar8dkr6w56hvf7jnq4l1wih2wwgkrv7sblr7rkkar2"))))
11775     (build-system meson-build-system)
11776     (arguments
11777      `(#:configure-flags (list "-Dnetwork_tests=false"
11778                                ;; TODO: Enable all plugins...
11779                                "-Dplugin_clang=false"
11780                                "-Dplugin_flatpak=false"
11781                                "-Dplugin_glade=false"
11782                                ;; XXX: This one has been shown not to work in
11783                                ;;      <https://issues.guix.gnu.org/45272>
11784                                "-Dplugin_jedi=false"
11785                                ;; ... except this one.
11786                                "-Dplugin_update_manager=false")
11787        #:phases
11788        (modify-phases %standard-phases
11789          (add-after 'unpack 'patch-meson
11790            (lambda* (#:key inputs #:allow-other-keys)
11791              (substitute* "build-aux/meson/post_install.py"
11792                (("gtk-update-icon-cache") "true")
11793                (("update-desktop-database") "true"))
11794              (substitute* "src/libide/meson.build"
11795                (("/usr/lib")
11796                 (string-append (assoc-ref inputs "python-pygobject")
11797                                "/lib")))
11798              #t))
11799          (add-after 'configure 'fix-ninja
11800            (lambda _
11801              ;; #43296: meson(?) incorrectly assumes we want to link
11802              ;;         this PIE against a static libselinux.
11803              (substitute* "build.ninja"
11804                (("libselinux\\.a") "libselinux.so"))
11805              #t))
11806          (add-before 'check 'pre-check
11807            (lambda _
11808              (system "Xvfb :1 &")
11809              (setenv "DISPLAY" ":1")
11810              #t)))))
11811     (inputs
11812      `(("devhelp" ,devhelp)
11813        ("gspell" ,gspell)
11814        ("gtk+" ,gtk+)
11815        ("json-glib" ,json-glib)
11816        ("jsonrpc-glib" ,jsonrpc-glib)
11817        ("libdazzle" ,libdazzle)
11818        ("libgit2-glib" ,libgit2-glib)
11819        ("libpeas" ,libpeas)
11820        ("python-pygobject" ,python-pygobject)
11821        ("sysprof" ,sysprof)
11822        ("template-glib" ,template-glib)
11823        ("vte" ,vte)
11824        ("webkitgtk" ,webkitgtk)))
11825     (propagated-inputs
11826      `(("gtksourceview" ,gtksourceview)))         ;needed for settings
11827     (native-inputs
11828      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11829        ("glib:bin" ,glib "bin")
11830        ("gettext" ,gettext-minimal)
11831        ("pkg-config" ,pkg-config)
11832        ("vala" ,vala)
11833        ("xorg-server" ,xorg-server-for-tests)))
11834     (home-page "https://wiki.gnome.org/Apps/Builder")
11835     (synopsis "Toolsmith for GNOME-based applications")
11836     (description "Builder aims to be an integrated development
11837 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
11838 auto-completion, a mini code map, documentation browsing, Git integration, an
11839 integrated profiler via Sysprof, debugging support, and more.")
11840     (license license:gpl3+)))
11841
11842 (define-public komikku
11843   (package
11844     (name "komikku")
11845     (version "0.25.1")
11846     (source
11847      (origin
11848        (method git-fetch)
11849        (uri (git-reference
11850              (url "https://gitlab.com/valos/Komikku/")
11851              (commit (string-append "v" version))))
11852        (file-name (git-file-name name version))
11853        (sha256
11854         (base32
11855          "03skci66y9qqiv4bqbbc0w6d6agilwmx95cw7sribj06zcykm7m3"))))
11856     (build-system meson-build-system)
11857     (arguments
11858      `(#:glib-or-gtk? #t
11859        #:phases
11860        (modify-phases %standard-phases
11861          (add-after 'unpack 'patch-sources
11862            (lambda _
11863              (substitute* "komikku/utils.py"
11864                (("from komikku\\.servers import get_servers_list")
11865                 ;; code following that line should migrate old databases
11866                 ;; but the line itself results in an import error
11867                 "return data_dir_path"))))
11868          (add-after 'unpack 'skip-gtk-update-icon-cache
11869            (lambda _
11870              (substitute* "meson_post_install.py"
11871                (("gtk-update-icon-cache") (which "true")))
11872              #t))
11873          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11874           (lambda* (#:key outputs #:allow-other-keys)
11875             (let ((prog (string-append (assoc-ref outputs "out")
11876                                        "/bin/komikku")))
11877               (wrap-program prog
11878                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
11879                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11880               #t))))))
11881     (inputs
11882      `(("gtk+" ,gtk+)
11883        ("libhandy" ,libhandy)
11884        ("libnotify" ,libnotify)
11885        ("libsecret" ,libsecret)
11886        ("python-beautifulsoup4" ,python-beautifulsoup4)
11887        ("python-dateparser" ,python-dateparser)
11888        ("python-keyring" ,python-keyring)
11889        ("python-lxml" ,python-lxml)
11890        ("python-magic" ,python-magic)
11891        ("python-pillow" ,python-pillow)
11892        ("python-pure-protobuf" ,python-pure-protobuf)
11893        ("python-pycairo" ,python-pycairo)
11894        ("python-pygobject" ,python-pygobject)
11895        ("python-requests" ,python-requests)
11896        ("python-unidecode" ,python-unidecode)))
11897     (native-inputs
11898      `(("desktop-file-utils" ,desktop-file-utils)
11899        ("gettext" ,gettext-minimal)
11900        ("glib:bin" ,glib "bin")
11901        ("gobject-introspection" ,gobject-introspection)
11902        ("pkg-config" ,pkg-config)))
11903     (home-page "https://gitlab.com/valos/Komikku")
11904     (synopsis "Manga reader for GNOME")
11905     (description "Komikku is an online/offline manga reader for GNOME,
11906 developed with the aim of being used with the Librem 5 phone.")
11907     (license license:gpl3+)))
11908
11909 (define-public libgda
11910   (package
11911     (name "libgda")
11912     (version "5.2.10")
11913     (source
11914      (origin
11915        (method git-fetch)
11916        (uri (git-reference
11917              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
11918              (commit (string-append "LIBGDA_" (string-replace-substring
11919                                                version "." "_")))))
11920        (file-name (git-file-name name version))
11921        (sha256
11922         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
11923     (build-system gnu-build-system)
11924     (arguments
11925      `(#:configure-flags '("--enable-vala")
11926        ;; There's a race between check_cnc_lock and check_threaded_cnc
11927        ;; in tests/multi-threading.
11928        #:parallel-tests? #f
11929        #:phases
11930        (modify-phases %standard-phases
11931          (add-after 'unpack 'fix-glade-install
11932            (lambda _
11933              (substitute* "configure.ac"
11934                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
11935                 "${datadir}/glade/catalogs")
11936                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
11937                 "${datadir}/glade/pixmaps"))
11938              #t))
11939          (add-before 'check 'pre-check
11940            (lambda* (#:key inputs #:allow-other-keys)
11941              ;; Tests require a running X server.
11942              (system "Xvfb :1 &")
11943              (setenv "DISPLAY" ":1")
11944              #t))
11945          (add-after 'install 'symlink-glade-module
11946            (lambda* (#:key outputs #:allow-other-keys)
11947              (let* ((shlib "libgda-ui-5.0.so")
11948                     (out (assoc-ref outputs "out"))
11949                     (out/lib (string-append out "/lib"))
11950                     (moduledir (string-append out/lib "/glade/modules")))
11951                (mkdir-p moduledir)
11952                (symlink (string-append out/lib "/" shlib)
11953                         (string-append moduledir "/" shlib))
11954                #t))))))
11955     (propagated-inputs
11956      `(("libxml2" ,libxml2)))           ; required by libgda-5.0.pc
11957     (inputs
11958      `(("glib" ,glib)
11959        ("glade" ,glade3)
11960        ("gtk+" ,gtk+)
11961        ("libsecret" ,libsecret)
11962        ("libxslt" ,libxslt)
11963        ("openssl" ,openssl)
11964        ("vala" ,vala)))
11965     (native-inputs
11966      `(("autoconf" ,autoconf)
11967        ("autoconf-archive" ,autoconf-archive)
11968        ("automake" ,automake)
11969        ("glib:bin" ,glib "bin")
11970        ("gnome-common" ,gnome-common)
11971        ("gobject-introspection" ,gobject-introspection)
11972        ("gtk-doc" ,gtk-doc)
11973        ("intltool" ,intltool)
11974        ("libtool" ,libtool)
11975        ("pkg-config" ,pkg-config)
11976        ("vala" ,vala)
11977        ("which" ,which)
11978        ("xorg-server" ,xorg-server-for-tests)
11979        ("yelp-tools" ,yelp-tools)))
11980     (home-page "https://gitlab.gnome.org/GNOME/libgda")
11981     (synopsis "Uniform data access")
11982     (description
11983      "GNU Data Access (GDA) is an attempt to provide uniform access to
11984 different kinds of data sources (databases, information servers, mail spools,
11985 etc).  It is a complete architecture that provides all you need to access
11986 your data.")
11987     (license license:lgpl2.1+)))
11988
11989 (define-public gtranslator
11990   (package
11991     (name "gtranslator")
11992     (version "3.36.0")
11993         (source (origin
11994               (method url-fetch)
11995               (uri (string-append "mirror://gnome/sources/" name "/"
11996                                   (version-major+minor version) "/"
11997                                   name "-" version ".tar.xz"))
11998               (sha256
11999                (base32
12000                 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12001     (build-system meson-build-system)
12002     (inputs
12003      `(("json-glib" ,json-glib)
12004        ("jsonrpc-glib" ,jsonrpc-glib)
12005        ("gettext" ,gettext-minimal)
12006        ("glib" ,glib)
12007        ("gtk+" ,gtk+)
12008        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12009        ("gspell" ,gspell)
12010        ("libdazzle" ,libdazzle)
12011        ("libgda" ,libgda)
12012        ("libsoup" ,libsoup)))
12013     (native-inputs
12014      `(("glib:bin" ,glib "bin")
12015        ("itstool" ,itstool)
12016        ("pkg-config" ,pkg-config)))
12017     (propagated-inputs
12018      `(("gtksourceview" ,gtksourceview))) ; required for source view
12019     (arguments
12020      `(#:build-type "release"
12021        #:glib-or-gtk? #t
12022        #:phases
12023        (modify-phases %standard-phases
12024          (add-after 'unpack 'skip-gtk-update-icon-cache
12025            (lambda _
12026              (substitute* "build-aux/meson/meson_post_install.py"
12027                (("gtk-update-icon-cache") (which "true")))
12028              #t)))))
12029     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12030     (synopsis "Translation making program")
12031     (description
12032      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12033 for the GNOME 3.x platform with many features.  It aims to be a very complete
12034 editing environment for translation issues within the GNU gettext/GNOME desktop
12035 world.")
12036     (license license:gpl3+)))