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 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, 2017, 2018, 2019, 2020 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 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 ;;;
  60 ;;; This file is part of GNU Guix.
  61 ;;;
  62 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  63 ;;; under the terms of the GNU General Public License as published by
  64 ;;; the Free Software Foundation; either version 3 of the License, or (at
  65 ;;; your option) any later version.
  66 ;;;
  67 ;;; GNU Guix is distributed in the hope that it will be useful, but
  68 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  69 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  70 ;;; GNU General Public License for more details.
  71 ;;;
  72 ;;; You should have received a copy of the GNU General Public License
  73 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  74
  75 (define-module (gnu packages gnome)
  76   #:use-module (gnu packages)
  77   #:use-module (gnu packages admin)
  78   #:use-module (gnu packages aidc)
  79   #:use-module (gnu packages aspell)
  80   #:use-module (gnu packages autotools)
  81   #:use-module (gnu packages avahi)
  82   #:use-module (gnu packages backup)
  83   #:use-module (gnu packages base)
  84   #:use-module (gnu packages bash)
  85   #:use-module (gnu packages bison)
  86   #:use-module (gnu packages boost)
  87   #:use-module (gnu packages build-tools)
  88   #:use-module (gnu packages calendar)
  89   #:use-module (gnu packages cdrom)
  90   #:use-module (gnu packages check)
  91   #:use-module (gnu packages cmake)
  92   #:use-module (gnu packages compression)
  93   #:use-module (gnu packages crates-io)
  94   #:use-module (gnu packages crates-graphics)
  95   #:use-module (gnu packages crates-gtk)
  96   #:use-module (gnu packages cups)
  97   #:use-module (gnu packages curl)
  98   #:use-module (gnu packages cyrus-sasl)
  99   #:use-module (gnu packages databases)
 100   #:use-module (gnu packages dbm)
 101   #:use-module (gnu packages djvu)
 102   #:use-module (gnu packages dns)
 103   #:use-module (gnu packages docbook)
 104   #:use-module (gnu packages documentation)
 105   #:use-module (gnu packages enchant)
 106   #:use-module (gnu packages flex)
 107   #:use-module (gnu packages fonts)
 108   #:use-module (gnu packages file-systems)
 109   #:use-module (gnu packages fontutils)
 110   #:use-module (gnu packages freedesktop)
 111   #:use-module (gnu packages game-development)
 112   #:use-module (gnu packages gcc)
 113   #:use-module (gnu packages gettext)
 114   #:use-module (gnu packages ghostscript)
 115   #:use-module (gnu packages gimp)
 116   #:use-module (gnu packages gl)
 117   #:use-module (gnu packages glib)
 118   #:use-module (gnu packages gnupg)
 119   #:use-module (gnu packages gnuzilla)
 120   #:use-module (gnu packages geo)
 121   #:use-module (gnu packages gperf)
 122   #:use-module (gnu packages graphviz)
 123   #:use-module (gnu packages gstreamer)
 124   #:use-module (gnu packages gtk)
 125   #:use-module (gnu packages guile)
 126   #:use-module (gnu packages ibus)
 127   #:use-module (gnu packages icu4c)
 128   #:use-module (gnu packages image)
 129   #:use-module (gnu packages imagemagick)
 130   #:use-module (gnu packages inkscape)
 131   #:use-module (gnu packages iso-codes)
 132   #:use-module (gnu packages kerberos)
 133   #:use-module (gnu packages libcanberra)
 134   #:use-module (gnu packages libffi)
 135   #:use-module (gnu packages libunistring)
 136   #:use-module (gnu packages libunwind)
 137   #:use-module (gnu packages libusb)
 138   #:use-module (gnu packages linux)
 139   #:use-module (gnu packages lirc)
 140   #:use-module (gnu packages lua)
 141   #:use-module (gnu packages mail)
 142   #:use-module (gnu packages mp3)
 143   #:use-module (gnu packages multiprecision)
 144   #:use-module (gnu packages music)
 145   #:use-module (gnu packages ncurses)
 146   #:use-module (gnu packages nettle)
 147   #:use-module (gnu packages networking)
 148   #:use-module (gnu packages ninja)
 149   #:use-module (gnu packages node)
 150   #:use-module (gnu packages nss)
 151   #:use-module (gnu packages openldap)
 152   #:use-module (gnu packages package-management)
 153   #:use-module (gnu packages password-utils)
 154   #:use-module (gnu packages pcre)
 155   #:use-module (gnu packages pdf)
 156   #:use-module (gnu packages perl)
 157   #:use-module (gnu packages photo)
 158   #:use-module (gnu packages php)
 159   #:use-module (gnu packages pkg-config)
 160   #:use-module (gnu packages polkit)
 161   #:use-module (gnu packages popt)
 162   #:use-module (gnu packages pretty-print)
 163   #:use-module (gnu packages protobuf)
 164   #:use-module (gnu packages pulseaudio)
 165   #:use-module (gnu packages python)
 166   #:use-module (gnu packages python-crypto)
 167   #:use-module (gnu packages python-web)
 168   #:use-module (gnu packages python-xyz)
 169   #:use-module (gnu packages rdesktop)
 170   #:use-module (gnu packages rdf)
 171   #:use-module (gnu packages readline)
 172   #:use-module (gnu packages ruby)
 173   #:use-module (gnu packages rust)
 174   #:use-module (gnu packages samba)
 175   #:use-module (gnu packages scanner)
 176   #:use-module (gnu packages sdl)
 177   #:use-module (gnu packages search)
 178   #:use-module (gnu packages selinux)
 179   #:use-module (gnu packages slang)
 180   #:use-module (gnu packages speech)
 181   #:use-module (gnu packages spice)
 182   #:use-module (gnu packages sqlite)
 183   #:use-module (gnu packages ssh)
 184   #:use-module (gnu packages swig)
 185   #:use-module (gnu packages tex)
 186   #:use-module (gnu packages time)
 187   #:use-module (gnu packages tls)
 188   #:use-module (gnu packages valgrind)
 189   #:use-module (gnu packages version-control)
 190   #:use-module (gnu packages video)
 191   #:use-module (gnu packages virtualization)
 192   #:use-module (gnu packages vpn)
 193   #:use-module (gnu packages web)
 194   #:use-module (gnu packages webkit)
 195   #:use-module (gnu packages xdisorg)
 196   #:use-module (gnu packages xiph)
 197   #:use-module (gnu packages xml)
 198   #:use-module (gnu packages xorg)
 199   #:use-module (gnu artwork)
 200   #:use-module ((guix build utils) #:select (modify-phases))
 201   #:use-module (guix build-system cargo)
 202   #:use-module (guix build-system cmake)
 203   #:use-module (guix build-system glib-or-gtk)
 204   #:use-module (guix build-system gnu)
 205   #:use-module (guix build-system meson)
 206   #:use-module (guix build-system python)
 207   #:use-module (guix build-system trivial)
 208   #:use-module (guix download)
 209   #:use-module (guix git-download)
 210   #:use-module ((guix licenses) #:prefix license:)
 211   #:use-module (guix packages)
 212   #:use-module (guix utils)
 213   #:use-module (guix gexp)
 214   #:use-module (guix monads)
 215   #:use-module (guix store)
 216   #:use-module (ice-9 match)
 217   #:use-module (srfi srfi-1))
 218
 219 (define-public gupnp-igd
 220   (package
 221     (name "gupnp-igd")
 222     (version "1.2.0")
 223     (source
 224      (origin
 225        (method url-fetch)
 226        (uri
 227         (string-append "mirror://gnome/sources/" name "/"
 228                        (version-major+minor version) "/"
 229                        name "-" version ".tar.xz"))
 230        (sha256
 231         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 232     (build-system meson-build-system)
 233     (outputs '("out" "doc"))
 234     (arguments
 235      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 236        #:configure-flags (list "-Dgtk_doc=true")
 237        #:phases
 238        (modify-phases %standard-phases
 239          (add-after 'unpack 'patch-docbook-xml
 240            (lambda* (#:key inputs #:allow-other-keys)
 241              (with-directory-excursion "doc"
 242                (substitute* "gupnp-igd-docs.xml"
 243                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 244                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 245                                  "/xml/dtd/docbook/"))))
 246              #t))
 247          (add-after 'install 'move-doc
 248            (lambda* (#:key outputs #:allow-other-keys)
 249              (let* ((out (assoc-ref outputs "out"))
 250                     (doc (assoc-ref outputs "doc")))
 251                (mkdir-p (string-append doc "/share"))
 252                (rename-file
 253                 (string-append out "/share/gtk-doc")
 254                 (string-append doc "/share/gtk-doc"))
 255                #t))))))
 256     (native-inputs
 257      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 258        ("docbook-xsl" ,docbook-xsl)
 259        ("glib:bin" ,glib "bin")
 260        ("gobject-introspection" ,gobject-introspection)
 261        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 262        ("gtk-doc" ,gtk-doc)
 263        ("pkg-config" ,pkg-config)))
 264     (propagated-inputs
 265      `(("glib" ,glib)
 266        ("glib-networking" ,glib-networking)
 267        ("gssdp" ,gssdp)
 268        ("gupnp" ,gupnp)
 269        ("libsoup" ,libsoup)))
 270     (synopsis "UPnP IGD for GNOME")
 271     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 272     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 273     (license license:lgpl2.1+)))
 274
 275 (define-public brasero
 276   (package
 277     (name "brasero")
 278     (version "3.12.2")
 279     (source (origin
 280              (method url-fetch)
 281              (uri (string-append "mirror://gnome/sources/brasero/"
 282                                  (version-major+minor version) "/"
 283                                  "brasero-" version ".tar.xz"))
 284              (sha256
 285               (base32
 286                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 287     (build-system glib-or-gtk-build-system)
 288     (arguments
 289      `(#:configure-flags (list
 290                           (string-append "--with-girdir="
 291                                          (assoc-ref %outputs "out")
 292                                          "/share/gir-1.0")
 293                           (string-append "--with-typelibdir="
 294                                          (assoc-ref %outputs "out")
 295                                          "/lib/girepository-1.0"))
 296        #:phases
 297        (modify-phases %standard-phases
 298          (add-before 'configure 'embed-growisofs
 299            (lambda* (#:key inputs #:allow-other-keys)
 300              (substitute* "plugins/growisofs/burn-growisofs.c"
 301                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 302              #t)))))
 303     (propagated-inputs
 304      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 305     (native-inputs
 306      `(("intltool" ,intltool)
 307        ("itstool" ,itstool)
 308        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 309        ("gobject-introspection" ,gobject-introspection)
 310        ("pkg-config" ,pkg-config)))
 311     (inputs
 312      `(("dvd+rw-tools" ,dvd+rw-tools)
 313        ("glib" ,glib)
 314        ("gnome-doc-utils" ,gnome-doc-utils)
 315        ("gstreamer" ,gstreamer)
 316        ("gst-plugins-base" ,gst-plugins-base)
 317        ("gtk+" ,gtk+)
 318        ("libcanberra" ,libcanberra)
 319        ("libice" ,libice)
 320        ("libnotify" ,libnotify)
 321        ("libsm" ,libsm)
 322        ("libxml2" ,libxml2)
 323        ("totem-pl-parser" ,totem-pl-parser)))
 324     (home-page "https://wiki.gnome.org/Apps/Brasero")
 325     (synopsis "CD/DVD burning tool for Gnome")
 326     (description "Brasero is an application to burn CD/DVD for the Gnome
 327 Desktop.  It is designed to be as simple as possible and has some unique
 328 features to enable users to create their discs easily and quickly.")
 329     (license license:gpl2+)))
 330
 331 (define-public libcloudproviders
 332   (package
 333     (name "libcloudproviders")
 334     (version "0.3.1")
 335     (source
 336      (origin
 337        (method url-fetch)
 338        (uri
 339         (string-append "mirror://gnome/sources/" name "/"
 340                        (version-major+minor version) "/"
 341                        name "-" version ".tar.xz"))
 342        (sha256
 343         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 344     (build-system meson-build-system)
 345     (outputs '("out" "doc"))
 346     (arguments
 347      `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
 348        #:configure-flags
 349        (list
 350         "-Denable-gtk-doc=true")
 351        #:phases
 352        (modify-phases %standard-phases
 353          (add-after 'install 'move-doc
 354            (lambda* (#:key outputs #:allow-other-keys)
 355              (let* ((out (assoc-ref outputs "out"))
 356                     (doc (assoc-ref outputs "doc")))
 357                (mkdir-p (string-append doc "/share"))
 358                (rename-file
 359                 (string-append out "/share/gtk-doc")
 360                 (string-append doc "/share/gtk-doc"))
 361                #t))))))
 362     (native-inputs
 363      `(("glib:bin" ,glib "bin")
 364        ("gobject-introspection" ,gobject-introspection)
 365        ("gtk-doc" ,gtk-doc)
 366        ("pkg-config" ,pkg-config)
 367        ("vala" ,vala)))
 368     (inputs
 369      `(("glib" ,glib)
 370        ("glib-networking" ,glib-networking)))
 371     (synopsis "Cloudproviders Integration API")
 372     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 373 clients to expose their services.  Clients such as file managers and desktop
 374 environments can then provide integrated access to the cloud providers
 375 services.")
 376     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 377     (license license:lgpl3+)))
 378
 379 (define-public libgrss
 380   (package
 381     (name "libgrss")
 382     (version "0.7.0")
 383     (source
 384      (origin
 385        (method url-fetch)
 386        (uri
 387         (string-append "mirror://gnome/sources/" name "/"
 388                        (version-major+minor version) "/"
 389                        name "-" version ".tar.xz"))
 390        (sha256
 391         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))))
 392     (build-system glib-or-gtk-build-system)
 393     (outputs '("out" "doc"))
 394     (arguments
 395      `(#:configure-flags
 396        (list
 397         "--enable-gtk-doc"
 398         (string-append "--with-html-dir="
 399                        (assoc-ref %outputs "doc")
 400                        "/share/gtk-doc/html"))
 401        #:phases
 402        (modify-phases %standard-phases
 403          (add-after 'unpack 'patch-docbook-xml
 404            (lambda* (#:key inputs #:allow-other-keys)
 405              (with-directory-excursion "doc/reference"
 406                (substitute* "libgrss-docs.sgml"
 407                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 408                   (string-append (assoc-ref inputs "docbook-xml")
 409                                  "/xml/dtd/docbook/"))))
 410              #t)))))
 411     (native-inputs
 412      `(("docbook-xml" ,docbook-xml-4.1.2)
 413        ("gobject-introspection" ,gobject-introspection)
 414        ("gtk-doc" ,gtk-doc)
 415        ("pkg-config" ,pkg-config)))
 416     (propagated-inputs
 417      `(("glib" ,glib)
 418        ("libsoup" ,libsoup)
 419        ("libxml2" ,libxml2)))
 420     (synopsis "Glib library for feeds")
 421     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 422 and other formats.")
 423     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 424     (license license:lgpl3+)))
 425
 426 (define-public gnome-js-common
 427   (package
 428     (name "gnome-js-common")
 429     (version "0.1.2")
 430     (source
 431      (origin
 432        (method url-fetch)
 433        (uri
 434         (string-append "mirror://gnome/sources/" name "/"
 435                        (version-major+minor version) "/"
 436                        name "-" version ".tar.gz"))
 437        (sha256
 438         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 439     (build-system glib-or-gtk-build-system)
 440     (arguments
 441      `(#:configure-flags
 442        (list
 443         "--disable-static")))
 444     (native-inputs
 445      `(("gettext" ,gettext-minimal)
 446        ("intltool" ,intltool)
 447        ("pkg-config" ,pkg-config)))
 448     (synopsis "Common JS Modules")
 449     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 450 bindings.")
 451     (home-page "https://wiki.gnome.org/Projects/Seed")
 452     (license license:gpl3+)))
 453
 454 (define-public seed
 455   (package
 456     (name "seed")
 457     (version "3.8.1")
 458     (source
 459      (origin
 460        (method url-fetch)
 461        (uri
 462         (string-append "mirror://gnome/sources/" name "/"
 463                        (version-major+minor version) "/"
 464                        name "-" version ".tar.xz"))
 465        (sha256
 466         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 467        (patches
 468         (search-patches "seed-webkit.patch"))))
 469     (build-system glib-or-gtk-build-system)
 470     (outputs '("out" "doc"))
 471     (arguments
 472      `(#:configure-flags
 473        (list
 474         "--disable-static"
 475         "--enable-xorg-module"
 476         (string-append "--with-html-dir="
 477                        (assoc-ref %outputs "doc")
 478                        "/share/gtk-doc/html")
 479         "--with-webkit=4.0")
 480        #:phases
 481        (modify-phases %standard-phases
 482          ;; The seed-webkit.patch patches configure.ac.
 483          ;; So the source files need to be re-bootstrapped.
 484          (add-after 'unpack 'trigger-bootstrap
 485            (lambda _
 486              (for-each delete-file
 487                        (list
 488                         "configure"
 489                         "Makefile.in"))
 490              #t))
 491          (add-after 'unpack 'patch-tests
 492            (lambda* (#:key outputs #:allow-other-keys)
 493              (substitute* (find-files "." "\\.js$")
 494               (("#!/usr/bin/env seed")
 495                (string-append "#!" (getcwd) "/src/seed")))
 496              #t))
 497          (add-before 'build 'patch-docbook-xml
 498            (lambda* (#:key inputs #:allow-other-keys)
 499              (with-directory-excursion "doc"
 500                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 501                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 502                   (string-append (assoc-ref inputs "docbook-xml")
 503                                  "/xml/dtd/docbook/"))))
 504              #t)))))
 505     (native-inputs
 506      `(("autoconf" ,autoconf)
 507        ("automake" ,automake)
 508        ("docbook-xml" ,docbook-xml-4.1.2)
 509        ("gettext" ,gettext-minimal)
 510        ("gobject-introspection" ,gobject-introspection)
 511        ("gtk-doc" ,gtk-doc)
 512        ("intltool" ,intltool)
 513        ("libtool" ,libtool)
 514        ("pkg-config" ,pkg-config)))
 515     (inputs
 516      `(("cairo" ,cairo)
 517        ("dbus" ,dbus)
 518        ("dbus-glib" ,dbus-glib)
 519        ("gnome-js-common" ,gnome-js-common)
 520        ("gtk+" ,gtk+)
 521        ("gtk+-2" ,gtk+-2)
 522        ("libffi" ,libffi)
 523        ("libxml2" ,libxml2)
 524        ("mpfr" ,mpfr)
 525        ("readline" ,readline)
 526        ("sqlite" ,sqlite)
 527        ("xscrnsaver" ,libxscrnsaver)))
 528     (propagated-inputs
 529      `(("glib" ,glib)
 530        ("webkit" ,webkitgtk)))
 531     (synopsis "GObject JavaScriptCore bridge")
 532     (description "Seed is a library and interpreter, dynamically bridging
 533 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 534 GNOME platform.  It serves as something which enables you to write standalone
 535 applications in JavaScript, or easily enable your application to be extensible
 536 in JavaScript.")
 537     (home-page "https://wiki.gnome.org/Projects/Seed")
 538     (license license:lgpl2.0+)))
 539
 540 (define-public libdmapsharing
 541   (package
 542     (name "libdmapsharing")
 543     (version "3.9.10")
 544     (source
 545      (origin
 546        (method url-fetch)
 547        (uri
 548         (string-append "https://www.flyn.org/projects/"
 549                        name "/" name "-" version ".tar.gz"))
 550        (sha256
 551         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 552     (build-system glib-or-gtk-build-system)
 553     (outputs '("out" "doc"))
 554     (arguments
 555      `(#:tests? #f                      ; Tests require networking.
 556        #:configure-flags
 557        (list
 558         "--disable-static"
 559         (string-append "--with-html-dir="
 560                        (assoc-ref %outputs "doc")
 561                        "/share/gtk-doc/html"))
 562        #:phases
 563        (modify-phases %standard-phases
 564          (add-after 'unpack 'patch-docbook-xml
 565            (lambda* (#:key inputs #:allow-other-keys)
 566              (with-directory-excursion "doc"
 567                (substitute* "libdmapsharing-4.0-docs.xml"
 568                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 569                   (string-append (assoc-ref inputs "docbook-xml")
 570                                  "/xml/dtd/docbook/"))))
 571              #t)))))
 572     (native-inputs
 573      `(("check" ,check)
 574        ("docbook-xml" ,docbook-xml-4.3)
 575        ("gobject-introspection" ,gobject-introspection)
 576        ("pedansee" ,pedansee)
 577        ("pkg-config" ,pkg-config)
 578        ("vala" ,vala)))
 579     (inputs
 580      `(("avahi" ,avahi)
 581        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 582        ("gee" ,libgee)
 583        ("gst-plugins-base" ,gst-plugins-base)
 584        ("gtk+" ,gtk+)))
 585     (propagated-inputs
 586      `(("glib" ,glib)
 587        ("glib-networking" ,glib-networking)
 588        ("gstreamer" ,gstreamer)
 589        ("libsoup" ,libsoup)))
 590     (synopsis "Media management library")
 591     (description "Libdmapsharing is a library which allows programs to access,
 592 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 593 It is written in C using GObject and libsoup.")
 594     (home-page "https://launchpad.net/gtx")
 595     (license license:lgpl2.1+)))
 596
 597 (define-public gtx
 598   (package
 599     (name "gtx")
 600     (version "0.2.2")
 601     (source
 602      (origin
 603        (method url-fetch)
 604        (uri
 605         (string-append "https://launchpad.net/gtx/trunk/"
 606                        version "/+download/gtx-" version ".tar.gz"))
 607        (sha256
 608         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 609     (build-system glib-or-gtk-build-system)
 610     (outputs '("out" "doc"))
 611     (arguments
 612      `(#:configure-flags
 613        (list
 614         "--disable-static"
 615         "--enable-gtk-doc"
 616         (string-append "--with-html-dir="
 617                        (assoc-ref %outputs "doc")
 618                        "/share/gtk-doc/html"))))
 619     (native-inputs
 620      `(("gobject-introspection" ,gobject-introspection)
 621        ("gtk-doc" ,gtk-doc)
 622        ("pkg-config" ,pkg-config)))
 623     (propagated-inputs
 624      `(("glib" ,glib)))
 625     (synopsis "GLib Testing Framework")
 626     (description "GTX is a small collection of convenience functions intended to
 627 enhance the GLib testing framework.  With specific emphasis on easing the pain
 628 of writing test cases for asynchronous interactions.")
 629     (home-page "https://launchpad.net/gtx")
 630     (license license:lgpl2.1+)))
 631
 632 (define-public dee
 633   (package
 634     (name "dee")
 635     (version "1.2.7")
 636     (source
 637      (origin
 638        (method url-fetch)
 639        (uri
 640         (string-append "https://launchpad.net/dee/1.0/"
 641                        version "/+download/dee-" version ".tar.gz"))
 642        (sha256
 643         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 644        (patches
 645         (search-patches "dee-vapi.patch"))))
 646     (build-system glib-or-gtk-build-system)
 647     (outputs '("out" "doc"))
 648     (arguments
 649      `(#:configure-flags
 650        (list
 651         "--disable-maintainer-flags"
 652         (string-append "--with-pygi-overrides-dir="
 653                        (assoc-ref %outputs "out")
 654                        "/lib/python"
 655                        ,(version-major+minor
 656                          (package-version python))
 657                        "/site-packages/gi/overrides")
 658         (string-append "--with-html-dir="
 659                        (assoc-ref %outputs "doc")
 660                        "/share/gtk-doc/html"))
 661        #:phases
 662        (modify-phases %standard-phases
 663          (add-after 'unpack 'patch-docbook-xml
 664            (lambda* (#:key inputs #:allow-other-keys)
 665              (with-directory-excursion "doc/reference/dee-1.0"
 666                (substitute* "dee-1.0-docs.sgml"
 667                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 668                   (string-append (assoc-ref inputs "docbook-xml")
 669                                  "/xml/dtd/docbook/"))))
 670              #t))
 671          (add-after 'patch-docbook-xml 'disable-failing-tests
 672            (lambda _
 673              (substitute* "tests/test-icu.c"
 674                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 675                 "")
 676                (("setup, test_ascii_folder, teardown\\);")
 677                 ""))
 678              #t))
 679          (add-before 'check 'pre-check
 680            (lambda _
 681              ;; Tests require a running dbus-daemon.
 682              (system "dbus-daemon &")
 683              ;; For missing '/etc/machine-id'.
 684              (setenv "DBUS_FATAL_WARNINGS" "0")
 685              #t)))))
 686     (native-inputs
 687      `(("dbus" ,dbus)
 688        ("dbus-test-runner" ,dbus-test-runner)
 689        ("docbook-xml" ,docbook-xml-4.3)
 690        ("gobject-introspection" ,gobject-introspection)
 691        ("gtk-doc" ,gtk-doc)
 692        ;; Would only be required by configure flag "--enable-extended-tests".
 693        ;("gtx" ,gtx)
 694        ("pkg-config" ,pkg-config)
 695        ("pygobject" ,python-pygobject)
 696        ("python" ,python-wrapper)
 697        ("vala" ,vala)))
 698     (inputs
 699      `(("icu" ,icu4c)))
 700     (propagated-inputs
 701      `(("glib" ,glib)))
 702     (synopsis "Model to synchronize multiple instances over DBus")
 703     (description "Dee is a library that uses DBus to provide objects allowing
 704 you to create Model-View-Controller type programs across DBus.  It also consists
 705 of utility objects which extend DBus allowing for peer-to-peer discoverability
 706 of known objects without needing a central registrar.")
 707     (home-page "https://launchpad.net/dee")
 708     (license
 709      ;; Dual-licensed
 710      (list
 711       license:lgpl3+
 712       license:gpl3+))))
 713
 714 (define-public zeitgeist
 715   (package
 716     (name "zeitgeist")
 717     (version "1.0.3")
 718     (source
 719      (origin
 720        (method git-fetch)
 721        (uri
 722         (git-reference
 723          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 724          (commit
 725           (string-append "v" version))))
 726        (file-name
 727         (git-file-name name version))
 728        (sha256
 729         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 730     (build-system glib-or-gtk-build-system)
 731     (arguments
 732      `(#:configure-flags
 733        (list
 734         "--enable-explain-queries"
 735         "--enable-fts"
 736         "--enable-docs")
 737        #:phases
 738        (modify-phases %standard-phases
 739          (add-after 'unpack 'patch-docbook-xml
 740            (lambda* (#:key inputs #:allow-other-keys)
 741              (with-directory-excursion "doc/libzeitgeist"
 742                (substitute* "zeitgeist-gtkdoc-index.sgml"
 743                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 744                   (string-append (assoc-ref inputs "docbook-xml")
 745                                  "/xml/dtd/docbook/"))))
 746              #t))
 747          (add-after 'patch-docbook-xml 'disable-failing-tests
 748            (lambda _
 749              (substitute* "test/direct/Makefile.am"
 750                (("      log-test ")
 751                 ""))
 752              (substitute* "test/c/Makefile.am"
 753                (("      test-log ")
 754                 ""))
 755              #t))
 756          (add-before 'bootstrap 'remove-autogen-script
 757            (lambda _
 758              ;; To honor `autoreconf -vif` by build-system.
 759              (delete-file "autogen.sh")
 760              #t)))))
 761     (native-inputs
 762      `(("autoconf" ,autoconf)
 763        ("automake" ,automake)
 764        ("docbook-xml" ,docbook-xml-4.3)
 765        ("gettext" ,gettext-minimal)
 766        ("gobject-introspection" ,gobject-introspection)
 767        ("gtk-doc" ,gtk-doc)
 768        ("libtool" ,libtool)
 769        ("pkg-config" ,pkg-config)
 770        ("vala" ,vala)
 771        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 772     (inputs
 773      `(("dee-icu" ,dee)
 774        ("gtk+" ,gtk+)
 775        ("json-glib" ,json-glib)
 776        ("sqlite" ,sqlite)
 777        ("telepathy-glib" ,telepathy-glib)
 778        ("python" ,python-wrapper)
 779        ("python-rdflib" ,python-rdflib)
 780        ("xapian-config" ,xapian)))
 781     (propagated-inputs
 782      `(("glib" ,glib)))
 783     (synopsis "Desktop Activity Logging")
 784     (description "Zeitgeist is a service which logs the users’s activities and
 785 events, anywhere from files opened to websites visited and conversations.  It
 786 makes this information readily available for other applications to use.  It is
 787 able to establish relationships between items based on similarity and usage
 788 patterns.")
 789     (home-page "https://zeitgeist.freedesktop.org/")
 790     (license
 791      ;; Dual-licensed
 792      (list
 793       license:lgpl2.1+
 794       license:gpl2+))))
 795
 796 (define-public gnome-photos
 797   (package
 798     (name "gnome-photos")
 799     (version "3.34.2")
 800     (source
 801      (origin
 802        (method url-fetch)
 803        (uri
 804         (string-append "mirror://gnome/sources/" name "/"
 805                        (version-major+minor version) "/"
 806                        name "-" version ".tar.xz"))
 807        (sha256
 808         (base32
 809          "06ml5sf8xhpan410msqz085hmfc7082d368pb82yq646y9pcfn9w"))))
 810     (build-system meson-build-system)
 811     (arguments
 812      `(#:glib-or-gtk? #t
 813        #:configure-flags
 814        (list "-Ddogtail=false"     ; Not available
 815              ;; Required for RUNPATH validation.
 816              (string-append "-Dc_link_args=-Wl,-rpath="
 817                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 818        #:phases
 819        (modify-phases %standard-phases
 820          (add-after 'install 'wrap-gnome-photos
 821            (lambda* (#:key inputs outputs #:allow-other-keys)
 822              (let*
 823                  ((out (assoc-ref outputs "out")))
 824                (wrap-program (string-append out "/bin/gnome-photos")
 825                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))))
 826              #t)))))
 827     (native-inputs
 828      `(("dbus" ,dbus)
 829        ("desktop-file-utils" ,desktop-file-utils)
 830        ("gettext" ,gettext-minimal)
 831        ("git" ,git-minimal)
 832        ("glib:bin" ,glib "bin")
 833        ("gobject-introspection" ,gobject-introspection)
 834        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 835        ("gtk+:bin" ,gtk+ "bin")
 836        ("itstool" ,itstool)
 837        ("pkg-config" ,pkg-config)))
 838     (inputs
 839      `(("babl" ,babl)
 840        ("cairo" ,cairo)
 841        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 842        ("gegl" ,gegl)
 843        ("geocode-glib" ,geocode-glib)
 844        ("gexiv2" ,gexiv2)
 845        ("gnome-online-accounts" ,gnome-online-accounts)
 846        ("gnome-online-miners" ,gnome-online-miners)
 847        ("grilo" ,grilo)
 848        ("grilo-plugins" ,grilo-plugins)
 849        ("gtk+" ,gtk+)
 850        ("libdazzle" ,libdazzle)
 851        ("libgdata" ,libgdata)
 852        ("libgfbgraph" ,gfbgraph)
 853        ("libjpeg" ,libjpeg-turbo)
 854        ("libpng" ,libpng)
 855        ("librest" ,rest)
 856        ("pygobject" ,python-pygobject)
 857        ("tracker" ,tracker)
 858        ("tracker-miners" ,tracker-miners)))
 859     (synopsis "Access, organize and share your photos on GNOME desktop")
 860     (description "GNOME Photos is a simple and elegant replacement for using a
 861 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 862 cloud integration is offered through GNOME Online Accounts.")
 863     (home-page "https://wiki.gnome.org/Apps/Photos")
 864     (license license:gpl3+)))
 865
 866 (define-public gnome-music
 867   (package
 868     (name "gnome-music")
 869     (version "3.34.5")
 870     (source
 871      (origin
 872        (method url-fetch)
 873        (uri
 874         (string-append "mirror://gnome/sources/" name "/"
 875                        (version-major+minor version) "/"
 876                        name "-" version ".tar.xz"))
 877        (sha256
 878         (base32
 879          "1r5sfw5cbd6qqh27lzhblazir0bfi3k7nqppw66qw990isqm5psy"))))
 880     (build-system meson-build-system)
 881     (arguments
 882      `(#:glib-or-gtk? #t
 883        #:phases
 884        (modify-phases %standard-phases
 885          (add-after 'install 'wrap-gnome-music
 886            (lambda* (#:key inputs outputs #:allow-other-keys)
 887              (let*
 888                  ((out (assoc-ref outputs "out"))
 889                   (pylib (string-append out "/lib/python"
 890                                         ,(version-major+minor
 891                                           (package-version python))
 892                                         "/site-packages")))
 893                (wrap-program (string-append out "/bin/gnome-music")
 894                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
 895                  `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 896                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))
 897                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))))
 898              #t)))))
 899     (native-inputs
 900      `(("desktop-file-utils" ,desktop-file-utils)
 901        ("gettext" ,gettext-minimal)
 902        ("glib:bin" ,glib "bin")
 903        ("gobject-introspection" ,gobject-introspection)
 904        ("gtk+:bin" ,gtk+ "bin")
 905        ("itstools" ,itstool)
 906        ("pkg-config" ,pkg-config)))
 907     (inputs
 908      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 909        ("grilo" ,grilo)
 910        ("grilo-plugins" ,grilo-plugins)
 911        ("gst-plugins-base" ,gst-plugins-base)
 912        ("gstreamer" ,gstreamer)
 913        ("gvfs" ,gvfs)
 914        ("libdazzle" ,libdazzle)
 915        ("libmediaart" ,libmediaart)
 916        ("libsoup" ,libsoup)
 917        ("pycairo" ,python-pycairo)
 918        ("pygobject" ,python-pygobject)
 919        ("tracker" ,tracker)
 920        ("tracker-miners" ,tracker-miners)))
 921     (synopsis "Simple music player for GNOME desktop")
 922     (description "GNOME Music is the new GNOME music playing application that
 923 aims to combine an elegant and immersive browsing experience with simple
 924 and straightforward controls.")
 925     (home-page "https://wiki.gnome.org/Apps/Music")
 926     (license license:gpl2+)))
 927
 928 (define-public portablexdr
 929   (package
 930     (name "portablexdr")
 931     (version "4.9.1")
 932     (source
 933      (origin
 934        (method url-fetch)
 935        (uri
 936         (string-append "https://people.redhat.com/~rjones/" name "/files/"
 937                        name "-" version ".tar.gz"))
 938        (sha256
 939         (base32
 940          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
 941     (build-system gnu-build-system)
 942     (synopsis "External Data Representation Library")
 943     (description "PortableXDR is an implementation of External Data
 944 Representation (XDR) Library.  It is a standard data serialization format, for
 945 uses such as computer network protocols.  It allows data to be transferred
 946 between different kinds of computer systems.")
 947     (home-page "https://people.redhat.com/~rjones/portablexdr/")
 948     (license
 949      (list
 950       license:gpl2+
 951       license:lgpl2.1+))))
 952
 953 (define-public tepl
 954   (package
 955     (name "tepl")
 956     (version "4.4.0")
 957     (source
 958      (origin
 959        (method url-fetch)
 960        (uri
 961         (string-append "mirror://gnome/sources/" name "/"
 962                        (version-major+minor version) "/"
 963                        name "-" version ".tar.xz"))
 964        (sha256
 965         (base32
 966          "0mm2z849hnni7597an05mrv0dckrxjngpf2xfa0g5s17i8x6gxp6"))))
 967     (build-system glib-or-gtk-build-system)
 968     (arguments
 969      `(#:tests? #f))                    ; FIX-ME: Requires gvfs
 970     (native-inputs
 971      `(("gobject-introspection" ,gobject-introspection)
 972        ("pkg-config" ,pkg-config)))
 973     (inputs
 974      `(("amtk" ,amtk)
 975        ("glib" ,glib)
 976        ("gtk+" ,gtk+)
 977        ("gtksourceview" ,gtksourceview)
 978        ("libxml2" ,libxml2)
 979        ("uchardet" ,uchardet)))
 980     (synopsis "Text editor product line")
 981     (description "Tepl is a library that eases the development of
 982 GtkSourceView-based text editors and IDEs.")
 983     (home-page "https://wiki.gnome.org/Projects/Tepl")
 984     (license license:lgpl2.1+)))
 985
 986 (define-public krb5-auth-dialog
 987   (package
 988     (name "krb5-auth-dialog")
 989     (version "3.26.1")
 990     (source
 991      (origin
 992        (method url-fetch)
 993        (uri
 994         (string-append "mirror://gnome/sources/" name "/"
 995                        (version-major+minor version) "/"
 996                        name "-" version ".tar.xz"))
 997        (sha256
 998         (base32
 999          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1000     (build-system glib-or-gtk-build-system)
1001     (native-inputs
1002      `(("intltool" ,intltool)
1003        ("itstool" ,itstool)
1004        ("libxml2" ,libxml2)
1005        ("pkg-config" ,pkg-config)
1006        ("python-wrapper" ,python-wrapper)))
1007     (inputs
1008      `(("glib" ,glib)
1009        ("gtk+" ,gtk+)
1010        ("libnotify" ,libnotify)
1011        ("mit-krb5" ,mit-krb5)
1012        ("network-manager" ,network-manager)))
1013     (synopsis "Popup dialogs for Kerberos 5")
1014     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1015 tickets, and pops up a dialog when they are about to expire.")
1016     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1017     (license license:gpl2+)))
1018
1019 (define-public notification-daemon
1020   (package
1021     (name "notification-daemon")
1022     (version "3.20.0")
1023     (source
1024      (origin
1025        (method url-fetch)
1026        (uri
1027         (string-append "mirror://gnome/sources/" name "/"
1028                        (version-major+minor version) "/"
1029                        name "-" version ".tar.xz"))
1030        (sha256
1031         (base32
1032          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1033     (build-system glib-or-gtk-build-system)
1034     (native-inputs
1035      `(("intltool" ,intltool)
1036        ("pkg-config" ,pkg-config)))
1037     (inputs
1038      `(("glib" ,glib)
1039        ("gtk+" ,gtk+)
1040        ("x11" ,libx11)))
1041     (synopsis "Notification Daemon for GNOME Desktop")
1042     (description "Notification-Daemon is the server implementation of the
1043 freedesktop.org desktop notification specification.")
1044     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1045     (license license:gpl2+)))
1046
1047 (define-public mm-common
1048   (package
1049     (name "mm-common")
1050     (version "1.0.2")
1051     (source (origin
1052               (method url-fetch)
1053               (uri (string-append "mirror://gnome/sources/mm-common/"
1054                                   (version-major+minor version) "/"
1055                                   "mm-common-" version ".tar.xz"))
1056               (sha256
1057                (base32
1058                 "07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
1059     (build-system meson-build-system)
1060     (arguments
1061      `(#:phases
1062        (modify-phases %standard-phases
1063          (add-after 'unpack 'patch
1064            (lambda* (#:key inputs #:allow-other-keys)
1065              (substitute* "util/mm-common-prepare.in"
1066               (("ln") (string-append (assoc-ref inputs "coreutils")
1067                                      "/bin/ln"))
1068               (("cp") (string-append (assoc-ref inputs "coreutils")
1069                                      "/bin/cp"))
1070               (("sed") (string-append (assoc-ref inputs "sed")
1071                                       "/bin/sed"))
1072               (("cat") (string-append (assoc-ref inputs "coreutils")
1073                                       "/bin/cat")))
1074              #t)))))
1075     (native-inputs
1076      `(("coreutils" ,coreutils)
1077        ("gettext" ,gettext-minimal)
1078        ("pkg-config" ,pkg-config)
1079        ("sed" ,sed)))
1080     (inputs
1081      `(("python" ,python)))
1082     (synopsis "Module of GNOME C++ bindings")
1083     (description "The mm-common module provides the build infrastructure
1084 and utilities shared among the GNOME C++ binding libraries.  Release
1085 archives of mm-common include the Doxygen tag file for the GNU C++
1086 Library reference documentation.")
1087     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1088     (license license:gpl2+)))
1089
1090 (define-public phodav
1091   (package
1092    (name "phodav")
1093    (version "2.5")
1094    (source (origin
1095             (method url-fetch)
1096             (uri (string-append "mirror://gnome/sources/" name "/"
1097                                 (version-major+minor version) "/"
1098                                 name "-" version ".tar.xz"))
1099             (sha256
1100              (base32
1101               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1102    (build-system meson-build-system)
1103    (arguments
1104     `(#:phases
1105       (modify-phases %standard-phases
1106         (add-before 'check 'start-virtual-dir-server
1107           ;; The same server when started by tests/virtual-dir returns an
1108           ;; unexpected status (4 instead of 200) and fails a test.  It is
1109           ;; unclear why starting it manually here makes it pass.
1110           (lambda _
1111             (system "tests/virtual-dir-server &")
1112             #t)))))
1113    (native-inputs
1114     `(("docbook-xml" ,docbook-xml-4.3)
1115       ("gettext" ,gettext-minimal)
1116       ("glib:bin" ,glib "bin")
1117       ("gtk-doc" ,gtk-doc)
1118       ("pkg-config" ,pkg-config)))
1119    (inputs
1120     `(("avahi" ,avahi)
1121       ("libgudev" ,libgudev)
1122       ("libsoup" ,libsoup)))
1123    (synopsis "WebDav server implementation using libsoup")
1124    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1125 but it is generic enough to be reused in other projects,
1126 in particular in the GNOME desktop.")
1127    (home-page "https://wiki.gnome.org/phodav")
1128    (license license:lgpl2.1+)))
1129
1130 (define-public gnome-color-manager
1131   (package
1132    (name "gnome-color-manager")
1133    (version "3.32.0")
1134    (source (origin
1135             (method url-fetch)
1136             (uri (string-append "mirror://gnome/sources/" name "/"
1137                                 (version-major+minor version) "/"
1138                                 name "-" version ".tar.xz"))
1139             (sha256
1140              (base32
1141               "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
1142    (build-system meson-build-system)
1143    (arguments
1144     `(#:glib-or-gtk? #t
1145       #:phases
1146        (modify-phases %standard-phases
1147         (add-before
1148          'check 'pre-check
1149          (lambda _
1150            ;; Tests require a running X server.
1151            (system "Xvfb :1 &")
1152            (setenv "DISPLAY" ":1")
1153            #t)))))
1154    (native-inputs
1155     `(("desktop-file-utils" ,desktop-file-utils)
1156       ("gettext" ,gettext-minimal)
1157       ("glib:bin" ,glib "bin")
1158       ("gtk+:bin" ,gtk+ "bin")
1159       ("itstool" ,itstool)
1160       ("pkg-config" ,pkg-config)
1161       ("xorg-server" ,xorg-server-for-tests)))
1162    (inputs
1163     `(("adwaita-icon-theme" ,adwaita-icon-theme)
1164       ("appstream-glib" ,appstream-glib)
1165       ("colord-gtk" ,colord-gtk)
1166       ("exiv2" ,exiv2)
1167       ("gnome-desktop" ,gnome-desktop)
1168       ("libcanberra" ,libcanberra)
1169       ("libexif" ,libexif)
1170       ("libtiff" ,libtiff)
1171       ("libxrandr" ,libxrandr)
1172       ("libxtst" ,libxtst)
1173       ("libxxf86vm" ,libxxf86vm)
1174       ("vte" ,vte)
1175       ("xorgproto" ,xorgproto)))
1176    (synopsis "Color profile manager for the GNOME desktop")
1177    (description "GNOME Color Manager is a session framework that makes
1178 it easy to manage, install and generate color profiles
1179 in the GNOME desktop.")
1180    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1181    (license license:gpl2+)))
1182
1183 (define-public gnome-online-miners
1184   (package
1185     (name "gnome-online-miners")
1186     (version "3.34.0")
1187     (source (origin
1188               (method url-fetch)
1189               (uri (string-append "mirror://gnome/sources/" name "/"
1190                                   (version-major+minor version) "/"
1191                                   name "-" version ".tar.xz"))
1192               (sha256
1193                (base32
1194                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
1195     (build-system glib-or-gtk-build-system)
1196     (native-inputs
1197      `(("gettext" ,gettext-minimal)
1198        ("glib:bin" ,glib "bin")
1199        ("gobject-introspection" ,gobject-introspection)
1200        ("gtk+:bin" ,gtk+ "bin")
1201        ("pkg-config" ,pkg-config)))
1202     (inputs
1203      `(("gnome-online-accounts" ,gnome-online-accounts)
1204        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1205        ("grilo" ,grilo)
1206        ("libgdata" ,libgdata)
1207        ("libgfbgraph" ,gfbgraph)
1208        ("libzapojit" ,libzapojit)
1209        ("rest" ,rest)
1210        ("tracker" ,tracker)))
1211     (synopsis "Web Crawlers for GNOME")
1212     (description "GNOME Online Miners provides a set of crawlers that
1213 go through your online content and index them locally in Tracker.
1214 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1215     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1216     (license license:gpl2+)))
1217
1218 (define-public gssdp
1219   (package
1220    (name "gssdp")
1221    (version "1.2.3")
1222    (source (origin
1223             (method url-fetch)
1224             (uri (string-append "mirror://gnome/sources/" name "/"
1225                                 (version-major+minor version) "/"
1226                                 name "-" version ".tar.xz"))
1227             (sha256
1228              (base32
1229               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1230    (build-system meson-build-system)
1231    (native-inputs
1232     `(("gettext" ,gettext-minimal)
1233       ("glib:bin" ,glib "bin")
1234       ("gobject-introspection" ,gobject-introspection)
1235       ("gtk-doc" ,gtk-doc)
1236       ("pkg-config" ,pkg-config)
1237       ("vala" ,vala)))
1238    (inputs
1239     `(("gtk+" ,gtk+)
1240       ("libsoup" ,libsoup)))
1241    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1242 Protocol} for GNOME")
1243    (description "This package provides a library to handle resource discovery
1244 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1245 a debugging tool, @command{gssdp-device-sniffer}.")
1246    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1247    (license license:lgpl2.0+)))
1248
1249 (define-public gupnp
1250   (package
1251    (name "gupnp")
1252    (version "1.2.4")
1253    (source (origin
1254             (method url-fetch)
1255             (uri (string-append "mirror://gnome/sources/" name "/"
1256                                 (version-major+minor version) "/"
1257                                 name "-" version ".tar.xz"))
1258             (sha256
1259              (base32
1260               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1261    (build-system meson-build-system)
1262    (native-inputs
1263     `(("gettext" ,gettext-minimal)
1264       ("glib:bin" ,glib "bin")
1265       ("gobject-introspection" ,gobject-introspection)
1266       ("gtk-doc" ,gtk-doc)
1267       ("pkg-config" ,pkg-config)
1268       ("vala" ,vala)))
1269    (inputs
1270     `(("gssdp" ,gssdp)
1271       ("gtk+" ,gtk+)
1272       ("libsoup" ,libsoup)))
1273    (synopsis "PnP API for GNOME")
1274    (description "This package provides GUPnP, an object-oriented framework
1275 for creating UPnP devices and control points, written in C using
1276 @code{GObject} and @code{libsoup}.")
1277    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1278    (license license:lgpl2.0+)))
1279
1280 (define-public gupnp-dlna
1281   (package
1282    (name "gupnp-dlna")
1283    (version "0.10.5")
1284    (source (origin
1285             (method url-fetch)
1286             (uri (string-append "mirror://gnome/sources/" name "/"
1287                                 (version-major+minor version) "/"
1288                                 name "-" version ".tar.xz"))
1289             (sha256
1290              (base32
1291               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1292    (build-system gnu-build-system)
1293    (native-inputs
1294     `(("gettext" ,gettext-minimal)
1295       ("glib:bin" ,glib "bin")
1296       ("gobject-introspection" ,gobject-introspection)
1297       ("gtk-doc" ,gtk-doc)
1298       ("libxml" ,libxml2)
1299       ("pkg-config" ,pkg-config)
1300       ("vala" ,vala)))
1301    (inputs
1302     `(("gstreamer" ,gstreamer)
1303       ("gupnp" ,gupnp)))
1304    (propagated-inputs
1305     `(("gst-plugins-base" ,gst-plugins-base)
1306       ("gst-plugins-good" ,gst-plugins-good)))
1307    (synopsis "GUPnP DLNA for GNOME")
1308    (description "This package provides a small utility library to
1309 support DLNA-related tasks such as media profile guessing, transcoding to a
1310 given profile, etc.  DLNA is a subset of UPnP A/V.")
1311    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1312    (license license:lgpl2.0+)))
1313
1314 (define-public gupnp-av
1315   (package
1316    (name "gupnp-av")
1317    (version "0.12.11")
1318    (source (origin
1319             (method url-fetch)
1320             (uri (string-append "mirror://gnome/sources/" name "/"
1321                                 (version-major+minor version) "/"
1322                                 name "-" version ".tar.xz"))
1323             (sha256
1324              (base32
1325               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1326    (build-system gnu-build-system)
1327    (native-inputs
1328     `(("gettext" ,gettext-minimal)
1329       ("glib:bin" ,glib "bin")
1330       ("gobject-introspection" ,gobject-introspection)
1331       ("gtk-doc" ,gtk-doc)
1332       ("libxml" ,libxml2)
1333       ("pkg-config" ,pkg-config)))
1334    (inputs
1335     `(("gtk+" ,gtk+)
1336       ("gupnp" ,gupnp)))
1337    (synopsis "GUPnP A/V for GNOME")
1338    (description "This package provides a small library for handling
1339 and implementation of UPnP A/V profiles.")
1340    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1341    (license license:lgpl2.0+)))
1342
1343 (define-public libmediaart
1344   (package
1345     (name "libmediaart")
1346     (version "1.9.4")
1347     (source (origin
1348               (method url-fetch)
1349               (uri (string-append "mirror://gnome/sources/" name "/"
1350                                   (version-major+minor version) "/"
1351                                   name "-" version ".tar.xz"))
1352               (sha256
1353                (base32
1354                 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
1355     (build-system gnu-build-system)
1356     (native-inputs
1357      `(("glib:bin" ,glib "bin")
1358        ("pkg-config" ,pkg-config)))
1359     (inputs
1360      `(("gdk-pixbuf" ,gdk-pixbuf)
1361        ("gettext" ,gettext-minimal)
1362        ("gobject-introspection" ,gobject-introspection)
1363        ("gtk+:doc" ,gtk+ "doc")
1364        ("vala" ,vala)))
1365     (synopsis "Media art library for the GNOME desktop")
1366     (description
1367      "The libmediaart library is the foundation for media art caching,
1368 extraction, and lookup for applications on the desktop.")
1369     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1370     (license license:lgpl2.1+)))
1371
1372 (define-public gnome-initial-setup
1373   (package
1374    (name "gnome-initial-setup")
1375    (version "3.32.1")
1376    (source (origin
1377             (method url-fetch)
1378            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1379                                 (version-major+minor version)
1380                                 "/gnome-initial-setup-" version ".tar.xz"))
1381             (sha256
1382              (base32
1383               "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
1384    (build-system meson-build-system)
1385    (arguments
1386     '(#:configure-flags '(;; Enable camera support for user selfie.
1387                           "-Dcheese=auto"
1388                           "-Dsystemd=false")
1389       #:phases (modify-phases %standard-phases
1390                  (add-after 'unpack 'set-gkbd-file-name
1391                    (lambda* (#:key inputs #:allow-other-keys)
1392                      ;; Allow the "Preview" button in the keyboard layout
1393                      ;; selection dialog to display the layout.
1394                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1395                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1396                          (("\"gkbd-keyboard-display")
1397                           (string-append "\"" libgnomekbd
1398                                          "/bin/gkbd-keyboard-display")))
1399                        #t))))))
1400    (native-inputs
1401     `(("gettext" ,gettext-minimal)
1402       ("glib:bin" ,glib "bin")
1403       ("gobject-introspection" ,gobject-introspection)
1404       ("gtk+:bin" ,gtk+ "bin")
1405       ("pkg-config" ,pkg-config)))
1406    (inputs
1407     `(("accountsservice" ,accountsservice)
1408       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1409       ("gdm" ,gdm)
1410       ("geoclue" ,geoclue)
1411       ("gnome-desktop" ,gnome-desktop)
1412       ("gnome-getting-started-docs" ,gnome-getting-started-docs)
1413       ("gnome-online-accounts" ,gnome-online-accounts)
1414       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1415       ("gstreamer" ,gstreamer)
1416       ("ibus" ,ibus)
1417       ("json-glib" ,json-glib)
1418       ("krb5" ,mit-krb5)
1419       ("libgweather" ,libgweather)
1420       ("libnma" ,libnma)
1421       ("libsecret" ,libsecret)
1422       ("network-manager" ,network-manager)
1423       ("packagekit" ,packagekit)
1424       ("polkit" ,polkit)
1425       ("pwquality" ,libpwquality)
1426       ("rest" ,rest)
1427       ("upower" ,upower)
1428       ("webkitgtk" ,webkitgtk)
1429       ("libgnomekbd" ,libgnomekbd)))
1430    (synopsis "Initial setup wizard for GNOME desktop")
1431    (description "This package provides a set-up wizard when a
1432 user logs into GNOME for the first time.  It typically provides a
1433 tour of all gnome components and allows the user to set them up.")
1434    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1435    (license license:gpl2)))
1436
1437 (define-public gnome-user-share
1438   (package
1439    (name "gnome-user-share")
1440    (version "3.33.1")
1441    (source (origin
1442             (method url-fetch)
1443             (uri (string-append "mirror://gnome/sources/" name "/"
1444                                 (version-major+minor version) "/"
1445                                 name "-" version ".tar.xz"))
1446             (sha256
1447              (base32
1448               "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
1449    (build-system meson-build-system)
1450    (arguments
1451     `(#:glib-or-gtk? #t
1452       #:configure-flags
1453        `("-Dsystemd=false"
1454          ;; Enable nautilus extension for file sharing.
1455          "-Dnautilus_extension=true")))
1456    (native-inputs
1457     `(("gettext" ,gettext-minimal)
1458       ("glib:bin" ,glib "bin")
1459       ("gobject-introspection" ,gobject-introspection)
1460       ("gtk+:bin" ,gtk+ "bin")
1461       ("pkg-config" ,pkg-config)
1462       ("yelp-tools" ,yelp-tools)))
1463    (inputs
1464     `(("glib" ,glib)
1465       ("gnome-bluetooth" ,gnome-bluetooth)
1466       ("gtk+" ,gtk+)
1467       ("libcanberra" ,libcanberra)
1468       ("libnotify" ,libnotify)
1469       ("nautilus" ,nautilus)))      ; For nautilus extension.
1470    (synopsis "File sharing for GNOME desktop")
1471    (description "GNOME User Share is a small package that binds together
1472 various free software projects to bring easy to use user-level file
1473 sharing to the masses.")
1474    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1475    (license license:gpl2+)))
1476
1477 (define-public sushi
1478   (package
1479     (name "sushi")
1480     (version "3.32.1")
1481     (source (origin
1482               (method url-fetch)
1483               (uri (string-append "mirror://gnome/sources/" name "/"
1484                                   (version-major+minor version) "/"
1485                                   name "-" version ".tar.xz"))
1486               (sha256
1487                (base32
1488                 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
1489     (build-system meson-build-system)
1490     (arguments
1491      `(#:glib-or-gtk? #t
1492        #:phases
1493        (modify-phases %standard-phases
1494          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1495            (lambda* (#:key outputs #:allow-other-keys)
1496              (let ((prog (string-append (assoc-ref outputs "out")
1497                                         "/bin/sushi")))
1498                ;; Put existing typelibs before sushi's deps, so as to correctly
1499                ;; infer gdk-pixbuf
1500                (wrap-program prog
1501                  `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
1502                #t))))))
1503     (native-inputs
1504      `(("glib:bin" ,glib "bin")
1505        ("gettext" ,gettext-minimal)
1506        ("gobject-introspection" ,gobject-introspection)
1507        ("pkg-config" ,pkg-config)))
1508     (inputs
1509      `(("clutter" ,clutter)
1510        ("clutter-gst" ,clutter-gst)
1511        ("clutter-gtk" ,clutter-gtk)
1512        ("evince" ,evince)                         ; For file previewing.
1513        ("freetype" ,freetype)
1514        ("gdk-pixbuf" ,gdk-pixbuf)
1515        ("gjs" ,gjs)
1516        ("gst-plugins-base" ,gst-plugins-base)
1517        ("gstreamer" ,gstreamer)
1518        ("gtksourceview" ,gtksourceview-3)
1519        ("harfbuzz" ,harfbuzz)
1520        ("libepoxy" ,libepoxy)
1521        ("libmusicbrainz" ,libmusicbrainz)
1522        ("libxml2" ,libxml2)
1523        ("neon" ,neon)
1524        ("webkitgtk" ,webkitgtk)))
1525     (synopsis "File previewer for the GNOME desktop")
1526     (description "Sushi is a DBus-activated service that allows applications to
1527 preview files on the GNOME desktop.")
1528     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1529     (license license:gpl2+)))
1530
1531 (define-public rygel
1532   (package
1533     (name "rygel")
1534     (version "0.38.3")
1535     (source (origin
1536               (method url-fetch)
1537               (uri (string-append "mirror://gnome/sources/" name "/"
1538                                   (version-major+minor version) "/"
1539                                   name "-" version ".tar.xz"))
1540               (sha256
1541                (base32
1542                 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
1543     (build-system gnu-build-system)
1544     (native-inputs
1545      `(("gettext" ,gettext-minimal)
1546        ("gobject-introspection" ,gobject-introspection)
1547        ("gtk-doc" ,gtk-doc)
1548        ("pkg-config" ,pkg-config)
1549        ("vala" ,vala)))
1550     (inputs
1551      `(("gdk-pixbuf" ,gdk-pixbuf)
1552        ("gssdp" ,gssdp)
1553        ("gstreamer" ,gstreamer)
1554        ("gst-plugins-base" ,gst-plugins-base)
1555        ("gtk+" ,gtk+)
1556        ("gupnp" ,gupnp)
1557        ("gupnp-av" ,gupnp-av)
1558        ("gupnp-dlna" ,gupnp-dlna)
1559        ("libgee" ,libgee)
1560        ("libmediaart" ,libmediaart)
1561        ("libsoup" ,libsoup)
1562        ("libxslt" ,libxslt)
1563        ("libunistring" ,libunistring)
1564        ("tracker" ,tracker)))
1565     (synopsis "Share audio, video, and pictures with other devices")
1566     (description
1567      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1568 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1569 pictures, and to control a media player on your home network.
1570
1571 Rygel achieves interoperability with other devices by trying to conform to the
1572 strict requirements of DLNA and by converting media on-the-fly to formats that
1573 client devices can handle.")
1574     (home-page "https://wiki.gnome.org/Projects/Rygel")
1575     (license (list
1576               ;; For logo (data/icons/*).
1577               license:cc-by-sa3.0
1578               ;; For all others.
1579               license:lgpl2.1+))))
1580
1581 (define-public libnma
1582   (package
1583     (name "libnma")
1584     (version "1.8.28")
1585     (source (origin
1586               (method url-fetch)
1587               (uri (string-append "mirror://gnome/sources/" name "/"
1588                                   (version-major+minor version) "/"
1589                                   name "-" version ".tar.xz"))
1590               (sha256
1591                (base32
1592                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1593     (build-system meson-build-system)
1594     (arguments
1595      `(#:phases
1596        (modify-phases %standard-phases
1597          (add-after 'unpack 'patch-docbook-xml
1598            (lambda* (#:key inputs #:allow-other-keys)
1599              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1600                                           "/xml/dtd/docbook")))
1601                (substitute* "libnma-docs.xml"
1602                  (("http://.*/docbookx\\.dtd")
1603                   (string-append xmldoc "/docbookx.dtd")))
1604                #t))))))
1605     (native-inputs
1606      `(("docbook-xml" ,docbook-xml-4.3)
1607        ("gettext" ,gettext-minimal)
1608        ("glib:bin" ,glib "bin")
1609        ("gtk-doc" ,gtk-doc)
1610        ("gobject-introspection" ,gobject-introspection)
1611        ("pkg-config" ,pkg-config)
1612        ("vala" ,vala)))
1613     (inputs
1614      `(("gcr" ,gcr)
1615        ("gtk+" ,gtk+)
1616        ("iso-codes" ,iso-codes)
1617        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1618        ("network-manager" ,network-manager)))
1619     (synopsis "Network Manager's applet library")
1620     (description "Libnma is an applet library for Network Manager.  It was
1621 initially part of network-manager-applet and has now become a separate
1622 project.")
1623     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1624     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1625     ;; "LGPL-2.1+".
1626     (license license:gpl2+)))
1627
1628 (define-public gnome-menus
1629   (package
1630     (name "gnome-menus")
1631     (version "3.32.0")
1632     (source (origin
1633               (method url-fetch)
1634               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1635                                   (version-major+minor version) "/"
1636                                   name "-" version ".tar.xz"))
1637               (sha256
1638                (base32
1639                 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
1640     (build-system gnu-build-system)
1641     (native-inputs
1642      `(("gettext" ,gettext-minimal)
1643        ("glib" ,glib)
1644        ("pkg-config" ,pkg-config)))
1645     (synopsis "Menu support for GNOME desktop")
1646     (description "GNOME Menus contains the libgnome-menu library, the layout
1647 configuration files for the GNOME menu, as well as a simple menu editor.")
1648     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1649     (license license:lgpl2.0+)))
1650
1651 (define-public deja-dup
1652   (package
1653     (name "deja-dup")
1654     (version "40.6")
1655     (source (origin
1656               (method url-fetch)
1657               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1658                                   version "/deja-dup-" version ".tar.bz2"))
1659               (sha256
1660                (base32
1661                 "0lwazh6crby5wpy9fg6zvwy4plqbhs2f98bm5lbizjdlbh88n5q0"))))
1662     (build-system meson-build-system)
1663     (arguments
1664      `(#:glib-or-gtk? #t
1665        #:configure-flags
1666        (list
1667         ;; Otherwise, the RUNPATH will lack the final path component.
1668         (string-append "-Dc_link_args=-Wl,-rpath="
1669                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1670        #:phases
1671        (modify-phases %standard-phases
1672          (add-after 'unpack 'patch-paths
1673            (lambda* (#:key inputs #:allow-other-keys)
1674              (let ((python (assoc-ref inputs "python")))
1675                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1676                               "libdeja/tests/scripts/instance-error.test")
1677                  (("/bin/rm")
1678                   (which "rm")))
1679                (substitute* "libdeja/tests/runner.vala"
1680                  (("/bin/sh")
1681                   (which "sh")))
1682                (substitute* "libdeja/tests/scripts/instance-error.test"
1683                  (("`which python3`")
1684                   (string-append python "/bin/python3"))))))
1685          (add-after 'unpack 'patch-libgpg-error
1686            (lambda* (#:key inputs #:allow-other-keys)
1687              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1688                (substitute* "meson.build"
1689                  (("(gpgerror_libs = ).*" _ var)
1690                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1691              #t))
1692          (add-after 'unpack 'skip-gtk-update-icon-cache
1693            ;; Don't create 'icon-theme.cache'.
1694            (lambda _
1695              (substitute* "data/post-install.sh"
1696                (("gtk-update-icon-cache") "true"))
1697              #t)))))
1698     (inputs
1699      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1700        ("duplicity" ,duplicity)
1701        ("python" ,python)
1702        ("python-pygobject" ,python-pygobject)
1703        ("gtk+" ,gtk+)
1704        ("json-glib" ,json-glib)
1705        ("libnotify" ,libnotify)
1706        ("libgpg-error" ,libgpg-error)
1707        ("libsecret" ,libsecret)
1708        ("libsoup" ,libsoup)
1709        ("packagekit" ,packagekit)))
1710     (native-inputs
1711      `(("appstream-glib" ,appstream-glib)
1712        ("desktop-file-utils" ,desktop-file-utils)
1713        ("gettext" ,gettext-minimal)
1714        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1715        ("gobject-introspection" ,gobject-introspection)
1716        ("itstool" ,itstool)
1717        ("pkg-config" ,pkg-config)
1718        ("vala" ,vala)))
1719     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1720     (synopsis "Simple backup tool, for regular encrypted backups")
1721     (description
1722      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1723 uses duplicity as the backend, which supports incremental backups and storage
1724 either on a local, or remote machine via a number of methods.")
1725     (license license:gpl3+)))
1726
1727 (define-public gnome-commander
1728   (package
1729     (name "gnome-commander")
1730     (version "1.10.3")
1731     (source
1732      (origin
1733        (method url-fetch)
1734        (uri (string-append "mirror://gnome/sources/" name "/"
1735                            (version-major+minor version)  "/"
1736                            "gnome-commander-" version ".tar.xz"))
1737        (sha256
1738         (base32 "0bis36awb73vhkncq8yr0qlnyaxynqkvmyqbg57ijqwd0m8hh4zg"))))
1739     (build-system glib-or-gtk-build-system)
1740     (native-inputs
1741      `(("desktop-file-utils" ,desktop-file-utils)
1742        ("gcc" ,gcc-8) ;required for -Wcast-function-type
1743        ("gettext" ,gettext-minimal)
1744        ("glib:bin" ,glib "bin")
1745        ("gobject-introspection" ,gobject-introspection)
1746        ("googletest" ,googletest)
1747        ("intltool" ,intltool)
1748        ("itstool" ,itstool)
1749        ("libtool" ,libtool)
1750        ("pkg-config" ,pkg-config)))
1751     (inputs
1752      `(("gconf" ,gconf)
1753        ("gnome-vfs" ,gnome-vfs)
1754        ("gtk+" ,gtk+-2)
1755        ("libxml2" ,libxml2)))
1756     (home-page "https://gcmd.github.io/")
1757     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1758     (description
1759      "GNOME Commander is a two-pane graphical file manager using GNOME
1760 libraries.  It aims to fulfill the demands of more advanced users who
1761 like to focus on file management, their work through special applications
1762 and running smart commands.")
1763     (license license:gpl2+)))
1764
1765 (define-public gnome-user-docs
1766   (package
1767    (name "gnome-user-docs")
1768    (version "3.32.3")
1769    (source
1770     (origin
1771       (method url-fetch)
1772       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1773                           (version-major+minor version)
1774                           "/gnome-user-docs-" version ".tar.xz"))
1775       (sha256
1776        (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
1777    (build-system gnu-build-system)
1778    (native-inputs
1779     `(("gettext" ,gettext-minimal)
1780       ("itstool" ,itstool)
1781       ("pkg-config" ,pkg-config)
1782       ("xmllint" ,libxml2)))
1783    (synopsis "User documentation for the GNOME desktop")
1784    (description
1785     "The GNOME User Documentation explains how to use the GNOME desktop and its
1786 components.  It covers usage and setup of the core GNOME programs by end-users
1787 and system administrators.")
1788    (home-page "https://live.gnome.org/DocumentationProject")
1789    (license license:cc-by3.0)))
1790
1791 (define-public gnome-getting-started-docs
1792   (package
1793    (name "gnome-getting-started-docs")
1794    (version "3.32.2")
1795    (source
1796     (origin
1797       (method url-fetch)
1798       (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
1799                           (version-major+minor version)
1800                           "/gnome-getting-started-docs-" version ".tar.xz"))
1801       (sha256
1802        (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
1803    (build-system gnu-build-system)
1804    (native-inputs
1805     `(("gettext" ,gettext-minimal)
1806       ("itstool" ,itstool)
1807       ("pkg-config" ,pkg-config)
1808       ("xmllint" ,libxml2)))
1809    (synopsis "Help to get new users started with the GNOME desktop")
1810    (description
1811     "The GNOME Getting Started Documentation contains GNOME's intuitive
1812 \"Getting Started\" tour, with video guides, that can be viewed with Yelp.
1813
1814 It is normally used together with @command{gnome-initial-setup}, but is also
1815 useful as a tutorial and users' guide for new or less experienced users.")
1816    (home-page "https://live.gnome.org/DocumentationProject")
1817    (license license:cc-by-sa3.0)))
1818
1819 (define-public dia
1820   ;; This version from GNOME's repository includes fixes for compiling with
1821   ;; recent versions of the build tools.  The latest activity on the
1822   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1823   ;; fixes since.
1824   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1825         (revision "2"))
1826     (package
1827       (name "dia")
1828       (version (git-version "0.97.3" revision commit))
1829       (source (origin
1830                 (method git-fetch)
1831                 (uri (git-reference
1832                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1833                       (commit commit)))
1834                 (file-name (git-file-name name version))
1835                 (sha256
1836                  (base32
1837                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1838       (build-system meson-build-system)
1839       (inputs
1840        `(("graphene" ,graphene)
1841          ("gtk+" ,gtk+-2)
1842          ("libxml2" ,libxml2)
1843          ("libxslt" ,libxslt)
1844          ("poppler" ,poppler)
1845          ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1846          ;; ERROR: Unknown method "dependency" in object.
1847          ("python-2" ,python-2)))
1848       (native-inputs
1849        `(("appstream-glib" ,appstream-glib)
1850          ("docbook-xsl" ,docbook-xsl)
1851          ("glib" ,glib "bin")
1852          ("intltool" ,intltool)
1853          ("pkg-config" ,pkg-config)))
1854       (home-page "https://wiki.gnome.org/Apps/Dia")
1855       (synopsis "Diagram creation for GNOME")
1856       (description "Dia can be used to draw different types of diagrams, and
1857 includes support for UML static structure diagrams (class diagrams), entity
1858 relationship modeling, and network diagrams.  The program supports various file
1859 formats like PNG, SVG, PDF and EPS.")
1860       (license license:gpl2+))))
1861
1862 ;; This is the unstable release, but it is required for the current stable
1863 ;; release of gvfs (1.38.1).
1864 (define-public libgdata
1865   (package
1866     (name "libgdata")
1867     (version "0.17.9")
1868     (source (origin
1869               (method url-fetch)
1870               (uri (string-append "mirror://gnome/sources/" name "/"
1871                                   (version-major+minor version)  "/"
1872                                   name "-" version ".tar.xz"))
1873               (sha256
1874                (base32
1875                 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
1876     (build-system gnu-build-system)
1877     (arguments
1878      '(#:phases
1879        (modify-phases %standard-phases
1880          (add-before 'check 'disable-failing-tests
1881            (lambda _
1882              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1883              ;; They have been removed in libgdata 0.17.6, so just do the same.
1884              (substitute* "gdata/tests/Makefile"
1885                (("picasaweb\\$\\(EXEEXT\\) ") ""))
1886              #t)))))
1887     (native-inputs
1888      `(("glib:bin" ,glib "bin")
1889        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1890        ("intltool" ,intltool)
1891        ("pkg-config" ,pkg-config)
1892        ("uhttpmock" ,uhttpmock)))
1893     (inputs
1894      `(("cyrus-sasl" ,cyrus-sasl)
1895        ("glib-networking" ,glib-networking)))
1896     (propagated-inputs
1897      `(("gcr" ,gcr)
1898        ("glib" ,glib)
1899        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1900        ("json-glib" ,json-glib)
1901        ("liboauth" ,liboauth)
1902        ("libsoup" ,libsoup)
1903        ("libxml2" ,libxml2)))
1904     (home-page "https://wiki.gnome.org/Projects/libgdata")
1905     (synopsis "Library for accessing online service APIs")
1906     (description
1907      "libgdata is a GLib-based library for accessing online service APIs using
1908 the GData protocol — most notably, Google's services.  It provides APIs to
1909 access the common Google services, and has full asynchronous support.")
1910     (license license:lgpl2.1+)))
1911
1912 (define-public libgxps
1913   (package
1914     (name "libgxps")
1915     (version "0.3.1")
1916     (source (origin
1917               (method url-fetch)
1918               (uri (string-append "mirror://gnome/sources/" name "/"
1919                                   (version-major+minor version) "/"
1920                                   name "-" version ".tar.xz"))
1921               (sha256
1922                (base32
1923                 "157s4c9gjjss6yd7qp7n4q6s72gz1k4ilsx4xjvp357azk49z4qs"))))
1924     (build-system meson-build-system)
1925     (native-inputs
1926      `(("gobject-introspection" ,gobject-introspection)
1927        ("pkg-config" ,pkg-config)))
1928     (inputs
1929      `(("gtk+" ,gtk+)
1930        ("libjpeg" ,libjpeg-turbo)
1931        ("lcms" ,lcms)
1932        ("libtiff" ,libtiff)))
1933     (propagated-inputs
1934      ;; In Requires of libgxps.pc.
1935      `(("cairo" ,cairo)
1936        ("glib" ,glib)
1937        ("libarchive" ,libarchive)))
1938     (home-page "https://wiki.gnome.org/Projects/libgxps")
1939     (synopsis "GObject-based library for handling and rendering XPS documents")
1940     (description
1941      "libgxps is a GObject-based library for handling and rendering XPS
1942 documents.  This package also contains binaries that can convert XPS documents
1943 to other formats.")
1944     (license license:lgpl2.1+)))
1945
1946 (define-public gnome-characters
1947   (package
1948     (name "gnome-characters")
1949     (version "3.30.0")
1950     (source
1951      (origin
1952        (method url-fetch)
1953        (uri (string-append "mirror://gnome/sources/"
1954                            "gnome-characters/" (version-major+minor version)
1955                            "/gnome-characters-" version ".tar.xz"))
1956        (sha256
1957         (base32
1958          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
1959     (build-system meson-build-system)
1960     (arguments
1961      `(#:glib-or-gtk? #t
1962        #:phases (modify-phases %standard-phases
1963                   (add-after 'install 'wrap
1964                     (lambda* (#:key outputs #:allow-other-keys)
1965                       ;; GNOME Characters needs Typelib files from GTK and
1966                       ;; gnome-desktop.
1967                       (wrap-program (string-append (assoc-ref outputs "out")
1968                                                    "/bin/gnome-characters")
1969                         `("GI_TYPELIB_PATH" ":" prefix
1970                           (,(getenv "GI_TYPELIB_PATH"))))
1971                       #t)))))
1972     (native-inputs
1973      `(("gettext" ,gettext-minimal)
1974        ("glib:bin" ,glib "bin")
1975        ("gtk+:bin" ,gtk+ "bin")
1976        ("pkg-config" ,pkg-config)
1977        ("python" ,python-minimal)))
1978     (inputs
1979      `(("gjs" ,gjs)
1980        ("gtk+" ,gtk+)
1981        ("libunistring" ,libunistring)
1982        ("gnome-desktop" ,gnome-desktop)))
1983     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
1984     (synopsis "Find and insert unusual characters")
1985     (description "Characters is a simple utility application to find
1986 and insert unusual characters.  It allows you to quickly find the
1987 character you are looking for by searching for keywords.")
1988     (license license:bsd-3)))
1989
1990 (define-public gnome-common
1991   (package
1992     (name "gnome-common")
1993     (version "3.18.0")
1994     (source
1995      (origin
1996        (method url-fetch)
1997        (uri (string-append "mirror://gnome/sources/" name "/"
1998                            (version-major+minor version)  "/"
1999                            name "-" version ".tar.xz"))
2000        (sha256
2001         (base32
2002          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2003     (build-system gnu-build-system)
2004     (home-page "https://www.gnome.org/")
2005     (synopsis "Bootstrap GNOME modules built from Git")
2006     (description "gnome-common contains various files needed to bootstrap
2007 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2008 can be used to configure a source directory checked out from Git and some
2009 commonly used macros.")
2010     (license license:gpl2+)))
2011
2012 (define-public gnome-contacts
2013   (package
2014     (name "gnome-contacts")
2015     (version "3.34")
2016     (source (origin
2017               (method url-fetch)
2018               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2019                                   (version-major+minor version) "/"
2020                                   name "-" version ".tar.xz"))
2021               (sha256
2022                (base32
2023                 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
2024     (build-system meson-build-system)
2025     (arguments
2026      `(#:configure-flags '("-Dcheese=false")
2027        #:phases
2028        (modify-phases %standard-phases
2029          (add-after 'unpack 'generate-vapis
2030            (lambda* (#:key inputs #:allow-other-keys)
2031              ;; To generate goa's missing .vapi file
2032              (define goa
2033                (assoc-ref inputs "gnome-online-accounts:lib"))
2034
2035              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2036                      "--library=goa-1.0"
2037                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
2038              #t))
2039          (add-after 'unpack 'skip-gtk-update-icon-cache
2040            ;; Don't create 'icon-theme.cache'.
2041            (lambda _
2042              (substitute* "build-aux/meson_post_install.py"
2043                (("gtk-update-icon-cache") "true"))
2044              #t)))))
2045     (native-inputs
2046      `(("glib:bin" ,glib "bin")
2047        ("pkg-config" ,pkg-config)))
2048     (inputs
2049      `(("docbook-xml" ,docbook-xml)
2050        ("dockbook-xsl" ,docbook-xsl)
2051        ("evolution-data-server" ,evolution-data-server)
2052        ("gettext" ,gettext-minimal)
2053        ("gnome-desktop" ,gnome-desktop)
2054        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2055        ("gobject-introspection" ,gobject-introspection)
2056        ("gst-plugins-base" ,gst-plugins-base)
2057        ("gtk+" ,gtk+)
2058        ("libgee" ,libgee)
2059        ("libxslt" ,libxslt)
2060        ("telepathy-glib" ,telepathy-glib)
2061        ("vala" ,vala)))
2062     (propagated-inputs
2063      `(("folks" ,folks)
2064        ("telepathy-mission-control" ,telepathy-mission-control)))
2065     (synopsis "GNOME's integrated address book")
2066     (description
2067      "GNOME Contacts organizes your contact information from online and
2068 offline sources, providing a centralized place for managing your contacts.")
2069     (home-page "https://wiki.gnome.org/Apps/Contacts")
2070     (license license:gpl2+)))
2071
2072 (define-public gnome-desktop
2073   (package
2074     (name "gnome-desktop")
2075     (version "3.34.2")
2076     (source
2077      (origin
2078       (method url-fetch)
2079       (uri (string-append "mirror://gnome/sources/" name "/"
2080                           (version-major+minor version)  "/"
2081                           name "-" version ".tar.xz"))
2082       (sha256
2083        (base32
2084         "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
2085     (build-system meson-build-system)
2086     (arguments
2087      '(#:phases
2088        (modify-phases %standard-phases
2089          (add-before 'configure 'patch-path
2090            (lambda* (#:key inputs #:allow-other-keys)
2091              (let ((libc   (assoc-ref inputs "libc")))
2092                (substitute* "libgnome-desktop/gnome-languages.c"
2093                  (("\"locale\"")
2094                   (string-append "\"" libc "/bin/locale\"")))
2095                #t)))
2096          (add-before 'configure 'patch-bubblewrap
2097            (lambda* (#:key inputs #:allow-other-keys)
2098              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2099                (("\"bwrap\",")
2100                 (string-append "\"" (which "bwrap") "\","))
2101                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2102                 (string-append "\"--ro-bind\", \""
2103                                (%store-directory)
2104                                "\", \""
2105                                (%store-directory)
2106                                "\","))
2107                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2108              #t))
2109          (add-before 'check 'pre-check
2110            (lambda* (#:key inputs #:allow-other-keys)
2111              ;; Tests require a running X server and locales.
2112              (system "Xvfb :1 &")
2113              (setenv "DISPLAY" ":1")
2114              (setenv "GUIX_LOCPATH"
2115                      (string-append (assoc-ref inputs "glibc-locales")
2116                                     "/lib/locale"))
2117              #t)))))
2118     (native-inputs
2119      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2120        ("glibc-locales" ,glibc-locales) ; for tests
2121        ("gobject-introspection" ,gobject-introspection)
2122        ("itstool" ,itstool)
2123        ("intltool" ,intltool)
2124        ("pkg-config" ,pkg-config)
2125        ("xmllint" ,libxml2)
2126        ("xorg-server" ,xorg-server-for-tests)))
2127     (propagated-inputs
2128      ;; Required by gnome-desktop-3.0.pc.
2129      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2130        ("gtk+" ,gtk+)
2131        ("iso-codes" ,iso-codes)
2132        ("libseccomp" ,libseccomp)
2133        ("libx11" ,libx11)
2134        ("xkeyboard-config" ,xkeyboard-config)))
2135     (inputs
2136      `(("gdk-pixbuf" ,gdk-pixbuf)
2137        ("glib" ,glib)
2138        ("bubblewrap" ,bubblewrap)
2139        ("libxext" ,libxext)
2140        ("libxkbfile" ,libxkbfile)
2141        ("libxrandr" ,libxrandr)))
2142     (home-page "https://www.gnome.org/")
2143     (synopsis
2144      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2145     (description
2146      "The libgnome-desktop library provides API shared by several applications
2147 on the desktop, but that cannot live in the platform for various reasons.
2148 There is no API or ABI guarantee, although we are doing our best to provide
2149 stability.  Documentation for the API is available with gtk-doc.
2150
2151 The gnome-about program helps find which version of GNOME is installed.")
2152     ; Some bits under the LGPL.
2153     (license license:gpl2+)))
2154
2155 (define-public gnome-doc-utils
2156   (package
2157     (name "gnome-doc-utils")
2158     (version "0.20.10")
2159     (source
2160      (origin
2161       (method url-fetch)
2162       (uri (string-append "mirror://gnome/sources/" name "/"
2163                           (version-major+minor version)  "/"
2164                           name "-" version ".tar.xz"))
2165       (sha256
2166        (base32
2167         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2168     (build-system gnu-build-system)
2169     (native-inputs
2170      `(("intltool" ,intltool)
2171        ("docbook-xml" ,docbook-xml-4.4)
2172        ("python2-libxml2" ,python2-libxml2)
2173        ("libxml2" ,libxml2)
2174        ("libxslt" ,libxslt)
2175        ("pkg-config" ,pkg-config)
2176        ("python-2" ,python-2)))
2177     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2178     (synopsis
2179      "Documentation utilities for the Gnome project")
2180     (description
2181      "Gnome-doc-utils is a collection of documentation utilities for the
2182 Gnome project.  It includes xml2po tool which makes it easier to translate
2183 and keep up to date translations of documentation.")
2184     (license license:gpl2+))) ; xslt under lgpl
2185
2186 (define-public gnome-disk-utility
2187   (package
2188     (name "gnome-disk-utility")
2189     (version "3.34.0")
2190     (source (origin
2191               (method url-fetch)
2192               (uri (string-append "mirror://gnome/sources/" name "/"
2193                                   (version-major+minor version) "/"
2194                                   name "-" version ".tar.xz"))
2195               (sha256
2196                (base32
2197                 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
2198     (build-system meson-build-system)
2199     (arguments
2200      '(#:configure-flags '("-Dlogind=libelogind")
2201        #:phases
2202        (modify-phases %standard-phases
2203          (add-after 'unpack 'skip-gtk-update-icon-cache
2204            ;; Don't create 'icon-theme.cache'.
2205            (lambda _
2206              (substitute* "meson_post_install.py"
2207                (("gtk-update-icon-cache") "true"))
2208              #t)))))
2209     (native-inputs
2210      `(("glib:bin" ,glib "bin")
2211        ("intltool" ,intltool)
2212        ("pkg-config" ,pkg-config)
2213        ("docbook-xml" ,docbook-xml)
2214        ("docbook-xsl" ,docbook-xsl)
2215        ("libxml2" ,libxml2)
2216        ("libxslt" ,libxslt)))
2217     (inputs
2218      `(("elogind" ,elogind)
2219        ("glib" ,glib)
2220        ("appstream-glib" ,appstream-glib)
2221        ("gnome-settings-daemon" ,gnome-settings-daemon)
2222        ("gtk+" ,gtk+)
2223        ("libcanberra" ,libcanberra)
2224        ("libdvdread" ,libdvdread)
2225        ("libnotify" ,libnotify)
2226        ("libpwquality" ,libpwquality)
2227        ("libsecret" ,libsecret)
2228        ("udisks" ,udisks)))
2229     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2230     (synopsis "Disk management utility for GNOME")
2231     (description "Disk management utility for GNOME.")
2232     (license license:gpl2+)))
2233
2234 (define-public gnome-font-viewer
2235   (package
2236     (name "gnome-font-viewer")
2237     (version "3.30.0")
2238     (source (origin
2239               (method url-fetch)
2240               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2241                                   (version-major+minor version)
2242                                   "/gnome-font-viewer-" version ".tar.xz"))
2243               (sha256
2244                (base32
2245                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
2246     (build-system meson-build-system)
2247     (arguments
2248      '(#:phases
2249        (modify-phases %standard-phases
2250          (add-after 'unpack 'patch-post-install-script
2251            (lambda _
2252              (substitute* "meson-postinstall.sh"
2253                (("update-desktop-database") (which "true")))
2254              #t)))))
2255     (native-inputs
2256      `(("gettext" ,gettext-minimal)
2257        ("glib:bin" ,glib "bin")
2258        ("pkg-config" ,pkg-config)))
2259     (inputs
2260      `(("glib" ,glib)
2261        ("gnome-desktop" ,gnome-desktop)
2262        ("gtk+" ,gtk+)))
2263     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2264     (synopsis "GNOME Fonts")
2265     (description "Application to show you the fonts installed on your computer
2266 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2267 the font would look under various sizes.")
2268     (license license:gpl2+)))
2269
2270 (define-public gcr
2271   (package
2272     (name "gcr")
2273     (version "3.34.0")
2274     (source (origin
2275               (method url-fetch)
2276               (uri (string-append "mirror://gnome/sources/" name "/"
2277                                   (version-major+minor version)  "/"
2278                                   name "-" version ".tar.xz"))
2279               (sha256
2280                (base32
2281                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
2282     (build-system gnu-build-system)
2283     (arguments
2284      '(#:phases
2285        (modify-phases %standard-phases
2286          ;; These fail because /var/lib/dbus/machine-id is not present in the
2287          ;; build environment.
2288          (add-after 'unpack 'disable-failing-tests
2289            (lambda _
2290              (substitute* "Makefile.in"
2291                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
2292                 ""))
2293              #t))
2294          (add-before 'check 'pre-check
2295            (lambda _
2296              ;; Some tests expect to write to $HOME.
2297              (setenv "HOME" "/tmp")
2298              #t)))))
2299     (inputs
2300      `(("dbus" ,dbus)
2301        ("gnupg" ,gnupg)                ;called as a child process during tests
2302        ("libgcrypt" ,libgcrypt)))
2303     (native-inputs
2304      `(("python" ,python-wrapper)       ;for tests
2305        ("pkg-config" ,pkg-config)
2306        ("gettext" ,gettext-minimal)
2307        ("glib" ,glib "bin")
2308        ("gobject-introspection" ,gobject-introspection)
2309        ("libxml2" ,libxml2)
2310        ("vala" ,vala)
2311        ("xsltproc" ,libxslt)))
2312     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2313     (propagated-inputs
2314      `(("p11-kit" ,p11-kit)
2315        ("glib" ,glib)
2316        ("gtk+" ,gtk+)))
2317     (home-page "https://www.gnome.org")
2318     (synopsis "Libraries for displaying certificates and accessing key stores")
2319     (description
2320      "The GCR package contains libraries used for displaying certificates and
2321 accessing key stores.  It also provides the viewer for crypto files on the
2322 GNOME Desktop.")
2323     (license license:lgpl2.1+)))
2324
2325 (define-public gdl
2326   (package
2327     (name "gdl")
2328     (version "3.34.0")
2329     (source (origin
2330               (method git-fetch)
2331               (uri (git-reference
2332                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2333                     (commit (string-append "GDL_" (string-map (match-lambda
2334                                                                 (#\. #\_)
2335                                                                 (c c))
2336                                                               version)))))
2337               (file-name (git-file-name name version))
2338               (sha256
2339                (base32
2340                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2341     (build-system gnu-build-system)
2342     (native-inputs
2343      `(("autoconf" ,autoconf)
2344        ("automake" ,automake)
2345        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2346        ("gnome-common" ,gnome-common)
2347        ("gtk-doc" ,gtk-doc)
2348        ("intltool" ,intltool)
2349        ("pkg-config" ,pkg-config)
2350        ("libtool" ,libtool)
2351        ("which" ,which)))
2352     (inputs
2353      `(("libxml2" ,libxml2)))
2354     (propagated-inputs
2355      ;; The gdl-3.0.pc file 'Requires' GTK+.
2356      `(("gtk+" ,gtk+)))
2357     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2358     (synopsis "GNOME docking library")
2359     (description "This library provides docking features for gtk+.")
2360     (license license:lgpl2.1+)))
2361
2362 ;;; A minimal variant used to break a cycle with Inkscape.
2363 (define-public gdl-minimal
2364   (package
2365     (inherit gdl)
2366     (name "gdl-minimal")
2367     (arguments
2368      '(#:phases
2369        (modify-phases %standard-phases
2370          (add-after 'unpack 'disable-doc-generation
2371            ;; XXX: There is no easy way to disable generating the
2372            ;; documentation.
2373            (lambda _
2374              (substitute* "configure.in"
2375                (("GTK_DOC_CHECK.*") "")
2376                (("docs/.*") ""))
2377              (substitute* "Makefile.am"
2378                (("gdl docs po") "gdl po"))
2379              #t)))))
2380     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2381
2382 (define-public libgnome-keyring
2383   (package
2384     (name "libgnome-keyring")
2385     (version "3.12.0")
2386     (source (origin
2387              (method url-fetch)
2388              (uri (string-append "mirror://gnome/sources/" name "/"
2389                                  (version-major+minor version)  "/"
2390                                  name "-" version ".tar.xz"))
2391              (sha256
2392               (base32
2393                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2394     (build-system gnu-build-system)
2395     (inputs
2396      `(("libgcrypt" ,libgcrypt)
2397        ("dbus" ,dbus)))
2398     (native-inputs
2399      `(("pkg-config" ,pkg-config)
2400        ("glib" ,glib "bin")
2401        ("intltool" ,intltool)))
2402     (propagated-inputs
2403      ;; Referred to in .h files and .pc.
2404      `(("glib" ,glib)))
2405     (home-page "https://www.gnome.org")
2406     (synopsis "Accessing passwords from the GNOME keyring")
2407     (description
2408      "Client library to access passwords from the GNOME keyring.")
2409
2410     ;; Though a couple of files are LGPLv2.1+.
2411     (license license:lgpl2.0+)))
2412
2413 (define-public gnome-keyring
2414   (package
2415     (name "gnome-keyring")
2416     (version "3.34.0")
2417     (source (origin
2418              (method url-fetch)
2419              (uri (string-append "mirror://gnome/sources/" name "/"
2420                                  (version-major+minor version)  "/"
2421                                  name "-" version ".tar.xz"))
2422              (sha256
2423               (base32
2424                "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
2425     (build-system gnu-build-system)
2426     (arguments
2427      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2428                    ;not exist
2429        #:configure-flags
2430        (list
2431         (string-append "--with-pkcs11-config="
2432                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2433         (string-append "--with-pkcs11-modules="
2434                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2435        #:phases
2436        (modify-phases %standard-phases
2437          (add-after 'unpack 'fix-/bin/sh-reference
2438            (lambda _
2439              (substitute* "po/Makefile.in.in"
2440                (("/bin/sh") (which "sh")))
2441              #t))
2442          (add-after 'unpack 'fix-docbook
2443            (lambda* (#:key inputs #:allow-other-keys)
2444              (substitute* "docs/Makefile.am"
2445                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2446                 (string-append (assoc-ref inputs "docbook-xsl")
2447                                "/xml/xsl/docbook-xsl-"
2448                                ,(package-version docbook-xsl)
2449                                "/manpages/docbook.xsl")))
2450              (setenv "XML_CATALOG_FILES"
2451                      (string-append (assoc-ref inputs "docbook-xml")
2452                                     "/xml/dtd/docbook/catalog.xml"))
2453              ;; Rerun the whole thing to avoid version mismatch ("This is
2454              ;; Automake 1.15.1, but the definition used by this
2455              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2456              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2457              (invoke "autoconf")
2458              (invoke "aclocal")
2459              (invoke "automake" "-ac"))))))
2460     (inputs
2461      `(("libgcrypt" ,libgcrypt)
2462        ("linux-pam" ,linux-pam)
2463        ("openssh" ,openssh)
2464        ("dbus" ,dbus)
2465        ("gcr" ,gcr)))
2466     (native-inputs
2467      `(("pkg-config" ,pkg-config)
2468        ("glib" ,glib "bin")
2469        ("glib" ,glib) ; for m4 macros
2470        ("python" ,python-2) ;for tests
2471        ("intltool" ,intltool)
2472        ("autoconf" ,autoconf)
2473        ("automake" ,automake)
2474        ("libxslt" ,libxslt) ;for documentation
2475        ("docbook-xml" ,docbook-xml-4.2)
2476        ("docbook-xsl" ,docbook-xsl)))
2477     (home-page "https://www.gnome.org")
2478     (synopsis "Daemon to store passwords and encryption keys")
2479     (description
2480      "gnome-keyring is a program that keeps passwords and other secrets for
2481 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2482 applications locate it via an environment variable or D-Bus.
2483
2484 The program can manage several keyrings, each with its own master password,
2485 and there is also a session keyring which is never stored to disk, but
2486 forgotten when the session ends.")
2487     (license license:lgpl2.1+)))
2488
2489 (define-public evince
2490   (package
2491     (name "evince")
2492     (version "3.36.5")
2493     (source (origin
2494              (method url-fetch)
2495              (uri (string-append "mirror://gnome/sources/evince/"
2496                                  (version-major+minor version) "/"
2497                                  "evince-" version ".tar.xz"))
2498              (sha256
2499               (base32
2500                "0z79jl0j9xq9wgwkfr0d1w1qrdy4447y8shs407n5srr0vixc3bg"))))
2501     (build-system glib-or-gtk-build-system)
2502     (arguments
2503      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
2504        #:phases
2505        (modify-phases %standard-phases
2506          (add-before 'install 'skip-gtk-update-icon-cache
2507            ;; Don't create 'icon-theme.cache'.
2508            (lambda _
2509              (substitute* "data/Makefile"
2510                (("gtk-update-icon-cache") "true"))
2511              #t)))))
2512     (inputs
2513      `(("libarchive" ,libarchive)
2514        ("libgxps" ,libgxps)
2515        ("libspectre" ,libspectre)
2516        ("djvulibre" ,djvulibre)
2517        ("ghostscript" ,ghostscript)
2518        ("poppler" ,poppler)
2519        ("libtiff" ,libtiff)
2520        ;; TODO:
2521        ;;   Build libkpathsea as a shared library for DVI support.
2522        ;; ("libkpathsea" ,texlive-bin)
2523        ("gnome-desktop" ,gnome-desktop)
2524        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2525        ("gspell" ,gspell)
2526        ("libgnome-keyring" ,libgnome-keyring)
2527        ("adwaita-icon-theme" ,adwaita-icon-theme)
2528        ("gdk-pixbuf" ,gdk-pixbuf)
2529        ("atk" ,atk)
2530        ("pango" ,pango)
2531        ("gtk+" ,gtk+)
2532        ("glib" ,glib)
2533        ("libxml2" ,libxml2)
2534        ("libsm" ,libsm)
2535        ("libice" ,libice)
2536        ("shared-mime-info" ,shared-mime-info)
2537        ("dconf" ,dconf)
2538        ("libcanberra" ,libcanberra)
2539        ("libsecret" ,libsecret)
2540
2541        ;; For tests.
2542        ("dogtail" ,python2-dogtail)))
2543     (native-inputs
2544      `(("itstool" ,itstool)
2545        ("intltool" ,intltool)
2546        ("glib" ,glib "bin")
2547        ("gobject-introspection" ,gobject-introspection)
2548        ("pkg-config" ,pkg-config)
2549        ("xmllint" ,libxml2)))
2550     (home-page "https://www.gnome.org/projects/evince/")
2551     (synopsis "GNOME's document viewer")
2552     (description
2553      "Evince is a document viewer for multiple document formats.  It
2554 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2555 of Evince is to replace the multiple document viewers that exist
2556 on the GNOME Desktop with a single simple application.")
2557     (license license:gpl2+)))
2558
2559 (define-public gsettings-desktop-schemas
2560   (package
2561     (name "gsettings-desktop-schemas")
2562     (version "3.34.0")
2563     (source
2564      (origin
2565       (method url-fetch)
2566       (uri (string-append "mirror://gnome/sources/" name "/"
2567                           (version-major+minor version)  "/"
2568                           name "-" version ".tar.xz"))
2569       (sha256
2570        (base32
2571         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
2572     (build-system meson-build-system)
2573     (arguments
2574      '(#:phases (modify-phases %standard-phases
2575                   (add-after 'unpack 'patch-schemas
2576                     (lambda* (#:key inputs #:allow-other-keys)
2577                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2578                         (substitute* (find-files "schemas"
2579                                                  "\\.gschema\\.xml\\.in$")
2580                           ;; Provide the correct file name of the default GNOME
2581                           ;; background, 'adwaita-timed.xml'.
2582                           (("@datadir@/backgrounds/gnome")
2583                            (string-append theme "/share/backgrounds/gnome"))
2584                           ;; Do not reference fonts, that may not exist.
2585                           (("'Source Code Pro 10'") "'Monospace 11'"))
2586                         #t))))))
2587     (inputs
2588      `(("glib" ,glib)
2589        ("gnome-backgrounds" ,gnome-backgrounds)))
2590     (native-inputs
2591      `(("intltool" ,intltool)
2592        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
2593        ("gobject-introspection" ,gobject-introspection)
2594        ("pkg-config" ,pkg-config)))
2595     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2596     (synopsis
2597      "GNOME settings for various desktop components")
2598     (description
2599      "Gsettings-desktop-schemas contains a collection of GSettings schemas
2600 for settings shared by various components of the GNOME desktop.")
2601     (license license:lgpl2.1+)))
2602
2603 (define-public python-liblarch
2604   (package
2605     (name "python-liblarch")
2606     (version "3.0.1")
2607     (source
2608      (origin
2609        (method git-fetch)
2610        (uri (git-reference
2611              (url "https://github.com/getting-things-gnome/liblarch")
2612              (commit (string-append "v" version))))
2613        (file-name (git-file-name name version))
2614        (sha256
2615         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2616     (build-system python-build-system)
2617     (arguments
2618      `(#:phases
2619        (modify-phases %standard-phases
2620          (add-before 'check 'start-xserver
2621            (lambda* (#:key inputs #:allow-other-keys)
2622              (system (format #f "~a/bin/Xvfb :1 &"
2623                              (assoc-ref inputs "xorg-server")))
2624              (setenv "DISPLAY" ":1")
2625              #t)))))
2626     (native-inputs
2627      `(("xorg-server" ,xorg-server-for-tests)))
2628     (inputs
2629      `(("gtk+" ,gtk+)))
2630     (propagated-inputs
2631      `(("python-pygobject" ,python-pygobject)))
2632     (home-page "https://wiki.gnome.org/Projects/liblarch")
2633     (synopsis "Library to easily handle complex data structures")
2634     (description
2635      "Liblarch is a Python library built to easily handle data structures such
2636 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2637 allow you to use your data structure in a @code{Gtk.Treeview}.
2638
2639 Liblarch support multiple views of one data structure and complex filtering.
2640 That way, you have a clear separation between your data themselves (Model)
2641 and how they are displayed (View).")
2642     (license license:lgpl3+)))
2643
2644 (define-public gtg
2645   (package
2646     (name "gtg")
2647     (version "0.4")
2648     (source
2649      (origin
2650        (method git-fetch)
2651        (uri (git-reference
2652              (url "https://github.com/getting-things-gnome/gtg")
2653              (commit (string-append "v" version))))
2654        (file-name (git-file-name name version))
2655        (sha256
2656         (base32 "0r28vyr88rj3kd3cg4gj7sd29wadjchi92wzmbx67d4hlg25h8kk"))))
2657     (build-system meson-build-system)
2658     (arguments
2659      `(#:glib-or-gtk? #t
2660        #:phases
2661        (modify-phases %standard-phases
2662          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2663            (lambda* (#:key outputs #:allow-other-keys)
2664              (let ((prog (string-append (assoc-ref outputs "out")
2665                                         "/bin/gtg"))
2666                    (pylib (string-append (assoc-ref outputs "out")
2667                                          "/lib/python"
2668                                          ,(version-major+minor
2669                                            (package-version python))
2670                                          "/site-packages")))
2671                (wrap-program prog
2672                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
2673                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2674                #t))))))
2675     (native-inputs
2676      `(("desktop-file-utils" ,desktop-file-utils)
2677        ("gettext" ,gettext-minimal)
2678        ("glib:bin" ,glib "bin")
2679        ("gobject-introspection" ,gobject-introspection)
2680        ("gtk+:bin" ,gtk+ "bin")
2681        ("pkg-config" ,pkg-config)))
2682     (inputs
2683      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2684        ("gtk+" ,gtk+)
2685        ("python-dbus" ,python-dbus)
2686        ("python-liblarch" ,python-liblarch)
2687        ("python-pycairo" ,python-pycairo)
2688        ("python-pygobject" ,python-pygobject)
2689        ("python-pyxdg" ,python-pyxdg)))
2690     (home-page "https://wiki.gnome.org/Apps/GTG")
2691     (synopsis "Personal organizer for the GNOME desktop")
2692     (description
2693      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2694 organizer for the GNOME desktop environment inspired by the Getting Things
2695 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2696 and ease of use in mind so it can be used as more than just GTD software.
2697 GTG is intended to help you track everything you need to do and need to
2698 know, from small tasks to large projects.")
2699     (license license:gpl3+)))
2700
2701 (define-public icon-naming-utils
2702   (package
2703     (name "icon-naming-utils")
2704     (version "0.8.90")
2705     (source
2706      (origin
2707       (method url-fetch)
2708       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2709                           version ".tar.bz2"))
2710       (sha256
2711        (base32
2712         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2713     (build-system gnu-build-system)
2714     (inputs
2715      `(("perl" ,perl)
2716        ("perl-xml-simple" ,perl-xml-simple)))
2717     (arguments
2718      '(#:phases
2719        (modify-phases %standard-phases
2720          (add-after 'install 'set-load-paths
2721            ;; Tell 'icon-name-mapping' where XML::Simple is.
2722            (lambda* (#:key outputs #:allow-other-keys)
2723              (let* ((out  (assoc-ref outputs "out"))
2724                     (prog (string-append out "/libexec/icon-name-mapping")))
2725                (wrap-program
2726                    prog
2727                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2728              #t)))))
2729     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2730     (synopsis
2731      "Utility to implement the Freedesktop Icon Naming Specification")
2732     (description
2733      "To help with the transition to the Freedesktop Icon Naming
2734 Specification, the icon naming utility maps the icon names used by the
2735 GNOME and KDE desktops to the icon names proposed in the specification.")
2736     (license license:lgpl2.1+)))
2737
2738 (define-public gnome-icon-theme
2739   (package
2740     (name "gnome-icon-theme")
2741     (version "3.12.0")
2742     (source
2743      (origin
2744       (method url-fetch)
2745       (uri (string-append "mirror://gnome/sources/" name "/"
2746                           (version-major+minor version)  "/"
2747                           name "-" version ".tar.xz"))
2748       (sha256
2749        (base32
2750         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2751     (build-system gnu-build-system)
2752     (arguments
2753      '(#:configure-flags
2754        ;; Don't create 'icon-theme.cache'.
2755        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2756               (true      (string-append coreutils "/bin/true")))
2757          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2758     (native-inputs
2759      `(("icon-naming-utils" ,icon-naming-utils)
2760        ("intltool" ,intltool)
2761        ("pkg-config" ,pkg-config)))
2762     (home-page "https://wiki.gnome.org/Personalization")
2763     (synopsis "GNOME icon theme")
2764     (description "Icons for the GNOME desktop.")
2765     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2766
2767 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2768 (define-public adwaita-icon-theme
2769   (package (inherit gnome-icon-theme)
2770     (name "adwaita-icon-theme")
2771     (version "3.34.3")
2772     (source (origin
2773               (method url-fetch)
2774               (uri (string-append "mirror://gnome/sources/" name "/"
2775                                   (version-major+minor version) "/"
2776                                   name "-" version ".tar.xz"))
2777               (sha256
2778                (base32
2779                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
2780     (native-inputs
2781      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
2782
2783 (define-public tango-icon-theme
2784   (package
2785     (name "tango-icon-theme")
2786     (version "0.8.90")
2787     (source (origin
2788               (method url-fetch)
2789               (uri (string-append "http://tango.freedesktop.org/releases/"
2790                                   "tango-icon-theme-" version ".tar.bz2"))
2791               (sha256
2792                (base32
2793                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2794     (build-system gnu-build-system)
2795     (native-inputs
2796      `(("icon-naming-utils" ,icon-naming-utils)
2797        ("intltool" ,intltool)
2798        ("imagemagick" ,imagemagick)
2799        ("pkg-config" ,pkg-config)))
2800     (home-page "http://tango-project.org/")
2801     (synopsis "Tango icon theme")
2802     (description "This is an icon theme that follows the Tango visual
2803 guidelines.")
2804     (license license:public-domain)))
2805
2806 (define-public shared-mime-info
2807   (package
2808     (name "shared-mime-info")
2809     (version "1.15")
2810     (source (origin
2811              (method url-fetch)
2812              (uri (string-append
2813                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2814                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2815                    ".tar.xz"))
2816              (sha256
2817               (base32
2818                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2819     (build-system gnu-build-system)
2820     (arguments
2821      ;; The build system appears not to be parallel-safe.
2822      '(#:parallel-build? #f))
2823     (inputs
2824      `(("glib" ,glib)
2825        ("libxml2" ,libxml2)))
2826     (native-inputs
2827      `(("gettext" ,gettext-minimal)
2828        ("itstool" ,itstool)
2829        ("pkg-config" ,pkg-config)))
2830     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2831     (synopsis "Database of common MIME types")
2832     (description
2833      "The shared-mime-info package contains the core database of common types
2834 and the update-mime-database command used to extend it.  It requires glib2 to
2835 be installed for building the update command.  Additionally, it uses intltool
2836 for translations, though this is only a dependency for the maintainers.  This
2837 database is translated at Transifex.")
2838     (license license:gpl2+)))
2839
2840 (define-public system-config-printer
2841   (package
2842     (name "system-config-printer")
2843     (version "1.5.13")
2844     (source
2845      (origin
2846        (method url-fetch)
2847        (uri (string-append
2848              "https://github.com/OpenPrinting/system-config-printer/releases/"
2849              "download/v" version
2850              "/system-config-printer-" version ".tar.xz"))
2851        (sha256
2852         (base32 "18dqvi1s971lggkw6pv1sqxixlpg5a8rppzc1pxbanxa91jg18zf"))))
2853     (build-system glib-or-gtk-build-system)
2854     (arguments
2855      `(#:imported-modules ((guix build python-build-system)
2856                            ,@%glib-or-gtk-build-system-modules)
2857        #:phases
2858        (modify-phases %standard-phases
2859          (add-after 'unpack 'patch-Makefile.am
2860            (lambda _
2861              ;; The Makefile generates some scripts, so set a valid shebang
2862              (substitute* "Makefile.am"
2863                (("/bin/bash") (which "bash")))
2864              (delete-file "configure")
2865              #t))
2866          (add-after 'unpack 'patch-docbook-xml
2867            (lambda* (#:key inputs #:allow-other-keys)
2868              ;; Modify the man XML otherwise xmlto tries to access the network
2869              (substitute* "man/system-config-printer.xml"
2870                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2871                 (string-append (assoc-ref inputs "docbook-xml")
2872                                "/xml/dtd/docbook/")))
2873              #t))
2874          (add-after 'install 'wrap-for-python
2875            (@@ (guix build python-build-system) wrap))
2876          (add-after 'install 'wrap
2877            (lambda* (#:key outputs #:allow-other-keys)
2878              (let ((out               (assoc-ref outputs "out"))
2879                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2880                (for-each
2881                 (lambda (program)
2882                   (wrap-program program
2883                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2884                 (map (lambda (name)
2885                        (string-append out "/bin/" name))
2886                      '("system-config-printer"
2887                        "system-config-printer-applet"
2888                        "install-printerdriver"
2889                        "scp-dbus-service"))))
2890              #t)))))
2891     (inputs
2892      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2893        ("gobject-introspection" ,gobject-introspection)
2894        ("python" ,python)
2895        ("cups" ,cups)
2896        ("gtk+" ,gtk+)
2897        ("python-dbus" ,python-dbus)
2898        ("python-pygobject" ,python-pygobject)
2899        ("python-pycups" ,python-pycups)
2900        ("python-requests" ,python-requests)
2901        ("python-pycairo" ,python-pycairo)
2902        ("libnotify" ,libnotify)
2903        ("packagekit" ,packagekit)))
2904     (native-inputs
2905      `(("pkg-config" ,pkg-config)
2906        ("desktop-file-utils" ,desktop-file-utils)
2907        ("glib" ,glib)
2908        ("autoconf" ,autoconf)
2909        ("automake" ,automake)
2910        ("intltool" ,intltool)
2911        ("xmlto" ,xmlto)
2912        ("docbook-xml" ,docbook-xml-4.1.2)
2913        ("docbook-xsl" ,docbook-xsl)
2914        ("libxml2" ,libxml2)))
2915     (home-page "https://github.com/zdohnal/system-config-printer")
2916     (synopsis "CUPS administration tool")
2917     (description
2918      "system-config-printer is a CUPS administration tool.  It's written in
2919 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2920 configuring CUPS.")
2921     (license license:gpl2+)))
2922
2923 (define-public hicolor-icon-theme
2924   (package
2925     (name "hicolor-icon-theme")
2926     (version "0.17")
2927     (source
2928      (origin
2929       (method url-fetch)
2930       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
2931                           "hicolor-icon-theme-" version ".tar.xz"))
2932       (sha256
2933        (base32
2934         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
2935     (build-system gnu-build-system)
2936     (arguments
2937      `(#:tests? #f)) ; no check target
2938     (home-page "https://icon-theme.freedesktop.org/releases/")
2939     (synopsis
2940      "Freedesktop icon theme")
2941     (description
2942      "Freedesktop icon theme.")
2943     (license license:gpl2)))
2944
2945 (define-public libnotify
2946   (package
2947     (name "libnotify")
2948     (version "0.7.7")
2949     (source
2950      (origin
2951       (method url-fetch)
2952       (uri (string-append "mirror://gnome/sources/" name "/"
2953                           (version-major+minor version)  "/"
2954                           name "-" version ".tar.xz"))
2955       (sha256
2956        (base32
2957         "017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
2958     (build-system gnu-build-system)
2959     (arguments
2960      `(#:configure-flags '("--disable-static")))
2961     (propagated-inputs
2962      `(;; In Requires of libnotify.pc.
2963        ("gdk-pixbuf" ,gdk-pixbuf)
2964        ("glib" ,glib)))
2965     (inputs
2966      `(("gtk+" ,gtk+)
2967        ("libpng" ,libpng)))
2968     (native-inputs
2969       `(("pkg-config" ,pkg-config)
2970         ("glib" ,glib "bin")
2971         ("gobject-introspection" ,gobject-introspection)))
2972     (home-page "https://developer-next.gnome.org/libnotify/")
2973     (synopsis
2974      "GNOME desktop notification library")
2975     (description
2976      "Libnotify is a library that sends desktop notifications to a
2977 notification daemon, as defined in the Desktop Notifications spec.  These
2978 notifications can be used to inform the user about an event or display
2979 some form of information without getting in the user's way.")
2980     (license license:lgpl2.1+)))
2981
2982 (define-public libpeas
2983   (package
2984     (name "libpeas")
2985     (version "1.24.1")
2986     (source
2987      (origin
2988       (method url-fetch)
2989       (uri (string-append "mirror://gnome/sources/" name "/"
2990                           (version-major+minor version)  "/"
2991                           name "-" version ".tar.xz"))
2992       (sha256
2993        (base32
2994         "1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
2995     (build-system meson-build-system)
2996     (arguments
2997      '(#:phases
2998        (modify-phases %standard-phases
2999          (add-before 'check 'start-xserver
3000            (lambda* (#:key inputs #:allow-other-keys)
3001              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3002                    (disp ":1"))
3003                (setenv "DISPLAY" disp)
3004                ;; Tests require a running X server.
3005                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3006                #t))))))
3007     (inputs
3008      `(("gtk+" ,gtk+)
3009        ("glade" ,glade3)
3010        ("python" ,python)
3011        ("python-pygobject" ,python-pygobject)))
3012     (native-inputs
3013      `(("pkg-config" ,pkg-config)
3014        ("gettext" ,gettext-minimal)
3015        ("glib:bin" ,glib "bin")
3016        ("gobject-introspection" ,gobject-introspection)
3017        ("xorg-server" ,xorg-server-for-tests)))
3018     (propagated-inputs
3019      ;; The .pc file "Requires" gobject-introspection.
3020      `(("gobject-introspection" ,gobject-introspection)))
3021     (home-page "https://wiki.gnome.org/Libpeas")
3022     (synopsis "GObject plugin system")
3023     (description
3024      "Libpeas is a gobject-based plugin engine, targeted at giving every
3025 application the chance to assume its own extensibility.  It also has a set of
3026 features including, but not limited to: multiple extension points; on-demand
3027 (lazy) programming language support for C, Python and JS; simplicity of the
3028 API.")
3029     (license license:lgpl2.0+)))
3030
3031 (define-public gtkglext
3032   (package
3033     (name "gtkglext")
3034     (version "1.2.0")
3035     (source (origin
3036               (method url-fetch)
3037               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3038                                   version "/gtkglext-" version ".tar.gz"))
3039               (sha256
3040                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3041               (patches (search-patches
3042                         "gtkglext-disable-disable-deprecated.patch"))))
3043     (build-system gnu-build-system)
3044     (arguments
3045      `(#:phases
3046        (modify-phases %standard-phases
3047          ;; Fix a collision between a local variable and a definition from
3048          ;; glibc's string.h.
3049          (add-after 'unpack 'fix-collision
3050            (lambda _
3051              (substitute* "gdk/gdkglshapes.c"
3052                ((" index") " triangle_index"))
3053              #t)))))
3054     (inputs `(("gtk+" ,gtk+-2)
3055               ("mesa" ,mesa)
3056               ("glu" ,glu)
3057               ("libx11" ,libx11)
3058               ("libxt" ,libxt)))
3059     (native-inputs `(("pkg-config" ,pkg-config)
3060                      ("glib" ,glib "bin")))
3061     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
3062     (home-page "https://projects.gnome.org/gtkglext")
3063     (synopsis "OpenGL extension to GTK+")
3064     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3065 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3066 API add-ons to make GTK+ widgets OpenGL-capable.")
3067     (license license:lgpl2.1+)))
3068
3069 (define-public glade3
3070   (package
3071     (name "glade")
3072     (version "3.36.0")
3073     (source (origin
3074               (method url-fetch)
3075               (uri (string-append "mirror://gnome/sources/" name "/"
3076                                   (version-major+minor version)  "/"
3077                                   name "-" version ".tar.xz"))
3078               (sha256
3079                (base32
3080                 "023gx8rj51njn8fsb6ma5kz1irjpxi4js0n8rwy22inc4ysldd8r"))))
3081     (build-system glib-or-gtk-build-system)
3082     (arguments
3083      `(#:phases
3084        (modify-phases %standard-phases
3085          (add-before 'configure 'fix-docbook
3086            (lambda* (#:key inputs #:allow-other-keys)
3087              (substitute* "man/Makefile.in"
3088                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
3089                 (string-append (assoc-ref inputs "docbook-xsl")
3090                                "/xml/xsl/docbook-xsl-"
3091                                ,(package-version docbook-xsl)
3092                                "/manpages/docbook.xsl")))
3093              #t))
3094          (add-before 'check 'pre-check
3095            (lambda _
3096              (setenv "HOME" "/tmp")
3097              ;; Tests require a running X server.
3098              (system "Xvfb :1 &")
3099              (setenv "DISPLAY" ":1")
3100              #t)))))
3101     (inputs
3102      `(("gtk+" ,gtk+)
3103        ("libxml2" ,libxml2)))
3104     (native-inputs
3105      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3106        ("intltool" ,intltool)
3107        ("itstool" ,itstool)
3108        ("libxslt" ,libxslt) ;for xsltproc
3109        ("docbook-xml" ,docbook-xml-4.2)
3110        ("docbook-xsl" ,docbook-xsl)
3111        ("python" ,python-2)
3112        ("pkg-config" ,pkg-config)
3113        ("xorg-server" ,xorg-server-for-tests)))
3114     (home-page "https://glade.gnome.org")
3115     (synopsis "GTK+ rapid application development tool")
3116     (description "Glade is a rapid application development (RAD) tool to
3117 enable quick & easy development of user interfaces for the GTK+ toolkit and
3118 the GNOME desktop environment.")
3119     (license license:lgpl2.0+)
3120     (native-search-paths (list (search-path-specification
3121                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3122                                 (files '("share/glade/catalogs")))
3123                                (search-path-specification
3124                                 (variable "GLADE_MODULE_SEARCH_PATH")
3125                                 (files '("lib/glade/modules")))))))
3126
3127 (define-public libcroco
3128   (package
3129     (name "libcroco")
3130     (version "0.6.13")
3131     (source (origin
3132               (method url-fetch)
3133               (uri (string-append "mirror://gnome/sources/" name "/"
3134                                   (version-major+minor version)  "/"
3135                                   name "-" version ".tar.xz"))
3136               (sha256
3137                (base32
3138                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3139     (build-system gnu-build-system)
3140     (native-inputs
3141      `(("pkg-config" ,pkg-config)))
3142     (inputs
3143      `(("glib" ,glib)
3144        ("libxml2" ,libxml2)
3145        ("zlib" ,zlib)))
3146     (home-page "https://github.com/GNOME/libcroco")
3147     (synopsis "CSS2 parsing and manipulation library")
3148     (description
3149      "Libcroco is a standalone CSS2 parsing and manipulation library.
3150 The parser provides a low level event driven SAC-like API and a CSS object
3151 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3152 XML/CSS rendering engine.")
3153
3154     ;; LGPLv2.1-only.
3155     (license license:lgpl2.1)))
3156
3157 (define-public libgsf
3158   (package
3159     (name "libgsf")
3160     (version "1.14.47")
3161     (source (origin
3162               (method url-fetch)
3163               (uri (string-append "mirror://gnome/sources/" name "/"
3164                                   (version-major+minor version)  "/"
3165                                   name "-" version ".tar.xz"))
3166               (sha256
3167                (base32
3168                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3169     (build-system gnu-build-system)
3170     (arguments
3171      '(#:configure-flags '("--disable-static")))
3172     (native-inputs
3173      `(("pkg-config" ,pkg-config)
3174        ("gettext" ,gettext-minimal)
3175
3176        ;; For tests.
3177        ("perl" ,perl)
3178        ("perl-xml-parser" ,perl-xml-parser)))
3179     (inputs
3180      `(("zlib" ,zlib)
3181        ("bzip2" ,bzip2)))
3182     (propagated-inputs
3183      `(("gdk-pixbuf" ,gdk-pixbuf)
3184        ("glib" ,glib)
3185        ("libxml2" ,libxml2)))
3186     (home-page "https://www.gnome.org/projects/libgsf")
3187     (synopsis "GNOME's Structured File Library")
3188     (description
3189      "Libgsf aims to provide an efficient extensible I/O abstraction for
3190 dealing with different structured file formats.")
3191
3192     ;; LGPLv2.1-only.
3193     (license license:lgpl2.1)))
3194
3195 (define-public librsvg
3196   (package
3197     (name "librsvg")
3198     (version "2.40.21")
3199     (source (origin
3200               (method url-fetch)
3201               (uri (string-append "mirror://gnome/sources/" name "/"
3202                                   (version-major+minor version)  "/"
3203                                   name "-" version ".tar.xz"))
3204               (sha256
3205                (base32
3206                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3207     (build-system gnu-build-system)
3208     (arguments
3209      `(#:configure-flags
3210        (list "--disable-static"
3211              "--enable-vala") ; needed for e.g. gnome-mines
3212        #:phases
3213        (modify-phases %standard-phases
3214          (add-before 'configure 'pre-configure
3215            (lambda* (#:key inputs #:allow-other-keys)
3216              (substitute* "gdk-pixbuf-loader/Makefile.in"
3217                ;; By default the gdk-pixbuf loader is installed under
3218                ;; gdk-pixbuf's prefix.  Work around that.
3219                (("gdk_pixbuf_moduledir = .*$")
3220                 (string-append "gdk_pixbuf_moduledir = "
3221                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3222                                 "loaders\n"))
3223                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3224                (("gdk_pixbuf_cache_file = .*$")
3225                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3226              #t))
3227          (add-before 'check 'remove-failing-tests
3228            (lambda _
3229              (with-directory-excursion "tests/fixtures/reftests"
3230                (for-each delete-file
3231                          '(;; This test fails on i686:
3232                            "svg1.1/masking-path-04-b.svg"
3233                            ;; This test fails on armhf:
3234                            "svg1.1/masking-mask-01-b.svg"
3235                            ;; This test fails on aarch64:
3236                            "bugs/777834-empty-text-children.svg")))
3237              #t)))))
3238     (native-inputs
3239      `(("pkg-config" ,pkg-config)
3240        ("vala" ,vala)
3241        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
3242        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3243     (inputs
3244      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3245        ;; this ancient version of librsvg.
3246        ("pango" ,pango-1.42)
3247        ("libcroco" ,libcroco)
3248        ("bzip2" ,bzip2)
3249        ("libgsf" ,libgsf)
3250        ("libxml2" ,libxml2)))
3251     (propagated-inputs
3252      ;; librsvg-2.0.pc refers to all of that.
3253      `(("cairo" ,cairo)
3254        ("gdk-pixbuf" ,gdk-pixbuf)
3255        ("glib" ,glib)))
3256     (home-page "https://wiki.gnome.org/LibRsvg")
3257     (synopsis "Render SVG files using Cairo")
3258     (description
3259      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
3260 library.")
3261     (license license:lgpl2.0+)))
3262
3263 (define-public librsvg-next
3264   (package
3265     (name "librsvg")
3266     (version "2.50.1")
3267     (source (origin
3268               (method url-fetch)
3269               (uri (string-append "mirror://gnome/sources/librsvg/"
3270                                   (version-major+minor version)  "/"
3271                                   "librsvg-" version ".tar.xz"))
3272               (sha256
3273                (base32
3274                 "02csvx2nzygh8kyal2qiy3y6xb7d52vszxxr37dzav704a9pkncv"))
3275               (modules '((guix build utils)))
3276               (snippet
3277                '(begin (delete-file-recursively "vendor")
3278                        #t))))
3279     (build-system cargo-build-system)
3280     (outputs '("out" "doc"))
3281     (arguments
3282      `(#:modules
3283        ((guix build cargo-build-system)
3284         (guix build utils)
3285         ((guix build gnu-build-system) #:prefix gnu:))
3286        #:rust ,rust-1.40
3287        #:cargo-inputs
3288        (("rust-bitflags" ,rust-bitflags-1)
3289         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3290         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3291         ("rust-cast" ,rust-cast-0.2)
3292         ("rust-cssparser" ,rust-cssparser-0.27)
3293         ("rust-data-url" ,rust-data-url-0.1)
3294         ("rust-encoding" ,rust-encoding-0.2)
3295         ("rust-float-cmp" ,rust-float-cmp-0.8)
3296         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3297         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3298         ("rust-gio" ,rust-gio-0.8)
3299         ("rust-gio-sys" ,rust-gio-sys-0.9)
3300         ("rust-glib" ,rust-glib-0.9)
3301         ("rust-glib-sys" ,rust-glib-sys-0.9)
3302         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3303         ("rust-itertools" ,rust-itertools-0.9)
3304         ("rust-language-tags" ,rust-language-tags-0.2)
3305         ("rust-libc" ,rust-libc-0.2)
3306         ("rust-locale-config" ,rust-locale-config-0.3)
3307         ("rust-markup5ever" ,rust-markup5ever-0.10)
3308         ("rust-nalgebra" ,rust-nalgebra-0.21)
3309         ("rust-num-traits" ,rust-num-traits-0.2)
3310         ("rust-once-cell" ,rust-once-cell-1)
3311         ("rust-pkg-config" ,rust-pkg-config-0.3)
3312         ("rust-pango" ,rust-pango-0.8)
3313         ("rust-pango-sys" ,rust-pango-sys-0.9)
3314         ("rust-pangocairo" ,rust-pangocairo-0.9)
3315         ("rust-rayon" ,rust-rayon-1)
3316         ("rust-rctree" ,rust-rctree-0.3)
3317         ("rust-rgb" ,rust-rgb-0.8)
3318         ("rust-regex" ,rust-regex-1)
3319         ("rust-selectors" ,rust-selectors-0.22)
3320         ("rust-string-cache" ,rust-string-cache-0.8)
3321         ("rust-tinyvec" ,rust-tinyvec-0.3)
3322         ("rust-url" ,rust-url-2)
3323         ("rust-xml5ever" ,rust-xml5ever-0.16))
3324        #:cargo-development-inputs
3325        (("rust-assert-cmd" ,rust-assert-cmd-1)
3326         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3327         ("rust-chrono" ,rust-chrono-0.4)
3328         ("rust-criterion" ,rust-criterion-0.3)
3329         ("rust-float-cmp" ,rust-float-cmp-0.8)
3330         ("rust-lopdf" ,rust-lopdf-0.25)
3331         ("rust-png" ,rust-png-0.16)
3332         ("rust-predicates" ,rust-predicates-1)
3333         ("rust-tempfile" ,rust-tempfile-3))
3334        #:phases
3335        (modify-phases %standard-phases
3336          (add-after 'unpack 'patch-docbook-xml
3337            (lambda* (#:key inputs #:allow-other-keys)
3338              (with-directory-excursion "doc"
3339                (substitute* "rsvg-docs.xml"
3340                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3341                   (string-append (assoc-ref inputs "docbook-xml")
3342                                  "/xml/dtd/docbook/"))))
3343              #t))
3344          (add-after 'unpack 'prepare-for-build
3345            (lambda _
3346              ;; In lieu of #:make-flags
3347              (setenv "CC" ,(cc-for-target))
3348              ;; Something about the build environment resists building
3349              ;; successfully with the '--locked' flag.
3350              (substitute* '("Makefile.am" "Makefile.in")
3351                (("--locked") ""))
3352              #t))
3353          (add-before 'configure 'pre-configure
3354            (lambda _
3355              (substitute* "gdk-pixbuf-loader/Makefile.in"
3356                ;; By default the gdk-pixbuf loader is installed under
3357                ;; gdk-pixbuf's prefix.  Work around that.
3358                (("gdk_pixbuf_moduledir = .*$")
3359                 (string-append "gdk_pixbuf_moduledir = "
3360                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3361                                "loaders\n"))
3362                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3363                (("gdk_pixbuf_cache_file = .*$")
3364                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3365              #t))
3366          (add-after 'configure 'gnu-configure
3367            (lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
3368              ((assoc-ref gnu:%standard-phases 'configure)
3369               #:native-inputs native-inputs
3370               #:inputs inputs
3371               #:outputs outputs
3372               #:configure-flags
3373               (list "--disable-static"
3374                     "--enable-vala"
3375                (string-append "--with-html-dir="
3376                               (assoc-ref %outputs "doc")
3377                               "/share/gtk-doc/html")))))
3378          (add-after 'configure 'dont-vendor-self
3379            (lambda* (#:key vendor-dir #:allow-other-keys)
3380              ;; Don't keep the whole tarball in the vendor directory
3381              (delete-file-recursively
3382               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
3383              #t))
3384          (replace 'build
3385            (assoc-ref gnu:%standard-phases 'build))
3386          (add-before 'check 'ignore-failing-tests
3387            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3388            (lambda _
3389              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3390                (("fn background_color_option_invalid_color_yields_error" all)
3391                 (string-append "#[ignore] " all))
3392                (("fn empty_input_yields_error" all)
3393                 (string-append "#[ignore] " all))
3394                (("fn empty_svg_yields_error" all)
3395                 (string-append "#[ignore] " all))
3396                (("fn env_source_data_epoch_empty" all)
3397                 (string-append "#[ignore] " all))
3398                (("fn env_source_data_epoch_no_digits" all)
3399                 (string-append "#[ignore] " all))
3400                (("fn env_source_data_epoch_trailing_garbage" all)
3401                 (string-append "#[ignore] " all))
3402                (("fn export_id_option_error" all)
3403                 (string-append "#[ignore] " all))
3404                (("fn huge_zoom_factor_yields_error" all)
3405                 (string-append "#[ignore] " all))
3406                (("fn multiple_input_files_not_allowed_for_png_output" all)
3407                 (string-append "#[ignore] " all))
3408                (("fn stylesheet_option_error" all)
3409                 (string-append "#[ignore] " all)))
3410              #t))
3411          (replace 'check
3412            (lambda* args
3413              ((assoc-ref gnu:%standard-phases 'check)
3414               #:test-target "check")))
3415          (replace 'install
3416            (assoc-ref gnu:%standard-phases 'install)))))
3417     (native-inputs
3418      `(("docbook-xml" ,docbook-xml-4.3)
3419        ("glib" ,glib "bin")
3420        ("gobject-introspection" ,gobject-introspection)
3421        ("pkg-config" ,pkg-config)
3422        ("python" ,python-wrapper)
3423        ("ruby" ,ruby)
3424        ("vala" ,vala)))
3425     (inputs
3426      `(("bzip2" ,bzip2)
3427        ("fontconfig" ,fontconfig)
3428        ("freetype" ,freetype)
3429        ("harfbuzz" ,harfbuzz)
3430        ("libcroco" ,libcroco)
3431        ("libgsf" ,libgsf)
3432        ("libxml2" ,libxml2)
3433        ("pango" ,pango)))
3434     (propagated-inputs
3435      `(("cairo" ,cairo)
3436        ("gdk-pixbuf" ,gdk-pixbuf)
3437        ("glib" ,glib)))
3438     (synopsis "SVG rendering library")
3439     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3440 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3441 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3442 diagrams.")
3443     (home-page "https://wiki.gnome.org/LibRsvg")
3444     (license license:lgpl2.1+)))
3445
3446 (define-public libidl
3447   (package
3448     (name "libidl")
3449     (version "0.8.14")
3450     (source (origin
3451               (method url-fetch)
3452               (uri (string-append "mirror://gnome/sources/libIDL/"
3453                                   (version-major+minor version) "/"
3454                                   "libIDL-" version ".tar.bz2"))
3455               (sha256
3456                (base32
3457                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3458     (build-system gnu-build-system)
3459     (inputs `(("glib" ,glib)))
3460     (native-inputs
3461      `(("pkg-config" ,pkg-config)
3462        ("flex" ,flex)
3463        ("bison" ,bison)))
3464     (home-page "http://freecode.com/projects/libidl")
3465     (synopsis "Create trees of CORBA Interface Definition Language files")
3466     (description  "Libidl is a library for creating trees of CORBA Interface
3467 Definition Language (idl) files, which is a specification for defining
3468 portable interfaces. libidl was initially written for orbit (the orb from the
3469 GNOME project, and the primary means of libidl distribution).  However, the
3470 functionality was designed to be as reusable and portable as possible.")
3471     (properties `((upstream-name . "libIDL")))
3472     (license license:lgpl2.0+)))
3473
3474
3475 (define-public orbit2
3476   (package
3477     (name "orbit2")
3478     (version "2.14.19")
3479     (source (origin
3480               (method url-fetch)
3481               (uri (let ((upstream-name "ORBit2"))
3482                      (string-append "mirror://gnome/sources/" upstream-name "/"
3483                                     (version-major+minor version) "/"
3484                                     upstream-name "-" version ".tar.bz2")))
3485               (sha256
3486                (base32
3487                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3488     (build-system gnu-build-system)
3489     (arguments
3490      `(;; The "timeout-server" test hangs when run in parallel.
3491        #:parallel-tests? #f
3492        #:configure-flags
3493        '(;; We don't need static libraries, plus they don't build reproducibly
3494          ;; (non-deterministic ordering of .o files in the archive.)
3495          "--disable-static"
3496
3497          ;; The programmer kindly gives us a hook to turn off deprecation
3498          ;; warnings ...
3499          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3500        ;; ... which they then completly ignore !!
3501        #:phases
3502        (modify-phases %standard-phases
3503          (add-before 'configure 'ignore-deprecations
3504            (lambda _
3505              (substitute* "linc2/src/Makefile.in"
3506                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3507              #t)))))
3508     (inputs `(("glib" ,glib)
3509               ("libidl" ,libidl)))
3510     (native-inputs
3511      `(("pkg-config" ,pkg-config)))
3512     (home-page "https://projects.gnome.org/orbit2/")
3513     (synopsis "CORBA 2.4-compliant Object Request Broker")
3514     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3515 featuring mature C, C++ and Python bindings.")
3516     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3517     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3518     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3519     (license license:gpl2+)
3520     (properties `((upstream-name . "ORBit2")))))
3521
3522
3523 (define-public libbonobo
3524   (package
3525     (name "libbonobo")
3526     (version "2.32.1")
3527     (source (origin
3528               (method url-fetch)
3529               (uri (string-append "mirror://gnome/sources/" name "/"
3530                                   (version-major+minor version)
3531                                   "/" name "-" version ".tar.bz2"))
3532               (sha256
3533                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3534               (patches (search-patches
3535                         "libbonobo-activation-test-race.patch"))))
3536     (build-system gnu-build-system)
3537     (arguments
3538      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3539      `(#:configure-flags
3540        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3541        ;; ... which they then completly ignore !!
3542        #:phases
3543        (modify-phases %standard-phases
3544          (add-before 'configure 'ignore-deprecations
3545            (lambda _
3546              (substitute* "activation-server/Makefile.in"
3547                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3548              #t)))
3549
3550        ;; There's apparently a race condition between the server stub
3551        ;; generation and linking of the example under 'samples/echo' that can
3552        ;; lead do undefined references when building in parallel, as reported
3553        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3554        ;; Thus, disable parallel builds.
3555        #:parallel-build? #f))
3556     (inputs `(("popt" ,popt)
3557               ("libxml2" ,libxml2)))
3558     ;; The following are Required by the .pc file
3559     (propagated-inputs
3560      `(("glib" ,glib)
3561        ("orbit2" ,orbit2)))
3562     (native-inputs
3563      `(("intltool" ,intltool)
3564        ("pkg-config" ,pkg-config)
3565        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3566        ("flex" ,flex)
3567        ("bison" ,bison)))
3568     (home-page "https://developer.gnome.org/libbonobo/")
3569     (synopsis "Framework for creating reusable components for use in GNOME applications")
3570     (description "Bonobo is a framework for creating reusable components for
3571 use in GNOME applications, built on top of CORBA.")
3572     ;; Licence not explicitly stated.  Source files contain no licence notices.
3573     ;; Tarball contains text of both GPLv2 and LGPLv2
3574     ;; GPLv2 covers both conditions
3575     (license license:gpl2+)))
3576
3577
3578 (define-public gconf
3579   (package
3580     (name "gconf")
3581     (version "3.2.6")
3582     (source (origin
3583               (method url-fetch)
3584               (uri
3585                (let ((upstream-name "GConf"))
3586                  (string-append "mirror://gnome/sources/" upstream-name "/"
3587                                 (version-major+minor version) "/"
3588                                 upstream-name "-" version ".tar.xz")))
3589               (sha256
3590                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3591     (build-system gnu-build-system)
3592     (inputs `(("dbus-glib" ,dbus-glib)
3593               ("libxml2" ,libxml2)))
3594     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3595                          ("orbit2" ,orbit2)))
3596     (native-inputs
3597      `(("intltool" ,intltool)
3598        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3599        ("pkg-config" ,pkg-config)))
3600     (home-page "https://projects.gnome.org/gconf/")
3601     (synopsis "Store application preferences")
3602     (description "Gconf is a system for storing application preferences.  It
3603 is intended for user preferences; not arbitrary data storage.")
3604     (license license:lgpl2.0+)
3605     (properties '((upstream-name . "GConf")))))
3606
3607
3608 (define-public gnome-mime-data
3609   (package
3610     (name "gnome-mime-data")
3611     (version "2.18.0")
3612     (source (origin
3613               (method url-fetch)
3614               (uri (string-append "mirror://gnome/sources/" name "/"
3615                                   (version-major+minor version)  "/"
3616                                   name "-" version ".tar.bz2"))
3617               (sha256
3618                (base32
3619                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3620     (build-system gnu-build-system)
3621     (native-inputs
3622      `(("perl" ,perl)
3623        ("intltool" ,intltool)))
3624     (arguments
3625      '(#:phases (modify-phases %standard-phases
3626                   (add-after 'configure 'use-our-intltool
3627                     (lambda _
3628                       ;; Do not use the bundled intltool commands, which lack
3629                       ;; the "dotless @INC" fixes of our 'intltool' package.
3630                       (substitute* (find-files "." "^Makefile$")
3631                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3632                          (string-append "INTLTOOL_" tool " = intltool-"
3633                                         (string-downcase tool) "\n")))
3634                       #t)))))
3635     (home-page "https://www.gnome.org")
3636     (synopsis "Base MIME and Application database for GNOME")
3637     (description  "GNOME Mime Data is a module which contains the base MIME
3638 and Application database for GNOME.  The data stored by this module is
3639 designed to be accessed through the MIME functions in GnomeVFS.")
3640     (license license:gpl2+)))
3641
3642
3643 (define-public gnome-vfs
3644   (package
3645     (name "gnome-vfs")
3646     (version "2.24.4")
3647     (source (origin
3648               (method url-fetch)
3649               (uri (string-append "mirror://gnome/sources/" name "/"
3650                                   (version-major+minor version)  "/"
3651                                   name "-" version ".tar.bz2"))
3652               (sha256
3653                (base32
3654                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3655     (build-system gnu-build-system)
3656     (arguments
3657      `(#:phases
3658        (modify-phases %standard-phases
3659          (add-before 'configure 'ignore-deprecations
3660            (lambda _
3661              (substitute* '("libgnomevfs/Makefile.in"
3662                             "daemon/Makefile.in")
3663                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3664              #t))
3665          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3666            (lambda _
3667              (substitute* "test/test-async-cancel.c"
3668                (("EXIT_FAILURE") "77"))
3669              #t)))))
3670     (inputs `(("libxml2" ,libxml2)
3671               ("dbus-glib" ,dbus-glib)
3672               ("gconf" ,gconf)
3673               ("gnome-mime-data" ,gnome-mime-data)
3674               ("zlib" ,zlib)))
3675     (native-inputs
3676      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3677        ("intltool" ,intltool)
3678        ("pkg-config" ,pkg-config)))
3679     (home-page "https://developer.gnome.org/gnome-vfs/")
3680     (synopsis "Access files and folders in GNOME applications")
3681     (description
3682      "GnomeVFS is the core library used to access files and folders in GNOME
3683 applications.  It provides a file system abstraction which allows applications
3684 to access local and remote files with a single consistent API.")
3685     (license license:lgpl2.0+)))
3686
3687
3688
3689 (define-public libgnome
3690   (package
3691     (name "libgnome")
3692     (version "2.32.1")
3693     (source (origin
3694               (method url-fetch)
3695               (uri (string-append "mirror://gnome/sources/" name "/"
3696                                   (version-major+minor version)  "/"
3697                                   name "-" version ".tar.bz2"))
3698               (sha256
3699                (base32
3700                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3701               (patches (search-patches "libgnome-encoding.patch"))))
3702     (build-system gnu-build-system)
3703     (arguments
3704      `(#:phases
3705        (modify-phases %standard-phases
3706          (add-before 'configure 'enable-deprecated
3707            (lambda _
3708              (substitute* "libgnome/Makefile.in"
3709                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3710              #t)))))
3711     (inputs `(("libxml2" ,libxml2)))
3712     (native-inputs
3713      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3714        ("intltool" ,intltool)
3715        ("pkg-config" ,pkg-config)))
3716     ;; The following are listed as Required in the .pc file
3717     ;; (except for libcanberra -- which seems to be oversight on the part
3718     ;; of the upstream developers -- anything that links against libgnome,
3719     ;; must also link against libcanberra
3720     (propagated-inputs
3721      `(("libcanberra" ,libcanberra)
3722        ("libbonobo" ,libbonobo)
3723        ("gconf" ,gconf)
3724        ("gnome-vfs" ,gnome-vfs)
3725        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
3726     (home-page "https://developer.gnome.org/libgnome/")
3727     (synopsis "Useful routines for building applications")
3728     (description  "The libgnome library provides a number of useful routines
3729 for building modern applications, including session management, activation of
3730 files and URIs, and displaying help.")
3731     (license license:lgpl2.0+)))
3732
3733
3734 (define-public libart-lgpl
3735   (package
3736     (name "libart-lgpl")
3737     (version "2.3.21")
3738     (source (origin
3739               (method url-fetch)
3740               (uri (let ((upstream-name "libart_lgpl"))
3741                      (string-append "mirror://gnome/sources/" upstream-name "/"
3742                                     (version-major+minor version) "/"
3743                                     upstream-name "-" version ".tar.bz2")))
3744               (sha256
3745                (base32
3746                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3747     (build-system gnu-build-system)
3748     (native-inputs
3749      `(("pkg-config" ,pkg-config)))
3750     (home-page "https://people.gnome.org/~mathieu/libart")
3751     (synopsis "2D drawing library")
3752     (description  "Libart is a 2D drawing library intended as a
3753 high-quality vector-based 2D library with antialiasing and alpha composition.")
3754     (license license:lgpl2.0+)))
3755
3756
3757
3758 (define-public libgnomecanvas
3759   (package
3760     (name "libgnomecanvas")
3761     (version "2.30.3")
3762     (source (origin
3763               (method url-fetch)
3764               (uri (string-append "mirror://gnome/sources/" name "/"
3765                                   (version-major+minor version)  "/"
3766                                   name "-" version ".tar.gz"))
3767               (sha256
3768                (base32
3769                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3770     (build-system gnu-build-system)
3771     ;; Mentioned as Required in the .pc file
3772     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
3773                          ("gtk+" ,gtk+-2)))
3774     (native-inputs
3775      `(("intltool" ,intltool)
3776        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3777        ("pkg-config" ,pkg-config)))
3778     (home-page "https://developer.gnome.org/libgnomecanvas/")
3779     (synopsis "Flexible widget for creating interactive structured graphics")
3780     (description  "The GnomeCanvas widget provides a flexible widget for
3781 creating interactive structured graphics.")
3782     (license license:lgpl2.0+)))
3783
3784 (define-public libgnomecanvasmm
3785   (package
3786     (name "libgnomecanvasmm")
3787     (version "2.26.0")
3788     (source (origin
3789               (method url-fetch)
3790               (uri (string-append "mirror://gnome/sources/" name "/"
3791                                   (version-major+minor version)  "/"
3792                                   name "-" version ".tar.bz2"))
3793               (sha256
3794                (base32
3795                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3796     (build-system gnu-build-system)
3797     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
3798     (native-inputs
3799      `(("gtkmm-2" ,gtkmm-2)
3800        ("pkg-config" ,pkg-config)))
3801     (home-page "https://gtkmm.org")
3802     (synopsis "C++ bindings to the GNOME Canvas library")
3803     (description "C++ bindings to the GNOME Canvas library.")
3804     (license license:lgpl2.0+)))
3805
3806 (define-public libgnomeui
3807   (package
3808     (name "libgnomeui")
3809     (version "2.24.5")
3810     (source (origin
3811               (method url-fetch)
3812               (uri (string-append "mirror://gnome/sources/" name "/"
3813                                   (version-major+minor version)  "/"
3814                                   name "-" version ".tar.bz2"))
3815               (patches (search-patches "libgnomeui-utf8.patch"))
3816               (sha256
3817                (base32
3818                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3819     (build-system gnu-build-system)
3820     ;; Mentioned as Required in the .pc file
3821     (propagated-inputs `(("libbonoboui" ,libbonoboui)
3822                          ("libgnome" ,libgnome)
3823                          ("libgnomecanvas" ,libgnomecanvas)
3824                          ("libgnome-keyring" ,libgnome-keyring)))
3825     (inputs `(("libjpeg" ,libjpeg-turbo)
3826               ("popt" ,popt)
3827               ("libbonobo" ,libbonobo)
3828               ("libxml2" ,libxml2)
3829               ("libglade" ,libglade)))
3830     (native-inputs
3831      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3832        ("intltool" ,intltool)
3833        ("pkg-config" ,pkg-config)))
3834     (home-page "https://developer.gnome.org/libgnomeui/")
3835     (synopsis "Additional widgets for applications")
3836     (description "The libgnomeui library provides additional widgets for
3837 applications.  Many of the widgets from libgnomeui have already been
3838 ported to GTK+.")
3839     (license license:lgpl2.0+)))
3840
3841 (define-public libglade
3842   (package
3843     (name "libglade")
3844     (version "2.6.4")
3845     (source (origin
3846               (method url-fetch)
3847               (uri (string-append "mirror://gnome/sources/" name "/"
3848                                   (version-major+minor version)  "/"
3849                                   name "-" version ".tar.bz2"))
3850               (sha256
3851                (base32
3852                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
3853     (build-system gnu-build-system)
3854     (inputs
3855      `(("python" ,python))) ;; needed for the optional libglade-convert program
3856     (propagated-inputs
3857      `(("gtk+-2" ,gtk+-2)
3858        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
3859     (native-inputs
3860      `(("pkg-config" ,pkg-config)))
3861     (home-page "https://developer.gnome.org/libglade")
3862     (synopsis "Load glade interfaces and access the glade built widgets")
3863     (description "Libglade is a library that provides interfaces for loading
3864 graphical interfaces described in glade files and for accessing the
3865 widgets built in the loading process.")
3866     (license license:gpl2+))) ; This is correct.  GPL not LGPL
3867
3868 (define-public libgnomeprint
3869   ;; This library has been deprecated since 2006; see
3870   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
3871   (package
3872     (name "libgnomeprint")
3873     (version "2.18.8")
3874     (source (origin
3875               (method url-fetch)
3876               (uri (string-append "mirror://gnome/sources/" name "/"
3877                                   (version-major+minor version)  "/"
3878                                   name "-" version ".tar.bz2"))
3879               (sha256
3880                (base32
3881                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
3882     (build-system gnu-build-system)
3883     (inputs
3884      `(("popt" ,popt)
3885        ("libart-lgpl" ,libart-lgpl)
3886        ("gtk+" ,gtk+-2)
3887        ("libxml2" ,libxml2)))
3888     (native-inputs
3889      `(("intltool" ,intltool)
3890        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3891        ("pkg-config" ,pkg-config)))
3892     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
3893     (synopsis "Printing framework for GNOME")
3894     (description
3895      "GNOME-print was a printing framework for GNOME.  It has been deprecated
3896 since ca. 2006, when GTK+ itself incorporated printing support.")
3897     (license license:lgpl2.0+)))
3898
3899
3900 (define-public libgnomeprintui
3901   ;; Deprecated; see libgnomeprint.
3902   (package
3903     (name "libgnomeprintui")
3904     (version "2.18.6")
3905     (source (origin
3906               (method url-fetch)
3907               (uri (string-append "mirror://gnome/sources/" name "/"
3908                                   (version-major+minor version)  "/"
3909                                   name "-" version ".tar.bz2"))
3910               (sha256
3911                (base32
3912                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
3913     (build-system gnu-build-system)
3914     ;; Mentioned as Required in the .pc file
3915     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
3916     (inputs `(("gtk+" ,gtk+-2)
3917               ("glib" ,glib)
3918               ("gnome-icon-theme" ,gnome-icon-theme)
3919               ("libgnomecanvas" ,libgnomecanvas)
3920               ("libxml2" ,libxml2)))
3921     (native-inputs
3922      `(("intltool" ,intltool)
3923        ("pkg-config" ,pkg-config)))
3924     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
3925     (synopsis "Printing framework for GNOME")
3926     (description (package-description libgnomeprint))
3927     (license license:lgpl2.0+)))
3928
3929 (define-public libbonoboui
3930   (package
3931     (name "libbonoboui")
3932     (version "2.24.5")
3933     (source (origin
3934               (method url-fetch)
3935               (uri (string-append "mirror://gnome/sources/" name "/"
3936                                   (version-major+minor version)  "/"
3937                                   name "-" version ".tar.bz2"))
3938               (sha256
3939                (base32
3940                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
3941     (build-system gnu-build-system)
3942     (arguments
3943      `(#:phases
3944        (modify-phases %standard-phases
3945          (add-before 'check 'start-xserver
3946            (lambda* (#:key inputs #:allow-other-keys)
3947              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3948                    (disp ":1"))
3949
3950                (setenv "HOME" (getcwd))
3951                (setenv "DISPLAY" disp)
3952                ;; There must be a running X server and make check doesn't start one.
3953                ;; Therefore we must do it.
3954                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
3955     ;; Mentioned as Required by the .pc file
3956     (propagated-inputs `(("libxml2" ,libxml2)))
3957     (inputs
3958      `(("popt" ,popt)
3959        ("pangox-compat" ,pangox-compat)
3960        ("libgnome" ,libgnome)
3961        ("libgnomecanvas" ,libgnomecanvas)
3962        ("libglade" ,libglade)))
3963     (native-inputs
3964      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3965        ("intltool" ,intltool)
3966        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
3967        ("pkg-config" ,pkg-config)))
3968     (home-page "https://developer.gnome.org/libbonoboui/")
3969     (synopsis "Some user interface controls using Bonobo")
3970     (description  "The Bonobo UI library provides a number of user interface
3971 controls using the Bonobo component framework.")
3972     (license license:lgpl2.0+)))
3973
3974 (define-public libwnck
3975   (package
3976     (name "libwnck")
3977     (version "3.32.0")
3978     (source (origin
3979               (method url-fetch)
3980               (uri (string-append "mirror://gnome/sources/" name "/"
3981                                   (version-major+minor version) "/"
3982                                   name "-" version ".tar.xz"))
3983               (sha256
3984                (base32
3985                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
3986     (build-system meson-build-system)
3987     (native-inputs
3988      `(("pkg-config" ,pkg-config)
3989        ("glib" ,glib "bin") ; for glib-mkenums
3990        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
3991        ("intltool" ,intltool)))
3992     (propagated-inputs
3993      `(("gtk+" ,gtk+)
3994        ("libxres" ,libxres)
3995        ("startup-notification" ,startup-notification)))
3996     (home-page "https://developer.gnome.org/libwnck/")
3997     (synopsis "Window Navigator Construction Kit")
3998     (description
3999      "Libwnck is the Window Navigator Construction Kit, a library for use in
4000 writing pagers, tasklists, and more generally applications that are dealing
4001 with window management.  It tries hard to respect the Extended Window Manager
4002 Hints specification (EWMH).")
4003     (license license:lgpl2.0+)))
4004
4005 ;; stable version for gtk2, required by xfwm4.
4006 (define-public libwnck-2
4007   (package (inherit libwnck)
4008     (name "libwnck")
4009     (version "2.30.7")
4010     (source (origin
4011               (method url-fetch)
4012               (uri (string-append "mirror://gnome/sources/" name "/"
4013                                   (version-major+minor version) "/"
4014                                   name "-" version ".tar.xz"))
4015               (sha256
4016                (base32
4017                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4018     (build-system gnu-build-system)
4019     (native-inputs
4020      `(("pkg-config" ,pkg-config)
4021        ("intltool" ,intltool)))
4022     (propagated-inputs
4023      `(("gtk+" ,gtk+-2)
4024        ("libxres" ,libxres)
4025        ("startup-notification" ,startup-notification)))))
4026
4027 (define-public goffice
4028   (package
4029     (name "goffice")
4030     (version "0.10.48")
4031     (source (origin
4032               (method url-fetch)
4033               (uri (string-append "mirror://gnome/sources/goffice/"
4034                                   (version-major+minor version)  "/"
4035                                   "goffice-" version ".tar.xz"))
4036               (sha256
4037                (base32 "1z6f3q8fxkd1ysqrwdxdi0844zqa00vjpf07gq8mh3kal8picfd4"))))
4038     (build-system gnu-build-system)
4039     (outputs '("out"
4040                "doc"))                  ; 4.0 MiB of gtk-doc
4041     (arguments
4042      '(#:configure-flags (list (string-append "--with-html-dir="
4043                                               (assoc-ref %outputs "doc")
4044                                               "/share/gtk-doc/html"))))
4045     (inputs
4046      `(("gtk+" ,gtk+)
4047        ("libgsf" ,libgsf)
4048        ("librsvg" ,librsvg)
4049        ("libxslt" ,libxslt)
4050        ("libxml2" ,libxml2)))
4051     (native-inputs
4052      `(("intltool" ,intltool)
4053        ("glib" ,glib "bin")
4054        ("pkg-config" ,pkg-config)))
4055     (home-page "https://developer.gnome.org/goffice/")
4056     (synopsis "Document-centric objects and utilities")
4057     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4058     (license
4059      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4060      ;; Note: NOT LGPL
4061      (list license:gpl2 license:gpl3))))
4062
4063 (define-public goffice-0.8
4064   (package (inherit goffice)
4065     (version "0.8.17")
4066     (source (origin
4067               (method url-fetch)
4068               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4069                                   (version-major+minor version)  "/"
4070                                   (package-name goffice) "-" version ".tar.xz"))
4071               (sha256
4072                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4073     (arguments
4074      `(#:phases
4075        (modify-phases %standard-phases
4076          (add-after 'unpack 'fix-pcre-check
4077            (lambda _
4078              ;; Only glib.h can be included directly.  See
4079              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4080              (substitute* "configure"
4081                (("glib/gregex\\.h") "glib.h")) #t)))
4082
4083        ,@(package-arguments goffice)))
4084     (propagated-inputs
4085      ;; libgoffice-0.8.pc mentions libgsf-1
4086      `(("libgsf" ,libgsf)))
4087     (inputs
4088      `(("gtk" ,gtk+-2)
4089        ,@(alist-delete "gtk" (package-inputs goffice))))))
4090
4091 (define-public gnumeric
4092   (package
4093     (name "gnumeric")
4094     (version "1.12.48")
4095     (source (origin
4096               (method url-fetch)
4097               (uri (string-append "mirror://gnome/sources/gnumeric/"
4098                                   (version-major+minor version)  "/"
4099                                   "gnumeric-" version ".tar.xz"))
4100               (sha256
4101                (base32
4102                 "14556b0vyxdvdwjlin0rv7jk0vq4nplbmvp9j89bhkfk84xf7k2p"))))
4103     (build-system glib-or-gtk-build-system)
4104     (arguments
4105      `(;; The gnumeric developers don't worry much about failing tests.
4106        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4107        #:tests? #f
4108        #:phases
4109        (modify-phases %standard-phases
4110          (add-before
4111           'configure 'pre-conf
4112            (lambda* (#:key outputs #:allow-other-keys)
4113              ;; Make install tries to write into the directory of goffice
4114              ;; I am informed that this only affects the possibility to embed a
4115              ;; spreadsheet inside an Abiword document.   So presumably when we
4116              ;; package Abiword we'll have to refer it to this directory.
4117              (substitute* "configure"
4118                (("^GOFFICE_PLUGINS_DIR=.*")
4119                 (string-append "GOFFICE_PLUGINS_DIR="
4120                                (assoc-ref outputs "out")
4121                                "/goffice/plugins"))))))))
4122     (inputs
4123      `(("glib" ,glib)
4124        ("gtk+" ,gtk+)
4125        ("goffice" ,goffice)
4126        ("libgsf" ,libgsf)
4127        ("librsvg" ,librsvg)
4128        ("libxml2" ,libxml2)
4129        ("libxslt" ,libxslt)
4130        ("python" ,python)
4131        ("python-pygobject" ,python-pygobject)
4132        ("zlib" ,zlib)))
4133     (native-inputs
4134      `(("bison" ,bison)
4135        ("docbook-xml" ,docbook-xml)
4136        ("intltool" ,intltool)
4137        ("itstool" ,itstool)
4138        ("glib:bin" ,glib "bin")
4139        ("pkg-config" ,pkg-config)))
4140     (home-page "http://www.gnumeric.org")
4141     (synopsis "Spreadsheet application")
4142     (description
4143      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4144 interoperable with other spreadsheet applications.  It has a vast array of
4145 features beyond typical spreadsheet functionality, such as support for linear
4146 and non-linear solvers, statistical analysis, and telecommunication
4147 engineering.")
4148     (license
4149     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4150      (list license:gpl2 license:gpl3))))
4151
4152 (define-public gnome-themes-standard
4153   (package
4154     (name "gnome-themes-standard")
4155     (version "3.22.3")
4156     (source
4157      (origin
4158        (method url-fetch)
4159        (uri (string-append "mirror://gnome/sources/" name "/"
4160                            (version-major+minor version) "/" name "-"
4161                            version ".tar.xz"))
4162        (sha256
4163         (base32
4164          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4165     (build-system gnu-build-system)
4166     (arguments
4167      '(#:configure-flags
4168        ;; Don't create 'icon-theme.cache'.
4169        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4170               (true      (string-append coreutils "/bin/true")))
4171          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4172     (inputs
4173      `(("gtk+" ,gtk+)
4174        ("gtk+-2" ,gtk+-2)
4175        ("librsvg" ,librsvg)
4176        ("libxml2" ,libxml2)
4177        ("glib" ,glib)))
4178     (native-inputs
4179      `(("intltool" ,intltool)
4180        ("glib:bin" ,glib "bin")
4181        ("pkg-config" ,pkg-config)))
4182     (home-page "https://launchpad.net/gnome-themes-standard")
4183     (synopsis "Default GNOME 3 themes")
4184     (description
4185      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4186     (license license:lgpl2.1+)))
4187
4188 (define-public seahorse
4189   (package
4190     (name "seahorse")
4191     (version "3.36.2")
4192     (source
4193      (origin
4194        (method url-fetch)
4195        (uri (string-append "mirror://gnome/sources/" name "/"
4196                            (version-major+minor version) "/" name "-"
4197                            version ".tar.xz"))
4198        (sha256
4199         (base32 "16wmxxppgcgfj8zkagcny5af1c81x32ysm9d6j9f2k7bmik21ss5"))))
4200     (build-system meson-build-system)
4201     (arguments
4202      '(#:glib-or-gtk? #t
4203        #:phases
4204        (modify-phases %standard-phases
4205          (add-after 'unpack 'skip-gtk-update-icon-cache
4206            ;; Don't create 'icon-theme.cache'.
4207            (lambda _
4208              (substitute* "build-aux/meson_post_install.py"
4209                (("gtk-update-icon-cache") "true"))
4210              #t)))))
4211     (inputs
4212      `(("gtk+" ,gtk+)
4213        ("gcr" ,gcr)
4214        ("gnupg" ,gnupg)
4215        ("gpgme" ,gpgme)
4216        ("openldap" ,openldap)
4217        ("openssh" ,openssh)
4218        ("avahi" ,avahi)
4219        ("libhandy" ,libhandy-0.0)
4220        ("libpwquality" ,libpwquality)
4221        ("libsecret" ,libsecret)
4222        ("libsoup" ,libsoup)))
4223     (native-inputs
4224      `(("gettext" ,gettext-minimal)
4225        ("glib:bin" ,glib "bin")
4226        ("itstool" ,itstool)
4227        ("pkg-config" ,pkg-config)
4228        ("vala" ,vala)
4229        ("xmllint" ,libxml2)))
4230     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4231     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4232     (description
4233      "Seahorse is a GNOME application for managing encryption keys and
4234 passwords in the GNOME keyring.")
4235     (license license:gpl2+)))
4236
4237 (define-public vala
4238   (package
4239     (name "vala")
4240     (version "0.46.5")
4241     (source (origin
4242               (method url-fetch)
4243               (uri (string-append "mirror://gnome/sources/" name "/"
4244                                   (version-major+minor version) "/"
4245                                   name "-" version ".tar.xz"))
4246               (sha256
4247                (base32
4248                 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
4249     (build-system gnu-build-system)
4250     (arguments
4251      '(#:phases
4252        (modify-phases %standard-phases
4253          (add-before 'check 'pre-check
4254                      (lambda _
4255                        (setenv "CC" "gcc")
4256                        (substitute* "valadoc/tests/testrunner.sh"
4257                          (("export PKG_CONFIG_PATH=" m)
4258                           (string-append m "$PKG_CONFIG_PATH:")))
4259                        ;; For missing '/etc/machine-id'.
4260                        (setenv "DBUS_FATAL_WARNINGS" "0")
4261                        #t)))))
4262     (native-inputs
4263      `(("pkg-config" ,pkg-config)
4264        ("flex" ,flex)
4265        ("bison" ,bison)
4266        ("xsltproc" ,libxslt)
4267        ("dbus" ,dbus)                                     ; for dbus tests
4268        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
4269     (inputs
4270      `(("graphviz" ,graphviz)))
4271     (propagated-inputs
4272      `(("glib" ,glib))) ; required by libvala-0.40.pc
4273     (home-page "https://live.gnome.org/Vala/")
4274     (synopsis "Compiler for the GObject type system")
4275     (description
4276      "Vala is a programming language that aims to bring modern programming
4277 language features to GNOME developers without imposing any additional runtime
4278 requirements and without using a different ABI compared to applications and
4279 libraries written in C.")
4280     (license license:lgpl2.1+)))
4281
4282 (define-public vala-0.50
4283   (package
4284     (inherit vala)
4285     (version "0.50.1")
4286     (source (origin
4287               (method url-fetch)
4288               (uri (string-append "mirror://gnome/sources/vala/"
4289                                   (version-major+minor version) "/"
4290                                   "vala-" version ".tar.xz"))
4291               (sha256
4292                (base32
4293                 "0v4g2gvn7x7cl33h8sj1y2xyyskw5ayaj4jm2jrd3my3r439z3cm"))))))
4294
4295 (define-public vte
4296   (package
4297     (name "vte")
4298     (version "0.60.3")
4299     (source (origin
4300               (method url-fetch)
4301               (uri (string-append "mirror://gnome/sources/vte/"
4302                                   (version-major+minor version) "/"
4303                                   "vte-" version ".tar.xz"))
4304               (sha256
4305                (base32
4306                 "0al2v6fn061v4j1wwvppim1q283y2a6s0iyl29hxhmx3h48nxdzy"))))
4307     (build-system meson-build-system)
4308     (arguments
4309      `(#:configure-flags
4310        '("-Dvapi=true"
4311          "-D_systemd=false")))
4312     (native-inputs
4313      `(("pkg-config" ,pkg-config)
4314        ("gettext" ,gettext-minimal)
4315        ("vala" ,vala)
4316        ("gobject-introspection" ,gobject-introspection)
4317        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4318        ("gperf" ,gperf)
4319        ("xmllint" ,libxml2)))
4320     (propagated-inputs
4321      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
4322        ("gnutls" ,gnutls)               ; ditto
4323        ("pcre2" ,pcre2)))               ; ditto
4324     (home-page "https://www.gnome.org/")
4325     (synopsis "Virtual Terminal Emulator")
4326     (description
4327      "VTE is a library (libvte) implementing a terminal emulator widget for
4328 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4329 gnome-terminal, but can also be used to embed a console/terminal in games,
4330 editors, IDEs, etc.")
4331     (license license:lgpl2.1+)))
4332
4333 (define-public vte-ng
4334   (package
4335     (inherit vte)
4336     (name "vte-ng")
4337     (version "0.58.2.a")
4338     (home-page "https://github.com/thestinger/vte-ng")
4339     (source (origin
4340               (method git-fetch)
4341               (uri (git-reference (url home-page) (commit version)))
4342               (file-name (git-file-name name version))
4343               (sha256
4344                (base32
4345                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4346     (build-system meson-build-system)
4347     (native-inputs
4348      `(("gtk-doc" ,gtk-doc)
4349        ,@(package-native-inputs vte)))
4350     (arguments
4351      `(#:configure-flags '("-Ddocs=true")))
4352   (synopsis "Enhanced VTE terminal widget")
4353   (description
4354    "VTE is a library (libvte) implementing a terminal emulator widget for
4355 GTK+, this fork provides additional functions exposed for keyboard text
4356 selection and URL hints.")))
4357
4358 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4359 (define-public vte/gtk+-2
4360   (package (inherit vte)
4361     (name "vte")
4362     (version "0.28.2")
4363     (source (origin
4364               (method url-fetch)
4365               (uri (string-append "mirror://gnome/sources/" name "/"
4366                                   (version-major+minor version) "/"
4367                                   name "-" version ".tar.xz"))
4368               (sha256
4369                (base32
4370                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4371               (patches (search-patches
4372                          "vte-CVE-2012-2738-pt1.patch"
4373                          "vte-CVE-2012-2738-pt2.patch"))))
4374     (build-system gnu-build-system)
4375     (arguments
4376      '(#:configure-flags '("--disable-python")))
4377     (native-inputs
4378      `(("pkg-config" ,pkg-config)
4379        ("intltool" ,intltool)
4380        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
4381     (propagated-inputs
4382      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
4383        ("ncurses" ,ncurses))))) ; required by libvte.la
4384
4385 (define-public vinagre
4386   (package
4387     (name "vinagre")
4388     (version "3.22.0")
4389     (source (origin
4390               (method url-fetch)
4391               (uri (string-append "mirror://gnome/sources/" name "/"
4392                                   (version-major+minor version) "/"
4393                                   name "-" version ".tar.xz"))
4394               (patches (search-patches "vinagre-newer-freerdp.patch"
4395                                        "vinagre-newer-rdp-parameters.patch"))
4396               (sha256
4397                (base32
4398                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4399     (build-system glib-or-gtk-build-system)
4400     (arguments
4401      ;; Disable -Werror and such, to avoid build failures on compilation
4402      ;; warnings.
4403      '(#:configure-flags '("--enable-compile-warnings=minimum")
4404        #:phases
4405        (modify-phases %standard-phases
4406          (add-before 'install 'skip-gtk-update-icon-cache
4407            (lambda _
4408              ;; Don't create 'icon-theme.cache'
4409              (substitute* (find-files "." "^Makefile$")
4410                (("gtk-update-icon-cache") (which "true")))
4411              #t))
4412          (add-after 'unpack 'patch-configure
4413            (lambda _
4414              (substitute* "configure"
4415                (("freerdp") "freerdp2"))
4416              #t)))))
4417     (native-inputs
4418      `(("pkg-config" ,pkg-config)
4419        ("intltool" ,intltool)
4420        ("itstool" ,itstool)
4421        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4422     (inputs
4423      `(("libxml2" ,libxml2)
4424        ("gtk-vnc" ,gtk-vnc)
4425        ("gnome-keyring" ,gnome-keyring)
4426        ("libsecret" ,libsecret)
4427        ("freerdp" ,freerdp)
4428        ("spice" ,spice)
4429        ("spice-gtk" ,spice-gtk)
4430        ("telepathy-glib" ,telepathy-glib)
4431        ("vte" ,vte)))
4432     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4433     (synopsis "Remote desktop viewer for GNOME")
4434     (description "Vinagre is a remote display client supporting the VNC, SPICE
4435 and RDP protocols.")
4436     (license license:gpl3+)))
4437
4438 (define-public dconf
4439   (package
4440     (name "dconf")
4441     (version "0.36.0")
4442     (source (origin
4443               (method url-fetch)
4444               (uri (string-append
4445                     "mirror://gnome/sources/" name "/"
4446                     (version-major+minor version) "/"
4447                     name "-" version ".tar.xz"))
4448               (sha256
4449                (base32
4450                 "0bfs069pjv6lhp7xrzmrhz3876ay2ryqxzc6mlva1hhz34ibprlz"))))
4451     (build-system meson-build-system)
4452     (propagated-inputs
4453      ;; In Requires of dconf.pc.
4454      `(("glib" ,glib)))
4455     (inputs
4456      `(("gtk+" ,gtk+)
4457        ("dbus" ,dbus)))
4458     (native-inputs
4459      `(("bash-completion" ,bash-completion)
4460        ("libxslt" ,libxslt)                     ;for xsltproc
4461        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4462        ("docbook-xml" ,docbook-xml-4.2)
4463        ("docbook-xsl" ,docbook-xsl)
4464        ("glib:bin" ,glib "bin")
4465        ("gtk-doc" ,gtk-doc)
4466        ("pkg-config" ,pkg-config)
4467        ("vala" ,vala)))
4468     (arguments
4469      `(#:glib-or-gtk? #t
4470        #:configure-flags '("-Denable-gtk-doc=true")
4471        #:phases (modify-phases %standard-phases
4472                   (add-after 'unpack 'increase-test-timeout
4473                     (lambda _
4474                       ;; On big-memory systems, the engine test may take
4475                       ;; much longer than the default of 30 seconds.
4476                       (substitute* "tests/meson.build"
4477                         (("test\\(unit_test\\[0\\], exe" all)
4478                          (string-append all ", timeout : 90")))
4479                       #t)))))
4480     (home-page "https://developer.gnome.org/dconf/")
4481     (synopsis "Low-level GNOME configuration system")
4482     (description "Dconf is a low-level configuration system.  Its main purpose
4483 is to provide a backend to GSettings on platforms that don't already have
4484 configuration storage systems.")
4485     (license license:lgpl2.1+)))
4486
4487 (define-public json-glib
4488   (package
4489     (name "json-glib")
4490     (version "1.4.4")
4491     (source (origin
4492               (method url-fetch)
4493               (uri (string-append "mirror://gnome/sources/" name "/"
4494                                   (version-major+minor version) "/"
4495                                   name "-" version ".tar.xz"))
4496               (sha256
4497                (base32
4498                 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
4499     (build-system meson-build-system)
4500     (native-inputs
4501      `(("gettext" ,gettext-minimal)
4502        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
4503        ("gobject-introspection" ,gobject-introspection)
4504        ("pkg-config" ,pkg-config)))
4505     (propagated-inputs
4506      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
4507     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4508     (synopsis "Compiler for the GObject type system")
4509     (description
4510      "JSON-GLib is a C library based on GLib providing serialization and
4511 deserialization support for the JavaScript Object Notation (JSON) format
4512 described by RFC 4627.  It provides parser and generator GObject classes and
4513 various wrappers for the complex data types employed by JSON, such as arrays
4514 and objects.")
4515     (license license:lgpl2.1+)))
4516
4517 (define-public libxklavier
4518   (package
4519     (name "libxklavier")
4520     (version "5.4")
4521     (source (origin
4522               ;; Note: There's no tarball at ftp.gnome.org for this version.
4523               (method git-fetch)
4524               (uri (git-reference
4525                     (url "https://anongit.freedesktop.org/git/libxklavier")
4526                     (commit (string-append "libxklavier-" version))))
4527               (sha256
4528                (base32
4529                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4530               (file-name (git-file-name name version))))
4531     (build-system gnu-build-system)
4532     (arguments
4533      '(#:configure-flags
4534        (list (string-append "--with-xkb-base="
4535                             (assoc-ref %build-inputs "xkeyboard-config")
4536                             "/share/X11/xkb")
4537              "--disable-xmodmap-support")))
4538     (native-inputs
4539      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4540        ("gobject-introspection" ,gobject-introspection)
4541        ("pkg-config"            ,pkg-config)
4542        ("gtk-doc" ,gtk-doc)
4543        ("intltool" ,intltool)
4544        ("which" ,which)
4545        ("autoconf" ,autoconf)
4546        ("automake" ,automake)
4547        ("libtool" ,libtool)))
4548     (propagated-inputs
4549      ;; Required by libxklavier.pc.
4550      `(("glib"    ,glib)
4551        ("libxml2" ,libxml2)))
4552     (inputs
4553      `(("iso-codes"        ,iso-codes)
4554        ("libxi"            ,libxi)
4555        ("libxkbfile"       ,libxkbfile)
4556        ("xkbcomp"          ,xkbcomp)
4557        ("xkeyboard-config" ,xkeyboard-config)))
4558     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4559     (synopsis "High-level API for X Keyboard Extension")
4560     (description
4561      "LibXklavier is a library providing high-level API for X Keyboard
4562 Extension known as XKB.  This library is intended to support XFree86 and other
4563 commercial X servers.  It is useful for creating XKB-related software (layout
4564 indicators etc).")
4565     (license license:lgpl2.0+)))
4566
4567 (define-public python2-rsvg
4568   ;; XXX: This is actually a subset of gnome-python-desktop.
4569   (package
4570     (name "python2-rsvg")
4571     (version "2.32.0")
4572     (source
4573      (origin
4574        (method url-fetch)
4575        (uri (string-append
4576              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4577              version ".tar.bz2"))
4578        (sha256
4579         (base32
4580          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4581     (build-system gnu-build-system)
4582     (native-inputs
4583      `(("pkg-config" ,pkg-config)))
4584     (inputs
4585      `(("python" ,python-2)
4586        ("python2-pygtk" ,python2-pygtk)
4587        ("librsvg" ,librsvg)))
4588     (home-page "https://www.gnome.org")
4589     (synopsis "Python bindings to librsvg")
4590     (description
4591      "This package provides Python bindings to librsvg, the SVG rendering
4592 library.")
4593
4594     ;; This is the license of the rsvg bindings.  The license of each module
4595     ;; of gnome-python-desktop is given in 'COPYING'.
4596     (license license:lgpl2.1+)))
4597
4598 (define-public glib-networking
4599   (package
4600     (name "glib-networking")
4601     (version "2.62.2")
4602     (source (origin
4603               (method url-fetch)
4604               (uri (string-append "mirror://gnome/sources/glib-networking/"
4605                                   (version-major+minor version) "/"
4606                                   "glib-networking-" version ".tar.xz"))
4607               (sha256
4608                (base32
4609                 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
4610     (build-system meson-build-system)
4611     (arguments
4612      `(#:configure-flags '("-Dlibproxy_support=false")))
4613     (native-inputs
4614      `(("pkg-config" ,pkg-config)
4615        ("intltool" ,intltool)))
4616     (inputs
4617      `(("glib" ,glib)
4618        ("gnutls" ,gnutls)
4619        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
4620     (home-page "https://www.gnome.org")
4621     (synopsis "Network-related GIO modules")
4622     (description
4623      "This package contains various network related extensions for the GIO
4624 library.")
4625     (license license:lgpl2.0+)))
4626
4627 (define-public rest
4628   (package
4629     (name "rest")
4630     (version "0.8.1")
4631     (source (origin
4632               (method url-fetch)
4633               (uri (string-append "mirror://gnome/sources/rest/"
4634                                   (version-major+minor version) "/"
4635                                   name "-" version ".tar.xz"))
4636               (sha256
4637                (base32
4638                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4639     (build-system gnu-build-system)
4640     (arguments
4641      '(#:tests? #f ; tests require internet connection
4642        #:configure-flags
4643        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4644     (native-inputs
4645      `(("glib-mkenums" ,glib "bin")
4646        ("gobject-introspection" ,gobject-introspection)
4647        ("pkg-config" ,pkg-config)))
4648     (propagated-inputs
4649      ;; rest-0.7.pc refers to all these.
4650      `(("glib"    ,glib)
4651        ("libsoup" ,libsoup)
4652        ("libxml2" ,libxml2)))
4653     (home-page "https://www.gtk.org/")
4654     (synopsis "RESTful web api query library")
4655     (description
4656      "This library was designed to make it easier to access web services that
4657 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4658 libxml to ease remote use of the RESTful API.")
4659     (license license:lgpl2.1+)))
4660
4661 (define-public libsoup
4662   (package
4663     (name "libsoup")
4664     (version "2.70.0")
4665     (source (origin
4666               (method url-fetch)
4667               (uri (string-append "mirror://gnome/sources/libsoup/"
4668                                   (version-major+minor version) "/"
4669                                   "libsoup-" version ".tar.xz"))
4670               (sha256
4671                (base32
4672                 "0hjk9lgppc5435my0lyywbpmj7ib5vvcylwfin8ki97g9bvj1c2l"))))
4673     (build-system meson-build-system)
4674     (outputs '("out" "doc"))
4675     (arguments
4676      `(#:modules ((guix build utils)
4677                   (guix build meson-build-system)
4678                   (ice-9 popen))
4679
4680        #:configure-flags '("-Dgtk_doc=true")
4681        #:phases
4682        (modify-phases %standard-phases
4683          (add-after 'unpack 'adjust-tests
4684            (lambda _
4685              ;; This test fails due to missing /etc/nsswitch.conf
4686              ;; in the build environment.
4687              (substitute* "tests/socket-test.c"
4688                ((".*/sockets/unconnected.*") ""))
4689
4690              ;; These fail because "subdomain.localhost" does not resolve in
4691              ;; the build environment.
4692              (substitute* "tests/hsts-test.c"
4693                ((".*/hsts/basic.*") "")
4694                ((".*/hsts/subdomains.*") "")
4695                ((".*/hsts/superdomain.*") "")
4696                ((".*/hsts/utf8-address.*") ""))
4697              (substitute* "tests/hsts-db-test.c"
4698                ((".*/hsts-db/subdomains.*") ""))
4699
4700              ;; Generate a self-signed certificate that has "localhost" as its
4701              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
4702              ;; 3.5.12, tests such as "ssl-tests" fail:
4703              ;;
4704              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
4705              ;;
4706              ;; 'certtool' is interactive so we have to pipe it the answers.
4707              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
4708              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
4709  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
4710                (for-each (lambda (line)
4711                            (display line pipe)
4712                            (newline pipe))
4713                          '(""               ;Common name
4714                            ""               ;UID
4715                            "Guix"           ;Organizational unit name
4716                            "GNU"            ;Organization name
4717                            ""               ;Locality name
4718                            ""               ;State or province
4719                            ""               ;Country
4720                            ""               ;subject's domain component (DC)
4721                            ""               ;E-mail
4722                            ""               ;serial number
4723                            "-1"             ;expiration time
4724                            "N"              ;belong to authority?
4725                            "N"              ;web client certificate?
4726                            "N"              ;IPsec IKE?
4727                            "Y"              ;web server certificate?
4728                            "localhost"      ;dnsName of subject
4729                            ""               ;dnsName of subject (end)
4730                            ""               ;URI of subject
4731                            "127.0.0.1"      ;IP address of subject
4732                            ""               ;signing?
4733                            ""               ;encryption (RSA)?
4734                            ""               ;data encryption?
4735                            ""               ;sign OCSP requests?
4736                            ""               ;sign code?
4737                            ""               ;time stamping?
4738                            ""               ;email protection?
4739                            ""               ;URI of the CRL distribution point
4740                            "y"              ;above info OK?
4741                            ))
4742                (close-pipe pipe))
4743              #t))
4744          (add-after 'install 'move-doc
4745            (lambda* (#:key outputs #:allow-other-keys)
4746              (let ((out (assoc-ref outputs "out"))
4747                    (doc (assoc-ref outputs "doc")))
4748                (mkdir-p (string-append doc "/share"))
4749                (copy-recursively (string-append out "/share/gtk-doc")
4750                                  (string-append doc "/share/gtk-doc"))
4751                (delete-file-recursively (string-append out "/share/gtk-doc"))
4752                #t))))))
4753     (native-inputs
4754      `(("glib:bin" ,glib "bin")                   ; for glib-mkenums
4755        ("gobject-introspection" ,gobject-introspection)
4756        ("gtk-doc" ,gtk-doc)
4757        ("intltool" ,intltool)
4758        ("pkg-config" ,pkg-config)
4759        ("python" ,python-wrapper)
4760        ("vala" ,vala)
4761        ("php" ,php)
4762        ("curl" ,curl)
4763        ("gnutls" ,gnutls)                         ;for 'certtool'
4764        ("httpd" ,httpd)))
4765     (propagated-inputs
4766      ;; libsoup-2.4.pc refers to all these.
4767      `(("brotli" ,google-brotli)
4768        ("glib" ,glib)
4769        ("libpsl" ,libpsl)
4770        ("libxml2" ,libxml2)
4771        ("sqlite" ,sqlite)
4772        ("zlib" ,zlib)))
4773     (inputs
4774      `(("glib-networking" ,glib-networking)
4775        ("mit-krb5" ,mit-krb5)))
4776     (home-page "https://live.gnome.org/LibSoup/")
4777     (synopsis "GLib-based HTTP Library")
4778     (description
4779      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4780 and the GLib main loop, to integrate well with GNOME applications.")
4781     (license license:lgpl2.0+)))
4782
4783
4784 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4785 (define-public libsoup-minimal
4786   (package
4787     (inherit libsoup)
4788     (name "libsoup-minimal")
4789     (outputs (delete "doc" (package-outputs libsoup)))
4790     (arguments
4791      (substitute-keyword-arguments (package-arguments libsoup)
4792        ((#:configure-flags configure-flags)
4793         `(delete "-Dgtk_doc=true" ,configure-flags))
4794        ((#:phases phases)
4795         `(modify-phases ,phases
4796            (delete 'move-doc)))))
4797     (native-inputs (alist-delete "gtk-doc" (package-native-inputs libsoup)))))
4798
4799 (define-public libsecret
4800   (package
4801     (name "libsecret")
4802     (version "0.20.4")
4803     (source (origin
4804               (method url-fetch)
4805               (uri (string-append
4806                     "mirror://gnome/sources/libsecret/"
4807                     (version-major+minor version) "/"
4808                     "libsecret-" version ".tar.xz"))
4809               (sha256
4810                (base32
4811                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
4812     (build-system gnu-build-system)
4813     (outputs '("out" "doc"))
4814     (arguments
4815      `(#:tests? #f ; FIXME: Testing hangs.
4816        #:configure-flags
4817        (list (string-append "--with-html-dir="
4818                             (assoc-ref %outputs "doc")
4819                             "/share/gtk-doc/html"))))
4820     (native-inputs
4821      `(("gettext" ,gettext-minimal)
4822        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
4823        ("gobject-introspection" ,gobject-introspection)
4824        ("pkg-config" ,pkg-config)
4825        ("vala" ,vala)
4826        ("xsltproc" ,libxslt)))
4827        ;; These are needed for the tests.
4828        ;; FIXME: Add gjs once available.
4829        ;("dbus" ,dbus)
4830        ;("python2" ,python-2)
4831        ;("python2-dbus" ,python2-dbus)
4832        ;("python2-pygobject" ,python2-pygobject)
4833        ;("python2-pygobject-2" ,python2-pygobject-2)))
4834     (propagated-inputs
4835      `(("glib" ,glib))) ; required by libsecret-1.pc
4836     (inputs
4837      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
4838      ;; doesn't seem to affect the build result.
4839      `(("docbook-xsl" ,docbook-xsl)
4840        ("libgcrypt" ,libgcrypt)
4841        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
4842     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
4843     (synopsis "GObject bindings for \"Secret Service\" API")
4844     (description
4845      "Libsecret is a GObject based library for storing and retrieving passwords
4846 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
4847     (license license:lgpl2.1+)))
4848
4849 (define-public five-or-more
4850   (package
4851     (name "five-or-more")
4852     (version "3.32.2")
4853     (source
4854      (origin
4855        (method url-fetch)
4856        (uri (string-append "mirror://gnome/sources/five-or-more/"
4857                            (version-major+minor version) "/"
4858                            "five-or-more-" version ".tar.xz"))
4859        (sha256
4860         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
4861     (build-system meson-build-system)
4862     (arguments
4863      '(#:glib-or-gtk? #t
4864        #:phases
4865        (modify-phases %standard-phases
4866          (add-after 'unpack 'skip-gtk-update-icon-cache
4867            (lambda _
4868              (substitute* "meson_post_install.py"
4869                (("gtk-update-icon-cache") (which "true")))
4870              #t)))))
4871     (native-inputs
4872      `(("pkg-config" ,pkg-config)
4873        ("appstream-glib" ,appstream-glib)
4874        ("desktop-file-utils" ,desktop-file-utils)
4875        ("glib:bin" ,glib "bin") ; for glib-compile-resources
4876        ("intltool" ,intltool)
4877        ("itstool" ,itstool)
4878        ("vala" ,vala)
4879        ("xmllint" ,libxml2)))
4880     (inputs
4881      `(("gtk+" ,gtk+)
4882        ("libgnome-games-support" ,libgnome-games-support)
4883        ("librsvg" ,librsvg)))
4884     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
4885     (synopsis "Logic puzzle game")
4886     (description "Five or More is a game where you try to align
4887  five or more objects of the same color and shape causing them to disappear.
4888  On every turn more objects will appear, until the board is full.
4889  Try to last as long as possible.")
4890     (license license:gpl2+)))
4891
4892 (define-public gnome-mines
4893   (package
4894     (name "gnome-mines")
4895     (version "3.36.1")
4896     (source
4897      (origin
4898        (method url-fetch)
4899        (uri (string-append "mirror://gnome/sources/" name "/"
4900                            (version-major+minor version) "/"
4901                            name "-" version ".tar.xz"))
4902        (sha256
4903         (base32 "0m2680r94nk61imym4x73j03jwfjd8cxm592m5ybiqdfdw6i723i"))))
4904     (build-system meson-build-system)
4905     (arguments
4906      '(#:glib-or-gtk? #t
4907        #:phases
4908        (modify-phases %standard-phases
4909          (add-after 'unpack 'skip-gtk-update-icon-cache
4910            (lambda _
4911              (substitute* "build-aux/meson_post_install.py"
4912                (("gtk-update-icon-cache") (which "true")))
4913              #t)))))
4914     (native-inputs
4915      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
4916        ("pkg-config" ,pkg-config)
4917        ("desktop-file-utils" ,desktop-file-utils)
4918        ("intltool" ,intltool)
4919        ("itstool" ,itstool)
4920        ("vala" ,vala)
4921        ("yelp" ,yelp)
4922        ("appstream-glib" ,appstream-glib)))
4923     (inputs
4924      `(("gtk+" ,gtk+)
4925        ("libgnome-games-support" ,libgnome-games-support)
4926        ("librsvg" ,librsvg)))
4927     (home-page "https://wiki.gnome.org/Apps/Mines")
4928     (synopsis "Minesweeper game")
4929     (description
4930      "Mines (previously gnomine) is a puzzle game where you locate mines
4931 floating in an ocean using only your brain and a little bit of luck.")
4932     (license license:gpl2+)))
4933
4934 (define-public gnome-multi-writer
4935   (package
4936     (name "gnome-multi-writer")
4937     (version "3.35.90")
4938     (source
4939      (origin
4940        (method url-fetch)
4941        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
4942                            (version-major+minor version) "/"
4943                            "gnome-multi-writer-" version ".tar.xz"))
4944        (sha256
4945         (base32
4946          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
4947     (build-system meson-build-system)
4948     (arguments
4949      '(#:glib-or-gtk? #t
4950        #:phases
4951        (modify-phases %standard-phases
4952          (add-after 'unpack 'skip-post-install
4953            (lambda _
4954              (substitute* "meson.build"
4955                (("meson.add_install_script" &) (string-append "# " &)))
4956              #t)))))
4957     (native-inputs
4958      `(("glib:bin" ,glib "bin")
4959        ("pkg-config" ,pkg-config)))
4960     (inputs
4961      `(("gtk+" ,gtk+)
4962        ("glib" ,glib)                   ; for gio
4963        ("gusb" ,gusb)
4964        ("udisks" ,udisks)
4965        ("libgudev" ,libgudev)
4966        ("libcanberra" ,libcanberra)
4967        ("polkit" ,polkit)))
4968     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
4969     (synopsis "Write to multiple USB devices at once")
4970     (description
4971      "MultiWriter can be used to write an ISO file to multiple USB devices at
4972 once.")
4973     (license license:gpl2+)))
4974
4975 (define-public gnome-sudoku
4976   (package
4977     (name "gnome-sudoku")
4978     (version "3.34.1")
4979     (source
4980      (origin
4981        (method url-fetch)
4982        (uri (string-append "mirror://gnome/sources/" name "/"
4983                            (version-major+minor version) "/"
4984                            name "-" version ".tar.xz"))
4985        (sha256
4986         (base32
4987          "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
4988     (build-system meson-build-system)
4989     (arguments
4990      '(#:glib-or-gtk? #t
4991        #:phases
4992        (modify-phases %standard-phases
4993          (add-after 'unpack 'skip-gtk-update-icon-cache
4994            (lambda _
4995              (substitute* "build-aux/post_install.py"
4996                (("gtk-update-icon-cache") (which "true")))
4997              #t)))))
4998     (native-inputs
4999      `(("pkg-config" ,pkg-config)
5000        ("desktop-file-utils" ,desktop-file-utils)
5001        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5002        ("intltool" ,intltool)
5003        ("itstool" ,itstool)
5004        ("vala" ,vala)
5005        ("xmllint" ,libxml2)))
5006     (inputs
5007      `(("gtk+" ,gtk+)
5008        ("json-glib" ,json-glib)
5009        ("libgee" ,libgee)
5010        ("librsvg" ,librsvg)
5011        ("qqwing" ,qqwing)))
5012     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5013     (synopsis "Japanese logic game")
5014     (description
5015      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5016 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5017 possible while still providing features that make playing difficult Sudoku
5018 more fun.")
5019     (license license:gpl2+)))
5020
5021 (define-public gnome-terminal
5022   (package
5023     (name "gnome-terminal")
5024     (version "3.34.2")
5025     (source
5026      (origin
5027        (method url-fetch)
5028        (uri (string-append "mirror://gnome/sources/" name "/"
5029                            (version-major+minor version) "/"
5030                            name "-" version ".tar.xz"))
5031        (sha256
5032         (base32
5033          "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
5034     (build-system glib-or-gtk-build-system)
5035     (arguments
5036      '(#:configure-flags
5037        (list "--disable-migration" "--disable-search-provider"
5038              "--without-nautilus-extension")
5039        #:phases
5040        (modify-phases %standard-phases
5041          (add-before 'configure 'patch-/bin/true
5042                      (lambda _
5043                        (substitute* "configure"
5044                          (("/bin/true") (which "true"))))))))
5045     (native-inputs
5046      `(("pkg-config" ,pkg-config)
5047        ("desktop-file-utils" ,desktop-file-utils)
5048        ("intltool" ,intltool)
5049        ("itstool" ,itstool)
5050        ("xmllint" ,libxml2)))
5051     (propagated-inputs
5052      `(("dconf" ,dconf)))
5053     (inputs
5054      `(("gtk+" ,gtk+)
5055        ("vte" ,vte)
5056        ("gnutls" ,gnutls)
5057        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5058        ("util-linux" ,util-linux "lib")
5059        ("vala" ,vala)))
5060     (home-page "https://wiki.gnome.org/Apps/Terminal")
5061     (synopsis "Terminal emulator")
5062     (description
5063      "GNOME Terminal is a terminal emulator application for accessing a
5064 UNIX shell environment which can be used to run programs available on
5065 your system.
5066
5067 It supports several profiles, multiple tabs and implements several
5068 keyboard shortcuts.")
5069     (license license:gpl3+)))
5070
5071 (define-public colord
5072   (package
5073     (name "colord")
5074     (version "1.4.5")
5075     (source
5076      (origin
5077        (method url-fetch)
5078        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5079                            "colord-" version ".tar.xz"))
5080        (sha256
5081         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5082     (build-system meson-build-system)
5083     (arguments
5084      '(;; FIXME: One test fails:
5085        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5086        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5087        ;; application/x-zerosize
5088        #:tests? #f
5089        #:glib-or-gtk? #t
5090        #:configure-flags (list "-Dlocalstatedir=/var"
5091                                ;; No dep on systemd.
5092                                "-Dsystemd=false"
5093                                ;; Wants to install to global completion dir;
5094                                ;; punt.
5095                                "-Dbash_completion=false"
5096                                "-Ddaemon_user=colord"
5097                                "-Dsane=true"
5098                                "-Dvapi=true"
5099                                ;; Requires spotread.
5100                                "-Dargyllcms_sensor=false"
5101                                ;; TODO: Requires docbook2x.
5102                                "-Dman=false")
5103        #:phases
5104        (modify-phases %standard-phases
5105          (add-before 'configure 'patch-build-system
5106            (lambda* (#:key outputs #:allow-other-keys)
5107              (substitute* "rules/meson.build"
5108                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5109                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
5110              #t))
5111          (add-before 'configure 'set-sqlite3-file-name
5112            (lambda* (#:key inputs #:allow-other-keys)
5113              ;; "colormgr dump" works by invoking the "sqlite3" command.
5114              ;; Record its absolute file name.
5115              (let ((sqlite (assoc-ref inputs "sqlite")))
5116                (substitute* "client/cd-util.c"
5117                  (("\"sqlite3\"")
5118                   (string-append "\"" sqlite "/bin/sqlite3\"")))
5119                #t))))))
5120     (native-inputs
5121      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5122        ("gettext" ,gettext-minimal)
5123        ("gobject-introspection" ,gobject-introspection)
5124        ("gtk-doc" ,gtk-doc)
5125        ("pkg-config" ,pkg-config)
5126        ("vala" ,vala)))
5127     (propagated-inputs
5128      ;; colord.pc refers to all these.
5129      `(("glib" ,glib)
5130        ("lcms" ,lcms)
5131        ("udev" ,eudev)))
5132     (inputs
5133      `(("dbus-glib" ,dbus-glib)
5134        ("gusb" ,gusb)
5135        ("libgudev" ,libgudev)
5136        ("libusb" ,libusb)
5137        ("polkit" ,polkit)
5138        ("python" ,python-wrapper)
5139        ("sqlite" ,sqlite)
5140        ("sane-backends" ,sane-backends)))
5141     (home-page "https://www.freedesktop.org/software/colord/")
5142     (synopsis "Color management service")
5143     (description "Colord is a system service that makes it easy to manage,
5144 install and generate color profiles to accurately color manage input and
5145 output devices.")
5146     (license license:gpl2+)))
5147
5148 (define-public geoclue
5149   (package
5150     (name "geoclue")
5151     (version "2.5.6")
5152     (source
5153      (origin
5154        (method url-fetch)
5155        (uri
5156         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5157                        version "/geoclue-" version ".tar.bz2"))
5158        (sha256
5159         (base32 "0a833x5apzabxj80ywvsh8crd635vni2i9v9c1p095f6hvmfc45k"))
5160        (patches (search-patches "geoclue-config.patch"))))
5161     (build-system meson-build-system)
5162     (arguments
5163      '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
5164     (native-inputs
5165      `(("pkg-config" ,pkg-config)
5166        ("gobject-introspection" ,gobject-introspection)
5167        ("modem-manager" ,modem-manager)
5168        ("libnotify" ,libnotify)
5169        ("gtk-doc" ,gtk-doc)
5170        ("intltool" ,intltool)))
5171     (inputs
5172      `(("avahi" ,avahi)
5173        ("glib:bin" ,glib "bin")
5174        ("glib-networking" ,glib-networking)
5175        ("json-glib" ,json-glib)
5176        ("libsoup" ,libsoup)))
5177     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5178     (synopsis "Geolocation service")
5179     (description "Geoclue is a D-Bus service that provides location
5180 information.  The primary goal of the Geoclue project is to make creating
5181 location-aware applications as simple as possible, while the secondary goal is
5182 to ensure that no application can access location information without explicit
5183 permission from user.")
5184     (license license:gpl2+)))
5185
5186 (define-public geocode-glib
5187   (package
5188     (name "geocode-glib")
5189     (version "3.26.2")
5190     (source (origin
5191               (method url-fetch)
5192               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5193                                   (version-major+minor version) "/"
5194                                   "geocode-glib-" version ".tar.xz"))
5195               (sha256
5196                (base32
5197                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5198     (build-system meson-build-system)
5199     (arguments
5200      `(#:phases
5201        (modify-phases %standard-phases
5202          ;; The tests require a bunch of locales.
5203          (add-before 'check 'set-locales
5204            (lambda* (#:key inputs #:allow-other-keys)
5205              (setenv "GUIX_LOCPATH"
5206                      (string-append (assoc-ref inputs "glibc-locales")
5207                                     "/lib/locale"))
5208              #t)))))
5209     (native-inputs
5210      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5211        ("glibc-locales" ,glibc-locales) ; for tests
5212        ("gettext" ,gettext-minimal)
5213        ("gobject-introspection" ,gobject-introspection)
5214        ("gtk-doc" ,gtk-doc)
5215        ("pkg-config" ,pkg-config)
5216        ("json-glib" ,json-glib)))
5217     (propagated-inputs
5218      ;; geocode-glib-1.0.pc refers to GIO.
5219      `(("glib" ,glib)))
5220     (inputs
5221      `(("libsoup" ,libsoup)))
5222     (home-page "https://github.com/GNOME/geocode-glib/")
5223     (synopsis "Geocoding and reverse-geocoding library")
5224     (description
5225      "geocode-glib is a convenience library for geocoding (finding longitude,
5226 and latitude from an address) and reverse geocoding (finding an address from
5227 coordinates) using the Nominatim service.  geocode-glib caches requests for
5228 faster results and to avoid unnecessary server load.")
5229     (license license:lgpl2.0+)))
5230
5231 (define-public upower
5232   (package
5233     (name "upower")
5234     (version "0.99.11")
5235     (source (origin
5236               (method url-fetch)
5237               (uri (string-append "https://upower.freedesktop.org/releases/"
5238                                   "upower-" version ".tar.xz"))
5239               (sha256
5240                (base32
5241                 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
5242               (patches (search-patches "upower-builddir.patch"))
5243               (modules '((guix build utils)))
5244               (snippet
5245                '(begin
5246                   ;; Upstream commit
5247                   ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5248                   ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5249                   ;; 'dbus-configuration-directory' in (gnu services dbus)
5250                   ;; expects it in etc/.  Thus, move it back to its previous
5251                   ;; location.
5252                   (substitute* "src/Makefile.in"
5253                     (("^dbusconfdir =.*$")
5254                      "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5255                   #t))))
5256     (build-system glib-or-gtk-build-system)
5257     (arguments
5258      '(#:phases
5259        (modify-phases %standard-phases
5260          (add-before 'check 'pre-check
5261            (lambda* (#:key inputs #:allow-other-keys)
5262              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5263                                             "/lib")))
5264                (setenv "LD_LIBRARY_PATH" umockdev))
5265              #t)))
5266        #:configure-flags (list "--localstatedir=/var"
5267                                (string-append "--with-udevrulesdir="
5268                                               (assoc-ref %outputs "out")
5269                                               "/lib/udev/rules.d"))))
5270     (native-inputs
5271      `(("gobject-introspection" ,gobject-introspection)
5272        ("pkg-config" ,pkg-config)
5273        ("intltool" ,intltool)
5274        ("python" ,python)
5275
5276        ;; For tests.
5277        ("python-dbus" ,python-dbus)
5278        ("python-dbusmock" ,python-dbusmock)
5279        ("python-pygobject" ,python-pygobject)
5280        ("umockdev" ,umockdev)
5281
5282        ;; For man pages.
5283        ("libxslt" ,libxslt)                       ;for 'xsltproc'
5284        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
5285        ("docbook-xsl" ,docbook-xsl)))
5286     (inputs
5287      `(("dbus-glib" ,dbus-glib)
5288        ("libgudev" ,libgudev)
5289        ("libusb" ,libusb)))
5290     (propagated-inputs
5291      ;; In Requires of upower-glib.pc.
5292      `(("glib" ,glib)))
5293     (home-page "https://upower.freedesktop.org/")
5294     (synopsis "System daemon for managing power devices")
5295     (description
5296      "UPower is an abstraction for enumerating power devices,
5297 listening to device events and querying history and statistics.  Any
5298 application or service on the system can access the org.freedesktop.UPower
5299 service via the system message bus.")
5300     (license license:gpl2+)))
5301
5302 (define-public libgweather
5303   (package
5304     (name "libgweather")
5305     (version "3.34.0")
5306     (source (origin
5307               (method url-fetch)
5308               (uri (string-append "mirror://gnome/sources/" name "/"
5309                                   (version-major+minor version) "/"
5310                                   name "-" version ".tar.xz"))
5311               (sha256
5312                (base32
5313                 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
5314     (build-system meson-build-system)
5315     (arguments
5316      `(#:tests? #f ; one of two tests requires network access
5317        #:configure-flags
5318        `(,(string-append "-Dzoneinfo_dir="
5319                          (assoc-ref %build-inputs "tzdata")
5320                          "/share/zoneinfo"))))
5321     (native-inputs
5322      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5323        ("gobject-introspection" ,gobject-introspection)
5324        ("pkg-config" ,pkg-config)
5325        ("vala" ,vala)
5326        ("intltool" ,intltool)))
5327     (propagated-inputs
5328      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5329      ;; libsoup.
5330      `(("gtk+" ,gtk+)
5331        ("gdk-pixbuf" ,gdk-pixbuf)
5332        ("libxml2" ,libxml2)
5333        ("libsoup" ,libsoup)
5334        ("geocode-glib" ,geocode-glib)))
5335     (inputs
5336      `(("tzdata" ,tzdata)))
5337     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5338     (synopsis "Location, time zone, and weather library for GNOME")
5339     (description
5340      "libgweather is a library to access weather information from online
5341 services for numerous locations.")
5342     (license license:gpl2+)))
5343
5344 (define-public gnome-settings-daemon
5345   (package
5346     (name "gnome-settings-daemon")
5347     (version "3.34.1")
5348     (source
5349      (origin
5350        (method url-fetch)
5351        (uri (string-append "mirror://gnome/sources/" name "/"
5352                            (version-major+minor version) "/"
5353                            name "-" version ".tar.xz"))
5354        (sha256
5355         (base32
5356          "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))
5357        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5358     (build-system meson-build-system)
5359     (arguments
5360      `(#:glib-or-gtk? #t
5361        #:configure-flags
5362        (list (string-append "-Dudev_dir="
5363                             (assoc-ref %outputs "out")
5364                             "/lib/udev/rules.d/")
5365              "-Dsystemd=false"
5366              ;; Otherwise, the RUNPATH will lack the final path component.
5367              (string-append "-Dc_link_args=-Wl,-rpath="
5368                             (assoc-ref %outputs "out")
5369                             "/lib/gnome-settings-daemon-3.0"))
5370
5371        #:phases (modify-phases %standard-phases
5372                   (add-before 'configure 'set-baobab-file-name
5373                     (lambda* (#:key inputs #:allow-other-keys)
5374                       ;; Hard-code the file name of Baobab instead of looking
5375                       ;; it up in $PATH.  This ensures users get the "Examine"
5376                       ;; button in the low disk space notification of GDM even
5377                       ;; if they don't have GNOME in their main profile.
5378                       (let ((baobab (assoc-ref inputs "baobab")))
5379                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5380                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5381                            (string-append "g_strdup (\"" baobab
5382                                           "/bin/baobab\")")))
5383                         #t))))
5384
5385        ;; Color management test can't reach the colord system service.
5386        #:tests? #f))
5387     (native-inputs
5388      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5389        ("pkg-config" ,pkg-config)
5390        ("intltool" ,intltool)
5391        ("xsltproc" ,libxslt)
5392        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5393        ("docbook-xml" ,docbook-xml-4.2)
5394        ("docbook-xsl" ,docbook-xsl)))
5395     (inputs
5396      `(("alsa-lib" ,alsa-lib)
5397        ("baobab" ,baobab)
5398        ("colord" ,colord)
5399        ("libgudev" ,libgudev)
5400        ("upower" ,upower)
5401        ("polkit" ,polkit)
5402        ("pulseaudio" ,pulseaudio)
5403        ("libcanberra" ,libcanberra)
5404        ("libx11" ,libx11)
5405        ("libxtst" ,libxtst)
5406        ("lcms" ,lcms)
5407        ("libnotify" ,libnotify)
5408        ("geoclue" ,geoclue)
5409        ("geocode-glib" ,geocode-glib)
5410        ("libgweather" ,libgweather)
5411        ("gnome-desktop" ,gnome-desktop)
5412        ("nss" ,nss)
5413        ("cups" ,cups)
5414        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5415        ("libwacom" ,libwacom)
5416        ("librsvg" ,librsvg)
5417        ("xf86-input-wacom" ,xf86-input-wacom)
5418        ("wayland" ,wayland)
5419        ("network-manager" ,network-manager)
5420        ("gcr" ,gcr)
5421        ("modem-manager" ,modem-manager)))
5422     (home-page "https://www.gnome.org")
5423     (synopsis "GNOME settings daemon")
5424     (description
5425      "This package contains the daemon responsible for setting the various
5426 parameters of a GNOME session and the applications that run under it.  It
5427 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5428 settings, themes, mouse settings, and startup of other daemons.")
5429     (license license:gpl2+)))
5430
5431 (define-public totem-pl-parser
5432  (package
5433    (name "totem-pl-parser")
5434    (version "3.26.5")
5435    (source (origin
5436             (method url-fetch)
5437             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5438                                 (version-major+minor version) "/"
5439                                 "totem-pl-parser-" version ".tar.xz"))
5440             (sha256
5441              (base32
5442               "132jihnf51zs98yjkc6jxyqib4f3dawpjm17g4bj4j78y93dww2k"))))
5443    (build-system meson-build-system)
5444    (arguments
5445     ;; FIXME: Tests require gvfs.
5446     `(#:tests? #f))
5447    (native-inputs
5448     `(("intltool" ,intltool)
5449       ("glib" ,glib "bin")
5450       ("gobject-introspection" ,gobject-introspection)
5451       ("pkg-config" ,pkg-config)))
5452    (propagated-inputs
5453     `(("glib" ,glib)
5454       ("gmime" ,gmime)
5455       ("libarchive" ,libarchive)
5456       ("libgcrypt" ,libgcrypt)
5457       ("libxml2" ,libxml2)))
5458    (inputs
5459     `(("libsoup" ,libsoup)))
5460    (home-page "https://projects.gnome.org/totem")
5461    (synopsis "Library to parse and save media playlists for GNOME")
5462    (description "Totem-pl-parser is a GObjects-based library to parse and save
5463 playlists in a variety of formats.")
5464    (license license:lgpl2.0+)))
5465
5466 (define-public aisleriot
5467   (package
5468     (name "aisleriot")
5469     (version "3.22.9")
5470     (source (origin
5471               (method url-fetch)
5472               (uri (string-append "mirror://gnome/sources/aisleriot/"
5473                                   (version-major+minor version) "/"
5474                                   "aisleriot-" version ".tar.xz"))
5475               (sha256
5476                (base32
5477                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5478     (build-system glib-or-gtk-build-system)
5479     (arguments
5480      '(#:configure-flags
5481        '("--with-platform=gtk-only"
5482          "--with-card-theme-formats=svg")))
5483     (native-inputs
5484      `(("desktop-file-utils" ,desktop-file-utils)
5485        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5486        ("intltool" ,intltool)
5487        ("itstool" ,itstool)
5488        ("pkg-config" ,pkg-config)
5489        ("xmllint" ,libxml2)))
5490     (inputs
5491      `(("gtk+" ,gtk+)
5492        ("guile" ,guile-2.2)
5493        ("libcanberra" ,libcanberra)
5494        ("librsvg" ,librsvg)))
5495     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5496     (synopsis "Solitaire card games")
5497     (description
5498      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5499 which are easy to play with the aid of a mouse.")
5500     (license license:gpl3+)))
5501
5502 (define-public amtk
5503   (package
5504     (name "amtk")
5505     (version "5.0.2")
5506     (source (origin
5507               (method url-fetch)
5508               (uri (string-append "mirror://gnome/sources/amtk/"
5509                                   (version-major+minor version) "/"
5510                                   "amtk-" version ".tar.xz"))
5511               (sha256
5512                (base32
5513                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
5514     (build-system gnu-build-system)
5515     (arguments
5516      '(#:configure-flags '("--enable-gtk-doc")))
5517     (native-inputs
5518      `(("gobject-introspection" ,gobject-introspection)
5519        ("glib:bin" ,glib "bin")         ; for glib-mkenums
5520        ("gtk-doc" ,gtk-doc)
5521        ("pkg-config" ,pkg-config)))
5522     (inputs
5523      `(("glib" ,glib)
5524        ("gtk+" ,gtk+)))
5525     (home-page "https://wiki.gnome.org/Projects/Amtk")
5526     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5527     (description
5528      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5529 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5530 both a traditional UI or a modern UI with a GtkHeaderBar.")
5531     (license license:lgpl2.1+)))
5532
5533 (define-public devhelp
5534   (package
5535     (name "devhelp")
5536     (version "3.34.0")
5537     (source (origin
5538               (method url-fetch)
5539               (uri (string-append "mirror://gnome/sources/" name "/"
5540                                   (version-major+minor version) "/"
5541                                   name "-" version ".tar.xz"))
5542               (sha256
5543                (base32
5544                 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
5545     (build-system meson-build-system)
5546     (arguments
5547      '(#:glib-or-gtk? #t
5548        #:phases
5549        (modify-phases %standard-phases
5550          (add-after 'unpack 'skip-gtk-update-icon-cache
5551            ;; Don't create 'icon-theme.cache'.
5552            (lambda _
5553              (substitute* "meson_post_install.py"
5554                (("gtk-update-icon-cache") "true"))
5555              #t)))))
5556     (native-inputs
5557      `(("intltool" ,intltool)
5558        ("itstool" ,itstool)
5559        ("gobject-introspection" ,gobject-introspection)
5560        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5561        ("pkg-config" ,pkg-config)))
5562     (inputs
5563      `(("amtk" ,amtk)
5564        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5565        ("webkitgtk" ,webkitgtk)))
5566     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5567     (synopsis "API documentation browser for GNOME")
5568     (description
5569      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5570 natively with GTK-Doc (the API reference system developed for GTK+ and used
5571 throughout GNOME for API documentation).")
5572     (license license:gpl2+)))
5573
5574 (define-public cogl
5575   (package
5576     (name "cogl")
5577     (version "1.22.8")
5578     (source
5579      (origin
5580        (method url-fetch)
5581        (uri (string-append "mirror://gnome/sources/cogl/"
5582                            (version-major+minor version) "/"
5583                            "cogl-" version ".tar.xz"))
5584        (sha256
5585         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5586     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5587     ;; cogl, corresponding changes may be appropriate in mutter as well.
5588     (build-system gnu-build-system)
5589     (native-inputs
5590      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5591        ("gobject-introspection" ,gobject-introspection)
5592        ("xorg-server" ,xorg-server-for-tests)
5593        ("pkg-config" ,pkg-config)))
5594     (propagated-inputs
5595      `(("glib" ,glib)
5596        ("gdk-pixbuf" ,gdk-pixbuf)
5597        ("libx11" ,libx11)
5598        ("libxext" ,libxext)
5599        ("libxfixes" ,libxfixes)
5600        ("libxdamage" ,libxdamage)
5601        ("libxcomposite" ,libxcomposite)
5602        ("libxrandr" ,libxrandr)))
5603     (inputs
5604      `(("mesa" ,mesa)
5605        ("cairo" ,cairo)
5606        ("pango" ,pango)
5607        ("gstreamer" ,gstreamer)
5608        ("gst-plugins-base" ,gst-plugins-base)
5609        ("wayland" ,wayland)))
5610     (arguments
5611      `(#:disallowed-references (,xorg-server-for-tests)
5612        #:configure-flags (list "--enable-cogl-gst"
5613                                "--enable-wayland-egl-platform"
5614                                "--enable-wayland-egl-server"
5615
5616                                ;; Arrange to pass an absolute file name to
5617                                ;; dlopen for libGL.so.
5618                                (string-append "--with-gl-libname="
5619                                               (assoc-ref %build-inputs "mesa")
5620                                               "/lib/libGL.so"))
5621        #:phases
5622        (modify-phases %standard-phases
5623          (add-after 'unpack 'fix-build-with-mesa-20
5624            (lambda _
5625              ;; Work around a problem with Mesa 20 where some macros used by
5626              ;; Cogl went missing from eglext.h.  This can likely be removed
5627              ;; for newer versions of Cogl or Mesa.
5628              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5629              (substitute* '("configure"
5630                             "cogl/winsys/cogl-winsys-egl-kms.c")
5631                (("#include <EGL/eglext.h>" all)
5632                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5633              #t))
5634          (add-before 'check 'start-xorg-server
5635                      (lambda* (#:key tests? inputs #:allow-other-keys)
5636                        (if tests?
5637                            (begin
5638                              ;; The test suite requires a running X server.
5639                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5640                                              (assoc-ref inputs "xorg-server")))
5641                              (setenv "DISPLAY" ":1")
5642                              #t)
5643                            (format #t "test suite not run~%"))
5644                        #t)))))
5645     (home-page "https://www.cogl3d.org")
5646     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5647     (description
5648      "Cogl is a small library for using 3D graphics hardware to draw pretty
5649 pictures.  The API departs from the flat state machine style of OpenGL and is
5650 designed to make it easy to write orthogonal components that can render
5651 without stepping on each others toes.")
5652     (license (list license:expat       ; most of the code
5653                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5654                    license:sgifreeb2.0 ; cogl-path/tesselator/
5655                    license:asl2.0))))  ; examples/android/
5656
5657 (define-public clutter
5658   (package
5659     (name "clutter")
5660     (version "1.26.2")
5661     (source
5662      (origin
5663        (method url-fetch)
5664        (uri (string-append "mirror://gnome/sources/" name "/"
5665                            (version-major+minor version) "/"
5666                            name "-" version ".tar.xz"))
5667        (sha256
5668         (base32
5669          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5670     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5671     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5672     (build-system gnu-build-system)
5673     (outputs '("out"
5674                "doc"))                            ;9 MiB of gtk-doc HTML pages
5675     (native-inputs
5676      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5677        ("gobject-introspection" ,gobject-introspection)
5678        ("pkg-config" ,pkg-config)
5679        ("xsltproc" ,libxslt)))
5680     (propagated-inputs
5681      `(("cogl" ,cogl)
5682        ("cairo" ,cairo)
5683        ("atk" ,atk)
5684        ("gtk+" ,gtk+)
5685        ("json-glib" ,json-glib)
5686        ("glib" ,glib)
5687        ("libxcomposite" ,libxcomposite)
5688        ("libxdamage" ,libxdamage)
5689        ("libxext" ,libxext)
5690        ("xinput" ,xinput)))
5691     (inputs
5692      `(("libxkbcommon" ,libxkbcommon)
5693        ("udev" ,eudev)))
5694     (arguments
5695      `(#:configure-flags (list "--enable-x11-backend=yes"
5696
5697                                ;; This produces share/doc/{clutter,cally}.
5698                                (string-append "--with-html-dir="
5699                                               (assoc-ref %outputs "doc")
5700                                               "/share/doc"))
5701        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5702        ;; same way the cogl tests fail, since clutter is based on cogl.
5703        #:tests? #f))
5704     (home-page "http://www.clutter-project.org")
5705     (synopsis "OpenGL-based interactive canvas library")
5706     (description
5707      "Clutter is an OpenGL-based interactive canvas library, designed for
5708 creating fast, mainly 2D single window applications such as media box UIs,
5709 presentations, kiosk style applications and so on.")
5710     (license license:lgpl2.0+)))
5711
5712 (define-public clutter-gtk
5713   (package
5714     (name "clutter-gtk")
5715     (version "1.8.4")
5716     (source
5717      (origin
5718        (method url-fetch)
5719        (uri (string-append "mirror://gnome/sources/" name "/"
5720                            (version-major+minor version) "/"
5721                            name "-" version ".tar.xz"))
5722        (sha256
5723         (base32
5724          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5725     (build-system gnu-build-system)
5726     (native-inputs
5727      `(("pkg-config" ,pkg-config)
5728        ("gobject-introspection" ,gobject-introspection)))
5729     (propagated-inputs
5730      ;; clutter-gtk.pc refers to all these.
5731      `(("clutter" ,clutter)
5732        ("gtk+" ,gtk+)))
5733     (home-page "http://www.clutter-project.org")
5734     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5735     (description
5736      "Clutter is an OpenGL-based interactive canvas library, designed for
5737 creating fast, mainly 2D single window applications such as media box UIs,
5738 presentations, kiosk style applications and so on.")
5739     (license license:lgpl2.0+)))
5740
5741 (define-public clutter-gst
5742   (package
5743     (name "clutter-gst")
5744     (version "3.0.27")
5745     (source
5746      (origin
5747        (method url-fetch)
5748        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5749                            (version-major+minor version) "/"
5750                            "clutter-gst-" version ".tar.xz"))
5751        (sha256
5752         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
5753     (build-system gnu-build-system)
5754     (native-inputs
5755      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
5756        ("pkg-config" ,pkg-config)
5757        ("gobject-introspection" ,gobject-introspection)))
5758     (inputs
5759      `(("clutter" ,clutter)
5760        ("gstreamer" ,gstreamer)
5761        ("gst-plugins-base" ,gst-plugins-base)))
5762     (home-page "http://www.clutter-project.org")
5763     (synopsis "Integration library for using GStreamer with Clutter")
5764     (description
5765      "Clutter-Gst is an integration library for using GStreamer with Clutter.
5766 It provides a GStreamer sink to upload frames to GL and an actor that
5767 implements the ClutterGstPlayer interface using playbin.  Clutter is an
5768 OpenGL-based interactive canvas library.")
5769     (license license:lgpl2.0+)))
5770
5771 (define-public libchamplain
5772   (package
5773     (name "libchamplain")
5774     (version "0.12.16")
5775     (source (origin
5776               (method url-fetch)
5777               (uri (string-append
5778                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5779                     version ".tar.xz"))
5780               (sha256
5781                (base32
5782                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
5783     (build-system gnu-build-system)
5784     (arguments '(#:configure-flags '("--enable-vala")))
5785     (native-inputs
5786      `(("gobject-introspection" ,gobject-introspection)
5787        ("pkg-config" ,pkg-config)
5788        ("vala" ,vala)))
5789     (propagated-inputs
5790      `(("libsoup" ,libsoup)
5791        ("sqlite" ,sqlite)
5792        ("clutter" ,clutter)
5793        ("clutter-gtk" ,clutter-gtk)
5794        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
5795        ("cairo" ,cairo)
5796        ("gtk+3" ,gtk+)
5797        ("glib" ,glib)))
5798     (home-page "https://projects.gnome.org/libchamplain/")
5799     (synopsis "C library providing a ClutterActor to display maps")
5800     (description
5801      "libchamplain is a C library providing a ClutterActor to display maps.
5802 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
5803 and Perl bindings are also available.  It supports numerous free map sources
5804 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
5805     (license license:lgpl2.1+)))
5806
5807 (define-public gom
5808   (package
5809     (name "gom")
5810     (version "0.3.2")
5811     (source
5812      (origin
5813        (method url-fetch)
5814        (uri (string-append "mirror://gnome/sources/gom/"
5815                            (version-major+minor version) "/"
5816                            "gom-" version ".tar.xz"))
5817        (sha256
5818         (base32
5819          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
5820     (build-system gnu-build-system)
5821     (native-inputs
5822      `(("intltool" ,intltool)
5823        ("pkg-config" ,pkg-config)
5824        ("gobject-introspection" ,gobject-introspection)))
5825     (inputs
5826      `(("glib" ,glib)
5827        ("gdk-pixbuf" ,gdk-pixbuf)
5828        ("sqlite" ,sqlite)))
5829     ;; XXX TODO: Figure out how to run the test suite.
5830     (arguments `(#:tests? #f))
5831     (home-page "https://wiki.gnome.org/Projects/Gom")
5832     (synopsis "Object mapper from GObjects to SQLite")
5833     (description
5834      "Gom provides an object mapper from GObjects to SQLite.  It helps you
5835 write applications that need to store structured data as well as make complex
5836 queries upon that data.")
5837     (license license:lgpl2.1+)))
5838
5839 (define-public libgnome-games-support
5840   (package
5841     (name "libgnome-games-support")
5842     (version "1.4.4")
5843     (source (origin
5844               (method url-fetch)
5845               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
5846                                   (version-major+minor version) "/"
5847                                   "libgnome-games-support-" version ".tar.xz"))
5848               (sha256
5849                (base32
5850                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
5851     (build-system gnu-build-system)
5852     (arguments
5853      '(#:phases
5854        (modify-phases %standard-phases
5855          (add-before 'check 'pre-check
5856            (lambda _
5857              ;; Tests require a writable HOME.
5858              (setenv "HOME" (getcwd))
5859              #t)))))
5860     (native-inputs
5861      `(("intltool" ,intltool)
5862        ("pkg-config" ,pkg-config)
5863        ("vala" ,vala)))
5864     (propagated-inputs
5865      ;; Required by libgnome-games-support-1.0.pc
5866      `(("gtk+" ,gtk+)
5867        ("libgee" ,libgee)))
5868     (home-page "https://www.gnome.org/")
5869     (synopsis "Useful functionality shared among GNOME games")
5870     (description
5871      "libgnome-games-support is a small library intended for internal use by
5872 GNOME Games, but it may be used by others.")
5873     (license license:lgpl3+)))
5874
5875 (define-public gnome-klotski
5876   (package
5877     (name "gnome-klotski")
5878     (version "3.34.0")
5879     (source (origin
5880               (method url-fetch)
5881               (uri (string-append "mirror://gnome/sources/" name "/"
5882                                   (version-major+minor version) "/"
5883                                   name "-" version ".tar.xz"))
5884               (sha256
5885                (base32
5886                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
5887     (build-system meson-build-system)
5888     (arguments
5889      '(#:glib-or-gtk? #t
5890        #:phases
5891        (modify-phases %standard-phases
5892          (add-after 'unpack 'skip-gtk-update-icon-cache
5893            ;; Don't create 'icon-theme.cache'.
5894            (lambda _
5895              (substitute* "build-aux/meson_post_install.py"
5896                (("gtk-update-icon-cache") (which "true")))
5897              #t)))))
5898     (native-inputs
5899      `(("desktop-file-utils" ,desktop-file-utils)
5900        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5901        ("intltool" ,intltool)
5902        ("itstool" ,itstool)
5903        ("pkg-config" ,pkg-config)
5904        ("vala" ,vala)
5905        ("xmllint" ,libxml2)))
5906     (inputs
5907      `(("gtk+" ,gtk+)
5908        ("libgnome-games-support" ,libgnome-games-support)
5909        ("librsvg" ,librsvg)))
5910     (home-page "https://wiki.gnome.org/Apps/Klotski")
5911     (synopsis "Sliding block puzzles")
5912     (description
5913      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
5914 the patterned block to the area bordered by green markers.  To do so, you will
5915 need to slide other blocks out of the way.  Complete each puzzle in as few moves
5916 as possible!")
5917     (license license:gpl2+)))
5918
5919 (define-public grilo
5920   (package
5921     (name "grilo")
5922     (version "0.3.12")
5923     (source
5924      (origin
5925        (method url-fetch)
5926        (uri (string-append "mirror://gnome/sources/grilo/"
5927                            (version-major+minor version) "/"
5928                            "grilo-" version ".tar.xz"))
5929        (sha256
5930         (base32 "0w8sq5g6g1rg85h53vbll8va70fcp6082mlpmy98aa03444ddyyv"))))
5931     (build-system meson-build-system)
5932     (native-inputs
5933      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
5934        ("intltool" ,intltool)
5935        ("pkg-config" ,pkg-config)
5936        ("gobject-introspection" ,gobject-introspection)
5937        ("gtk-doc" ,gtk-doc)
5938        ("vala" ,vala)))
5939     (inputs
5940      `(("cyrus-sasl" ,cyrus-sasl)
5941        ("glib" ,glib)
5942        ("gtk+" ,gtk+)
5943        ("libxml2" ,libxml2)
5944        ("liboauth" ,liboauth)
5945        ("libsoup" ,libsoup)
5946        ("totem-pl-parser" ,totem-pl-parser)))
5947     (native-search-paths
5948      (list (search-path-specification
5949             (variable "GRL_PLUGIN_PATH")
5950             (files (list (string-append "lib/grilo-"
5951                                         (version-major+minor version)))))))
5952     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
5953     (synopsis "Framework for discovering and browsing media")
5954     (description
5955      "Grilo is a framework focused on making media discovery and browsing easy
5956 for application developers.")
5957     (license license:lgpl2.1+)))
5958
5959 (define-public grilo-plugins
5960   (package
5961     (name "grilo-plugins")
5962     (version "0.3.11")
5963     (source
5964      (origin
5965        (method url-fetch)
5966        (uri (string-append "mirror://gnome/sources/" name "/"
5967                            (version-major+minor version) "/"
5968                            name "-" version ".tar.xz"))
5969        (sha256
5970         (base32 "0wyd3n5mn7b77hxylkc3f62v01mlavh96901pz342hwrn42ydqnx"))))
5971     (build-system meson-build-system)
5972     (native-inputs
5973      `(("gettext" ,gettext-minimal)
5974        ("glib:bin" ,glib "bin")
5975        ("gtk+:bin" ,gtk+ "bin")
5976        ("itstool" ,itstool)
5977        ("pkg-config" ,pkg-config)))
5978     ;; TODO: ahavi, gstreamer
5979     (inputs
5980      `(("grilo" ,grilo)
5981        ;("gmime" ,gmime) ; unused
5982        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
5983        ("gom" ,gom)
5984        ;("gssdp" ,gssdp) ; unused
5985        ;("gupnp" ,gupnp) ; unused
5986        ;("gupnp-av" ,gupnp-av) ; unused
5987        ("json-glib" ,json-glib)
5988        ("avahi" ,avahi)
5989        ("libgdata" ,libgdata)
5990        ("libmediaart" ,libmediaart)
5991        ;("librest" ,rest) ; unused
5992        ("libsoup" ,libsoup)
5993        ("totam-pl-parser" ,totem-pl-parser)
5994        ("tracker" ,tracker))) ; unused because it's too old
5995     (arguments
5996      `(#:glib-or-gtk? #t
5997        ;;Disable lua-factory as it needs missing dependencies
5998        #:configure-flags '("-Denable-lua-factory=no")))
5999     (home-page "https://live.gnome.org/Grilo")
6000     (synopsis "Plugins for the Grilo media discovery library")
6001     (description
6002      "Grilo is a framework focused on making media discovery and browsing easy
6003 for application developers.  This package provides plugins for common media
6004 discovery protocols.")
6005     (license license:lgpl2.1+)))
6006
6007 (define-public totem
6008   (package
6009     (name "totem")
6010     (version "3.38.0")
6011     (source
6012      (origin
6013        (method url-fetch)
6014        (uri (string-append "mirror://gnome/sources/totem/"
6015                            (version-major+minor version) "/"
6016                            "totem-" version ".tar.xz"))
6017        (sha256
6018         (base32
6019          "0bs33ijvxbr2prb9yj4dxglsszslsn9k258n311sld84masz4ad8"))))
6020     (build-system meson-build-system)
6021     (native-inputs
6022      `(("pkg-config" ,pkg-config)
6023        ("desktop-file-utils" ,desktop-file-utils)
6024        ("gettext" ,gettext-minimal)
6025        ("gobject-introspection" ,gobject-introspection)
6026        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6027        ("itstool" ,itstool)
6028        ("xmllint" ,libxml2)
6029        ("xorg-server" ,xorg-server-for-tests)))
6030     (propagated-inputs
6031      `(("dconf" ,dconf)))
6032     (inputs
6033      `(("gtk+" ,gtk+)
6034        ("gdk-pixbuf" ,gdk-pixbuf)
6035        ("atk" ,atk)
6036        ("cairo" ,cairo)
6037        ("dbus-glib" ,dbus-glib)
6038        ("clutter" ,clutter)
6039        ("clutter-gtk" ,clutter-gtk)
6040        ("clutter-gst" ,clutter-gst)
6041        ("xorgproto" ,xorgproto)
6042        ("libxxf86vm" ,libxxf86vm)
6043        ("libxtst" ,libxtst)
6044        ("libxrandr" ,libxrandr)
6045        ("libxml2" ,libxml2)
6046        ("libsoup" ,libsoup)
6047        ("libpeas" ,libpeas)
6048        ("librsvg" ,librsvg)
6049        ("lirc" ,lirc)
6050        ("gnome-desktop" ,gnome-desktop)
6051        ("gstreamer" ,gstreamer)
6052        ("gst-plugins-base" ,gst-plugins-base)
6053        ("gst-plugins-good" ,gst-plugins-good)
6054        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6055        ("adwaita-icon-theme" ,adwaita-icon-theme)
6056        ("python" ,python)
6057        ("python-pygobject" ,python-pygobject)
6058        ("totem-pl-parser" ,totem-pl-parser)
6059        ("grilo" ,grilo)
6060        ("grilo-plugins" ,grilo-plugins)
6061        ("vala" ,vala)))
6062     (arguments
6063      `(#:glib-or-gtk? #t
6064
6065        ;; Disable automatic GStreamer plugin installation via PackageKit and
6066        ;; all that.
6067        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6068
6069                            ;; Do not build .a files for the plugins, it's
6070                            ;; completely useless.  This saves 2 MiB.
6071                            "--default-library" "shared")
6072        #:phases
6073        (modify-phases %standard-phases
6074          (add-after 'unpack 'skip-gtk-update-icon-cache
6075            ;; Don't create 'icon-theme.cache'.
6076            (lambda _
6077              (substitute* "meson_post_install.py"
6078                (("gtk-update-icon-cache") "true"))
6079              #t))
6080          (add-after 'unpack 'patch-failing-test
6081            (lambda _
6082              ;; Work around test failure with GStreamer 1.18, because the test
6083              ;; relies on "und" not being mapped to a particular language:
6084              ;; https://gitlab.gnome.org/GNOME/totem/-/issues/450
6085             (substitute* "src/test-totem.c"
6086               (("und") "nosuchlang"))
6087             #t))
6088          (add-before
6089           'install 'disable-cache-generation
6090           (lambda _
6091             (setenv "DESTDIR" "/")
6092             #t))
6093          (add-before
6094           'check 'pre-check
6095           (lambda _
6096             ;; Tests require a running X server.
6097             (system "Xvfb :1 &")
6098             (setenv "DISPLAY" ":1")
6099             #t))
6100          (add-after
6101           'install 'wrap-totem
6102           (lambda* (#:key inputs outputs #:allow-other-keys)
6103             (let ((out             (assoc-ref outputs "out"))
6104                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6105                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6106               (wrap-program (string-append out "/bin/totem")
6107                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6108                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6109               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6110                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6111             #t)))))
6112     (home-page "https://wiki.gnome.org/Apps/Videos")
6113     (synopsis "Simple media player for GNOME based on GStreamer")
6114     (description "Totem is a simple yet featureful media player for GNOME
6115 which can read a large number of file formats.")
6116     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6117     ;; to be used and distributed together with GStreamer and Totem.  See
6118     ;; file://COPYING in the source distribution for details.
6119     (license license:gpl2+)))
6120
6121 (define-public rhythmbox
6122  (package
6123    (name "rhythmbox")
6124    (version "3.4.4")
6125    (source (origin
6126             (method url-fetch)
6127             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6128                                 (version-major+minor version) "/"
6129                                 "rhythmbox-" version ".tar.xz"))
6130             (sha256
6131              (base32
6132               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6133    (build-system glib-or-gtk-build-system)
6134    (arguments
6135     `(#:configure-flags
6136       (list "--enable-lirc"
6137             "--enable-python"
6138             "--enable-vala"
6139             "--with-brasero"
6140             "--with-gudev"
6141             "--with-libsecret")
6142       #:phases
6143       (modify-phases %standard-phases
6144         (add-after
6145          'install 'wrap-rhythmbox
6146          (lambda* (#:key inputs outputs #:allow-other-keys)
6147            (let ((out               (assoc-ref outputs "out"))
6148                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6149                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6150                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6151                  (python-path       (getenv "PYTHONPATH")))
6152              (wrap-program (string-append out "/bin/rhythmbox")
6153                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6154                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6155                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6156                `("PYTHONPATH"             ":" prefix (,python-path))))
6157            #t)))))
6158    (propagated-inputs
6159     `(("dconf" ,dconf)))
6160    (native-inputs
6161     `(("itstool" ,itstool)
6162       ("intltool" ,intltool)
6163       ("glib" ,glib "bin")
6164       ("gobject-introspection" ,gobject-introspection)
6165       ("desktop-file-utils" ,desktop-file-utils)
6166       ("pkg-config" ,pkg-config)
6167       ("xmllint" ,libxml2)))
6168    (inputs
6169     `(("json-glib" ,json-glib)
6170       ("tdb" ,tdb)
6171       ("gnome-desktop" ,gnome-desktop)
6172       ("python" ,python)
6173       ("python-pygobject" ,python2-pygobject)
6174       ("vala" ,vala)
6175       ("gmime" ,gmime)
6176       ("adwaita-icon-theme" ,adwaita-icon-theme)
6177       ("grilo" ,grilo)
6178       ("grilo-plugins" ,grilo-plugins)
6179       ("gstreamer" ,gstreamer)
6180       ("gst-plugins-base" ,gst-plugins-base)
6181       ("gst-plugins-good" ,gst-plugins-good)
6182       ("totem-pl-parser" ,totem-pl-parser)
6183       ("libgudev" ,libgudev)
6184       ;;("libmtp" ,libmtp) FIXME: Not detected
6185       ("libsecret" ,libsecret)
6186       ("libsoup" ,libsoup)
6187       ("libnotify" ,libnotify)
6188       ("libpeas" ,libpeas)
6189       ("lirc" ,lirc)
6190       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6191       ;;("clutter" ,clutter)
6192       ;;("clutter-gtk" ,clutter-gtk)
6193       ;;("clutter-gst" ,clutter-gst)
6194       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6195       ("atk" ,atk)
6196       ("pango" ,pango)
6197       ("gtk+" ,gtk+)
6198       ;; TODO:
6199       ;;  * libgpod
6200       ;;  * mx
6201       ("brasero" ,brasero)))
6202    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6203    (synopsis "Music player for GNOME")
6204    (description "Rhythmbox is a music playing application for GNOME.  It
6205 supports playlists, song ratings, and any codecs installed through gstreamer.")
6206    (license license:gpl2+)))
6207
6208 (define-public eog
6209  (package
6210    (name "eog")
6211    (version "3.34.1")
6212    (source (origin
6213             (method url-fetch)
6214             (uri (string-append "mirror://gnome/sources/" name "/"
6215                                 (version-major+minor version) "/"
6216                                 name "-" version ".tar.xz"))
6217             (sha256
6218              (base32
6219               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
6220    (build-system meson-build-system)
6221    (arguments
6222     `(#:configure-flags
6223       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6224       (list (string-append "-Dc_link_args=-Wl,-rpath="
6225                            (assoc-ref %outputs "out") "/lib/eog"))
6226       #:phases
6227       (modify-phases %standard-phases
6228          (add-after 'unpack 'skip-gtk-update-icon-cache
6229            ;; Don't create 'icon-theme.cache'.
6230            (lambda _
6231              (substitute* "meson_post_install.py"
6232                (("gtk-update-icon-cache") "true"))
6233              #t))
6234         (add-after 'install 'wrap-eog
6235           (lambda* (#:key outputs #:allow-other-keys)
6236             (let ((out               (assoc-ref outputs "out"))
6237                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6238               (wrap-program (string-append out "/bin/eog")
6239                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6240             #t)))))
6241    (propagated-inputs
6242     `(("dconf" ,dconf)))
6243    (native-inputs
6244     `(("intltool" ,intltool)
6245       ("itstool" ,itstool)
6246       ("glib" ,glib "bin")
6247       ("gobject-introspection" ,gobject-introspection)
6248       ("pkg-config" ,pkg-config)
6249       ("xmllint" ,libxml2)))
6250    (inputs
6251     `(("gnome-desktop" ,gnome-desktop)
6252       ("shared-mime-info" ,shared-mime-info)
6253       ("adwaita-icon-theme" ,adwaita-icon-theme)
6254       ("exempi" ,exempi)
6255       ("lcms" ,lcms)
6256       ("libexif" ,libexif)
6257       ("libpeas" ,libpeas)
6258       ("libjpeg" ,libjpeg-turbo)
6259       ("librsvg" ,librsvg-next)
6260       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6261       ("gtk+" ,gtk+)))
6262    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6263    (synopsis "GNOME image viewer")
6264    (description "Eye of GNOME is the GNOME image viewer.  It
6265 supports image conversion, rotation, and slideshows.")
6266    (license license:gpl2+)))
6267
6268 (define-public eog-plugins
6269   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6270   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6271   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6272   ;; 'XDG_DATA_DIRS' appropriately set.
6273   (package
6274     (name "eog-plugins")
6275     (version "3.26.4")
6276     (source (origin
6277               (method url-fetch)
6278               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6279                                   (version-major+minor version) "/"
6280                                   "eog-plugins-" version ".tar.xz"))
6281               (sha256
6282                (base32
6283                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
6284     (build-system gnu-build-system)
6285     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6286     (synopsis "Extensions for the Eye of GNOME image viewer")
6287     (native-inputs
6288      `(("pkg-config" ,pkg-config)
6289        ("gettext" ,gettext-minimal)))
6290     (inputs
6291      `(("eog" ,eog)
6292        ("glib" ,glib)
6293        ("gtk+" ,gtk+)
6294        ("libpeas" ,libpeas)
6295        ("libexif" ,libexif)
6296        ("libchamplain" ,libchamplain)))
6297     (description
6298      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6299 notably:
6300
6301 @itemize
6302 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6303 @item @dfn{Map}, which displays a map of where the picture was taken on the
6304 side panel;
6305 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6306 @end itemize\n")
6307
6308     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6309     ;; long suspicious byte stream that goes to a
6310     ;; ".gresource.eog_postasa_plugin" ELF section.
6311     (license license:gpl2+)))
6312
6313 (define-public libgudev
6314   (package
6315     (name "libgudev")
6316     (version "232")
6317     (source (origin
6318               (method url-fetch)
6319               (uri (string-append "mirror://gnome/sources/" name "/"
6320                                   version "/" name "-" version ".tar.xz"))
6321               (sha256
6322                (base32
6323                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
6324     (build-system gnu-build-system)
6325     (arguments
6326      '(#:configure-flags
6327        ;; umockdev depends on libgudev.
6328        (list "--disable-umockdev")))
6329     (native-inputs
6330      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6331        ("gobject-introspection" ,gobject-introspection)
6332        ("pkg-config" ,pkg-config)))
6333     (propagated-inputs
6334      `(("glib" ,glib))) ; required by gudev-1.0.pc
6335     (inputs
6336      `(("udev" ,eudev)))
6337     (home-page "https://wiki.gnome.org/Projects/libgudev")
6338     (synopsis "GObject bindings for libudev")
6339     (description
6340      "This library provides GObject bindings for libudev.  It was originally
6341 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6342     (license license:lgpl2.1+)))
6343
6344 (define-public gvfs
6345   (package
6346     (name "gvfs")
6347     (version "1.40.1")
6348     (source (origin
6349               (method url-fetch)
6350               (uri (string-append "mirror://gnome/sources/gvfs/"
6351                                   (version-major+minor version) "/"
6352                                   "gvfs-" version ".tar.xz"))
6353               (sha256
6354                (base32
6355                 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))
6356               ;; This patch may be removed when upgrading to version 1.46.x.
6357               (patches
6358                (search-patches "gvfs-add-support-for-libplist-2.2.patch"))))
6359     (build-system meson-build-system)
6360     (arguments
6361      '(#:glib-or-gtk? #t
6362        #:configure-flags
6363        (list "-Dsystemduserunitdir=no"
6364              "-Dtmpfilesdir=no"
6365              ;; Otherwise, the RUNPATH will lack the final path component.
6366              (string-append "-Dc_link_args=-Wl,-rpath="
6367                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6368     (native-inputs
6369      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6370        ("gettext" ,gettext-minimal)
6371        ("gtk-doc" ,gtk-doc)
6372        ("pkg-config" ,pkg-config)
6373        ("xsltproc" ,libxslt)))
6374     (inputs
6375      `(("avahi" ,avahi)
6376        ("docbook-xml" ,docbook-xml-4.2)
6377        ("docbook-xsl" ,docbook-xsl)
6378        ("dbus" ,dbus)
6379        ("elogind" ,elogind)
6380        ("fuse" ,fuse)
6381        ("gcr" ,gcr)
6382        ("glib" ,glib)
6383        ("gnome-online-accounts" ,gnome-online-accounts)
6384        ("libarchive" ,libarchive)
6385        ("libbluray" ,libbluray)
6386        ("libcap" ,libcap)
6387        ("libcdio-paranoia" ,libcdio-paranoia)
6388        ("libgcrypt" ,libgcrypt)
6389        ("libgdata" ,libgdata)
6390        ("libgphoto2" ,libgphoto2)
6391        ("libgudev" ,libgudev)
6392        ("libimobiledevice" ,libimobiledevice)
6393        ("libmtp" ,libmtp)
6394        ("libnfs" ,libnfs)
6395        ("libsecret" ,libsecret)
6396        ("libsmbclient" ,samba)
6397        ("libsoup" ,libsoup)
6398        ("libxml2" ,libxml2)
6399        ("openssh" ,openssh)
6400        ("polkit" ,polkit)
6401        ("udisks" ,udisks)))
6402     (home-page "https://wiki.gnome.org/gvfs/")
6403     (synopsis "Userspace virtual file system for GIO")
6404     (description
6405      "GVFS is a userspace virtual file system designed to work with the I/O
6406 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
6407 to all applications using the GIO API.  It also supports exposing the GVFS
6408 mounts to non-GIO applications using FUSE.
6409
6410 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6411 DAV, and others.")
6412     (license license:lgpl2.0+)))
6413
6414 (define-public gusb
6415   (package
6416     (name "gusb")
6417     (version "0.3.0")
6418     (source (origin
6419               (method git-fetch)
6420               (uri (git-reference
6421                      (url "https://github.com/hughsie/libgusb")
6422                      (commit version)))
6423               (file-name (git-file-name name version))
6424               (sha256
6425                (base32
6426                 "002pg0p4qzzk5dkyiynm483ir26zxrn4k71c7f6j85mfsdzbgli7"))))
6427     (build-system meson-build-system)
6428     (native-inputs
6429      `(("gobject-introspection" ,gobject-introspection)
6430        ("pkg-config" ,pkg-config)
6431        ("vala" ,vala)
6432        ("gtk-doc" ,gtk-doc)))
6433     (propagated-inputs
6434      ;; Both of these are required by gusb.pc.
6435      `(("glib" ,glib)
6436        ("libusb" ,libusb)))
6437     (arguments
6438      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
6439     (home-page "https://github.com/hughsie/libgusb")
6440     (synopsis "GLib binding for libusb1")
6441     (description
6442      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6443 asynchronous control, bulk and interrupt transfers with proper cancellation
6444 and integration into a mainloop.  This makes it easy to integrate low level
6445 USB transfers with your high-level application or system daemon.")
6446     (license license:lgpl2.1+)))
6447
6448 (define-public simple-scan
6449   (package
6450     (name "simple-scan")
6451     (version "3.38.1")
6452     (source
6453      (origin
6454        (method url-fetch)
6455        (uri (string-append "mirror://gnome/sources/simple-scan/"
6456                            (version-major+minor version) "/"
6457                            "simple-scan-" version ".tar.xz"))
6458        (sha256
6459         (base32 "0grscz96bwj79ka4qvxh8h75avdx6824k8k38ylmaj6xbl6gi0hy"))))
6460     (build-system meson-build-system)
6461     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6462     (arguments
6463      '(#:glib-or-gtk? #t))
6464     (inputs
6465      `(("gtk" ,gtk+)
6466        ("zlib" ,zlib)
6467        ("cairo" ,cairo)
6468        ("colord" ,colord)
6469        ("gdk-pixbuf" ,gdk-pixbuf)
6470        ("gusb" ,gusb)
6471        ("libsane" ,sane-backends)))
6472     (native-inputs
6473      `(("gettext" ,gettext-minimal)
6474        ("itstool" ,itstool)
6475        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
6476        ("pkg-config" ,pkg-config)
6477        ("vala" ,vala)
6478        ("xmllint" ,libxml2)))
6479     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6480     (synopsis "Document and image scanner")
6481     (description
6482      "Document Scanner is an easy-to-use application that lets you connect your
6483 scanner and quickly capture images and documents in an appropriate format.  It
6484 supports any scanner for which a suitable SANE driver is available, which is
6485 almost all of them.")
6486     (license license:gpl3+)))
6487
6488 (define-public eolie
6489   (package
6490     (name "eolie")
6491     (version "0.9.100")
6492     (source (origin
6493               (method url-fetch)
6494               (uri (string-append "https://adishatz.org/eolie/eolie-"
6495                                   version ".tar.xz"))
6496               (sha256
6497                (base32
6498                 "1vzhfp8j1z3jvd5ndqfyn7nqrx3zdvx9mv1byjl36nnd9g63ji62"))))
6499     (build-system meson-build-system)
6500     (arguments
6501      `(#:glib-or-gtk? #t
6502        #:phases
6503        (modify-phases %standard-phases
6504          (add-after 'unpack 'skip-gtk-update-icon-cache
6505            ;; Don't create 'icon-theme.cache'.
6506            (lambda _
6507              (substitute* "meson_post_install.py"
6508                (("gtk-update-icon-cache") "true"))
6509              #t))
6510          (add-after 'wrap 'wrap-more
6511            (lambda* (#:key inputs outputs #:allow-other-keys)
6512              (let* ((out  (assoc-ref outputs "out"))
6513                     ;; These libraries must be on LD_LIBRARY_PATH.
6514                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6515                             "atk" "gtk+" "gsettings-desktop-schemas"
6516                             "gobject-introspection"))
6517                     (path (string-join
6518                            (map (lambda (lib)
6519                                   (string-append (assoc-ref inputs lib) "/lib"))
6520                                 libs)
6521                            ":")))
6522                (wrap-program (string-append out "/bin/eolie")
6523                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6524                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
6525                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6526              #t)))))
6527     (native-inputs
6528      `(("intltool" ,intltool)
6529        ("itstool" ,itstool)
6530        ("pkg-config" ,pkg-config)
6531        ("python" ,python)
6532        ("glib:bin" ,glib "bin")))
6533     (inputs
6534      `(("gobject-introspection" ,gobject-introspection)
6535        ("glib-networking" ,glib-networking)
6536        ("cairo" ,cairo)
6537        ("gtk+" ,gtk+)
6538        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6539        ("python" ,python-wrapper)
6540        ("python-dateutil" ,python-dateutil)
6541        ("python-pyfxa" ,python-pyfxa)
6542        ("python-pygobject" ,python-pygobject)
6543        ("python-pycairo" ,python-pycairo)
6544        ("python-pycrypto" ,python-pycrypto)
6545        ("libsecret" ,libsecret)
6546        ("gtkspell3" ,gtkspell3)
6547        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6548        ("webkitgtk" ,webkitgtk)))
6549     (home-page "https://wiki.gnome.org/Apps/Eolie")
6550     (synopsis "Web browser for GNOME")
6551     (description
6552      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6553 a secret password store, an adblocker, and a modern UI.")
6554     (license license:gpl3+)))
6555
6556 (define-public epiphany
6557   (package
6558     (name "epiphany")
6559     (version "3.34.4")
6560     (source (origin
6561               (method url-fetch)
6562               (uri (string-append "mirror://gnome/sources/epiphany/"
6563                                   (version-major+minor version) "/"
6564                                   "epiphany-" version ".tar.xz"))
6565               (sha256
6566                (base32
6567                 "13ar3s40cds1rplwbzx0fzigf120w0rydiv05r3k6zpc0zy91qb0"))))
6568
6569     (build-system meson-build-system)
6570     (arguments
6571      '(#:glib-or-gtk? #t
6572        #:phases
6573        (modify-phases %standard-phases
6574          (add-after 'unpack 'skip-gtk-update-icon-cache
6575            ;; Don't create 'icon-theme.cache'.
6576            (lambda _
6577              (substitute* "post_install.py"
6578                (("gtk-update-icon-cache") "true"))
6579              #t))
6580          (add-after 'unpack 'disable-failing-tests
6581            (lambda _
6582              (substitute* "tests/meson.build"
6583                ;; embed_shell fails, because webkitgtk apparently no longer supports
6584                ;; overriding the ftp schema
6585                ;; web_app_utils fails due to missing network access
6586                (("(embed_shell|web_app_utils)_test,")
6587                 "find_program('sh'), args: ['-c', 'exit 77'],"))
6588              #t))
6589          (add-before 'check 'pre-check
6590            (lambda _
6591              ;; Tests require a running X server.
6592              (system "Xvfb :1 &")
6593              (setenv "DISPLAY" ":1")
6594              #t)))
6595        #:configure-flags
6596        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6597        (list (string-append "-Dc_link_args=-Wl,-rpath="
6598                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6599     (propagated-inputs
6600      `(("dconf" ,dconf)))
6601     (native-inputs
6602      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6603        ("glib:bin" ,glib "bin") ; for glib-mkenums
6604        ("intltool" ,intltool)
6605        ("itstool" ,itstool)
6606        ("pkg-config" ,pkg-config)
6607        ("xmllint" ,libxml2)
6608        ("xorg-server" ,xorg-server-for-tests)))
6609     (inputs
6610      `(("avahi" ,avahi)
6611        ("gcr" ,gcr)
6612        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
6613        ("glib-networking" ,glib-networking)
6614        ("gnome-desktop" ,gnome-desktop)
6615        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6616        ("json-glib" ,json-glib)
6617        ("iso-codes" ,iso-codes)
6618        ("libdazzle" ,libdazzle)
6619        ("libnotify" ,libnotify)
6620        ("libsecret" ,libsecret)
6621        ("libxslt" ,libxslt)
6622        ("nettle" ,nettle) ; for hogweed
6623        ("sqlite" ,sqlite)
6624        ("webkitgtk" ,webkitgtk)))
6625     (home-page "https://wiki.gnome.org/Apps/Web")
6626     (synopsis "GNOME web browser")
6627     (description
6628      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6629 principles are simplicity and standards compliance.")
6630     (license license:gpl2+)))
6631
6632 (define-public d-feet
6633   (package
6634     (name "d-feet")
6635     (version "0.3.14")
6636     (source (origin
6637               (method url-fetch)
6638               (uri (string-append "mirror://gnome/sources/" name "/"
6639                                   (version-major+minor version) "/"
6640                                   name "-" version ".tar.xz"))
6641               (sha256
6642                (base32
6643                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6644     (build-system glib-or-gtk-build-system)
6645     (arguments
6646      '(#:out-of-source? #f ; tests need to run in the source directory.
6647        #:phases
6648        (modify-phases %standard-phases
6649          (add-before
6650           'check 'pre-check
6651           (lambda _
6652             ;; The test suite requires a running X server.
6653             (system "Xvfb :1 &")
6654             (setenv "DISPLAY" ":1")
6655             ;; Don't fail on missing '/etc/machine-id'.
6656             (setenv "DBUS_FATAL_WARNINGS" "0")
6657             ;; tests.py and window.py don't meet E402:
6658             ;;   E402 module level import not at top of file
6659             (substitute* "src/tests/Makefile"
6660               (("--ignore=E123") "--ignore=E123,E402"))
6661             #t))
6662          (add-after
6663           'install 'wrap-program
6664           (lambda* (#:key outputs #:allow-other-keys)
6665             (let ((prog (string-append (assoc-ref outputs "out")
6666                                        "/bin/d-feet")))
6667               (wrap-program prog
6668                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
6669                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6670               #t))))))
6671     (native-inputs
6672      `(("intltool" ,intltool)
6673        ("itstool" ,itstool)
6674        ("pkg-config" ,pkg-config)
6675        ("python-pep8" ,python-pep8)
6676        ("xmllint" ,libxml2)
6677        ("xorg-server" ,xorg-server-for-tests)))
6678     (inputs
6679      `(("gobject-introspection" ,gobject-introspection)
6680        ("gtk+" ,gtk+)
6681        ("python" ,python-wrapper)
6682        ("hicolor-icon-theme" ,hicolor-icon-theme)
6683        ("python-pygobject" ,python-pygobject)))
6684     (home-page "https://wiki.gnome.org/Apps/DFeet")
6685     (synopsis "D-Bus debugger")
6686     (description
6687      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6688 of running programs and invoke methods on those interfaces.")
6689     (license license:gpl2+)))
6690
6691 (define-public yelp-xsl
6692   (package
6693     (name "yelp-xsl")
6694     (version "3.34.2")
6695     (source (origin
6696               (method url-fetch)
6697               (uri (string-append "mirror://gnome/sources/" name "/"
6698                                   (version-major+minor version) "/"
6699                                   name "-" version ".tar.xz"))
6700               (sha256
6701                (base32
6702                 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
6703     (build-system gnu-build-system)
6704     (native-inputs
6705      `(("gettext-minimal" ,gettext-minimal)
6706        ("itstool" ,itstool)
6707        ("xmllint" ,libxml2)))
6708     (home-page "https://wiki.gnome.org/Apps/Yelp")
6709     (synopsis "XSL stylesheets for Yelp")
6710     (description
6711      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
6712 to format Docbook and Mallard documents.")
6713     (license license:gpl2+)))
6714
6715 (define-public yelp
6716   (package
6717     (name "yelp")
6718     (version "3.32.2")
6719     (source (origin
6720               (method url-fetch)
6721               (uri (string-append "mirror://gnome/sources/" name "/"
6722                                   (version-major+minor version) "/"
6723                                   name "-" version ".tar.xz"))
6724               (sha256
6725                (base32
6726                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
6727     (build-system glib-or-gtk-build-system)
6728     (native-inputs
6729      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6730        ("intltool" ,intltool)
6731        ("itstool" ,itstool)
6732        ("pkg-config" ,pkg-config)))
6733     (propagated-inputs
6734      `(("dconf" ,dconf)))
6735     (inputs
6736      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6737        ("libxslt" ,libxslt)
6738        ("sqlite" ,sqlite)
6739        ("webkitgtk" ,webkitgtk)
6740        ("yelp-xsl" ,yelp-xsl)))
6741     (home-page "https://wiki.gnome.org/Apps/Yelp")
6742     (synopsis "GNOME help browser")
6743     (description
6744      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
6745 man, info, and HTML documents.  It can locate documents according to the
6746 freedesktop.org help system specification.")
6747     (license license:gpl2+)))
6748
6749 (define-public yelp-tools
6750   (package
6751     (name "yelp-tools")
6752     (version "3.32.2")
6753     (source (origin
6754               (method url-fetch)
6755               (uri (string-append "mirror://gnome/sources/" name "/"
6756                                   (version-major+minor version) "/"
6757                                   name "-" version ".tar.xz"))
6758               (sha256
6759                (base32
6760                 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
6761     (build-system gnu-build-system)
6762     (native-inputs
6763      `(("pkg-config" ,pkg-config)))
6764     (propagated-inputs
6765      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
6766      `(("itstool" ,itstool)
6767        ("xmllint" ,libxml2)
6768        ("xsltproc" ,libxslt)))
6769     (inputs
6770      `(("yelp-xsl" ,yelp-xsl)))
6771     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
6772     (synopsis "Yelp documentation tools")
6773     (description
6774      "Yelp-tools is a collection of scripts and build utilities to help create,
6775 manage, and publish documentation for Yelp and the web.  Most of the heavy
6776 lifting is done by packages like yelp-xsl and itstool.  This package just
6777 wraps things up in a developer-friendly way.")
6778     (license license:gpl2+)))
6779
6780 (define-public libgee
6781   (package
6782     (name "libgee")
6783     (version "0.20.3")
6784     (source (origin
6785               (method url-fetch)
6786               (uri (string-append "mirror://gnome/sources/libgee/"
6787                                   (version-major+minor version) "/"
6788                                   "libgee-" version ".tar.xz"))
6789               (sha256
6790                (base32
6791                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
6792     (build-system gnu-build-system)
6793     (arguments
6794      `(#:phases
6795        (modify-phases %standard-phases
6796          (add-after 'unpack 'fix-introspection-install-dir
6797           (lambda* (#:key outputs #:allow-other-keys)
6798             (let ((out (assoc-ref outputs "out")))
6799               (substitute* "gee/Makefile.in"
6800                 (("@INTROSPECTION_GIRDIR@")
6801                  (string-append out "/share/gir-1.0/"))
6802                 (("@INTROSPECTION_TYPELIBDIR@")
6803                  (string-append out "/lib/girepository-1.0/")))))))))
6804     (native-inputs
6805      `(("glib" ,glib "bin")
6806        ("pkg-config" ,pkg-config)))
6807     (inputs
6808      `(("glib" ,glib)
6809        ("gobject-introspection" ,gobject-introspection)))
6810     (home-page "https://wiki.gnome.org/Projects/Libgee")
6811     (synopsis "GObject collection library")
6812     (description
6813      "Libgee is a utility library providing GObject-based interfaces and
6814 classes for commonly used data structures.")
6815     (license license:lgpl2.1+)))
6816
6817 (define-public gexiv2
6818   (package
6819     (name "gexiv2")
6820     (version "0.12.1")
6821     (source (origin
6822               (method url-fetch)
6823               (uri (string-append "mirror://gnome/sources/" name "/"
6824                                   (version-major+minor version) "/"
6825                                   name "-" version ".tar.xz"))
6826               (sha256
6827                (base32
6828                 "0xxxq8xdkgkn146my307jgws4qgxx477h0ybg1mqza1ycmczvsla"))))
6829     (build-system meson-build-system)
6830     (native-inputs
6831      `(("gcr" ,gcr)
6832        ("glib" ,glib "bin")
6833        ("pkg-config" ,pkg-config)
6834        ("vala" ,vala)))
6835     (propagated-inputs
6836      ;; Listed in "Requires" section of gexiv2.pc
6837      `(("exiv2" ,exiv2)))
6838     (inputs
6839      `(("glib" ,glib)
6840        ("gobject-introspection" ,gobject-introspection)))
6841     (home-page "https://wiki.gnome.org/Projects/gexiv2")
6842     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
6843     (description
6844      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
6845 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
6846 metadata in photo and video files of various formats.")
6847     (license license:gpl2+)))
6848
6849 (define-public shotwell
6850   (package
6851     (name "shotwell")
6852     (version "0.30.11")
6853     (source (origin
6854               (method url-fetch)
6855               (uri (string-append "mirror://gnome/sources/shotwell/"
6856                                   (version-major+minor version) "/"
6857                                   "shotwell-" version ".tar.xz"))
6858               (sha256
6859                (base32
6860                 "12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
6861     (build-system meson-build-system)
6862     (arguments
6863      '(#:glib-or-gtk? #t
6864        #:phases
6865        (modify-phases %standard-phases
6866          (add-after 'unpack 'skip-gtk-update-icon-cache
6867            (lambda _
6868              (substitute* "build-aux/meson/postinstall.py"
6869                (("gtk-update-icon-cache") (which "true"))
6870                (("update-desktop-database") (which "true")))
6871              #t)))))
6872     (propagated-inputs
6873      `(("dconf" ,dconf)))
6874     (native-inputs
6875      `(("gettext" ,gettext-minimal)
6876        ("glib:bin" ,glib "bin")
6877        ("itstool" ,itstool)
6878        ("pkg-config" ,pkg-config)
6879        ("vala" ,vala)))
6880     (inputs
6881      `(("gcr" ,gcr)
6882        ("gexiv2" ,gexiv2)
6883        ("gst-plugins-base" ,gst-plugins-base)
6884        ("gstreamer" ,gstreamer)
6885        ("json-glib" ,json-glib)
6886        ("libgdata" ,libgdata)
6887        ("libgee" ,libgee)
6888        ("libgphoto2" ,libgphoto2)
6889        ("libgudev" ,libgudev)
6890        ("libraw" ,libraw)
6891        ("libsoup" ,libsoup)
6892        ("libxml2" ,libxml2)
6893        ("sqlite" ,sqlite)
6894        ("webkitgtk" ,webkitgtk)))
6895     (home-page "https://wiki.gnome.org/Apps/Shotwell")
6896     (synopsis "Photo manager for GNOME 3")
6897     (description
6898      "Shotwell is a digital photo manager designed for the GNOME desktop
6899 environment.  It allows you to import photos from disk or camera, organize
6900 them by keywords and events, view them in full-window or fullscreen mode, and
6901 share them with others via social networking and more.")
6902     (license license:lgpl2.1+)))
6903
6904 (define-public file-roller
6905   (package
6906     (name "file-roller")
6907     (version "3.32.3")
6908     (source (origin
6909               (method url-fetch)
6910               (uri (string-append "mirror://gnome/sources/file-roller/"
6911                                   (version-major+minor version) "/"
6912                                   "file-roller-" version ".tar.xz"))
6913               (sha256
6914                (base32
6915                 "0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
6916     (build-system meson-build-system)
6917     (native-inputs
6918      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6919        ("intltool" ,intltool)
6920        ("itstool" ,itstool)
6921        ("pkg-config" ,pkg-config)
6922        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
6923        ("glib:bin" ,glib "bin")))
6924     ;; TODO: Add libnautilus.
6925     (inputs
6926      `(("gtk+" ,gtk+)
6927        ("gdk-pixbuf" ,gdk-pixbuf)
6928        ("json-glib" ,json-glib)
6929        ("libarchive" ,libarchive)
6930        ("libnotify" ,libnotify)
6931        ("nettle" ,nettle)
6932        ("libxml2" ,libxml2)))
6933     (synopsis "Graphical archive manager for GNOME")
6934     (description "File Roller is an archive manager for the GNOME desktop
6935 environment that allows users to view, unpack, and create compressed archives
6936 such as gzip tarballs.")
6937     (home-page "http://fileroller.sourceforge.net/")
6938     (license license:gpl2+)))
6939
6940 (define-public gnome-session
6941   (package
6942     (name "gnome-session")
6943     (version "3.34.2")
6944     (source (origin
6945               (method url-fetch)
6946               (uri (string-append "mirror://gnome/sources/" name "/"
6947                                   (version-major+minor version) "/"
6948                                   name "-" version ".tar.xz"))
6949               (sha256
6950                (base32
6951                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
6952     (arguments
6953      '(#:glib-or-gtk? #t
6954        #:phases
6955        (modify-phases %standard-phases
6956          (add-before 'configure 'pre-configure
6957            (lambda* (#:key outputs #:allow-other-keys)
6958              ;; Use elogind instead of systemd.
6959              (substitute* "meson.build"
6960                (("libsystemd-login") "libelogind")
6961                (("and libsystemd_daemon_dep.found.*") ","))
6962              (substitute* "gnome-session/gsm-systemd.c"
6963                (("#include <systemd/sd-login.h>")
6964                 "#include <elogind/sd-login.h>"))
6965              ;; Remove uses of the systemd daemon.
6966              (substitute* "gnome-session/gsm-autostart-app.c"
6967                (("#ifdef HAVE_SYSTEMD") "#if 0"))
6968              #t))
6969          (add-after 'install 'wrap-gnome-session
6970            (lambda* (#:key inputs outputs #:allow-other-keys)
6971              ;; Make sure 'gnome-session' finds the 'gsettings' program.
6972              (let ((glib (assoc-ref inputs "glib:bin"))
6973                    (out  (assoc-ref outputs "out")))
6974                (wrap-program (string-append out "/bin/gnome-session")
6975                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
6976                #t))))
6977
6978        #:configure-flags
6979        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
6980          "-Dman=false" ; FIXME: disabled because of docbook validation error
6981          "-Dsystemd_journal=false")))
6982     (build-system meson-build-system)
6983     (native-inputs
6984      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6985        ("pkg-config" ,pkg-config)
6986        ("intltool" ,intltool)
6987        ("xsltproc" ,libxslt)
6988        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
6989        ("docbook-xsl" ,docbook-xsl)
6990        ("docbook-xml" ,docbook-xml)
6991        ("xmlto" ,xmlto)))
6992     (inputs
6993      `(("elogind" ,elogind)
6994        ("gnome-desktop" ,gnome-desktop)
6995        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6996        ("gtk+" ,gtk+)
6997        ("json-glib" ,json-glib)
6998        ("libsm" ,libsm)
6999        ("libxcomposite" ,libxcomposite)
7000        ("libxtst" ,libxtst)
7001        ("mesa" ,mesa)
7002        ("upower" ,upower)
7003        ("xtrans" ,xtrans)))
7004     (synopsis "Session manager for GNOME")
7005     (description
7006      "This package contains the GNOME session manager, as well as a
7007 configuration program to choose applications starting on login.")
7008     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7009     (license license:gpl2+)))
7010
7011 (define-public gjs
7012   (package
7013     (name "gjs")
7014     (version "1.58.3")
7015     (source (origin
7016               (method url-fetch)
7017               (uri (string-append "mirror://gnome/sources/" name "/"
7018                                   (version-major+minor version) "/"
7019                                   name "-" version ".tar.xz"))
7020               (sha256
7021                (base32
7022                 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
7023     (build-system gnu-build-system)
7024     (arguments
7025      '(#:phases
7026        (modify-phases %standard-phases
7027          (add-before
7028           'check 'pre-check
7029           (lambda _
7030             ;; The test suite requires a running X server.
7031             (system "Xvfb :1 &")
7032             (setenv "DISPLAY" ":1")
7033
7034             ;; For the missing /etc/machine-id.
7035             (setenv "DBUS_FATAL_WARNINGS" "0")
7036
7037             ;; Our mozjs-38 package does not compile the required Intl API
7038             ;; support for these failing tests.
7039             (substitute* "installed-tests/js/testLocale.js"
7040               ((".*toBeDefined.*") "")
7041               ((".*expect\\(datestr\\).*") ""))
7042             (substitute* "installed-tests/scripts/testCommandLine.sh"
7043               (("Valentín") "")
7044               (("☭") ""))
7045             #t)))))
7046     (native-inputs
7047      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7048        ("pkg-config" ,pkg-config)
7049        ("xmllint" ,libxml2)
7050        ;; For testing
7051        ("dbus-launch" ,dbus)
7052        ("dconf" ,dconf) ; required to properly store settings
7053        ("uuidgen" ,util-linux)
7054        ("xvfb" ,xorg-server-for-tests)))
7055     (propagated-inputs
7056      ;; These are all in the Requires.private field of gjs-1.0.pc.
7057      `(("cairo" ,cairo)
7058        ("gobject-introspection" ,gobject-introspection)
7059        ("mozjs" ,mozjs-60)))
7060     (inputs
7061      `(("gtk+" ,gtk+)
7062        ("readline" ,readline)))
7063     (synopsis "Javascript bindings for GNOME")
7064     (home-page "https://live.gnome.org/Gjs")
7065     (description
7066      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7067 javascript engine and the GObject introspection framework.")
7068     (license license:gpl2+)))
7069
7070 (define-public gedit
7071   (package
7072     (name "gedit")
7073     (version "3.34.1")
7074     (source (origin
7075               (method url-fetch)
7076               (uri (string-append "mirror://gnome/sources/" name "/"
7077                                   (version-major+minor version) "/"
7078                                   name "-" version ".tar.xz"))
7079               (sha256
7080                (base32
7081                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
7082     (build-system meson-build-system)
7083     (arguments
7084      `(#:glib-or-gtk? #t
7085        #:configure-flags
7086        ;; Otherwise, the RUNPATH will lack the final path component.
7087        (list (string-append "-Dc_link_args=-Wl,-rpath="
7088                             (assoc-ref %outputs "out") "/lib/gedit"))
7089
7090        ;; XXX: Generated .h files are sometimes used before being built.
7091        #:parallel-build? #f
7092
7093        #:phases
7094        (modify-phases %standard-phases
7095          (add-after 'unpack 'skip-gtk-update-icon-cache
7096            ;; Don't create 'icon-theme.cache'.
7097            (lambda _
7098              (substitute* "build-aux/meson/post_install.py"
7099                (("gtk-update-icon-cache") (which "true")))
7100              #t))
7101          (add-after 'unpack 'patch-libgd-fetch
7102            (lambda* (#:key inputs #:allow-other-keys)
7103              (let ((libgd (assoc-ref inputs "libgd")))
7104                ;; Calling git is unnecessary because libgd is fetched as a
7105                ;; native input to this package.
7106                (substitute* "meson.build"
7107                  ((".*git.*") ""))
7108                (copy-recursively libgd "subprojects/libgd")
7109                #t)))
7110          (add-after 'install 'wrap-gedit
7111            (lambda* (#:key inputs outputs #:allow-other-keys)
7112              (let ((out               (assoc-ref outputs "out"))
7113                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7114                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7115                    (python-path       (getenv "PYTHONPATH")))
7116                (wrap-program (string-append out "/bin/gedit")
7117                  ;; For plugins.
7118                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7119                  `("PYTHONPATH" ":" prefix (,python-path))
7120                  ;; For language-specs.
7121                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7122                                                                "/share")))))
7123              #t)))))
7124     (propagated-inputs
7125      `(("dconf" ,dconf)))
7126     (native-inputs
7127      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7128        ("intltool" ,intltool)
7129        ("itstool" ,itstool)
7130        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7131        ("gobject-introspection" ,gobject-introspection)
7132        ("libgd"
7133         ,(origin
7134            (method git-fetch)
7135            (uri (git-reference
7136                  (url "https://gitlab.gnome.org/GNOME/libgd")
7137                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7138            (file-name (git-file-name "libgd" version))
7139            (sha256
7140             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7141        ("pkg-config" ,pkg-config)))
7142     (inputs
7143      `(("glib" ,glib)
7144        ("gspell" ,gspell)
7145        ("gtk+" ,gtk+)
7146        ("gtksourceview" ,gtksourceview)
7147        ("libpeas" ,libpeas)
7148        ("libxml2" ,libxml2)
7149        ("iso-codes" ,iso-codes)
7150        ("python-pygobject" ,python-pygobject)
7151        ("python" ,python)
7152        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7153        ("libx11" ,libx11)
7154        ("vala" ,vala)
7155        ("adwaita-icon-theme" ,adwaita-icon-theme)
7156        ("libsoup" ,libsoup)
7157        ("gnome-desktop" ,gnome-desktop)))
7158     (home-page "https://wiki.gnome.org/Apps/Gedit")
7159     (synopsis "GNOME text editor")
7160     (description "While aiming at simplicity and ease of use, gedit is a
7161 powerful general purpose text editor.")
7162     (license license:gpl2+)))
7163
7164 (define-public zenity
7165   (package
7166     (name "zenity")
7167     (version "3.32.0")
7168     (source (origin
7169               (method url-fetch)
7170               (uri (string-append "mirror://gnome/sources/zenity/"
7171                                   (version-major+minor version) "/"
7172                                   "zenity-" version ".tar.xz"))
7173               (sha256
7174                (base32
7175                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7176     (build-system gnu-build-system)
7177     (native-inputs
7178      `(("gettext" ,gettext-minimal)
7179        ("itstool" ,itstool)
7180        ("pkg-config" ,pkg-config)))
7181     (inputs
7182      `(("libnotify" ,libnotify)
7183        ("webkitgtk" ,webkitgtk)))
7184     (synopsis "Display graphical dialog boxes from shell scripts")
7185     (home-page "https://www.gnome.org")
7186     (description
7187      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7188 to display dialog boxes from the commandline and shell scripts.")
7189     (license license:lgpl2.0+)))
7190
7191 (define-public mutter
7192   (package
7193     (name "mutter")
7194     (version "3.34.2")
7195     (source (origin
7196               (method url-fetch)
7197               (uri (string-append "mirror://gnome/sources/" name "/"
7198                                   (version-major+minor version) "/"
7199                                   name "-" version ".tar.xz"))
7200               (sha256
7201                (base32
7202                 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
7203     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7204     ;; versions of cogl and clutter.  As a result, many of the inputs,
7205     ;; propagated-inputs, and configure flags used in cogl and clutter are
7206     ;; needed here as well.
7207     (build-system meson-build-system)
7208     (arguments
7209      '(;; XXX: All mutter tests fail with the following error:
7210        ;;   Settings schema 'org.gnome.mutter' is not installed
7211        #:tests? #f
7212        #:glib-or-gtk? #t
7213        #:configure-flags
7214        ;; TODO: Enable profiler when Sysprof is packaged.
7215        (list "-Dprofiler=false"
7216              ;; Otherwise, the RUNPATH will lack the final path component.
7217              (string-append "-Dc_link_args=-Wl,-rpath="
7218                             (assoc-ref %outputs "out") "/lib:"
7219                             (assoc-ref %outputs "out") "/lib/mutter-5")
7220
7221              ;; The following flags are needed for the bundled clutter
7222              (string-append "-Dxwayland_path="
7223                             (assoc-ref %build-inputs "xorg-server-xwayland")
7224                             "/bin/Xwayland")
7225
7226              ;; the remaining flags are needed for the bundled cogl
7227              (string-append "-Dopengl_libname="
7228                             (assoc-ref %build-inputs "mesa")
7229                             "/lib/libGL.so"))
7230        #:phases (modify-phases %standard-phases
7231                   (add-after 'unpack 'fix-build-with-mesa-20
7232                     (lambda _
7233                       ;; Mimic upstream commit a444a4c5f58ea516ad for
7234                       ;; compatibility with Mesa 20.  Remove for 3.36.
7235                       (substitute* '("src/backends/meta-egl-ext.h"
7236                                      "src/backends/meta-egl.c"
7237                                      "src/backends/meta-egl.h")
7238                         (("#include <EGL/eglext\\.h>" all)
7239                          (string-append all "\n#include <EGL/eglmesaext.h>")))
7240                       (substitute* "cogl/cogl/meson.build"
7241                         (("#include <EGL/eglext\\.h>" all)
7242                          (string-append all "\\n#include <EGL/eglmesaext.h>")))
7243                       #t)))))
7244     (native-inputs
7245      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7246        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7247        ("gobject-introspection" ,gobject-introspection)
7248        ("intltool" ,intltool)
7249        ("pkg-config" ,pkg-config)
7250        ("xorg-server" ,xorg-server-for-tests)
7251        ;; For git build
7252        ("autoconf" ,autoconf)
7253        ("automake" ,automake)
7254        ("libtool" ,libtool)))
7255     (propagated-inputs
7256      `(;; libmutter.pc refers to these:
7257        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7258        ("gtk+" ,gtk+)
7259        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7260        ("atk" ,atk)
7261        ("cairo" ,cairo)
7262        ("gdk-pixbuf" ,gdk-pixbuf)
7263        ("glib" ,glib)
7264        ("json-glib" ,json-glib)
7265        ("libinput" ,libinput)
7266        ("libx11" ,libx11)
7267        ("libxcomposite" ,libxcomposite)
7268        ("libxdamage" ,libxdamage)
7269        ("libxext" ,libxext)
7270        ("libxfixes" ,libxfixes)
7271        ("libxkbcommon" ,libxkbcommon)
7272        ("libxrandr" ,libxrandr)
7273        ("mesa" ,mesa)
7274        ("pango" ,pango)
7275        ("udev" ,eudev)
7276        ("xinput" ,xinput)))
7277     (inputs
7278      `(("elogind" ,elogind)
7279        ("gnome-desktop" ,gnome-desktop)
7280        ("gnome-settings-daemon" ,gnome-settings-daemon)
7281        ("libcanberra-gtk" ,libcanberra)
7282        ("libgudev" ,libgudev)
7283        ("libice" ,libice)
7284        ("libsm" ,libsm)
7285        ("libwacom" ,libwacom)
7286        ("libxkbfile" ,libxkbfile)
7287        ("libxrandr" ,libxrandr)
7288        ("libxtst" ,libxtst)
7289        ("pipewire" ,pipewire)
7290        ("startup-notification" ,startup-notification)
7291        ("upower-glib" ,upower)
7292        ("xkeyboard-config" ,xkeyboard-config)
7293        ("xorg-server-xwayland" ,xorg-server-xwayland)
7294        ("zenity" ,zenity)))
7295     (synopsis "Window and compositing manager")
7296     (home-page "https://www.gnome.org")
7297     (description
7298      "Mutter is a window and compositing manager that displays and manages your
7299 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7300 Clutter toolkit with solid window-management logic inherited from the Metacity
7301 window manager.")
7302     (license license:gpl2+)))
7303
7304 (define-public gnome-online-accounts
7305   (package
7306     (name "gnome-online-accounts")
7307     (version "3.36.0")
7308     (source (origin
7309               (method url-fetch)
7310               (uri (string-append "mirror://gnome/sources/" name "/"
7311                                   (version-major+minor version) "/"
7312                                   name "-" version ".tar.xz"))
7313               (sha256
7314                (base32
7315                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
7316     (outputs '("out" "lib"))
7317     (build-system glib-or-gtk-build-system)
7318     (arguments
7319      `(#:configure-flags
7320        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7321        #:phases
7322        (modify-phases %standard-phases
7323          (add-before 'configure 'patch-libgoa-output
7324            (lambda* (#:key outputs #:allow-other-keys)
7325              (let ((lib (assoc-ref outputs "lib")))
7326                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7327                  (("@prefix@") lib)
7328                  (("@exec_prefix@") lib)
7329                  (("@libdir@") (string-append lib "/lib"))
7330                  (("@includedir@") (string-append lib "/include"))
7331                  (("@datadir@") (string-append lib "/share")))
7332                ;; Make sure gobject-introspection knows about the output
7333                ;; too (see <https://bugs.gnu.org/36535>).
7334                (setenv "outputs" "out lib")
7335                #t))))))
7336     (native-inputs
7337      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7338        ("gobject-introspection" ,gobject-introspection)
7339        ("intltool" ,intltool)
7340        ("pkg-config" ,pkg-config)
7341        ("vala" ,vala)
7342        ("xsltproc" ,libxslt)))
7343     (propagated-inputs
7344      `(("glib" ,glib)           ; required by goa-1.0.pc
7345        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
7346     (inputs
7347      `(("docbook-xsl" ,docbook-xsl)
7348        ("json-glib" ,json-glib)
7349        ("libsecret" ,libsecret)
7350        ("rest" ,rest)
7351        ("webkitgtk" ,webkitgtk)))
7352     (synopsis "Single sign-on framework for GNOME")
7353     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7354     (description
7355      "GNOME Online Accounts provides interfaces so that applications and
7356 libraries in GNOME can access the user's online accounts.  It has providers for
7357 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
7358 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7359     (license license:lgpl2.0+)))
7360
7361 (define-public evolution-data-server
7362   (package
7363     (name "evolution-data-server")
7364     (version "3.34.2")
7365     (source (origin
7366               (method url-fetch)
7367               (uri (string-append "mirror://gnome/sources/" name "/"
7368                                   (version-major+minor version) "/"
7369                                   name "-" version ".tar.xz"))
7370               (patches (search-patches "evolution-data-server-locales.patch"
7371                                        "evolution-data-server-libical-compat.patch"))
7372               (sha256
7373                (base32
7374                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
7375     (build-system cmake-build-system)
7376     (arguments
7377      '(#:configure-flags
7378        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7379               (runpaths (map (lambda (s)
7380                                (string-append lib "/evolution-data-server/" s))
7381                              '("addressbook-backends" "calendar-backends"
7382                                "camel-providers" "credential-modules"
7383                                "registry-modules"))))
7384          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7385                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7386                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7387                "-DENABLE_VALA_BINDINGS=ON"
7388                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7389                               (string-append lib "/evolution-data-server;")
7390                               (string-join runpaths ";"))
7391                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7392        #:phases
7393        (modify-phases %standard-phases
7394          (add-after 'unpack 'disable-failing-tests
7395            (lambda _
7396              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7397              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7398              (delete-file-recursively "tests/book-migration")
7399              (substitute* "tests/CMakeLists.txt"
7400                (("add_subdirectory\\(book-migration\\)") ""))
7401              #t))
7402          (add-after 'unpack 'patch-paths
7403           (lambda _
7404             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7405                            "tests/libedata-book/data-test-utils.c"
7406                            "tests/libedata-book/test-book-cache-utils.c"
7407                            "tests/libedata-cal/test-cal-cache-utils.c")
7408               (("/bin/rm") (which "rm")))
7409             #t))
7410          (add-before 'configure 'dont-override-rpath
7411            (lambda _
7412              (substitute* "CMakeLists.txt"
7413                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7414                ;; Remove it so the configure flag is respected.
7415                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
7416              #t)))))
7417     (native-inputs
7418      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7419        ("gobject-introspection" ,gobject-introspection)
7420        ("gperf" ,gperf)
7421        ("intltool" ,intltool)
7422        ("pkg-config" ,pkg-config)
7423        ("vala" ,vala)
7424        ("python" ,python-wrapper)))
7425     (propagated-inputs
7426      ;; These are all in the Requires field of .pc files.
7427      `(("gtk+" ,gtk+)
7428        ("libical" ,libical)
7429        ("libsecret" ,libsecret)
7430        ("libsoup" ,libsoup)
7431        ("nss" ,nss)
7432        ("sqlite" ,sqlite)))
7433     (inputs
7434      `(("bdb" ,bdb)
7435        ("gcr" ,gcr)
7436        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7437        ("json-glib" ,json-glib)
7438        ("libcanberra" ,libcanberra)
7439        ("libgweather" ,libgweather)
7440        ("mit-krb5" ,mit-krb5)
7441        ("openldap" ,openldap)
7442        ("webkitgtk" ,webkitgtk)))
7443     (synopsis "Store address books and calendars")
7444     (home-page "https://wiki.gnome.org/Apps/Evolution")
7445     (description
7446      "This package provides a unified backend for programs that work with
7447 contacts, tasks, and calendar information.  It was originally developed for
7448 Evolution (hence the name), but is now used by other packages as well.")
7449     (license license:lgpl2.0)))
7450
7451 (define-public caribou
7452   (package
7453     (name "caribou")
7454     (version "0.4.21")
7455     (source (origin
7456               (method url-fetch)
7457               (uri (string-append "mirror://gnome/sources/" name "/"
7458                                   (version-major+minor version) "/"
7459                                   name "-" version ".tar.xz"))
7460               (sha256
7461                (base32
7462                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7463     (build-system glib-or-gtk-build-system)
7464     (arguments
7465      '(#:phases
7466        (modify-phases %standard-phases
7467          (add-before
7468           'build 'pre-build
7469           (lambda* (#:key outputs #:allow-other-keys)
7470             (let ((out (assoc-ref outputs "out")))
7471               ;; Use absolute shared library path in Caribou-1.0.typelib.
7472               (substitute* "libcaribou/Makefile"
7473                 (("--shared-library=libcaribou.so")
7474                  (string-append "--shared-library="
7475                                 out "/lib/libcaribou.so")))
7476               #t)))
7477          (add-after 'install 'wrap-programs
7478           (lambda* (#:key outputs #:allow-other-keys)
7479             (let* ((out (assoc-ref outputs "out"))
7480                    (python-path (getenv "PYTHONPATH"))
7481                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7482               (for-each
7483                (lambda (prog)
7484                  (wrap-program prog
7485                    `("PYTHONPATH"      ":" prefix (,python-path))
7486                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7487                (list (string-append out "/bin/caribou-preferences")
7488                      (string-append out "/libexec/antler-keyboard"))))
7489             #t)))))
7490     (native-inputs
7491      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7492        ("gobject-introspection" ,gobject-introspection)
7493        ("intltool" ,intltool)
7494        ("pkg-config" ,pkg-config)
7495        ("python" ,python)
7496        ("vala" ,vala)
7497        ("xsltproc" ,libxslt)))
7498     (propagated-inputs
7499      ;; caribou-1.0.pc refers to all these.
7500      `(("libgee" ,libgee)
7501        ("libxklavier" ,libxklavier)
7502        ("libxtst" ,libxtst)
7503        ("gtk+" ,gtk+)))
7504     (inputs
7505      `(("clutter" ,clutter)
7506        ("dconf" ,dconf)
7507        ("gtk+-2" ,gtk+-2)
7508        ("python-pygobject" ,python-pygobject)))
7509     (synopsis "Text entry and UI navigation application")
7510     (home-page "https://wiki.gnome.org/Projects/Caribou")
7511     (description
7512      "Caribou is an input assistive technology intended for switch and pointer
7513 users.")
7514     (license license:lgpl2.1)))
7515
7516 (define-public network-manager
7517   (package
7518     (name "network-manager")
7519     (version "1.24.0")
7520     (source (origin
7521               (method url-fetch)
7522               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7523                                   (version-major+minor version) "/"
7524                                   "NetworkManager-" version ".tar.xz"))
7525               (patches (search-patches "network-manager-plugin-path.patch"))
7526               (sha256
7527                (base32
7528                 "06044fl60bjlj7c6rqqfbm5795h61h6yzp7ch392hzcnm46wwhn3"))
7529               (modules '((guix build utils)))
7530               (snippet
7531                '(begin
7532                   (substitute* "src/devices/wwan/nm-modem-manager.c"
7533                     (("systemd") "elogind"))
7534                   #t))))
7535     (build-system meson-build-system)
7536     (outputs '("out"
7537                "doc")) ; 8 MiB of gtk-doc HTML
7538     (arguments
7539      `(#:configure-flags
7540        (let ((out      (assoc-ref %outputs "out"))
7541              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
7542                                       "/sbin/dhclient")))
7543          (list
7544           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7545           ;; component.
7546           (string-append "-Dc_link_args=-Wl,-rpath="
7547                          out "/lib:"
7548                          out "/lib/NetworkManager/" ,version)
7549           "-Dsystemd_journal=false"
7550           "-Dsession_tracking=elogind"
7551           "-Dsuspend_resume=elogind"
7552           "-Dsystemdsystemunitdir=no"
7553           "-Dsession_tracking_consolekit=false"
7554           "-Ddhcpcd=no"
7555           "-Ddhcpcanon=no"
7556           "-Dcrypto=gnutls"
7557           "-Diwd=true"
7558           "-Dlibaudit=yes"
7559           "-Dqt=false"
7560           "-Ddocs=true"
7561           "--sysconfdir=/etc"
7562           "--localstatedir=/var"
7563           (string-append "-Dudev_dir="
7564                          out "/lib/udev")
7565           (string-append "-Ddbus_conf_dir="
7566                          out "/etc/dbus-1/system.d")
7567
7568           (string-append "-Ddhclient=" dhclient)))
7569        #:phases
7570        (modify-phases %standard-phases
7571          (add-before 'configure 'pre-configure
7572            (lambda _
7573              ;; These tests try to test aspects of network-manager's
7574              ;; functionality within restricted containers, but they don't
7575              ;; cope with being already in the Guix build jail as that jail
7576              ;; lacks some features that they would like to proxy over (like
7577              ;; a /sys mount).
7578              (substitute* "src/platform/tests/meson.build"
7579                ((".*test-address-linux.*") "")
7580                ((".*test-cleanup-linux.*") "")
7581                ((".*test-link-linux.*") "")
7582                ((".*test-route-linux.*") ""))
7583              (substitute* "src/devices/tests/meson.build"
7584                ((".*test-acd.*") "")
7585                ((".*test-lldp.*") ""))
7586              #t))
7587          (add-after 'unpack 'patch-docbook-xml
7588            (lambda* (#:key inputs #:allow-other-keys)
7589              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7590                                           "/xml/dtd/docbook")))
7591                (substitute* (find-files "." ".*\\.(xsl|xml)")
7592                  (("http://.*/docbookx\\.dtd")
7593                   (string-append xmldoc "/docbookx.dtd")))
7594                #t)))
7595          (add-before 'check 'pre-check
7596            (lambda _
7597              ;; For the missing /etc/machine-id.
7598              (setenv "DBUS_FATAL_WARNINGS" "0")
7599              #t))
7600          (add-before 'install 'no-polkit-magic
7601            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7602            (lambda _
7603              (setenv "PKEXEC_UID" "something")
7604              #t))
7605          (add-after 'install 'move-doc
7606            (lambda* (#:key outputs #:allow-other-keys)
7607              (let ((out (assoc-ref outputs "out"))
7608                    (doc (assoc-ref outputs "doc")))
7609                (mkdir-p (string-append doc "/share"))
7610                (for-each (lambda (directory)
7611                            (copy-recursively (string-append out directory)
7612                                              (string-append doc directory))
7613                            (delete-file-recursively
7614                             (string-append out directory)))
7615                          '("/share/doc" "/share/gtk-doc"))
7616                #t))))))
7617     (propagated-inputs
7618      `(("glib" ,glib)))
7619     (native-inputs
7620      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7621        ("gtk-doc" ,gtk-doc)
7622        ("gobject-introspection" ,gobject-introspection)
7623        ("docbook-xml" ,docbook-xml)
7624        ("docbook-xsl" ,docbook-xsl)
7625        ("intltool" ,intltool)
7626        ("libxslt" ,libxslt)
7627        ("libxml2" ,libxml2)
7628        ("pkg-config" ,pkg-config)
7629        ("vala" ,vala)
7630        ;; For testing.
7631        ("python" ,python-wrapper)
7632        ("python-dbus" ,python-dbus)
7633        ("python-pygobject" ,python-pygobject)))
7634     (inputs
7635      `(("curl" ,curl)
7636        ("cyrus-sasl" ,cyrus-sasl)
7637        ("dbus-glib" ,dbus-glib)
7638        ("dnsmasq" ,dnsmasq)
7639        ("eudev" ,eudev)
7640        ("gnutls" ,gnutls)
7641        ("iptables" ,iptables)
7642        ("isc-dhcp" ,isc-dhcp)
7643        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7644        ("jansson" ,jansson)
7645        ("libaudit" ,audit)
7646        ("libgcrypt" ,libgcrypt)
7647        ("libgudev" ,libgudev)
7648        ("libndp" ,libndp)
7649        ("libnl" ,libnl)
7650        ("libsoup" ,libsoup)
7651        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7652        ("modem-manager" ,modem-manager)
7653        ("newt" ,newt)                       ;for the 'nmtui' console interface
7654        ("openresolv" ,openresolv)           ; alternative resolv.conf manager
7655        ("polkit" ,polkit)
7656        ("ppp" ,ppp)
7657        ("readline" ,readline)
7658        ("util-linux" ,util-linux)
7659        ("elogind" ,elogind)))
7660     (synopsis "Network connection manager")
7661     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7662     (description
7663      "NetworkManager is a system network service that manages your network
7664 devices and connections, attempting to keep active network connectivity when
7665 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7666 devices, and provides VPN integration with a variety of different VPN
7667 services.")
7668     ;; “This NetworkManager project consists of the daemon, client tools, and
7669     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7670     ;; GPL-2.0+.”
7671     (license (list license:gpl2+
7672                    license:lgpl2.1+))
7673     (properties '((upstream-name . "NetworkManager")))))
7674
7675 (define-public network-manager-openvpn
7676   (package
7677     (name "network-manager-openvpn")
7678     (version "1.8.12")
7679     (source (origin
7680               (method url-fetch)
7681               (uri (string-append
7682                     "mirror://gnome/sources/NetworkManager-openvpn/"
7683                     (version-major+minor version)
7684                     "/NetworkManager-openvpn-" version ".tar.xz"))
7685               (sha256
7686                (base32
7687                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
7688     (build-system gnu-build-system)
7689     (arguments
7690      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7691        #:phases
7692        (modify-phases %standard-phases
7693          (add-after 'configure 'patch-path
7694            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7695              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
7696                                          "/sbin/openvpn"))
7697                     (modprobe (string-append (assoc-ref inputs "kmod")
7698                                              "/bin/modprobe"))
7699                     (pretty-ovpn (string-append "\"" ovpn "\"")))
7700                (for-each
7701                 (lambda (file)
7702                   (substitute* file
7703                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7704                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7705                     (("\"/sbin/openvpn\"") pretty-ovpn)
7706                     (("/sbin/modprobe") modprobe)))
7707                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7708              #t)))))
7709     (native-inputs
7710      `(("pkg-config" ,pkg-config)
7711        ("intltool" ,intltool)))
7712     (inputs
7713      `(("gtk+" ,gtk+)
7714        ("kmod" ,kmod)
7715        ("openvpn" ,openvpn)
7716        ("network-manager" ,network-manager)
7717        ("libnma" ,libnma)
7718        ("libsecret" ,libsecret)))
7719     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7720     (synopsis "OpenVPN plug-in for NetworkManager")
7721     (description
7722      "This extension of NetworkManager allows it to take care of connections
7723 to virtual private networks (VPNs) via OpenVPN.")
7724     (license license:gpl2+)
7725     (properties `((upstream-name . "NetworkManager-openvpn")))))
7726
7727 (define-public network-manager-vpnc
7728   (package
7729     (name "network-manager-vpnc")
7730     (version "1.2.6")
7731     (source (origin
7732               (method url-fetch)
7733               (uri (string-append
7734                     "mirror://gnome/sources/NetworkManager-vpnc/"
7735                     (version-major+minor version)
7736                     "/NetworkManager-vpnc-" version ".tar.xz"))
7737               (sha256
7738                (base32
7739                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
7740     (build-system gnu-build-system)
7741     (arguments
7742      `(#:configure-flags '("--enable-absolute-paths"
7743                            "--localstatedir=/var"
7744                            ;; libnm-glib has been removed from network-manager
7745                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
7746                            "--with-libnm-glib=no")
7747        #:phases
7748        (modify-phases %standard-phases
7749          (add-after 'configure 'patch-path
7750            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7751              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
7752                                          "/sbin/vpnc"))
7753                     (modprobe (string-append (assoc-ref inputs "kmod")
7754                                              "/bin/modprobe"))
7755                     (pretty-ovpn (string-append "\"" vpnc "\"")))
7756                (substitute* "src/nm-vpnc-service.c"
7757                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
7758                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
7759                     (("\"/sbin/vpnc\"") pretty-ovpn)
7760                     (("/sbin/modprobe") modprobe)))
7761              #t)))))
7762     (native-inputs
7763      `(("pkg-config" ,pkg-config)
7764        ("intltool" ,intltool)))
7765     (inputs
7766      `(("gtk+" ,gtk+)
7767        ("kmod" ,kmod)
7768        ("vpnc" ,vpnc)
7769        ("network-manager" ,network-manager)
7770        ("libnma" ,libnma)
7771        ("libsecret" ,libsecret)))
7772     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7773     (synopsis "VPNC plug-in for NetworkManager")
7774     (description
7775      "Support for configuring virtual private networks based on VPNC.
7776 Compatible with Cisco VPN concentrators configured to use IPsec.")
7777     (license license:gpl2+)
7778     (properties `((upstream-name . "NetworkManager-vpnc")))))
7779
7780 (define-public network-manager-openconnect
7781   (package
7782     (name "network-manager-openconnect")
7783     (version "1.2.6")
7784     (source (origin
7785               (method url-fetch)
7786               (uri (string-append
7787                     "mirror://gnome/sources/NetworkManager-openconnect/"
7788                     (version-major+minor version)
7789                     "/NetworkManager-openconnect-" version ".tar.xz"))
7790               (sha256
7791                (base32
7792                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
7793     (build-system gnu-build-system)
7794     (arguments
7795      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7796        #:phases
7797        (modify-phases %standard-phases
7798          (add-after 'configure 'patch-path
7799            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7800              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
7801                                          "/sbin/openconnect"))
7802                     (modprobe (string-append (assoc-ref inputs "kmod")
7803                                              "/bin/modprobe"))
7804                     (pretty-ovpn (string-append "\"" openconnect "\"")))
7805                (substitute* "src/nm-openconnect-service.c"
7806                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
7807                  (("/sbin/modprobe") modprobe)))
7808              #t)))))
7809     (native-inputs
7810      `(("intltool" ,intltool)
7811        ("libnma" ,libnma)
7812        ("pkg-config" ,pkg-config)))
7813     (inputs
7814      `(("gcr" ,gcr)
7815        ("gtk+" ,gtk+)
7816        ("kmod" ,kmod)
7817        ("libsecret" ,libsecret)
7818        ("libxml2" ,libxml2)
7819        ("lz4" ,lz4)
7820        ("network-manager" ,network-manager)
7821        ("openconnect" ,openconnect)))
7822     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7823     (synopsis "OpenConnect plug-in for NetworkManager")
7824     (description
7825      "This extension of NetworkManager allows it to take care of connections
7826 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
7827 Cisco's AnyConnect SSL VPN.")
7828     (license license:gpl2+)
7829     (properties `((upstream-name . "NetworkManager-openconnect")
7830
7831                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
7832                   ;; file refers to account "nm-openconnect".  Specify it here
7833                   ;; so that 'network-manager-service-type' creates it.
7834                   (user-accounts . ("nm-openconnect"))))))
7835
7836 (define-public mobile-broadband-provider-info
7837   (package
7838     (name "mobile-broadband-provider-info")
7839     (version "20190116")
7840     (source (origin
7841               (method url-fetch)
7842               (uri (string-append
7843                     "mirror://gnome/sources/"
7844                     "mobile-broadband-provider-info/" version "/"
7845                     "mobile-broadband-provider-info-" version ".tar.xz"))
7846               (sha256
7847                (base32
7848                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
7849     (build-system gnu-build-system)
7850     (arguments
7851      `(#:tests? #f))                    ; no tests
7852     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7853     (synopsis "Database of broadband connection configuration")
7854     (description "Database of broadband connection configuration.")
7855     (license license:public-domain)))
7856
7857 (define-public network-manager-applet
7858   (package
7859     (name "network-manager-applet")
7860     (version "1.16.0")
7861     (source (origin
7862               (method url-fetch)
7863               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
7864                                   (version-major+minor version) "/"
7865                                   "network-manager-applet-" version ".tar.xz"))
7866               (sha256
7867                (base32
7868                 "1rf3nm0hjcy9f8ajb4vmvwy503w8yj8d4daxkcb7w7i7b92qmyfn"))))
7869     (build-system meson-build-system)
7870     (arguments
7871      '(#:glib-or-gtk? #t))
7872     (native-inputs
7873      `(("intltool" ,intltool)
7874        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
7875        ("gobject-introspection" ,gobject-introspection)
7876        ("gtk-doc" ,gtk-doc)
7877        ("pkg-config" ,pkg-config)))
7878     (propagated-inputs
7879      ;; libnm-gtk.pc refers to all these.
7880      `(("dbus-glib" ,dbus-glib)
7881        ("gtk+" ,gtk+)
7882        ("network-manager" ,network-manager)
7883        ;; nm-applet need by org.gnome.nm-applet.gschema.xml
7884        ("libnma" ,libnma)))
7885     (inputs
7886      `(("gcr" ,gcr)
7887        ("libgudev" ,libgudev)
7888        ("libnotify" ,libnotify)
7889        ("libsecret" ,libsecret)
7890        ("libselinux" ,libselinux)
7891        ("jansson" ,jansson) ; for team support
7892        ("modem-manager" ,modem-manager)))
7893     (synopsis "Applet for managing network connections")
7894     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7895     (description
7896      "This package contains a systray applet for NetworkManager.  It displays
7897 the available networks and allows users to easily switch between them.")
7898     (license license:gpl2+)))
7899
7900 (define-public libxml++
7901   (package
7902     (name "libxml++")
7903     (version "3.0.1")
7904     (source (origin
7905               (method url-fetch)
7906               (uri (string-append "mirror://gnome/sources/" name "/"
7907                                   (version-major+minor version) "/"
7908                                   name "-" version ".tar.xz"))
7909               (sha256
7910                (base32
7911                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
7912     (build-system gnu-build-system)
7913     ;; libxml++-3.0.pc refers to all these.
7914     (propagated-inputs
7915      `(("libxml2" ,libxml2)
7916        ("glibmm" ,glibmm)))
7917     (native-inputs
7918      `(("perl" ,perl)
7919        ("pkg-config" ,pkg-config)))
7920     (home-page "http://libxmlplusplus.sourceforge.net/")
7921     (synopsis "C++ wrapper for XML parser library libxml2")
7922     (description
7923      "This package provides a C++ wrapper for the XML parser library
7924 libxml2.")
7925     (license license:lgpl2.1+)))
7926
7927 (define-public libxml++-2
7928   (package
7929     (inherit libxml++)
7930     (name "libxml++")
7931     (version "2.40.1")
7932     (source (origin
7933               (method url-fetch)
7934               (uri (string-append "mirror://gnome/sources/" name "/"
7935                                   (version-major+minor version) "/"
7936                                   name "-" version ".tar.xz"))
7937               (sha256
7938                (base32
7939                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
7940
7941 (define-public gdm
7942   (package
7943     (name "gdm")
7944     (version "3.34.1")
7945     (source (origin
7946               (method url-fetch)
7947               (uri (string-append "mirror://gnome/sources/" name "/"
7948                                   (version-major+minor version) "/"
7949                                   name "-" version ".tar.xz"))
7950               (sha256
7951                (base32
7952                 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
7953               (patches (search-patches "gdm-default-session.patch"))))
7954     (build-system glib-or-gtk-build-system)
7955     (arguments
7956      '(#:configure-flags
7957        `("--without-plymouth"
7958          "--disable-systemd-journal"
7959
7960          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
7961          ;; instead of having to replace it (i.e., stopping the mingetty
7962          ;; service for TTY 1 before starting GDM).
7963          "--with-initial-vt=7"
7964
7965          ;; Use '/etc/environment' for locale settings instead of the
7966          ;; systemd-specific '/etc/locale.conf'.
7967          "--with-lang-file=/etc/environment"
7968
7969          ,(string-append "--with-udevdir="
7970                          (assoc-ref %outputs "out") "/lib/udev")
7971
7972          "--localstatedir=/var"
7973          ,(string-append "--with-default-path="
7974                          (string-join '("/run/setuid-programs"
7975                                         "/run/current-system/profile/bin"
7976                                         "/run/current-system/profile/sbin")
7977                                       ":"))
7978          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
7979          ;; XDG_DATA_DIRS so that it finds its schemas.
7980          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
7981        #:phases
7982        (modify-phases %standard-phases
7983          (add-before
7984           'configure 'pre-configure
7985           (lambda* (#:key inputs outputs #:allow-other-keys)
7986             ;; We don't have <systemd/sd-daemon.h>.
7987             (substitute* '("common/gdm-log.c"
7988                            "daemon/gdm-server.c"
7989                            "daemon/gdm-session-worker.c"
7990                            "daemon/gdm-session-worker-job.c")
7991               (("#include <systemd/sd-daemon\\.h>") ""))
7992             ;; Use elogind for sd-login.
7993             (substitute* '("common/gdm-common.c"
7994                            "daemon/gdm-local-display-factory.c"
7995                            "daemon/gdm-manager.c"
7996                            "libgdm/gdm-user-switching.c")
7997               (("#include <systemd/sd-login\\.h>")
7998                "#include <elogind/sd-login.h>"))
7999             ;; Check for elogind.
8000             (substitute* '("configure")
8001               (("libsystemd")
8002                "libelogind"))
8003             ;; Look for system-installed sessions in
8004             ;; /run/current-system/profile/share.
8005             (substitute* '("libgdm/gdm-sessions.c"
8006                            "daemon/gdm-session.c"
8007                            "daemon/gdm-display.c"
8008                            "daemon/gdm-launch-environment.c")
8009               (("DATADIR \"/x")
8010                "\"/run/current-system/profile/share/x")
8011               (("DATADIR \"/wayland")
8012                "\"/run/current-system/profile/share/wayland")
8013               (("DATADIR \"/gnome")
8014                "\"/run/current-system/profile/share/gnome"))
8015             (let ((propagate '("GDM_CUSTOM_CONF"
8016                                "GDM_DBUS_DAEMON"
8017                                "GDM_X_SERVER"
8018                                "GDM_X_SESSION"
8019                                ;; XXX: Remove this once GNOME Shell is
8020                                ;; a dependency of GDM.
8021                                "XDG_DATA_DIRS")))
8022               (substitute* "daemon/gdm-session.c"
8023                 (("set_up_session_environment \\(self\\);")
8024                  (apply string-append
8025                         "set_up_session_environment (self);\n"
8026                         (map (lambda (name)
8027                                (string-append
8028                                 "gdm_session_set_environment_variable "
8029                                 "(self, \"" name "\","
8030                                 "g_getenv (\"" name "\"));\n"))
8031                              propagate)))))
8032             ;; Find the configuration file using an environment variable.
8033             (substitute* '("common/gdm-settings.c")
8034               (("GDM_CUSTOM_CONF")
8035                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8036                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8037                               " : GDM_CUSTOM_CONF)")))
8038             ;; Use service-supplied path to X.
8039             (substitute* '("daemon/gdm-server.c")
8040               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8041                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8042             (substitute* '("daemon/gdm-wayland-session.c"
8043                            "daemon/gdm-x-session.c")
8044               (("\"dbus-daemon\"")
8045                "g_getenv (\"GDM_DBUS_DAEMON\")")
8046               (("X_SERVER")
8047                "g_getenv (\"GDM_X_SERVER\")")
8048               (("GDMCONFDIR \"/Xsession\"")
8049                "g_getenv (\"GDM_X_SESSION\")"))
8050             ;; Use an absolute path for GNOME Session.
8051             (substitute* "daemon/gdm-launch-environment.c"
8052               (("\"gnome-session\"")
8053                (string-append "\"" (assoc-ref inputs "gnome-session")
8054                               "/bin/gnome-session\"")))
8055             ;; Do not automatically select the placeholder session.
8056             (substitute* "daemon/gdm-session.c"
8057               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8058                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8059                               "(g_strcmp0(search_dirs[i], \""
8060                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8061                               "\") == 0 && "
8062                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8063               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8064                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
8065             #t))
8066          ;; GDM requires that there be at least one desktop entry
8067          ;; file.  This phase installs a hidden one that simply
8068          ;; fails.  This enables users to use GDM with a
8069          ;; '~/.xsession' script with no other desktop entry files.
8070          ;; See <https://bugs.gnu.org/35068>.
8071          (add-after 'install 'install-placeholder-desktop-entry
8072            (lambda* (#:key inputs outputs #:allow-other-keys)
8073              (let* ((out (assoc-ref outputs "out"))
8074                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8075                     (fail (string-append sessions "/fail.desktop")))
8076                (mkdir-p sessions)
8077                (with-output-to-file fail
8078                  (lambda ()
8079                    (for-each
8080                     display
8081                     '("[Desktop Entry]\n"
8082                       "Encoding=UTF-8\n"
8083                       "Type=Application\n"
8084                       "Name=Fail\n"
8085                       "Comment=This session fails immediately.\n"
8086                       "NoDisplay=true\n"
8087                       "Exec=false\n"))))
8088                #t)))
8089          ;; GDM needs GNOME Session to run these applications.  We link
8090          ;; their autostart files in `share/gdm/greeter/autostart'
8091          ;; because GDM explicitly tells GNOME Session to look there.
8092          ;;
8093          ;; XXX: GNOME Shell should be linked here too, but currently
8094          ;; GNOME Shell depends on GDM.
8095          (add-after 'install 'link-autostart-files
8096            (lambda* (#:key inputs outputs #:allow-other-keys)
8097              (let* ((out (assoc-ref outputs "out"))
8098                     (autostart (string-append out "/share/gdm/"
8099                                               "greeter/autostart"))
8100                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8101                (mkdir-p autostart)
8102                (with-directory-excursion autostart
8103                  (for-each (lambda (desktop)
8104                              (symlink desktop (basename desktop)))
8105                            (find-files (string-append settings "/etc/xdg"))))
8106                #t))))))
8107     (native-inputs
8108      `(("dconf" ,dconf)
8109        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8110        ("gobject-introspection" ,gobject-introspection)
8111        ("intltool" ,intltool)
8112        ("itstool" ,itstool)
8113        ("pkg-config" ,pkg-config)
8114        ("xmllint" ,libxml2)))
8115     (inputs
8116      `(("accountsservice" ,accountsservice)
8117        ("check" ,check-0.14)            ;for testing
8118        ("elogind" ,elogind)
8119        ("gnome-session" ,gnome-session)
8120        ("gnome-settings-daemon" ,gnome-settings-daemon)
8121        ("gtk+" ,gtk+)
8122        ("iso-codes" ,iso-codes)
8123        ("libcanberra" ,libcanberra)
8124        ("linux-pam" ,linux-pam)))
8125     (synopsis "Display manager for GNOME")
8126     (home-page "https://wiki.gnome.org/Projects/GDM/")
8127     (description
8128      "GNOME Display Manager is a system service that is responsible for
8129 providing graphical log-ins and managing local and remote displays.")
8130     (license license:gpl2+)))
8131
8132 (define-public libgtop
8133   (package
8134     (name "libgtop")
8135     (version "2.40.0")
8136     (source (origin
8137               (method url-fetch)
8138               (uri (string-append "mirror://gnome/sources/libgtop/"
8139                                   (version-major+minor version) "/"
8140                                   "libgtop-" version ".tar.xz"))
8141               (sha256
8142                (base32
8143                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8144     (build-system gnu-build-system)
8145     (native-inputs
8146      `(("gobject-introspection" ,gobject-introspection)
8147        ("intltool" ,intltool)
8148        ("perl" ,perl)
8149        ("pkg-config" ,pkg-config)))
8150     (propagated-inputs
8151      `(("glib" ,glib))) ; required by libgtop-2.0.pc
8152     (synopsis "Portable system access library")
8153     (home-page "https://www.gnome.org/")
8154     (description
8155      "LibGTop is a library to get system specific data such as CPU and memory
8156 usage and information about running processes.")
8157     (license license:gpl2+)))
8158
8159 (define-public gnome-bluetooth
8160   (package
8161     (name "gnome-bluetooth")
8162     (version "3.34.2")
8163     (source (origin
8164               (method url-fetch)
8165               (uri (string-append "mirror://gnome/sources/" name "/"
8166                                   (version-major+minor version) "/"
8167                                   name "-" version ".tar.xz"))
8168               (sha256
8169                (base32
8170                 "0lmjvb49vgr4jjplrisv6pi29jsn1q42715i6c5a0p9ad3gawyyv"))))
8171     (build-system meson-build-system)
8172     (native-inputs
8173      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8174        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8175        ("gobject-introspection" ,gobject-introspection)
8176        ("intltool" ,intltool)
8177        ("pkg-config" ,pkg-config)
8178        ("xmllint" ,libxml2)))
8179     (propagated-inputs
8180      ;; gnome-bluetooth-1.0.pc refers to all these.
8181      `(("glib" ,glib)
8182        ("gtk+" ,gtk+)))
8183     (inputs
8184      `(("eudev" ,eudev)
8185        ("libcanberra" ,libcanberra)
8186        ("libnotify" ,libnotify)))
8187     (synopsis "GNOME Bluetooth subsystem")
8188     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8189     (description
8190      "This package contains tools for managing and manipulating Bluetooth
8191 devices using the GNOME desktop.")
8192     (license license:lgpl2.1+)))
8193
8194 (define-public gnome-control-center
8195   (package
8196     (name "gnome-control-center")
8197     (version "3.34.2")
8198     (source (origin
8199               (method url-fetch)
8200               (uri (string-append "mirror://gnome/sources/" name "/"
8201                                   (version-major+minor version) "/"
8202                                   name "-" version ".tar.xz"))
8203               (sha256
8204                (base32
8205                 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
8206     (build-system meson-build-system)
8207     (arguments
8208      '(#:glib-or-gtk? #t
8209        #:configure-flags
8210        (list "-Dcheese=false"
8211              (string-append "-Dgnome_session_libexecdir="
8212                             (assoc-ref %build-inputs "gnome-session")
8213                             "/libexec"))
8214        #:phases
8215        (modify-phases %standard-phases
8216          (add-before 'configure 'patch-paths
8217            (lambda* (#:key inputs #:allow-other-keys)
8218              (let ((libc   (assoc-ref inputs "libc"))
8219                    (tzdata (assoc-ref inputs "tzdata"))
8220                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8221                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8222                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8223                (substitute* "panels/datetime/tz.h"
8224                  (("/usr/share/zoneinfo/zone.tab")
8225                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8226                (substitute* "tests/datetime/test-endianess.c"
8227                  (("/usr/share/locale")
8228                   (string-append libc "/share/locale")))
8229                (substitute* "panels/region/cc-region-panel.c"
8230                  (("\"gkbd-keyboard-display")
8231                   (string-append "\"" libgnomekbd
8232                                  "/bin/gkbd-keyboard-display")))
8233                (substitute* '("panels/network/net-device-wifi.c"
8234                               "panels/network/net-device.c"
8235                               "panels/network/connection-editor/net-connection-editor.c")
8236                  (("\"nm-connection-editor")
8237                   (string-append "\"" nm-applet
8238                                  "/bin/nm-connection-editor")))
8239                (substitute* '("panels/user-accounts/run-passwd.c")
8240                  (("/usr/bin/passwd")
8241                   "/run/setuid-programs/passwd"))
8242                (substitute* "panels/info/cc-info-overview-panel.c"
8243                  (("DATADIR \"/gnome/gnome-version.xml\"")
8244                   (string-append "\"" gnome-desktop
8245                                  "/share/gnome/gnome-version.xml\"")))
8246                #t)))
8247          (add-after 'unpack 'skip-gtk-update-icon-cache
8248            ;; Don't create 'icon-theme.cache'.
8249            (lambda _
8250              (substitute* "build-aux/meson/meson_post_install.py"
8251                (("gtk-update-icon-cache") (which "true")))
8252              #t)))))
8253     (native-inputs
8254      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8255        ("intltool" ,intltool)
8256        ("pkg-config" ,pkg-config)
8257        ("xsltproc" ,libxslt)
8258        ;; For tests
8259        ("hicolor-icon-theme" ,hicolor-icon-theme)
8260        ("python-dbusmock" ,python-dbusmock)
8261        ("xorg-server" ,xorg-server-for-tests)))
8262     (inputs
8263      `(("accountsservice" ,accountsservice)
8264        ("clutter-gtk" ,clutter-gtk)
8265        ("colord-gtk" ,colord-gtk)
8266        ("cups" ,cups)
8267        ("dconf" ,dconf)
8268        ("docbook-xsl" ,docbook-xsl)
8269        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8270        ("gnome-bluetooth" ,gnome-bluetooth)
8271        ("gnome-desktop" ,gnome-desktop)
8272        ("gnome-online-accounts" ,gnome-online-accounts)
8273        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8274        ("gnome-session" ,gnome-session)
8275        ("gnome-settings-daemon" ,gnome-settings-daemon)
8276        ("grilo" ,grilo)
8277        ("gsound" ,gsound)
8278        ("ibus" ,ibus)
8279        ("libcanberra" ,libcanberra)
8280        ("libgnomekbd" ,libgnomekbd)
8281        ("libgudev" ,libgudev)
8282        ("libgtop" ,libgtop)
8283        ("libnma" ,libnma)
8284        ("libpwquality" ,libpwquality)
8285        ("libsecret" ,libsecret)
8286        ("libsoup" ,libsoup)
8287        ("libxml2" ,libxml2)
8288        ("libwacom" ,libwacom)
8289        ("mesa" ,mesa)
8290        ("mit-krb5" ,mit-krb5)
8291        ("modem-manager" ,modem-manager)
8292        ("network-manager-applet" ,network-manager-applet)
8293        ("polkit" ,polkit)
8294        ("pulseaudio" ,pulseaudio)
8295        ("smbclient" ,samba)
8296        ("tzdata" ,tzdata)
8297        ("udisks" ,udisks)
8298        ("upower" ,upower)))
8299     (synopsis "Utilities to configure the GNOME desktop")
8300     (home-page "https://www.gnome.org/")
8301     (description
8302      "This package contains configuration applets for the GNOME desktop,
8303 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8304 properties, sound setup, desktop theme and background, user interface
8305 properties, screen resolution, and other GNOME parameters.")
8306     (license license:gpl2+)))
8307
8308 (define-public gnome-shell
8309   (package
8310     (name "gnome-shell")
8311     (version "3.34.2")
8312     (source (origin
8313               (method url-fetch)
8314               (uri (string-append "mirror://gnome/sources/" name "/"
8315                                   (version-major+minor version) "/"
8316                                   name "-" version ".tar.xz"))
8317               (sha256
8318                (base32
8319                 "0k9vq2gh1nhdd6fpp7jnwx37qxaakawiqw1xnlfjvq5g5zdn8ckh"))
8320               (patches (search-patches "gnome-shell-theme.patch"
8321                                        "gnome-shell-disable-test.patch"))
8322               (modules '((guix build utils)))
8323               (snippet
8324                #~(begin
8325                    ;; Copy images for use on the GDM log-in screen.
8326                    (copy-file #$(file-append %artwork-repository
8327                                              "/slim/0.x/background.png")
8328                               "data/theme/guix-background.png")
8329                    (copy-file #$(file-append %artwork-repository
8330                                              "/logo/Guix-horizontal-white.svg")
8331                               "data/theme/guix-logo.svg")
8332                    #t))))
8333     (build-system meson-build-system)
8334     (arguments
8335      `(#:glib-or-gtk? #t
8336        #:disallowed-references ((,glib "bin")
8337                                 ,inkscape ,libxslt
8338                                 ,ruby-sass)
8339        #:configure-flags
8340        (list "-Dsystemd=false"
8341              ;; Otherwise, the RUNPATH will lack the final path component.
8342              (string-append "-Dc_link_args=-Wl,-rpath="
8343                             (assoc-ref %outputs "out")
8344                             "/lib/gnome-shell"))
8345
8346        #:modules ((guix build meson-build-system)
8347                   (guix build utils)
8348                   (srfi srfi-1))
8349
8350        #:phases
8351        (modify-phases %standard-phases
8352          (add-after 'unpack 'fix-keysdir
8353            (lambda* (#:key outputs #:allow-other-keys)
8354              (let* ((out     (assoc-ref outputs "out"))
8355                     (keysdir (string-append
8356                               out "/share/gnome-control-center/keybindings")))
8357                (substitute* "meson.build"
8358                  (("keysdir =.*")
8359                   (string-append "keysdir = '" keysdir "'\n")))
8360                #t)))
8361          (add-before 'configure 'convert-logo-to-png
8362            (lambda* (#:key inputs #:allow-other-keys)
8363              ;; Convert the logo from SVG to PNG.
8364              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
8365                      "data/theme/guix-logo.svg")))
8366          (add-before 'configure 'record-absolute-file-names
8367            (lambda* (#:key inputs #:allow-other-keys)
8368              (substitute* "js/misc/ibusManager.js"
8369                (("'ibus-daemon'")
8370                 (string-append "'" (assoc-ref inputs "ibus")
8371                                "/bin/ibus-daemon'")))
8372              (substitute* "js/ui/status/keyboard.js"
8373                (("'gkbd-keyboard-display'")
8374                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8375                                "/bin/gkbd-keyboard-display'")))
8376              #t))
8377          (add-before 'check 'pre-check
8378            (lambda* (#:key inputs #:allow-other-keys)
8379              ;; Tests require a running X server.
8380              (system "Xvfb :1 &")
8381              (setenv "DISPLAY" ":1")
8382              #t))
8383          (add-after 'install 'wrap-programs
8384            (lambda* (#:key inputs outputs #:allow-other-keys)
8385              (let ((out              (assoc-ref outputs "out"))
8386                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8387                    (python-path      (getenv "PYTHONPATH")))
8388                (wrap-program (string-append out "/bin/gnome-shell")
8389                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8390                  ;; FIXME: gnome-shell loads these libraries with unqualified
8391                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
8392                  ;; alternative might be to patch gnome-shell.
8393                  `("LD_LIBRARY_PATH" ":" prefix
8394                    ,(map (lambda (pkg)
8395                            (string-append (assoc-ref inputs pkg) "/lib"))
8396                          '("gdk-pixbuf"
8397                            "gnome-bluetooth" "librsvg" "libgweather"))))
8398                (for-each
8399                 (lambda (prog)
8400                   (wrap-program (string-append out "/bin/" prog)
8401                     `("PYTHONPATH"      ":" prefix (,python-path))
8402                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8403                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
8404                #t)))
8405          (replace 'glib-or-gtk-wrap
8406            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8407              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8408                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
8409                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8410                ;; phase.  Fix that since we don't need these.
8411                (wrap #:inputs (fold alist-delete inputs
8412                                     '("inkscape" "intltool" "glib:bin"))
8413                      #:outputs outputs)))))))
8414     (native-inputs
8415      `(("asciidoc" ,asciidoc)
8416        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8417        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8418        ("gobject-introspection" ,gobject-introspection)
8419        ("inkscape" ,inkscape)
8420        ("intltool" ,intltool)
8421        ("pkg-config" ,pkg-config)
8422        ("python" ,python)
8423        ("ruby-sass" ,ruby-sass)
8424        ("sassc" ,sassc)
8425        ("xsltproc" ,libxslt)
8426        ;; For tests
8427        ("xorg-server" ,xorg-server-for-tests)))
8428     (inputs
8429      `(("accountsservice" ,accountsservice)
8430        ("caribou" ,caribou)
8431        ("docbook-xsl" ,docbook-xsl)
8432        ("evolution-data-server" ,evolution-data-server)
8433        ("gcr" ,gcr)
8434        ("gdm" ,gdm)
8435        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8436        ("gjs" ,gjs)
8437        ("gnome-autoar" ,gnome-autoar)
8438        ("gnome-bluetooth" ,gnome-bluetooth)
8439        ("gnome-desktop" ,gnome-desktop)
8440        ("gnome-settings-daemon" ,gnome-settings-daemon)
8441        ("gst-plugins-base" ,gst-plugins-base)
8442        ("ibus" ,ibus)
8443        ("libcanberra" ,libcanberra)
8444        ("libcroco" ,libcroco)
8445        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
8446        ("libgweather" ,libgweather)
8447        ("libnma" ,libnma)
8448        ("libsoup" ,libsoup)
8449        ("mesa-headers" ,mesa-headers)
8450        ("mutter" ,mutter)
8451        ("network-manager-applet" ,network-manager-applet)
8452        ("polkit" ,polkit)
8453        ("pulseaudio" ,pulseaudio)
8454        ("python-pygobject" ,python-pygobject)
8455        ("startup-notification" ,startup-notification)
8456        ("telepathy-logger" ,telepathy-logger)
8457        ("upower" ,upower)
8458        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8459        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8460        ("librsvg" ,librsvg)
8461        ("geoclue" ,geoclue)))
8462     (synopsis "Desktop shell for GNOME")
8463     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8464     (description
8465      "GNOME Shell provides core user interface functions for the GNOME desktop,
8466 like switching to windows and launching applications.")
8467     (license license:gpl2+)))
8468
8469 (define-public gtk-vnc
8470   (package
8471     (name "gtk-vnc")
8472     (version "1.0.0")
8473     (source
8474      (origin
8475        (method url-fetch)
8476        (uri
8477         (string-append "mirror://gnome/sources/" name "/"
8478                        (version-major+minor version) "/"
8479                        name "-" version ".tar.xz"))
8480        (sha256
8481         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8482     (build-system meson-build-system)
8483     (arguments
8484      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8485     (native-inputs
8486      `(("gjs" ,gjs)
8487        ("glib:bin" ,glib "bin")
8488        ("gobject-introspection" ,gobject-introspection)
8489        ("intltool" ,intltool)
8490        ("node" ,node)
8491        ("perl" ,perl)
8492        ("pkg-config" ,pkg-config)
8493        ("python" ,python-wrapper)
8494        ("vala" ,vala)))
8495     (inputs
8496      `(("cairo" ,cairo)
8497        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8498        ("glib" ,glib)
8499        ("gnutls" ,gnutls)
8500        ("libgcrypt" ,libgcrypt)
8501        ("libsasl" ,cyrus-sasl)
8502        ("pulseaudio" ,pulseaudio)
8503        ("x11" ,libx11)
8504        ("zlib" ,zlib)))
8505     (propagated-inputs
8506      `(("gtk+" ,gtk+)))
8507     (synopsis "VNC client viewer widget for GTK+")
8508     (description "GTK-VNC is a project providing client side APIs for the RFB
8509 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8510 it to be completely asynchronous while remaining single threaded.  It provides a
8511 core C library, and bindings for Python (PyGTK).")
8512     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8513     (license license:lgpl2.1+)))
8514
8515 (define-public gnome-autoar
8516   (package
8517     (name "gnome-autoar")
8518     (version "0.2.4")
8519     (source (origin
8520               (method url-fetch)
8521               (uri (string-append "mirror://gnome/sources/" name "/"
8522                                   (version-major+minor version) "/"
8523                                   name "-" version ".tar.xz"))
8524               (sha256
8525                (base32
8526                 "0yk56ch46n3wfy633mq31kif9n7v06rlij4vqbsbn6l4z1vw6d0a"))))
8527     (build-system glib-or-gtk-build-system)
8528     (native-inputs
8529      `(("gobject-introspection" ,gobject-introspection)
8530        ("pkg-config" ,pkg-config)))
8531     (propagated-inputs
8532      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
8533     (inputs
8534      `(("gtk+" ,gtk+)))
8535     (synopsis "Archives integration support for GNOME")
8536     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8537     (description
8538      "GNOME Autoar is a library which makes creating and extracting archives
8539 easy, safe, and automatic.")
8540     (license license:lgpl2.1+)))
8541
8542 (define-public tracker
8543   (package
8544     (name "tracker")
8545     (version "2.3.5")
8546     (source (origin
8547               (method url-fetch)
8548               (uri (string-append "mirror://gnome/sources/tracker/"
8549                                   (version-major+minor version) "/"
8550                                   "tracker-" version ".tar.xz"))
8551               (sha256
8552                (base32
8553                 "1ixxyqjlv7pnl4j8g6b72fkbjvzfspza8y71ppkncry8i6xkr223"))))
8554     (build-system meson-build-system)
8555     (arguments
8556      `(#:glib-or-gtk? #t
8557        #:configure-flags
8558        ;; Otherwise, the RUNPATH will lack the final path component.
8559        (list (string-append "-Dc_link_args=-Wl,-rpath="
8560                             (assoc-ref %outputs "out") "/lib:"
8561                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
8562        #:phases
8563        (modify-phases %standard-phases
8564          (add-before 'check 'pre-check
8565            (lambda _
8566              ;; Some tests expect to write to $HOME.
8567              (setenv "HOME" "/tmp")
8568              #t)))))
8569     (native-inputs
8570      `(("glib:bin" ,glib "bin")
8571        ("gobject-introspection" ,gobject-introspection)
8572        ("python-pygobject" ,python-pygobject)
8573        ("intltool" ,intltool)
8574        ("pkg-config" ,pkg-config)
8575        ("vala" ,vala)))
8576     (inputs
8577      `(("dbus" ,dbus)
8578        ("sqlite" ,sqlite)
8579        ("libxml2" ,libxml2)
8580        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
8581        ("json-glib" ,json-glib)
8582        ("libsoup" ,libsoup)))
8583     (synopsis "Metadata database, indexer and search tool")
8584     (home-page "https://wiki.gnome.org/Projects/Tracker")
8585     (description
8586      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8587
8588 It is a middleware component aimed at desktop application developers who want
8589 their apps to browse and search user content.  It's not designed to be used
8590 directly by desktop users, but it provides a commandline tool named
8591 @command{tracker} for the adventurous.
8592
8593 Tracker allows your application to instantly perform full-text searches across
8594 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
8595 example.  This is achieved by indexing the user's home directory in the
8596 background.
8597
8598 Tracker also allows your application to query and list content that the user
8599 has stored.  For example, GNOME Music displays all the music files that are
8600 found by Tracker.  This means that GNOME Music doesn't need to maintain a
8601 database of its own.
8602
8603 If you need to go beyond simple searches, Tracker is also a linked data
8604 endpoint and it understands SPARQL. ")
8605     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
8606     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8607     ;; libstemmer is bsd-3 and the rest is gpl2+.
8608     (license (list license:gpl2+
8609                    license:bsd-3
8610                    license:lgpl2.1+))))
8611
8612 (define-public tracker-miners
8613   (package
8614     (name "tracker-miners")
8615     (version "2.3.4")
8616     (source (origin
8617               (method url-fetch)
8618               (uri (string-append "mirror://gnome/sources/tracker-miners/"
8619                                   (version-major+minor version)
8620                                   "/tracker-miners-" version ".tar.xz"))
8621               (sha256
8622                (base32
8623                 "10wy8d8ski52k809p7s6lbw72qmg05bbmhnl00vx4qrbzqyxvc0b"))))
8624     (build-system meson-build-system)
8625     (arguments
8626      `(#:glib-or-gtk? #t
8627        #:configure-flags
8628        (list "-Dminer_rss=false" ; libgrss is required.
8629              ;; Ensure the RUNPATH contains all installed library locations.
8630              (string-append "-Dc_link_args=-Wl,-rpath="
8631                             (assoc-ref %outputs "out")
8632                             "/lib/tracker-miners-2.0")
8633              ;; TODO: Enable functional tests. Currently, the following error
8634              ;; appears:
8635              ;; Exception: The functional tests require DConf to be the default
8636              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8637              "-Dfunctional_tests=false")))
8638     (native-inputs
8639      `(("dbus" ,dbus)
8640        ("intltool" ,intltool)
8641        ("glib:bin" ,glib "bin")
8642        ("gobject-introspection" ,gobject-introspection)
8643        ("pkg-config" ,pkg-config)
8644        ("python-pygobject" ,python-pygobject)))
8645     (inputs
8646      `(("exempi" ,exempi)
8647        ("ffmpeg" ,ffmpeg)
8648        ("flac" ,flac)
8649        ("giflib" ,giflib)
8650        ("glib" ,glib)
8651        ("gstreamer" ,gstreamer)
8652        ("icu4c" ,icu4c)
8653        ("libcue" ,libcue)
8654        ("libexif" ,libexif)
8655        ("libgsf" ,libgsf)
8656        ("libgxps" ,libgxps)
8657        ("libiptcdata" ,libiptcdata)
8658        ("libjpeg" ,libjpeg-turbo)
8659        ("libosinfo" ,libosinfo)
8660        ("libpng" ,libpng)
8661        ("libseccomp" ,libseccomp)
8662        ("libtiff" ,libtiff)
8663        ("libvorbis" ,libvorbis)
8664        ("libxml2" ,libxml2)
8665        ("poppler" ,poppler)
8666        ("taglib" ,taglib)
8667        ("totem-pl-parser" ,totem-pl-parser)
8668        ("tracker" ,tracker)
8669        ("upower" ,upower)
8670        ("zlib" ,zlib)))
8671     (synopsis "Metadata database, indexer and search tool")
8672     (home-page "https://wiki.gnome.org/Projects/Tracker")
8673     (description
8674      "Tracker is an advanced framework for first class objects with associated
8675 metadata and tags.  It provides a one stop solution for all metadata, tags,
8676 shared object databases, search tools and indexing.")
8677     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8678     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
8679     (license (list license:gpl2+
8680                    license:lgpl2.1+
8681                    license:lgpl2.0+))))
8682
8683 (define-public nautilus
8684   (package
8685     (name "nautilus")
8686     (version "3.34.2")
8687     (source (origin
8688               (method url-fetch)
8689               (uri (string-append "mirror://gnome/sources/" name "/"
8690                                   (version-major+minor version) "/"
8691                                   name "-" version ".tar.xz"))
8692               (sha256
8693                (base32
8694                 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
8695     (build-system meson-build-system)
8696     (arguments
8697      '(#:glib-or-gtk? #t
8698        #:phases
8699        (modify-phases %standard-phases
8700          (add-after 'unpack 'skip-gtk-update-icon-cache
8701            ;; Don't create 'icon-theme.cache'.
8702            (lambda _
8703              (substitute* "build-aux/meson/postinstall.py"
8704                (("gtk-update-icon-cache") "true"))
8705              #t)))
8706        ;; XXX: FAIL: check-nautilus
8707        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
8708        #:tests? #f))
8709     (native-inputs
8710      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8711        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
8712        ("gobject-introspection" ,gobject-introspection)
8713        ("intltool" ,intltool)
8714        ("pkg-config" ,pkg-config)))
8715     (inputs
8716      `(("dconf" ,dconf)
8717        ("gexiv2" ,gexiv2)
8718        ("gvfs" ,gvfs)
8719        ("exempi" ,exempi)
8720        ("gnome-desktop" ,gnome-desktop)
8721        ("gnome-autoar" ,gnome-autoar)
8722        ("gst-plugins-base" ,gst-plugins-base)
8723        ("libseccomp" ,libseccomp)
8724        ("libselinux" ,libselinux)
8725        ("tracker" ,tracker)
8726        ("tracker-miners" ,tracker-miners)
8727        ;; XXX: gtk+ is required by libnautilus-extension.pc
8728        ;;
8729        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
8730        ;; package.  See:
8731        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
8732        ("gtk+" ,gtk+)
8733        ("libexif" ,libexif)
8734        ("libxml2" ,libxml2)))
8735     (synopsis "File manager for GNOME")
8736     (home-page "https://wiki.gnome.org/Apps/Nautilus")
8737     (description
8738      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
8739 design and behaviour, giving the user a simple way to navigate and manage its
8740 files.")
8741     (license license:gpl2+)))
8742
8743 (define-public baobab
8744   (package
8745     (name "baobab")
8746     (version "3.32.0")
8747     (source (origin
8748               (method url-fetch)
8749               (uri (string-append
8750                     "mirror://gnome/sources/" name "/"
8751                     (version-major+minor version) "/"
8752                     name "-" version ".tar.xz"))
8753               (sha256
8754                (base32
8755                 "0b33s9bhpiffv5wl76cq2bbnqhvx3qs2vxyxmil5gcs583llqh9r"))))
8756     (build-system meson-build-system)
8757     (arguments
8758      '(#:glib-or-gtk? #t))
8759     (native-inputs
8760      `(("intltool" ,intltool)
8761        ("pkg-config" ,pkg-config)
8762        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8763        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8764        ("itstool" ,itstool)
8765        ("xmllint" ,libxml2)
8766        ("glib" ,glib "bin")
8767        ("vala" ,vala)))
8768     (inputs
8769      `(("gtk+" ,gtk+)))
8770     (synopsis "Disk usage analyzer for GNOME")
8771     (description
8772      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
8773 usage in the GNOME desktop environment.  It can easily scan device volumes or
8774 a specific user-requested directory branch (local or remote).  Once the scan
8775 is complete it provides a graphical representation of each selected folder.")
8776     (home-page "https://wiki.gnome.org/Apps/Baobab")
8777     (license license:gpl2+)))
8778
8779 (define-public gnome-backgrounds
8780   (package
8781     (name "gnome-backgrounds")
8782     (version "3.34.0")
8783     (source
8784      (origin
8785        (method url-fetch)
8786        (uri (string-append "mirror://gnome/sources/" name "/"
8787                            (version-major+minor version) "/"
8788                            name "-" version ".tar.xz"))
8789        (sha256
8790         (base32
8791          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
8792     (build-system meson-build-system)
8793     (native-inputs
8794      `(("intltool" ,intltool)))
8795     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
8796     (synopsis "Background images for the GNOME desktop")
8797     (description
8798      "GNOME backgrounds package contains a collection of graphics files which
8799 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
8800 the package creates the proper framework and directory structure so that you
8801 can add your own files to the collection.")
8802     (license (list license:gpl2+
8803                    license:cc-by2.0
8804                    license:cc-by-sa2.0
8805                    license:cc-by-sa3.0))))
8806
8807 (define-public gnome-screenshot
8808   (package
8809     (name "gnome-screenshot")
8810     (version "3.34.0")
8811     (source
8812      (origin
8813        (method url-fetch)
8814        (uri (string-append "mirror://gnome/sources/" name "/"
8815                            (version-major+minor version) "/"
8816                            name "-" version ".tar.xz"))
8817        (sha256
8818         (base32
8819          "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
8820     (build-system meson-build-system)
8821     (arguments
8822      '(#:phases
8823        (modify-phases %standard-phases
8824          (add-after 'unpack 'skip-gtk-update-icon-cache
8825            ;; Don't create 'icon-theme.cache'.
8826            (lambda _
8827              (substitute* "build-aux/postinstall.py"
8828                (("gtk-update-icon-cache") "true"))
8829              #t)))))
8830     (native-inputs
8831      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8832        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8833        ("intltool" ,intltool)
8834        ("appstream-glib" ,appstream-glib)
8835        ("pkg-config" ,pkg-config)))
8836     (inputs
8837      `(("gtk+" ,gtk+)
8838        ("libcanberra" ,libcanberra)
8839        ("libx11" ,libx11)
8840        ("libxext" ,libxext)))
8841     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
8842     (synopsis "Take pictures of your screen")
8843     (description
8844      "GNOME Screenshot is a utility used for taking screenshots of the entire
8845 screen, a window or a user defined area of the screen, with optional
8846 beautifying border effects.")
8847     (license license:gpl2+)))
8848
8849 (define-public dconf-editor
8850   (package
8851     (name "dconf-editor")
8852     (version "3.34.2")
8853     (source
8854      (origin
8855        (method url-fetch)
8856        (uri (string-append "mirror://gnome/sources/" name "/"
8857                            (version-major+minor version) "/"
8858                            name "-" version ".tar.xz"))
8859        (sha256
8860         (base32
8861          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
8862     (build-system meson-build-system)
8863     (native-inputs
8864      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
8865        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8866        ("intltool" ,intltool)
8867        ("pkg-config" ,pkg-config)
8868        ("vala" ,vala)))
8869     (inputs
8870      `(("dconf" ,dconf)
8871        ("gtk+" ,gtk+)
8872        ("libxml2" ,libxml2)))
8873     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
8874     (synopsis "Graphical editor for GNOME's dconf configuration system")
8875     (description
8876      "Dconf-editor is a graphical tool for browsing and editing the dconf
8877 configuration system for GNOME.  It allows users to configure desktop
8878 software that do not provide their own configuration interface.")
8879     (license license:lgpl2.1+)))
8880
8881 (define-public gnome-default-applications
8882   (package
8883     (name "gnome-default-applications")
8884     (version "0")
8885     (build-system trivial-build-system)
8886     (source #f)
8887     (propagated-inputs
8888      `(("nautilus" ,nautilus)
8889        ("evince" ,evince)))
8890     (arguments
8891      `(#:modules ((guix build utils))
8892        #:builder
8893        (begin
8894          (use-modules (guix build utils))
8895          (let* ((out (assoc-ref %outputs "out"))
8896                 (apps (string-append out "/share/applications")))
8897            (mkdir-p apps)
8898            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
8899              (lambda (port)
8900                (format port "[Default Applications]\n")
8901                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
8902                (format port "application/pdf=evince.desktop\n")
8903                (format port "application/postscript=evince.desktop\n")))
8904            #t))))
8905     (synopsis "Default MIME type associations for the GNOME desktop")
8906     (description
8907      "Given many installed packages which might handle a given MIME type, a
8908 user running the GNOME desktop probably has some preferences: for example,
8909 that folders be opened by default by the Nautilus file manager, not the Baobab
8910 disk usage analyzer.  This package establishes that set of default MIME type
8911 associations for GNOME.")
8912     (license license:gpl3+)
8913     (home-page #f)))
8914
8915 (define-public libgovirt
8916   (package
8917    (name "libgovirt")
8918    (version "0.3.6")
8919    (source (origin
8920             (method url-fetch)
8921             (uri (string-append "mirror://gnome/sources/" name "/"
8922                                 (version-major+minor version) "/"
8923                                 name "-" version ".tar.xz"))
8924             (sha256
8925              (base32
8926               "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
8927    (build-system glib-or-gtk-build-system)
8928    (native-inputs
8929     `(("gettext" ,gettext-minimal)
8930       ("glib:bin" ,glib "bin")
8931       ("gobject-introspection" ,gobject-introspection)
8932       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8933       ("gtk+:bin" ,gtk+ "bin")
8934       ("pkg-config" ,pkg-config)))
8935    (inputs
8936     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
8937       ("librest" ,rest)))
8938    (synopsis "GoVirt Library")
8939    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
8940    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
8941    (license license:gpl2+)))
8942
8943 (define-public gnome-weather
8944   (package
8945    (name "gnome-weather")
8946    (version "3.34.0")
8947    (source (origin
8948             (method url-fetch)
8949             (uri (string-append "mirror://gnome/sources/" name "/"
8950                                 (version-major+minor version) "/"
8951                                 name "-" version ".tar.xz"))
8952             (sha256
8953              (base32
8954               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
8955    (build-system meson-build-system)
8956    (native-inputs
8957     `(("gettext" ,gettext-minimal)
8958       ("glib:bin" ,glib "bin")
8959       ("gobject-introspection" ,gobject-introspection)
8960       ("gtk+:bin" ,gtk+ "bin")
8961       ("pkg-config" ,pkg-config)))
8962    (inputs
8963     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
8964       ("appstream-glib" ,appstream-glib)
8965       ("geoclue" ,geoclue)
8966       ("gdk-pixbuf" ,gdk-pixbuf)
8967       ("gjs" ,gjs)
8968       ("gnome-desktop" ,gnome-desktop)
8969       ("libgweather" ,libgweather)))
8970    (arguments
8971     `(#:glib-or-gtk? #t
8972       #:phases
8973       (modify-phases %standard-phases
8974         (add-after 'install 'fix-desktop-file
8975           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
8976           ;; See https://issues.guix.gnu.org/issue/39324.
8977           (lambda* (#:key outputs #:allow-other-keys)
8978             (let* ((out (assoc-ref outputs "out"))
8979                    (applications (string-append out "/share/applications")))
8980               (substitute* (string-append applications "/org.gnome.Weather.desktop")
8981                 (("Exec=.*") "Exec=gnome-weather\n"))
8982               #t)))
8983         (add-after 'install 'wrap
8984           (lambda* (#:key inputs outputs #:allow-other-keys)
8985             (let ((out               (assoc-ref outputs "out"))
8986                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
8987               ;; GNOME Weather needs the typelib files of GTK+, Pango etc at runtime.
8988               (wrap-program (string-append out "/bin/gnome-weather")
8989                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
8990               #t))))))
8991    (synopsis "Weather monitoring for GNOME desktop")
8992    (description "GNOME Weather is a small application that allows you to
8993 monitor the current weather conditions for your city, or anywhere in the
8994 world.")
8995    (home-page "https://wiki.gnome.org/Apps/Weather")
8996    (license license:gpl2+)))
8997
8998 (define-public gnome
8999   (package
9000     (name "gnome")
9001     (version (package-version gnome-shell))
9002     (source #f)
9003     (build-system trivial-build-system)
9004     (arguments '(#:builder (begin (mkdir %output) #t)))
9005     (propagated-inputs
9006      ;; TODO: Add or remove packages according to:
9007      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
9008      `(
9009      ;; GNOME-Core-OS-Services
9010        ("accountsservice" ,accountsservice)
9011        ("network-manager" ,network-manager)
9012        ("packagekit" ,packagekit)
9013        ("upower" ,upower)
9014      ;; GNOME-Core-Shell
9015        ("adwaita-icon-theme" ,adwaita-icon-theme)
9016        ("gdm" ,gdm)
9017        ("glib-networking" ,glib-networking)
9018        ("gnome-backgrounds" ,gnome-backgrounds)
9019        ("gnome-bluetooth" ,gnome-bluetooth)
9020        ("gnome-color-manager" ,gnome-color-manager)
9021        ("gnome-control-center" ,gnome-control-center)
9022        ("gnome-desktop" ,gnome-desktop)
9023        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
9024        ("gnome-initial-setup" ,gnome-initial-setup)
9025        ("gnome-keyring" ,gnome-keyring)
9026        ("gnome-menus" ,gnome-menus)
9027        ("gnome-session" ,gnome-session)
9028        ("gnome-settings-daemon" ,gnome-settings-daemon)
9029        ("gnome-shell-extensions" ,gnome-shell-extensions)
9030        ("gnome-shell" ,gnome-shell)
9031        ("gnome-themes-extra" ,gnome-themes-extra)
9032        ("gnome-user-docs" ,gnome-user-docs)
9033        ("gnome-user-share" ,gnome-user-share)
9034        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9035        ("gvfs" ,gvfs)
9036        ("mutter" ,mutter)
9037        ("orca" ,orca)
9038        ("rygel" ,rygel)
9039        ("sushi" ,sushi)
9040      ;; GNOME-Core-Utilities
9041        ("baobab" ,baobab)
9042        ("cheese" ,cheese)
9043        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9044        ;; only works on x86_64, so exclude it on other architectures.
9045        ,@(if (string-prefix? "x86_64" (%current-system))
9046              `(("eog" ,eog))
9047              '())
9048        ("epiphany" ,epiphany)
9049        ("evince" ,evince)
9050        ("file-roller" ,file-roller)
9051        ("gedit" ,gedit)
9052        ("gnome-boxes" ,gnome-boxes)
9053        ("gnome-calculator" ,gnome-calculator)
9054        ("gnome-calendar" ,gnome-calendar)
9055        ("gnome-characters" ,gnome-characters)
9056        ("gnome-clocks" ,gnome-clocks)
9057        ("gnome-contacts" ,gnome-contacts)
9058        ("gnome-disk-utility" ,gnome-disk-utility)
9059        ("gnome-font-viewer" ,gnome-font-viewer)
9060        ("gnome-maps" ,gnome-maps)
9061        ; TODO: ("gnome-music" ,gnome-music)
9062        ; TODO: ("gnome-photos" ,gnome-photos)
9063        ("gnome-screenshot" ,gnome-screenshot)
9064        ("gnome-system-monitor" ,gnome-system-monitor)
9065        ("gnome-terminal" ,gnome-terminal)
9066        ("gnome-weather" ,gnome-weather)
9067        ("nautilus" ,nautilus)
9068        ("simple-scan" ,simple-scan)
9069        ("totem" ,totem)
9070        ("yelp" ,yelp)
9071      ;; Others
9072        ("hicolor-icon-theme" ,hicolor-icon-theme)
9073        ("gnome-online-accounts" ,gnome-online-accounts)
9074
9075        ;; Packages not part of GNOME proper but that are needed for a good
9076        ;; experience.  See <https://bugs.gnu.org/39646>.
9077        ;; XXX: Find out exactly which ones are needed and why.
9078        ("font-cantarell"            ,font-cantarell)
9079        ("font-dejavu"               ,font-dejavu)
9080        ("at-spi2-core"              ,at-spi2-core)
9081        ("dbus"                      ,dbus)
9082        ("dconf"                     ,dconf)
9083        ("desktop-file-utils"        ,desktop-file-utils)
9084        ("gnome-default-applications" ,gnome-default-applications)
9085        ("gnome-themes-standard"     ,gnome-themes-standard)
9086        ("gst-plugins-base"          ,gst-plugins-base)
9087        ("gst-plugins-good"          ,gst-plugins-good)
9088        ("gucharmap"                 ,gucharmap)
9089        ("pinentry-gnome3"           ,pinentry-gnome3)
9090        ("pulseaudio"                ,pulseaudio)
9091        ("shared-mime-info"          ,shared-mime-info)
9092        ("system-config-printer"     ,system-config-printer)
9093        ("xdg-user-dirs"             ,xdg-user-dirs)
9094        ("yelp"                      ,yelp)
9095        ("zenity"                    ,zenity)))
9096     (synopsis "The GNU desktop environment")
9097     (home-page "https://www.gnome.org/")
9098     (description
9099      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9100 applications for browsing the web, editing text and images, creating
9101 documents and diagrams, playing media, scanning, and much more.")
9102     (license license:gpl2+)))
9103
9104 (define-public byzanz
9105   ;; The last stable release of Byzanz was in 2011, but there have been many
9106   ;; useful commits made to the Byzanz repository since then that it would be
9107   ;; silly to use such an old release.
9108   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9109     (package
9110       (name "byzanz")
9111       (version (string-append "0.2-1." (string-take commit 7)))
9112       (source (origin
9113                 (method git-fetch)
9114                 (uri (git-reference
9115                       (url "https://git.gnome.org/browse/byzanz")
9116                       (commit commit)))
9117                 (file-name (string-append name "-" version "-checkout"))
9118                 (sha256
9119                  (base32
9120                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9121       (build-system glib-or-gtk-build-system)
9122       (arguments
9123        '(#:phases
9124          (modify-phases %standard-phases
9125            (add-before 'bootstrap 'build-without-Werror
9126              (lambda _
9127                ;; The build system cleverly detects that we're not building from
9128                ;; a release tarball and turns on -Werror for GCC.
9129                ;; Unsurprisingly, there is a warning during compilation that
9130                ;; causes the build to fail unnecessarily, so we remove the flag.
9131                (substitute* '("configure.ac")
9132                  (("-Werror") ""))
9133                #t)))))
9134       (native-inputs
9135        `(("autoconf" ,autoconf)
9136          ("automake" ,automake)
9137          ("gnome-common" ,gnome-common)
9138          ("intltool" ,intltool)
9139          ("libtool" ,libtool)
9140          ("pkg-config" ,pkg-config)
9141          ("which" ,which)))
9142       (inputs
9143        `(("glib" ,glib)
9144          ("gstreamer" ,gstreamer)
9145          ("gst-plugins-base" ,gst-plugins-base)
9146          ("gtk+" ,gtk+)))
9147       (synopsis "Desktop recording program")
9148       (description "Byzanz is a simple desktop recording program with a
9149 command-line interface.  It can record part or all of an X display for a
9150 specified duration and save it as a GIF encoded animated image file.")
9151       (home-page "https://git.gnome.org/browse/byzanz")
9152       (license license:gpl2+))))
9153
9154 (define-public authenticator
9155   (package
9156     (name "authenticator")
9157     (version "3.32.2")
9158     (source
9159      (origin
9160        (method git-fetch)
9161        (uri (git-reference
9162              (url "https://gitlab.gnome.org/World/Authenticator")
9163              (commit version)))
9164        (file-name (git-file-name name version))
9165        (sha256
9166         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9167     (build-system meson-build-system)
9168     (arguments
9169      `(#:glib-or-gtk? #t
9170        #:phases
9171        (modify-phases %standard-phases
9172          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9173            (lambda* (#:key inputs outputs #:allow-other-keys)
9174              (let ((prog (string-append (assoc-ref outputs "out")
9175                                         "/bin/authenticator"))
9176                    (pylib (string-append (assoc-ref outputs "out")
9177                                          "/lib/python"
9178                                          ,(version-major+minor
9179                                            (package-version python))
9180                                          "/site-packages")))
9181                (wrap-program prog
9182                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
9183                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9184                #t))))))
9185     (native-inputs
9186      `(("desktop-file-utils" ,desktop-file-utils)
9187        ("gettext" ,gettext-minimal)
9188        ("glib:bin" ,glib "bin")
9189        ("gobject-introspection" ,gobject-introspection)
9190        ("gtk+:bin" ,gtk+ "bin")
9191        ("pkg-config" ,pkg-config)))
9192     (inputs
9193      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9194        ("gtk+" ,gtk+)
9195        ("libhandy" ,libhandy-0.0)
9196        ("libsecret" ,libsecret)
9197        ("python-beautifulsoup4" ,python-beautifulsoup4)
9198        ("python-pillow" ,python-pillow)
9199        ("python-pyfavicon" ,python-pyfavicon)
9200        ("python-pygobject" ,python-pygobject)
9201        ("python-pyotp" ,python-pyotp)
9202        ("python-pyzbar" ,python-pyzbar)
9203        ("yoyo-migrations" ,yoyo-migrations)
9204        ("zbar" ,zbar)))
9205     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9206     (synopsis "Two-factor authentication application built for GNOME")
9207     (description
9208      "Authenticator is a two-factor authentication (2FA) application built for
9209 the GNOME desktop environment.
9210
9211 Features:
9212
9213 @itemize
9214 @item QR code scanner
9215 @item Beautiful UI
9216 @item Huge database of more than 560 supported services
9217 @item Keep your PIN tokens secure by locking the application with a password
9218 @item Automatically fetch an image for services using their favicon
9219 @item The possibility to add new services
9220 @end itemize")
9221     (license license:gpl3+)))
9222
9223 (define-public gsound
9224   (package
9225     (name "gsound")
9226     (version "1.0.2")
9227     (source (origin
9228               (method url-fetch)
9229               (uri (string-append "mirror://gnome/sources/" name "/"
9230                                   (version-major+minor version) "/"
9231                                   name "-" version ".tar.xz"))
9232               (sha256
9233                (base32
9234                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
9235     (build-system glib-or-gtk-build-system)
9236     (native-inputs
9237      `(("pkg-config" ,pkg-config)
9238        ("gobject-introspection" ,gobject-introspection)
9239        ("vala" ,vala)))
9240     (inputs
9241      `(("glib" ,glib)
9242        ("libcanberra" ,libcanberra)))
9243     (home-page "https://wiki.gnome.org/Projects/GSound")
9244     (synopsis "GObject wrapper for libcanberra")
9245     (description
9246      "GSound is a small library for playing system sounds.  It's designed to be
9247 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9248 library.")
9249     (license license:lgpl2.1+)))
9250
9251 (define-public libzapojit
9252   (package
9253     (name "libzapojit")
9254     (version "0.0.3")
9255     (source (origin
9256               (method url-fetch)
9257               (uri (string-append "mirror://gnome/sources/" name "/"
9258                                   (version-major+minor version) "/"
9259                                   name "-" version ".tar.xz"))
9260               (sha256
9261                (base32
9262                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9263     (build-system gnu-build-system)
9264     (native-inputs
9265      `(("gobject-introspection" ,gobject-introspection)
9266        ("intltool" ,intltool)
9267        ("pkg-config" ,pkg-config)))
9268     (inputs
9269      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9270        ("json-glib" ,json-glib)
9271        ("rest" ,rest)))
9272     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9273     (synopsis "Library for accessing SkyDrive and Hotmail")
9274     (description
9275      "Libzapojit is a GLib-based library for accessing online service APIs of
9276 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9277     (license license:lgpl2.1+)))
9278
9279 (define-public gnome-clocks
9280   (package
9281     (name "gnome-clocks")
9282     (version "3.34.0")
9283     (source (origin
9284               (method url-fetch)
9285               (uri (string-append "mirror://gnome/sources/" name "/"
9286                                   (version-major+minor version) "/"
9287                                   name "-" version ".tar.xz"))
9288               (sha256
9289                (base32
9290                 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
9291     (build-system meson-build-system)
9292     (arguments
9293      '(#:glib-or-gtk? #t
9294        #:phases
9295        (modify-phases %standard-phases
9296          (add-after 'unpack 'skip-gtk-update-icon-cache
9297            ;; Don't create 'icon-theme.cache'.
9298            (lambda _
9299              (substitute* "build-aux/post-install.py"
9300                (("gtk-update-icon-cache") "true"))
9301              #t)))))
9302     (native-inputs
9303      `(("vala" ,vala)
9304        ("pkg-config" ,pkg-config)
9305        ("glib" ,glib "bin")             ; for glib-compile-resources
9306        ("desktop-file-utils" ,desktop-file-utils)
9307        ("gettext" ,gettext-minimal)
9308        ("itstool" ,itstool)))
9309     (inputs
9310      `(("glib" ,glib)
9311        ("gtk+" ,gtk+)
9312        ("gsound" ,gsound)
9313        ("geoclue" ,geoclue)
9314        ("geocode-glib" ,geocode-glib)
9315        ("libgweather" ,libgweather)
9316        ("gnome-desktop" ,gnome-desktop)))
9317     (home-page "https://wiki.gnome.org/Apps/Clocks")
9318     (synopsis "GNOME's clock application")
9319     (description
9320      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9321 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9322     (license license:gpl3+)))
9323
9324 (define-public gnome-calendar
9325   (package
9326     (name "gnome-calendar")
9327     (version "3.34.2")
9328     (source (origin
9329               (method url-fetch)
9330               (uri (string-append "mirror://gnome/sources/" name "/"
9331                                   (version-major+minor version) "/"
9332                                   name "-" version ".tar.xz"))
9333               (sha256
9334                (base32
9335                 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
9336     (build-system meson-build-system)
9337     (arguments
9338      '(#:glib-or-gtk? #t
9339        ;; gnome-calendar has to be installed before the tests can be run
9340        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9341        #:tests? #f
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/meson/meson_post_install.py"
9348                (("gtk-update-icon-cache") "true"))
9349              #t)))))
9350     (native-inputs
9351      `(("gettext" ,gettext-minimal)
9352        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9353        ("pkg-config" ,pkg-config)))
9354     (inputs
9355      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9356        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9357        ("libdazzle" ,libdazzle)
9358        ("libedataserverui" ,evolution-data-server)
9359        ("libgweather" ,libgweather)
9360        ("geoclue" ,geoclue)))
9361     (propagated-inputs
9362      `(("evolution-data-server" ,evolution-data-server)))
9363     (home-page "https://wiki.gnome.org/Apps/Calendar")
9364     (synopsis "GNOME's calendar application")
9365     (description
9366      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9367 desktop.  It supports multiple calendars, month, week and year view.")
9368     (license license:gpl3+)))
9369
9370 (define-public gnome-todo
9371   (package
9372     (name "gnome-todo")
9373     (version "3.28.1")
9374     (source (origin
9375               (method url-fetch)
9376               (uri (string-append "mirror://gnome/sources/" name "/"
9377                                   (version-major+minor version) "/"
9378                                   name "-" version ".tar.xz"))
9379               (sha256
9380                (base32
9381                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))
9382               (patches
9383                (search-patches "gnome-todo-delete-esource-duplicate.patch"))))
9384     (build-system meson-build-system)
9385     (arguments
9386      '(#:glib-or-gtk? #t
9387        #:phases (modify-phases %standard-phases
9388                   (add-after
9389                       'install 'wrap-gnome-todo
9390                     (lambda* (#:key inputs outputs #:allow-other-keys)
9391                       (let ((out               (assoc-ref outputs "out"))
9392                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9393                             (python-path       (getenv "PYTHONPATH")))
9394                         (wrap-program (string-append out "/bin/gnome-todo")
9395                           ;; XXX: gi plugins are broken.
9396                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
9397                           ;; For plugins.
9398                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9399                           `("PYTHONPATH" ":" prefix (,python-path))))
9400                       #t)))))
9401     (native-inputs
9402      `(("gettext" ,gettext-minimal)
9403        ("gobject-introspection" ,gobject-introspection)
9404        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9405        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
9406        ("pkg-config" ,pkg-config)))
9407     (inputs
9408      `(("rest" ,rest)                   ; For Todoist plugin
9409        ("json-glib" ,json-glib)         ; For Todoist plugin
9410        ("libedataserverui" ,evolution-data-server)
9411        ("libical" ,libical)
9412        ("libpeas" ,libpeas)
9413        ("python-pygobject" ,python-pygobject)
9414        ("evolution-data-server" ,evolution-data-server)
9415        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9416        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9417     (home-page "https://wiki.gnome.org/Apps/Todo")
9418     (synopsis "GNOME's ToDo Application")
9419     (description
9420      "GNOME To Do is a simplistic personal task manager designed to perfectly
9421 fit the GNOME desktop.")
9422     (license license:gpl3+)))
9423
9424 (define-public gnome-dictionary
9425   (package
9426     (name "gnome-dictionary")
9427     (version "3.26.1")
9428     (source (origin
9429               (method url-fetch)
9430               (uri (string-append "mirror://gnome/sources/" name "/"
9431                                   (version-major+minor version) "/"
9432                                   name "-" version ".tar.xz"))
9433               (sha256
9434                (base32
9435                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
9436     (build-system meson-build-system)
9437     (arguments '(#:glib-or-gtk? #t
9438                  #:phases (modify-phases %standard-phases
9439                             (add-after 'unpack 'patch-install-script
9440                               (lambda _
9441                                 ;; This script attempts to compile glib schemas
9442                                 ;; and create an empty MIME database.  We do
9443                                 ;; that elsewhere, so prevent it from running.
9444                                 (substitute* "build-aux/post-install.sh"
9445                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
9446                                 #t)))))
9447     (native-inputs
9448      `(("glib:bin" ,glib "bin")
9449        ("gobject-introspection" ,gobject-introspection)
9450        ("intltool" ,intltool)
9451        ("itstool" ,itstool)
9452        ("pkg-config" ,pkg-config)
9453        ("xmllint" ,libxml2)))
9454     (inputs
9455      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9456        ("gtk+" ,gtk+)))
9457     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9458     (synopsis "Look up words in dictionary sources")
9459     (description
9460      "GNOME Dictionary can look for the definition or translation of a word in
9461 existing databases over the internet.")
9462     (license license:gpl3+)))
9463
9464 (define-public gnome-tweaks
9465   (package
9466     (name "gnome-tweaks")
9467     (version "3.34.0")
9468     (source (origin
9469               (method url-fetch)
9470               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9471                                   (version-major+minor version) "/"
9472                                   "gnome-tweaks-" version ".tar.xz"))
9473               (patches
9474                (list (search-patch "gnome-tweaks-search-paths.patch")))
9475               (sha256
9476                (base32
9477                 "0l2j42ba7v866iknygamnkiq7igh0fjvq92r93cslvvfnkx2ccq0"))))
9478     (build-system meson-build-system)
9479     (arguments
9480      `(#:glib-or-gtk? #t
9481        #:configure-flags '("-Dlocalstatedir=/tmp"
9482                            "-Dsysconfdir=/tmp")
9483        #:imported-modules ((guix build python-build-system)
9484                            ,@%meson-build-system-modules)
9485        #:phases
9486        (modify-phases %standard-phases
9487          (add-after 'unpack 'skip-gtk-update-icon-cache
9488            ;; Don't create 'icon-theme.cache'.
9489            (lambda _
9490              (substitute* "meson-postinstall.py"
9491                (("gtk-update-icon-cache") "true"))
9492              #t))
9493          (add-after 'install 'wrap
9494            (@@ (guix build python-build-system) wrap))
9495          (add-after 'wrap 'wrap-gi-typelib
9496            (lambda* (#:key inputs outputs #:allow-other-keys)
9497              (let ((out               (assoc-ref outputs "out"))
9498                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9499                (wrap-program (string-append out "/bin/gnome-tweaks")
9500                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
9501              #t)))))
9502     (native-inputs
9503      `(("intltool" ,intltool)
9504        ("pkg-config" ,pkg-config)))
9505     (inputs
9506      `(("gnome-desktop" ,gnome-desktop)
9507        ("gtk+" ,gtk+)
9508        ("gobject-introspection" ,gobject-introspection)
9509        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9510        ("libhandy" ,libhandy-0.0)
9511        ("libnotify" ,libnotify)
9512        ("libsoup" ,libsoup)
9513        ("nautilus" ,nautilus)
9514        ("python" ,python)
9515        ("python-pygobject" ,python-pygobject)))
9516     (synopsis "Customize advanced GNOME 3 options")
9517     (home-page "https://wiki.gnome.org/Apps/Tweaks")
9518     (description
9519      "GNOME Tweaks allows adjusting advanced configuration settings in
9520 GNOME 3.  This includes things like the fonts used in user interface elements,
9521 alternative user interface themes, changes in window management behavior,
9522 GNOME Shell appearance and extension, etc.")
9523     (license license:gpl3+)))
9524
9525 (define-public gnome-shell-extensions
9526   (package
9527     (name "gnome-shell-extensions")
9528     (version "3.34.2")
9529     (source (origin
9530               (method url-fetch)
9531               (uri (string-append "mirror://gnome/sources/" name "/"
9532                                   (version-major+minor version)  "/"
9533                                   name "-" version ".tar.xz"))
9534               (sha256
9535                (base32
9536                 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
9537     (build-system meson-build-system)
9538     (arguments
9539      '(#:configure-flags '("-Dextension_set=all")))
9540     (native-inputs
9541      `(("glib:bin" ,glib "bin")
9542        ("intltool" ,intltool)
9543        ("pkg-config" ,pkg-config)))
9544     (propagated-inputs
9545      `(("glib" ,glib)))
9546     (synopsis "Extensions for GNOME Shell")
9547     (description "GNOME Shell extensions modify and extend GNOME Shell
9548 functionality and behavior.")
9549     (home-page "https://extensions.gnome.org/")
9550     (license license:gpl3+)))
9551
9552 (define-public arc-theme
9553   (package
9554     (name "arc-theme")
9555     (version "20201013")
9556     (source (origin
9557               (method git-fetch)
9558               (uri (git-reference
9559                     (url "https://github.com/jnsh/arc-theme")
9560                     (commit version)))
9561               (file-name (git-file-name name version))
9562               (sha256
9563                (base32
9564                 "1x2l1mwjx68dwf3jb1i90c1q8nqsl1wf2zggcn8im6590k5yv39s"))))
9565     (build-system gnu-build-system)
9566     (arguments
9567      '(#:configure-flags
9568        (list "--disable-cinnamon")
9569        #:phases
9570        (modify-phases %standard-phases
9571          ;; autogen.sh calls configure at the end of the script.
9572          (replace 'bootstrap
9573            (lambda _ (invoke "autoreconf" "-vfi")))
9574          (add-before 'build 'set-home   ;placate Inkscape
9575            (lambda _
9576              (setenv "HOME" (getcwd))
9577              #t)))))
9578     (native-inputs
9579      `(("autoconf" ,autoconf)
9580        ("automake" ,automake)
9581        ("glib" ,glib "bin")             ; for glib-compile-resources
9582        ("gnome-shell" ,gnome-shell)
9583        ("gtk+" ,gtk+)
9584        ("inkscape" ,inkscape)
9585        ("optipng" ,optipng)
9586        ("pkg-config" ,pkg-config)
9587        ("sassc" ,sassc/libsass-3.5)))
9588     (synopsis "A flat GTK+ theme with transparent elements")
9589     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
9590 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
9591 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
9592     (home-page "https://github.com/horst3180/arc-theme")
9593     ;; No "or later" language found.
9594     (license license:gpl3+)))
9595
9596 (define-public faba-icon-theme
9597   (package
9598     (name "faba-icon-theme")
9599     (version "4.3")
9600     (source
9601      (origin
9602        (method git-fetch)
9603        (uri (git-reference
9604              (url "https://github.com/snwh/faba-icon-theme")
9605              (commit (string-append "v" version))))
9606        (file-name (git-file-name name version))
9607        (sha256
9608         (base32 "0xh6ppr73p76z60ym49b4d0liwdc96w41cc5p07d48hxjsa6qd6n"))))
9609     (build-system meson-build-system)
9610     (arguments
9611      `(#:phases
9612        (modify-phases %standard-phases
9613          (add-before 'configure 'disable-post-install
9614            (lambda _
9615              (substitute* "meson.build"
9616                (("meson.add_install_script.*") "")))))))
9617     (native-inputs
9618      `(("autoconf" ,autoconf)
9619        ("automake" ,automake)))
9620     (synopsis "Faba icon theme")
9621     (description
9622      "Faba is a minimal icon set used as a basis for other themes such as
9623 Moka")
9624     (home-page "https://snwh.org/moka")
9625     (license (list license:lgpl3+
9626                    license:cc-by-sa4.0))))
9627
9628 (define-public moka-icon-theme
9629   (package
9630     (inherit faba-icon-theme)
9631     (name "moka-icon-theme")
9632     (version "5.4.0")
9633     (source
9634      (origin
9635        (method git-fetch)
9636        (uri (git-reference
9637              (url "https://github.com/snwh/moka-icon-theme")
9638              (commit (string-append "v" version))))
9639        (file-name (git-file-name name version))
9640        (sha256
9641         (base32 "015l02im4mha5z91dbchxf6xkp66d346bg3xskwg0rh3lglhjsrd"))))
9642     (propagated-inputs
9643      ;; Moka is based on Faba by using it as a fallback icon set instead of
9644      ;; bundling it, so we need to add it as a propagated input.
9645      `(("faba-icon-theme" ,faba-icon-theme)))
9646     (synopsis "Moka icon theme")
9647     (description "Moka is a stylized desktop icon set, designed to be clear,
9648 simple and consistent.")
9649     (license (list license:gpl3+
9650                    license:cc-by-sa4.0))))
9651
9652 (define-public arc-icon-theme
9653   (package
9654     (name "arc-icon-theme")
9655     (version "20161122")
9656     (source
9657      (origin
9658        (method git-fetch)
9659        (uri (git-reference
9660              (url "https://github.com/horst3180/arc-icon-theme")
9661              (commit version)))
9662        (file-name (git-file-name name version))
9663        (sha256
9664         (base32 "1ch3hp08qri93510hypzz6m2x4xgg2h15wvnhjwh1x1s1b7jvxjd"))))
9665     (build-system gnu-build-system)
9666     (arguments
9667      `(#:phases
9668        (modify-phases %standard-phases
9669          (add-after 'unpack 'disable-configure-during-bootstrap
9670            (lambda _
9671              (substitute* "autogen.sh"
9672                (("^\"\\$srcdir/configure\".*") ""))
9673              #t)))))
9674     (native-inputs
9675      `(("autoconf" ,autoconf)
9676        ("automake" ,automake)))
9677     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
9678     (propagated-inputs
9679      `(("moka-icon-theme" ,moka-icon-theme)))
9680     (synopsis "Arc icon theme")
9681     (description "The Arc icon theme provides a set of icons matching the
9682 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
9683 the Moka icon theme.")
9684     (home-page "https://github.com/horst3180/arc-icon-theme")
9685     (license license:gpl3+)))
9686
9687 (define-public folks
9688   (package
9689     (name "folks")
9690     (version "0.13.1")
9691     (source (origin
9692               (method url-fetch)
9693               (uri (string-append
9694                     "mirror://gnome/sources/folks/"
9695                     (version-major+minor version) "/"
9696                     "folks-" version ".tar.xz"))
9697               (sha256
9698                (base32
9699                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
9700     (build-system meson-build-system)
9701     (arguments
9702      '(#:phases
9703        (modify-phases %standard-phases
9704          (add-after 'unpack 'skip-gtk-update-icon-cache
9705            ;; Don't create 'icon-theme.cache'.
9706            (lambda _
9707              (substitute* "meson_post_install.py"
9708                (("gtk-update-icon-cache") "true"))
9709              #t)))))
9710     (inputs
9711      `(("bdb" ,bdb)
9712        ("dbus-glib" ,dbus-glib)
9713        ("evolution-data-server" ,evolution-data-server)
9714        ("glib" ,glib)
9715        ("libgee" ,libgee)
9716        ("readline" ,readline)
9717        ("telepathy-glib" ,telepathy-glib)))
9718     (native-inputs
9719      `(("glib:bin" ,glib "bin")
9720        ("gobject-introspection" ,gobject-introspection)
9721        ("intltool" ,intltool)
9722        ("pkg-config" ,pkg-config)
9723        ("vala" ,vala)))
9724     (synopsis "Library to aggregate data about people")
9725     (description "Libfolks is a library that aggregates information about people
9726 from multiple sources (e.g., Telepathy connection managers for IM contacts,
9727 Evolution Data Server for local contacts, libsocialweb for web service contacts,
9728 etc.) to create metacontacts.  It's written in Vala, which generates C code when
9729 compiled.")
9730     (home-page "https://wiki.gnome.org/Projects/Folks")
9731     (license license:lgpl2.1+)))
9732
9733 (define-public gfbgraph
9734   (package
9735     (name "gfbgraph")
9736     (version "0.2.4")
9737     (source (origin
9738               (method url-fetch)
9739               (uri (string-append
9740                     "mirror://gnome/sources/gfbgraph/"
9741                     (version-major+minor version) "/"
9742                     "gfbgraph-" version ".tar.xz"))
9743               (sha256
9744                (base32
9745                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
9746     (build-system glib-or-gtk-build-system)
9747     (arguments
9748      `(#:tests? #f                      ; tests appear to require the network
9749        #:configure-flags '("--disable-static"
9750                            "--enable-gtk-doc"
9751                            "--enable-introspection")))
9752     (native-inputs
9753      `(("gobject-introspection" ,gobject-introspection)
9754        ("gtk-doc" ,gtk-doc)
9755        ("pkg-config" ,pkg-config)
9756
9757        ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
9758        ("autoconf" ,autoconf)
9759        ("automake" ,automake)
9760        ("libtool" ,libtool)
9761        ("which" ,which)))
9762     (inputs
9763      `(("json-glib" ,json-glib)
9764        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9765        ("rest" ,rest)))
9766     (synopsis "GLib/GObject wrapper for the Facebook API")
9767     (description "This library allows you to use the Facebook API from
9768 GLib/GObject code.")
9769     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
9770     (license license:lgpl2.1+)))
9771
9772 (define-public libgnomekbd
9773   (package
9774     (name "libgnomekbd")
9775     (version "3.26.1")
9776     (source (origin
9777               (method url-fetch)
9778               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
9779                                   (version-major+minor version)  "/"
9780                                   "libgnomekbd-" version ".tar.xz"))
9781               (sha256
9782                (base32
9783                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
9784     (build-system gnu-build-system)
9785     (native-inputs
9786      `(("pkg-config" ,pkg-config)
9787        ("glib" ,glib "bin")
9788        ("intltool" ,intltool)))
9789     (propagated-inputs
9790      ;; Referred to in .h files and .pc.
9791      `(("glib" ,glib)
9792        ("gtk+" ,gtk+)
9793        ("libxklavier" ,libxklavier)))
9794     (home-page "https://www.gnome.org")
9795     (synopsis "GNOME keyboard configuration library")
9796     (description
9797      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
9798 environment, which can notably display keyboard layouts.")
9799     (license license:lgpl2.0+)))
9800
9801 ;;; This package is no longer maintained:
9802 ;;; https://wiki.gnome.org/Attic/LibUnique
9803 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
9804 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
9805 (define-public libunique
9806   (package
9807     (name "libunique")
9808     (version "3.0.2")
9809     (source (origin
9810               (method url-fetch)
9811               (uri (string-append "mirror://gnome/sources/" name "/"
9812                                   (version-major+minor version)  "/"
9813                                   name "-" version ".tar.xz"))
9814               (sha256
9815                (base32
9816                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
9817     (build-system glib-or-gtk-build-system)
9818     (arguments
9819      `(#:configure-flags '("--disable-static"
9820                            "--disable-dbus" ; use gdbus
9821                            "--enable-introspection")))
9822     (native-inputs
9823      `(("pkg-config" ,pkg-config)
9824        ("gobject-introspection" ,gobject-introspection)
9825        ("glib:bin" ,glib "bin")
9826        ("gtk-doc" ,gtk-doc)))
9827     (propagated-inputs
9828      ;; Referred to in .h files and .pc.
9829      `(("gtk+" ,gtk+)))
9830     (home-page "https://wiki.gnome.org/Attic/LibUnique")
9831     (synopsis "Library for writing single instance applications")
9832     (description
9833      "Libunique is a library for writing single instance applications.  If you
9834 launch a single instance application twice, the second instance will either just
9835 quit or will send a message to the running instance.  Libunique makes it easy to
9836 write this kind of application, by providing a base class, taking care of all
9837 the IPC machinery needed to send messages to a running instance, and also
9838 handling the startup notification side.")
9839     (license license:lgpl2.1+)))
9840
9841 (define-public gnome-calculator
9842   (package
9843     (name "gnome-calculator")
9844     (version "3.34.1")
9845     (source
9846      (origin
9847        (method url-fetch)
9848        (uri (string-append "mirror://gnome/sources/" name "/"
9849                            (version-major+minor version) "/"
9850                            name "-" version ".tar.xz"))
9851        (sha256
9852         (base32
9853          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
9854     (build-system meson-build-system)
9855     (arguments '(#:glib-or-gtk? #t))
9856     (native-inputs
9857      `(("gettext" ,gettext-minimal)
9858        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9859        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9860        ("itstool" ,itstool)
9861        ("vala" ,vala)
9862        ("pkg-config" ,pkg-config)))
9863     (inputs
9864      `(("glib" ,glib)
9865        ("gtksourceview" ,gtksourceview)
9866        ("libgee" ,libgee)
9867        ("libsoup" ,libsoup)
9868        ("libxml2" ,libxml2)
9869        ("mpc" ,mpc)
9870        ("mpfr" ,mpfr)))
9871     (home-page "https://wiki.gnome.org/Apps/Calculator")
9872     (synopsis "Desktop calculator")
9873     (description
9874      "Calculator is an application that solves mathematical equations and
9875 is suitable as a default application in a Desktop environment.")
9876     (license license:gpl3)))
9877
9878 (define-public xpad
9879   (package
9880     (name "xpad")
9881     (version "5.1.0")
9882     (source
9883      (origin
9884        (method url-fetch)
9885        (uri (string-append "https://launchpad.net/xpad/trunk/"
9886                            version "/+download/"
9887                            name "-" version ".tar.bz2"))
9888        (sha256
9889         (base32
9890          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
9891     (build-system gnu-build-system)
9892     (native-inputs
9893      `(("autoconf" ,autoconf)
9894        ("automake" ,automake)
9895        ("gtk+:bin" ,gtk+ "bin")
9896        ("intltool" ,intltool)
9897        ("pkg-config" ,pkg-config)))
9898     (inputs
9899      `(("gtksourceview" ,gtksourceview-3)
9900        ("libsm" ,libsm)))
9901     (home-page "https://wiki.gnome.org/Apps/Xpad")
9902     (synopsis "Virtual sticky note")
9903     (description
9904      "Xpad is a sticky note that strives to be simple, fault tolerant,
9905 and customizable.  Xpad consists of independent pad windows, each is
9906 basically a text box in which notes can be written.")
9907     (license license:gpl3+)))
9908
9909 (define-public gucharmap
9910   (let ((unicode-files
9911          '(("Blocks.txt"
9912             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
9913            ("DerivedAge.txt"
9914             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
9915            ("NamesList.txt"
9916             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
9917            ("Scripts.txt"
9918             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
9919            ("UnicodeData.txt"
9920             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
9921            ("Unihan.zip"
9922             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
9923     (package
9924       (name "gucharmap")
9925       (version "12.0.1")
9926       (source
9927        (origin
9928          (method url-fetch)
9929          (uri (string-append "mirror://gnome/sources/" name "/"
9930                              (version-major+minor version) "/"
9931                              name "-" version ".tar.xz"))
9932          (sha256
9933           (base32
9934            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
9935       (build-system glib-or-gtk-build-system)
9936       (arguments
9937        `(#:modules ((ice-9 match)
9938                     (guix build glib-or-gtk-build-system)
9939                     (guix build utils))
9940          #:configure-flags
9941          (list "--with-unicode-data=../unicode-data")
9942          #:phases
9943          (modify-phases %standard-phases
9944            (add-after 'unpack 'prepare-unicode-data
9945              (lambda* (#:key inputs #:allow-other-keys)
9946                (mkdir-p "../unicode-data")
9947                (with-directory-excursion "../unicode-data"
9948                  (for-each (match-lambda
9949                              ((file _)
9950                               (install-file (assoc-ref inputs file) ".")))
9951                            ',unicode-files))
9952                #t)))))
9953       (native-inputs
9954        `(("desktop-file-utils" ,desktop-file-utils)
9955          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
9956          ("gobject-introspection" ,gobject-introspection)
9957          ("intltool" ,intltool)
9958          ("itstool" ,itstool)
9959          ("pkg-config" ,pkg-config)
9960          ,@(map (match-lambda
9961                   ((file hash)
9962                    `(,file
9963                      ,(origin
9964                         (method url-fetch)
9965                         (uri (string-append
9966                               "http://www.unicode.org/Public/12.0.0/ucd/"
9967                               file))
9968                         (sha256 (base32 hash))))))
9969                 unicode-files)
9970          ("unzip" ,unzip)))
9971       (inputs
9972        `(("gtk+" ,gtk+)
9973          ("xmllint" ,libxml2)))
9974       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
9975       (synopsis "Unicode character picker and font browser")
9976       (description
9977        "This program allows you to browse through all the available Unicode
9978 characters and categories for the installed fonts, and to examine their
9979 detailed properties.  It is an easy way to find the character you might
9980 only know by its Unicode name or code point.")
9981       (license license:gpl3+))))
9982
9983 (define-public bluefish
9984   (package
9985     (name "bluefish")
9986     (version "2.2.12")
9987     (source
9988      (origin
9989        (method url-fetch)
9990        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
9991                            "bluefish-" version ".tar.gz"))
9992        (sha256
9993         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
9994     (build-system gnu-build-system)
9995     (native-inputs
9996      `(("desktop-file-utils" ,desktop-file-utils)
9997        ("intltool" ,intltool)
9998        ("pkg-config" ,pkg-config)))
9999     (inputs
10000      `(("enchant" ,enchant)
10001        ("gtk+" ,gtk+)
10002        ("python" ,python-wrapper)
10003        ("xmllint" ,libxml2)
10004        ("gucharmap" ,gucharmap)))
10005     (home-page "http://bluefish.openoffice.nl")
10006     (synopsis "Web development studio")
10007     (description
10008      "Bluefish is an editor aimed at programmers and web developers,
10009 with many options to write web sites, scripts and other code.
10010 Bluefish supports many programming and markup languages.")
10011     (license license:gpl3+)))
10012
10013 (define-public gnome-system-monitor
10014   (package
10015     (name "gnome-system-monitor")
10016     (version "3.32.1")
10017     (source
10018      (origin
10019        (method url-fetch)
10020        (uri (string-append "mirror://gnome/sources/" name "/"
10021                            (version-major+minor version) "/"
10022                            name "-" version ".tar.xz"))
10023        (sha256
10024         (base32
10025          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
10026     (build-system meson-build-system)
10027     (arguments
10028      '(#:glib-or-gtk? #t
10029        #:configure-flags '("-Dsystemd=false")))
10030     (native-inputs
10031      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
10032        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
10033        ("intltool" ,intltool)
10034        ("itstool" ,itstool)
10035        ("libgtop" ,libgtop)
10036        ("polkit" ,polkit)
10037        ("pkg-config" ,pkg-config)))
10038     (inputs
10039      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
10040        ("gtk+" ,gtk+)
10041        ("gtkmm" ,gtkmm)
10042        ("librsvg" ,librsvg)
10043        ("libxml2" ,libxml2)
10044        ("libwnck" ,libwnck)))
10045     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10046     (synopsis "Process viewer and system resource monitor for GNOME")
10047     (description
10048      "GNOME System Monitor is a GNOME process viewer and system monitor with
10049 an attractive, easy-to-use interface.  It has features, such as a tree view
10050 for process dependencies, icons for processes, the ability to hide processes,
10051 graphical time histories of CPU/memory/swap usage and the ability to
10052 kill/reinice processes.")
10053     (license license:gpl2+)))
10054
10055 (define-public python-pyatspi
10056   (package
10057     (name "python-pyatspi")
10058     (version "2.34.0")
10059     (source (origin
10060               (method url-fetch)
10061               (uri (string-append
10062                     "mirror://gnome/sources/pyatspi/"
10063                     (version-major+minor version)
10064                     "/pyatspi-" version ".tar.xz"))
10065               (sha256
10066                (base32
10067                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10068     (build-system gnu-build-system)
10069     (arguments
10070      `(#:phases
10071        (modify-phases %standard-phases
10072          (add-before 'build 'fix-atk-load
10073            (lambda _
10074              (substitute* "pyatspi/__init__.py"
10075                (("from gi.repository import Atspi")
10076                 "gi.require_version('Gtk', '3.0')
10077 from gi.repository import Gtk
10078 from gi.repository import Atspi"))
10079              #t)))))
10080     (native-inputs
10081      `(("pkg-config" ,pkg-config)))
10082     (inputs
10083      `(("python" ,python)))
10084     (propagated-inputs
10085      `(("python-pygobject" ,python-pygobject)))
10086     (synopsis "Python client bindings for D-Bus AT-SPI")
10087     (home-page "https://wiki.linuxfoundation.org/accessibility\
10088 /atk/at-spi/at-spi_on_d-bus")
10089     (description
10090      "This package includes a python client library for the AT-SPI D-Bus
10091 accessibility infrastructure.")
10092     (license license:lgpl2.0)
10093     (properties '((upstream-name . "pyatspi")))))
10094
10095 (define-public python2-pyatspi
10096   (package
10097     (inherit python-pyatspi)
10098     (name "python2-pyatspi")
10099     (inputs
10100      `(("python" ,python-2)))
10101     (propagated-inputs
10102      `(("python-pygobject" ,python2-pygobject)))))
10103
10104 (define-public orca
10105   (package
10106     (name "orca")
10107     (version "3.34.1")
10108     (source (origin
10109               (method url-fetch)
10110               (uri (string-append
10111                     "mirror://gnome/sources/" name "/"
10112                     (version-major+minor version) "/"
10113                     name "-" version ".tar.xz"))
10114               (sha256
10115                (base32
10116                 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
10117     (build-system glib-or-gtk-build-system)
10118     (arguments
10119      '(#:phases
10120        (modify-phases %standard-phases
10121          (add-before 'configure 'qualify-xkbcomp
10122            (lambda* (#:key inputs #:allow-other-keys)
10123              (let ((xkbcomp (string-append
10124                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10125                (substitute* "src/orca/orca.py"
10126                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10127              #t))
10128          (add-after 'install 'wrap-orca
10129            (lambda* (#:key outputs #:allow-other-keys)
10130              (let* ((out  (assoc-ref outputs "out"))
10131                     (prog (string-append out "/bin/orca")))
10132                (wrap-program prog
10133                  `("GI_TYPELIB_PATH" ":" prefix
10134                    (,(getenv "GI_TYPELIB_PATH")))
10135                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10136                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10137                  `("PYTHONPATH" ":" prefix
10138                    (,(getenv "PYTHONPATH")))))
10139              #t)))))
10140     (native-inputs
10141      `(("intltool" ,intltool)
10142        ("itstool" ,itstool)
10143        ("pkg-config" ,pkg-config)
10144        ("xmllint" ,libxml2)))
10145     (inputs
10146      `(("at-spi2-atk" ,at-spi2-atk)
10147        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10148        ("gstreamer" ,gstreamer)
10149        ("gst-plugins-base" ,gst-plugins-base)
10150        ("gst-plugins-good" ,gst-plugins-good)
10151        ("gtk+" ,gtk+)
10152        ("python" ,python)
10153        ("python-pygobject" ,python-pygobject)
10154        ("python-pyatspi" ,python-pyatspi)
10155        ("python-speechd" ,speech-dispatcher)
10156        ("xkbcomp" ,xkbcomp)))
10157     (synopsis
10158      "Screen reader for individuals who are blind or visually impaired")
10159     (home-page "https://wiki.gnome.org/Projects/Orca")
10160     (description
10161      "Orca is a screen reader that provides access to the graphical desktop
10162 via speech and refreshable braille.  Orca works with applications and toolkits
10163 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10164     (license license:lgpl2.1+)))
10165
10166 (define-public gspell
10167   (package
10168     (name "gspell")
10169     (version "1.8.2")
10170     (source (origin
10171               (method url-fetch)
10172               (uri (string-append "mirror://gnome/sources/" name "/"
10173                                   (version-major+minor version) "/"
10174                                   name "-" version ".tar.xz"))
10175               (sha256
10176                (base32
10177                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10178               (patches (search-patches "gspell-dash-test.patch"))))
10179     (build-system glib-or-gtk-build-system)
10180     (arguments
10181      '(#:configure-flags (list "--enable-vala")
10182        #:phases
10183        (modify-phases %standard-phases
10184          (add-before 'check 'pre-check
10185            (lambda* (#:key inputs #:allow-other-keys)
10186              ;; Tests require a running X server.
10187              (system "Xvfb :1 &")
10188              (setenv "DISPLAY" ":1")
10189
10190              ;; For the missing /etc/machine-id.
10191              (setenv "DBUS_FATAL_WARNINGS" "0")
10192
10193              ;; Allow Enchant and its Aspell backend to find the en_US
10194              ;; dictionary.
10195              (setenv "ASPELL_DICT_DIR"
10196                      (string-append (assoc-ref inputs "aspell-dict-en")
10197                                     "/lib/aspell"))
10198              #t)))))
10199     (inputs
10200      `(("gtk+" ,gtk+)
10201        ("glib" ,glib)
10202        ("iso-codes" ,iso-codes)))
10203     (native-inputs
10204      `(("glib" ,glib "bin")
10205        ("gobject-introspection" ,gobject-introspection)
10206        ("pkg-config" ,pkg-config)
10207        ("vala" ,vala)                             ;for VAPI, needed by Geary
10208        ("xmllint" ,libxml2)
10209
10210        ;; For tests.
10211        ("aspell-dict-en" ,aspell-dict-en)
10212        ("xorg-server" ,xorg-server-for-tests)))
10213     (propagated-inputs
10214      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
10215     (home-page "https://wiki.gnome.org/Projects/gspell")
10216     (synopsis "GNOME's alternative spell checker")
10217     (description
10218      "gspell provides a flexible API to add spell-checking to a GTK+
10219 application.  It provides a GObject API, spell-checking to text entries and
10220 text views, and buttons to choose the language.")
10221     (license license:gpl2+)))
10222
10223 (define-public gnome-planner
10224   (package
10225     (name "gnome-planner")
10226     (version "0.14.6")
10227     (source (origin
10228               (method url-fetch)
10229               (uri (string-append "mirror://gnome/sources/planner/"
10230                                   (version-major+minor version) "/planner-"
10231                                   version ".tar.xz"))
10232               (sha256
10233                (base32
10234                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10235     (build-system glib-or-gtk-build-system)
10236     (arguments
10237      ;; Disable the Python bindings because the Planner program functions
10238      ;; without them, and (as of 2017-06-13) we have not packaged all of
10239      ;; packages that are necessary for building the Python bindings.
10240      `(#:configure-flags
10241        (list "--disable-python"
10242              ,@(if (string=? "aarch64-linux" (%current-system))
10243                    '("--build=aarch64-unknown-linux-gnu")
10244                    '()))))
10245     (inputs
10246      `(("libgnomecanvas" ,libgnomecanvas)
10247        ("libgnomeui" ,libgnomeui)
10248        ("libglade" ,libglade)
10249        ("gnome-vfs" ,gnome-vfs)
10250        ("gconf" ,gconf)
10251        ("libxml2" ,libxml2)
10252        ("libxslt" ,libxslt)
10253        ("gtk+" ,gtk+)
10254        ("glib" ,glib)))
10255     (native-inputs
10256      `(("intltool" ,intltool)
10257        ("scrollkeeper" ,scrollkeeper)
10258        ("pkg-config" ,pkg-config)))
10259     (home-page "https://wiki.gnome.org/Apps/Planner")
10260     (synopsis "Project management software for the GNOME desktop")
10261     (description
10262      "GNOME Planner is a project management tool based on the Work Breakdown
10263 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10264 the resources, tasks, and constraints that you define, Planner generates
10265 various views into a project.  For example, Planner can show a Gantt chart of
10266 the project.  It can show a detailed summary of tasks including their
10267 duration, cost, and current progress.  It can also show a report of resource
10268 utilization that highlights under-utilized and over-utilized resources.  These
10269 views can be printed as PDF or PostScript files, or exported to HTML.")
10270     (license license:gpl2+)))
10271
10272 (define-public lollypop
10273   (package
10274     (name "lollypop")
10275     (version "1.4.2")
10276     (source
10277      (origin
10278        (method url-fetch)
10279        (uri (string-append "https://adishatz.org/lollypop/"
10280                            "lollypop-" version ".tar.xz"))
10281        (sha256
10282         (base32 "1hfl68gkvqy5kxlmrsalz78mw1bs1yvqvy2rhg7pzgwiazsdvwzz"))))
10283     (build-system meson-build-system)
10284     (arguments
10285      `(#:imported-modules
10286        (,@%meson-build-system-modules
10287         (guix build python-build-system))
10288        #:modules
10289        ((guix build meson-build-system)
10290         ((guix build python-build-system) #:prefix python:)
10291         (guix build utils))
10292        #:glib-or-gtk? #t
10293        #:tests? #f                      ; no test suite
10294        #:phases
10295        (modify-phases %standard-phases
10296          (add-after 'install 'wrap-program
10297            (lambda* (#:key outputs #:allow-other-keys)
10298              (let ((out               (assoc-ref outputs "out"))
10299                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10300                (wrap-program (string-append out "/bin/lollypop")
10301                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10302              #t))
10303          (add-after 'install 'wrap-python
10304            (assoc-ref python:%standard-phases 'wrap)))))
10305     (native-inputs
10306      `(("intltool" ,intltool)
10307        ("itstool" ,itstool)
10308        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10309        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10310        ("pkg-config" ,pkg-config)))
10311     (inputs
10312      `(("gobject-introspection" ,gobject-introspection)
10313        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10314        ("gst-plugins-base" ,gst-plugins-base)
10315        ("libnotify" ,libnotify)
10316        ("libsecret" ,libsecret)
10317        ("libhandy" ,libhandy)
10318        ("libsoup" ,libsoup)
10319        ("python" ,python)
10320        ("python-beautifulsoup4" ,python-beautifulsoup4)
10321        ("python-gst" ,python-gst)
10322        ("python-pil" ,python-pillow)
10323        ("python-pycairo" ,python-pycairo)
10324        ("python-pygobject" ,python-pygobject)
10325        ("python-pylast" ,python-pylast)
10326        ("totem-pl-parser" ,totem-pl-parser)
10327        ("webkitgtk" ,webkitgtk)))
10328     (propagated-inputs
10329      `(;; gst-plugins-base is required to start Lollypop,
10330        ;; the others are required to play streaming.
10331        ("gst-plugins-good" ,gst-plugins-good)
10332        ("gst-plugins-ugly" ,gst-plugins-ugly)))
10333     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10334     (synopsis "GNOME music playing application")
10335     (description
10336      "Lollypop is a music player designed to play well with GNOME desktop.
10337 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10338 from artists and tracks from the web.  It also fetches cover artworks
10339 automatically and it can stream songs from online music services and charts.")
10340     (license license:gpl3+)))
10341
10342 (define-public gnome-video-effects
10343   (package
10344     (name "gnome-video-effects")
10345     (version "0.5.0")
10346     (source (origin
10347               (method url-fetch)
10348               (uri (string-append "mirror://gnome/sources/" name "/"
10349                                   (version-major+minor version) "/" name "-"
10350                                   version ".tar.xz"))
10351               (sha256
10352                (base32
10353                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10354     (build-system meson-build-system)
10355     (native-inputs
10356      `(("gettext" ,gettext-minimal)
10357        ("pkg-config" ,pkg-config)))
10358     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10359     (synopsis "Video effects for Cheese and other GNOME applications")
10360     (description
10361      "A collection of GStreamer video filters and effects to be used in
10362 photo-booth-like software, such as Cheese.")
10363     (license license:gpl2+)))
10364
10365 (define-public cheese
10366   (package
10367     (name "cheese")
10368     (version "3.38.0")
10369     (source (origin
10370               (method url-fetch)
10371               (uri (string-append "mirror://gnome/sources/" name "/"
10372                                   (version-major+minor version) "/" name "-"
10373                                   version ".tar.xz"))
10374               (sha256
10375                (base32
10376                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))))
10377     (arguments
10378      `(#:glib-or-gtk? #t
10379        ;; Tests require GDK.
10380        #:tests? #f
10381        #:phases
10382        (modify-phases %standard-phases
10383          (add-after 'unpack 'skip-gtk-update-icon-cache
10384            (lambda _
10385              ;; Don't create 'icon-theme.cache'
10386              (substitute* "meson_post_install.py"
10387                (("gtk-update-icon-cache") (which "true")))
10388              #t))
10389          (add-after 'unpack 'patch-docbook-xml
10390            (lambda* (#:key inputs #:allow-other-keys)
10391              ;; Avoid a network connection attempt during the build.
10392              (substitute* '("docs/reference/cheese.xml"
10393                             "docs/reference/cheese-docs.xml")
10394                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10395                 (string-append (assoc-ref inputs "docbook-xml")
10396                                "/xml/dtd/docbook/docbookx.dtd")))
10397              #t))
10398          (add-after 'install 'wrap-cheese
10399            (lambda* (#:key inputs outputs #:allow-other-keys)
10400              (let ((out             (assoc-ref outputs "out"))
10401                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10402                (wrap-program (string-append out "/bin/cheese")
10403                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10404              #t)))))
10405     (build-system meson-build-system)
10406     (native-inputs
10407      `(("docbook-xsl" ,docbook-xsl)
10408        ("docbook-xml" ,docbook-xml-4.3)
10409        ("glib:bin" ,glib "bin")
10410        ("gtk-doc" ,gtk-doc)
10411        ("intltool" ,intltool)
10412        ("itstool" ,itstool)
10413        ("libxml2" ,libxml2)
10414        ("libxslt" ,libxslt)
10415        ("pkg-config" ,pkg-config)
10416        ("vala" ,vala)))
10417     (propagated-inputs
10418      `(("gnome-video-effects" ,gnome-video-effects)
10419        ("clutter" ,clutter)
10420        ("clutter-gst" ,clutter-gst)
10421        ("clutter-gtk" ,clutter-gtk)
10422        ("libcanberra" ,libcanberra)
10423        ("gdk-pixbuf" ,gdk-pixbuf)
10424        ("glib" ,glib)
10425        ("gstreamer" ,gstreamer)))
10426     (inputs
10427      `(("gnome-desktop" ,gnome-desktop)
10428        ("gobject-introspection" ,gobject-introspection)
10429        ("gst-plugins-base" ,gst-plugins-base)
10430        ("gst-plugins-bad" ,gst-plugins-bad)
10431        ("gtk+" ,gtk+)
10432        ("libx11" ,libx11)
10433        ("libxtst" ,libxtst)))
10434     (home-page "https://wiki.gnome.org/Apps/Cheese")
10435     (synopsis "Webcam photo booth software for GNOME")
10436     (description
10437      "Cheese uses your webcam to take photos and videos.  Cheese can also
10438 apply fancy special effects and lets you share the fun with others.")
10439     (license license:gpl2+)))
10440
10441 (define-public passwordsafe
10442   (package
10443     (name "passwordsafe")
10444     (version "3.99.2")
10445     (source
10446      (origin
10447        (method git-fetch)
10448        (uri (git-reference
10449              (url "https://gitlab.gnome.org/World/PasswordSafe")
10450              (commit version)))
10451        (file-name (git-file-name name version))
10452        (sha256
10453         (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf"))))
10454     (build-system meson-build-system)
10455     (arguments
10456      `(#:glib-or-gtk? #t
10457        #:phases
10458        (modify-phases %standard-phases
10459          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10460            (lambda* (#:key outputs #:allow-other-keys)
10461              (let ((prog (string-append (assoc-ref outputs "out")
10462                                         "/bin/gnome-passwordsafe"))
10463                    (pylib (string-append (assoc-ref outputs "out")
10464                                          "/lib/python"
10465                                          ,(version-major+minor
10466                                            (package-version python))
10467                                          "/site-packages")))
10468                (wrap-program prog
10469                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10470                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10471                #t))))))
10472     (native-inputs
10473      `(("desktop-file-utils" ,desktop-file-utils)
10474        ("gettext" ,gettext-minimal)
10475        ("glib:bin" ,glib "bin")
10476        ("gobject-introspection" ,gobject-introspection)
10477        ("gtk+:bin" ,gtk+ "bin")
10478        ("pkg-config" ,pkg-config)))
10479     (inputs
10480      `(("glib" ,glib)
10481        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10482        ("gtk+" ,gtk+)
10483        ("libhandy" ,libhandy-0.0)
10484        ("libpwquality" ,libpwquality)
10485        ("python-pygobject" ,python-pygobject)
10486        ("python-pykeepass" ,python-pykeepass)))
10487     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10488     (synopsis "Password manager for the GNOME desktop")
10489     (description
10490      "Password Safe is a password manager which makes use of the KeePass v4
10491 format.  It integrates perfectly with the GNOME desktop and provides an easy
10492 and uncluttered interface for the management of password databases.")
10493     (license license:gpl3+)))
10494
10495 (define-public sound-juicer
10496   (package
10497     (name "sound-juicer")
10498     (version "3.24.0")
10499     (source
10500      (origin
10501        (method url-fetch)
10502        (uri (string-append "mirror://gnome/sources/" name "/"
10503                            (version-major+minor version) "/"
10504                            name "-" version ".tar.xz"))
10505        (sha256
10506         (base32
10507          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10508     (build-system glib-or-gtk-build-system)
10509     (native-inputs
10510      `(("desktop-file-utils" ,desktop-file-utils)
10511        ("intltool" ,intltool)
10512        ("itstool" ,itstool)
10513        ("pkg-config" ,pkg-config)
10514        ("xmllint" ,libxml2)))
10515     (inputs
10516      `(("gtk+" ,gtk+)
10517        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10518        ("gstreamer" ,gstreamer)
10519        ("gst-plugins-base" ,gst-plugins-base)
10520        ("gst-plugins-good" ,gst-plugins-good)
10521        ("iso-codes" ,iso-codes)
10522        ("libbrasero-media3" ,brasero)
10523        ("libcanberra" ,libcanberra)
10524        ("libdiscid" ,libdiscid)
10525        ("libmusicbrainz" ,libmusicbrainz)
10526        ("neon" ,neon)))
10527     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10528     (synopsis "Audio music cd ripper")
10529     (description "Sound Juicer extracts audio from compact discs and convert it
10530 into audio files that a personal computer or digital audio player can play.
10531 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10532 mp3, Ogg Vorbis and FLAC")
10533     (license license:gpl2+)))
10534
10535 (define-public soundconverter
10536   (package
10537     (name "soundconverter")
10538     (version "3.0.2")
10539     (source
10540      (origin
10541        (method url-fetch)
10542        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10543                            version "/+download/"
10544                            "soundconverter-" version ".tar.xz"))
10545
10546        (sha256
10547         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10548     (build-system glib-or-gtk-build-system)
10549     (arguments
10550      `(#:imported-modules ((guix build python-build-system)
10551                            (guix build glib-or-gtk-build-system)
10552                            ,@%gnu-build-system-modules)
10553
10554        #:modules ((guix build glib-or-gtk-build-system)
10555                   (guix build utils)
10556                   ((guix build gnu-build-system) #:prefix gnu:)
10557                   ((guix build python-build-system) #:prefix python:))
10558
10559        #:phases
10560        (modify-phases %standard-phases
10561          (add-after 'install 'wrap-soundconverter-for-python
10562            (assoc-ref python:%standard-phases 'wrap))
10563          (add-after 'install 'wrap-soundconverter
10564            (lambda* (#:key inputs outputs #:allow-other-keys)
10565              (let ((out               (assoc-ref outputs "out"))
10566                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10567                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10568                (wrap-program (string-append out "/bin/soundconverter")
10569                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10570                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10571              #t)))))
10572     (native-inputs
10573      `(("intltool" ,intltool)
10574        ("pkg-config" ,pkg-config)
10575        ("glib:bin" ,glib "bin")))
10576     (inputs
10577      `(("gtk+" ,gtk+)
10578        ("python" ,python)
10579        ("python-pygobject" ,python-pygobject)
10580        ("gstreamer" ,gstreamer)
10581        ("gst-plugins-base" ,gst-plugins-base)))
10582     (home-page "https://soundconverter.org/")
10583     (synopsis "Convert between audio formats with a graphical interface")
10584     (description
10585      "SoundConverter supports converting between many audio formats including
10586 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10587 configurable file renaming. ")
10588     (license license:gpl3)))
10589
10590 (define-public workrave
10591   (package
10592     (name "workrave")
10593     (version "1.10.42")
10594     (source
10595      (origin
10596        (method git-fetch)
10597        (uri (git-reference
10598              (url "https://github.com/rcaelers/workrave")
10599              (commit (string-append "v" (string-map
10600                                          (match-lambda (#\. #\_) (chr chr))
10601                                          version)))))
10602        (file-name (git-file-name name version))
10603        (sha256
10604         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
10605     (build-system glib-or-gtk-build-system)
10606     (arguments
10607      ;; The only tests are maintainer tests (in po/), which fail.
10608      `(#:tests? #f))
10609     (inputs `(("glib" ,glib)
10610               ("gtk+" ,gtk+)
10611               ("gdk-pixbuf" ,gdk-pixbuf)
10612               ("gtkmm" ,gtkmm)
10613               ("glibmm" ,glibmm)
10614               ("libx11" ,libx11)
10615               ("libxtst" ,libxtst)
10616               ("dconf" ,dconf)
10617               ("libice" ,libice)
10618               ("libsm" ,libsm)
10619               ("libxscrnsaver" ,libxscrnsaver)))
10620     (native-inputs `(("boost" ,boost)
10621                      ("pkg-config" ,pkg-config)
10622                      ("gettext" ,gettext-minimal)
10623                      ("autoconf" ,autoconf)
10624                      ("autoconf-archive" , autoconf-archive)
10625                      ("automake" ,automake)
10626                      ("libtool" ,libtool)
10627                      ("intltool" ,intltool)
10628                      ("gobject-introspection" ,gobject-introspection)
10629                      ("python3" ,python-3)
10630                      ("python-jinja2" ,python-jinja2)))
10631     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10632     (description
10633      "Workrave is a program that assists in the recovery and prevention of
10634 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10635 micro-pauses and rest breaks, and restricts you to your daily limit.")
10636     (home-page "http://www.workrave.org")
10637     (license license:gpl3+)))
10638
10639 (define-public ghex
10640   (package
10641     (name "ghex")
10642     (version "3.18.4")
10643     (source (origin
10644               (method url-fetch)
10645               (uri (string-append "mirror://gnome/sources/ghex/"
10646                                   (version-major+minor version) "/"
10647                                   "ghex-" version ".tar.xz"))
10648               (sha256
10649                (base32
10650                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10651     (build-system meson-build-system)
10652     (arguments
10653      '(#:glib-or-gtk? #t
10654        #:phases
10655        (modify-phases %standard-phases
10656          (add-after 'unpack 'skip-gtk-update-icon-cache
10657            ;; Don't create 'icon-theme.cache'.
10658            (lambda _
10659              (substitute* "meson_post_install.py"
10660                (("gtk-update-icon-cache") (which "true")))
10661              #t)))))
10662     (native-inputs
10663      `(("pkg-config" ,pkg-config)
10664        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
10665        ("gnome-common" ,gnome-common)
10666        ("which" ,which)
10667        ("intltool" ,intltool)
10668        ("yelp-tools" ,yelp-tools)
10669        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
10670     (inputs
10671      `(("atk" ,atk)
10672        ("gtk" ,gtk+)))
10673     (synopsis "GNOME hexadecimal editor")
10674     (description "The GHex program can view and edit files in two ways:
10675 hexadecimal or ASCII.  It is useful for editing binary files in general.")
10676     (home-page "https://wiki.gnome.org/Apps/Ghex")
10677     (license license:gpl2)))
10678
10679 (define-public libdazzle
10680   (package
10681     (name "libdazzle")
10682     (version "3.37.1")
10683     (source (origin
10684               (method url-fetch)
10685               (uri (string-append "mirror://gnome/sources/libdazzle/"
10686                                   (version-major+minor version) "/"
10687                                   "libdazzle-" version ".tar.xz"))
10688               (sha256
10689                (base32
10690                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
10691     (build-system meson-build-system)
10692     (arguments
10693      `(#:phases
10694        (modify-phases %standard-phases
10695          (add-before 'check 'pre-check
10696            (lambda _
10697              ;; Tests require a running X server.
10698              (system "Xvfb :1 &")
10699              (setenv "DISPLAY" ":1")
10700              #t)))))
10701     (native-inputs
10702      `(("glib" ,glib "bin")             ; glib-compile-resources
10703        ("pkg-config" ,pkg-config)
10704        ;; For tests.
10705        ("xorg-server" ,xorg-server-for-tests)))
10706     (inputs
10707      `(("glib" ,glib)
10708        ("gobject-introspection" ,gobject-introspection)
10709        ("gtk+" ,gtk+)
10710        ("vala" ,vala)))
10711     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
10712     (synopsis "Companion library to GObject and Gtk+")
10713     (description "The libdazzle library is a companion library to GObject and
10714 Gtk+.  It provides various features that the authors wish were in the
10715 underlying library but cannot for various reasons.  In most cases, they are
10716 wildly out of scope for those libraries.  In other cases, they are not quite
10717 generic enough to work for everyone.")
10718     (license license:gpl3+)))
10719
10720 (define-public evolution
10721   (package
10722     (name "evolution")
10723     (version "3.34.2")
10724     (source (origin
10725               (method url-fetch)
10726               (uri (string-append "mirror://gnome/sources/evolution/"
10727                                   (version-major+minor version) "/"
10728                                   "evolution-" version ".tar.xz"))
10729               (sha256
10730                (base32
10731                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))))
10732     (build-system cmake-build-system)
10733     (arguments
10734      `(#:imported-modules (,@%cmake-build-system-modules
10735                            (guix build glib-or-gtk-build-system))
10736        #:modules ((guix build cmake-build-system)
10737                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10738                   (guix build utils))
10739        #:configure-flags
10740        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
10741              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
10742                                           ; in four years and cannot be built.
10743        #:phases
10744        (modify-phases %standard-phases
10745          ;; The build system attempts to install user interface modules to the
10746          ;; output directory of the "evolution-data-server" package.  This
10747          ;; change redirects that change.
10748          (add-after 'unpack 'patch-ui-module-dir
10749            (lambda* (#:key outputs #:allow-other-keys)
10750              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
10751                (("\\$\\{edsuimoduledir\\}")
10752                 (string-append (assoc-ref outputs "out")
10753                                "/lib/evolution-data-server/ui-modules")))
10754              #t))
10755          (add-after 'install 'glib-or-gtk-compile-schemas
10756            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
10757          (add-after 'install 'glib-or-gtk-wrap
10758            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10759     (native-inputs
10760      `(("glib" ,glib "bin")             ; glib-mkenums
10761        ("pkg-config" ,pkg-config)
10762        ("intltool" ,intltool)
10763        ("itstool" ,itstool)))
10764     (inputs
10765      `(("enchant" ,enchant)
10766        ("evolution-data-server" ,evolution-data-server) ; must be the same version
10767        ("gcr" ,gcr)
10768        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10769        ("gnome-autoar" ,gnome-autoar)
10770        ("gnome-desktop" ,gnome-desktop)
10771        ("gspell" ,gspell)
10772        ("highlight" ,highlight)
10773        ("libcanberra" ,libcanberra)
10774        ("libgweather" ,libgweather)
10775        ("libnotify" ,libnotify)
10776        ("libsoup" ,libsoup)
10777        ("nss" ,nss)
10778        ("openldap" ,openldap)
10779        ("webkitgtk" ,webkitgtk)
10780        ("ytnef" ,ytnef)))
10781     (home-page "https://gitlab.gnome.org/GNOME/evolution")
10782     (synopsis "Manage your email, contacts and schedule")
10783     (description "Evolution is a personal information management application
10784 that provides integrated mail, calendaring and address book
10785 functionality.")
10786     ;; See COPYING for details.
10787     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
10788                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
10789                    license:lgpl2.1+))))  ; smime/lib/*
10790
10791 (define-public gthumb
10792   (package
10793     (name "gthumb")
10794     (version "3.8.2")
10795     (source (origin
10796               (method url-fetch)
10797               (uri (string-append "mirror://gnome/sources/gthumb/"
10798                                   (version-major+minor version) "/"
10799                                   "gthumb-" version ".tar.xz"))
10800               (sha256
10801                (base32
10802                 "15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
10803     (build-system meson-build-system)
10804     (arguments
10805      `(#:glib-or-gtk? #t
10806        #:configure-flags
10807        ;; Ensure the RUNPATH contains all installed library locations.
10808        (list (string-append "-Dc_link_args=-Wl,-rpath="
10809                             (assoc-ref %outputs "out")
10810                             "/lib/gthumb/extensions")
10811              (string-append "-Dcpp_link_args=-Wl,-rpath="
10812                             (assoc-ref %outputs "out")
10813                             "/lib/gthumb/extensions"))))
10814     (native-inputs
10815      `(("pkg-config" ,pkg-config)
10816        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10817        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
10818        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
10819        ("intltool" ,intltool)
10820        ("itstool" ,itstool)))
10821     (inputs
10822      `(("exiv2" ,exiv2)
10823        ("gtk" ,gtk+)
10824        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10825        ("gstreamer" ,gstreamer)
10826        ("clutter" ,clutter)
10827        ("clutter-gst" ,clutter-gst)
10828        ("clutter-gtk" ,clutter-gtk)
10829        ("libjpeg" ,libjpeg-turbo)
10830        ("libtiff" ,libtiff)
10831        ("libraw" ,libraw)))
10832     (home-page "https://wiki.gnome.org/Apps/Gthumb")
10833     (synopsis "GNOME image viewer and browser")
10834     (description "GThumb is an image viewer, browser, organizer, editor and
10835 advanced image management tool")
10836     (license license:gpl2+)))
10837
10838 (define-public terminator
10839   (package
10840     (name "terminator")
10841     (version "1.91")
10842     (source (origin
10843               (method url-fetch)
10844               (uri (string-append "https://launchpad.net/" name "/"
10845                                   "gtk3/" version "/" "+download/"
10846                                   name "-" version ".tar.gz"))
10847               (sha256
10848                (base32
10849                 "0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
10850     (build-system python-build-system)
10851     (native-inputs
10852      `(("intltool" ,intltool)
10853        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10854        ("gettext" ,gettext-minimal)
10855        ("pkg-config" ,pkg-config)))
10856     (inputs
10857      `(("cairo" ,cairo)
10858        ("gobject-introspection" ,gobject-introspection)
10859        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10860        ("python2-pycairo" ,python2-pycairo)
10861        ("python2-pygobject" ,python2-pygobject)
10862        ("python2-psutil" ,python2-psutil)
10863        ("vte" ,vte)))
10864     (arguments
10865      `(#:python ,python-2                          ; Python 3 isn't supported
10866        #:imported-modules ((guix build glib-or-gtk-build-system)
10867                            ,@%python-build-system-modules)
10868        #:modules ((guix build python-build-system)
10869                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10870                   (guix build utils))
10871        #:phases
10872        (modify-phases %standard-phases
10873          (add-after
10874           'install 'wrap-program
10875           (lambda* (#:key outputs #:allow-other-keys)
10876             (let ((prog (string-append (assoc-ref outputs "out")
10877                                        "/bin/terminator")))
10878               (wrap-program prog
10879                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
10880                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10881               #t)))
10882          (add-after 'wrap-program 'glib-or-gtk-wrap
10883            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10884     (home-page "https://gnometerminator.blogspot.com/")
10885     (synopsis "Store and run multiple GNOME terminals in one window")
10886     (description
10887      "Terminator allows you to run multiple GNOME terminals in a grid and
10888 +tabs, and it supports drag and drop re-ordering of terminals.")
10889     (license license:gpl2)))
10890
10891 (define-public libhandy
10892   (package
10893     (name "libhandy")
10894     (version "1.0.2")
10895     (source
10896      (origin
10897        (method git-fetch)
10898        (uri (git-reference
10899              (url "https://gitlab.gnome.org/GNOME/libhandy")
10900              (commit version)))
10901        (file-name (git-file-name name version))
10902        (sha256
10903         (base32 "1bmmkahshvlvpsnb7zp8bddv7i1h5k4p967n6kxh71g1vnj8x20m"))))
10904     (build-system meson-build-system)
10905     (arguments
10906      `(#:configure-flags
10907        '("-Dglade_catalog=enabled"
10908          "-Dgtk_doc=true")
10909        #:phases
10910        (modify-phases %standard-phases
10911          (add-before 'check 'pre-check
10912            (lambda _
10913              ;; Tests require a running X server.
10914              (system "Xvfb :1 &")
10915              (setenv "DISPLAY" ":1")
10916              #t)))))
10917     (inputs
10918      `(("gtk+" ,gtk+)
10919        ("glade" ,glade3)
10920        ("libxml2" ,libxml2)))
10921     (native-inputs
10922      `(("glib:bin" ,glib "bin")
10923        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
10924        ("vala" ,vala)
10925        ("gtk-doc" ,gtk-doc)
10926        ("pkg-config" ,pkg-config)
10927        ("gettext" ,gettext-minimal)
10928
10929        ;; Test suite dependencies.
10930        ("xorg-server" ,xorg-server-for-tests)
10931        ("hicolor-icon-theme" ,hicolor-icon-theme)))
10932     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
10933     (synopsis "Library full of GTK+ widgets for mobile phones")
10934     (description "The aim of the handy library is to help with developing user
10935 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
10936 for usage on small and big screens.")
10937     (license license:lgpl2.1+)))
10938
10939 (define-public libhandy-0.0
10940   (package
10941     (inherit libhandy)
10942     (version "0.0.13")
10943     (source
10944      (origin
10945        (method git-fetch)
10946        (uri (git-reference
10947              (url "https://gitlab.gnome.org/GNOME/libhandy")
10948              (commit (string-append "v" version))))
10949        (file-name (git-file-name "libhandy" version))
10950        (sha256
10951         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
10952     (arguments
10953      (substitute-keyword-arguments (package-arguments libhandy)
10954        ((#:configure-flags flags)
10955         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
10956
10957 (define-public libgit2-glib
10958   (package
10959     (name "libgit2-glib")
10960     (version "0.99.0.1")
10961     (source (origin
10962               (method url-fetch)
10963               (uri (string-append "mirror://gnome/sources/" name "/"
10964                                   (version-major+minor version) "/"
10965                                   name "-" version ".tar.xz"))
10966               (sha256
10967                (base32
10968                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
10969     (build-system meson-build-system)
10970     (native-inputs
10971      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
10972        ("gobject-introspection" ,gobject-introspection)
10973        ("pkg-config" ,pkg-config)
10974        ("python-pygobject" ,python-pygobject)
10975        ("python-wrapper" ,python-wrapper)
10976        ("vala" ,vala)))
10977     (inputs
10978      `(("glib" ,glib)
10979        ("libssh2" ,libssh2)))
10980     (propagated-inputs
10981      `(;; In Requires of libgit2-glib.pc.
10982        ("libgit2" ,libgit2)))
10983     (synopsis "GLib wrapper around the libgit2 Git access library")
10984     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
10985 access library.  It only implements the core plumbing functions, not really the
10986 higher level porcelain stuff.")
10987     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
10988     (license license:gpl2+)))
10989
10990 (define-public gitg
10991   (package
10992     (name "gitg")
10993     (version "3.32.1")
10994     (source (origin
10995               (method url-fetch)
10996               (uri (string-append "mirror://gnome/sources/" name "/"
10997                                   (version-major+minor version) "/"
10998                                   name "-" version ".tar.xz"))
10999               (sha256
11000                (base32
11001                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11002     (build-system meson-build-system)
11003     (arguments
11004      `(#:glib-or-gtk? #t
11005        #:phases
11006        (modify-phases %standard-phases
11007          (add-after 'unpack 'disable-post-install-partially
11008            (lambda _
11009              (substitute* "meson_post_install.py"
11010                (("'python'") ; there are no python sources to compile
11011                 (string-append "'" (which "true") "'"))
11012                (("gtk-update-icon-cache") (which "true")))
11013              #t))
11014          (add-after 'unpack 'fix-test-sources
11015            (lambda _
11016              (substitute* "tests/libgitg/test-commit.vala"
11017                (("/bin/bash") (which "bash")))
11018              #t))
11019          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11020            (lambda* (#:key outputs #:allow-other-keys)
11021              (let ((prog (string-append (assoc-ref outputs "out")
11022                                         "/bin/gitg")))
11023                (wrap-program prog
11024                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11025                #t))))))
11026     (inputs
11027      `(("glib" ,glib)
11028        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11029        ("gtk+" ,gtk+)
11030        ("gtkspell3" ,gtkspell3)
11031        ("gtksourceview" ,gtksourceview-3)
11032        ("json-glib" ,json-glib)
11033        ("libdazzle" ,libdazzle)
11034        ("libgee" ,libgee)
11035        ("libgit2-glib" ,libgit2-glib)
11036        ("libpeas" ,libpeas)
11037        ("libsecret" ,libsecret)
11038        ("libsoup" ,libsoup)
11039        ("libxml2" ,libxml2)))
11040     (native-inputs
11041      `(("glib:bin" ,glib "bin")
11042        ("gtk+:bin" ,gtk+ "bin")
11043        ("gobject-introspection" ,gobject-introspection)
11044        ("intltool" ,intltool)
11045        ("pkg-config" ,pkg-config)
11046        ("vala" ,vala)))
11047     (synopsis "Graphical user interface for git")
11048     (description
11049      "gitg is a graphical user interface for git.  It aims at being a small,
11050 fast and convenient tool to visualize the history of git repositories.
11051 Besides visualization, gitg also provides several utilities to manage your
11052 repository and commit your work.")
11053     (home-page "https://wiki.gnome.org/Apps/Gitg")
11054     (license license:gpl2+)))
11055
11056 (define-public gamin
11057   (package
11058     (name "gamin")
11059     (version "0.1.10")
11060     (source (origin
11061               (method url-fetch)
11062               (uri (string-append "mirror://gnome/sources/" name "/"
11063                                   (version-major+minor version) "/"
11064                                   name "-" version ".tar.bz2"))
11065               (sha256
11066                (base32
11067                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11068     (build-system gnu-build-system)
11069     (arguments
11070      `(#:phases
11071        (modify-phases %standard-phases
11072          (add-after 'unpack 'remove-deprecated-macro
11073            (lambda _
11074              (substitute* '("server/gam_node.c"
11075                             "server/gam_subscription.h"
11076                             "server/gam_node.h"
11077                             "server/gam_subscription.c")
11078                (("G_CONST_RETURN") "const"))
11079              #t)))))
11080     (inputs
11081      `(("glib" ,glib)))
11082     (native-inputs
11083      `(("intltool" ,intltool)
11084        ("pkg-config" ,pkg-config)))
11085     (home-page "https://people.gnome.org/~veillard/gamin/")
11086     (synopsis "File alteration monitor")
11087     (description
11088      "Gamin is a file and directory monitoring system defined to be a subset
11089 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11090 library which detects when a file or a directory has been modified.")
11091     (license license:gpl2+)))
11092
11093 (define-public gnome-mahjongg
11094   (package
11095     (name "gnome-mahjongg")
11096     (version "3.35.1")
11097     (source (origin
11098               (method git-fetch)
11099               (uri (git-reference
11100                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11101                     (commit version)))
11102               (file-name (git-file-name name version))
11103               (sha256
11104                (base32
11105                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11106     (build-system meson-build-system)
11107     (arguments
11108      `(#:glib-or-gtk? #t))
11109     (native-inputs
11110      `(("appstream-glib" ,appstream-glib)
11111        ("gettext" ,gettext-minimal)
11112        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11113        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11114        ("itstool" ,itstool)
11115        ("pkg-config" ,pkg-config)
11116        ("vala" ,vala)))
11117     (propagated-inputs
11118      `(("dconf" ,dconf)))
11119     (inputs
11120      `(("glib" ,glib)
11121        ("gtk+" ,gtk+)
11122        ("librsvg" ,librsvg)))
11123     (synopsis "Mahjongg tile-matching game")
11124     (description "GNOME Mahjongg is a game based on the classic Chinese
11125 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11126 and a high score table.")
11127     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11128     (license license:gpl2+)))
11129
11130 (define-public gnome-themes-extra
11131   (package
11132     (name "gnome-themes-extra")
11133     (version "3.28")
11134     (source
11135      (origin
11136        (method url-fetch)
11137        (uri (string-append "mirror://gnome/sources/" name "/"
11138                            (version-major+minor version) "/" name "-"
11139                            version ".tar.xz"))
11140        (sha256
11141         (base32
11142          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11143     (build-system gnu-build-system)
11144     (arguments
11145      '(#:configure-flags
11146        ;; Don't create 'icon-theme.cache'.
11147        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11148               (true      (string-append coreutils "/bin/true")))
11149          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11150     (native-inputs
11151      `(("glib:bin" ,glib "bin")
11152        ("intltool" ,intltool)
11153        ("pkg-config" ,pkg-config)))
11154     (inputs
11155      `(("glib" ,glib)
11156        ("gtk+" ,gtk+)
11157        ("gtk+-2" ,gtk+-2)
11158        ("librsvg" ,librsvg)
11159        ("libxml2" ,libxml2)))
11160     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11161     (synopsis "GNOME Extra Themes")
11162     (description "This package provides themes and related elements that don't
11163 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11164 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11165 index files needed for Adwaita to be used outside of GNOME.")
11166     (license license:lgpl2.1+)))
11167
11168 (define-public gnote
11169   (package
11170     (name "gnote")
11171     (version "3.38.0")
11172     (source
11173      (origin
11174        (method url-fetch)
11175        (uri (string-append "mirror://gnome/sources/" name "/"
11176                            (version-major+minor version)  "/"
11177                            "gnote-" version ".tar.xz"))
11178        (sha256
11179         (base32 "1ingbaw4d8vpjn083xvzqw7kz8z0k2bx7msk78pbzd68bwgkadpx"))))
11180     (build-system glib-or-gtk-build-system)
11181     (native-inputs
11182      `(("desktop-file-utils" ,desktop-file-utils)
11183        ("glib:bin" ,glib "bin")
11184        ("gobject-introspection" ,gobject-introspection)
11185        ("intltool" ,intltool)
11186        ("itstool" ,itstool)
11187        ("pkg-config" ,pkg-config)
11188        ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11189     (inputs
11190      `(("glibmm" ,glibmm)
11191        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11192        ("gspell" ,gspell)
11193        ("gtk+" ,gtk+)
11194        ("gtkmm" ,gtkmm)
11195        ("libsecret" ,libsecret)
11196        ("libuuid" ,util-linux "lib")
11197        ("libxml2" ,libxml2)
11198        ("libxslt" ,libxslt)))
11199     (synopsis "Note-taking application for the GNOME desktop")
11200     (description
11201      "Gnote is a note-taking application written for the GNOME desktop
11202 environment.")
11203     (home-page "https://wiki.gnome.org/Apps/Gnote")
11204     (license license:gpl3+)))
11205
11206 (define-public polari
11207   (package
11208     (name "polari")
11209     (version "3.36.3")
11210     (source (origin
11211               (method url-fetch)
11212               (uri (string-append "mirror://gnome/sources/polari/"
11213                                   (version-major+minor version)
11214                                   "/polari-" version ".tar.xz"))
11215               (sha256
11216                (base32
11217                 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
11218     (build-system meson-build-system)
11219     (arguments
11220      `(#:glib-or-gtk? #t
11221        #:phases
11222        (modify-phases %standard-phases
11223          (add-after 'unpack 'skip-gtk-update-icon-cache
11224            (lambda _
11225              (substitute* "meson/meson-postinstall.sh"
11226                (("gtk-update-icon-cache") (which "true")))
11227              #t))
11228          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11229            (lambda* (#:key outputs #:allow-other-keys)
11230              (let ((prog (string-append (assoc-ref outputs "out")
11231                                         "/bin/polari")))
11232                (wrap-program prog
11233                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11234                #t))))))
11235     (inputs
11236      `(("glib" ,glib)
11237        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11238        ("gspell" ,gspell)
11239        ("gtk+" ,gtk+)
11240        ("gjs" ,gjs)
11241        ("libsecret" ,libsecret)
11242        ("libsoup" ,libsoup)
11243        ("telepathy-glib" ,telepathy-glib)
11244        ("telepathy-logger" ,telepathy-logger)))
11245     (native-inputs
11246      `(("glib:bin" ,glib "bin")
11247        ("gobject-introspection" ,gobject-introspection)
11248        ("intltool" ,intltool)
11249        ("pkg-config" ,pkg-config)
11250        ("yelp-tools" ,yelp-tools)))
11251     (propagated-inputs
11252      `(("telepathy-idle" ,telepathy-idle)
11253        ("telepathy-mission-control" ,telepathy-mission-control)))
11254     (synopsis "Simple IRC Client")
11255     (description
11256      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11257 integrate seamlessly with the GNOME desktop.")
11258     (home-page "https://wiki.gnome.org/Apps/Polari")
11259     (license license:gpl2+)))
11260
11261 (define-public gnome-boxes
11262   (package
11263     (name "gnome-boxes")
11264     (version "3.36.6")
11265     (source
11266      (origin
11267        (method url-fetch)
11268        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11269                            (version-major+minor version) "/"
11270                            "gnome-boxes-" version ".tar.xz"))
11271        (sha256
11272         (base32 "0c3cw90xqqcpacc2z06ljs0gg8saxizfgjzg9alhpwgz3gl4c5pg"))))
11273     (build-system meson-build-system)
11274     (arguments
11275      '(#:glib-or-gtk? #t
11276        #:configure-flags (list "-Drdp=false"
11277                                (string-append "-Dc_link_args=-Wl,-rpath="
11278                                               (assoc-ref %outputs "out")
11279                                               "/lib/gnome-boxes"))))
11280     (native-inputs
11281      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
11282        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
11283        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11284        ("itstool" ,itstool)
11285        ("intltool" ,intltool)
11286        ("vala" ,vala)
11287        ("pkg-config" ,pkg-config)))
11288     (inputs
11289      `(("libarchive" ,libarchive)
11290        ("glib-networking" ,glib-networking) ;for TLS support
11291        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11292        ("gtk" ,gtk+)
11293        ("gtk-vnc" ,gtk-vnc)
11294        ("libosinfo" ,libosinfo)
11295        ("libsecret" ,libsecret)
11296        ("libsoup" ,libsoup)
11297        ("libusb" ,libusb)
11298        ("libvirt" ,libvirt)
11299        ("libvirt-glib" ,libvirt-glib)
11300        ("libxml" ,libxml2)
11301        ("spice-gtk" ,spice-gtk)
11302        ("sparql-query" ,sparql-query)
11303        ("vte" ,vte)
11304        ("webkitgtk" ,webkitgtk)
11305        ("tracker" ,tracker)
11306        ("libgudev" ,libgudev)))
11307     (home-page "https://wiki.gnome.org/Apps/Boxes")
11308     (synopsis "View, access, and manage remote and virtual systems")
11309     (description "GNOME Boxes is a simple application to view, access, and
11310 manage remote and virtual systems.  Note that this application requires the
11311 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11312 @command{info '(guix) Virtualization Services'} to learn how to configure
11313 these services on the Guix System.")
11314     (license (list
11315               ;; For data/icons/empty-boxes.png.
11316               license:cc-by2.0
11317               ;; For all others.
11318               license:lgpl2.0+))))
11319
11320 (define-public geary
11321   (package
11322     (name "geary")
11323     (version "3.34.1")
11324     (source (origin
11325               (method git-fetch)
11326               (uri (git-reference
11327                     (url "https://gitlab.gnome.org/GNOME/geary")
11328                     (commit version)))
11329               (file-name (git-file-name name version))
11330               (sha256
11331                (base32
11332                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
11333     (build-system meson-build-system)
11334     (arguments
11335      `(#:glib-or-gtk? #t
11336        #:phases (modify-phases %standard-phases
11337                   (add-after 'unpack 'disable-failing-tests
11338                     (lambda _
11339                       (substitute* "test/meson.build"
11340                         (("test\\('client-tests', geary_test_client_bin\\)")
11341                          ""))
11342                       #t))
11343                   (add-after 'unpack 'disable-postinstall-script
11344                     (lambda _
11345                       (substitute* "meson.build"
11346                         (("meson.add_install_script\\(\
11347 join_paths\\('build-aux', 'post_install.py'\\)\\)")
11348                          ""))
11349                       #t))
11350                   (add-before 'check 'setup-xvfb
11351                     (lambda _
11352                       (system "Xvfb :1 &")
11353                       (setenv "DISPLAY" ":1")
11354                       #t)))))
11355     (inputs
11356      `(("enchant" ,enchant)
11357        ("folks" ,folks)
11358        ("gcr" ,gcr)
11359        ("glib" ,glib)
11360        ("gmime" ,gmime-2.6)
11361        ("gnome-online-accounts:lib"
11362         ,gnome-online-accounts "lib")
11363        ("gspell" ,gspell)
11364        ("gtk+" ,gtk+)
11365        ("iso-codes" ,iso-codes)
11366        ("json-glib" ,json-glib)
11367        ("libcanberra" ,libcanberra)
11368        ("libgee" ,libgee)
11369        ("libhandy" ,libhandy-0.0)
11370        ("libpeas" ,libpeas)
11371        ("libsecret" ,libsecret)
11372        ("libunwind" ,libunwind)
11373        ("sqlite" ,sqlite)
11374        ("webkitgtk" ,webkitgtk)
11375        ("ytnef" ,ytnef)))
11376     (native-inputs
11377      `(("appstream-glib" ,appstream-glib)
11378        ("cmake-minimal" ,cmake-minimal)
11379        ("desktop-file-utils" ,desktop-file-utils)
11380        ("gettext" ,gettext-minimal)
11381        ("glib:bin" ,glib "bin")
11382        ("gobject-introspection" ,gobject-introspection)
11383        ("itstool" ,itstool)
11384        ("libarchive" ,libarchive)
11385        ("libxml2" ,libxml2)
11386        ("pkg-config" ,pkg-config)
11387        ("vala" ,vala)
11388        ("xvfb" ,xorg-server-for-tests)))
11389     (synopsis "GNOME email application built around conversations")
11390     (description
11391      "Geary collects related messages together into conversations,
11392 making it easy to find and follow your discussions.  Full-text and keyword
11393 search makes it easy to find the email you are looking for.  Geary's
11394 full-featured composer lets you send rich, styled text with images, links, and
11395 lists, but also send lightweight, easy to read text messages.  Geary
11396 automatically picks up your existing GNOME Online Accounts, and adding more is
11397 easy.  Geary has a clean, fast, modern interface that works like you want it
11398 to.")
11399     (home-page "https://wiki.gnome.org/Apps/Geary")
11400     (license (list
11401               ;; geary
11402               license:lgpl2.1+
11403               ;; icons
11404               license:cc-by3.0
11405               license:cc-by-sa3.0
11406               license:public-domain
11407               ;; snowball
11408               license:bsd-2))))
11409
11410 (define-public glabels
11411   (package
11412     (name "glabels")
11413     (version "3.4.1")
11414     (source
11415      (origin
11416        (method url-fetch)
11417        (uri (string-append "mirror://gnome/sources/" name "/"
11418                            (version-major+minor version)  "/"
11419                            "glabels-" version ".tar.xz"))
11420        (sha256
11421         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11422     (build-system glib-or-gtk-build-system)
11423     (native-inputs
11424      `(("gettext" ,gettext-minimal)
11425        ("glib:bin" ,glib "bin")
11426        ("intltool" ,intltool)
11427        ("itstool" ,itstool)
11428        ("pkg-config" ,pkg-config)))
11429     (inputs
11430      `(("gtk+" ,gtk+)
11431        ("librsvg" ,librsvg)
11432        ("libxml2" ,libxml2)))
11433     (home-page "https://glabels.org/")
11434     (synopsis "Program for creating labels and business cards")
11435     (description
11436      "gLabels is a program for creating labels and business cards.  It is
11437 designed to work with various laser/ink-jet peel-off label and business
11438 card sheets that you’ll find at most office supply stores.")
11439     (license license:gpl3+)))
11440
11441 ;; Version 3.38.0 is out but requires tepl>=5 which requires glib>=2.64.
11442 (define-public gnome-latex
11443   (package
11444     (name "gnome-latex")
11445     (version "3.36.0")
11446     (source
11447      (origin
11448        (method url-fetch)
11449        (uri (string-append "mirror://gnome/sources/" name "/"
11450                            (version-major+minor version)  "/"
11451                            "gnome-latex-" version ".tar.xz"))
11452        (sha256
11453         (base32 "1869kr1zhcp04mzbi67lwgk497w840dbbc7427i9yh9b9s7j6mqn"))))
11454     (build-system glib-or-gtk-build-system)
11455     (native-inputs
11456      `(("gettext" ,gettext-minimal)
11457        ("glib:bin" ,glib "bin")
11458        ("gobject-introspection" ,gobject-introspection)
11459        ("gtk-doc" ,gtk-doc)
11460        ("intltool" ,intltool)
11461        ("itstool" ,itstool)
11462        ("pkg-config" ,pkg-config)
11463        ("vala" ,vala)))
11464     (inputs
11465      `(("amtk" ,amtk)
11466        ("dconf" ,dconf)
11467        ("glib" ,glib)
11468        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11469        ("gspell" ,gspell)
11470        ("gtk+" ,gtk+)
11471        ("gtksourceview" ,gtksourceview)
11472        ("libgee" ,libgee)
11473        ("tepl" ,tepl)
11474        ("uchardet" ,uchardet)))
11475     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11476     (synopsis "LaTeX editor for the GNOME desktop")
11477     (description
11478      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11479 such as build tools, completion of LaTeX commands, structure navigation,
11480 symbol tables, document templates, project management, spell-checking, menus
11481 and toolbars.")
11482     (license license:gpl3+)))
11483
11484 (define-public setzer
11485   (package
11486     (name "setzer")
11487     (version "0.3.6")
11488     (source
11489      (origin
11490        (method git-fetch)
11491        (uri (git-reference
11492              (url "https://github.com/cvfosammmm/Setzer")
11493              (commit (string-append "v" version))))
11494        (file-name (git-file-name name version))
11495        (sha256
11496         (base32 "118gip6bv4mcsq4nrai7kl0vmqqbyzpsd4ky9vhxb1x2cvg048s8"))))
11497     (build-system meson-build-system)
11498     (arguments
11499      `(#:glib-or-gtk? #t
11500        #:phases
11501        (modify-phases %standard-phases
11502          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11503            (lambda* (#:key outputs #:allow-other-keys)
11504              (let ((prog (string-append (assoc-ref outputs "out")
11505                                         "/bin/setzer"))
11506                    (pylib (string-append (assoc-ref outputs "out")
11507                                          "/lib/python"
11508                                          ,(version-major+minor
11509                                            (package-version python))
11510                                          "/site-packages")))
11511                (wrap-program prog
11512                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
11513                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11514                #t))))))
11515     (native-inputs
11516      `(("desktop-file-utils" ,desktop-file-utils)
11517        ("gettext" ,gettext-minimal)
11518        ("glib:bin" ,glib "bin")
11519        ("gobject-introspection" ,gobject-introspection)
11520        ("gtk+:bin" ,gtk+ "bin")))
11521     (inputs
11522      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11523        ("gspell" ,gspell)
11524        ("gtk+" ,gtk+)
11525        ("gtksourceview" ,gtksourceview)
11526        ("pango" ,pango)
11527        ("poppler" ,poppler)
11528        ("python-pycairo" ,python-pycairo)
11529        ("python-pygobject" ,python-pygobject)
11530        ("python-pyxdg" ,python-pyxdg)
11531        ("webkitgtk" ,webkitgtk)
11532        ("xdg-utils" ,xdg-utils)))
11533     (home-page "https://www.cvfosammmm.org/setzer/")
11534     (synopsis "LaTeX editor written in Python with GTK+")
11535     (description
11536      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11537 GTK+.  It integrates well with the GNOME desktop environment.")
11538     (license license:gpl3+)))
11539
11540 (define-public libratbag
11541   (package
11542     (name "libratbag")
11543     (version "0.14")
11544     (source
11545      (origin
11546        (method git-fetch)
11547        (uri (git-reference
11548              (url "https://github.com/libratbag/libratbag")
11549              (commit (string-append "v" version))))
11550        (file-name (git-file-name name version))
11551        (sha256
11552         (base32 "1fpwp2sj8mf98bqasq2h8qwgprxi7k3iw33gcfid3d1lbyiacw0x"))))
11553     (build-system meson-build-system)
11554     (arguments
11555      `(#:configure-flags
11556        (list "-Dsystemd=false"
11557              "-Dlogind-provider=elogind")
11558        #:phases
11559        (modify-phases %standard-phases
11560          (add-after 'install 'wrap
11561            (lambda* (#:key inputs outputs #:allow-other-keys)
11562              (let* ((out (assoc-ref outputs "out"))
11563                     (site (string-append
11564                            "/lib/python"
11565                            ,(version-major+minor (package-version python))
11566                            "/site-packages"))
11567                     (evdev (string-append
11568                             (assoc-ref inputs "python-evdev") site))
11569                     (pygo (string-append
11570                            (assoc-ref inputs "python-pygobject") site))
11571                     (python-wrap
11572                      `("PYTHONPATH" = (,evdev ,pygo))))
11573                (wrap-program (string-append out "/bin/" "ratbagctl")
11574                  python-wrap)
11575                #t))))))
11576     (native-inputs
11577      `(("check" ,check)
11578        ("pkg-config" ,pkg-config)
11579        ("swig" ,swig)
11580        ("valgrind" ,valgrind)))
11581     (inputs
11582      `(("glib" ,glib)
11583        ("json-glib" ,json-glib)
11584        ("libevdev" ,libevdev)
11585        ("libsystemd" ,elogind)
11586        ("libunistring" ,libunistring)
11587        ("python-evdev" ,python-evdev)
11588        ("python-pygobject" ,python-pygobject)
11589        ("udev" ,eudev)))
11590     (home-page "https://github.com/libratbag/libratbag")
11591     (synopsis "DBus daemon and utility for configuring gaming mice")
11592     (description "libratbag provides @command{ratbagd}, a DBus daemon to
11593 configure input devices, mainly gaming mice.  The daemon provides a generic
11594 way to access the various features exposed by these mice and abstracts away
11595 hardware-specific and kernel-specific quirks.  There is also the
11596 @command{ratbagctl} command line interface for configuring devices.
11597
11598 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
11599 Steelseries.
11600
11601 The ratbagd DBus service can be enabled by adding the following service to
11602 your operating-system definition:
11603
11604   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11605     (license license:expat)))
11606
11607 (define-public piper
11608   (package
11609     (name "piper")
11610     (version "0.5.1")
11611     (source
11612      (origin
11613        (method git-fetch)
11614        (uri (git-reference
11615              (url "https://github.com/libratbag/piper")
11616              (commit version)))
11617        (sha256
11618         (base32 "1nfjnsiwg2rs6gkjsxzhr2708i6di149dgwq3cf6l12rxqpb8arj"))
11619        (file-name (git-file-name name version))))
11620     (build-system meson-build-system)
11621     (native-inputs
11622      `(("gettext" ,gettext-minimal)
11623        ("glib:bin" ,glib "bin")
11624        ("gobject-introspection" ,gobject-introspection)
11625        ("pkg-config" ,pkg-config)
11626        ("python-flake8" ,python-flake8)))
11627     (inputs
11628      `(("adwaita-icon-theme" ,adwaita-icon-theme)
11629        ("gtk" ,gtk+)
11630        ("gtk:bin" ,gtk+ "bin")
11631        ("librsvg" ,librsvg)
11632        ("python-evdev" ,python-evdev)
11633        ("python-lxml" ,python-lxml)
11634        ("python-pycairo" ,python-pycairo)
11635        ("python-pygobject" ,python-pygobject)))
11636     (arguments
11637      `(#:imported-modules ((guix build python-build-system)
11638                            ,@%meson-build-system-modules)
11639        #:modules (((guix build python-build-system) #:prefix python:)
11640                   (guix build meson-build-system)
11641                   (guix build utils))
11642        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
11643        #:phases
11644        (modify-phases %standard-phases
11645          (add-after 'unpack 'dont-update-gtk-icon-cache
11646            (lambda _
11647              (substitute* "meson.build"
11648                (("meson.add_install_script('meson_install.sh')") ""))
11649              #t))
11650          ;; TODO: Switch to wrap-script when it is fixed.
11651          (add-after 'install 'wrap-python
11652            (assoc-ref python:%standard-phases 'wrap))
11653          (add-after 'wrap-python 'wrap
11654            (lambda* (#:key outputs #:allow-other-keys)
11655              (wrap-program
11656                  (string-append (assoc-ref outputs "out" )"/bin/piper")
11657                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11658              #t)))))
11659     (home-page "https://github.com/libratbag/piper/")
11660     (synopsis "Configure bindings and LEDs on gaming mice")
11661     (description "Piper is a GTK+ application for configuring gaming mice with
11662 onboard configuration for key bindings via libratbag.  Piper requires
11663 a @command{ratbagd} daemon running with root privileges.  It can be run
11664 manually as root, but is preferably configured as a DBus service that can
11665 launch on demand.  This can be configured by enabling the following service,
11666 provided there is a DBus service present:
11667
11668   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11669     (license license:gpl2)))
11670
11671 (define-public parlatype
11672   (package
11673     (name "parlatype")
11674     (version "2.1")
11675     (source
11676      (origin
11677        (method git-fetch)
11678        (uri (git-reference
11679              (url "https://github.com/gkarsay/parlatype.git")
11680              (commit (string-append "v" version))))
11681        (file-name (git-file-name name version))
11682        (sha256
11683         (base32 "1c15ja0rwz3jj8bnqdq0nmqka39iwrhy8krdv2a2x8nl4shfpmv0"))))
11684     (build-system meson-build-system)
11685     (arguments
11686      `(#:glib-or-gtk? #t
11687        #:tests? #f                      ;require internet access
11688        #:phases
11689        (modify-phases %standard-phases
11690          (add-after 'install 'wrap-parlatype
11691            ;; Add gstreamer plugin provided in this package to system's
11692            ;; plugins.
11693            (lambda* (#:key outputs #:allow-other-keys)
11694              (let* ((out (assoc-ref outputs "out"))
11695                     (gst-plugin-path (string-append
11696                                       out "/lib/gstreamer-1.0/"
11697                                       ":"
11698                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
11699                (wrap-program (string-append out "/bin/parlatype")
11700                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
11701              #t)))))
11702     (native-inputs
11703      `(("appstream-glib" ,appstream-glib)
11704        ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11705        ("gettext" ,gettext-minimal)
11706        ("glib" ,glib "bin")             ;for glib-compile-resources
11707        ("pkg-config" ,pkg-config)
11708        ("yelp-tools" ,yelp-tools)))
11709     (inputs
11710      `(("gst-plugins-base" ,gst-plugins-base)
11711        ("gst-plugins-good" ,gst-plugins-good)
11712        ("gstreamer" ,gstreamer)
11713        ("gtk+" ,gtk+)
11714        ("pocketsphinx" ,pocketsphinx)
11715        ("pulseaudio" ,pulseaudio)
11716        ("sphinxbase" ,sphinxbase)))
11717     (home-page "http://gkarsay.github.io/parlatype/")
11718     (synopsis "GNOME audio player for transcription")
11719     (description "Parlatype is an audio player for the GNOME desktop
11720 environment.  Its main purpose is the manual transcription of spoken
11721 audio files.")
11722     (license license:gpl3+)))
11723
11724 (define-public jsonrpc-glib
11725   (package
11726     (name "jsonrpc-glib")
11727     (version "3.34.0")
11728     (source (origin
11729               (method url-fetch)
11730               (uri (string-append "mirror://gnome/sources/" name "/"
11731                                   (version-major+minor version) "/"
11732                                    name "-" version ".tar.xz"))
11733               (sha256
11734                (base32
11735                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
11736     (build-system meson-build-system)
11737     (inputs
11738      `(("json-glib" ,json-glib)
11739        ("glib" ,glib)))
11740     (native-inputs
11741      `(("pkg-config" ,pkg-config)
11742        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
11743        ("gobject-introspection" ,gobject-introspection)
11744        ("vala" ,vala)))
11745     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
11746     (synopsis "JSON-RPC library for GLib")
11747     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
11748 peers in either a synchronous or asynchronous fashion.  It also allows
11749 communicating using the GVariant serialization format instead of JSON when
11750 both peers support it.  You might want that when communicating on a single
11751 host to avoid parser overhead and memory-allocator fragmentation.")
11752     (license license:lgpl2.1+)))
11753
11754 (define-public feedbackd
11755   (package
11756     (name "feedbackd")
11757     (version "0.0.0+git20200527")
11758     (source (origin
11759               (method git-fetch)
11760               (uri (git-reference
11761                     (url "https://source.puri.sm/Librem5/feedbackd.git")
11762                     (commit (string-append "v" version))))
11763               (file-name (git-file-name name version))
11764               (sha256
11765                (base32
11766                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
11767     (build-system meson-build-system)
11768     (native-inputs
11769      `(("glib:bin" ,glib "bin")
11770        ("gobject-introspection" ,gobject-introspection)
11771        ("pkg-config" ,pkg-config)
11772        ("vala" ,vala)))
11773     (inputs
11774      `(("dbus" ,dbus)
11775        ("gsound" ,gsound)
11776        ("json-glib" ,json-glib)
11777        ("libgudev" ,libgudev)))
11778     (propagated-inputs
11779      `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
11780     (synopsis "Haptic/visual/audio feedback via DBus")
11781     (description "Feedbackd provides a DBus daemon to act on events to provide
11782 haptic, visual and audio feedback.  It offers the libfeedbackd library and
11783 GObject introspection bindings.")
11784      (home-page "https://source.puri.sm/Librem5/feedbackd")
11785      (license (list license:lgpl2.1+   ; libfeedbackd
11786                     license:lgpl3+)))) ; the rest
11787
11788 (define-public sysprof
11789   (package
11790     (name "sysprof")
11791     (version "3.36.0")
11792     (source
11793      (origin
11794        (method url-fetch)
11795        (uri (string-append "mirror://gnome/sources/sysprof/"
11796                            (version-major+minor version) "/"
11797                            "sysprof-" version ".tar.xz"))
11798        (sha256
11799         (base32 "024i0gzqnm79rpr4gqxdvcj6gvf82xdlcp2p1k9ikcppmi6xnw46"))))
11800     (build-system meson-build-system)
11801     (arguments
11802      `(#:configure-flags
11803        (list (string-append "-Dsystemdunitdir="
11804                             %output
11805                             "/share/systemd"))
11806        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
11807        #:phases
11808        (modify-phases %standard-phases
11809          (add-after 'unpack 'patch-install-script
11810            (lambda _
11811              (substitute* "build-aux/meson/post_install.sh"
11812                (("gtk-update-icon-cache") "true")
11813                (("update-desktop-database") "true"))
11814              #t)))))
11815     (inputs
11816      `(("glib" ,glib)
11817        ("gtk+" ,gtk+)
11818        ("libdazzle" ,libdazzle)
11819        ("polkit" ,polkit)))
11820     (native-inputs
11821      `(("gettext" ,gettext-minimal)
11822        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
11823        ("itstool" ,itstool)
11824        ("pkg-config" ,pkg-config)
11825        ("xmllint" ,libxml2)))
11826     ;; This home page is so woefully out of date as to be essentially useless.
11827     ;; (home-page "http://www.sysprof.com")
11828     (home-page "https://wiki.gnome.org/Apps/Sysprof")
11829     (synopsis "System-wide performance profiler for GNU/Linux")
11830     (description
11831      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
11832 GNU/Linux system including the kernel and all user-space applications.  This
11833 helps find the function(s) in which a program spends most of its time.
11834
11835 It uses the kernel's built-in @code{ptrace} feature and handles shared
11836 libraries.  Applications do not need to be recompiled--or even restarted.")
11837     (license license:gpl3+)))
11838
11839 (define-public gnome-builder
11840   (package
11841     (name "gnome-builder")
11842     (version "3.36.1")
11843     (source (origin
11844               (method url-fetch)
11845               (uri (string-append "mirror://gnome/sources/" name "/"
11846                                   (version-major+minor version) "/"
11847                                   name "-" version ".tar.xz"))
11848               (sha256
11849                (base32
11850                 "17pvmd5jypar8dkr6w56hvf7jnq4l1wih2wwgkrv7sblr7rkkar2"))))
11851     (build-system meson-build-system)
11852     (arguments
11853      `(#:configure-flags (list "-Dnetwork_tests=false"
11854                                ;; TODO: Enable all plugins...
11855                                "-Dplugin_clang=false"
11856                                "-Dplugin_flatpak=false"
11857                                "-Dplugin_glade=false"
11858                                ;; ... except this one.
11859                                "-Dplugin_update_manager=false")
11860        #:phases
11861        (modify-phases %standard-phases
11862          (add-after 'unpack 'patch-meson
11863            (lambda* (#:key inputs #:allow-other-keys)
11864              (substitute* "build-aux/meson/post_install.py"
11865                (("gtk-update-icon-cache") "true")
11866                (("update-desktop-database") "true"))
11867              (substitute* "src/libide/meson.build"
11868                (("/usr/lib")
11869                 (string-append (assoc-ref inputs "python-pygobject")
11870                                "/lib")))
11871              #t))
11872          (add-after 'configure 'fix-ninja
11873            (lambda _
11874              ;; #43296: meson(?) incorrectly assumes we want to link
11875              ;;         this PIE against a static libselinux.
11876              (substitute* "build.ninja"
11877                (("libselinux\\.a") "libselinux.so"))
11878              #t))
11879          (add-before 'check 'pre-check
11880            (lambda _
11881              (system "Xvfb :1 &")
11882              (setenv "DISPLAY" ":1")
11883              #t)))))
11884     (inputs
11885      `(("devhelp" ,devhelp)
11886        ("gspell" ,gspell)
11887        ("gtk+" ,gtk+)
11888        ("json-glib" ,json-glib)
11889        ("jsonrpc-glib" ,jsonrpc-glib)
11890        ("libdazzle" ,libdazzle)
11891        ("libgit2-glib" ,libgit2-glib)
11892        ("libpeas" ,libpeas)
11893        ("python-pygobject" ,python-pygobject)
11894        ("sysprof" ,sysprof)
11895        ("template-glib" ,template-glib)
11896        ("vte" ,vte)
11897        ("webkitgtk" ,webkitgtk)))
11898     (propagated-inputs
11899      `(("gtksourceview" ,gtksourceview)))         ;needed for settings
11900     (native-inputs
11901      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11902        ("glib:bin" ,glib "bin")
11903        ("gettext" ,gettext-minimal)
11904        ("pkg-config" ,pkg-config)
11905        ("vala" ,vala)
11906        ("xorg-server" ,xorg-server-for-tests)))
11907     (home-page "https://wiki.gnome.org/Apps/Builder")
11908     (synopsis "Toolsmith for GNOME-based applications")
11909     (description "Builder aims to be an integrated development
11910 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
11911 auto-completion, a mini code map, documentation browsing, Git integration, an
11912 integrated profiler via Sysprof, debugging support, and more.")
11913     (license license:gpl3+)))
11914
11915 (define-public komikku
11916   (package
11917     (name "komikku")
11918     (version "0.22.1")
11919     (source
11920      (origin
11921        (method git-fetch)
11922        (uri (git-reference
11923              (url "https://gitlab.com/valos/Komikku/")
11924              (commit (string-append "v" version))))
11925        (file-name (git-file-name name version))
11926        (sha256
11927         (base32
11928          "0ds4j542zprbyh36qyii1c9mb7kj14cvrfk5miqjvp8y4b5i6mdi"))))
11929     (build-system meson-build-system)
11930     (arguments
11931      `(#:glib-or-gtk? #t
11932        #:phases
11933        (modify-phases %standard-phases
11934          (add-after 'unpack 'patch-sources
11935            (lambda _
11936              (substitute* "komikku/utils.py"
11937                (("from komikku\\.servers import get_servers_list")
11938                 ;; code following that line should migrate old databases
11939                 ;; but the line itself results in an import error
11940                 "return data_dir_path"))))
11941          (add-after 'unpack 'skip-gtk-update-icon-cache
11942            (lambda _
11943              (substitute* "meson_post_install.py"
11944                (("gtk-update-icon-cache") (which "true")))
11945              #t))
11946          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11947           (lambda* (#:key outputs #:allow-other-keys)
11948             (let ((prog (string-append (assoc-ref outputs "out")
11949                                        "/bin/komikku")))
11950               (wrap-program prog
11951                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
11952                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11953               #t))))))
11954     (inputs
11955      `(("gtk+" ,gtk+)
11956        ("libhandy" ,libhandy)
11957        ("libnotify" ,libnotify)
11958        ("libsecret" ,libsecret)
11959        ("python-beautifulsoup4" ,python-beautifulsoup4)
11960        ("python-cloudscraper" ,python-cloudscraper)
11961        ("python-dateparser" ,python-dateparser)
11962        ("python-keyring" ,python-keyring)
11963        ("python-lxml" ,python-lxml)
11964        ("python-magic" ,python-magic)
11965        ("python-pillow" ,python-pillow)
11966        ("python-pure-protobuf" ,python-pure-protobuf)
11967        ("python-pycairo" ,python-pycairo)
11968        ("python-pygobject" ,python-pygobject)
11969        ("python-unidecode" ,python-unidecode)))
11970     (native-inputs
11971      `(("desktop-file-utils" ,desktop-file-utils)
11972        ("gettext" ,gettext-minimal)
11973        ("glib:bin" ,glib "bin")
11974        ("gobject-introspection" ,gobject-introspection)
11975        ("pkg-config" ,pkg-config)))
11976     (home-page "https://gitlab.com/valos/Komikku")
11977     (synopsis "Manga reader for GNOME")
11978     (description "Komikku is an online/offline manga reader for GNOME,
11979 developed with the aim of being used with the Librem 5 phone.")
11980     (license license:gpl3+)))
11981
11982 (define-public libgda
11983   (package
11984     (name "libgda")
11985     (version "5.2.10")
11986     (source
11987      (origin
11988        (method git-fetch)
11989        (uri (git-reference
11990              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
11991              (commit (string-append "LIBGDA_" (string-replace-substring
11992                                                version "." "_")))))
11993        (file-name (git-file-name name version))
11994        (sha256
11995         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
11996     (build-system gnu-build-system)
11997     (arguments
11998      `(#:configure-flags '("--enable-vala")
11999        ;; There's a race between check_cnc_lock and check_threaded_cnc
12000        ;; in tests/multi-threading.
12001        #:parallel-tests? #f
12002        #:phases
12003        (modify-phases %standard-phases
12004          (add-after 'unpack 'fix-glade-install
12005            (lambda _
12006              (substitute* "configure.ac"
12007                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12008                 "${datadir}/glade/catalogs")
12009                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12010                 "${datadir}/glade/pixmaps"))
12011              #t))
12012          (add-before 'check 'pre-check
12013            (lambda* (#:key inputs #:allow-other-keys)
12014              ;; Tests require a running X server.
12015              (system "Xvfb :1 &")
12016              (setenv "DISPLAY" ":1")
12017              #t))
12018          (add-after 'install 'symlink-glade-module
12019            (lambda* (#:key outputs #:allow-other-keys)
12020              (let* ((shlib "libgda-ui-5.0.so")
12021                     (out (assoc-ref outputs "out"))
12022                     (out/lib (string-append out "/lib"))
12023                     (moduledir (string-append out/lib "/glade/modules")))
12024                (mkdir-p moduledir)
12025                (symlink (string-append out/lib "/" shlib)
12026                         (string-append moduledir "/" shlib))
12027                #t))))))
12028     (propagated-inputs
12029      `(("libxml2" ,libxml2)))           ; required by libgda-5.0.pc
12030     (inputs
12031      `(("glib" ,glib)
12032        ("glade" ,glade3)
12033        ("gtk+" ,gtk+)
12034        ("libsecret" ,libsecret)
12035        ("libxslt" ,libxslt)
12036        ("openssl" ,openssl)
12037        ("vala" ,vala)))
12038     (native-inputs
12039      `(("autoconf" ,autoconf)
12040        ("autoconf-archive" ,autoconf-archive)
12041        ("automake" ,automake)
12042        ("glib:bin" ,glib "bin")
12043        ("gnome-common" ,gnome-common)
12044        ("gobject-introspection" ,gobject-introspection)
12045        ("gtk-doc" ,gtk-doc)
12046        ("intltool" ,intltool)
12047        ("libtool" ,libtool)
12048        ("pkg-config" ,pkg-config)
12049        ("vala" ,vala)
12050        ("which" ,which)
12051        ("xorg-server" ,xorg-server-for-tests)
12052        ("yelp-tools" ,yelp-tools)))
12053     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12054     (synopsis "Uniform data access")
12055     (description
12056      "GNU Data Access (GDA) is an attempt to provide uniform access to
12057 different kinds of data sources (databases, information servers, mail spools,
12058 etc).  It is a complete architecture that provides all you need to access
12059 your data.")
12060     (license license:lgpl2.1+)))
12061
12062 (define-public gtranslator
12063   (package
12064     (name "gtranslator")
12065     (version "3.36.0")
12066         (source (origin
12067               (method url-fetch)
12068               (uri (string-append "mirror://gnome/sources/" name "/"
12069                                   (version-major+minor version) "/"
12070                                   name "-" version ".tar.xz"))
12071               (sha256
12072                (base32
12073                 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12074     (build-system meson-build-system)
12075     (inputs
12076      `(("json-glib" ,json-glib)
12077        ("jsonrpc-glib" ,jsonrpc-glib)
12078        ("gettext" ,gettext-minimal)
12079        ("glib" ,glib)
12080        ("gtk+" ,gtk+)
12081        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12082        ("gspell" ,gspell)
12083        ("libdazzle" ,libdazzle)
12084        ("libgda" ,libgda)
12085        ("libsoup" ,libsoup)))
12086     (native-inputs
12087      `(("glib:bin" ,glib "bin")
12088        ("itstool" ,itstool)
12089        ("pkg-config" ,pkg-config)))
12090     (propagated-inputs
12091      `(("gtksourceview" ,gtksourceview))) ; required for source view
12092     (arguments
12093      `(#:build-type "release"
12094        #:glib-or-gtk? #t
12095        #:phases
12096        (modify-phases %standard-phases
12097          (add-after 'unpack 'skip-gtk-update-icon-cache
12098            (lambda _
12099              (substitute* "build-aux/meson/meson_post_install.py"
12100                (("gtk-update-icon-cache") (which "true")))
12101              #t)))))
12102     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12103     (synopsis "Translation making program")
12104     (description
12105      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12106 for the GNOME 3.x platform with many features.  It aims to be a very complete
12107 editing environment for translation issues within the GNU gettext/GNOME desktop
12108 world.")
12109     (license license:gpl3+)))