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 Eric Bavier <bavier@member.fsf.org>
   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 ng0 <ng0@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 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 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 ;;;
  54 ;;; This file is part of GNU Guix.
  55 ;;;
  56 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  57 ;;; under the terms of the GNU General Public License as published by
  58 ;;; the Free Software Foundation; either version 3 of the License, or (at
  59 ;;; your option) any later version.
  60 ;;;
  61 ;;; GNU Guix is distributed in the hope that it will be useful, but
  62 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  63 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  64 ;;; GNU General Public License for more details.
  65 ;;;
  66 ;;; You should have received a copy of the GNU General Public License
  67 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  68
  69 (define-module (gnu packages gnome)
  70   #:use-module (gnu packages)
  71   #:use-module (gnu packages admin)
  72   #:use-module (gnu packages aspell)
  73   #:use-module (gnu packages autotools)
  74   #:use-module (gnu packages avahi)
  75   #:use-module (gnu packages backup)
  76   #:use-module (gnu packages base)
  77   #:use-module (gnu packages bash)
  78   #:use-module (gnu packages bison)
  79   #:use-module (gnu packages boost)
  80   #:use-module (gnu packages build-tools)
  81   #:use-module (gnu packages calendar)
  82   #:use-module (gnu packages cdrom)
  83   #:use-module (gnu packages check)
  84   #:use-module (gnu packages cmake)
  85   #:use-module (gnu packages compression)
  86   #:use-module (gnu packages crates-io)
  87   #:use-module (gnu packages cups)
  88   #:use-module (gnu packages curl)
  89   #:use-module (gnu packages cyrus-sasl)
  90   #:use-module (gnu packages databases)
  91   #:use-module (gnu packages dbm)
  92   #:use-module (gnu packages djvu)
  93   #:use-module (gnu packages dns)
  94   #:use-module (gnu packages docbook)
  95   #:use-module (gnu packages documentation)
  96   #:use-module (gnu packages enchant)
  97   #:use-module (gnu packages flex)
  98   #:use-module (gnu packages fonts)
  99   #:use-module (gnu packages file-systems)
 100   #:use-module (gnu packages fontutils)
 101   #:use-module (gnu packages freedesktop)
 102   #:use-module (gnu packages game-development)
 103   #:use-module (gnu packages gettext)
 104   #:use-module (gnu packages ghostscript)
 105   #:use-module (gnu packages gl)
 106   #:use-module (gnu packages glib)
 107   #:use-module (gnu packages gnupg)
 108   #:use-module (gnu packages gnuzilla)
 109   #:use-module (gnu packages geo)
 110   #:use-module (gnu packages gperf)
 111   #:use-module (gnu packages graphviz)
 112   #:use-module (gnu packages gstreamer)
 113   #:use-module (gnu packages gtk)
 114   #:use-module (gnu packages guile)
 115   #:use-module (gnu packages ibus)
 116   #:use-module (gnu packages icu4c)
 117   #:use-module (gnu packages image)
 118   #:use-module (gnu packages imagemagick)
 119   #:use-module (gnu packages inkscape)
 120   #:use-module (gnu packages iso-codes)
 121   #:use-module (gnu packages kerberos)
 122   #:use-module (gnu packages libcanberra)
 123   #:use-module (gnu packages libunistring)
 124   #:use-module (gnu packages libunwind)
 125   #:use-module (gnu packages libusb)
 126   #:use-module (gnu packages linux)
 127   #:use-module (gnu packages lirc)
 128   #:use-module (gnu packages lua)
 129   #:use-module (gnu packages mail)
 130   #:use-module (gnu packages mp3)
 131   #:use-module (gnu packages multiprecision)
 132   #:use-module (gnu packages music)
 133   #:use-module (gnu packages ncurses)
 134   #:use-module (gnu packages nettle)
 135   #:use-module (gnu packages networking)
 136   #:use-module (gnu packages ninja)
 137   #:use-module (gnu packages nss)
 138   #:use-module (gnu packages openldap)
 139   #:use-module (gnu packages password-utils)
 140   #:use-module (gnu packages pcre)
 141   #:use-module (gnu packages pdf)
 142   #:use-module (gnu packages perl)
 143   #:use-module (gnu packages photo)
 144   #:use-module (gnu packages pkg-config)
 145   #:use-module (gnu packages polkit)
 146   #:use-module (gnu packages popt)
 147   #:use-module (gnu packages pretty-print)
 148   #:use-module (gnu packages pulseaudio)
 149   #:use-module (gnu packages python)
 150   #:use-module (gnu packages python-crypto)
 151   #:use-module (gnu packages python-web)
 152   #:use-module (gnu packages python-xyz)
 153   #:use-module (gnu packages rdesktop)
 154   #:use-module (gnu packages readline)
 155   #:use-module (gnu packages ruby)
 156   #:use-module (gnu packages rust)
 157   #:use-module (gnu packages samba)
 158   #:use-module (gnu packages scanner)
 159   #:use-module (gnu packages selinux)
 160   #:use-module (gnu packages slang)
 161   #:use-module (gnu packages speech)
 162   #:use-module (gnu packages spice)
 163   #:use-module (gnu packages sqlite)
 164   #:use-module (gnu packages ssh)
 165   #:use-module (gnu packages tex)
 166   #:use-module (gnu packages time)
 167   #:use-module (gnu packages tls)
 168   #:use-module (gnu packages version-control)
 169   #:use-module (gnu packages video)
 170   #:use-module (gnu packages virtualization)
 171   #:use-module (gnu packages vpn)
 172   #:use-module (gnu packages web)
 173   #:use-module (gnu packages webkit)
 174   #:use-module (gnu packages xdisorg)
 175   #:use-module (gnu packages xiph)
 176   #:use-module (gnu packages xml)
 177   #:use-module (gnu packages xorg)
 178   #:use-module (gnu artwork)
 179   #:use-module (guix build-system cargo)
 180   #:use-module (guix build-system cmake)
 181   #:use-module (guix build-system glib-or-gtk)
 182   #:use-module (guix build-system gnu)
 183   #:use-module (guix build-system meson)
 184   #:use-module (guix build-system python)
 185   #:use-module (guix build-system trivial)
 186   #:use-module (guix download)
 187   #:use-module (guix git-download)
 188   #:use-module ((guix licenses) #:prefix license:)
 189   #:use-module (guix packages)
 190   #:use-module (guix utils)
 191   #:use-module (guix gexp)
 192   #:use-module (guix monads)
 193   #:use-module (guix store)
 194   #:use-module (ice-9 match)
 195   #:use-module (srfi srfi-1))
 196
 197 (define-public brasero
 198   (package
 199     (name "brasero")
 200     (version "3.12.2")
 201     (source (origin
 202              (method url-fetch)
 203              (uri (string-append "mirror://gnome/sources/brasero/"
 204                                  (version-major+minor version) "/"
 205                                  "brasero-" version ".tar.xz"))
 206              (sha256
 207               (base32
 208                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 209     (build-system glib-or-gtk-build-system)
 210     (arguments
 211      `(#:configure-flags (list
 212                           (string-append "--with-girdir="
 213                                          (assoc-ref %outputs "out")
 214                                          "/share/gir-1.0")
 215                           (string-append "--with-typelibdir="
 216                                          (assoc-ref %outputs "out")
 217                                          "/lib/girepository-1.0"))
 218        #:phases
 219        (modify-phases %standard-phases
 220          (add-before 'configure 'embed-growisofs
 221            (lambda* (#:key inputs #:allow-other-keys)
 222              (substitute* "plugins/growisofs/burn-growisofs.c"
 223                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 224              #t)))))
 225     (propagated-inputs
 226      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 227     (native-inputs
 228      `(("intltool" ,intltool)
 229        ("itstool" ,itstool)
 230        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 231        ("gobject-introspection" ,gobject-introspection)
 232        ("pkg-config" ,pkg-config)))
 233     (inputs
 234      `(("dvd+rw-tools" ,dvd+rw-tools)
 235        ("glib" ,glib)
 236        ("gnome-doc-utils" ,gnome-doc-utils)
 237        ("gstreamer" ,gstreamer)
 238        ("gst-plugins-base" ,gst-plugins-base)
 239        ("gtk+" ,gtk+)
 240        ("libcanberra" ,libcanberra)
 241        ("libice" ,libice)
 242        ("libnotify" ,libnotify)
 243        ("libsm" ,libsm)
 244        ("libxml2" ,libxml2)
 245        ("totem-pl-parser" ,totem-pl-parser)))
 246     (home-page "https://wiki.gnome.org/Apps/Brasero")
 247     (synopsis "CD/DVD burning tool for Gnome")
 248     (description "Brasero is an application to burn CD/DVD for the Gnome
 249 Desktop.  It is designed to be as simple as possible and has some unique
 250 features to enable users to create their discs easily and quickly.")
 251     (license license:gpl2+)))
 252
 253 (define-public mm-common
 254   (package
 255     (name "mm-common")
 256     (version "1.0.0")
 257     (source (origin
 258               (method url-fetch)
 259               (uri (string-append "mirror://gnome/sources/" name "/"
 260                                   (version-major+minor version) "/"
 261                                   name "-" version ".tar.xz"))
 262               (sha256
 263                (base32
 264                 "1m4w33da9f4rx2d6kdj3ix3kl0gn16ml82v2mdn4hljr3q29nzdr"))))
 265     (build-system meson-build-system)
 266     (arguments
 267      `(#:phases
 268        (modify-phases %standard-phases
 269          (add-after 'unpack 'patch
 270            (lambda* (#:key inputs #:allow-other-keys)
 271              (substitute* "util/mm-common-prepare.in"
 272               (("ln") (string-append (assoc-ref inputs "coreutils")
 273                                      "/bin/ln"))
 274               (("cp") (string-append (assoc-ref inputs "coreutils")
 275                                      "/bin/cp"))
 276               (("sed") (string-append (assoc-ref inputs "sed")
 277                                       "/bin/sed"))
 278               (("cat") (string-append (assoc-ref inputs "coreutils")
 279                                       "/bin/cat")))
 280              #t)))))
 281     (native-inputs
 282      `(("coreutils" ,coreutils)
 283        ("gettext" ,gettext-minimal)
 284        ("pkg-config" ,pkg-config)
 285        ("sed" ,sed)))
 286     (inputs
 287      `(("python" ,python)))
 288     (synopsis "Module of GNOME C++ bindings")
 289     (description "The mm-common module provides the build infrastructure
 290 and utilities shared among the GNOME C++ binding libraries.  Release
 291 archives of mm-common include the Doxygen tag file for the GNU C++
 292 Library reference documentation.")
 293     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
 294     (license license:gpl2+)))
 295
 296 (define-public phodav
 297   (package
 298    (name "phodav")
 299    (version "2.4")
 300    (source (origin
 301             (method url-fetch)
 302             (uri (string-append "mirror://gnome/sources/" name "/"
 303                                 (version-major+minor version) "/"
 304                                 name "-" version ".tar.xz"))
 305             (sha256
 306              (base32
 307               "1hxq8c5qfah3w7mxcyy3yhzdgswplll31a69p5mqdl04bsvw5pbx"))))
 308    (build-system meson-build-system)
 309    (native-inputs
 310     `(("gettext" ,gettext-minimal)
 311       ("glib:bin" ,glib "bin")
 312       ("gtk-doc" ,gtk-doc)
 313       ("pkg-config" ,pkg-config)))
 314    (inputs
 315     `(("avahi" ,avahi)
 316       ("libgudev" ,libgudev)
 317       ("libsoup" ,libsoup)))
 318    (synopsis "WebDav server implementation using libsoup")
 319    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
 320 but it is generic enough to be reused in other projects,
 321 in particular in the GNOME desktop.")
 322    (home-page "https://wiki.gnome.org/phodav")
 323    (license license:lgpl2.1+)))
 324
 325 (define-public gnome-color-manager
 326   (package
 327    (name "gnome-color-manager")
 328    (version "3.32.0")
 329    (source (origin
 330             (method url-fetch)
 331             (uri (string-append "mirror://gnome/sources/" name "/"
 332                                 (version-major+minor version) "/"
 333                                 name "-" version ".tar.xz"))
 334             (sha256
 335              (base32
 336               "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
 337    (build-system meson-build-system)
 338    (arguments
 339     `(#:glib-or-gtk? #t
 340       #:phases
 341        (modify-phases %standard-phases
 342         (add-before
 343          'check 'pre-check
 344          (lambda _
 345            ;; Tests require a running X server.
 346            (system "Xvfb :1 &")
 347            (setenv "DISPLAY" ":1")
 348            #t)))))
 349    (native-inputs
 350     `(("desktop-file-utils" ,desktop-file-utils)
 351       ("gettext" ,gettext-minimal)
 352       ("glib:bin" ,glib "bin")
 353       ("gtk+:bin" ,gtk+ "bin")
 354       ("itstool" ,itstool)
 355       ("pkg-config" ,pkg-config)
 356       ("xorg-server" ,xorg-server-for-tests)))
 357    (inputs
 358     `(("adwaita-icon-theme" ,adwaita-icon-theme)
 359       ("appstream-glib" ,appstream-glib)
 360       ("colord-gtk" ,colord-gtk)
 361       ("exiv2" ,exiv2)
 362       ("gnome-desktop" ,gnome-desktop)
 363       ("libcanberra" ,libcanberra)
 364       ("libexif" ,libexif)
 365       ("libtiff" ,libtiff)
 366       ("libxrandr" ,libxrandr)
 367       ("libxtst" ,libxtst)
 368       ("libxxf86vm" ,libxxf86vm)
 369       ("vte" ,vte)
 370       ("xorgproto" ,xorgproto)))
 371    (synopsis "Color profile manager for the GNOME desktop")
 372    (description "GNOME Color Manager is a session framework that makes
 373 it easy to manage, install and generate color profiles
 374 in the GNOME desktop.")
 375    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
 376    (license license:gpl2+)))
 377
 378 (define-public gnome-online-miners
 379   (package
 380     (name "gnome-online-miners")
 381     (version "3.34.0")
 382     (source (origin
 383               (method url-fetch)
 384               (uri (string-append "mirror://gnome/sources/" name "/"
 385                                   (version-major+minor version) "/"
 386                                   name "-" version ".tar.xz"))
 387               (sha256
 388                (base32
 389                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
 390     (build-system glib-or-gtk-build-system)
 391     (native-inputs
 392      `(("gettext" ,gettext-minimal)
 393        ("glib:bin" ,glib "bin")
 394        ("gobject-introspection" ,gobject-introspection)
 395        ("gtk+:bin" ,gtk+ "bin")
 396        ("pkg-config" ,pkg-config)))
 397     (inputs
 398      `(("gnome-online-accounts" ,gnome-online-accounts)
 399        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 400        ("grilo" ,grilo)
 401        ("libgdata" ,libgdata)
 402        ("libgfbgraph" ,gfbgraph)
 403        ("libzapojit" ,libzapojit)
 404        ("rest" ,rest)
 405        ("tracker" ,tracker)))
 406     (synopsis "Web Crawlers for GNOME")
 407     (description "GNOME Online Miners provides a set of crawlers that
 408 go through your online content and index them locally in Tracker.
 409 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
 410     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
 411     (license license:gpl2+)))
 412
 413 (define-public gssdp
 414   (package
 415    (name "gssdp")
 416    (version "1.2.2")
 417    (source (origin
 418             (method url-fetch)
 419             (uri (string-append "mirror://gnome/sources/" name "/"
 420                                 (version-major+minor version) "/"
 421                                 name "-" version ".tar.xz"))
 422             (sha256
 423              (base32
 424               "195hi10vrsvh6i927mm6rm1ld5sxah3h5sr3bsjm90vb8lxrxfya"))))
 425    (build-system meson-build-system)
 426    (native-inputs
 427     `(("gettext" ,gettext-minimal)
 428       ("glib:bin" ,glib "bin")
 429       ("gobject-introspection" ,gobject-introspection)
 430       ("gtk-doc" ,gtk-doc)
 431       ("pkg-config" ,pkg-config)
 432       ("vala" ,vala)))
 433    (inputs
 434     `(("gtk+" ,gtk+)
 435       ("libsoup" ,libsoup)))
 436    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
 437 Protocol} for GNOME")
 438    (description "This package provides a library to handle resource discovery
 439 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
 440 a debugging tool, @command{gssdp-device-sniffer}.")
 441    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
 442    (license license:lgpl2.0+)))
 443
 444 (define-public gupnp
 445   (package
 446    (name "gupnp")
 447    (version "1.2.2")
 448    (source (origin
 449             (method url-fetch)
 450             (uri (string-append "mirror://gnome/sources/" name "/"
 451                                 (version-major+minor version) "/"
 452                                 name "-" version ".tar.xz"))
 453             (sha256
 454              (base32
 455               "12cr3isww4zl0d4himpd2fhl2wmy3jh8sbxp4snp51sw7savv04s"))))
 456    (build-system meson-build-system)
 457    (native-inputs
 458     `(("gettext" ,gettext-minimal)
 459       ("glib:bin" ,glib "bin")
 460       ("gobject-introspection" ,gobject-introspection)
 461       ("gtk-doc" ,gtk-doc)
 462       ("pkg-config" ,pkg-config)
 463       ("vala" ,vala)))
 464    (inputs
 465     `(("gssdp" ,gssdp)
 466       ("gtk+" ,gtk+)
 467       ("libsoup" ,libsoup)))
 468    (synopsis "PnP API for GNOME")
 469    (description "This package provides GUPnP, an object-oriented framework
 470 for creating UPnP devices and control points, written in C using
 471 @code{GObject} and @code{libsoup}.")
 472    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
 473    (license license:lgpl2.0+)))
 474
 475 (define-public gupnp-dlna
 476   (package
 477    (name "gupnp-dlna")
 478    (version "0.10.5")
 479    (source (origin
 480             (method url-fetch)
 481             (uri (string-append "mirror://gnome/sources/" name "/"
 482                                 (version-major+minor version) "/"
 483                                 name "-" version ".tar.xz"))
 484             (sha256
 485              (base32
 486               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
 487    (build-system gnu-build-system)
 488    (native-inputs
 489     `(("gettext" ,gettext-minimal)
 490       ("glib:bin" ,glib "bin")
 491       ("gobject-introspection" ,gobject-introspection)
 492       ("gtk-doc" ,gtk-doc)
 493       ("libxml" ,libxml2)
 494       ("pkg-config" ,pkg-config)
 495       ("vala" ,vala)))
 496    (inputs
 497     `(("gstreamer" ,gstreamer)
 498       ("gupnp" ,gupnp)))
 499    (propagated-inputs
 500     `(("gst-plugins-base" ,gst-plugins-base)
 501       ("gst-plugins-good" ,gst-plugins-good)))
 502    (synopsis "GUPnP DLNA for GNOME")
 503    (description "This package provides a small utility library to
 504 support DLNA-related tasks such as media profile guessing, transcoding to a
 505 given profile, etc.  DLNA is a subset of UPnP A/V.")
 506    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
 507    (license license:lgpl2.0+)))
 508
 509 (define-public gupnp-av
 510   (package
 511    (name "gupnp-av")
 512    (version "0.12.11")
 513    (source (origin
 514             (method url-fetch)
 515             (uri (string-append "mirror://gnome/sources/" name "/"
 516                                 (version-major+minor version) "/"
 517                                 name "-" version ".tar.xz"))
 518             (sha256
 519              (base32
 520               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
 521    (build-system gnu-build-system)
 522    (native-inputs
 523     `(("gettext" ,gettext-minimal)
 524       ("glib:bin" ,glib "bin")
 525       ("gobject-introspection" ,gobject-introspection)
 526       ("gtk-doc" ,gtk-doc)
 527       ("libxml" ,libxml2)
 528       ("pkg-config" ,pkg-config)))
 529    (inputs
 530     `(("gtk+" ,gtk+)
 531       ("gupnp" ,gupnp)))
 532    (synopsis "GUPnP A/V for GNOME")
 533    (description "This package provides a small library for handling
 534 and implementation of UPnP A/V profiles.")
 535    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
 536    (license license:lgpl2.0+)))
 537
 538 (define-public libmediaart
 539   (package
 540     (name "libmediaart")
 541     (version "1.9.4")
 542     (source (origin
 543               (method url-fetch)
 544               (uri (string-append "mirror://gnome/sources/" name "/"
 545                                   (version-major+minor version) "/"
 546                                   name "-" version ".tar.xz"))
 547               (sha256
 548                (base32
 549                 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
 550     (build-system gnu-build-system)
 551     (native-inputs
 552      `(("glib:bin" ,glib "bin")
 553        ("pkg-config" ,pkg-config)))
 554     (inputs
 555      `(("gdk-pixbuf" ,gdk-pixbuf)
 556        ("gettext" ,gettext-minimal)
 557        ("gobject-introspection" ,gobject-introspection)
 558        ("gtk+:doc", gtk+ "doc")
 559        ("vala" ,vala)))
 560     (synopsis "Media art library for the GNOME desktop")
 561     (description
 562      "The libmediaart library is the foundation for media art caching,
 563 extraction, and lookup for applications on the desktop.")
 564     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
 565     (license license:lgpl2.1+)))
 566
 567 (define-public gnome-initial-setup
 568   (package
 569    (name "gnome-initial-setup")
 570    (version "3.32.1")
 571    (source (origin
 572             (method url-fetch)
 573            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
 574                                 (version-major+minor version)
 575                                 "/gnome-initial-setup-" version ".tar.xz"))
 576             (sha256
 577              (base32
 578               "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
 579    (build-system meson-build-system)
 580    (arguments
 581     '(#:configure-flags '(;; Enable camera support for user selfie.
 582                           "-Dcheese=auto"
 583                           "-Dsystemd=false")
 584       #:phases (modify-phases %standard-phases
 585                  (add-after 'unpack 'set-gkbd-file-name
 586                    (lambda* (#:key inputs #:allow-other-keys)
 587                      ;; Allow the "Preview" button in the keyboard layout
 588                      ;; selection dialog to display the layout.
 589                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
 590                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
 591                          (("\"gkbd-keyboard-display")
 592                           (string-append "\"" libgnomekbd
 593                                          "/bin/gkbd-keyboard-display")))
 594                        #t))))))
 595    (native-inputs
 596     `(("gettext" ,gettext-minimal)
 597       ("glib:bin" ,glib "bin")
 598       ("gobject-introspection" ,gobject-introspection)
 599       ("gtk+:bin" ,gtk+ "bin")
 600       ("pkg-config" ,pkg-config)))
 601    (inputs
 602     `(("accountsservice" ,accountsservice)
 603       ;("adwaita-icon-theme" ,adwaita-icon-theme)
 604       ("gdm" ,gdm)
 605       ("geoclue" ,geoclue)
 606       ("gnome-desktop" ,gnome-desktop)
 607       ("gnome-getting-started-docs" ,gnome-getting-started-docs)
 608       ("gnome-online-accounts" ,gnome-online-accounts)
 609       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 610       ("gstreamer" ,gstreamer)
 611       ("ibus" ,ibus)
 612       ("json-glib" ,json-glib)
 613       ("krb5" ,mit-krb5)
 614       ("libgweather" ,libgweather)
 615       ("libsecret" ,libsecret)
 616       ("network-manager" ,network-manager)
 617       ("network-manager-applet" ,network-manager-applet)
 618       ("packagekit" ,packagekit)
 619       ("polkit" ,polkit)
 620       ("pwquality" ,libpwquality)
 621       ("rest" ,rest)
 622       ("upower" ,upower)
 623       ("webkitgtk" ,webkitgtk)
 624       ("libgnomekbd" ,libgnomekbd)))
 625    (synopsis "Initial setup wizard for GNOME desktop")
 626    (description "This package provides a set-up wizard when a
 627 user logs into GNOME for the first time.  It typically provides a
 628 tour of all gnome components and allows the user to set them up.")
 629    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
 630    (license license:gpl2)))
 631
 632 (define-public gnome-user-share
 633   (package
 634    (name "gnome-user-share")
 635    (version "3.33.1")
 636    (source (origin
 637             (method url-fetch)
 638             (uri (string-append "mirror://gnome/sources/" name "/"
 639                                 (version-major+minor version) "/"
 640                                 name "-" version ".tar.xz"))
 641             (sha256
 642              (base32
 643               "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
 644    (build-system meson-build-system)
 645    (arguments
 646     `(#:glib-or-gtk? #t
 647       #:configure-flags
 648        `("-Dsystemd=false"
 649          ;; Enable nautilus extension for file sharing.
 650          "-Dnautilus_extension=true")))
 651    (native-inputs
 652     `(("gettext" ,gettext-minimal)
 653       ("glib:bin" ,glib "bin")
 654       ("gobject-introspection" ,gobject-introspection)
 655       ("gtk+:bin" ,gtk+ "bin")
 656       ("pkg-config" ,pkg-config)
 657       ("yelp-tools" ,yelp-tools)))
 658    (inputs
 659     `(("glib" ,glib)
 660       ("gnome-bluetooth" ,gnome-bluetooth)
 661       ("gtk+" ,gtk+)
 662       ("libcanberra" ,libcanberra)
 663       ("libnotify" ,libnotify)
 664       ("nautilus" ,nautilus)))      ; For nautilus extension.
 665    (synopsis "File sharing for GNOME desktop")
 666    (description "GNOME User Share is a small package that binds together
 667 various free software projects to bring easy to use user-level file
 668 sharing to the masses.")
 669    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
 670    (license license:gpl2+)))
 671
 672 (define-public sushi
 673   (package
 674     (name "sushi")
 675     (version "3.32.1")
 676     (source (origin
 677               (method url-fetch)
 678               (uri (string-append "mirror://gnome/sources/" name "/"
 679                                   (version-major+minor version) "/"
 680                                   name "-" version ".tar.xz"))
 681               (sha256
 682                (base32
 683                 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
 684     (build-system meson-build-system)
 685     (arguments
 686      `(#:glib-or-gtk? #t
 687        #:phases
 688        (modify-phases %standard-phases
 689          (add-after 'glib-or-gtk-wrap 'wrap-typelib
 690            (lambda* (#:key outputs #:allow-other-keys)
 691              (let ((prog (string-append (assoc-ref outputs "out")
 692                                         "/bin/sushi")))
 693                ;; Put existing typelibs before sushi's deps, so as to correctly
 694                ;; infer gdk-pixbuf
 695                (wrap-program prog
 696                  `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
 697                #t))))))
 698     (native-inputs
 699      `(("glib:bin" ,glib "bin")
 700        ("gettext" ,gettext-minimal)
 701        ("gobject-introspection" ,gobject-introspection)
 702        ("pkg-config" ,pkg-config)))
 703     (inputs
 704      `(("clutter" ,clutter)
 705        ("clutter-gst" ,clutter-gst)
 706        ("clutter-gtk" ,clutter-gtk)
 707        ("evince" ,evince)                         ; For file previewing.
 708        ("freetype" ,freetype)
 709        ("gdk-pixbuf" ,gdk-pixbuf)
 710        ("gjs" ,gjs)
 711        ("gst-plugins-base" ,gst-plugins-base)
 712        ("gstreamer" ,gstreamer)
 713        ("gtksourceview" ,gtksourceview-3)
 714        ("harfbuzz" ,harfbuzz)
 715        ("libepoxy" ,libepoxy)
 716        ("libmusicbrainz" ,libmusicbrainz)
 717        ("libxml2" ,libxml2)
 718        ("neon" ,neon)
 719        ("webkitgtk" ,webkitgtk)))
 720     (synopsis "File previewer for the GNOME desktop")
 721     (description "Sushi is a DBus-activated service that allows applications to
 722 preview files on the GNOME desktop.")
 723     (home-page "https://gitlab.gnome.org/GNOME/sushi")
 724     (license license:gpl2+)))
 725
 726 (define-public rygel
 727   (package
 728     (name "rygel")
 729     (version "0.38.3")
 730     (source (origin
 731               (method url-fetch)
 732               (uri (string-append "mirror://gnome/sources/" name "/"
 733                                   (version-major+minor version) "/"
 734                                   name "-" version ".tar.xz"))
 735               (sha256
 736                (base32
 737                 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
 738     (build-system gnu-build-system)
 739     (native-inputs
 740      `(("gettext" ,gettext-minimal)
 741        ("gobject-introspection" ,gobject-introspection)
 742        ("gtk-doc" ,gtk-doc)
 743        ("pkg-config" ,pkg-config)
 744        ("vala" ,vala)))
 745     (inputs
 746      `(("gdk-pixbuf" ,gdk-pixbuf)
 747        ("gssdp" ,gssdp)
 748        ("gstreamer" ,gstreamer)
 749        ("gst-plugins-base" ,gst-plugins-base)
 750        ("gtk+" ,gtk+)
 751        ("gupnp" ,gupnp)
 752        ("gupnp-av" ,gupnp-av)
 753        ("gupnp-dlna" ,gupnp-dlna)
 754        ("libgee" ,libgee)
 755        ("libmediaart" ,libmediaart)
 756        ("libsoup" ,libsoup)
 757        ("libxslt" ,libxslt)
 758        ("libunistring" ,libunistring)
 759        ("tracker" ,tracker)))
 760     (synopsis "Share audio, video, and pictures with other devices")
 761     (description
 762      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
 763 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
 764 pictures, and to control a media player on your home network.
 765
 766 Rygel achieves interoperability with other devices by trying to conform to the
 767 strict requirements of DLNA and by converting media on-the-fly to formats that
 768 client devices can handle.")
 769     (home-page "https://wiki.gnome.org/Projects/Rygel")
 770     (license (list
 771               ;; For logo (data/icons/*).
 772               license:cc-by-sa3.0
 773               ;; For all others.
 774               license:lgpl2.1+))))
 775
 776 (define-public libnma
 777   (package
 778    (name "libnma")
 779    (version "1.8.26")
 780    (source (origin
 781             (method url-fetch)
 782             (uri (string-append "mirror://gnome/sources/" name "/"
 783                                 (version-major+minor version) "/"
 784                                 name "-" version ".tar.xz"))
 785             (sha256
 786              (base32
 787               "1w9lld38risnk1krknfwln24kabdxnj274pyz4jhndphwigrshaf"))))
 788    (build-system meson-build-system)
 789    (arguments
 790     `(#:glib-or-gtk? #t))
 791    (native-inputs
 792     `(("gettext" ,gettext-minimal)
 793       ("glib:bin" ,glib "bin")
 794       ("gtk-doc" ,gtk-doc)
 795       ("gobject-introspection" ,gobject-introspection)
 796       ("pkg-config" ,pkg-config)))
 797    (inputs
 798     `(("adwaita-icon-theme" ,adwaita-icon-theme)
 799       ("gcr" ,gcr)
 800       ("gtk+" ,gtk+)
 801       ("iso-codes" ,iso-codes)
 802       ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
 803       ("network-manager" ,network-manager)))
 804    (synopsis "Network Manager's applet library")
 805    (description "Libnma is an applet library for Network Manager.  It was
 806 initially part of network-manager-applet and has now become a separate
 807 project.")
 808    (home-page "https://gitlab.gnome.org/GNOME/libnma")
 809
 810    ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
 811    ;; "LGPL-2.1+".
 812    (license license:gpl2+)))
 813
 814 (define-public gnome-menus
 815   (package
 816     (name "gnome-menus")
 817     (version "3.32.0")
 818     (source (origin
 819               (method url-fetch)
 820               (uri (string-append "mirror://gnome/sources/gnome-menus/"
 821                                   (version-major+minor version) "/"
 822                                   name "-" version ".tar.xz"))
 823               (sha256
 824                (base32
 825                 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
 826     (build-system gnu-build-system)
 827     (native-inputs
 828      `(("gettext" ,gettext-minimal)
 829        ("glib" ,glib)
 830        ("pkg-config" ,pkg-config)))
 831     (synopsis "Menu support for GNOME desktop")
 832     (description "GNOME Menus contains the libgnome-menu library, the layout
 833 configuration files for the GNOME menu, as well as a simple menu editor.")
 834     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
 835     (license license:lgpl2.0+)))
 836
 837 (define-public deja-dup
 838   (package
 839     (name "deja-dup")
 840     (version "34.3")
 841     (source (origin
 842              (method url-fetch)
 843              (uri "https://launchpadlibrarian.net/295170991/deja-dup-34.3.tar.xz")
 844              (sha256
 845               (base32
 846                "1xqcr61hpbahbla7gdjn4ngjfz7w6f57y7f5pkb77yk05f60j2n9"))
 847              (patches
 848                (search-patches "deja-dup-use-ref-keyword-for-iter.patch"))))
 849     (build-system glib-or-gtk-build-system)
 850     (arguments
 851      `(#:modules ((guix build gnu-build-system)
 852                   ((guix build cmake-build-system) #:prefix cmake:)
 853                   (guix build glib-or-gtk-build-system)
 854                   (guix build utils))
 855        #:imported-modules (,@%glib-or-gtk-build-system-modules
 856                            (guix build cmake-build-system))
 857        #:test-target "test"
 858        #:configure-flags (list (string-append
 859                                 "-DCMAKE_INSTALL_FULL_DATADIR=" %output)
 860                                (string-append
 861                                 "-DCMAKE_INSTALL_LIBEXECDIR=" %output))
 862        #:phases
 863        (modify-phases %standard-phases
 864          (add-after 'unpack 'patch-lockfile-deletion
 865            (lambda rest
 866              (substitute* "libdeja/tools/duplicity/DuplicityInstance.vala"
 867                (("/bin/rm")
 868                 (which "rm")))))
 869          (replace 'configure
 870            (assoc-ref cmake:%standard-phases 'configure))
 871          (delete 'check) ;; Fails due to issues with DBus
 872          (add-after 'install 'wrap-deja-dup
 873            (lambda* (#:key inputs outputs #:allow-other-keys)
 874              (let ((python      (assoc-ref inputs "python"))
 875                    (python-path (getenv "PYTHONPATH"))
 876                    (duplicity   (assoc-ref inputs "duplicity"))
 877                    (out         (assoc-ref outputs "out")))
 878                (for-each
 879                 (lambda (program)
 880                   (wrap-program program
 881                     `("PATH" ":" prefix (,(string-append python "/bin")
 882                                          ,(string-append duplicity "/bin"))))
 883                   (wrap-program program
 884                     `("PYTHONPATH" ":" prefix (,python-path))))
 885
 886                 (find-files (string-append out "/bin")))
 887                #t))))))
 888     (inputs
 889      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 890        ("gobject-introspection" ,gobject-introspection)
 891        ("duplicity" ,duplicity)
 892        ("python" ,python-2)
 893        ("python-pygobject" ,python2-pygobject)
 894        ("gtk+" ,gtk+)
 895        ("libnotify" ,libnotify)
 896        ("libpeas" ,libpeas)
 897        ("libsecret" ,libsecret)
 898        ("packagekit" ,packagekit)))
 899     (native-inputs
 900      `(("pkg-config" ,pkg-config)
 901        ("vala" ,vala)
 902        ("gettext" ,gettext-minimal)
 903        ("itstool" ,itstool)
 904        ("intltool" ,intltool)
 905        ("cmake" ,cmake-minimal)))
 906     (home-page "https://launchpad.net/deja-dup")
 907     (synopsis "Simple backup tool, for regular encrypted backups")
 908     (description
 909      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
 910 uses duplicity as the backend, which supports incremental backups and storage
 911 either on a local, or remote machine via a number of methods.")
 912     (license license:gpl3+)))
 913
 914 (define-public gnome-user-docs
 915   (package
 916    (name "gnome-user-docs")
 917    (version "3.32.3")
 918    (source
 919     (origin
 920       (method url-fetch)
 921       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
 922                           (version-major+minor version)
 923                           "/gnome-user-docs-" version ".tar.xz"))
 924       (sha256
 925        (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
 926    (build-system gnu-build-system)
 927    (native-inputs
 928     `(("gettext" ,gettext-minimal)
 929       ("itstool" ,itstool)
 930       ("pkg-config" ,pkg-config)
 931       ("xmllint" ,libxml2)))
 932    (synopsis "User documentation for the GNOME desktop")
 933    (description
 934     "The GNOME User Documentation explains how to use the GNOME desktop and its
 935 components.  It covers usage and setup of the core GNOME programs by end-users
 936 and system administrators.")
 937    (home-page "https://live.gnome.org/DocumentationProject")
 938    (license license:cc-by3.0)))
 939
 940 (define-public gnome-getting-started-docs
 941   (package
 942    (name "gnome-getting-started-docs")
 943    (version "3.32.2")
 944    (source
 945     (origin
 946       (method url-fetch)
 947       (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
 948                           (version-major+minor version)
 949                           "/gnome-getting-started-docs-" version ".tar.xz"))
 950       (sha256
 951        (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
 952    (build-system gnu-build-system)
 953    (native-inputs
 954     `(("gettext" ,gettext-minimal)
 955       ("itstool" ,itstool)
 956       ("pkg-config" ,pkg-config)
 957       ("xmllint" ,libxml2)))
 958    (synopsis "Help to get new users started with the GNOME desktop")
 959    (description
 960     "The GNOME Getting Started Documentation contains GNOME's intuitive
 961 \"Getting Started\" tour, with video guides, that can be viewed with Yelp.
 962
 963 It is normally used together with @command{gnome-initial-setup}, but is also
 964 useful as a tutorial and users' guide for new or less experienced users.")
 965    (home-page "https://live.gnome.org/DocumentationProject")
 966    (license license:cc-by-sa3.0)))
 967
 968 (define-public dia
 969   ;; This version from GNOME's repository includes fixes for compiling with
 970   ;; recent versions of the build tools.  The latest activity on the
 971   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
 972   ;; fixes in 2016.
 973   (let ((commit "fbc306168edab63db80b904956117cbbdc514ee4"))
 974     (package
 975       (name "dia")
 976       (version (git-version "0.97.3" "1" commit))
 977       (source (origin
 978                 (method git-fetch)
 979                 (uri (git-reference
 980                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
 981                       (commit commit)))
 982                 (file-name (git-file-name name version))
 983                 (sha256
 984                  (base32
 985                   "1b4bba0k8ph4cwgw8xjglss0p6n111bpd5app67lrq79mp0ad06l"))))
 986       (build-system gnu-build-system)
 987       (inputs
 988        `(("freetype" ,freetype)
 989          ("gdk-pixbuf" ,gdk-pixbuf)
 990          ("gtk+" ,gtk+-2)
 991          ("libart-lgpl" ,libart-lgpl)
 992          ("libxml2" ,libxml2)
 993          ("pango" ,pango)))
 994       (native-inputs
 995        `(("autoconf" ,autoconf)
 996          ("automake" ,automake)
 997          ("intltool" ,intltool)
 998          ("glib" ,glib "bin")
 999          ("libtool" ,libtool)
1000          ("perl" ,perl)
1001          ("pkg-config" ,pkg-config)
1002          ("python-wrapper" ,python-wrapper)))
1003       (home-page "https://wiki.gnome.org/Apps/Dia")
1004       (synopsis "Diagram creation for GNOME")
1005       (description "Dia can be used to draw different types of diagrams, and
1006 includes support for UML static structure diagrams (class diagrams), entity
1007 relationship modeling, and network diagrams.  The program supports various file
1008 formats like PNG, SVG, PDF and EPS.")
1009       (license license:gpl2+))))
1010
1011 ;; This is the unstable release, but it is required for the current stable
1012 ;; release of gvfs (1.38.1).
1013 (define-public libgdata
1014   (package
1015     (name "libgdata")
1016     (version "0.17.9")
1017     (source (origin
1018               (method url-fetch)
1019               (uri (string-append "mirror://gnome/sources/" name "/"
1020                                   (version-major+minor version)  "/"
1021                                   name "-" version ".tar.xz"))
1022               (sha256
1023                (base32
1024                 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
1025     (build-system gnu-build-system)
1026     (arguments
1027      '(#:phases
1028        (modify-phases %standard-phases
1029          (add-before 'check 'disable-failing-tests
1030            (lambda _
1031              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1032              ;; They have been removed in libgdata 0.17.6, so just do the same.
1033              (substitute* "gdata/tests/Makefile"
1034                (("picasaweb\\$\\(EXEEXT\\) ") ""))
1035              #t)))))
1036     (native-inputs
1037      `(("glib:bin" ,glib "bin")
1038        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1039        ("intltool" ,intltool)
1040        ("pkg-config" ,pkg-config)
1041        ("uhttpmock" ,uhttpmock)))
1042     (inputs
1043      `(("cyrus-sasl" ,cyrus-sasl)
1044        ("glib-networking" ,glib-networking)))
1045     (propagated-inputs
1046      `(("gcr" ,gcr)
1047        ("glib" ,glib)
1048        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1049        ("json-glib" ,json-glib)
1050        ("liboauth" ,liboauth)
1051        ("libsoup" ,libsoup)
1052        ("libxml2" ,libxml2)))
1053     (home-page "https://wiki.gnome.org/Projects/libgdata")
1054     (synopsis "Library for accessing online service APIs")
1055     (description
1056      "libgdata is a GLib-based library for accessing online service APIs using
1057 the GData protocol — most notably, Google's services.  It provides APIs to
1058 access the common Google services, and has full asynchronous support.")
1059     (license license:lgpl2.1+)))
1060
1061 (define-public libgxps
1062   (package
1063     (name "libgxps")
1064     (version "0.3.1")
1065     (source (origin
1066               (method url-fetch)
1067               (uri (string-append "mirror://gnome/sources/" name "/"
1068                                   (version-major+minor version) "/"
1069                                   name "-" version ".tar.xz"))
1070               (sha256
1071                (base32
1072                 "157s4c9gjjss6yd7qp7n4q6s72gz1k4ilsx4xjvp357azk49z4qs"))))
1073     (build-system meson-build-system)
1074     (native-inputs
1075      `(("gobject-introspection" ,gobject-introspection)
1076        ("pkg-config" ,pkg-config)))
1077     (inputs
1078      `(("gtk+" ,gtk+)
1079        ("libjpeg" ,libjpeg-turbo)
1080        ("lcms" ,lcms)
1081        ("libtiff" ,libtiff)))
1082     (propagated-inputs
1083      ;; In Requires of libgxps.pc.
1084      `(("cairo" ,cairo)
1085        ("glib" ,glib)
1086        ("libarchive" ,libarchive)))
1087     (home-page "https://wiki.gnome.org/Projects/libgxps")
1088     (synopsis "GObject-based library for handling and rendering XPS documents")
1089     (description
1090      "libgxps is a GObject-based library for handling and rendering XPS
1091 documents.  This package also contains binaries that can convert XPS documents
1092 to other formats.")
1093     (license license:lgpl2.1+)))
1094
1095 (define-public gnome-characters
1096   (package
1097     (name "gnome-characters")
1098     (version "3.30.0")
1099     (source
1100      (origin
1101        (method url-fetch)
1102        (uri (string-append "mirror://gnome/sources/"
1103                            "gnome-characters/" (version-major+minor version)
1104                            "/gnome-characters-" version ".tar.xz"))
1105        (sha256
1106         (base32
1107          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
1108     (build-system meson-build-system)
1109     (arguments
1110      `(#:glib-or-gtk? #t
1111        #:phases (modify-phases %standard-phases
1112                   (add-after 'install 'wrap
1113                     (lambda* (#:key outputs #:allow-other-keys)
1114                       ;; GNOME Characters needs Typelib files from GTK and
1115                       ;; gnome-desktop.
1116                       (wrap-program (string-append (assoc-ref outputs "out")
1117                                                    "/bin/gnome-characters")
1118                         `("GI_TYPELIB_PATH" ":" prefix
1119                           (,(getenv "GI_TYPELIB_PATH"))))
1120                       #t)))))
1121     (native-inputs
1122      `(("gettext" ,gettext-minimal)
1123        ("glib:bin" ,glib "bin")
1124        ("gtk+:bin" ,gtk+ "bin")
1125        ("pkg-config" ,pkg-config)
1126        ("python" ,python-minimal)))
1127     (inputs
1128      `(("gjs" ,gjs)
1129        ("gtk+" ,gtk+)
1130        ("libunistring" ,libunistring)
1131        ("gnome-desktop" ,gnome-desktop)))
1132     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
1133     (synopsis "Find and insert unusual characters")
1134     (description "Characters is a simple utility application to find
1135 and insert unusual characters.  It allows you to quickly find the
1136 character you are looking for by searching for keywords.")
1137     (license license:bsd-3)))
1138
1139 (define-public gnome-common
1140   (package
1141     (name "gnome-common")
1142     (version "3.18.0")
1143     (source
1144      (origin
1145        (method url-fetch)
1146        (uri (string-append "mirror://gnome/sources/" name "/"
1147                            (version-major+minor version)  "/"
1148                            name "-" version ".tar.xz"))
1149        (sha256
1150         (base32
1151          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
1152     (build-system gnu-build-system)
1153     (home-page "https://www.gnome.org/")
1154     (synopsis "Bootstrap GNOME modules built from Git")
1155     (description "gnome-common contains various files needed to bootstrap
1156 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
1157 can be used to configure a source directory checked out from Git and some
1158 commonly used macros.")
1159     (license license:gpl2+)))
1160
1161 (define-public gnome-contacts
1162   (package
1163     (name "gnome-contacts")
1164     (version "3.34")
1165     (source (origin
1166               (method url-fetch)
1167               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
1168                                   (version-major+minor version) "/"
1169                                   name "-" version ".tar.xz"))
1170               (sha256
1171                (base32
1172                 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
1173     (build-system meson-build-system)
1174     (arguments
1175      `(#:configure-flags '("-Dcheese=false")
1176        #:phases
1177        (modify-phases %standard-phases
1178          (add-after 'unpack 'generate-vapis
1179            (lambda* (#:key inputs #:allow-other-keys)
1180              ;; To generate goa's missing .vapi file
1181              (define goa
1182                (assoc-ref inputs "gnome-online-accounts:lib"))
1183
1184              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
1185                      "--library=goa-1.0"
1186                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
1187              #t))
1188          (add-after 'unpack 'skip-gtk-update-icon-cache
1189            ;; Don't create 'icon-theme.cache'.
1190            (lambda _
1191              (substitute* "build-aux/meson_post_install.py"
1192                (("gtk-update-icon-cache") "true"))
1193              #t)))))
1194     (native-inputs
1195      `(("glib:bin" ,glib "bin")
1196        ("pkg-config" ,pkg-config)))
1197     (inputs
1198      `(("docbook-xml" ,docbook-xml)
1199        ("dockbook-xsl" ,docbook-xsl)
1200        ("evolution-data-server" ,evolution-data-server)
1201        ("gettext" ,gettext-minimal)
1202        ("gnome-desktop" ,gnome-desktop)
1203        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1204        ("gobject-introspection" ,gobject-introspection)
1205        ("gst-plugins-base" ,gst-plugins-base)
1206        ("gtk+" ,gtk+)
1207        ("libgee" ,libgee)
1208        ("libxslt" ,libxslt)
1209        ("telepathy-glib" ,telepathy-glib)
1210        ("vala" ,vala)))
1211     (propagated-inputs
1212      `(("folks", folks)
1213        ("telepathy-mission-control" ,telepathy-mission-control)))
1214     (synopsis "GNOME's integrated address book")
1215     (description
1216      "GNOME Contacts organizes your contact information from online and
1217 offline sources, providing a centralized place for managing your contacts.")
1218     (home-page "https://wiki.gnome.org/Apps/Contacts")
1219     (license license:gpl2+)))
1220
1221 (define-public gnome-desktop
1222   (package
1223     (name "gnome-desktop")
1224     (version "3.34.2")
1225     (source
1226      (origin
1227       (method url-fetch)
1228       (uri (string-append "mirror://gnome/sources/" name "/"
1229                           (version-major+minor version)  "/"
1230                           name "-" version ".tar.xz"))
1231       (sha256
1232        (base32
1233         "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
1234     (build-system meson-build-system)
1235     (arguments
1236      '(#:phases
1237        (modify-phases %standard-phases
1238          (add-before 'configure 'patch-path
1239            (lambda* (#:key inputs #:allow-other-keys)
1240              (let ((libc   (assoc-ref inputs "libc")))
1241                (substitute* "libgnome-desktop/gnome-languages.c"
1242                  (("\"locale\"")
1243                   (string-append "\"" libc "/bin/locale\"")))
1244                #t)))
1245          (add-before 'check 'pre-check
1246            (lambda* (#:key inputs #:allow-other-keys)
1247              ;; Tests require a running X server and locales.
1248              (system "Xvfb :1 &")
1249              (setenv "DISPLAY" ":1")
1250              (setenv "GUIX_LOCPATH"
1251                      (string-append (assoc-ref inputs "glibc-locales")
1252                                     "/lib/locale"))
1253              #t)))))
1254     (native-inputs
1255      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
1256        ("glibc-locales" ,glibc-locales) ; for tests
1257        ("gobject-introspection" ,gobject-introspection)
1258        ("itstool" ,itstool)
1259        ("intltool" ,intltool)
1260        ("pkg-config" ,pkg-config)
1261        ("xmllint" ,libxml2)
1262        ("xorg-server" ,xorg-server-for-tests)))
1263     (propagated-inputs
1264      ;; Required by gnome-desktop-3.0.pc.
1265      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1266        ("gtk+" ,gtk+)
1267        ("iso-codes" ,iso-codes)
1268        ("libseccomp" ,libseccomp)
1269        ("libx11" ,libx11)
1270        ("xkeyboard-config" ,xkeyboard-config)))
1271     (inputs
1272      `(("gdk-pixbuf" ,gdk-pixbuf)
1273        ("glib" ,glib)
1274        ("libxext" ,libxext)
1275        ("libxkbfile" ,libxkbfile)
1276        ("libxrandr" ,libxrandr)))
1277     (home-page "https://www.gnome.org/")
1278     (synopsis
1279      "Libgnome-desktop, gnome-about, and desktop-wide documents")
1280     (description
1281      "The libgnome-desktop library provides API shared by several applications
1282 on the desktop, but that cannot live in the platform for various reasons.
1283 There is no API or ABI guarantee, although we are doing our best to provide
1284 stability.  Documentation for the API is available with gtk-doc.
1285
1286 The gnome-about program helps find which version of GNOME is installed.")
1287     ; Some bits under the LGPL.
1288     (license license:gpl2+)))
1289
1290 (define-public gnome-doc-utils
1291   (package
1292     (name "gnome-doc-utils")
1293     (version "0.20.10")
1294     (source
1295      (origin
1296       (method url-fetch)
1297       (uri (string-append "mirror://gnome/sources/" name "/"
1298                           (version-major+minor version)  "/"
1299                           name "-" version ".tar.xz"))
1300       (sha256
1301        (base32
1302         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
1303     (build-system gnu-build-system)
1304     (native-inputs
1305      `(("intltool" ,intltool)
1306        ("docbook-xml" ,docbook-xml-4.4)
1307        ("python2-libxml2" ,python2-libxml2)
1308        ("libxml2" ,libxml2)
1309        ("libxslt" ,libxslt)
1310        ("pkg-config" ,pkg-config)
1311        ("python-2" ,python-2)))
1312     (home-page "https://wiki.gnome.org/GnomeDocUtils")
1313     (synopsis
1314      "Documentation utilities for the Gnome project")
1315     (description
1316      "Gnome-doc-utils is a collection of documentation utilities for the
1317 Gnome project.  It includes xml2po tool which makes it easier to translate
1318 and keep up to date translations of documentation.")
1319     (license license:gpl2+))) ; xslt under lgpl
1320
1321 (define-public gnome-disk-utility
1322   (package
1323     (name "gnome-disk-utility")
1324     (version "3.32.1")
1325     (source (origin
1326               (method url-fetch)
1327               (uri (string-append "mirror://gnome/sources/" name "/"
1328                                   (version-major+minor version) "/"
1329                                   name "-" version ".tar.xz"))
1330               (sha256
1331                (base32
1332                 "08vwbji9m1nhjjdiyhhaqi8cncys7i89b4bpy095f8475v8y05bg"))))
1333     (build-system meson-build-system)
1334     (arguments
1335      '(#:phases
1336        (modify-phases %standard-phases
1337          (add-after 'unpack 'skip-gtk-update-icon-cache
1338            ;; Don't create 'icon-theme.cache'.
1339            (lambda _
1340              (substitute* "meson_post_install.py"
1341                (("gtk-update-icon-cache") "true"))
1342              #t)))))
1343     (native-inputs
1344      `(("glib:bin" ,glib "bin")
1345        ("intltool" ,intltool)
1346        ("pkg-config" ,pkg-config)
1347        ("docbook-xml" ,docbook-xml)
1348        ("docbook-xsl" ,docbook-xsl)
1349        ("libxml2" ,libxml2)
1350        ("libxslt" ,libxslt)))
1351     (inputs
1352      `(("glib" ,glib)
1353        ("appstream-glib" ,appstream-glib)
1354        ("gnome-settings-daemon" ,gnome-settings-daemon)
1355        ("gtk+" ,gtk+)
1356        ("libcanberra" ,libcanberra)
1357        ("libdvdread" ,libdvdread)
1358        ("libnotify" ,libnotify)
1359        ("libpwquality" ,libpwquality)
1360        ("libsecret" ,libsecret)
1361        ("udisks" ,udisks)))
1362     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
1363     (synopsis "Disk management utility for GNOME")
1364     (description "Disk management utility for GNOME.")
1365     (license license:gpl2+)))
1366
1367 (define-public gnome-font-viewer
1368   (package
1369     (name "gnome-font-viewer")
1370     (version "3.30.0")
1371     (source (origin
1372               (method url-fetch)
1373               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
1374                                   (version-major+minor version)
1375                                   "/gnome-font-viewer-" version ".tar.xz"))
1376               (sha256
1377                (base32
1378                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
1379     (build-system meson-build-system)
1380     (arguments
1381      '(#:phases
1382        (modify-phases %standard-phases
1383          (add-after 'unpack 'patch-post-install-script
1384            (lambda _
1385              (substitute* "meson-postinstall.sh"
1386                (("update-desktop-database") (which "true")))
1387              #t)))))
1388     (native-inputs
1389      `(("gettext" ,gettext-minimal)
1390        ("glib:bin" ,glib "bin")
1391        ("pkg-config" ,pkg-config)))
1392     (inputs
1393      `(("glib" ,glib)
1394        ("gnome-desktop" ,gnome-desktop)
1395        ("gtk+" ,gtk+)))
1396     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
1397     (synopsis "GNOME Fonts")
1398     (description "Application to show you the fonts installed on your computer
1399 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
1400 the font would look under various sizes.")
1401     (license license:gpl2+)))
1402
1403 (define-public gcr
1404   (package
1405     (name "gcr")
1406     (version "3.34.0")
1407     (source (origin
1408               (method url-fetch)
1409               (uri (string-append "mirror://gnome/sources/" name "/"
1410                                   (version-major+minor version)  "/"
1411                                   name "-" version ".tar.xz"))
1412               (sha256
1413                (base32
1414                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
1415     (build-system gnu-build-system)
1416     (arguments
1417      '(#:phases
1418        (modify-phases %standard-phases
1419          ;; These fail because /var/lib/dbus/machine-id is not present in the
1420          ;; build environment.
1421          (add-after 'unpack 'disable-failing-tests
1422            (lambda _
1423              (substitute* "Makefile.in"
1424                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
1425                 ""))
1426              #t))
1427          (add-before 'check 'pre-check
1428            (lambda _
1429              ;; Some tests expect to write to $HOME.
1430              (setenv "HOME" "/tmp")
1431              #t)))))
1432     (inputs
1433      `(("dbus" ,dbus)
1434        ("gnupg" ,gnupg)                ;called as a child process during tests
1435        ("libgcrypt" ,libgcrypt)))
1436     (native-inputs
1437      `(("python" ,python-wrapper)       ;for tests
1438        ("pkg-config" ,pkg-config)
1439        ("gettext" ,gettext-minimal)
1440        ("glib" ,glib "bin")
1441        ("gobject-introspection" ,gobject-introspection)
1442        ("libxml2" ,libxml2)
1443        ("vala" ,vala)
1444        ("xsltproc" ,libxslt)))
1445     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
1446     (propagated-inputs
1447      `(("p11-kit" ,p11-kit)
1448        ("glib" ,glib)
1449        ("gtk+" ,gtk+)))
1450     (home-page "https://www.gnome.org")
1451     (synopsis "Libraries for displaying certificates and accessing key stores")
1452     (description
1453      "The GCR package contains libraries used for displaying certificates and
1454 accessing key stores.  It also provides the viewer for crypto files on the
1455 GNOME Desktop.")
1456     (license license:lgpl2.1+)))
1457
1458 (define-public libgnome-keyring
1459   (package
1460     (name "libgnome-keyring")
1461     (version "3.12.0")
1462     (source (origin
1463              (method url-fetch)
1464              (uri (string-append "mirror://gnome/sources/" name "/"
1465                                  (version-major+minor version)  "/"
1466                                  name "-" version ".tar.xz"))
1467              (sha256
1468               (base32
1469                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
1470     (build-system gnu-build-system)
1471     (inputs
1472      `(("libgcrypt" ,libgcrypt)
1473        ("dbus" ,dbus)))
1474     (native-inputs
1475      `(("pkg-config" ,pkg-config)
1476        ("glib" ,glib "bin")
1477        ("intltool" ,intltool)))
1478     (propagated-inputs
1479      ;; Referred to in .h files and .pc.
1480      `(("glib" ,glib)))
1481     (home-page "https://www.gnome.org")
1482     (synopsis "Accessing passwords from the GNOME keyring")
1483     (description
1484      "Client library to access passwords from the GNOME keyring.")
1485
1486     ;; Though a couple of files are LGPLv2.1+.
1487     (license license:lgpl2.0+)))
1488
1489 (define-public gnome-keyring
1490   (package
1491     (name "gnome-keyring")
1492     (version "3.28.2")
1493     (source (origin
1494              (method url-fetch)
1495              (uri (string-append "mirror://gnome/sources/" name "/"
1496                                  (version-major+minor version)  "/"
1497                                  name "-" version ".tar.xz"))
1498              (sha256
1499               (base32
1500                "0sk4las4ji8wv9nx8mldzqccmpmkvvr9pdwv9imj26r10xyin5w1"))))
1501     (build-system gnu-build-system)
1502     (arguments
1503      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
1504                    ;not exist
1505        #:configure-flags
1506        (list
1507         (string-append "--with-pkcs11-config="
1508                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
1509         (string-append "--with-pkcs11-modules="
1510                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
1511        #:phases
1512        (modify-phases %standard-phases
1513          (add-after 'unpack 'fix-/bin/sh-reference
1514            (lambda _
1515              (substitute* "po/Makefile.in.in"
1516                (("/bin/sh") (which "sh")))
1517              #t))
1518          (add-after 'unpack 'fix-docbook
1519            (lambda* (#:key inputs #:allow-other-keys)
1520              (substitute* "docs/Makefile.am"
1521                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1522                 (string-append (assoc-ref inputs "docbook-xsl")
1523                                "/xml/xsl/docbook-xsl-"
1524                                ,(package-version docbook-xsl)
1525                                "/manpages/docbook.xsl")))
1526              (setenv "XML_CATALOG_FILES"
1527                      (string-append (assoc-ref inputs "docbook-xml")
1528                                     "/xml/dtd/docbook/catalog.xml"))
1529              ;; Rerun the whole thing to avoid version mismatch ("This is
1530              ;; Automake 1.15.1, but the definition used by this
1531              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
1532              ;; use 'autoreconf' because it insists on running 'libtoolize'.
1533              (invoke "autoconf")
1534              (invoke "aclocal")
1535              (invoke "automake" "-ac"))))))
1536     (inputs
1537      `(("libgcrypt" ,libgcrypt)
1538        ("linux-pam" ,linux-pam)
1539        ("openssh" ,openssh)
1540        ("dbus" ,dbus)
1541        ("gcr" ,gcr)))
1542     (native-inputs
1543      `(("pkg-config" ,pkg-config)
1544        ("glib" ,glib "bin")
1545        ("glib" ,glib) ; for m4 macros
1546        ("python" ,python-2) ;for tests
1547        ("intltool" ,intltool)
1548        ("autoconf" ,autoconf)
1549        ("automake" ,automake)
1550        ("libxslt" ,libxslt) ;for documentation
1551        ("docbook-xml" ,docbook-xml-4.2)
1552        ("docbook-xsl" ,docbook-xsl)))
1553     (home-page "https://www.gnome.org")
1554     (synopsis "Daemon to store passwords and encryption keys")
1555     (description
1556      "gnome-keyring is a program that keeps passwords and other secrets for
1557 users.  It is run as a daemon in the session, similar to ssh-agent, and other
1558 applications locate it via an environment variable or D-Bus.
1559
1560 The program can manage several keyrings, each with its own master password,
1561 and there is also a session keyring which is never stored to disk, but
1562 forgotten when the session ends.")
1563     (license license:lgpl2.1+)))
1564
1565 (define-public evince
1566   (package
1567     (name "evince")
1568     (version "3.34.2")
1569     (source (origin
1570              (method url-fetch)
1571              (uri (string-append "mirror://gnome/sources/evince/"
1572                                  (version-major+minor version) "/"
1573                                  "evince-" version ".tar.xz"))
1574              (sha256
1575               (base32
1576                "05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w"))))
1577     (build-system glib-or-gtk-build-system)
1578     (arguments
1579      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
1580        #:phases
1581        (modify-phases %standard-phases
1582          (add-before 'install 'skip-gtk-update-icon-cache
1583            ;; Don't create 'icon-theme.cache'.
1584            (lambda _
1585              (substitute* "data/Makefile"
1586                (("gtk-update-icon-cache") "true"))
1587              #t)))))
1588     (inputs
1589      `(("libarchive" ,libarchive)
1590        ("libgxps" ,libgxps)
1591        ("libspectre" ,libspectre)
1592        ("djvulibre" ,djvulibre)
1593        ("ghostscript" ,ghostscript)
1594        ("poppler" ,poppler)
1595        ("libtiff" ,libtiff)
1596        ;; TODO:
1597        ;;   Build libkpathsea as a shared library for DVI support.
1598        ;; ("libkpathsea" ,texlive-bin)
1599        ("gnome-desktop" ,gnome-desktop)
1600        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1601        ("gspell" ,gspell)
1602        ("libgnome-keyring" ,libgnome-keyring)
1603        ("adwaita-icon-theme" ,adwaita-icon-theme)
1604        ("gdk-pixbuf" ,gdk-pixbuf)
1605        ("atk" ,atk)
1606        ("pango" ,pango)
1607        ("gtk+" ,gtk+)
1608        ("glib" ,glib)
1609        ("libxml2" ,libxml2)
1610        ("libsm" ,libsm)
1611        ("libice" ,libice)
1612        ("shared-mime-info" ,shared-mime-info)
1613        ("dconf" ,dconf)
1614        ("libcanberra" ,libcanberra)
1615        ("libsecret" ,libsecret)
1616
1617        ;; For tests.
1618        ("dogtail" ,python2-dogtail)))
1619     (native-inputs
1620      `(("itstool" ,itstool)
1621        ("intltool" ,intltool)
1622        ("glib" ,glib "bin")
1623        ("gobject-introspection" ,gobject-introspection)
1624        ("pkg-config" ,pkg-config)
1625        ("xmllint" ,libxml2)))
1626     (home-page
1627      "https://www.gnome.org/projects/evince/")
1628     (synopsis "GNOME's document viewer")
1629     (description
1630      "Evince is a document viewer for multiple document formats.  It
1631 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
1632 of Evince is to replace the multiple document viewers that exist
1633 on the GNOME Desktop with a single simple application.")
1634     (license license:gpl2+)))
1635
1636 (define-public gsettings-desktop-schemas
1637   (package
1638     (name "gsettings-desktop-schemas")
1639     (version "3.34.0")
1640     (source
1641      (origin
1642       (method url-fetch)
1643       (uri (string-append "mirror://gnome/sources/" name "/"
1644                           (version-major+minor version)  "/"
1645                           name "-" version ".tar.xz"))
1646       (sha256
1647        (base32
1648         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
1649     (build-system meson-build-system)
1650     (arguments
1651      '(#:phases (modify-phases %standard-phases
1652                   (add-after 'unpack 'patch-schemas
1653                     (lambda* (#:key inputs #:allow-other-keys)
1654                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
1655                         (substitute* (find-files "schemas"
1656                                                  "\\.gschema\\.xml\\.in$")
1657                           ;; Provide the correct file name of the default GNOME
1658                           ;; background, 'adwaita-timed.xml'.
1659                           (("@datadir@/backgrounds/gnome")
1660                            (string-append theme "/share/backgrounds/gnome"))
1661                           ;; Do not reference fonts, that may not exist.
1662                           (("'Source Code Pro 10'") "'Monospace 11'"))
1663                         #t))))))
1664     (inputs
1665      `(("glib" ,glib)
1666        ("gnome-backgrounds" ,gnome-backgrounds)))
1667     (native-inputs
1668      `(("intltool" ,intltool)
1669        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
1670        ("gobject-introspection" ,gobject-introspection)
1671        ("pkg-config" ,pkg-config)))
1672     (home-page "https://launchpad.net/gsettings-desktop-schemas")
1673     (synopsis
1674      "GNOME settings for various desktop components")
1675     (description
1676      "Gsettings-desktop-schemas contains a collection of GSettings schemas
1677 for settings shared by various components of the GNOME desktop.")
1678     (license license:lgpl2.1+)))
1679
1680 (define-public icon-naming-utils
1681   (package
1682     (name "icon-naming-utils")
1683     (version "0.8.90")
1684     (source
1685      (origin
1686       (method url-fetch)
1687       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
1688                           version ".tar.bz2"))
1689       (sha256
1690        (base32
1691         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
1692     (build-system gnu-build-system)
1693     (inputs
1694      `(("perl" ,perl)
1695        ("perl-xml-simple" ,perl-xml-simple)))
1696     (arguments
1697      '(#:phases
1698        (modify-phases %standard-phases
1699          (add-after 'install 'set-load-paths
1700            ;; Tell 'icon-name-mapping' where XML::Simple is.
1701            (lambda* (#:key outputs #:allow-other-keys)
1702              (let* ((out  (assoc-ref outputs "out"))
1703                     (prog (string-append out "/libexec/icon-name-mapping")))
1704                (wrap-program
1705                    prog
1706                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
1707              #t)))))
1708     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
1709     (synopsis
1710      "Utility to implement the Freedesktop Icon Naming Specification")
1711     (description
1712      "To help with the transition to the Freedesktop Icon Naming
1713 Specification, the icon naming utility maps the icon names used by the
1714 GNOME and KDE desktops to the icon names proposed in the specification.")
1715     (license license:lgpl2.1+)))
1716
1717 (define-public gnome-icon-theme
1718   (package
1719     (name "gnome-icon-theme")
1720     (version "3.12.0")
1721     (source
1722      (origin
1723       (method url-fetch)
1724       (uri (string-append "mirror://gnome/sources/" name "/"
1725                           (version-major+minor version)  "/"
1726                           name "-" version ".tar.xz"))
1727       (sha256
1728        (base32
1729         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
1730     (build-system gnu-build-system)
1731     (arguments
1732      '(#:configure-flags
1733        ;; Don't create 'icon-theme.cache'.
1734        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
1735               (true      (string-append coreutils "/bin/true")))
1736          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
1737     (native-inputs
1738      `(("icon-naming-utils" ,icon-naming-utils)
1739        ("intltool" ,intltool)
1740        ("pkg-config" ,pkg-config)))
1741     (home-page "https://wiki.gnome.org/Personalization")
1742     (synopsis "GNOME icon theme")
1743     (description "Icons for the GNOME desktop.")
1744     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
1745
1746 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
1747 (define-public adwaita-icon-theme
1748   (package (inherit gnome-icon-theme)
1749     (name "adwaita-icon-theme")
1750     (version "3.34.3")
1751     (source (origin
1752               (method url-fetch)
1753               (uri (string-append "mirror://gnome/sources/" name "/"
1754                                   (version-major+minor version) "/"
1755                                   name "-" version ".tar.xz"))
1756               (sha256
1757                (base32
1758                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
1759     (native-inputs
1760      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
1761
1762 (define-public tango-icon-theme
1763   (package
1764     (name "tango-icon-theme")
1765     (version "0.8.90")
1766     (source (origin
1767               (method url-fetch)
1768               (uri (string-append "http://tango.freedesktop.org/releases/"
1769                                   "tango-icon-theme-" version ".tar.bz2"))
1770               (sha256
1771                (base32
1772                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
1773     (build-system gnu-build-system)
1774     (native-inputs
1775      `(("icon-naming-utils" ,icon-naming-utils)
1776        ("intltool" ,intltool)
1777        ("imagemagick" ,imagemagick)
1778        ("pkg-config" ,pkg-config)))
1779     (home-page "http://tango-project.org/")
1780     (synopsis "Tango icon theme")
1781     (description "This is an icon theme that follows the Tango visual
1782 guidelines.")
1783     (license license:public-domain)))
1784
1785 (define-public shared-mime-info
1786   (package
1787     (name "shared-mime-info")
1788     (version "1.15")
1789     (source (origin
1790              (method url-fetch)
1791              (uri (string-append
1792                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
1793                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
1794                    ".tar.xz"))
1795              (sha256
1796               (base32
1797                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
1798     (build-system gnu-build-system)
1799     (arguments
1800      ;; The build system appears not to be parallel-safe.
1801      '(#:parallel-build? #f))
1802     (inputs
1803      `(("glib" ,glib)
1804        ("libxml2" ,libxml2)))
1805     (native-inputs
1806      `(("gettext" ,gettext-minimal)
1807        ("itstool" ,itstool)
1808        ("pkg-config" ,pkg-config)))
1809     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
1810     (synopsis "Database of common MIME types")
1811     (description
1812      "The shared-mime-info package contains the core database of common types
1813 and the update-mime-database command used to extend it.  It requires glib2 to
1814 be installed for building the update command.  Additionally, it uses intltool
1815 for translations, though this is only a dependency for the maintainers.  This
1816 database is translated at Transifex.")
1817     (license license:gpl2+)))
1818
1819 (define-public system-config-printer
1820   (package
1821     (name "system-config-printer")
1822     (version "1.5.12")
1823     (source
1824      (origin
1825        (method url-fetch)
1826        (uri (string-append
1827              "https://github.com/OpenPrinting/system-config-printer/releases/"
1828              "download/" version
1829              "/system-config-printer-" version ".tar.xz"))
1830        (sha256
1831         (base32 "050yrx1vfh9f001qsn06y1jcidxq0ymxr64kxykasr0zzryp25kb"))))
1832     (build-system glib-or-gtk-build-system)
1833     (arguments
1834      `(#:imported-modules ((guix build python-build-system)
1835                            ,@%glib-or-gtk-build-system-modules)
1836        #:phases
1837        (modify-phases %standard-phases
1838          (add-after 'unpack 'patch-Makefile.am
1839            (lambda _
1840              ;; The Makefile generates some scripts, so set a valid shebang
1841              (substitute* "Makefile.am"
1842                (("/bin/bash") (which "bash")))
1843              (delete-file "configure")
1844              #t))
1845          (add-after 'unpack 'patch-docbook-xml
1846            (lambda* (#:key inputs #:allow-other-keys)
1847              ;; Modify the man XML otherwise xmlto tries to access the network
1848              (substitute* "man/system-config-printer.xml"
1849                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
1850                 (string-append (assoc-ref inputs "docbook-xml")
1851                                "/xml/dtd/docbook/")))
1852              #t))
1853          (add-after 'install 'wrap-for-python
1854            (@@ (guix build python-build-system) wrap))
1855          (add-after 'install 'wrap
1856            (lambda* (#:key outputs #:allow-other-keys)
1857              (let ((out               (assoc-ref outputs "out"))
1858                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
1859                (for-each
1860                 (lambda (program)
1861                   (wrap-program program
1862                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
1863                 (map (lambda (name)
1864                        (string-append out "/bin/" name))
1865                      '("system-config-printer"
1866                        "system-config-printer-applet"
1867                        "install-printerdriver"
1868                        "scp-dbus-service"))))
1869              #t)))))
1870     (inputs
1871      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1872        ("gobject-introspection" ,gobject-introspection)
1873        ("python" ,python)
1874        ("cups" ,cups)
1875        ("python-dbus" ,python-dbus)
1876        ("python-pygobject" ,python-pygobject)
1877        ("python-pycups" ,python-pycups)
1878        ("python-requests" ,python-requests)
1879        ("python-pycairo" ,python-pycairo)
1880        ("libnotify" ,libnotify)
1881        ("packagekit" ,packagekit)))
1882     (native-inputs
1883      `(("pkg-config" ,pkg-config)
1884        ("desktop-file-utils" ,desktop-file-utils)
1885        ("glib" ,glib)
1886        ("autoconf" ,autoconf)
1887        ("automake" ,automake)
1888        ("intltool" ,intltool)
1889        ("xmlto" ,xmlto)
1890        ("docbook-xml" ,docbook-xml-4.1.2)
1891        ("docbook-xsl" ,docbook-xsl)
1892        ("libxml2" ,libxml2)))
1893     (home-page "https://github.com/zdohnal/system-config-printer")
1894     (synopsis "CUPS administration tool")
1895     (description
1896      "system-config-printer is a CUPS administration tool.  It's written in
1897 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
1898 configuring CUPS.")
1899     (license license:gpl2+)))
1900
1901 (define-public hicolor-icon-theme
1902   (package
1903     (name "hicolor-icon-theme")
1904     (version "0.17")
1905     (source
1906      (origin
1907       (method url-fetch)
1908       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
1909                           "hicolor-icon-theme-" version ".tar.xz"))
1910       (sha256
1911        (base32
1912         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
1913     (build-system gnu-build-system)
1914     (arguments
1915      `(#:tests? #f)) ; no check target
1916     (home-page "https://icon-theme.freedesktop.org/releases/")
1917     (synopsis
1918      "Freedesktop icon theme")
1919     (description
1920      "Freedesktop icon theme.")
1921     (license license:gpl2)))
1922
1923 (define-public libnotify
1924   (package
1925     (name "libnotify")
1926     (version "0.7.7")
1927     (source
1928      (origin
1929       (method url-fetch)
1930       (uri (string-append "mirror://gnome/sources/" name "/"
1931                           (version-major+minor version)  "/"
1932                           name "-" version ".tar.xz"))
1933       (sha256
1934        (base32
1935         "017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
1936     (build-system gnu-build-system)
1937     (arguments
1938      `(#:configure-flags '("--disable-static")))
1939     (propagated-inputs
1940      `(;; In Requires of libnotify.pc.
1941        ("gdk-pixbuf" ,gdk-pixbuf)
1942        ("glib" ,glib)))
1943     (inputs
1944      `(("gtk+" ,gtk+)
1945        ("libpng" ,libpng)))
1946     (native-inputs
1947       `(("pkg-config" ,pkg-config)
1948         ("glib" ,glib "bin")
1949         ("gobject-introspection" ,gobject-introspection)))
1950     (home-page "https://developer-next.gnome.org/libnotify/")
1951     (synopsis
1952      "GNOME desktop notification library")
1953     (description
1954      "Libnotify is a library that sends desktop notifications to a
1955 notification daemon, as defined in the Desktop Notifications spec.  These
1956 notifications can be used to inform the user about an event or display
1957 some form of information without getting in the user's way.")
1958     (license license:lgpl2.1+)))
1959
1960 (define-public libpeas
1961   (package
1962     (name "libpeas")
1963     (version "1.24.1")
1964     (source
1965      (origin
1966       (method url-fetch)
1967       (uri (string-append "mirror://gnome/sources/" name "/"
1968                           (version-major+minor version)  "/"
1969                           name "-" version ".tar.xz"))
1970       (sha256
1971        (base32
1972         "1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
1973     (build-system meson-build-system)
1974     (arguments
1975      '(#:phases
1976        (modify-phases %standard-phases
1977          (add-before 'check 'start-xserver
1978            (lambda* (#:key inputs #:allow-other-keys)
1979              (let ((xorg-server (assoc-ref inputs "xorg-server"))
1980                    (disp ":1"))
1981                (setenv "DISPLAY" disp)
1982                ;; Tests require a running X server.
1983                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
1984                #t))))))
1985     (inputs
1986      `(("gtk+" ,gtk+)
1987        ("glade" ,glade3)
1988        ("python" ,python)
1989        ("python-pygobject" ,python-pygobject)))
1990     (native-inputs
1991      `(("pkg-config" ,pkg-config)
1992        ("gettext" ,gettext-minimal)
1993        ("glib:bin" ,glib "bin")
1994        ("gobject-introspection" ,gobject-introspection)
1995        ("xorg-server" ,xorg-server-for-tests)))
1996     (propagated-inputs
1997      ;; The .pc file "Requires" gobject-introspection.
1998      `(("gobject-introspection" ,gobject-introspection)))
1999     (home-page "https://wiki.gnome.org/Libpeas")
2000     (synopsis "GObject plugin system")
2001     (description
2002      "Libpeas is a gobject-based plugin engine, targeted at giving every
2003 application the chance to assume its own extensibility.  It also has a set of
2004 features including, but not limited to: multiple extension points; on-demand
2005 (lazy) programming language support for C, Python and JS; simplicity of the
2006 API.")
2007     (license license:lgpl2.0+)))
2008
2009 (define-public gtkglext
2010   (package
2011     (name "gtkglext")
2012     (version "1.2.0")
2013     (source (origin
2014               (method url-fetch)
2015               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
2016                                   version "/gtkglext-" version ".tar.gz"))
2017               (sha256
2018                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
2019               (patches (search-patches
2020                         "gtkglext-disable-disable-deprecated.patch"))))
2021     (build-system gnu-build-system)
2022     (arguments
2023      `(#:phases
2024        (modify-phases %standard-phases
2025          ;; Fix a collision between a local variable and a definition from
2026          ;; glibc's string.h.
2027          (add-after 'unpack 'fix-collision
2028            (lambda _
2029              (substitute* "gdk/gdkglshapes.c"
2030                ((" index") " triangle_index"))
2031              #t)))))
2032     (inputs `(("gtk+" ,gtk+-2)
2033               ("mesa" ,mesa)
2034               ("glu" ,glu)
2035               ("libx11" ,libx11)
2036               ("libxt" ,libxt)))
2037     (native-inputs `(("pkg-config" ,pkg-config)
2038                      ("glib" ,glib "bin")))
2039     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
2040     (home-page "https://projects.gnome.org/gtkglext")
2041     (synopsis "OpenGL extension to GTK+")
2042     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
2043 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
2044 API add-ons to make GTK+ widgets OpenGL-capable.")
2045     (license license:lgpl2.1+)))
2046
2047 (define-public glade3
2048   (package
2049     (name "glade")
2050     (version "3.22.1")
2051     (source (origin
2052               (method url-fetch)
2053               (uri (string-append "mirror://gnome/sources/" name "/"
2054                                   (version-major+minor version)  "/"
2055                                   name "-" version ".tar.xz"))
2056               (sha256
2057                (base32
2058                 "16p38xavpid51qfy0s26n0n21f9ws1w9k5s65bzh1w7ay8p9my6z"))))
2059     (build-system glib-or-gtk-build-system)
2060     (arguments
2061      `(#:tests? #f ; needs X, GL, and software rendering
2062        #:phases
2063        (modify-phases %standard-phases
2064          (add-before 'configure 'fix-docbook
2065            (lambda* (#:key inputs #:allow-other-keys)
2066              (substitute* "man/Makefile.in"
2067                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2068                 (string-append (assoc-ref inputs "docbook-xsl")
2069                                "/xml/xsl/docbook-xsl-"
2070                                ,(package-version docbook-xsl)
2071                                "/manpages/docbook.xsl")))
2072              #t)))))
2073     (inputs
2074      `(("gtk+" ,gtk+)
2075        ("libxml2" ,libxml2)))
2076     (native-inputs
2077      `(("intltool" ,intltool)
2078        ("itstool" ,itstool)
2079        ("libxslt" ,libxslt) ;for xsltproc
2080        ("docbook-xml" ,docbook-xml-4.2)
2081        ("docbook-xsl" ,docbook-xsl)
2082        ("python" ,python-2)
2083        ("pkg-config" ,pkg-config)))
2084     (home-page "https://glade.gnome.org")
2085     (synopsis "GTK+ rapid application development tool")
2086     (description "Glade is a rapid application development (RAD) tool to
2087 enable quick & easy development of user interfaces for the GTK+ toolkit and
2088 the GNOME desktop environment.")
2089     (license license:lgpl2.0+)))
2090
2091 (define-public libcroco
2092   (package
2093     (name "libcroco")
2094     (version "0.6.13")
2095     (source (origin
2096               (method url-fetch)
2097               (uri (string-append "mirror://gnome/sources/" name "/"
2098                                   (version-major+minor version)  "/"
2099                                   name "-" version ".tar.xz"))
2100               (sha256
2101                (base32
2102                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
2103     (build-system gnu-build-system)
2104     (native-inputs
2105      `(("pkg-config" ,pkg-config)))
2106     (inputs
2107      `(("glib" ,glib)
2108        ("libxml2" ,libxml2)
2109        ("zlib" ,zlib)))
2110     (home-page "https://github.com/GNOME/libcroco")
2111     (synopsis "CSS2 parsing and manipulation library")
2112     (description
2113      "Libcroco is a standalone CSS2 parsing and manipulation library.
2114 The parser provides a low level event driven SAC-like API and a CSS object
2115 model like API.  Libcroco provides a CSS2 selection engine and an experimental
2116 XML/CSS rendering engine.")
2117
2118     ;; LGPLv2.1-only.
2119     (license license:lgpl2.1)))
2120
2121 (define-public libgsf
2122   (package
2123     (name "libgsf")
2124     (version "1.14.47")
2125     (source (origin
2126               (method url-fetch)
2127               (uri (string-append "mirror://gnome/sources/" name "/"
2128                                   (version-major+minor version)  "/"
2129                                   name "-" version ".tar.xz"))
2130               (sha256
2131                (base32
2132                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
2133     (build-system gnu-build-system)
2134     (arguments
2135      '(#:configure-flags '("--disable-static")))
2136     (native-inputs
2137      `(("pkg-config" ,pkg-config)
2138        ("gettext" ,gettext-minimal)
2139
2140        ;; For tests.
2141        ("perl" ,perl)
2142        ("perl-xml-parser" ,perl-xml-parser)))
2143     (inputs
2144      `(("zlib" ,zlib)
2145        ("bzip2" ,bzip2)))
2146     (propagated-inputs
2147      `(("gdk-pixbuf" ,gdk-pixbuf)
2148        ("glib" ,glib)
2149        ("libxml2" ,libxml2)))
2150     (home-page "https://www.gnome.org/projects/libgsf")
2151     (synopsis "GNOME's Structured File Library")
2152     (description
2153      "Libgsf aims to provide an efficient extensible I/O abstraction for
2154 dealing with different structured file formats.")
2155
2156     ;; LGPLv2.1-only.
2157     (license license:lgpl2.1)))
2158
2159 (define-public librsvg
2160   (package
2161     (name "librsvg")
2162     (version "2.40.21")
2163     (source (origin
2164               (method url-fetch)
2165               (uri (string-append "mirror://gnome/sources/" name "/"
2166                                   (version-major+minor version)  "/"
2167                                   name "-" version ".tar.xz"))
2168               (sha256
2169                (base32
2170                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
2171     (build-system gnu-build-system)
2172     (arguments
2173      `(#:configure-flags
2174        (list "--disable-static"
2175              "--enable-vala") ; needed for e.g. gnome-mines
2176        #:phases
2177        (modify-phases %standard-phases
2178          (add-before 'configure 'pre-configure
2179            (lambda* (#:key inputs #:allow-other-keys)
2180              (substitute* "gdk-pixbuf-loader/Makefile.in"
2181                ;; By default the gdk-pixbuf loader is installed under
2182                ;; gdk-pixbuf's prefix.  Work around that.
2183                (("gdk_pixbuf_moduledir = .*$")
2184                 (string-append "gdk_pixbuf_moduledir = "
2185                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
2186                                 "loaders\n"))
2187                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
2188                (("gdk_pixbuf_cache_file = .*$")
2189                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
2190              #t))
2191          (add-before 'check 'remove-failing-tests
2192            (lambda _
2193              (with-directory-excursion "tests/fixtures/reftests"
2194                (for-each delete-file
2195                          '(;; This test fails on i686:
2196                            "svg1.1/masking-path-04-b.svg"
2197                            ;; This test fails on armhf:
2198                            "svg1.1/masking-mask-01-b.svg"
2199                            ;; This test fails on aarch64:
2200                            "bugs/777834-empty-text-children.svg")))
2201              #t)))))
2202     (native-inputs
2203      `(("pkg-config" ,pkg-config)
2204        ("vala" ,vala)
2205        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
2206        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
2207     (inputs
2208      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
2209        ;; this ancient version of librsvg.
2210        ("pango" ,pango-1.42)
2211        ("libcroco" ,libcroco)
2212        ("bzip2" ,bzip2)
2213        ("libgsf" ,libgsf)
2214        ("libxml2" ,libxml2)))
2215     (propagated-inputs
2216      ;; librsvg-2.0.pc refers to all of that.
2217      `(("cairo" ,cairo)
2218        ("gdk-pixbuf" ,gdk-pixbuf)
2219        ("glib" ,glib)))
2220     (home-page "https://wiki.gnome.org/LibRsvg")
2221     (synopsis "Render SVG files using Cairo")
2222     (description
2223      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
2224 library.")
2225     (license license:lgpl2.0+)))
2226
2227 (define-public librsvg-next
2228   (package
2229     (inherit librsvg)
2230     (name "librsvg")
2231     (version "2.46.4")
2232     (source (origin
2233               (method url-fetch)
2234               (uri (string-append "mirror://gnome/sources/librsvg/"
2235                                   (version-major+minor version)  "/"
2236                                   "librsvg-" version ".tar.xz"))
2237               (sha256
2238                (base32
2239                 "0afc82nsxc6kw136xid4vcq9kmq4rmgzzk8bh2pvln2cnvirwnxl"))
2240               (modules '((guix build utils)))
2241               (snippet
2242                '(begin (delete-file-recursively "vendor")
2243                        ;; Don't demand an exact version for string_cache
2244                        (substitute* "rsvg_internals/Cargo.toml"
2245                          (("\"=") "\""))
2246                        #t))))
2247     (build-system cargo-build-system)
2248     (arguments
2249      `(#:modules ((guix build cargo-build-system)
2250                   (guix build utils)
2251                   ((guix build gnu-build-system) #:prefix gnu:))
2252        #:vendor-dir "vendor"
2253        #:cargo-inputs
2254        (("rust-bitflags" ,rust-bitflags-1)
2255         ("rust-cairo-rs" ,rust-cairo-rs-0.7)
2256         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
2257         ("rust-cssparser" ,rust-cssparser-0.25)
2258         ("rust-data-url" ,rust-data-url-0.1)
2259         ("rust-downcast-rs" ,rust-downcast-rs-1.1)
2260         ("rust-encoding" ,rust-encoding-0.2)
2261         ("rust-float-cmp" ,rust-float-cmp-0.5)
2262         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.7)
2263         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
2264         ("rust-gio" ,rust-gio-0.7)
2265         ("rust-gio-sys" ,rust-gio-sys-0.9)
2266         ("rust-glib" ,rust-glib-0.8)
2267         ("rust-glib-sys" ,rust-glib-sys-0.9)
2268         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
2269         ("rust-itertools" ,rust-itertools-0.8)
2270         ("rust-language-tags" ,rust-language-tags-0.2)
2271         ("rust-lazy-static" ,rust-lazy-static-1)
2272         ("rust-libc" ,rust-libc-0.2)
2273         ("rust-locale-config" ,rust-locale-config-0.3)
2274         ("rust-markup5ever" ,rust-markup5ever-0.9)
2275         ("rust-nalgebra" ,rust-nalgebra-0.18)
2276         ("rust-num-traits" ,rust-num-traits-0.2)
2277         ("rust-pkg-config" ,rust-pkg-config-0.3)
2278         ("rust-pango" ,rust-pango-0.7)
2279         ("rust-pango-sys" ,rust-pango-sys-0.9)
2280         ("rust-pangocairo" ,rust-pangocairo-0.8)
2281         ("rust-phf" ,rust-phf-0.7)
2282         ("rust-rayon" ,rust-rayon-1.3)
2283         ("rust-rctree" ,rust-rctree-0.3)
2284         ("rust-string-cache" ,rust-string-cache-0.7)
2285         ("rust-regex" ,rust-regex-1.3)
2286         ("rust-url" ,rust-url-2.1)
2287         ("rust-xml-rs" ,rust-xml-rs-0.8))
2288        #:cargo-development-inputs
2289        (("rust-cairo-rs" ,rust-cairo-rs-0.7)
2290         ("rust-criterion" ,rust-criterion-0.2))
2291        #:phases
2292        (modify-phases %standard-phases
2293          (add-after 'unpack 'prepare-for-build
2294            (lambda _
2295              ;; In lieu of #:make-flags
2296              (setenv "CC" "gcc")
2297              ;; Something about the build environment resists building
2298              ;; successfully with the '--locked' flag.
2299              (substitute* '("Makefile.am"
2300                             "Makefile.in")
2301                (("--locked") ""))
2302              #t))
2303          (add-before 'configure 'pre-configure
2304            (lambda _
2305              (substitute* "gdk-pixbuf-loader/Makefile.in"
2306                ;; By default the gdk-pixbuf loader is installed under
2307                ;; gdk-pixbuf's prefix.  Work around that.
2308                (("gdk_pixbuf_moduledir = .*$")
2309                 (string-append "gdk_pixbuf_moduledir = "
2310                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
2311                                 "loaders\n"))
2312                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
2313                (("gdk_pixbuf_cache_file = .*$")
2314                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
2315              #t))
2316          (add-after 'configure 'gnu-configure
2317            (assoc-ref gnu:%standard-phases 'configure))
2318            ;(lambda* (#:key outputs #:allow-other-keys)
2319            ;  ((assoc-ref gnu:%standard-phases 'configure)
2320            ;   #:outputs outputs
2321            ;   #:configure-flags ("--disable-static"
2322            ;                      "--enable-vala"))))
2323          (add-after 'configure 'dont-vendor-self
2324            (lambda* (#:key vendor-dir #:allow-other-keys)
2325              ;; Don't keep the whole tarball in the vendor directory
2326              (delete-file-recursively
2327                (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
2328              #t))
2329          (replace 'build
2330            (assoc-ref gnu:%standard-phases 'build))
2331          (replace 'check
2332            (lambda* args
2333              ((assoc-ref gnu:%standard-phases 'check)
2334               #:test-target "check")))
2335          (replace 'install
2336            (assoc-ref gnu:%standard-phases 'install))
2337          (add-before 'check 'remove-failing-tests
2338            (lambda _
2339              (with-directory-excursion "tests/fixtures/reftests"
2340                (for-each delete-file
2341                          '(;; The images produced by these tests differ slightly
2342                            ;; from their reference counterparts due to differences
2343                            ;; in the build environment (missing fonts, etc).  See
2344                            ;; <tests/README.md> for details.
2345                            ;; These fail on x86_64.
2346                            "svg1.1/coords-viewattr-02-b.svg"
2347                            "svg1.1/filters-composite-04-f.svg"
2348                            "svg1.1/filters-image-01-b.svg"
2349                            "svg1.1/filters-conv-02-f.svg"
2350                            "svg1.1/filters-conv-04-f.svg"
2351                            ;; This test fails on i686:
2352                            "svg1.1/masking-path-04-b.svg"
2353                            ;; This test fails on armhf:
2354                            "svg1.1/masking-mask-01-b.svg"
2355                            ;; This test fails on aarch64:
2356                            "bugs/777834-empty-text-children.svg")))
2357              #t)))))
2358     (license license:lgpl2.1+)))
2359
2360 (define-public libidl
2361   (package
2362     (name "libidl")
2363     (version "0.8.14")
2364     (source (origin
2365               (method url-fetch)
2366               (uri (string-append "mirror://gnome/sources/libIDL/"
2367                                   (version-major+minor version) "/"
2368                                   "libIDL-" version ".tar.bz2"))
2369               (sha256
2370                (base32
2371                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
2372     (build-system gnu-build-system)
2373     (inputs `(("glib" ,glib)))
2374     (native-inputs
2375      `(("pkg-config" ,pkg-config)
2376        ("flex" ,flex)
2377        ("bison" ,bison)))
2378     (home-page "http://freecode.com/projects/libidl")
2379     (synopsis "Create trees of CORBA Interface Definition Language files")
2380     (description  "Libidl is a library for creating trees of CORBA Interface
2381 Definition Language (idl) files, which is a specification for defining
2382 portable interfaces. libidl was initially written for orbit (the orb from the
2383 GNOME project, and the primary means of libidl distribution).  However, the
2384 functionality was designed to be as reusable and portable as possible.")
2385     (properties `((upstream-name . "libIDL")))
2386     (license license:lgpl2.0+)))
2387
2388
2389 (define-public orbit2
2390   (package
2391     (name "orbit2")
2392     (version "2.14.19")
2393     (source (origin
2394               (method url-fetch)
2395               (uri (let ((upstream-name "ORBit2"))
2396                      (string-append "mirror://gnome/sources/" upstream-name "/"
2397                                     (version-major+minor version) "/"
2398                                     upstream-name "-" version ".tar.bz2")))
2399               (sha256
2400                (base32
2401                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
2402     (build-system gnu-build-system)
2403     (arguments
2404      `(;; The "timeout-server" test hangs when run in parallel.
2405        #:parallel-tests? #f
2406        #:configure-flags
2407        '(;; We don't need static libraries, plus they don't build reproducibly
2408          ;; (non-deterministic ordering of .o files in the archive.)
2409          "--disable-static"
2410
2411          ;; The programmer kindly gives us a hook to turn off deprecation
2412          ;; warnings ...
2413          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
2414        ;; ... which they then completly ignore !!
2415        #:phases
2416        (modify-phases %standard-phases
2417          (add-before 'configure 'ignore-deprecations
2418            (lambda _
2419              (substitute* "linc2/src/Makefile.in"
2420                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2421              #t)))))
2422     (inputs `(("glib" ,glib)
2423               ("libidl" ,libidl)))
2424     (native-inputs
2425      `(("pkg-config" ,pkg-config)))
2426     (home-page "https://projects.gnome.org/orbit2/")
2427     (synopsis "CORBA 2.4-compliant Object Request Broker")
2428     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
2429 featuring mature C, C++ and Python bindings.")
2430     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
2431     ;; a version.  SOME of the code files have licence notices for GPLv2+.
2432     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
2433     (license license:gpl2+)
2434     (properties `((upstream-name . "ORBit2")))))
2435
2436
2437 (define-public libbonobo
2438   (package
2439     (name "libbonobo")
2440     (version "2.32.1")
2441     (source (origin
2442               (method url-fetch)
2443               (uri (string-append "mirror://gnome/sources/" name "/"
2444                                   (version-major+minor version)
2445                                   "/" name "-" version ".tar.bz2"))
2446               (sha256
2447                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
2448               (patches (search-patches
2449                         "libbonobo-activation-test-race.patch"))))
2450     (build-system gnu-build-system)
2451     (arguments
2452      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
2453      `(#:configure-flags
2454        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
2455        ;; ... which they then completly ignore !!
2456        #:phases
2457        (modify-phases %standard-phases
2458          (add-before 'configure 'ignore-deprecations
2459            (lambda _
2460              (substitute* "activation-server/Makefile.in"
2461                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2462              #t)))
2463
2464        ;; There's apparently a race condition between the server stub
2465        ;; generation and linking of the example under 'samples/echo' that can
2466        ;; lead do undefined references when building in parallel, as reported
2467        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
2468        ;; Thus, disable parallel builds.
2469        #:parallel-build? #f))
2470     (inputs `(("popt" ,popt)
2471               ("libxml2" ,libxml2)))
2472     ;; The following are Required by the .pc file
2473     (propagated-inputs
2474      `(("glib" ,glib)
2475        ("orbit2" ,orbit2)))
2476     (native-inputs
2477      `(("intltool" ,intltool)
2478        ("pkg-config" ,pkg-config)
2479        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2480        ("flex" ,flex)
2481        ("bison" ,bison)))
2482     (home-page "https://developer.gnome.org/libbonobo/")
2483     (synopsis "Framework for creating reusable components for use in GNOME applications")
2484     (description "Bonobo is a framework for creating reusable components for
2485 use in GNOME applications, built on top of CORBA.")
2486     ;; Licence not explicitly stated.  Source files contain no licence notices.
2487     ;; Tarball contains text of both GPLv2 and LGPLv2
2488     ;; GPLv2 covers both conditions
2489     (license license:gpl2+)))
2490
2491
2492 (define-public gconf
2493   (package
2494     (name "gconf")
2495     (version "3.2.6")
2496     (source (origin
2497               (method url-fetch)
2498               (uri
2499                (let ((upstream-name "GConf"))
2500                  (string-append "mirror://gnome/sources/" upstream-name "/"
2501                                 (version-major+minor version) "/"
2502                                 upstream-name "-" version ".tar.xz")))
2503               (sha256
2504                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
2505     (build-system gnu-build-system)
2506     (inputs `(("dbus-glib" ,dbus-glib)
2507               ("libxml2" ,libxml2)))
2508     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
2509                          ("orbit2" ,orbit2)))
2510     (native-inputs
2511      `(("intltool" ,intltool)
2512        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2513        ("pkg-config" ,pkg-config)))
2514     (home-page "https://projects.gnome.org/gconf/")
2515     (synopsis "Store application preferences")
2516     (description "Gconf is a system for storing application preferences.  It
2517 is intended for user preferences; not arbitrary data storage.")
2518     (license license:lgpl2.0+)
2519     (properties '((upstream-name . "GConf")))))
2520
2521
2522 (define-public gnome-mime-data
2523   (package
2524     (name "gnome-mime-data")
2525     (version "2.18.0")
2526     (source (origin
2527               (method url-fetch)
2528               (uri (string-append "mirror://gnome/sources/" name "/"
2529                                   (version-major+minor version)  "/"
2530                                   name "-" version ".tar.bz2"))
2531               (sha256
2532                (base32
2533                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
2534     (build-system gnu-build-system)
2535     (native-inputs
2536      `(("perl" ,perl)
2537        ("intltool" ,intltool)))
2538     (arguments
2539      '(#:phases (modify-phases %standard-phases
2540                   (add-after 'configure 'use-our-intltool
2541                     (lambda _
2542                       ;; Do not use the bundled intltool commands, which lack
2543                       ;; the "dotless @INC" fixes of our 'intltool' package.
2544                       (substitute* (find-files "." "^Makefile$")
2545                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
2546                          (string-append "INTLTOOL_" tool " = intltool-"
2547                                         (string-downcase tool) "\n")))
2548                       #t)))))
2549     (home-page "https://www.gnome.org")
2550     (synopsis "Base MIME and Application database for GNOME")
2551     (description  "GNOME Mime Data is a module which contains the base MIME
2552 and Application database for GNOME.  The data stored by this module is
2553 designed to be accessed through the MIME functions in GnomeVFS.")
2554     (license license:gpl2+)))
2555
2556
2557 (define-public gnome-vfs
2558   (package
2559     (name "gnome-vfs")
2560     (version "2.24.4")
2561     (source (origin
2562               (method url-fetch)
2563               (uri (string-append "mirror://gnome/sources/" name "/"
2564                                   (version-major+minor version)  "/"
2565                                   name "-" version ".tar.bz2"))
2566               (sha256
2567                (base32
2568                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
2569     (build-system gnu-build-system)
2570     (arguments
2571      `(#:phases
2572        (modify-phases %standard-phases
2573          (add-before 'configure 'ignore-deprecations
2574            (lambda _
2575              (substitute* '("libgnomevfs/Makefile.in"
2576                             "daemon/Makefile.in")
2577                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2578              #t))
2579          (add-before 'configure 'patch-test-async-cancel-to-never-fail
2580            (lambda _
2581              (substitute* "test/test-async-cancel.c"
2582                (("EXIT_FAILURE") "77"))
2583              #t)))))
2584     (inputs `(("libxml2" ,libxml2)
2585               ("dbus-glib" ,dbus-glib)
2586               ("gconf" ,gconf)
2587               ("gnome-mime-data" ,gnome-mime-data)
2588               ("zlib" ,zlib)))
2589     (native-inputs
2590      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2591        ("intltool" ,intltool)
2592        ("pkg-config" ,pkg-config)))
2593     (home-page "https://developer.gnome.org/gnome-vfs/")
2594     (synopsis "Access files and folders in GNOME applications")
2595     (description
2596      "GnomeVFS is the core library used to access files and folders in GNOME
2597 applications.  It provides a file system abstraction which allows applications
2598 to access local and remote files with a single consistent API.")
2599     (license license:lgpl2.0+)))
2600
2601
2602
2603 (define-public libgnome
2604   (package
2605     (name "libgnome")
2606     (version "2.32.1")
2607     (source (origin
2608               (method url-fetch)
2609               (uri (string-append "mirror://gnome/sources/" name "/"
2610                                   (version-major+minor version)  "/"
2611                                   name "-" version ".tar.bz2"))
2612               (sha256
2613                (base32
2614                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
2615               (patches (search-patches "libgnome-encoding.patch"))))
2616     (build-system gnu-build-system)
2617     (arguments
2618      `(#:phases
2619        (modify-phases %standard-phases
2620          (add-before 'configure 'enable-deprecated
2621            (lambda _
2622              (substitute* "libgnome/Makefile.in"
2623                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2624              #t)))))
2625     (inputs `(("libxml2" ,libxml2)))
2626     (native-inputs
2627      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2628        ("intltool" ,intltool)
2629        ("pkg-config" ,pkg-config)))
2630     ;; The following are listed as Required in the .pc file
2631     ;; (except for libcanberra -- which seems to be oversight on the part
2632     ;; of the upstream developers -- anything that links against libgnome,
2633     ;; must also link against libcanberra
2634     (propagated-inputs
2635      `(("libcanberra" ,libcanberra)
2636        ("libbonobo" ,libbonobo)
2637        ("gconf" ,gconf)
2638        ("gnome-vfs" ,gnome-vfs)
2639        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
2640     (home-page "https://developer.gnome.org/libgnome/")
2641     (synopsis "Useful routines for building applications")
2642     (description  "The libgnome library provides a number of useful routines
2643 for building modern applications, including session management, activation of
2644 files and URIs, and displaying help.")
2645     (license license:lgpl2.0+)))
2646
2647
2648 (define-public libart-lgpl
2649   (package
2650     (name "libart-lgpl")
2651     (version "2.3.21")
2652     (source (origin
2653               (method url-fetch)
2654               (uri (let ((upstream-name "libart_lgpl"))
2655                      (string-append "mirror://gnome/sources/" upstream-name "/"
2656                                     (version-major+minor version) "/"
2657                                     upstream-name "-" version ".tar.bz2")))
2658               (sha256
2659                (base32
2660                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
2661     (build-system gnu-build-system)
2662     (native-inputs
2663      `(("pkg-config" ,pkg-config)))
2664     (home-page "https://people.gnome.org/~mathieu/libart")
2665     (synopsis "2D drawing library")
2666     (description  "Libart is a 2D drawing library intended as a
2667 high-quality vector-based 2D library with antialiasing and alpha composition.")
2668     (license license:lgpl2.0+)))
2669
2670
2671
2672 (define-public libgnomecanvas
2673   (package
2674     (name "libgnomecanvas")
2675     (version "2.30.3")
2676     (source (origin
2677               (method url-fetch)
2678               (uri (string-append "mirror://gnome/sources/" name "/"
2679                                   (version-major+minor version)  "/"
2680                                   name "-" version ".tar.gz"))
2681               (sha256
2682                (base32
2683                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
2684     (build-system gnu-build-system)
2685     ;; Mentioned as Required in the .pc file
2686     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
2687                          ("gtk+" ,gtk+-2)))
2688     (native-inputs
2689      `(("intltool" ,intltool)
2690        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2691        ("pkg-config" ,pkg-config)))
2692     (home-page "https://developer.gnome.org/libgnomecanvas/")
2693     (synopsis "Flexible widget for creating interactive structured graphics")
2694     (description  "The GnomeCanvas widget provides a flexible widget for
2695 creating interactive structured graphics.")
2696     (license license:lgpl2.0+)))
2697
2698 (define-public libgnomecanvasmm
2699   (package
2700     (name "libgnomecanvasmm")
2701     (version "2.26.0")
2702     (source (origin
2703               (method url-fetch)
2704               (uri (string-append "mirror://gnome/sources/" name "/"
2705                                   (version-major+minor version)  "/"
2706                                   name "-" version ".tar.bz2"))
2707               (sha256
2708                (base32
2709                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
2710     (build-system gnu-build-system)
2711     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
2712     (native-inputs
2713      `(("gtkmm-2" ,gtkmm-2)
2714        ("pkg-config" ,pkg-config)))
2715     (home-page "https://gtkmm.org")
2716     (synopsis "C++ bindings to the GNOME Canvas library")
2717     (description "C++ bindings to the GNOME Canvas library.")
2718     (license license:lgpl2.0+)))
2719
2720 (define-public libgnomeui
2721   (package
2722     (name "libgnomeui")
2723     (version "2.24.5")
2724     (source (origin
2725               (method url-fetch)
2726               (uri (string-append "mirror://gnome/sources/" name "/"
2727                                   (version-major+minor version)  "/"
2728                                   name "-" version ".tar.bz2"))
2729               (patches (search-patches "libgnomeui-utf8.patch"))
2730               (sha256
2731                (base32
2732                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
2733     (build-system gnu-build-system)
2734     ;; Mentioned as Required in the .pc file
2735     (propagated-inputs `(("libbonoboui" ,libbonoboui)
2736                          ("libgnome" ,libgnome)
2737                          ("libgnomecanvas" ,libgnomecanvas)
2738                          ("libgnome-keyring" ,libgnome-keyring)))
2739     (inputs `(("libjpeg" ,libjpeg-turbo)
2740               ("popt" ,popt)
2741               ("libbonobo" ,libbonobo)
2742               ("libxml2" ,libxml2)
2743               ("libglade" ,libglade)))
2744     (native-inputs
2745      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2746        ("intltool" ,intltool)
2747        ("pkg-config" ,pkg-config)))
2748     (home-page "https://developer.gnome.org/libgnomeui/")
2749     (synopsis "Additional widgets for applications")
2750     (description "The libgnomeui library provides additional widgets for
2751 applications.  Many of the widgets from libgnomeui have already been
2752 ported to GTK+.")
2753     (license license:lgpl2.0+)))
2754
2755 (define-public libglade
2756   (package
2757     (name "libglade")
2758     (version "2.6.4")
2759     (source (origin
2760               (method url-fetch)
2761               (uri (string-append "mirror://gnome/sources/" name "/"
2762                                   (version-major+minor version)  "/"
2763                                   name "-" version ".tar.bz2"))
2764               (sha256
2765                (base32
2766                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
2767     (build-system gnu-build-system)
2768     (inputs
2769      `(("python" ,python))) ;; needed for the optional libglade-convert program
2770     (propagated-inputs
2771      `(("gtk+-2" ,gtk+-2)
2772        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
2773     (native-inputs
2774      `(("pkg-config" ,pkg-config)))
2775     (home-page "https://developer.gnome.org/libglade")
2776     (synopsis "Load glade interfaces and access the glade built widgets")
2777     (description "Libglade is a library that provides interfaces for loading
2778 graphical interfaces described in glade files and for accessing the
2779 widgets built in the loading process.")
2780     (license license:gpl2+))) ; This is correct.  GPL not LGPL
2781
2782 (define-public libgnomeprint
2783   ;; This library has been deprecated since 2006; see
2784   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
2785   (package
2786     (name "libgnomeprint")
2787     (version "2.18.8")
2788     (source (origin
2789               (method url-fetch)
2790               (uri (string-append "mirror://gnome/sources/" name "/"
2791                                   (version-major+minor version)  "/"
2792                                   name "-" version ".tar.bz2"))
2793               (sha256
2794                (base32
2795                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
2796     (build-system gnu-build-system)
2797     (inputs
2798      `(("popt" ,popt)
2799        ("libart-lgpl" ,libart-lgpl)
2800        ("gtk+" ,gtk+-2)
2801        ("libxml2" ,libxml2)))
2802     (native-inputs
2803      `(("intltool" ,intltool)
2804        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2805        ("pkg-config" ,pkg-config)))
2806     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
2807     (synopsis "Printing framework for GNOME")
2808     (description
2809      "GNOME-print was a printing framework for GNOME.  It has been deprecated
2810 since ca. 2006, when GTK+ itself incorporated printing support.")
2811     (license license:lgpl2.0+)))
2812
2813
2814 (define-public libgnomeprintui
2815   ;; Deprecated; see libgnomeprint.
2816   (package
2817     (name "libgnomeprintui")
2818     (version "2.18.6")
2819     (source (origin
2820               (method url-fetch)
2821               (uri (string-append "mirror://gnome/sources/" name "/"
2822                                   (version-major+minor version)  "/"
2823                                   name "-" version ".tar.bz2"))
2824               (sha256
2825                (base32
2826                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
2827     (build-system gnu-build-system)
2828     ;; Mentioned as Required in the .pc file
2829     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
2830     (inputs `(("gtk+" ,gtk+-2)
2831               ("glib" ,glib)
2832               ("gnome-icon-theme" ,gnome-icon-theme)
2833               ("libgnomecanvas" ,libgnomecanvas)
2834               ("libxml2" ,libxml2)))
2835     (native-inputs
2836      `(("intltool" ,intltool)
2837        ("pkg-config" ,pkg-config)))
2838     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
2839     (synopsis "Printing framework for GNOME")
2840     (description (package-description libgnomeprint))
2841     (license license:lgpl2.0+)))
2842
2843 (define-public libbonoboui
2844   (package
2845     (name "libbonoboui")
2846     (version "2.24.5")
2847     (source (origin
2848               (method url-fetch)
2849               (uri (string-append "mirror://gnome/sources/" name "/"
2850                                   (version-major+minor version)  "/"
2851                                   name "-" version ".tar.bz2"))
2852               (sha256
2853                (base32
2854                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
2855     (build-system gnu-build-system)
2856     (arguments
2857      `(#:phases
2858        (modify-phases %standard-phases
2859          (add-before 'check 'start-xserver
2860            (lambda* (#:key inputs #:allow-other-keys)
2861              (let ((xorg-server (assoc-ref inputs "xorg-server"))
2862                    (disp ":1"))
2863
2864                (setenv "HOME" (getcwd))
2865                (setenv "DISPLAY" disp)
2866                ;; There must be a running X server and make check doesn't start one.
2867                ;; Therefore we must do it.
2868                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
2869     ;; Mentioned as Required by the .pc file
2870     (propagated-inputs `(("libxml2" ,libxml2)))
2871     (inputs
2872      `(("popt" ,popt)
2873        ("pangox-compat" ,pangox-compat)
2874        ("libgnome" ,libgnome)
2875        ("libgnomecanvas" ,libgnomecanvas)
2876        ("libglade" ,libglade)))
2877     (native-inputs
2878      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2879        ("intltool" ,intltool)
2880        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
2881        ("pkg-config" ,pkg-config)))
2882     (home-page "https://developer.gnome.org/libbonoboui/")
2883     (synopsis "Some user interface controls using Bonobo")
2884     (description  "The Bonobo UI library provides a number of user interface
2885 controls using the Bonobo component framework.")
2886     (license license:lgpl2.0+)))
2887
2888 (define-public libwnck
2889   (package
2890     (name "libwnck")
2891     (version "3.32.0")
2892     (source (origin
2893               (method url-fetch)
2894               (uri (string-append "mirror://gnome/sources/" name "/"
2895                                   (version-major+minor version) "/"
2896                                   name "-" version ".tar.xz"))
2897               (sha256
2898                (base32
2899                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
2900     (build-system meson-build-system)
2901     (native-inputs
2902      `(("pkg-config" ,pkg-config)
2903        ("glib" ,glib "bin") ; for glib-mkenums
2904        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
2905        ("intltool" ,intltool)))
2906     (propagated-inputs
2907      `(("gtk+" ,gtk+)
2908        ("libxres" ,libxres)
2909        ("startup-notification" ,startup-notification)))
2910     (home-page "https://developer.gnome.org/libwnck/")
2911     (synopsis "Window Navigator Construction Kit")
2912     (description
2913      "Libwnck is the Window Navigator Construction Kit, a library for use in
2914 writing pagers, tasklists, and more generally applications that are dealing
2915 with window management.  It tries hard to respect the Extended Window Manager
2916 Hints specification (EWMH).")
2917     (license license:lgpl2.0+)))
2918
2919 ;; stable version for gtk2, required by xfwm4.
2920 (define-public libwnck-2
2921   (package (inherit libwnck)
2922     (name "libwnck")
2923     (version "2.30.7")
2924     (source (origin
2925               (method url-fetch)
2926               (uri (string-append "mirror://gnome/sources/" name "/"
2927                                   (version-major+minor version) "/"
2928                                   name "-" version ".tar.xz"))
2929               (sha256
2930                (base32
2931                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
2932     (build-system gnu-build-system)
2933     (native-inputs
2934      `(("pkg-config" ,pkg-config)
2935        ("intltool" ,intltool)))
2936     (propagated-inputs
2937      `(("gtk+" ,gtk+-2)
2938        ("libxres" ,libxres)
2939        ("startup-notification" ,startup-notification)))))
2940
2941 (define-public goffice
2942   (package
2943     (name "goffice")
2944     (version "0.10.46")
2945     (source (origin
2946               (method url-fetch)
2947               (uri (string-append "mirror://gnome/sources/goffice/"
2948                                   (version-major+minor version)  "/"
2949                                   "goffice-" version ".tar.xz"))
2950               (sha256
2951                (base32 "1a8kba36zwzr0ilafc0d1nsxxma1qibviiifd0jhbxp180x6v385"))))
2952     (build-system gnu-build-system)
2953     (outputs '("out"
2954                "doc"))                  ; 4.0 MiB of gtk-doc
2955     (arguments
2956      '(#:configure-flags (list (string-append "--with-html-dir="
2957                                               (assoc-ref %outputs "doc")
2958                                               "/share/gtk-doc/html"))))
2959     (inputs
2960      `(("gtk+" ,gtk+)
2961        ("libgsf" ,libgsf)
2962        ("librsvg" ,librsvg)
2963        ("libxslt" ,libxslt)
2964        ("libxml2" ,libxml2)))
2965     (native-inputs
2966      `(("intltool" ,intltool)
2967        ("glib" ,glib "bin")
2968        ("pkg-config" ,pkg-config)))
2969     (home-page "https://developer.gnome.org/goffice/")
2970     (synopsis "Document-centric objects and utilities")
2971     (description "A GLib/GTK+ set of document-centric objects and utilities.")
2972     (license
2973      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
2974      ;; Note: NOT LGPL
2975      (list license:gpl2 license:gpl3))))
2976
2977 (define-public goffice-0.8
2978   (package (inherit goffice)
2979     (version "0.8.17")
2980     (source (origin
2981               (method url-fetch)
2982               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
2983                                   (version-major+minor version)  "/"
2984                                   (package-name goffice) "-" version ".tar.xz"))
2985               (sha256
2986                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
2987     (arguments
2988      `(#:phases
2989        (modify-phases %standard-phases
2990          (add-after 'unpack 'fix-pcre-check
2991            (lambda _
2992              ;; Only glib.h can be included directly.  See
2993              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
2994              (substitute* "configure"
2995                (("glib/gregex\\.h") "glib.h")) #t)))
2996
2997        ,@(package-arguments goffice)))
2998     (propagated-inputs
2999      ;; libgoffice-0.8.pc mentions libgsf-1
3000      `(("libgsf" ,libgsf)))
3001     (inputs
3002      `(("gtk" ,gtk+-2)
3003        ,@(alist-delete "gtk" (package-inputs goffice))))))
3004
3005 (define-public gnumeric
3006   (package
3007     (name "gnumeric")
3008     (version "1.12.46")
3009     (source (origin
3010               (method url-fetch)
3011               (uri (string-append "mirror://gnome/sources/gnumeric/"
3012                                   (version-major+minor version)  "/"
3013                                   "gnumeric-" version ".tar.xz"))
3014               (sha256
3015                (base32
3016                 "1qdmw2dp7rmq8fmjapgwaks7ajh270wm6kyvlxlzwbgmg8vngp4z"))))
3017     (build-system glib-or-gtk-build-system)
3018     (arguments
3019      `(;; The gnumeric developers don't worry much about failing tests.
3020        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
3021        #:tests? #f
3022        #:phases
3023        (modify-phases %standard-phases
3024          (add-before
3025           'configure 'pre-conf
3026            (lambda* (#:key outputs #:allow-other-keys)
3027              ;; Make install tries to write into the directory of goffice
3028              ;; I am informed that this only affects the possibility to embed a
3029              ;; spreadsheet inside an Abiword document.   So presumably when we
3030              ;; package Abiword we'll have to refer it to this directory.
3031              (substitute* "configure"
3032                (("^GOFFICE_PLUGINS_DIR=.*")
3033                 (string-append "GOFFICE_PLUGINS_DIR="
3034                                (assoc-ref outputs "out")
3035                                "/goffice/plugins"))))))))
3036     (inputs
3037      `(("glib" ,glib)
3038        ("gtk+" ,gtk+)
3039        ("goffice" ,goffice)
3040        ("libgsf" ,libgsf)
3041        ("librsvg" ,librsvg)
3042        ("libxml2" ,libxml2)
3043        ("libxslt" ,libxslt)
3044        ("python" ,python-2)
3045        ("python2-pygobject" ,python2-pygobject)
3046        ("zlib" ,zlib)))
3047     (native-inputs
3048      `(("bison" ,bison)
3049        ("docbook-xml" ,docbook-xml)
3050        ("intltool" ,intltool)
3051        ("itstool" ,itstool)
3052        ("glib:bin" ,glib "bin")
3053        ("pkg-config" ,pkg-config)))
3054     (home-page "http://www.gnumeric.org")
3055     (synopsis "Spreadsheet application")
3056     (description
3057      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
3058 interoperable with other spreadsheet applications.  It has a vast array of
3059 features beyond typical spreadsheet functionality, such as support for linear
3060 and non-linear solvers, statistical analysis, and telecommunication
3061 engineering.")
3062     (license
3063     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
3064      (list license:gpl2 license:gpl3))))
3065
3066 (define-public gnome-themes-standard
3067   (package
3068     (name "gnome-themes-standard")
3069     (version "3.22.3")
3070     (source
3071      (origin
3072        (method url-fetch)
3073        (uri (string-append "mirror://gnome/sources/" name "/"
3074                            (version-major+minor version) "/" name "-"
3075                            version ".tar.xz"))
3076        (sha256
3077         (base32
3078          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
3079     (build-system gnu-build-system)
3080     (arguments
3081      '(#:configure-flags
3082        ;; Don't create 'icon-theme.cache'.
3083        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
3084               (true      (string-append coreutils "/bin/true")))
3085          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
3086     (inputs
3087      `(("gtk+" ,gtk+)
3088        ("gtk+-2" ,gtk+-2)
3089        ("librsvg" ,librsvg)
3090        ("libxml2" ,libxml2)
3091        ("glib" ,glib)))
3092     (native-inputs
3093      `(("intltool" ,intltool)
3094        ("glib:bin" ,glib "bin")
3095        ("pkg-config" ,pkg-config)))
3096     (home-page "https://launchpad.net/gnome-themes-standard")
3097     (synopsis "Default GNOME 3 themes")
3098     (description
3099      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
3100     (license license:lgpl2.1+)))
3101
3102 (define-public seahorse
3103   (package
3104     (name "seahorse")
3105     (version "3.32.2")
3106     (source
3107      (origin
3108        (method url-fetch)
3109        (uri (string-append "mirror://gnome/sources/" name "/"
3110                            (version-major+minor version) "/" name "-"
3111                            version ".tar.xz"))
3112        (sha256
3113         (base32
3114          "0d8zdzmlz7fjv9xl20zl4ckidf465mvdjnbpxy3k08y9iw423q4x"))
3115        (patches (search-patches
3116                  "seahorse-gkr-use-0-on-empty-flags.patch"))))
3117     (build-system meson-build-system)
3118     (arguments
3119      '(#:glib-or-gtk? #t
3120        #:phases
3121        (modify-phases %standard-phases
3122          (add-after 'unpack 'skip-gtk-update-icon-cache
3123            ;; Don't create 'icon-theme.cache'.
3124            (lambda _
3125              (substitute* "build-aux/meson_post_install.py"
3126                (("gtk-update-icon-cache") "true"))
3127              #t)))))
3128     (inputs
3129      `(("gtk+" ,gtk+)
3130        ("gcr" ,gcr)
3131        ("gnupg" ,gnupg)
3132        ("gpgme" ,gpgme)
3133        ("openldap" ,openldap)
3134        ("openssh" ,openssh)
3135        ("avahi" ,avahi)
3136        ("libpwquality" ,libpwquality)
3137        ("libsecret" ,libsecret)
3138        ("libsoup" ,libsoup)))
3139     (native-inputs
3140      `(("gettext" ,gettext-minimal)
3141        ("glib:bin" ,glib "bin")
3142        ("itstool" ,itstool)
3143        ("pkg-config" ,pkg-config)
3144        ("vala" ,vala)
3145        ("xmllint" ,libxml2)))
3146     (home-page "https://wiki.gnome.org/Apps/Seahorse")
3147     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
3148     (description
3149      "Seahorse is a GNOME application for managing encryption keys and
3150 passwords in the GNOME keyring.")
3151     (license license:gpl2+)))
3152
3153 (define-public vala
3154   (package
3155     (name "vala")
3156     (version "0.46.5")
3157     (source (origin
3158               (method url-fetch)
3159               (uri (string-append "mirror://gnome/sources/" name "/"
3160                                   (version-major+minor version) "/"
3161                                   name "-" version ".tar.xz"))
3162               (sha256
3163                (base32
3164                 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
3165     (build-system gnu-build-system)
3166     (arguments
3167      '(#:phases
3168        (modify-phases %standard-phases
3169          (add-before 'check 'pre-check
3170                      (lambda _
3171                        (setenv "CC" "gcc")
3172                        (substitute* "valadoc/tests/testrunner.sh"
3173                          (("export PKG_CONFIG_PATH=" m)
3174                           (string-append m "$PKG_CONFIG_PATH:")))
3175                        ;; For missing '/etc/machine-id'.
3176                        (setenv "DBUS_FATAL_WARNINGS" "0")
3177                        #t)))))
3178     (native-inputs
3179      `(("pkg-config" ,pkg-config)
3180        ("flex" ,flex)
3181        ("bison" ,bison)
3182        ("xsltproc" ,libxslt)
3183        ("dbus" ,dbus)                                     ; for dbus tests
3184        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
3185     (inputs
3186      `(("graphviz" ,graphviz)))
3187     (propagated-inputs
3188      `(("glib" ,glib))) ; required by libvala-0.40.pc
3189     (home-page "https://live.gnome.org/Vala/")
3190     (synopsis "Compiler for the GObject type system")
3191     (description
3192      "Vala is a programming language that aims to bring modern programming
3193 language features to GNOME developers without imposing any additional runtime
3194 requirements and without using a different ABI compared to applications and
3195 libraries written in C.")
3196     (license license:lgpl2.1+)))
3197
3198 (define-public vte
3199   (package
3200     (name "vte")
3201     (version "0.58.3")
3202     (source (origin
3203               (method url-fetch)
3204               (uri (string-append "mirror://gnome/sources/vte/"
3205                                   (version-major+minor version) "/"
3206                                   "vte-" version ".tar.xz"))
3207               (sha256
3208                (base32
3209                 "0xa9ipwic4jnhhbzlnqbhssz10xkzv61cpkl1ammc6mdq95bbp12"))))
3210     (build-system meson-build-system)
3211     (native-inputs
3212      `(("pkg-config" ,pkg-config)
3213        ("intltool" ,intltool)
3214        ("vala" ,vala)
3215        ("gobject-introspection" ,gobject-introspection)
3216        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3217        ("gperf" ,gperf)
3218        ("xmllint" ,libxml2)))
3219     (propagated-inputs
3220      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
3221        ("gnutls" ,gnutls)               ; ditto
3222        ("pcre2" ,pcre2)))               ; ditto
3223     (home-page "https://www.gnome.org/")
3224     (synopsis "Virtual Terminal Emulator")
3225     (description
3226      "VTE is a library (libvte) implementing a terminal emulator widget for
3227 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
3228 gnome-terminal, but can also be used to embed a console/terminal in games,
3229 editors, IDEs, etc.")
3230     (license license:lgpl2.1+)))
3231
3232 (define-public vte-ng
3233   (package
3234     (inherit vte)
3235     (name "vte-ng")
3236     (version "0.58.2.a")
3237     (home-page "https://github.com/thestinger/vte-ng")
3238     (source (origin
3239               (method git-fetch)
3240               (uri (git-reference (url home-page) (commit version)))
3241               (file-name (git-file-name name version))
3242               (sha256
3243                (base32
3244                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
3245     (build-system meson-build-system)
3246     (native-inputs
3247      `(("gtk-doc" ,gtk-doc)
3248        ,@(package-native-inputs vte)))
3249     (arguments
3250      `(#:configure-flags '("-Ddocs=true")))
3251   (synopsis "Enhanced VTE terminal widget")
3252   (description
3253    "VTE is a library (libvte) implementing a terminal emulator widget for
3254 GTK+, this fork provides additional functions exposed for keyboard text
3255 selection and URL hints.")))
3256
3257 ;; provides vte 2.90, required for some terminal emulators
3258 ;; tilda bug: https://github.com/lanoxx/tilda/issues/94
3259 ;; pantheon-terminal bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=788021
3260 ;; roxterm bug: http://sourceforge.net/p/roxterm/bugs/107/
3261 ;; pantheon-terminal, roxterm are not currently packaged
3262 (define-public vte-0.36
3263   (package (inherit vte)
3264     (name "vte")
3265     (version "0.36.5")
3266     (source (origin
3267               (method url-fetch)
3268               (uri (string-append "mirror://gnome/sources/" name "/"
3269                                   (version-major+minor version) "/"
3270                                   name "-" version ".tar.xz"))
3271               (sha256
3272                (base32
3273                 "1psfnqsmxx4qzc55qwvb8jai824ix4pqcdqhgxk0g2zh82bcxhn2"))))
3274     (propagated-inputs
3275      `(("gtk" ,gtk+)
3276        ("ncurses" ,ncurses)))))
3277
3278 ;; stable version for gtk2, required by xfce4-terminal.
3279 (define-public vte/gtk+-2
3280   (package (inherit vte)
3281     (name "vte")
3282     (version "0.28.2")
3283     (source (origin
3284               (method url-fetch)
3285               (uri (string-append "mirror://gnome/sources/" name "/"
3286                                   (version-major+minor version) "/"
3287                                   name "-" version ".tar.xz"))
3288               (sha256
3289                (base32
3290                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
3291               (patches (search-patches
3292                          "vte-CVE-2012-2738-pt1.patch"
3293                          "vte-CVE-2012-2738-pt2.patch"))))
3294     (build-system gnu-build-system)
3295     (arguments
3296      '(#:configure-flags '("--disable-python")))
3297     (native-inputs
3298      `(("pkg-config" ,pkg-config)
3299        ("intltool" ,intltool)
3300        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
3301     (propagated-inputs
3302      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
3303        ("ncurses" ,ncurses))))) ; required by libvte.la
3304
3305 (define-public vinagre
3306   (package
3307     (name "vinagre")
3308     (version "3.22.0")
3309     (source (origin
3310               (method url-fetch)
3311               (uri (string-append "mirror://gnome/sources/" name "/"
3312                                   (version-major+minor version) "/"
3313                                   name "-" version ".tar.xz"))
3314               (patches (search-patches "vinagre-newer-freerdp.patch"
3315                                        "vinagre-newer-rdp-parameters.patch"))
3316               (sha256
3317                (base32
3318                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
3319     (build-system glib-or-gtk-build-system)
3320     (arguments
3321      ;; Disable -Werror and such, to avoid build failures on compilation
3322      ;; warnings.
3323      '(#:configure-flags '("--enable-compile-warnings=minimum")
3324        #:phases
3325        (modify-phases %standard-phases
3326          (add-before 'install 'skip-gtk-update-icon-cache
3327            (lambda _
3328              ;; Don't create 'icon-theme.cache'
3329              (substitute* (find-files "." "^Makefile$")
3330                (("gtk-update-icon-cache") (which "true")))
3331              #t))
3332          (add-after 'unpack 'patch-configure
3333            (lambda _
3334              (substitute* "configure"
3335                (("freerdp") "freerdp2"))
3336              #t)))))
3337     (native-inputs
3338      `(("pkg-config" ,pkg-config)
3339        ("intltool" ,intltool)
3340        ("itstool" ,itstool)
3341        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
3342     (inputs
3343      `(("libxml2" ,libxml2)
3344        ("gtk-vnc" ,gtk-vnc)
3345        ("gnome-keyring" ,gnome-keyring)
3346        ("libsecret" ,libsecret)
3347        ("freerdp" ,freerdp)
3348        ("spice" ,spice)
3349        ("spice-gtk" ,spice-gtk)
3350        ("telepathy-glib" ,telepathy-glib)
3351        ("vte" ,vte)))
3352     (home-page "https://wiki.gnome.org/Apps/Vinagre")
3353     (synopsis "Remote desktop viewer for GNOME")
3354     (description "Vinagre is a remote display client supporting the VNC, SPICE
3355 and RDP protocols.")
3356     (license license:gpl3+)))
3357
3358 (define-public dconf
3359   (package
3360     (name "dconf")
3361     (version "0.34.0")
3362     (source (origin
3363               (method url-fetch)
3364               (uri (string-append
3365                     "mirror://gnome/sources/" name "/"
3366                     (version-major+minor version) "/"
3367                     name "-" version ".tar.xz"))
3368               (patches (search-patches "dconf-meson-0.52.patch"))
3369               (sha256
3370                (base32
3371                 "0lnsl85cp2vpzgp8pkf6l6yd2i3lp02jdvga1icfa78j2smr8fll"))))
3372     (build-system meson-build-system)
3373     (propagated-inputs
3374      ;; In Requires of dconf.pc.
3375      `(("glib" ,glib)))
3376     (inputs
3377      `(("gtk+" ,gtk+)
3378        ("dbus" ,dbus)))
3379     (native-inputs
3380      `(("bash-completion" ,bash-completion)
3381        ("libxslt" ,libxslt)                     ;for xsltproc
3382        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
3383        ("docbook-xml" ,docbook-xml-4.2)
3384        ("docbook-xsl" ,docbook-xsl)
3385        ("glib:bin" ,glib "bin")
3386        ("gtk-doc" ,gtk-doc)
3387        ("pkg-config" ,pkg-config)
3388        ("vala" ,vala)))
3389     (arguments
3390      `(#:tests? #f ; To contact dbus it needs to load /var/lib/dbus/machine-id
3391                    ; or /etc/machine-id.
3392        #:glib-or-gtk? #t
3393        #:configure-flags '("-Denable-gtk-doc=true")))
3394     (home-page "https://developer.gnome.org/dconf")
3395     (synopsis "Low-level GNOME configuration system")
3396     (description "Dconf is a low-level configuration system.  Its main purpose
3397 is to provide a backend to GSettings on platforms that don't already have
3398 configuration storage systems.")
3399     (license license:lgpl2.1+)))
3400
3401 (define-public json-glib
3402   (package
3403     (name "json-glib")
3404     (version "1.4.4")
3405     (source (origin
3406               (method url-fetch)
3407               (uri (string-append "mirror://gnome/sources/" name "/"
3408                                   (version-major+minor version) "/"
3409                                   name "-" version ".tar.xz"))
3410               (sha256
3411                (base32
3412                 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
3413     (build-system meson-build-system)
3414     (native-inputs
3415      `(("gettext" ,gettext-minimal)
3416        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
3417        ("gobject-introspection" ,gobject-introspection)
3418        ("pkg-config" ,pkg-config)))
3419     (propagated-inputs
3420      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
3421     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
3422     (synopsis "Compiler for the GObject type system")
3423     (description
3424      "JSON-GLib is a C library based on GLib providing serialization and
3425 deserialization support for the JavaScript Object Notation (JSON) format
3426 described by RFC 4627.  It provides parser and generator GObject classes and
3427 various wrappers for the complex data types employed by JSON, such as arrays
3428 and objects.")
3429     (license license:lgpl2.1+)))
3430
3431 (define-public libxklavier
3432   (package
3433     (name "libxklavier")
3434     (version "5.4")
3435     (source (origin
3436               ;; Note: There's no tarball at ftp.gnome.org for this version.
3437               (method git-fetch)
3438               (uri (git-reference
3439                     (url "https://anongit.freedesktop.org/git/libxklavier")
3440                     (commit (string-append "libxklavier-" version))))
3441               (sha256
3442                (base32
3443                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
3444               (file-name (git-file-name name version))))
3445     (build-system gnu-build-system)
3446     (arguments
3447      '(#:configure-flags
3448        (list (string-append "--with-xkb-base="
3449                             (assoc-ref %build-inputs "xkeyboard-config")
3450                             "/share/X11/xkb")
3451              "--disable-xmodmap-support")))
3452     (native-inputs
3453      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
3454        ("gobject-introspection" ,gobject-introspection)
3455        ("pkg-config"            ,pkg-config)
3456        ("gtk-doc" ,gtk-doc)
3457        ("intltool" ,intltool)
3458        ("which" ,which)
3459        ("autoconf" ,autoconf)
3460        ("automake" ,automake)
3461        ("libtool" ,libtool)))
3462     (propagated-inputs
3463      ;; Required by libxklavier.pc.
3464      `(("glib"    ,glib)
3465        ("libxml2" ,libxml2)))
3466     (inputs
3467      `(("iso-codes"        ,iso-codes)
3468        ("libxi"            ,libxi)
3469        ("libxkbfile"       ,libxkbfile)
3470        ("xkbcomp"          ,xkbcomp)
3471        ("xkeyboard-config" ,xkeyboard-config)))
3472     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
3473     (synopsis "High-level API for X Keyboard Extension")
3474     (description
3475      "LibXklavier is a library providing high-level API for X Keyboard
3476 Extension known as XKB.  This library is intended to support XFree86 and other
3477 commercial X servers.  It is useful for creating XKB-related software (layout
3478 indicators etc).")
3479     (license license:lgpl2.0+)))
3480
3481 (define-public python2-rsvg
3482   ;; XXX: This is actually a subset of gnome-python-desktop.
3483   (package
3484     (name "python2-rsvg")
3485     (version "2.32.0")
3486     (source
3487      (origin
3488        (method url-fetch)
3489        (uri (string-append
3490              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
3491              version ".tar.bz2"))
3492        (sha256
3493         (base32
3494          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
3495     (build-system gnu-build-system)
3496     (native-inputs
3497      `(("pkg-config" ,pkg-config)))
3498     (inputs
3499      `(("python" ,python-2)
3500        ("python2-pygtk" ,python2-pygtk)
3501        ("librsvg" ,librsvg)))
3502     (home-page "https://www.gnome.org")
3503     (synopsis "Python bindings to librsvg")
3504     (description
3505      "This package provides Python bindings to librsvg, the SVG rendering
3506 library.")
3507
3508     ;; This is the license of the rsvg bindings.  The license of each module
3509     ;; of gnome-python-desktop is given in 'COPYING'.
3510     (license license:lgpl2.1+)))
3511
3512 (define-public glib-networking
3513   (package
3514     (name "glib-networking")
3515     (version "2.62.2")
3516     (source (origin
3517               (method url-fetch)
3518               (uri (string-append "mirror://gnome/sources/glib-networking/"
3519                                   (version-major+minor version) "/"
3520                                   "glib-networking-" version ".tar.xz"))
3521               (sha256
3522                (base32
3523                 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
3524     (build-system meson-build-system)
3525     (arguments
3526      `(#:configure-flags '("-Dlibproxy_support=false")))
3527     (native-inputs
3528      `(("pkg-config" ,pkg-config)
3529        ("intltool" ,intltool)))
3530     (inputs
3531      `(("glib" ,glib)
3532        ("gnutls" ,gnutls)
3533        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
3534     (home-page "https://www.gnome.org")
3535     (synopsis "Network-related GIO modules")
3536     (description
3537      "This package contains various network related extensions for the GIO
3538 library.")
3539     (license license:lgpl2.0+)))
3540
3541 (define-public rest
3542   (package
3543     (name "rest")
3544     (version "0.8.1")
3545     (source (origin
3546               (method url-fetch)
3547               (uri (string-append "mirror://gnome/sources/rest/"
3548                                   (version-major+minor version) "/"
3549                                   name "-" version ".tar.xz"))
3550               (sha256
3551                (base32
3552                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
3553     (build-system gnu-build-system)
3554     (arguments
3555      '(#:tests? #f ; tests require internet connection
3556        #:configure-flags
3557        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
3558     (native-inputs
3559      `(("glib-mkenums" ,glib "bin")
3560        ("gobject-introspection" ,gobject-introspection)
3561        ("pkg-config" ,pkg-config)))
3562     (propagated-inputs
3563      ;; rest-0.7.pc refers to all these.
3564      `(("glib"    ,glib)
3565        ("libsoup" ,libsoup)
3566        ("libxml2" ,libxml2)))
3567     (home-page "https://www.gtk.org/")
3568     (synopsis "RESTful web api query library")
3569     (description
3570      "This library was designed to make it easier to access web services that
3571 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
3572 libxml to ease remote use of the RESTful API.")
3573     (license license:lgpl2.1+)))
3574
3575 (define-public libsoup
3576   (package
3577     (name "libsoup")
3578     (version "2.70.0")
3579     (source (origin
3580               (method url-fetch)
3581               (uri (string-append "mirror://gnome/sources/libsoup/"
3582                                   (version-major+minor version) "/"
3583                                   "libsoup-" version ".tar.xz"))
3584               (sha256
3585                (base32
3586                 "0hjk9lgppc5435my0lyywbpmj7ib5vvcylwfin8ki97g9bvj1c2l"))))
3587     (build-system meson-build-system)
3588     (outputs '("out" "doc"))
3589     (arguments
3590      `(#:modules ((guix build utils)
3591                   (guix build meson-build-system)
3592                   (ice-9 popen))
3593
3594        #:configure-flags '("-Dgtk_doc=true")
3595        #:phases
3596        (modify-phases %standard-phases
3597          (add-after 'unpack 'adjust-tests
3598            (lambda _
3599              ;; This test fails due to missing /etc/nsswitch.conf
3600              ;; in the build environment.
3601              (substitute* "tests/socket-test.c"
3602                ((".*/sockets/unconnected.*") ""))
3603
3604              ;; These fail because "subdomain.localhost" does not resolve in
3605              ;; the build environment.
3606              (substitute* "tests/hsts-test.c"
3607                ((".*/hsts/basic.*") "")
3608                ((".*/hsts/subdomains.*") "")
3609                ((".*/hsts/superdomain.*") "")
3610                ((".*/hsts/utf8-address.*") ""))
3611              (substitute* "tests/hsts-db-test.c"
3612                ((".*/hsts-db/subdomains.*") ""))
3613
3614              ;; Generate a self-signed certificate that has "localhost" as its
3615              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
3616              ;; 3.5.12, tests such as "ssl-tests" fail:
3617              ;;
3618              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
3619              ;;
3620              ;; 'certtool' is interactive so we have to pipe it the answers.
3621              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
3622              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
3623  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
3624                (for-each (lambda (line)
3625                            (display line pipe)
3626                            (newline pipe))
3627                          '(""               ;Common name
3628                            ""               ;UID
3629                            "Guix"           ;Organizational unit name
3630                            "GNU"            ;Organization name
3631                            ""               ;Locality name
3632                            ""               ;State or province
3633                            ""               ;Country
3634                            ""               ;subject's domain component (DC)
3635                            ""               ;E-mail
3636                            ""               ;serial number
3637                            "-1"             ;expiration time
3638                            "N"              ;belong to authority?
3639                            "N"              ;web client certificate?
3640                            "N"              ;IPsec IKE?
3641                            "Y"              ;web server certificate?
3642                            "localhost"      ;dnsName of subject
3643                            ""               ;dnsName of subject (end)
3644                            ""               ;URI of subject
3645                            "127.0.0.1"      ;IP address of subject
3646                            ""               ;signing?
3647                            ""               ;encryption (RSA)?
3648                            ""               ;data encryption?
3649                            ""               ;sign OCSP requests?
3650                            ""               ;sign code?
3651                            ""               ;time stamping?
3652                            ""               ;email protection?
3653                            ""               ;URI of the CRL distribution point
3654                            "y"              ;above info OK?
3655                            ))
3656                (close-pipe pipe))
3657              #t))
3658          (add-after 'install 'move-doc
3659            (lambda* (#:key outputs #:allow-other-keys)
3660              (let ((out (assoc-ref outputs "out"))
3661                    (doc (assoc-ref outputs "doc")))
3662                (mkdir-p (string-append doc "/share"))
3663                (copy-recursively (string-append out "/share/gtk-doc")
3664                                  (string-append doc "/share/gtk-doc"))
3665                (delete-file-recursively (string-append out "/share/gtk-doc"))
3666                #t))))))
3667     (native-inputs
3668      `(("glib:bin" ,glib "bin")                   ; for glib-mkenums
3669        ("gobject-introspection" ,gobject-introspection)
3670        ("gtk-doc" ,gtk-doc)
3671        ("intltool" ,intltool)
3672        ("pkg-config" ,pkg-config)
3673        ("python" ,python-wrapper)
3674        ("vala" ,vala)
3675        ;; These are needed for the tests.
3676        ;; FIXME: Add PHP once available.
3677        ("curl" ,curl)
3678        ("gnutls" ,gnutls)                         ;for 'certtool'
3679        ("httpd" ,httpd)))
3680     (propagated-inputs
3681      ;; libsoup-2.4.pc refers to all these.
3682      `(("brotli" ,google-brotli)
3683        ("glib" ,glib)
3684        ("libpsl" ,libpsl)
3685        ("libxml2" ,libxml2)
3686        ("sqlite" ,sqlite)
3687        ("zlib" ,zlib)))
3688     (inputs
3689      `(("glib-networking" ,glib-networking)
3690        ("mit-krb5" ,mit-krb5)))
3691     (home-page "https://live.gnome.org/LibSoup/")
3692     (synopsis "GLib-based HTTP Library")
3693     (description
3694      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
3695 and the GLib main loop, to integrate well with GNOME applications.")
3696     (license license:lgpl2.0+)))
3697
3698 (define-public libsecret
3699   (package
3700     (name "libsecret")
3701     (version "0.20.2")
3702     (source (origin
3703               (method url-fetch)
3704               (uri (string-append
3705                     "mirror://gnome/sources/libsecret/"
3706                     (version-major+minor version) "/"
3707                     "libsecret-" version ".tar.xz"))
3708               (sha256
3709                (base32
3710                 "1hzz34gmsxxf1jm1b7qin390rkwbg8sx198xdkwxqp3q6cw19sc1"))))
3711     (build-system gnu-build-system)
3712     (outputs '("out" "doc"))
3713     (arguments
3714      `(#:tests? #f ; FIXME: Testing hangs.
3715        #:configure-flags
3716        (list (string-append "--with-html-dir="
3717                             (assoc-ref %outputs "doc")
3718                             "/share/gtk-doc/html"))))
3719     (native-inputs
3720      `(("gettext" ,gettext-minimal)
3721        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
3722        ("gobject-introspection" ,gobject-introspection)
3723        ("pkg-config" ,pkg-config)
3724        ("vala" ,vala)
3725        ("xsltproc" ,libxslt)))
3726        ;; These are needed for the tests.
3727        ;; FIXME: Add gjs once available.
3728        ;("dbus" ,dbus)
3729        ;("python2" ,python-2)
3730        ;("python2-dbus" ,python2-dbus)
3731        ;("python2-pygobject" ,python2-pygobject)
3732        ;("python2-pygobject-2" ,python2-pygobject-2)))
3733     (propagated-inputs
3734      `(("glib" ,glib))) ; required by libsecret-1.pc
3735     (inputs
3736      `(("docbook-xsl" ,docbook-xsl)
3737        ("libgcrypt" ,libgcrypt)
3738        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
3739     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
3740     (synopsis "GObject bindings for \"Secret Service\" API")
3741     (description
3742      "Libsecret is a GObject based library for storing and retrieving passwords
3743 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
3744     (license license:lgpl2.1+)))
3745
3746 (define-public five-or-more
3747   (package
3748     (name "five-or-more")
3749     (version "3.32.1")
3750     (source
3751      (origin
3752        (method url-fetch)
3753        (uri (string-append "mirror://gnome/sources/five-or-more/"
3754                            (version-major+minor version) "/"
3755                            "five-or-more-" version ".tar.xz"))
3756        (sha256
3757         (base32 "0xw05dd2dwi9vsph9h158b4n89s5k07xrh6bjz1icm0pdmjwhpgk"))))
3758     (build-system meson-build-system)
3759     (arguments
3760      '(#:glib-or-gtk? #t
3761        #:phases
3762        (modify-phases %standard-phases
3763          (add-after 'unpack 'skip-gtk-update-icon-cache
3764            (lambda _
3765              (substitute* "meson_post_install.py"
3766                (("gtk-update-icon-cache") (which "true")))
3767              #t)))))
3768     (native-inputs
3769      `(("pkg-config" ,pkg-config)
3770        ("appstream-glib" ,appstream-glib)
3771        ("desktop-file-utils" ,desktop-file-utils)
3772        ("glib:bin" ,glib "bin") ; for glib-compile-resources
3773        ("intltool" ,intltool)
3774        ("itstool" ,itstool)
3775        ("vala" ,vala)
3776        ("xmllint" ,libxml2)))
3777     (inputs
3778      `(("gtk+" ,gtk+)
3779        ("libgnome-games-support" ,libgnome-games-support)
3780        ("librsvg" ,librsvg)))
3781     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
3782     (synopsis "Logic puzzle game")
3783     (description "Five or More is a game where you try to align
3784  five or more objects of the same color and shape causing them to disappear.
3785  On every turn more objects will appear, until the board is full.
3786  Try to last as long as possible.")
3787     (license license:gpl2+)))
3788
3789 (define-public gnome-mines
3790   (package
3791     (name "gnome-mines")
3792     (version "3.32.2")
3793     (source
3794      (origin
3795        (method url-fetch)
3796        (uri (string-append "mirror://gnome/sources/" name "/"
3797                            (version-major+minor version) "/"
3798                            name "-" version ".tar.xz"))
3799        (sha256
3800         (base32
3801          "1nv966wkp2rqxzcdb76bwlbzpjqadcaqzrnkxpzwnvjjr167yx8g"))))
3802     (build-system meson-build-system)
3803     (arguments
3804      '(#:glib-or-gtk? #t
3805        #:phases
3806        (modify-phases %standard-phases
3807          (add-after 'unpack 'skip-gtk-update-icon-cache
3808            (lambda _
3809              (substitute* "build-aux/meson_post_install.py"
3810                (("gtk-update-icon-cache") (which "true")))
3811              #t)))))
3812     (native-inputs
3813      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
3814        ("pkg-config" ,pkg-config)
3815        ("desktop-file-utils" ,desktop-file-utils)
3816        ("intltool" ,intltool)
3817        ("itstool" ,itstool)
3818        ("vala" ,vala)
3819        ("yelp" ,yelp)
3820        ("appstream-glib" ,appstream-glib)))
3821     (inputs
3822      `(("gtk+" ,gtk+)
3823        ("libgnome-games-support" ,libgnome-games-support)
3824        ("librsvg" ,librsvg)))
3825     (home-page "https://wiki.gnome.org/Apps/Mines")
3826     (synopsis "Minesweeper game")
3827     (description
3828      "Mines (previously gnomine) is a puzzle game where you locate mines
3829 floating in an ocean using only your brain and a little bit of luck.")
3830     (license license:gpl2+)))
3831
3832 (define-public gnome-sudoku
3833   (package
3834     (name "gnome-sudoku")
3835     (version "3.32.0")
3836     (source
3837      (origin
3838        (method url-fetch)
3839        (uri (string-append "mirror://gnome/sources/" name "/"
3840                            (version-major+minor version) "/"
3841                            name "-" version ".tar.xz"))
3842        (sha256
3843         (base32
3844          "1wwdjflw1lbx3cv6gvqcgp5jnjkrq37ld6mjbjj03g3vr90qaf0l"))))
3845     (build-system meson-build-system)
3846     (arguments
3847      '(#:glib-or-gtk? #t
3848        #:phases
3849        (modify-phases %standard-phases
3850          (add-after 'unpack 'skip-gtk-update-icon-cache
3851            (lambda _
3852              (substitute* "build-aux/post_install.py"
3853                (("gtk-update-icon-cache") (which "true")))
3854              #t)))))
3855     (native-inputs
3856      `(("pkg-config" ,pkg-config)
3857        ("desktop-file-utils" ,desktop-file-utils)
3858        ("glib:bin" ,glib "bin") ; for glib-compile-resources
3859        ("intltool" ,intltool)
3860        ("itstool" ,itstool)
3861        ("vala" ,vala)
3862        ("xmllint" ,libxml2)))
3863     (inputs
3864      `(("gtk+" ,gtk+)
3865        ("json-glib" ,json-glib)
3866        ("libgee" ,libgee)
3867        ("librsvg" ,librsvg)
3868        ("qqwing" ,qqwing)))
3869     (home-page "https://wiki.gnome.org/Apps/Sudoku")
3870     (synopsis "Japanese logic game")
3871     (description
3872      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
3873 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
3874 possible while still providing features that make playing difficult Sudoku
3875 more fun.")
3876     (license license:gpl2+)))
3877
3878 (define-public gnome-terminal
3879   (package
3880     (name "gnome-terminal")
3881     (version "3.32.2")
3882     (source
3883      (origin
3884        (method url-fetch)
3885        (uri (string-append "mirror://gnome/sources/" name "/"
3886                            (version-major+minor version) "/"
3887                            name "-" version ".tar.xz"))
3888        (sha256
3889         (base32
3890          "0shhpnagasyp1kxgjczfrivcxbgrrl3y8lzvp1z101m67h4jp6km"))))
3891     (build-system glib-or-gtk-build-system)
3892     (arguments
3893      '(#:configure-flags
3894        (list "--disable-migration" "--disable-search-provider"
3895              "--without-nautilus-extension")
3896        #:phases
3897        (modify-phases %standard-phases
3898          (add-before 'configure 'patch-/bin/true
3899                      (lambda _
3900                        (substitute* "configure"
3901                          (("/bin/true") (which "true"))))))))
3902     (native-inputs
3903      `(("pkg-config" ,pkg-config)
3904        ("desktop-file-utils" ,desktop-file-utils)
3905        ("intltool" ,intltool)
3906        ("itstool" ,itstool)
3907        ("xmllint" ,libxml2)))
3908     (propagated-inputs
3909      `(("dconf" ,dconf)))
3910     (inputs
3911      `(("gtk+" ,gtk+)
3912        ("vte" ,vte)
3913        ("gnutls" ,gnutls)
3914        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3915        ("util-linux" ,util-linux "lib")
3916        ("vala" ,vala)))
3917     (home-page "https://wiki.gnome.org/Apps/Terminal")
3918     (synopsis "Terminal emulator")
3919     (description
3920      "GNOME Terminal is a terminal emulator application for accessing a
3921 UNIX shell environment which can be used to run programs available on
3922 your system.
3923
3924 It supports several profiles, multiple tabs and implements several
3925 keyboard shortcuts.")
3926     (license license:gpl3+)))
3927
3928 (define-public colord
3929   (package
3930     (name "colord")
3931     (version "1.4.4")
3932     (source
3933      (origin
3934        (method url-fetch)
3935        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
3936                            "colord-" version ".tar.xz"))
3937        (sha256
3938         (base32 "19f0938fr7nvvm3jr263dlknaq7md40zrac2npfyz25zc00yh3ws"))))
3939     (build-system meson-build-system)
3940     (arguments
3941      '(;; FIXME: One test fails:
3942        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
3943        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
3944        ;; application/x-zerosize
3945        #:tests? #f
3946        #:glib-or-gtk? #t
3947        #:configure-flags (list "-Dlocalstatedir=/var"
3948                                ;; No dep on systemd.
3949                                "-Dsystemd=false"
3950                                ;; Wants to install to global completion dir;
3951                                ;; punt.
3952                                "-Dbash_completion=false"
3953                                "-Ddaemon_user=colord"
3954                                "-Dsane=true"
3955                                "-Dvapi=true"
3956                                ;; Requires spotread.
3957                                "-Dargyllcms_sensor=false"
3958                                ;; TODO: Requires docbook2x.
3959                                "-Dman=false")
3960        #:phases
3961        (modify-phases %standard-phases
3962          (add-before 'configure 'patch-build-system
3963            (lambda* (#:key outputs #:allow-other-keys)
3964              (substitute* "rules/meson.build"
3965                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
3966                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
3967              #t))
3968          (add-before 'configure 'set-sqlite3-file-name
3969            (lambda* (#:key inputs #:allow-other-keys)
3970              ;; "colormgr dump" works by invoking the "sqlite3" command.
3971              ;; Record its absolute file name.
3972              (let ((sqlite (assoc-ref inputs "sqlite")))
3973                (substitute* "client/cd-util.c"
3974                  (("\"sqlite3\"")
3975                   (string-append "\"" sqlite "/bin/sqlite3\"")))
3976                #t))))))
3977     (native-inputs
3978      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
3979        ("gettext" ,gettext-minimal)
3980        ("gobject-introspection" ,gobject-introspection)
3981        ("gtk-doc" ,gtk-doc)
3982        ("pkg-config" ,pkg-config)
3983        ("vala" ,vala)))
3984     (propagated-inputs
3985      ;; colord.pc refers to all these.
3986      `(("glib" ,glib)
3987        ("lcms" ,lcms)
3988        ("udev" ,eudev)))
3989     (inputs
3990      `(("dbus-glib" ,dbus-glib)
3991        ("gusb" ,gusb)
3992        ("libgudev" ,libgudev)
3993        ("libusb" ,libusb)
3994        ("polkit" ,polkit)
3995        ("python" ,python-wrapper)
3996        ("sqlite" ,sqlite)
3997        ("sane-backends" ,sane-backends)))
3998     (home-page "https://www.freedesktop.org/software/colord/")
3999     (synopsis "Color management service")
4000     (description "Colord is a system service that makes it easy to manage,
4001 install and generate color profiles to accurately color manage input and
4002 output devices.")
4003     (license license:gpl2+)))
4004
4005 (define-public geoclue
4006   (package
4007     (name "geoclue")
4008     (version "2.5.5")
4009     (source
4010      (origin
4011        (method url-fetch)
4012        (uri
4013         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
4014                        version "/geoclue-" version ".tar.bz2"))
4015        (sha256
4016         (base32
4017          "1b7jqrsn4x7mxjxj8hvb2dl2cmhrpb9vibs4rvkkanky5nsx3sai"))
4018        (patches (search-patches "geoclue-config.patch"))))
4019     (build-system meson-build-system)
4020     (arguments
4021      '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
4022     (native-inputs
4023      `(("pkg-config" ,pkg-config)
4024        ("gobject-introspection" ,gobject-introspection)
4025        ("modem-manager" ,modem-manager)
4026        ("libnotify" ,libnotify)
4027        ("gtk-doc", gtk-doc)
4028        ("intltool" ,intltool)))
4029     (inputs
4030      `(("avahi" ,avahi)
4031        ("glib:bin" ,glib "bin")
4032        ("glib-networking" ,glib-networking)
4033        ("json-glib" ,json-glib)
4034        ("libsoup" ,libsoup)))
4035     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
4036     (synopsis "Geolocation service")
4037     (description "Geoclue is a D-Bus service that provides location
4038 information.  The primary goal of the Geoclue project is to make creating
4039 location-aware applications as simple as possible, while the secondary goal is
4040 to ensure that no application can access location information without explicit
4041 permission from user.")
4042     (license license:gpl2+)))
4043
4044 (define-public geocode-glib
4045   (package
4046     (name "geocode-glib")
4047     (version "3.26.1")
4048     (source (origin
4049               (method url-fetch)
4050               (uri (string-append "mirror://gnome/sources/geocode-glib/"
4051                                   (version-major+minor version) "/"
4052                                   "geocode-glib-" version ".tar.xz"))
4053               (sha256
4054                (base32
4055                 "076ydfpyc4n5c9dbqmf26i4pilfi5jpw6cjcgrbgrjbndavnmajv"))))
4056     (build-system meson-build-system)
4057     (arguments
4058      `(#:phases
4059        (modify-phases %standard-phases
4060          ;; The tests require a bunch of locales.
4061          (add-before 'check 'set-locales
4062            (lambda* (#:key inputs #:allow-other-keys)
4063              (setenv "GUIX_LOCPATH"
4064                      (string-append (assoc-ref inputs "glibc-locales")
4065                                     "/lib/locale"))
4066              #t)))))
4067     (native-inputs
4068      `(("glib:bin" ,glib "bin") ; for glib-mkenums
4069        ("glibc-locales" ,glibc-locales) ; for tests
4070        ("gettext" ,gettext-minimal)
4071        ("gobject-introspection" ,gobject-introspection)
4072        ("gtk-doc" ,gtk-doc)
4073        ("pkg-config" ,pkg-config)
4074        ("json-glib" ,json-glib)))
4075     (propagated-inputs
4076      ;; geocode-glib-1.0.pc refers to GIO.
4077      `(("glib" ,glib)))
4078     (inputs
4079      `(("libsoup" ,libsoup)))
4080     (home-page "https://github.com/GNOME/geocode-glib/")
4081     (synopsis "Geocoding and reverse-geocoding library")
4082     (description
4083      "geocode-glib is a convenience library for geocoding (finding longitude,
4084 and latitude from an address) and reverse geocoding (finding an address from
4085 coordinates) using the Nominatim service.  geocode-glib caches requests for
4086 faster results and to avoid unnecessary server load.")
4087     (license license:lgpl2.0+)))
4088
4089 (define-public upower
4090   (package
4091     (name "upower")
4092     (version "0.99.11")
4093     (source (origin
4094               (method url-fetch)
4095               (uri (string-append "https://upower.freedesktop.org/releases/"
4096                                   "upower-" version ".tar.xz"))
4097               (sha256
4098                (base32
4099                 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
4100               (patches (search-patches "upower-builddir.patch"))
4101               (modules '((guix build utils)))
4102               (snippet
4103                '(begin
4104                   ;; Upstream commit
4105                   ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
4106                   ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
4107                   ;; 'dbus-configuration-directory' in (gnu services dbus)
4108                   ;; expects it in etc/.  Thus, move it back to its previous
4109                   ;; location.
4110                   (substitute* "src/Makefile.in"
4111                     (("^dbusconfdir =.*$")
4112                      "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
4113                   #t))))
4114     (build-system glib-or-gtk-build-system)
4115     (arguments
4116      '( ;; The tests want to contact the system bus, which can't be done in the
4117        ;; build environment.  The integration test can run, but the last of
4118        ;; the up-self-tests doesn't.  Disable tests for now.
4119        #:tests? #f
4120        #:configure-flags (list "--localstatedir=/var"
4121                                (string-append "--with-udevrulesdir="
4122                                               (assoc-ref %outputs "out")
4123                                               "/lib/udev/rules.d"))))
4124     (native-inputs
4125      `(("gobject-introspection" ,gobject-introspection)
4126        ("pkg-config" ,pkg-config)
4127        ("intltool" ,intltool)
4128        ("python" ,python)
4129
4130        ;; For man pages.
4131        ("libxslt" ,libxslt)                       ;for 'xsltproc'
4132        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
4133        ("docbook-xsl" ,docbook-xsl)))
4134     (inputs
4135      `(("dbus-glib" ,dbus-glib)
4136        ("libgudev" ,libgudev)
4137        ("libusb" ,libusb)))
4138     (propagated-inputs
4139      ;; In Requires of upower-glib.pc.
4140      `(("glib" ,glib)))
4141     (home-page "https://upower.freedesktop.org/")
4142     (synopsis "System daemon for managing power devices")
4143     (description
4144      "UPower is an abstraction for enumerating power devices,
4145 listening to device events and querying history and statistics.  Any
4146 application or service on the system can access the org.freedesktop.UPower
4147 service via the system message bus.")
4148     (license license:gpl2+)))
4149
4150 (define-public libgweather
4151   (package
4152     (name "libgweather")
4153     (version "3.34.0")
4154     (source (origin
4155               (method url-fetch)
4156               (uri (string-append "mirror://gnome/sources/" name "/"
4157                                   (version-major+minor version) "/"
4158                                   name "-" version ".tar.xz"))
4159               (sha256
4160                (base32
4161                 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
4162     (build-system meson-build-system)
4163     (arguments
4164      `(#:tests? #f ; one of two tests requires network access
4165        #:configure-flags
4166        `(,(string-append "-Dzoneinfo_dir="
4167                          (assoc-ref %build-inputs "tzdata")
4168                          "/share/zoneinfo"))))
4169     (native-inputs
4170      `(("glib:bin" ,glib "bin") ; for glib-mkenums
4171        ("gobject-introspection" ,gobject-introspection)
4172        ("pkg-config" ,pkg-config)
4173        ("vala" ,vala)
4174        ("intltool" ,intltool)))
4175     (propagated-inputs
4176      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
4177      ;; libsoup.
4178      `(("gtk+" ,gtk+)
4179        ("gdk-pixbuf" ,gdk-pixbuf)
4180        ("libxml2" ,libxml2)
4181        ("libsoup" ,libsoup)
4182        ("geocode-glib" ,geocode-glib)))
4183     (inputs
4184      `(("tzdata" ,tzdata)))
4185     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
4186     (synopsis "Location, time zone, and weather library for GNOME")
4187     (description
4188      "libgweather is a library to access weather information from online
4189 services for numerous locations.")
4190     (license license:gpl2+)))
4191
4192 (define-public gnome-settings-daemon
4193   (package
4194     (name "gnome-settings-daemon")
4195     (version "3.32.1")
4196     (source
4197      (origin
4198        (method url-fetch)
4199        (uri (string-append "mirror://gnome/sources/" name "/"
4200                            (version-major+minor version) "/"
4201                            name "-" version ".tar.xz"))
4202        (sha256
4203         (base32
4204          "02d0s0g2mmqfib44r3sf0499r08p61s8l2ndsjssbam1bi7x2dks"))))
4205     (build-system meson-build-system)
4206     (arguments
4207      `(#:glib-or-gtk? #t
4208        #:configure-flags
4209        (list (string-append "-Dudev_dir="
4210                             (assoc-ref %outputs "out")
4211                             "/lib/udev/rules.d/")
4212              ;; Otherwise, the RUNPATH will lack the final path component.
4213              (string-append "-Dc_link_args=-Wl,-rpath="
4214                             (assoc-ref %outputs "out")
4215                             "/lib/gnome-settings-daemon-3.0"))
4216        ;; Color management test can't reach the colord system service.
4217        #:tests? #f))
4218     (native-inputs
4219      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
4220        ("pkg-config" ,pkg-config)
4221        ("intltool" ,intltool)
4222        ("xsltproc" ,libxslt)
4223        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
4224        ("docbook-xml" ,docbook-xml-4.2)
4225        ("docbook-xsl" ,docbook-xsl)))
4226     (inputs
4227      `(("alsa-lib" ,alsa-lib)
4228        ("colord" ,colord)
4229        ("libgudev" ,libgudev)
4230        ("upower" ,upower)
4231        ("polkit" ,polkit)
4232        ("pulseaudio" ,pulseaudio)
4233        ("libcanberra" ,libcanberra)
4234        ("libx11" ,libx11)
4235        ("libxtst" ,libxtst)
4236        ("lcms" ,lcms)
4237        ("libnotify" ,libnotify)
4238        ("geoclue" ,geoclue)
4239        ("geocode-glib" ,geocode-glib)
4240        ("libgweather" ,libgweather)
4241        ("gnome-desktop" ,gnome-desktop)
4242        ("nss" ,nss)
4243        ("cups" ,cups)
4244        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4245        ("libwacom" ,libwacom)
4246        ("librsvg" ,librsvg)
4247        ("xf86-input-wacom" ,xf86-input-wacom)
4248        ("wayland" ,wayland)
4249        ("network-manager" ,network-manager)))
4250     (home-page "https://www.gnome.org")
4251     (synopsis "GNOME settings daemon")
4252     (description
4253      "This package contains the daemon responsible for setting the various
4254 parameters of a GNOME session and the applications that run under it.  It
4255 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
4256 settings, themes, mouse settings, and startup of other daemons.")
4257     (license license:gpl2+)))
4258
4259 (define-public totem-pl-parser
4260  (package
4261    (name "totem-pl-parser")
4262    (version "3.26.3")
4263    (source (origin
4264             (method url-fetch)
4265             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
4266                                 (version-major+minor version) "/"
4267                                 "totem-pl-parser-" version ".tar.xz"))
4268             (sha256
4269              (base32
4270               "13a45py2j1r9967zgww8kd24bn2fhycd4m3kzr90sxx9l2w03z8f"))))
4271    (build-system meson-build-system)
4272    (arguments
4273     ;; FIXME: Tests require gvfs.
4274     `(#:tests? #f))
4275    (native-inputs
4276     `(("intltool" ,intltool)
4277       ("glib" ,glib "bin")
4278       ("gobject-introspection" ,gobject-introspection)
4279       ("pkg-config" ,pkg-config)))
4280    (propagated-inputs
4281     `(("glib" ,glib)
4282       ("gmime" ,gmime)
4283       ("libarchive" ,libarchive)
4284       ("libgcrypt" ,libgcrypt)
4285       ("libxml2" ,libxml2)))
4286    (inputs
4287     `(("libsoup" ,libsoup)))
4288    (home-page "https://projects.gnome.org/totem")
4289    (synopsis "Library to parse and save media playlists for GNOME")
4290    (description "Totem-pl-parser is a GObjects-based library to parse and save
4291 playlists in a variety of formats.")
4292    (license license:lgpl2.0+)))
4293
4294 (define-public aisleriot
4295   (package
4296     (name "aisleriot")
4297     (version "3.22.9")
4298     (source (origin
4299               (method url-fetch)
4300               (uri (string-append "mirror://gnome/sources/aisleriot/"
4301                                   (version-major+minor version) "/"
4302                                   "aisleriot-" version ".tar.xz"))
4303               (sha256
4304                (base32
4305                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
4306     (build-system glib-or-gtk-build-system)
4307     (arguments
4308      '(#:configure-flags
4309        '("--with-platform=gtk-only"
4310          "--with-card-theme-formats=svg")))
4311     (native-inputs
4312      `(("desktop-file-utils" ,desktop-file-utils)
4313        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4314        ("intltool" ,intltool)
4315        ("itstool" ,itstool)
4316        ("pkg-config" ,pkg-config)
4317        ("xmllint" ,libxml2)))
4318     (inputs
4319      `(("gtk+" ,gtk+)
4320        ("guile" ,guile-2.2)
4321        ("libcanberra" ,libcanberra)
4322        ("librsvg" ,librsvg)))
4323     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
4324     (synopsis "Solitaire card games")
4325     (description
4326      "Aisleriot (also known as Solitaire or sol) is a collection of card games
4327 which are easy to play with the aid of a mouse.")
4328     (license license:gpl3+)))
4329
4330 (define-public amtk
4331   (package
4332     (name "amtk")
4333     (version "5.0.2")
4334     (source (origin
4335               (method url-fetch)
4336               (uri (string-append "mirror://gnome/sources/amtk/"
4337                                   (version-major+minor version) "/"
4338                                   "amtk-" version ".tar.xz"))
4339               (sha256
4340                (base32
4341                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
4342     (build-system gnu-build-system)
4343     (arguments
4344      '(#:configure-flags '("--enable-gtk-doc")))
4345     (native-inputs
4346      `(("gobject-introspection" ,gobject-introspection)
4347        ("glib:bin" ,glib "bin")         ; for glib-mkenums
4348        ("gtk-doc" ,gtk-doc)
4349        ("pkg-config" ,pkg-config)))
4350     (inputs
4351      `(("glib" ,glib)
4352        ("gtk+" ,gtk+)))
4353     (home-page "https://wiki.gnome.org/Projects/Amtk")
4354     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
4355     (description
4356      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
4357 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
4358 both a traditional UI or a modern UI with a GtkHeaderBar.")
4359     (license license:lgpl2.1+)))
4360
4361 (define-public devhelp
4362   (package
4363     (name "devhelp")
4364     (version "3.32.0")
4365     (source (origin
4366               (method url-fetch)
4367               (uri (string-append "mirror://gnome/sources/" name "/"
4368                                   (version-major+minor version) "/"
4369                                   name "-" version ".tar.xz"))
4370               (sha256
4371                (base32
4372                 "06sa83zggk29wcg75fl3gqh0rmi7cd3gsbk09a2z23r7vpy7xanq"))))
4373     (build-system meson-build-system)
4374     (arguments
4375      '(#:glib-or-gtk? #t
4376        #:phases
4377        (modify-phases %standard-phases
4378          (add-after 'unpack 'skip-gtk-update-icon-cache
4379            ;; Don't create 'icon-theme.cache'.
4380            (lambda _
4381              (substitute* "meson_post_install.py"
4382                (("gtk-update-icon-cache") "true"))
4383              #t)))))
4384     (native-inputs
4385      `(("intltool" ,intltool)
4386        ("itstool" ,itstool)
4387        ("gobject-introspection" ,gobject-introspection)
4388        ("glib:bin" ,glib "bin") ; for glib-mkmenus
4389        ("pkg-config" ,pkg-config)))
4390     (inputs
4391      `(("amtk" ,amtk)
4392        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4393        ("webkitgtk" ,webkitgtk)))
4394     (home-page "https://wiki.gnome.org/Apps/Devhelp")
4395     (synopsis "API documentation browser for GNOME")
4396     (description
4397      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
4398 natively with GTK-Doc (the API reference system developed for GTK+ and used
4399 throughout GNOME for API documentation).")
4400     (license license:gpl2+)))
4401
4402 (define-public cogl
4403   (package
4404     (name "cogl")
4405     (version "1.22.4")
4406     (source
4407      (origin
4408        (method url-fetch)
4409        (uri (string-append "mirror://gnome/sources/cogl/"
4410                            (version-major+minor version) "/"
4411                            "cogl-" version ".tar.xz"))
4412        (sha256
4413         (base32 "1q0drs82a8f6glg1v29bb6g2nf15fw0rvdx3d0rgcgfarfaby5sj"))))
4414     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
4415     ;; cogl, corresponding changes may be appropriate in mutter as well.
4416     (build-system gnu-build-system)
4417     (native-inputs
4418      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
4419        ("gobject-introspection" ,gobject-introspection)
4420        ;;("xorg-server" ,xorg-server) ; for the test suite
4421        ("pkg-config" ,pkg-config)))
4422     (propagated-inputs
4423      `(("glib" ,glib)
4424        ("gdk-pixbuf" ,gdk-pixbuf)
4425        ("libx11" ,libx11)
4426        ("libxext" ,libxext)
4427        ("libxfixes" ,libxfixes)
4428        ("libxdamage" ,libxdamage)
4429        ("libxcomposite" ,libxcomposite)
4430        ("libxrandr" ,libxrandr)))
4431     (inputs
4432      `(("mesa" ,mesa)
4433        ("cairo" ,cairo)
4434        ("pango" ,pango)
4435        ("gstreamer" ,gstreamer)
4436        ("gst-plugins-base" ,gst-plugins-base)
4437        ("wayland" ,wayland)))
4438     (arguments
4439      `(#:configure-flags (list "--enable-cogl-gst"
4440                                "--enable-wayland-egl-platform"
4441                                "--enable-wayland-egl-server"
4442
4443                                ;; Arrange to pass an absolute file name to
4444                                ;; dlopen for libGL.so.
4445                                (string-append "--with-gl-libname="
4446                                               (assoc-ref %build-inputs "mesa")
4447                                               "/lib/libGL.so"))
4448        ;; XXX FIXME: All tests fail, with many warnings printed like this:
4449        ;;   _FontTransOpen: Unable to Parse address
4450        ;;   ${prefix}/share/fonts/X11/misc/
4451        #:tests? #f
4452        #; #:phases
4453        #;
4454        (modify-phases %standard-phases
4455          (add-before 'check 'start-xorg-server
4456                      (lambda* (#:key inputs #:allow-other-keys)
4457                        ;; The test suite requires a running X server.
4458                        (system (format #f "~a/bin/Xvfb :1 &"
4459                                        (assoc-ref inputs "xorg-server")))
4460                        (setenv "DISPLAY" ":1")
4461                        #t)))))
4462     (home-page "https://www.cogl3d.org")
4463     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
4464     (description
4465      "Cogl is a small library for using 3D graphics hardware to draw pretty
4466 pictures.  The API departs from the flat state machine style of OpenGL and is
4467 designed to make it easy to write orthogonal components that can render
4468 without stepping on each others toes.")
4469     (license (list license:expat       ; most of the code
4470                    license:bsd-3       ; cogl/cogl-point-in-poly.c
4471                    license:sgifreeb2.0 ; cogl-path/tesselator/
4472                    license:asl2.0))))  ; examples/android/
4473
4474 (define-public clutter
4475   (package
4476     (name "clutter")
4477     (version "1.26.2")
4478     (source
4479      (origin
4480        (method url-fetch)
4481        (uri (string-append "mirror://gnome/sources/" name "/"
4482                            (version-major+minor version) "/"
4483                            name "-" version ".tar.xz"))
4484        (sha256
4485         (base32
4486          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
4487     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
4488     ;; to clutter, corresponding changes may be appropriate in mutter as well.
4489     (build-system gnu-build-system)
4490     (outputs '("out"
4491                "doc"))                            ;9 MiB of gtk-doc HTML pages
4492     (native-inputs
4493      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
4494        ("gobject-introspection" ,gobject-introspection)
4495        ("pkg-config" ,pkg-config)
4496        ("xsltproc" ,libxslt)))
4497     (propagated-inputs
4498      `(("cogl" ,cogl)
4499        ("cairo" ,cairo)
4500        ("atk" ,atk)
4501        ("gtk+" ,gtk+)
4502        ("json-glib" ,json-glib)
4503        ("glib" ,glib)
4504        ("libxcomposite" ,libxcomposite)
4505        ("libxdamage" ,libxdamage)
4506        ("libxext" ,libxext)
4507        ("xinput" ,xinput)))
4508     (inputs
4509      `(("libxkbcommon" ,libxkbcommon)
4510        ("udev" ,eudev)))
4511     (arguments
4512      `(#:configure-flags (list "--enable-x11-backend=yes"
4513
4514                                ;; This produces share/doc/{clutter,cally}.
4515                                (string-append "--with-html-dir="
4516                                               (assoc-ref %outputs "doc")
4517                                               "/share/doc"))
4518        ;; XXX FIXME: Get test suite working.  It would probably fail in the
4519        ;; same way the cogl tests fail, since clutter is based on cogl.
4520        #:tests? #f))
4521     (home-page "http://www.clutter-project.org")
4522     (synopsis "OpenGL-based interactive canvas library")
4523     (description
4524      "Clutter is an OpenGL-based interactive canvas library, designed for
4525 creating fast, mainly 2D single window applications such as media box UIs,
4526 presentations, kiosk style applications and so on.")
4527     (license license:lgpl2.0+)))
4528
4529 (define-public clutter-gtk
4530   (package
4531     (name "clutter-gtk")
4532     (version "1.8.4")
4533     (source
4534      (origin
4535        (method url-fetch)
4536        (uri (string-append "mirror://gnome/sources/" name "/"
4537                            (version-major+minor version) "/"
4538                            name "-" version ".tar.xz"))
4539        (sha256
4540         (base32
4541          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
4542     (build-system gnu-build-system)
4543     (native-inputs
4544      `(("pkg-config" ,pkg-config)
4545        ("gobject-introspection" ,gobject-introspection)))
4546     (propagated-inputs
4547      ;; clutter-gtk.pc refers to all these.
4548      `(("clutter" ,clutter)
4549        ("gtk+" ,gtk+)))
4550     (home-page "http://www.clutter-project.org")
4551     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
4552     (description
4553      "Clutter is an OpenGL-based interactive canvas library, designed for
4554 creating fast, mainly 2D single window applications such as media box UIs,
4555 presentations, kiosk style applications and so on.")
4556     (license license:lgpl2.0+)))
4557
4558 (define-public clutter-gst
4559   (package
4560     (name "clutter-gst")
4561     (version "3.0.27")
4562     (source
4563      (origin
4564        (method url-fetch)
4565        (uri (string-append "mirror://gnome/sources/clutter-gst/"
4566                            (version-major+minor version) "/"
4567                            "clutter-gst-" version ".tar.xz"))
4568        (sha256
4569         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
4570     (build-system gnu-build-system)
4571     (native-inputs
4572      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
4573        ("pkg-config" ,pkg-config)
4574        ("gobject-introspection" ,gobject-introspection)))
4575     (inputs
4576      `(("clutter" ,clutter)
4577        ("gstreamer" ,gstreamer)
4578        ("gst-plugins-base" ,gst-plugins-base)))
4579     (home-page "http://www.clutter-project.org")
4580     (synopsis "Integration library for using GStreamer with Clutter")
4581     (description
4582      "Clutter-Gst is an integration library for using GStreamer with Clutter.
4583 It provides a GStreamer sink to upload frames to GL and an actor that
4584 implements the ClutterGstPlayer interface using playbin.  Clutter is an
4585 OpenGL-based interactive canvas library.")
4586     (license license:lgpl2.0+)))
4587
4588 (define-public libchamplain
4589   (package
4590     (name "libchamplain")
4591     (version "0.12.16")
4592     (source (origin
4593               (method url-fetch)
4594               (uri (string-append
4595                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
4596                     version ".tar.xz"))
4597               (sha256
4598                (base32
4599                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
4600     (build-system gnu-build-system)
4601     (arguments '(#:configure-flags '("--enable-vala")))
4602     (native-inputs
4603      `(("gobject-introspection" ,gobject-introspection)
4604        ("pkg-config" ,pkg-config)
4605        ("vala" ,vala)))
4606     (propagated-inputs
4607      `(("libsoup" ,libsoup)
4608        ("sqlite" ,sqlite)
4609        ("clutter" ,clutter)
4610        ("clutter-gtk" ,clutter-gtk)
4611        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
4612        ("cairo" ,cairo)
4613        ("gtk+3" ,gtk+)
4614        ("glib" ,glib)))
4615     (home-page "https://projects.gnome.org/libchamplain/")
4616     (synopsis "C library providing a ClutterActor to display maps")
4617     (description
4618      "libchamplain is a C library providing a ClutterActor to display maps.
4619 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
4620 and Perl bindings are also available.  It supports numerous free map sources
4621 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
4622     (license license:lgpl2.1+)))
4623
4624 (define-public gom
4625   (package
4626     (name "gom")
4627     (version "0.3.2")
4628     (source
4629      (origin
4630        (method url-fetch)
4631        (uri (string-append "mirror://gnome/sources/gom/"
4632                            (version-major+minor version) "/"
4633                            "gom-" version ".tar.xz"))
4634        (sha256
4635         (base32
4636          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
4637     (build-system gnu-build-system)
4638     (native-inputs
4639      `(("intltool" ,intltool)
4640        ("pkg-config" ,pkg-config)
4641        ("gobject-introspection" ,gobject-introspection)))
4642     (inputs
4643      `(("glib" ,glib)
4644        ("gdk-pixbuf" ,gdk-pixbuf)
4645        ("sqlite" ,sqlite)))
4646     ;; XXX TODO: Figure out how to run the test suite.
4647     (arguments `(#:tests? #f))
4648     (home-page "https://wiki.gnome.org/Projects/Gom")
4649     (synopsis "Object mapper from GObjects to SQLite")
4650     (description
4651      "Gom provides an object mapper from GObjects to SQLite.  It helps you
4652 write applications that need to store structured data as well as make complex
4653 queries upon that data.")
4654     (license license:lgpl2.1+)))
4655
4656 (define-public libgnome-games-support
4657   (package
4658     (name "libgnome-games-support")
4659     (version "1.4.4")
4660     (source (origin
4661               (method url-fetch)
4662               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
4663                                   (version-major+minor version) "/"
4664                                   "libgnome-games-support-" version ".tar.xz"))
4665               (sha256
4666                (base32
4667                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
4668     (build-system gnu-build-system)
4669     (arguments
4670      '(#:phases
4671        (modify-phases %standard-phases
4672          (add-before 'check 'pre-check
4673            (lambda _
4674              ;; Tests require a writable HOME.
4675              (setenv "HOME" (getcwd))
4676              #t)))))
4677     (native-inputs
4678      `(("intltool" ,intltool)
4679        ("pkg-config" ,pkg-config)
4680        ("vala" ,vala)))
4681     (propagated-inputs
4682      ;; Required by libgnome-games-support-1.0.pc
4683      `(("gtk+" ,gtk+)
4684        ("libgee" ,libgee)))
4685     (home-page "https://www.gnome.org/")
4686     (synopsis "Useful functionality shared among GNOME games")
4687     (description
4688      "libgnome-games-support is a small library intended for internal use by
4689 GNOME Games, but it may be used by others.")
4690     (license license:lgpl3+)))
4691
4692 (define-public gnome-klotski
4693   (package
4694     (name "gnome-klotski")
4695     (version "3.32.0")
4696     (source (origin
4697               (method url-fetch)
4698               (uri (string-append "mirror://gnome/sources/" name "/"
4699                                   (version-major+minor version) "/"
4700                                   name "-" version ".tar.xz"))
4701               (sha256
4702                (base32
4703                 "1p4s15gxj6gasix22z9vlx2yrx196fvcxr6v6qrl569idfgjbi72"))))
4704     (build-system meson-build-system)
4705     (arguments
4706      '(#:glib-or-gtk? #t
4707        #:phases
4708        (modify-phases %standard-phases
4709          (add-after 'unpack 'skip-gtk-update-icon-cache
4710            ;; Don't create 'icon-theme.cache'.
4711            (lambda _
4712              (substitute* "build-aux/meson_post_install.py"
4713                (("gtk-update-icon-cache") (which "true")))
4714              #t)))))
4715     (native-inputs
4716      `(("desktop-file-utils" ,desktop-file-utils)
4717        ("glib:bin" ,glib "bin") ; for glib-compile-resources
4718        ("intltool" ,intltool)
4719        ("itstool" ,itstool)
4720        ("pkg-config" ,pkg-config)
4721        ("vala" ,vala)
4722        ("xmllint" ,libxml2)))
4723     (inputs
4724      `(("gtk+" ,gtk+)
4725        ("libgnome-games-support" ,libgnome-games-support)
4726        ("librsvg" ,librsvg)))
4727     (home-page "https://wiki.gnome.org/Apps/Klotski")
4728     (synopsis "Sliding block puzzles")
4729     (description
4730      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
4731 the patterned block to the area bordered by green markers.  To do so, you will
4732 need to slide other blocks out of the way.  Complete each puzzle in as few moves
4733 as possible!")
4734     (license license:gpl2+)))
4735
4736 (define-public grilo
4737   (package
4738     (name "grilo")
4739     (version "0.3.10")
4740     (source
4741      (origin
4742        (method url-fetch)
4743        (uri (string-append "mirror://gnome/sources/" name "/"
4744                            (version-major+minor version) "/"
4745                            name "-" version ".tar.xz"))
4746        (sha256
4747         (base32
4748          "1s7ilyywf18q26aj5c4709kfizqywjlnacp4jzmj9v9i9kkv4i3y"))))
4749     (build-system meson-build-system)
4750     (native-inputs
4751      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
4752        ("intltool" ,intltool)
4753        ("pkg-config" ,pkg-config)
4754        ("gobject-introspection" ,gobject-introspection)
4755        ("gtk-doc" ,gtk-doc)
4756        ("vala" ,vala)))
4757     (inputs
4758      `(("cyrus-sasl" ,cyrus-sasl)
4759        ("glib" ,glib)
4760        ("gtk+" ,gtk+)
4761        ("libxml2" ,libxml2)
4762        ("liboauth" ,liboauth)
4763        ("libsoup" ,libsoup)
4764        ("totem-pl-parser" ,totem-pl-parser)))
4765     (native-search-paths
4766      (list (search-path-specification
4767             (variable "GRL_PLUGIN_PATH")
4768             (files (list (string-append "lib/grilo-"
4769                                         (version-major+minor version)))))))
4770     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
4771     (synopsis "Framework for discovering and browsing media")
4772     (description
4773      "Grilo is a framework focused on making media discovery and browsing easy
4774 for application developers.")
4775     (license license:lgpl2.1+)))
4776
4777 (define-public grilo-plugins
4778   (package
4779     (name "grilo-plugins")
4780     (version "0.3.10")
4781     (source
4782      (origin
4783        (method url-fetch)
4784        (uri (string-append "mirror://gnome/sources/" name "/"
4785                            (version-major+minor version) "/"
4786                            name "-" version ".tar.xz"))
4787        (sha256
4788         (base32
4789          "0jldaixc4kzycn5v8ixkjld1n0z3dp0l1p3vchgdwpvdvc7kcfw0"))))
4790     (build-system meson-build-system)
4791     (native-inputs
4792      `(("gettext" ,gettext-minimal)
4793        ("glib:bin" ,glib "bin")
4794        ("gtk+:bin" ,gtk+ "bin")
4795        ("itstool" ,itstool)
4796        ("pkg-config" ,pkg-config)))
4797     ;; TODO: ahavi, gstreamer
4798     (inputs
4799      `(("grilo" ,grilo)
4800        ;("gmime" ,gmime) ; unused
4801        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
4802        ("gom" ,gom)
4803        ;("gssdp" ,gssdp) ; unused
4804        ;("gupnp" ,gupnp) ; unused
4805        ;("gupnp-av" ,gupnp-av) ; unused
4806        ("json-glib" ,json-glib)
4807        ("avahi" ,avahi)
4808        ("libgdata" ,libgdata)
4809        ("libmediaart" ,libmediaart)
4810        ;("librest" ,rest) ; unused
4811        ("libsoup" ,libsoup)
4812        ("totam-pl-parser" ,totem-pl-parser)
4813        ("tracker" ,tracker))) ; unused because it's too old
4814     (arguments
4815      `(#:glib-or-gtk? #t
4816        ;;Disable lua-factory as it needs missing dependencies
4817        #:configure-flags '("-Denable-lua-factory=no")))
4818     (home-page "https://live.gnome.org/Grilo")
4819     (synopsis "Plugins for the Grilo media discovery library")
4820     (description
4821      "Grilo is a framework focused on making media discovery and browsing easy
4822 for application developers.  This package provides plugins for common media
4823 discovery protocols.")
4824     (license license:lgpl2.1+)))
4825
4826 (define-public totem
4827   (package
4828     (name "totem")
4829     (version "3.32.1")
4830     (source
4831      (origin
4832        (method url-fetch)
4833        (uri (string-append "mirror://gnome/sources/" name "/"
4834                            (version-major+minor version) "/"
4835                            name "-" version ".tar.xz"))
4836        (sha256
4837         (base32
4838          "0yra8apc7smpwf7d1k8crhrm8d4wix24ds6i9yxbch1v11jnhr3v"))))
4839     (build-system meson-build-system)
4840     (native-inputs
4841      `(("pkg-config" ,pkg-config)
4842        ("desktop-file-utils" ,desktop-file-utils)
4843        ("gobject-introspection" ,gobject-introspection)
4844        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
4845        ("intltool" ,intltool)
4846        ("itstool" ,itstool)
4847        ("xmllint" ,libxml2)
4848        ("python-pylint" ,python-pylint)
4849        ("xorg-server" ,xorg-server-for-tests)))
4850     (propagated-inputs
4851      `(("dconf" ,dconf)))
4852     (inputs
4853      `(("gtk+" ,gtk+)
4854        ("gdk-pixbuf" ,gdk-pixbuf)
4855        ("atk" ,atk)
4856        ("cairo" ,cairo)
4857        ("dbus-glib" ,dbus-glib)
4858        ("clutter" ,clutter)
4859        ("clutter-gtk" ,clutter-gtk)
4860        ("clutter-gst" ,clutter-gst)
4861        ("xorgproto" ,xorgproto)
4862        ("libxxf86vm" ,libxxf86vm)
4863        ("libxtst" ,libxtst)
4864        ("libxrandr" ,libxrandr)
4865        ("libxml2" ,libxml2)
4866        ("libsoup" ,libsoup)
4867        ("libpeas" ,libpeas)
4868        ("librsvg" ,librsvg)
4869        ("lirc" ,lirc)
4870        ("gnome-desktop" ,gnome-desktop)
4871        ("gstreamer" ,gstreamer)
4872        ("gst-plugins-base" ,gst-plugins-base)
4873        ("gst-plugins-good" ,gst-plugins-good)
4874        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4875        ("adwaita-icon-theme" ,adwaita-icon-theme)
4876        ("python" ,python)
4877        ("python-pygobject" ,python-pygobject)
4878        ("totem-pl-parser" ,totem-pl-parser)
4879        ("grilo" ,grilo)
4880        ("grilo-plugins" ,grilo-plugins)
4881        ("vala" ,vala)))
4882     (arguments
4883      `(#:glib-or-gtk? #t
4884
4885        ;; Disable automatic GStreamer plugin installation via PackageKit and
4886        ;; all that.
4887        #:configure-flags '("-D" "enable-easy-codec-installation=no"
4888
4889                            ;; Do not build .a files for the plugins, it's
4890                            ;; completely useless.  This saves 2 MiB.
4891                            "--default-library" "shared")
4892        #:phases
4893        (modify-phases %standard-phases
4894          (add-after 'unpack 'skip-gtk-update-icon-cache
4895            ;; Don't create 'icon-theme.cache'.
4896            (lambda _
4897              (substitute* "meson_post_install.py"
4898                (("gtk-update-icon-cache") "true"))
4899              #t))
4900          (add-before
4901           'install 'disable-cache-generation
4902           (lambda _
4903             (setenv "DESTDIR" "/")
4904             #t))
4905          (add-before
4906           'check 'pre-check
4907           (lambda _
4908             ;; Tests require a running X server.
4909             (system "Xvfb :1 &")
4910             (setenv "DISPLAY" ":1")
4911             #t))
4912          (add-after
4913           'install 'wrap-totem
4914           (lambda* (#:key inputs outputs #:allow-other-keys)
4915             (let ((out             (assoc-ref outputs "out"))
4916                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
4917                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
4918               (wrap-program (string-append out "/bin/totem")
4919                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
4920                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
4921               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
4922                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
4923             #t)))))
4924     (home-page "https://wiki.gnome.org/Apps/Videos")
4925     (synopsis "Simple media player for GNOME based on GStreamer")
4926     (description "Totem is a simple yet featureful media player for GNOME
4927 which can read a large number of file formats.")
4928     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
4929     ;; to be used and distributed together with GStreamer and Totem.  See
4930     ;; file://COPYING in the source distribution for details.
4931     (license license:gpl2+)))
4932
4933 (define-public rhythmbox
4934  (package
4935    (name "rhythmbox")
4936    (version "3.4.4")
4937    (source (origin
4938             (method url-fetch)
4939             (uri (string-append "mirror://gnome/sources/rhythmbox/"
4940                                 (version-major+minor version) "/"
4941                                 "rhythmbox-" version ".tar.xz"))
4942             (sha256
4943              (base32
4944               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
4945    (build-system glib-or-gtk-build-system)
4946    (arguments
4947     `(#:configure-flags
4948       (list "--enable-lirc"
4949             "--enable-python"
4950             "--enable-vala"
4951             "--with-brasero"
4952             "--with-gudev"
4953             "--with-libsecret")
4954       #:phases
4955       (modify-phases %standard-phases
4956         (add-after
4957          'install 'wrap-rhythmbox
4958          (lambda* (#:key inputs outputs #:allow-other-keys)
4959            (let ((out               (assoc-ref outputs "out"))
4960                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4961                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
4962                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
4963                  (python-path       (getenv "PYTHONPATH")))
4964              (wrap-program (string-append out "/bin/rhythmbox")
4965                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
4966                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
4967                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
4968                `("PYTHONPATH"             ":" prefix (,python-path))))
4969            #t)))))
4970    (propagated-inputs
4971     `(("dconf" ,dconf)))
4972    (native-inputs
4973     `(("itstool" ,itstool)
4974       ("intltool" ,intltool)
4975       ("glib" ,glib "bin")
4976       ("gobject-introspection" ,gobject-introspection)
4977       ("desktop-file-utils" ,desktop-file-utils)
4978       ("pkg-config" ,pkg-config)
4979       ("xmllint" ,libxml2)))
4980    (inputs
4981     `(("json-glib" ,json-glib)
4982       ("tdb" ,tdb)
4983       ("gnome-desktop" ,gnome-desktop)
4984       ("python" ,python)
4985       ("python-pygobject" ,python2-pygobject)
4986       ("vala" ,vala)
4987       ("gmime" ,gmime)
4988       ("adwaita-icon-theme" ,adwaita-icon-theme)
4989       ("grilo" ,grilo)
4990       ("grilo-plugins" ,grilo-plugins)
4991       ("gstreamer" ,gstreamer)
4992       ("gst-plugins-base" ,gst-plugins-base)
4993       ("gst-plugins-good" ,gst-plugins-good)
4994       ("totem-pl-parser" ,totem-pl-parser)
4995       ("libgudev" ,libgudev)
4996       ;;("libmtp" ,libmtp) FIXME: Not detected
4997       ("libsecret" ,libsecret)
4998       ("libsoup" ,libsoup)
4999       ("libnotify" ,libnotify)
5000       ("libpeas" ,libpeas)
5001       ("lirc" ,lirc)
5002       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
5003       ;;("clutter" ,clutter)
5004       ;;("clutter-gtk" ,clutter-gtk)
5005       ;;("clutter-gst" ,clutter-gst)
5006       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5007       ("atk" ,atk)
5008       ("pango" ,pango)
5009       ("gtk+" ,gtk+)
5010       ;; TODO:
5011       ;;  * libgpod
5012       ;;  * mx
5013       ("brasero" ,brasero)))
5014    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
5015    (synopsis "Music player for GNOME")
5016    (description "Rhythmbox is a music playing application for GNOME.  It
5017 supports playlists, song ratings, and any codecs installed through gstreamer.")
5018    (license license:gpl2+)))
5019
5020 (define-public eog
5021  (package
5022    (name "eog")
5023    (version "3.34.1")
5024    (source (origin
5025             (method url-fetch)
5026             (uri (string-append "mirror://gnome/sources/" name "/"
5027                                 (version-major+minor version) "/"
5028                                 name "-" version ".tar.xz"))
5029             (sha256
5030              (base32
5031               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
5032    (build-system meson-build-system)
5033    (arguments
5034     `(#:configure-flags
5035       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
5036       (list (string-append "-Dc_link_args=-Wl,-rpath="
5037                            (assoc-ref %outputs "out") "/lib/eog"))
5038       #:phases
5039       (modify-phases %standard-phases
5040          (add-after 'unpack 'skip-gtk-update-icon-cache
5041            ;; Don't create 'icon-theme.cache'.
5042            (lambda _
5043              (substitute* "meson_post_install.py"
5044                (("gtk-update-icon-cache") "true"))
5045              #t))
5046         (add-after 'install 'wrap-eog
5047           (lambda* (#:key outputs #:allow-other-keys)
5048             (let ((out               (assoc-ref outputs "out"))
5049                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
5050               (wrap-program (string-append out "/bin/eog")
5051                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5052             #t)))))
5053    (propagated-inputs
5054     `(("dconf" ,dconf)))
5055    (native-inputs
5056     `(("intltool" ,intltool)
5057       ("itstool" ,itstool)
5058       ("glib" ,glib "bin")
5059       ("gobject-introspection" ,gobject-introspection)
5060       ("pkg-config" ,pkg-config)
5061       ("xmllint" ,libxml2)))
5062    (inputs
5063     `(("gnome-desktop" ,gnome-desktop)
5064       ("shared-mime-info" ,shared-mime-info)
5065       ("adwaita-icon-theme" ,adwaita-icon-theme)
5066       ("exempi" ,exempi)
5067       ("lcms" ,lcms)
5068       ("libexif" ,libexif)
5069       ("libpeas" ,libpeas)
5070       ("libjpeg" ,libjpeg-turbo)
5071       ("librsvg" ,librsvg-next)
5072       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5073       ("gtk+" ,gtk+)))
5074    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
5075    (synopsis "GNOME image viewer")
5076    (description "Eye of GNOME is the GNOME image viewer.  It
5077 supports image conversion, rotation, and slideshows.")
5078    (license license:gpl2+)))
5079
5080 (define-public eog-plugins
5081   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
5082   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
5083   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
5084   ;; 'XDG_DATA_DIRS' appropriately set.
5085   (package
5086     (name "eog-plugins")
5087     (version "3.26.4")
5088     (source (origin
5089               (method url-fetch)
5090               (uri (string-append "mirror://gnome/sources/eog-plugins/"
5091                                   (version-major+minor version) "/"
5092                                   "eog-plugins-" version ".tar.xz"))
5093               (sha256
5094                (base32
5095                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
5096     (build-system gnu-build-system)
5097     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
5098     (synopsis "Extensions for the Eye of GNOME image viewer")
5099     (native-inputs
5100      `(("pkg-config" ,pkg-config)
5101        ("gettext" ,gettext-minimal)))
5102     (inputs
5103      `(("eog" ,eog)
5104        ("glib" ,glib)
5105        ("gtk+" ,gtk+)
5106        ("libpeas" ,libpeas)
5107        ("libexif" ,libexif)
5108        ("libchamplain" ,libchamplain)))
5109     (description
5110      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
5111 notably:
5112
5113 @itemize
5114 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
5115 @item @dfn{Map}, which displays a map of where the picture was taken on the
5116 side panel;
5117 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
5118 @end itemize\n")
5119
5120     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
5121     ;; long suspicious byte stream that goes to a
5122     ;; ".gresource.eog_postasa_plugin" ELF section.
5123     (license license:gpl2+)))
5124
5125 (define-public libgudev
5126   (package
5127     (name "libgudev")
5128     (version "232")
5129     (source (origin
5130               (method url-fetch)
5131               (uri (string-append "mirror://gnome/sources/" name "/"
5132                                   version "/" name "-" version ".tar.xz"))
5133               (sha256
5134                (base32
5135                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
5136     (build-system gnu-build-system)
5137     (arguments
5138      '(#:configure-flags
5139        ;; umockdev depends on libgudev.
5140        (list "--disable-umockdev")))
5141     (native-inputs
5142      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5143        ("gobject-introspection" ,gobject-introspection)
5144        ("pkg-config" ,pkg-config)))
5145     (propagated-inputs
5146      `(("glib" ,glib))) ; required by gudev-1.0.pc
5147     (inputs
5148      `(("udev" ,eudev)))
5149     (home-page "https://wiki.gnome.org/Projects/libgudev")
5150     (synopsis "GObject bindings for libudev")
5151     (description
5152      "This library provides GObject bindings for libudev.  It was originally
5153 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
5154     (license license:lgpl2.1+)))
5155
5156 (define-public gvfs
5157   (package
5158     (name "gvfs")
5159     (version "1.40.1")
5160     (source (origin
5161               (method url-fetch)
5162               (uri (string-append "mirror://gnome/sources/gvfs/"
5163                                   (version-major+minor version) "/"
5164                                   "gvfs-" version ".tar.xz"))
5165               (sha256
5166                (base32
5167                 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))))
5168     (build-system meson-build-system)
5169     (arguments
5170      '(#:glib-or-gtk? #t
5171        #:configure-flags
5172        (list "-Dsystemduserunitdir=no"
5173              "-Dtmpfilesdir=no"
5174              ;; Otherwise, the RUNPATH will lack the final path component.
5175              (string-append "-Dc_link_args=-Wl,-rpath="
5176                             (assoc-ref %outputs "out") "/lib/gvfs"))))
5177     (native-inputs
5178      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5179        ("gettext" ,gettext-minimal)
5180        ("gtk-doc" ,gtk-doc)
5181        ("pkg-config" ,pkg-config)
5182        ("xsltproc" ,libxslt)))
5183     (inputs
5184      `(("avahi" ,avahi)
5185        ("docbook-xml" ,docbook-xml-4.2)
5186        ("docbook-xsl" ,docbook-xsl)
5187        ("dbus" ,dbus)
5188        ("elogind" ,elogind)
5189        ("fuse" ,fuse)
5190        ("gcr" ,gcr)
5191        ("glib" ,glib)
5192        ("gnome-online-accounts" ,gnome-online-accounts)
5193        ("libarchive" ,libarchive)
5194        ("libbluray" ,libbluray)
5195        ("libcap" ,libcap)
5196        ("libcdio-paranoia" ,libcdio-paranoia)
5197        ("libgcrypt" ,libgcrypt)
5198        ("libgdata" ,libgdata)
5199        ("libgphoto2" ,libgphoto2)
5200        ("libgudev" ,libgudev)
5201        ("libimobiledevice" ,libimobiledevice)
5202        ("libmtp" ,libmtp)
5203        ("libnfs" ,libnfs)
5204        ("libsecret" ,libsecret)
5205        ("libsmbclient" ,samba)
5206        ("libsoup" ,libsoup)
5207        ("libxml2" ,libxml2)
5208        ("openssh" ,openssh)
5209        ("polkit" ,polkit)
5210        ("udisks" ,udisks)))
5211     (home-page "https://wiki.gnome.org/gvfs/")
5212     (synopsis "Userspace virtual file system for GIO")
5213     (description
5214      "GVFS is a userspace virtual file system designed to work with the I/O
5215 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
5216 to all applications using the GIO API.  It also supports exposing the GVFS
5217 mounts to non-GIO applications using FUSE.
5218
5219 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
5220 DAV, and others.")
5221     (license license:lgpl2.0+)))
5222
5223 (define-public gusb
5224   (package
5225     (name "gusb")
5226     (version "0.3.0")
5227     (source (origin
5228               (method git-fetch)
5229               (uri (git-reference
5230                      (url "https://github.com/hughsie/libgusb.git")
5231                      (commit version)))
5232               (file-name (git-file-name name version))
5233               (sha256
5234                (base32
5235                 "002pg0p4qzzk5dkyiynm483ir26zxrn4k71c7f6j85mfsdzbgli7"))))
5236     (build-system meson-build-system)
5237     (native-inputs
5238      `(("gobject-introspection" ,gobject-introspection)
5239        ("pkg-config" ,pkg-config)
5240        ("vala" ,vala)
5241        ("gtk-doc" ,gtk-doc)))
5242     (propagated-inputs
5243      ;; Both of these are required by gusb.pc.
5244      `(("glib" ,glib)
5245        ("libusb" ,libusb)))
5246     (arguments
5247      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
5248     (home-page "https://github.com/hughsie/libgusb")
5249     (synopsis "GLib binding for libusb1")
5250     (description
5251      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
5252 asynchronous control, bulk and interrupt transfers with proper cancellation
5253 and integration into a mainloop.  This makes it easy to integrate low level
5254 USB transfers with your high-level application or system daemon.")
5255     (license license:lgpl2.1+)))
5256
5257 (define-public simple-scan
5258   (package
5259     (name "simple-scan")
5260     (version "3.36.0")
5261     (source
5262      (origin
5263        (method url-fetch)
5264        (uri (string-append "mirror://gnome/sources/simple-scan/"
5265                            (version-major+minor version) "/"
5266                            "simple-scan-" version ".tar.xz"))
5267        (sha256
5268         (base32 "198l3yhqhb2wzfdcgi8fzbwycr0njn44583dazz6wy1gqbiqnzgm"))))
5269     (build-system meson-build-system)
5270     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
5271     (arguments
5272      '(#:glib-or-gtk? #t))
5273     (inputs
5274      `(("gtk" ,gtk+)
5275        ("zlib" ,zlib)
5276        ("cairo" ,cairo)
5277        ("colord" ,colord)
5278        ("gdk-pixbuf" ,gdk-pixbuf)
5279        ("gusb" ,gusb)
5280        ("libsane" ,sane-backends)))
5281     (native-inputs
5282      `(("gettext" ,gettext-minimal)
5283        ("itstool" ,itstool)
5284        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
5285        ("pkg-config" ,pkg-config)
5286        ("vala" ,vala)
5287        ("xmllint" ,libxml2)))
5288     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
5289     (synopsis "Document and image scanner")
5290     (description
5291      "Document Scanner is an easy-to-use application that lets you connect your
5292 scanner and quickly capture images and documents in an appropriate format.  It
5293 supports any scanner for which a suitable SANE driver is available, which is
5294 almost all of them.")
5295     (license license:gpl3+)))
5296
5297 (define-public eolie
5298   (package
5299     (name "eolie")
5300     (version "0.9.98.1")
5301     (source (origin
5302               (method url-fetch)
5303               (uri (string-append "https://adishatz.org/eolie/eolie-"
5304                                   version ".tar.xz"))
5305               (sha256
5306                (base32
5307                 "1d844zva5w4p9pnp9c2g7zyb4vayr2g2drf78spxsdlc5lbd7lqr"))))
5308     (build-system meson-build-system)
5309     (arguments
5310      `(#:glib-or-gtk? #t
5311        #:phases
5312        (modify-phases %standard-phases
5313          (add-after 'unpack 'skip-gtk-update-icon-cache
5314            ;; Don't create 'icon-theme.cache'.
5315            (lambda _
5316              (substitute* "meson_post_install.py"
5317                (("gtk-update-icon-cache") "true"))
5318              #t))
5319          (add-after 'wrap 'wrap-more
5320            (lambda* (#:key inputs outputs #:allow-other-keys)
5321              (let* ((out  (assoc-ref outputs "out"))
5322                     ;; These libraries must be on LD_LIBRARY_PATH.
5323                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
5324                             "atk" "gtk+" "gsettings-desktop-schemas"
5325                             "gobject-introspection"))
5326                     (path (string-join
5327                            (map (lambda (lib)
5328                                   (string-append (assoc-ref inputs lib) "/lib"))
5329                                 libs)
5330                            ":")))
5331                (wrap-program (string-append out "/bin/eolie")
5332                  `("LD_LIBRARY_PATH" ":" prefix (,path))
5333                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
5334                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
5335              #t)))))
5336     (native-inputs
5337      `(("intltool" ,intltool)
5338        ("itstool" ,itstool)
5339        ("pkg-config" ,pkg-config)
5340        ("python" ,python)
5341        ("glib:bin" ,glib "bin")))
5342     (inputs
5343      `(("gobject-introspection" ,gobject-introspection)
5344        ("glib-networking" ,glib-networking)
5345        ("cairo" ,cairo)
5346        ("gtk+" ,gtk+)
5347        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
5348        ("python" ,python-wrapper)
5349        ("python-dateutil" ,python-dateutil)
5350        ("python-pyfxa" ,python-pyfxa)
5351        ("python-pygobject" ,python-pygobject)
5352        ("python-pycairo" ,python-pycairo)
5353        ("python-pycrypto" ,python-pycrypto)
5354        ("libsecret" ,libsecret)
5355        ("gtkspell3" ,gtkspell3)
5356        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5357        ("webkitgtk" ,webkitgtk)))
5358     (home-page "https://wiki.gnome.org/Apps/Eolie")
5359     (synopsis "Web browser for GNOME")
5360     (description
5361      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
5362 a secret password store, an adblocker, and a modern UI.")
5363     (license license:gpl3+)))
5364
5365 (define-public epiphany
5366   (package
5367     (name "epiphany")
5368     (version "3.34.2")
5369     (source (origin
5370               (method url-fetch)
5371               (uri (string-append "mirror://gnome/sources/epiphany/"
5372                                   (version-major+minor version) "/"
5373                                   "epiphany-" version ".tar.xz"))
5374               (sha256
5375                (base32
5376                 "18d48vcp2nxs63bddkdplslgbnlfq79pm2ivl8hk38kkggy3dahf"))))
5377
5378     (build-system meson-build-system)
5379     (arguments
5380      ;; FIXME: tests run under Xvfb, but fail with:
5381      ;;   /src/bookmarks/ephy-bookmarks/create:
5382      ;;   ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
5383      ;;      subsystem
5384      ;;   FAIL
5385      '(#:tests? #f
5386        #:glib-or-gtk? #t
5387        #:phases
5388        (modify-phases %standard-phases
5389          (add-after 'unpack 'skip-gtk-update-icon-cache
5390            ;; Don't create 'icon-theme.cache'.
5391            (lambda _
5392              (substitute* "post_install.py"
5393                (("gtk-update-icon-cache") "true"))
5394              #t)))
5395        #:configure-flags
5396        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
5397        (list (string-append "-Dc_link_args=-Wl,-rpath="
5398                             (assoc-ref %outputs "out") "/lib/epiphany"))))
5399     (propagated-inputs
5400      `(("dconf" ,dconf)))
5401     (native-inputs
5402      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5403        ("glib:bin" ,glib "bin") ; for glib-mkenums
5404        ("intltool" ,intltool)
5405        ("itstool" ,itstool)
5406        ("pkg-config" ,pkg-config)
5407        ("xmllint" ,libxml2)))
5408     (inputs
5409      `(("avahi" ,avahi)
5410        ("gcr" ,gcr)
5411        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
5412        ("glib-networking" ,glib-networking)
5413        ("gnome-desktop" ,gnome-desktop)
5414        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5415        ("json-glib" ,json-glib)
5416        ("iso-codes" ,iso-codes)
5417        ("libdazzle" ,libdazzle)
5418        ("libnotify" ,libnotify)
5419        ("libsecret" ,libsecret)
5420        ("libxslt" ,libxslt)
5421        ("nettle" ,nettle) ; for hogweed
5422        ("sqlite" ,sqlite)
5423        ("webkitgtk" ,webkitgtk)))
5424     (home-page "https://wiki.gnome.org/Apps/Web")
5425     (synopsis "GNOME web browser")
5426     (description
5427      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
5428 principles are simplicity and standards compliance.")
5429     (license license:gpl2+)))
5430
5431 (define-public d-feet
5432   (package
5433     (name "d-feet")
5434     (version "0.3.14")
5435     (source (origin
5436               (method url-fetch)
5437               (uri (string-append "mirror://gnome/sources/" name "/"
5438                                   (version-major+minor version) "/"
5439                                   name "-" version ".tar.xz"))
5440               (sha256
5441                (base32
5442                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
5443     (build-system glib-or-gtk-build-system)
5444     (arguments
5445      '(#:out-of-source? #f ; tests need to run in the source directory.
5446        #:phases
5447        (modify-phases %standard-phases
5448          (add-before
5449           'check 'pre-check
5450           (lambda _
5451             ;; The test suite requires a running X server.
5452             (system "Xvfb :1 &")
5453             (setenv "DISPLAY" ":1")
5454             ;; Don't fail on missing '/etc/machine-id'.
5455             (setenv "DBUS_FATAL_WARNINGS" "0")
5456             ;; tests.py and window.py don't meet E402:
5457             ;;   E402 module level import not at top of file
5458             (substitute* "src/tests/Makefile"
5459               (("--ignore=E123") "--ignore=E123,E402"))
5460             #t))
5461          (add-after
5462           'install 'wrap-program
5463           (lambda* (#:key outputs #:allow-other-keys)
5464             (let ((prog (string-append (assoc-ref outputs "out")
5465                                        "/bin/d-feet")))
5466               (wrap-program prog
5467                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
5468                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
5469               #t))))))
5470     (native-inputs
5471      `(("intltool" ,intltool)
5472        ("itstool" ,itstool)
5473        ("pkg-config" ,pkg-config)
5474        ("python-pep8" ,python-pep8)
5475        ("xmllint" ,libxml2)
5476        ("xorg-server" ,xorg-server-for-tests)))
5477     (inputs
5478      `(("gobject-introspection" ,gobject-introspection)
5479        ("gtk+" ,gtk+)
5480        ("python" ,python-wrapper)
5481        ("hicolor-icon-theme" ,hicolor-icon-theme)
5482        ("python-pygobject" ,python-pygobject)))
5483     (home-page "https://wiki.gnome.org/Apps/DFeet")
5484     (synopsis "D-Bus debugger")
5485     (description
5486      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
5487 of running programs and invoke methods on those interfaces.")
5488     (license license:gpl2+)))
5489
5490 (define-public yelp-xsl
5491   (package
5492     (name "yelp-xsl")
5493     (version "3.34.2")
5494     (source (origin
5495               (method url-fetch)
5496               (uri (string-append "mirror://gnome/sources/" name "/"
5497                                   (version-major+minor version) "/"
5498                                   name "-" version ".tar.xz"))
5499               (sha256
5500                (base32
5501                 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
5502     (build-system gnu-build-system)
5503     (native-inputs
5504      `(("gettext-minimal" ,gettext-minimal)
5505        ("itstool" ,itstool)
5506        ("xmllint" ,libxml2)))
5507     (home-page "https://wiki.gnome.org/Apps/Yelp")
5508     (synopsis "XSL stylesheets for Yelp")
5509     (description
5510      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
5511 to format Docbook and Mallard documents.")
5512     (license license:gpl2+)))
5513
5514 (define-public yelp
5515   (package
5516     (name "yelp")
5517     (version "3.32.2")
5518     (source (origin
5519               (method url-fetch)
5520               (uri (string-append "mirror://gnome/sources/" name "/"
5521                                   (version-major+minor version) "/"
5522                                   name "-" version ".tar.xz"))
5523               (sha256
5524                (base32
5525                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
5526     (build-system glib-or-gtk-build-system)
5527     (native-inputs
5528      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5529        ("intltool" ,intltool)
5530        ("itstool" ,itstool)
5531        ("pkg-config" ,pkg-config)))
5532     (propagated-inputs
5533      `(("dconf" ,dconf)))
5534     (inputs
5535      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5536        ("libxslt" ,libxslt)
5537        ("sqlite" ,sqlite)
5538        ("webkitgtk" ,webkitgtk)
5539        ("yelp-xsl" ,yelp-xsl)))
5540     (home-page "https://wiki.gnome.org/Apps/Yelp")
5541     (synopsis "GNOME help browser")
5542     (description
5543      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
5544 man, info, and HTML documents.  It can locate documents according to the
5545 freedesktop.org help system specification.")
5546     (license license:gpl2+)))
5547
5548 (define-public yelp-tools
5549   (package
5550     (name "yelp-tools")
5551     (version "3.32.2")
5552     (source (origin
5553               (method url-fetch)
5554               (uri (string-append "mirror://gnome/sources/" name "/"
5555                                   (version-major+minor version) "/"
5556                                   name "-" version ".tar.xz"))
5557               (sha256
5558                (base32
5559                 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
5560     (build-system gnu-build-system)
5561     (native-inputs
5562      `(("pkg-config" ,pkg-config)))
5563     (propagated-inputs
5564      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
5565      `(("itstool" ,itstool)
5566        ("xmllint" ,libxml2)
5567        ("xsltproc" ,libxslt)))
5568     (inputs
5569      `(("yelp-xsl" ,yelp-xsl)))
5570     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
5571     (synopsis "Yelp documentation tools")
5572     (description
5573      "Yelp-tools is a collection of scripts and build utilities to help create,
5574 manage, and publish documentation for Yelp and the web.  Most of the heavy
5575 lifting is done by packages like yelp-xsl and itstool.  This package just
5576 wraps things up in a developer-friendly way.")
5577     (license license:gpl2+)))
5578
5579 (define-public libgee
5580   (package
5581     (name "libgee")
5582     (version "0.20.3")
5583     (source (origin
5584               (method url-fetch)
5585               (uri (string-append "mirror://gnome/sources/libgee/"
5586                                   (version-major+minor version) "/"
5587                                   "libgee-" version ".tar.xz"))
5588               (sha256
5589                (base32
5590                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
5591     (build-system gnu-build-system)
5592     (arguments
5593      `(#:phases
5594        (modify-phases %standard-phases
5595          (add-after 'unpack 'fix-introspection-install-dir
5596           (lambda* (#:key outputs #:allow-other-keys)
5597             (let ((out (assoc-ref outputs "out")))
5598               (substitute* "gee/Makefile.in"
5599                 (("@INTROSPECTION_GIRDIR@")
5600                  (string-append out "/share/gir-1.0/"))
5601                 (("@INTROSPECTION_TYPELIBDIR@")
5602                  (string-append out "/lib/girepository-1.0/")))))))))
5603     (native-inputs
5604      `(("glib" ,glib "bin")
5605        ("pkg-config" ,pkg-config)))
5606     (inputs
5607      `(("glib" ,glib)
5608        ("gobject-introspection" ,gobject-introspection)))
5609     (home-page "https://wiki.gnome.org/Projects/Libgee")
5610     (synopsis "GObject collection library")
5611     (description
5612      "Libgee is a utility library providing GObject-based interfaces and
5613 classes for commonly used data structures.")
5614     (license license:lgpl2.1+)))
5615
5616 (define-public gexiv2
5617   (package
5618     (name "gexiv2")
5619     (version "0.12.0")
5620     (source (origin
5621               (method url-fetch)
5622               (uri (string-append "mirror://gnome/sources/" name "/"
5623                                   (version-major+minor version) "/"
5624                                   name "-" version ".tar.xz"))
5625               (sha256
5626                (base32
5627                 "0slj5yj8c90l9pp5i3z74x5r3r4da0xfmbzkfq5k0dkg72q3kxaq"))))
5628     (build-system meson-build-system)
5629     (native-inputs
5630      `(("gcr" ,gcr)
5631        ("glib" ,glib "bin")
5632        ("pkg-config" ,pkg-config)
5633        ("vala" ,vala)))
5634     (propagated-inputs
5635      ;; Listed in "Requires" section of gexiv2.pc
5636      `(("exiv2" ,exiv2)))
5637     (inputs
5638      `(("glib" ,glib)
5639        ("gobject-introspection" ,gobject-introspection)))
5640     (home-page "https://wiki.gnome.org/Projects/gexiv2")
5641     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
5642     (description
5643      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
5644 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
5645 metadata in photo and video files of various formats.")
5646     (license license:gpl2+)))
5647
5648 (define-public shotwell
5649   (package
5650     (name "shotwell")
5651     (version "0.30.8")
5652     (source (origin
5653               (method url-fetch)
5654               (uri (string-append "mirror://gnome/sources/shotwell/"
5655                                   (version-major+minor version) "/"
5656                                   "shotwell-" version ".tar.xz"))
5657               (sha256
5658                (base32
5659                 "1f7m007g6w1sz8s60w6x81ghp2rrjmik8phd958b2hy8zz92wbbj"))))
5660     (build-system meson-build-system)
5661     (arguments
5662      '(#:glib-or-gtk? #t
5663        #:phases
5664        (modify-phases %standard-phases
5665          (add-after 'unpack 'skip-gtk-update-icon-cache
5666            (lambda _
5667              (substitute* "build-aux/meson/postinstall.py"
5668                (("gtk-update-icon-cache") (which "true"))
5669                (("update-desktop-database") (which "true")))
5670              #t)))))
5671     (propagated-inputs
5672      `(("dconf" ,dconf)))
5673     (native-inputs
5674      `(("gettext" ,gettext-minimal)
5675        ("glib:bin" ,glib "bin")
5676        ("itstool" ,itstool)
5677        ("pkg-config" ,pkg-config)
5678        ("vala" ,vala)))
5679     (inputs
5680      `(("gcr" ,gcr)
5681        ("gexiv2" ,gexiv2)
5682        ("gst-plugins-base" ,gst-plugins-base)
5683        ("gstreamer" ,gstreamer)
5684        ("json-glib" ,json-glib)
5685        ("libgdata" ,libgdata)
5686        ("libgee" ,libgee)
5687        ("libgphoto2" ,libgphoto2)
5688        ("libgudev" ,libgudev)
5689        ("libraw" ,libraw)
5690        ("libsoup" ,libsoup)
5691        ("libxml2" ,libxml2)
5692        ("sqlite" ,sqlite)
5693        ("webkitgtk" ,webkitgtk)))
5694     (home-page "https://wiki.gnome.org/Apps/Shotwell")
5695     (synopsis "Photo manager for GNOME 3")
5696     (description
5697      "Shotwell is a digital photo manager designed for the GNOME desktop
5698 environment.  It allows you to import photos from disk or camera, organize
5699 them by keywords and events, view them in full-window or fullscreen mode, and
5700 share them with others via social networking and more.")
5701     (license license:lgpl2.1+)))
5702
5703 (define-public file-roller
5704   (package
5705     (name "file-roller")
5706     (version "3.32.3")
5707     (source (origin
5708               (method url-fetch)
5709               (uri (string-append "mirror://gnome/sources/file-roller/"
5710                                   (version-major+minor version) "/"
5711                                   "file-roller-" version ".tar.xz"))
5712               (sha256
5713                (base32
5714                 "0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
5715     (build-system meson-build-system)
5716     (native-inputs
5717      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5718        ("intltool" ,intltool)
5719        ("itstool" ,itstool)
5720        ("pkg-config" ,pkg-config)
5721        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
5722        ("glib:bin" ,glib "bin")))
5723     ;; TODO: Add libnautilus.
5724     (inputs
5725      `(("gtk+" ,gtk+)
5726        ("gdk-pixbuf" ,gdk-pixbuf)
5727        ("json-glib" ,json-glib)
5728        ("libarchive" ,libarchive)
5729        ("libnotify" ,libnotify)
5730        ("nettle" ,nettle)
5731        ("libxml2" ,libxml2)))
5732     (synopsis "Graphical archive manager for GNOME")
5733     (description "File Roller is an archive manager for the GNOME desktop
5734 environment that allows users to view, unpack, and create compressed archives
5735 such as gzip tarballs.")
5736     (home-page "http://fileroller.sourceforge.net/")
5737     (license license:gpl2+)))
5738
5739 (define-public gnome-session
5740   (package
5741     (name "gnome-session")
5742     (version "3.34.2")
5743     (source (origin
5744               (method url-fetch)
5745               (uri (string-append "mirror://gnome/sources/" name "/"
5746                                   (version-major+minor version) "/"
5747                                   name "-" version ".tar.xz"))
5748               (sha256
5749                (base32
5750                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
5751     (arguments
5752      '(#:glib-or-gtk? #t
5753        #:phases
5754        (modify-phases %standard-phases
5755          (add-before 'configure 'pre-configure
5756            (lambda* (#:key outputs #:allow-other-keys)
5757              ;; Use elogind instead of systemd.
5758              (substitute* "meson.build"
5759                (("libsystemd-login") "libelogind")
5760                (("and libsystemd_daemon_dep.found.*") ","))
5761              (substitute* "gnome-session/gsm-systemd.c"
5762                (("#include <systemd/sd-login.h>")
5763                 "#include <elogind/sd-login.h>"))
5764              ;; Remove uses of the systemd daemon.
5765              (substitute* "gnome-session/gsm-autostart-app.c"
5766                (("#ifdef HAVE_SYSTEMD") "#if 0"))
5767              #t))
5768          (add-after 'install 'wrap-gnome-session
5769            (lambda* (#:key inputs outputs #:allow-other-keys)
5770              ;; Make sure 'gnome-session' finds the 'gsettings' program.
5771              (let ((glib (assoc-ref inputs "glib:bin"))
5772                    (out  (assoc-ref outputs "out")))
5773                (wrap-program (string-append out "/bin/gnome-session")
5774                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
5775                #t))))
5776
5777        #:configure-flags
5778        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
5779          "-Dman=false" ; FIXME: disabled because of docbook validation error
5780          "-Dsystemd_journal=false")))
5781     (build-system meson-build-system)
5782     (native-inputs
5783      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5784        ("pkg-config" ,pkg-config)
5785        ("intltool" ,intltool)
5786        ("xsltproc" ,libxslt)
5787        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
5788        ("docbook-xsl" ,docbook-xsl)
5789        ("docbook-xml" ,docbook-xml)
5790        ("xmlto" ,xmlto)))
5791     (inputs
5792      `(("elogind" ,elogind)
5793        ("gnome-desktop" ,gnome-desktop)
5794        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5795        ("gtk+" ,gtk+)
5796        ("json-glib" ,json-glib)
5797        ("libsm" ,libsm)
5798        ("libxcomposite" ,libxcomposite)
5799        ("libxtst" ,libxtst)
5800        ("mesa" ,mesa)
5801        ("upower" ,upower)
5802        ("xtrans" ,xtrans)))
5803     (synopsis "Session manager for GNOME")
5804     (description
5805      "This package contains the GNOME session manager, as well as a
5806 configuration program to choose applications starting on login.")
5807     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
5808     (license license:gpl2+)))
5809
5810 (define-public gjs
5811   (package
5812     (name "gjs")
5813     (version "1.56.2")
5814     (source (origin
5815               (method url-fetch)
5816               (uri (string-append "mirror://gnome/sources/" name "/"
5817                                   (version-major+minor version) "/"
5818                                   name "-" version ".tar.xz"))
5819               (sha256
5820                (base32
5821                 "1b5321krn89p3f7s2ik6gpfnc61apzljhlnbqky8c88f7n6832ac"))))
5822     (build-system gnu-build-system)
5823     (arguments
5824      '(#:phases
5825        (modify-phases %standard-phases
5826          (add-before
5827           'check 'pre-check
5828           (lambda _
5829             ;; The test suite requires a running X server.
5830             (system "Xvfb :1 &")
5831             (setenv "DISPLAY" ":1")
5832
5833             ;; For the missing /etc/machine-id.
5834             (setenv "DBUS_FATAL_WARNINGS" "0")
5835
5836             ;; Our mozjs-38 package does not compile the required Intl API
5837             ;; support for these failing tests.
5838             (substitute* "installed-tests/js/testLocale.js"
5839               ((".*toBeDefined.*") "")
5840               ((".*expect\\(datestr\\).*") ""))
5841             (substitute* "installed-tests/scripts/testCommandLine.sh"
5842               (("Valentín") "")
5843               (("☭") ""))
5844             #t)))))
5845     (native-inputs
5846      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5847        ("pkg-config" ,pkg-config)
5848        ("xmllint" ,libxml2)
5849        ;; For testing
5850        ("dbus-launch" ,dbus)
5851        ("uuidgen" ,util-linux)
5852        ("xvfb" ,xorg-server-for-tests)))
5853     (propagated-inputs
5854      ;; These are all in the Requires.private field of gjs-1.0.pc.
5855      `(("cairo" ,cairo)
5856        ("gobject-introspection" ,gobject-introspection)
5857        ("mozjs" ,mozjs-60)))
5858     (inputs
5859      `(("gtk+" ,gtk+)
5860        ("readline" ,readline)))
5861     (synopsis "Javascript bindings for GNOME")
5862     (home-page "https://live.gnome.org/Gjs")
5863     (description
5864      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
5865 javascript engine and the GObject introspection framework.")
5866     (license license:gpl2+)))
5867
5868 (define-public gedit
5869   (package
5870     (name "gedit")
5871     (version "3.34.1")
5872     (source (origin
5873               (method url-fetch)
5874               (uri (string-append "mirror://gnome/sources/" name "/"
5875                                   (version-major+minor version) "/"
5876                                   name "-" version ".tar.xz"))
5877               (sha256
5878                (base32
5879                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
5880     (build-system meson-build-system)
5881     (arguments
5882      `(#:glib-or-gtk? #t
5883        #:configure-flags
5884        ;; Otherwise, the RUNPATH will lack the final path component.
5885        (list (string-append "-Dc_link_args=-Wl,-rpath="
5886                             (assoc-ref %outputs "out") "/lib/gedit"))
5887
5888        ;; XXX: Generated .h files are sometimes used before being built.
5889        #:parallel-build? #f
5890
5891        #:phases
5892        (modify-phases %standard-phases
5893          (add-after 'unpack 'skip-gtk-update-icon-cache
5894            ;; Don't create 'icon-theme.cache'.
5895            (lambda _
5896              (substitute* "build-aux/meson/post_install.py"
5897                (("gtk-update-icon-cache") (which "true")))
5898              #t))
5899          (add-after 'unpack 'patch-libgd-fetch
5900            (lambda* (#:key inputs #:allow-other-keys)
5901              (let ((libgd (assoc-ref inputs "libgd")))
5902                ;; Calling git is unnecessary because libgd is fetched as a
5903                ;; native input to this package.
5904                (substitute* "meson.build"
5905                  ((".*git.*") ""))
5906                (copy-recursively libgd "subprojects/libgd")
5907                #t)))
5908          (add-after 'install 'wrap-gedit
5909            (lambda* (#:key inputs outputs #:allow-other-keys)
5910              (let ((out               (assoc-ref outputs "out"))
5911                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
5912                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
5913                    (python-path       (getenv "PYTHONPATH")))
5914                (wrap-program (string-append out "/bin/gedit")
5915                  ;; For plugins.
5916                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
5917                  `("PYTHONPATH" ":" prefix (,python-path))
5918                  ;; For language-specs.
5919                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
5920                                                                "/share")))))
5921              #t)))))
5922     (propagated-inputs
5923      `(("dconf" ,dconf)))
5924     (native-inputs
5925      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5926        ("intltool" ,intltool)
5927        ("itstool" ,itstool)
5928        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5929        ("gobject-introspection" ,gobject-introspection)
5930        ("libgd"
5931         ,(origin
5932            (method git-fetch)
5933            (uri (git-reference
5934                  (url "https://gitlab.gnome.org/GNOME/libgd")
5935                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
5936            (file-name (git-file-name "libgd" version))
5937            (sha256
5938             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
5939        ("pkg-config" ,pkg-config)))
5940     (inputs
5941      `(("glib" ,glib)
5942        ("gspell" ,gspell)
5943        ("gtk+" ,gtk+)
5944        ("gtksourceview" ,gtksourceview)
5945        ("libpeas" ,libpeas)
5946        ("libxml2" ,libxml2)
5947        ("iso-codes" ,iso-codes)
5948        ("python-pygobject" ,python-pygobject)
5949        ("python" ,python)
5950        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5951        ("libx11" ,libx11)
5952        ("vala" ,vala)
5953        ("adwaita-icon-theme" ,adwaita-icon-theme)
5954        ("libsoup" ,libsoup)
5955        ("gnome-desktop" ,gnome-desktop)))
5956     (home-page "https://wiki.gnome.org/Apps/Gedit")
5957     (synopsis "GNOME text editor")
5958     (description "While aiming at simplicity and ease of use, gedit is a
5959 powerful general purpose text editor.")
5960     (license license:gpl2+)))
5961
5962 (define-public zenity
5963   (package
5964     (name "zenity")
5965     (version "3.32.0")
5966     (source (origin
5967               (method url-fetch)
5968               (uri (string-append "mirror://gnome/sources/zenity/"
5969                                   (version-major+minor version) "/"
5970                                   "zenity-" version ".tar.xz"))
5971               (sha256
5972                (base32
5973                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
5974     (build-system gnu-build-system)
5975     (native-inputs
5976      `(("gettext" ,gettext-minimal)
5977        ("itstool" ,itstool)
5978        ("pkg-config" ,pkg-config)))
5979     (inputs
5980      `(("libnotify" ,libnotify)
5981        ("webkitgtk" ,webkitgtk)))
5982     (synopsis "Display graphical dialog boxes from shell scripts")
5983     (home-page "https://www.gnome.org")
5984     (description
5985      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
5986 to display dialog boxes from the commandline and shell scripts.")
5987     (license license:lgpl2.0+)))
5988
5989 (define-public mutter
5990   (package
5991     (name "mutter")
5992     (version "3.32.2")
5993     (source (origin
5994               (method url-fetch)
5995               (uri (string-append "mirror://gnome/sources/" name "/"
5996                                   (version-major+minor version) "/"
5997                                   name "-" version ".tar.xz"))
5998               (sha256
5999                (base32
6000                 "1h577i2ap7dpfy1jg101jvc6nzccc0csgvd55ahydlr8f94frcva"))))
6001     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
6002     ;; versions of cogl and clutter.  As a result, many of the inputs,
6003     ;; propagated-inputs, and configure flags used in cogl and clutter are
6004     ;; needed here as well.
6005     (build-system meson-build-system)
6006     (arguments
6007      '(;; XXX: All mutter tests fail with the following error:
6008        ;;   Settings schema 'org.gnome.mutter' is not installed
6009        #:tests? #f
6010        #:glib-or-gtk? #t
6011        #:configure-flags
6012        ;; Otherwise, the RUNPATH will lack the final path component.
6013        (list (string-append "-Dc_link_args=-Wl,-rpath="
6014                             (assoc-ref %outputs "out") "/lib:"
6015                             (assoc-ref %outputs "out") "/lib/mutter-4")
6016
6017              ;; The following flags are needed for the bundled clutter
6018              (string-append "-Dxwayland_path="
6019                             (assoc-ref %build-inputs "xorg-server-xwayland")
6020                             "/bin/Xwayland")
6021
6022              ;; the remaining flags are needed for the bundled cogl
6023              (string-append "-Dopengl_libname="
6024                             (assoc-ref %build-inputs "mesa")
6025                             "/lib/libGL.so"))
6026        #:phases
6027        (modify-phases %standard-phases
6028          (add-after 'unpack 'disable-werror
6029            (lambda _
6030              ;; XXX: build fails with [-Werror]:
6031              ;;    backends/meta-cursor-renderer.c:112:5: error:
6032              ;;      implicit declaration of function ?roundf?
6033              (substitute* "meson.build"
6034                (("'-Werror=.*',") ""))
6035              #t))
6036          ;; Replace references to systemd libraries to elogind references.
6037          (add-before 'configure 'use-elogind
6038            (lambda _
6039              (substitute* (list "meson.build"
6040                                 "src/backends/native/meta-launcher.c"
6041                                 "src/core/main.c")
6042                (("systemd") "elogind"))
6043              #t)))))
6044     (native-inputs
6045      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6046        ("gobject-introspection" ,gobject-introspection)
6047        ("intltool" ,intltool)
6048        ("pkg-config" ,pkg-config)
6049        ("xorg-server" ,xorg-server-for-tests)
6050        ;; For git build
6051        ("autoconf" ,autoconf)
6052        ("automake" ,automake)
6053        ("libtool" ,libtool)))
6054     (propagated-inputs
6055      `(;; libmutter.pc refers to these:
6056        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6057        ("gtk+" ,gtk+)
6058        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
6059        ("atk" ,atk)
6060        ("cairo" ,cairo)
6061        ("gdk-pixbuf" ,gdk-pixbuf)
6062        ("glib" ,glib)
6063        ("json-glib" ,json-glib)
6064        ("libinput" ,libinput)
6065        ("libx11" ,libx11)
6066        ("libxcomposite" ,libxcomposite)
6067        ("libxdamage" ,libxdamage)
6068        ("libxext" ,libxext)
6069        ("libxfixes" ,libxfixes)
6070        ("libxkbcommon" ,libxkbcommon)
6071        ("libxrandr" ,libxrandr)
6072        ("mesa" ,mesa)
6073        ("pango" ,pango)
6074        ("udev" ,eudev)
6075        ("xinput" ,xinput)))
6076     (inputs
6077      `(("elogind" ,elogind)
6078        ("gnome-desktop" ,gnome-desktop)
6079        ("gnome-settings-daemon" ,gnome-settings-daemon)
6080        ("libcanberra-gtk" ,libcanberra)
6081        ("libgudev" ,libgudev)
6082        ("libice" ,libice)
6083        ("libsm" ,libsm)
6084        ("libwacom" ,libwacom)
6085        ("libxkbfile" ,libxkbfile)
6086        ("libxrandr" ,libxrandr)
6087        ("libxtst" ,libxtst)
6088        ("pipewire" ,pipewire)
6089        ("startup-notification" ,startup-notification)
6090        ("upower-glib" ,upower)
6091        ("xkeyboard-config" ,xkeyboard-config)
6092        ("xorg-server-xwayland" ,xorg-server-xwayland)
6093        ("zenity" ,zenity)))
6094     (synopsis "Window and compositing manager")
6095     (home-page "https://www.gnome.org")
6096     (description
6097      "Mutter is a window and compositing manager that displays and manages your
6098 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
6099 Clutter toolkit with solid window-management logic inherited from the Metacity
6100 window manager.")
6101     (license license:gpl2+)))
6102
6103 (define-public gnome-online-accounts
6104   (package
6105     (name "gnome-online-accounts")
6106     (version "3.36.0")
6107     (source (origin
6108               (method url-fetch)
6109               (uri (string-append "mirror://gnome/sources/" name "/"
6110                                   (version-major+minor version) "/"
6111                                   name "-" version ".tar.xz"))
6112               (sha256
6113                (base32
6114                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
6115     (outputs '("out" "lib"))
6116     (build-system glib-or-gtk-build-system)
6117     (arguments
6118      `(#:configure-flags
6119        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
6120        #:phases
6121        (modify-phases %standard-phases
6122          (add-before 'configure 'patch-libgoa-output
6123            (lambda* (#:key outputs #:allow-other-keys)
6124              (let ((lib (assoc-ref outputs "lib")))
6125                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
6126                  (("@prefix@") lib)
6127                  (("@exec_prefix@") lib)
6128                  (("@libdir@") (string-append lib "/lib"))
6129                  (("@includedir@") (string-append lib "/include"))
6130                  (("@datadir@") (string-append lib "/share")))
6131                ;; Make sure gobject-introspection knows about the output
6132                ;; too (see <https://bugs.gnu.org/36535>).
6133                (setenv "outputs" "out lib")
6134                #t))))))
6135     (native-inputs
6136      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6137        ("gobject-introspection" ,gobject-introspection)
6138        ("intltool" ,intltool)
6139        ("pkg-config" ,pkg-config)
6140        ("vala" ,vala)
6141        ("xsltproc" ,libxslt)))
6142     (propagated-inputs
6143      `(("glib" ,glib)           ; required by goa-1.0.pc
6144        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
6145     (inputs
6146      `(("docbook-xsl" ,docbook-xsl)
6147        ("json-glib" ,json-glib)
6148        ("libsecret" ,libsecret)
6149        ("rest" ,rest)
6150        ("webkitgtk" ,webkitgtk)))
6151     (synopsis "Single sign-on framework for GNOME")
6152     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
6153     (description
6154      "GNOME Online Accounts provides interfaces so that applications and
6155 libraries in GNOME can access the user's online accounts.  It has providers for
6156 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
6157 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
6158     (license license:lgpl2.0+)))
6159
6160 (define-public evolution-data-server
6161   (package
6162     (name "evolution-data-server")
6163     (version "3.34.2")
6164     (source (origin
6165               (method url-fetch)
6166               (uri (string-append "mirror://gnome/sources/" name "/"
6167                                   (version-major+minor version) "/"
6168                                   name "-" version ".tar.xz"))
6169               (patches (search-patches "evolution-data-server-locales.patch"
6170                                        "evolution-data-server-libical-compat.patch"))
6171               (sha256
6172                (base32
6173                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
6174     (build-system cmake-build-system)
6175     (arguments
6176      '(#:configure-flags
6177        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
6178               (runpaths (map (lambda (s)
6179                                (string-append lib "/evolution-data-server/" s))
6180                              '("addressbook-backends" "calendar-backends"
6181                                "camel-providers" "credential-modules"
6182                                "registry-modules"))))
6183          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
6184                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
6185                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
6186                "-DENABLE_VALA_BINDINGS=ON"
6187                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
6188                               (string-append lib "/evolution-data-server;")
6189                               (string-join runpaths ";"))
6190                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
6191        #:phases
6192        (modify-phases %standard-phases
6193          (add-after 'unpack 'disable-failing-tests
6194            (lambda _
6195              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
6196              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
6197              (delete-file-recursively "tests/book-migration")
6198              (substitute* "tests/CMakeLists.txt"
6199                (("add_subdirectory\\(book-migration\\)") ""))
6200              #t))
6201          (add-after 'unpack 'patch-paths
6202           (lambda _
6203             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
6204                            "tests/libedata-book/data-test-utils.c"
6205                            "tests/libedata-book/test-book-cache-utils.c"
6206                            "tests/libedata-cal/test-cal-cache-utils.c")
6207               (("/bin/rm") (which "rm")))
6208             #t))
6209          (add-before 'configure 'dont-override-rpath
6210            (lambda _
6211              (substitute* "CMakeLists.txt"
6212                ;; CMakeLists.txt hard-codes runpath to just the libdir.
6213                ;; Remove it so the configure flag is respected.
6214                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
6215              #t)))))
6216     (native-inputs
6217      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
6218        ("gobject-introspection" ,gobject-introspection)
6219        ("gperf" ,gperf)
6220        ("intltool" ,intltool)
6221        ("pkg-config" ,pkg-config)
6222        ("vala" ,vala)
6223        ("python" ,python-wrapper)))
6224     (propagated-inputs
6225      ;; These are all in the Requires field of .pc files.
6226      `(("gtk+" ,gtk+)
6227        ("libical" ,libical)
6228        ("libsecret" ,libsecret)
6229        ("libsoup" ,libsoup)
6230        ("nss" ,nss)
6231        ("sqlite" ,sqlite)))
6232     (inputs
6233      `(("bdb" ,bdb)
6234        ("gcr" ,gcr)
6235        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6236        ("json-glib" ,json-glib)
6237        ("libcanberra" ,libcanberra)
6238        ("libgweather" ,libgweather)
6239        ("mit-krb5" ,mit-krb5)
6240        ("openldap" ,openldap)
6241        ("webkitgtk" ,webkitgtk)))
6242     (synopsis "Store address books and calendars")
6243     (home-page "https://wiki.gnome.org/Apps/Evolution")
6244     (description
6245      "This package provides a unified backend for programs that work with
6246 contacts, tasks, and calendar information.  It was originally developed for
6247 Evolution (hence the name), but is now used by other packages as well.")
6248     (license license:lgpl2.0)))
6249
6250 (define-public caribou
6251   (package
6252     (name "caribou")
6253     (version "0.4.21")
6254     (source (origin
6255               (method url-fetch)
6256               (uri (string-append "mirror://gnome/sources/" name "/"
6257                                   (version-major+minor version) "/"
6258                                   name "-" version ".tar.xz"))
6259               (sha256
6260                (base32
6261                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
6262     (build-system glib-or-gtk-build-system)
6263     (arguments
6264      '(#:phases
6265        (modify-phases %standard-phases
6266          (add-before
6267           'build 'pre-build
6268           (lambda* (#:key outputs #:allow-other-keys)
6269             (let ((out (assoc-ref outputs "out")))
6270               ;; Use absolute shared library path in Caribou-1.0.typelib.
6271               (substitute* "libcaribou/Makefile"
6272                 (("--shared-library=libcaribou.so")
6273                  (string-append "--shared-library="
6274                                 out "/lib/libcaribou.so")))
6275               #t)))
6276          (add-after 'install 'wrap-programs
6277           (lambda* (#:key outputs #:allow-other-keys)
6278             (let* ((out (assoc-ref outputs "out"))
6279                    (python-path (getenv "PYTHONPATH"))
6280                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6281               (for-each
6282                (lambda (prog)
6283                  (wrap-program prog
6284                    `("PYTHONPATH"      ":" prefix (,python-path))
6285                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6286                (list (string-append out "/bin/caribou-preferences")
6287                      (string-append out "/libexec/antler-keyboard"))))
6288             #t)))))
6289     (native-inputs
6290      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6291        ("gobject-introspection" ,gobject-introspection)
6292        ("intltool" ,intltool)
6293        ("pkg-config" ,pkg-config)
6294        ("python" ,python)
6295        ("vala" ,vala)
6296        ("xsltproc" ,libxslt)))
6297     (propagated-inputs
6298      ;; caribou-1.0.pc refers to all these.
6299      `(("libgee" ,libgee)
6300        ("libxklavier" ,libxklavier)
6301        ("libxtst" ,libxtst)
6302        ("gtk+" ,gtk+)))
6303     (inputs
6304      `(("clutter" ,clutter)
6305        ("dconf" ,dconf)
6306        ("gtk+-2" ,gtk+-2)
6307        ("python-pygobject" ,python-pygobject)))
6308     (synopsis "Text entry and UI navigation application")
6309     (home-page "https://wiki.gnome.org/Projects/Caribou")
6310     (description
6311      "Caribou is an input assistive technology intended for switch and pointer
6312 users.")
6313     (license license:lgpl2.1)))
6314
6315 (define-public network-manager
6316   (package
6317     (name "network-manager")
6318     (version "1.18.4")
6319     (source (origin
6320               (method url-fetch)
6321               (uri (string-append "mirror://gnome/sources/NetworkManager/"
6322                                   (version-major+minor version) "/"
6323                                   "NetworkManager-" version ".tar.xz"))
6324               (patches (search-patches "nm-plugin-path.patch"))
6325               (sha256
6326                (base32
6327                 "0pnh1wr2p1fqa5pr945fr3lngfc5ccfrmgddqsg55lxnjpv0ggd3"))
6328               (modules '((guix build utils)))
6329               (snippet
6330                '(begin
6331                   (substitute* "src/devices/wwan/nm-modem-manager.c"
6332                     (("systemd") "elogind"))
6333                   #t))))
6334     (build-system gnu-build-system)
6335     (outputs '("out"
6336                "doc")) ; 8 MiB of gtk-doc HTML
6337     (arguments
6338      '(#:configure-flags
6339        (let ((out      (assoc-ref %outputs "out"))
6340              (doc      (assoc-ref %outputs "doc"))
6341              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
6342                                       "/sbin/dhclient")))
6343          (list "--with-libnm-glib" ; needed by network-manager-applet
6344                "--with-systemd-journal=no"
6345                "--with-session-tracking=elogind"
6346                "--with-suspend-resume=elogind"
6347                "--with-consolekit=no"
6348                "--with-crypto=gnutls"
6349                "--disable-config-plugin-ibft"
6350                "--sysconfdir=/etc"
6351                "--localstatedir=/var"
6352                (string-append "--with-udev-dir="
6353                               out "/lib/udev")
6354                (string-append "--with-dbus-sys-dir="
6355                               out "/etc/dbus-1/system.d")
6356                (string-append "--with-html-dir="
6357                               doc "/share/gtk-doc/html")
6358                (string-append "--with-dhclient=" dhclient)))
6359        #:phases
6360        (modify-phases %standard-phases
6361          ;; This bare "ls" invocation breaks some tests.
6362          (add-after 'unpack 'patch-ls-invocation
6363            (lambda _
6364              (substitute* "build-aux/ltmain.sh"
6365                (("`ls -")
6366                 (string-append "`" (which "ls") " -")))
6367              #t))
6368          (add-before 'configure 'pre-configure
6369            (lambda _
6370              ;; These tests try to test aspects of network-manager's
6371              ;; functionality within restricted containers, but they don't
6372              ;; cope with being already in the Guix build jail as that jail
6373              ;; lacks some features that they would like to proxy over (like
6374              ;; a /sys mount).
6375              (substitute* '("Makefile.in")
6376                (("src/platform/tests/test-address-linux") " ")
6377                (("src/platform/tests/test-cleanup-linux") " ")
6378                (("src/platform/tests/test-link-linux") " ")
6379                (("src/platform/tests/test-route-linux") " ")
6380                (("src/devices/tests/test-acd") "")
6381                (("src/devices/tests/test-arping") " ")
6382                (("src/devices/tests/test-lldp") " ")
6383                (("src/tests/test-route-manager-linux") " "))
6384              #t))
6385          (add-after 'unpack 'delete-failing-tests
6386            (lambda _
6387              ;; FIXME: These three tests fail for unknown reasons.
6388              ;; ERROR:libnm-core/tests/test-general.c:5842:
6389              ;;   _json_config_check_valid: assertion failed (res == expected): (1 == 0)
6390              ;; ERROR:libnm-core/tests/test-keyfile.c:647:
6391              ;;   test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
6392              ;; ERROR:libnm-core/tests/test-setting.c:907:
6393              ;;   _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
6394              (substitute* "Makefile.in"
6395                (("libnm-core/tests/test-general") " ")
6396                (("libnm-core/tests/test-keyfile") " ")
6397                (("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " "))
6398              #t))
6399          (add-before 'check 'pre-check
6400            (lambda _
6401              ;; For the missing /etc/machine-id.
6402              (setenv "DBUS_FATAL_WARNINGS" "0")
6403
6404              ;; XXX: Regenerate some of the tests that are dependent on Python version.
6405              ;; Try removing this variable for newer versions of NetworkManager.
6406              (setenv "NM_TEST_REGENERATE" "1")
6407              #t))
6408          (replace 'install
6409            (lambda _
6410              (invoke "make"
6411                      "sysconfdir=/tmp"
6412                      "rundir=/tmp"
6413                      "statedir=/tmp"
6414                      "nmstatedir=/tmp/nm"
6415                      "install")
6416              #t)))))
6417     (propagated-inputs
6418      `(("glib" ,glib)))
6419     (native-inputs
6420      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
6421        ("gobject-introspection" ,gobject-introspection)
6422        ("docbook-xsl" ,docbook-xsl)
6423        ("intltool" ,intltool)
6424        ("libxslt" ,libxslt)
6425        ("libxml2" ,libxml2)
6426        ("pkg-config" ,pkg-config)
6427        ;; For testing.
6428        ("python" ,python-wrapper)
6429        ("python-dbus" ,python-dbus)
6430        ("python-pygobject" ,python-pygobject)))
6431     (inputs
6432      `(("coreutils" ,coreutils) ; for ls
6433        ("curl" ,curl)
6434        ("cyrus-sasl" ,cyrus-sasl)
6435        ("dbus-glib" ,dbus-glib)
6436        ("dnsmasq" ,dnsmasq)
6437        ("eudev" ,eudev)
6438        ("gnutls" ,gnutls)
6439        ("iptables" ,iptables)
6440        ("isc-dhcp" ,isc-dhcp)
6441        ("jansson" ,jansson)
6442        ("libgcrypt" ,libgcrypt)
6443        ("libgudev" ,libgudev)
6444        ("libndp" ,libndp)
6445        ("libnl" ,libnl)
6446        ("libsoup" ,libsoup)
6447        ("modem-manager" ,modem-manager)
6448        ("newt" ,newt)                       ;for the 'nmtui' console interface
6449        ("polkit" ,polkit)
6450        ("ppp" ,ppp)
6451        ("readline" ,readline)
6452        ("util-linux" ,util-linux)
6453        ("elogind" ,elogind)))
6454     (synopsis "Network connection manager")
6455     (home-page "https://www.gnome.org/projects/NetworkManager/")
6456     (description
6457      "NetworkManager is a system network service that manages your network
6458 devices and connections, attempting to keep active network connectivity when
6459 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
6460 devices, and provides VPN integration with a variety of different VPN
6461 services.")
6462     (license license:gpl2+)
6463     (properties '((upstream-name . "NetworkManager")))))
6464
6465 (define-public network-manager-openvpn
6466   (package
6467     (name "network-manager-openvpn")
6468     ;; Updating?  Check whether network-manager-applet still needs libnm_gtk.
6469     (version "1.8.10")
6470     (source (origin
6471               (method url-fetch)
6472               (uri (string-append
6473                     "mirror://gnome/sources/NetworkManager-openvpn/"
6474                     (version-major+minor version)
6475                     "/NetworkManager-openvpn-" version ".tar.xz"))
6476               (sha256
6477                (base32
6478                 "1vri49yff4lj13dnzkpq9nx3a4z1bmbrv807r151plj8m1mwhg5g"))))
6479     (build-system gnu-build-system)
6480     (arguments
6481      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6482        #:phases
6483        (modify-phases %standard-phases
6484          (add-after 'configure 'patch-path
6485            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6486              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
6487                                          "/sbin/openvpn"))
6488                     (modprobe (string-append (assoc-ref inputs "kmod")
6489                                              "/bin/modprobe"))
6490                     (pretty-ovpn (string-append "\"" ovpn "\"")))
6491                (for-each
6492                 (lambda (file)
6493                   (substitute* file
6494                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
6495                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
6496                     (("\"/sbin/openvpn\"") pretty-ovpn)
6497                     (("/sbin/modprobe") modprobe)))
6498                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
6499              #t)))))
6500     (native-inputs
6501      `(("pkg-config" ,pkg-config)
6502        ("intltool" ,intltool)))
6503     (inputs
6504      `(("gtk+" ,gtk+)
6505        ("kmod" ,kmod)
6506        ("openvpn" ,openvpn)
6507        ("network-manager" ,network-manager)
6508        ("network-manager-applet" ,network-manager-applet) ;for libnma
6509        ("libsecret" ,libsecret)))
6510     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6511     (synopsis "OpenVPN plug-in for NetworkManager")
6512     (description
6513      "This extension of NetworkManager allows it to take care of connections
6514 to virtual private networks (VPNs) via OpenVPN.")
6515     (license license:gpl2+)
6516     (properties `((upstream-name . "NetworkManager-openvpn")))))
6517
6518 (define-public network-manager-vpnc
6519   (package
6520     (name "network-manager-vpnc")
6521     (version "1.2.6")
6522     (source (origin
6523               (method url-fetch)
6524               (uri (string-append
6525                     "mirror://gnome/sources/NetworkManager-vpnc/"
6526                     (version-major+minor version)
6527                     "/NetworkManager-vpnc-" version ".tar.xz"))
6528               (sha256
6529                (base32
6530                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
6531     (build-system gnu-build-system)
6532     (arguments
6533      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6534        #:phases
6535        (modify-phases %standard-phases
6536          (add-after 'configure 'patch-path
6537            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6538              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
6539                                          "/sbin/vpnc"))
6540                     (modprobe (string-append (assoc-ref inputs "kmod")
6541                                              "/bin/modprobe"))
6542                     (pretty-ovpn (string-append "\"" vpnc "\"")))
6543                (substitute* "src/nm-vpnc-service.c"
6544                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
6545                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
6546                     (("\"/sbin/vpnc\"") pretty-ovpn)
6547                     (("/sbin/modprobe") modprobe)))
6548              #t)))))
6549     (native-inputs
6550      `(("pkg-config" ,pkg-config)
6551        ("intltool" ,intltool)))
6552     (inputs
6553      `(("gtk+" ,gtk+)
6554        ("kmod" ,kmod)
6555        ("vpnc" ,vpnc)
6556        ("network-manager" ,network-manager)
6557        ("network-manager-applet" ,network-manager-applet) ;for libnma
6558        ("libsecret" ,libsecret)))
6559     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6560     (synopsis "VPNC plug-in for NetworkManager")
6561     (description
6562      "Support for configuring virtual private networks based on VPNC.
6563 Compatible with Cisco VPN concentrators configured to use IPsec.")
6564     (license license:gpl2+)
6565     (properties `((upstream-name . "NetworkManager-vpnc")))))
6566
6567 (define-public network-manager-openconnect
6568   (package
6569     (name "network-manager-openconnect")
6570     (version "1.2.6")
6571     (source (origin
6572               (method url-fetch)
6573               (uri (string-append
6574                     "mirror://gnome/sources/NetworkManager-openconnect/"
6575                     (version-major+minor version)
6576                     "/NetworkManager-openconnect-" version ".tar.xz"))
6577               (sha256
6578                (base32
6579                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
6580     (build-system gnu-build-system)
6581     (arguments
6582      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6583        #:phases
6584        (modify-phases %standard-phases
6585          (add-after 'configure 'patch-path
6586            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6587              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
6588                                          "/sbin/openconnect"))
6589                     (modprobe (string-append (assoc-ref inputs "kmod")
6590                                              "/bin/modprobe"))
6591                     (pretty-ovpn (string-append "\"" openconnect "\"")))
6592                (substitute* "src/nm-openconnect-service.c"
6593                  (("\"/usr/local/sbin/openconnect\"") pretty-ovpn)
6594                  (("\"/usr/sbin/openconnect\"") pretty-ovpn)
6595                  (("/sbin/modprobe") modprobe)))
6596              #t)))))
6597     (native-inputs
6598      `(("intltool" ,intltool)
6599        ("network-manager-applet" ,network-manager-applet) ;for libnma
6600        ("pkg-config" ,pkg-config)))
6601     (inputs
6602      `(("gcr" ,gcr)
6603        ("gtk+" ,gtk+)
6604        ("kmod" ,kmod)
6605        ("libsecret" ,libsecret)
6606        ("libxml2" ,libxml2)
6607        ("network-manager" ,network-manager)
6608        ("openconnect" ,openconnect)))
6609     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6610     (synopsis "OpenConnect plug-in for NetworkManager")
6611     (description
6612      "This extension of NetworkManager allows it to take care of connections
6613 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
6614 Cisco's AnyConnect SSL VPN.")
6615     (license license:gpl2+)
6616     (properties `((upstream-name . "NetworkManager-openconnect")
6617
6618                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
6619                   ;; file refers to account "nm-openconnect".  Specify it here
6620                   ;; so that 'network-manager-service-type' creates it.
6621                   (user-accounts . ("nm-openconnect"))))))
6622
6623 (define-public mobile-broadband-provider-info
6624   (package
6625     (name "mobile-broadband-provider-info")
6626     (version "20190116")
6627     (source (origin
6628               (method url-fetch)
6629               (uri (string-append
6630                     "mirror://gnome/sources/"
6631                     "mobile-broadband-provider-info/" version "/"
6632                     "mobile-broadband-provider-info-" version ".tar.xz"))
6633               (sha256
6634                (base32
6635                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
6636     (build-system gnu-build-system)
6637     (arguments
6638      `(#:tests? #f))                    ; no tests
6639     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
6640     (synopsis "Database of broadband connection configuration")
6641     (description "Database of broadband connection configuration.")
6642     (license license:public-domain)))
6643
6644 (define-public network-manager-applet
6645   (package
6646     (name "network-manager-applet")
6647     (version "1.8.24")
6648     (source (origin
6649               (method url-fetch)
6650               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
6651                                   (version-major+minor version) "/"
6652                                   "network-manager-applet-" version ".tar.xz"))
6653               (sha256
6654                (base32
6655                 "1gzvz4wfqfsfclqg56y954al8x6fmz71cnxlx1i4nqr7a25bp2qi"))))
6656     (build-system meson-build-system)
6657     (arguments
6658      '(#:configure-flags
6659        ;; ‘Nobody should be using this’ but network-manager-openvpn 1.8.10 does.
6660        (list "-Dlibnm_gtk=true")
6661        #:glib-or-gtk? #t))
6662     (native-inputs
6663      `(("intltool" ,intltool)
6664        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
6665        ("gobject-introspection" ,gobject-introspection)
6666        ("gtk-doc" ,gtk-doc)
6667        ("pkg-config" ,pkg-config)))
6668     (propagated-inputs
6669      ;; libnm-gtk.pc refers to all these.
6670      `(("dbus-glib" ,dbus-glib)
6671        ("gtk+" ,gtk+)
6672        ("network-manager" ,network-manager)))
6673     (inputs
6674      `(("gcr" ,gcr)
6675        ("iso-codes" ,iso-codes)
6676        ("libgudev" ,libgudev)
6677        ("libnotify" ,libnotify)
6678        ("libsecret" ,libsecret)
6679        ("libselinux" ,libselinux)
6680        ("jansson" ,jansson) ; for team support
6681        ("modem-manager" ,modem-manager)
6682        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)))
6683     (synopsis "Applet for managing network connections")
6684     (home-page "https://www.gnome.org/projects/NetworkManager/")
6685     (description
6686      "This package contains a systray applet for NetworkManager.  It displays
6687 the available networks and allows users to easily switch between them.")
6688     (license license:gpl2+)))
6689
6690 (define-public libxml++
6691   (package
6692     (name "libxml++")
6693     (version "3.0.1")
6694     (source (origin
6695               (method url-fetch)
6696               (uri (string-append "mirror://gnome/sources/" name "/"
6697                                   (version-major+minor version) "/"
6698                                   name "-" version ".tar.xz"))
6699               (sha256
6700                (base32
6701                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
6702     (build-system gnu-build-system)
6703     ;; libxml++-3.0.pc refers to all these.
6704     (propagated-inputs
6705      `(("libxml2" ,libxml2)
6706        ("glibmm" ,glibmm)))
6707     (native-inputs
6708      `(("perl" ,perl)
6709        ("pkg-config" ,pkg-config)))
6710     (home-page "http://libxmlplusplus.sourceforge.net/")
6711     (synopsis "C++ wrapper for XML parser library libxml2")
6712     (description
6713      "This package provides a C++ wrapper for the XML parser library
6714 libxml2.")
6715     (license license:lgpl2.1+)))
6716
6717 (define-public libxml++-2
6718   (package
6719     (inherit libxml++)
6720     (name "libxml++")
6721     (version "2.40.1")
6722     (source (origin
6723               (method url-fetch)
6724               (uri (string-append "mirror://gnome/sources/" name "/"
6725                                   (version-major+minor version) "/"
6726                                   name "-" version ".tar.xz"))
6727               (sha256
6728                (base32
6729                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
6730
6731 (define-public gdm
6732   (package
6733     (name "gdm")
6734     (version "3.32.0")
6735     (source (origin
6736               (method url-fetch)
6737               (uri (string-append "mirror://gnome/sources/" name "/"
6738                                   (version-major+minor version) "/"
6739                                   name "-" version ".tar.xz"))
6740               (sha256
6741                (base32
6742                 "12ypdz9i24hwbl1d1wnnxb8zlvfa4f49n9ac5cl9d6h8qp4b0gb4"))
6743               (patches (search-patches "gdm-default-session.patch"))))
6744     (build-system glib-or-gtk-build-system)
6745     (arguments
6746      '(#:configure-flags
6747        `("--without-plymouth"
6748          "--disable-systemd-journal"
6749
6750          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
6751          ;; instead of having to replace it (i.e., stopping the mingetty
6752          ;; service for TTY 1 before starting GDM).
6753          "--with-initial-vt=7"
6754
6755          ;; Use '/etc/environment' for locale settings instead of the
6756          ;; systemd-specific '/etc/locale.conf'.
6757          "--with-lang-file=/etc/environment"
6758
6759          ,(string-append "--with-udevdir="
6760                          (assoc-ref %outputs "out") "/lib/udev")
6761
6762          "--localstatedir=/var"
6763          ,(string-append "--with-default-path="
6764                          (string-join '("/run/setuid-programs"
6765                                         "/run/current-system/profile/bin"
6766                                         "/run/current-system/profile/sbin")
6767                                       ":"))
6768          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
6769          ;; XDG_DATA_DIRS so that it finds its schemas.
6770          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
6771        #:phases
6772        (modify-phases %standard-phases
6773          (add-before
6774           'configure 'pre-configure
6775           (lambda* (#:key inputs outputs #:allow-other-keys)
6776             ;; We don't have <systemd/sd-daemon.h>.
6777             (substitute* '("common/gdm-log.c"
6778                            "daemon/gdm-server.c"
6779                            "daemon/gdm-session-worker.c"
6780                            "daemon/gdm-session-worker-job.c")
6781               (("#include <systemd/sd-daemon\\.h>") ""))
6782             ;; Use elogind for sd-login.
6783             (substitute* '("common/gdm-common.c"
6784                            "daemon/gdm-manager.c"
6785                            "libgdm/gdm-user-switching.c")
6786               (("#include <systemd/sd-login\\.h>")
6787                "#include <elogind/sd-login.h>"))
6788             ;; Check for elogind.
6789             (substitute* '("configure")
6790               (("libsystemd")
6791                "libelogind"))
6792             ;; Look for system-installed sessions in
6793             ;; /run/current-system/profile/share.
6794             (substitute* '("libgdm/gdm-sessions.c"
6795                            "daemon/gdm-session.c"
6796                            "daemon/gdm-display.c"
6797                            "daemon/gdm-launch-environment.c")
6798               (("DATADIR \"/x")
6799                "\"/run/current-system/profile/share/x")
6800               (("DATADIR \"/wayland")
6801                "\"/run/current-system/profile/share/wayland")
6802               (("DATADIR \"/gnome")
6803                "\"/run/current-system/profile/share/gnome"))
6804             (let ((propagate '("GDM_CUSTOM_CONF"
6805                                "GDM_DBUS_DAEMON"
6806                                "GDM_X_SERVER"
6807                                "GDM_X_SESSION"
6808                                ;; XXX: Remove this once GNOME Shell is
6809                                ;; a dependency of GDM.
6810                                "XDG_DATA_DIRS")))
6811               (substitute* "daemon/gdm-session.c"
6812                 (("set_up_session_environment \\(self\\);")
6813                  (apply string-append
6814                         "set_up_session_environment (self);\n"
6815                         (map (lambda (name)
6816                                (string-append
6817                                 "gdm_session_set_environment_variable "
6818                                 "(self, \"" name "\","
6819                                 "g_getenv (\"" name "\"));\n"))
6820                              propagate)))))
6821             ;; Find the configuration file using an environment variable.
6822             (substitute* '("common/gdm-settings.c")
6823               (("GDM_CUSTOM_CONF")
6824                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
6825                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
6826                               " : GDM_CUSTOM_CONF)")))
6827             ;; Use service-supplied path to X.
6828             (substitute* '("daemon/gdm-server.c")
6829               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
6830                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
6831             (substitute* '("daemon/gdm-x-session.c")
6832               (("\"dbus-daemon\"")
6833                "g_getenv (\"GDM_DBUS_DAEMON\")")
6834               (("X_SERVER")
6835                "g_getenv (\"GDM_X_SERVER\")")
6836               (("GDMCONFDIR \"/Xsession\"")
6837                "g_getenv (\"GDM_X_SESSION\")"))
6838             ;; Use an absolute path for GNOME Session.
6839             (substitute* "daemon/gdm-launch-environment.c"
6840               (("\"gnome-session\"")
6841                (string-append "\"" (assoc-ref inputs "gnome-session")
6842                               "/bin/gnome-session\"")))
6843             ;; Do not automatically select the placeholder session.
6844             (substitute* "daemon/gdm-session.c"
6845               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
6846                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
6847                               "(g_strcmp0(search_dirs[i], \""
6848                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
6849                               "\") == 0 && "
6850                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
6851               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
6852                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
6853             #t))
6854          ;; GDM requires that there be at least one desktop entry
6855          ;; file.  This phase installs a hidden one that simply
6856          ;; fails.  This enables users to use GDM with a
6857          ;; '~/.xsession' script with no other desktop entry files.
6858          ;; See <https://bugs.gnu.org/35068>.
6859          (add-after 'install 'install-placeholder-desktop-entry
6860            (lambda* (#:key inputs outputs #:allow-other-keys)
6861              (let* ((out (assoc-ref outputs "out"))
6862                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
6863                     (fail (string-append sessions "/fail.desktop")))
6864                (mkdir-p sessions)
6865                (with-output-to-file fail
6866                  (lambda ()
6867                    (for-each
6868                     display
6869                     '("[Desktop Entry]\n"
6870                       "Encoding=UTF-8\n"
6871                       "Type=Application\n"
6872                       "Name=Fail\n"
6873                       "Comment=This session fails immediately.\n"
6874                       "NoDisplay=true\n"
6875                       "Exec=false\n"))))
6876                #t)))
6877          ;; GDM needs GNOME Session to run these applications.  We link
6878          ;; their autostart files in `share/gdm/greeter/autostart'
6879          ;; because GDM explicitly tells GNOME Session to look there.
6880          ;;
6881          ;; XXX: GNOME Shell should be linked here too, but currently
6882          ;; GNOME Shell depends on GDM.
6883          (add-after 'install 'link-autostart-files
6884            (lambda* (#:key inputs outputs #:allow-other-keys)
6885              (let* ((out (assoc-ref outputs "out"))
6886                     (autostart (string-append out "/share/gdm/"
6887                                               "greeter/autostart"))
6888                     (settings (assoc-ref inputs "gnome-settings-daemon")))
6889                (mkdir-p autostart)
6890                (with-directory-excursion autostart
6891                  (for-each (lambda (desktop)
6892                              (symlink desktop (basename desktop)))
6893                            (find-files (string-append settings "/etc/xdg"))))
6894                #t))))))
6895     (native-inputs
6896      `(("dconf" ,dconf)
6897        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6898        ("gobject-introspection" ,gobject-introspection)
6899        ("intltool" ,intltool)
6900        ("itstool" ,itstool)
6901        ("pkg-config" ,pkg-config)
6902        ("xmllint" ,libxml2)))
6903     (inputs
6904      `(("accountsservice" ,accountsservice)
6905        ("check" ,check) ; for testing
6906        ("elogind" ,elogind)
6907        ("gnome-session" ,gnome-session)
6908        ("gnome-settings-daemon" ,gnome-settings-daemon)
6909        ("gtk+" ,gtk+)
6910        ("iso-codes" ,iso-codes)
6911        ("libcanberra" ,libcanberra)
6912        ("linux-pam" ,linux-pam)))
6913     (synopsis "Display manager for GNOME")
6914     (home-page "https://wiki.gnome.org/Projects/GDM/")
6915     (description
6916      "GNOME Display Manager is a system service that is responsible for
6917 providing graphical log-ins and managing local and remote displays.")
6918     (license license:gpl2+)))
6919
6920 (define-public libgtop
6921   (package
6922     (name "libgtop")
6923     (version "2.40.0")
6924     (source (origin
6925               (method url-fetch)
6926               (uri (string-append "mirror://gnome/sources/libgtop/"
6927                                   (version-major+minor version) "/"
6928                                   "libgtop-" version ".tar.xz"))
6929               (sha256
6930                (base32
6931                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
6932     (build-system gnu-build-system)
6933     (native-inputs
6934      `(("gobject-introspection" ,gobject-introspection)
6935        ("intltool" ,intltool)
6936        ("perl" ,perl)
6937        ("pkg-config" ,pkg-config)))
6938     (propagated-inputs
6939      `(("glib" ,glib))) ; required by libgtop-2.0.pc
6940     (synopsis "Portable system access library")
6941     (home-page "https://www.gnome.org/")
6942     (description
6943      "LibGTop is a library to get system specific data such as CPU and memory
6944 usage and information about running processes.")
6945     (license license:gpl2+)))
6946
6947 (define-public gnome-bluetooth
6948   (package
6949     (name "gnome-bluetooth")
6950     (version "3.34.0")
6951     (source (origin
6952               (method url-fetch)
6953               (uri (string-append "mirror://gnome/sources/" name "/"
6954                                   (version-major+minor version) "/"
6955                                   name "-" version ".tar.xz"))
6956               (sha256
6957                (base32
6958                 "1bvbxcsjkyl0givy8nfm7112bq3c0vn1v89fdk2pip714dsfcrz8"))))
6959     (build-system meson-build-system)
6960     (native-inputs
6961      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
6962        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
6963        ("gobject-introspection" ,gobject-introspection)
6964        ("intltool" ,intltool)
6965        ("pkg-config" ,pkg-config)
6966        ("xmllint" ,libxml2)))
6967     (propagated-inputs
6968      ;; gnome-bluetooth-1.0.pc refers to all these.
6969      `(("glib" ,glib)
6970        ("gtk+" ,gtk+)))
6971     (inputs
6972      `(("eudev" ,eudev)
6973        ("libcanberra" ,libcanberra)
6974        ("libnotify" ,libnotify)))
6975     (synopsis "GNOME Bluetooth subsystem")
6976     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
6977     (description
6978      "This package contains tools for managing and manipulating Bluetooth
6979 devices using the GNOME desktop.")
6980     (license license:lgpl2.1+)))
6981
6982 (define-public gnome-control-center
6983   (package
6984     (name "gnome-control-center")
6985     (version "3.32.2")
6986     (source (origin
6987               (method url-fetch)
6988               (uri (string-append "mirror://gnome/sources/" name "/"
6989                                   (version-major+minor version) "/"
6990                                   name "-" version ".tar.xz"))
6991               (sha256
6992                (base32
6993                 "03np0mhfl9kkdw4cb711pda0cli9zgh2bq2gqn2zwbdi3qnhk9gs"))))
6994     (build-system meson-build-system)
6995     (arguments
6996      '(#:glib-or-gtk? #t
6997        #:configure-flags
6998        (list "-Dcheese=false"
6999              (string-append "-Dgnome_session_libexecdir="
7000                             (assoc-ref %build-inputs "gnome-session")
7001                             "/libexec"))
7002        #:phases
7003        (modify-phases %standard-phases
7004          (add-before 'configure 'patch-paths
7005            (lambda* (#:key inputs #:allow-other-keys)
7006              (let ((libc   (assoc-ref inputs "libc"))
7007                    (tzdata (assoc-ref inputs "tzdata"))
7008                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
7009                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
7010                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
7011                (substitute* "panels/datetime/tz.h"
7012                  (("/usr/share/zoneinfo/zone.tab")
7013                   (string-append tzdata "/share/zoneinfo/zone.tab")))
7014                (substitute* "tests/datetime/test-endianess.c"
7015                  (("/usr/share/locale")
7016                   (string-append libc "/share/locale")))
7017                (substitute* "panels/region/cc-region-panel.c"
7018                  (("\"gkbd-keyboard-display")
7019                   (string-append "\"" libgnomekbd
7020                                  "/bin/gkbd-keyboard-display")))
7021                (substitute* '("panels/network/net-device-wifi.c"
7022                               "panels/network/net-device.c"
7023                               "panels/network/connection-editor/net-connection-editor.c")
7024                  (("\"nm-connection-editor")
7025                   (string-append "\"" nm-applet
7026                                  "/bin/nm-connection-editor")))
7027                (substitute* '("panels/user-accounts/run-passwd.c")
7028                  (("/usr/bin/passwd")
7029                   "/run/setuid-programs/passwd"))
7030                (substitute* "panels/info/cc-info-overview-panel.c"
7031                  (("DATADIR \"/gnome/gnome-version.xml\"")
7032                   (string-append "\"" gnome-desktop
7033                                  "/share/gnome/gnome-version.xml\"")))
7034                #t))))))
7035     (native-inputs
7036      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7037        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7038        ("intltool" ,intltool)
7039        ("pkg-config" ,pkg-config)
7040        ("xsltproc" ,libxslt)
7041        ;; For tests
7042        ("hicolor-icon-theme" ,hicolor-icon-theme)
7043        ("python-dbusmock" ,python-dbusmock)
7044        ("xorg-server" ,xorg-server-for-tests)))
7045     (inputs
7046      `(("accountsservice" ,accountsservice)
7047        ("clutter-gtk" ,clutter-gtk)
7048        ("colord-gtk" ,colord-gtk)
7049        ("cups" ,cups)
7050        ("dconf" ,dconf)
7051        ("docbook-xsl" ,docbook-xsl)
7052        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
7053        ("gnome-bluetooth" ,gnome-bluetooth)
7054        ("gnome-desktop" ,gnome-desktop)
7055        ("gnome-online-accounts" ,gnome-online-accounts)
7056        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7057        ("gnome-session" ,gnome-session)
7058        ("gnome-settings-daemon" ,gnome-settings-daemon)
7059        ("grilo" ,grilo)
7060        ("gsound" ,gsound)
7061        ("ibus" ,ibus)
7062        ("libcanberra" ,libcanberra)
7063        ("libgnomekbd" ,libgnomekbd)
7064        ("libgudev" ,libgudev)
7065        ("libgtop" ,libgtop)
7066        ("libpwquality" ,libpwquality)
7067        ("libsecret" ,libsecret)
7068        ("libsoup" ,libsoup)
7069        ("libxml2" ,libxml2)
7070        ("libwacom" ,libwacom)
7071        ("mesa" ,mesa)
7072        ("mit-krb5" ,mit-krb5)
7073        ("modem-manager" ,modem-manager)
7074        ("network-manager-applet" ,network-manager-applet)
7075        ("polkit" ,polkit)
7076        ("pulseaudio" ,pulseaudio)
7077        ("smbclient" ,samba)
7078        ("tzdata" ,tzdata)
7079        ("udisks" ,udisks)
7080        ("upower" ,upower)))
7081     (synopsis "Utilities to configure the GNOME desktop")
7082     (home-page "https://www.gnome.org/")
7083     (description
7084      "This package contains configuration applets for the GNOME desktop,
7085 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
7086 properties, sound setup, desktop theme and background, user interface
7087 properties, screen resolution, and other GNOME parameters.")
7088     (license license:gpl2+)))
7089
7090 (define-public gnome-shell
7091   (package
7092     (name "gnome-shell")
7093     (version "3.32.2")
7094     (source (origin
7095               (method url-fetch)
7096               (uri (string-append "mirror://gnome/sources/" name "/"
7097                                   (version-major+minor version) "/"
7098                                   name "-" version ".tar.xz"))
7099               (sha256
7100                (base32
7101                 "0anlkdnqsp5fqvmg95rqjpp1ifcx5xzsvwcrdsvb1cqzbh6inmp5"))
7102               (patches (search-patches "gnome-shell-theme.patch"))
7103               (modules '((guix build utils)))
7104               (snippet
7105                #~(begin
7106                    ;; Copy images for use on the GDM log-in screen.
7107                    (copy-file #$(file-append %artwork-repository
7108                                              "/slim/0.x/background.png")
7109                               "data/theme/guix-background.png")
7110                    (copy-file #$(file-append %artwork-repository
7111                                              "/logo/Guix-horizontal-white.svg")
7112                               "data/theme/guix-logo.svg")
7113                    #t))))
7114     (build-system meson-build-system)
7115     (arguments
7116      `(#:glib-or-gtk? #t
7117        #:disallowed-references ((,glib "bin")
7118                                 ,inkscape ,libxslt
7119                                 ,ruby-sass)
7120        #:configure-flags
7121        (list "-Dsystemd=false"
7122              ;; Otherwise, the RUNPATH will lack the final path component.
7123              (string-append "-Dc_link_args=-Wl,-rpath="
7124                             (assoc-ref %outputs "out")
7125                             "/lib/gnome-shell"))
7126
7127        #:modules ((guix build meson-build-system)
7128                   (guix build utils)
7129                   (srfi srfi-1))
7130
7131        #:phases
7132        (modify-phases %standard-phases
7133          (add-after 'unpack 'fix-keysdir
7134            (lambda* (#:key outputs #:allow-other-keys)
7135              (let* ((out     (assoc-ref outputs "out"))
7136                     (keysdir (string-append
7137                               out "/share/gnome-control-center/keybindings")))
7138                (substitute* "meson.build"
7139                  (("keysdir =.*")
7140                   (string-append "keysdir = '" keysdir "'\n")))
7141                #t)))
7142          (add-before 'configure 'convert-logo-to-png
7143            (lambda* (#:key inputs #:allow-other-keys)
7144              ;; Convert the logo from SVG to PNG.
7145              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
7146                      "data/theme/guix-logo.svg")))
7147          (add-before 'configure 'record-absolute-file-names
7148            (lambda* (#:key inputs #:allow-other-keys)
7149              (substitute* "js/misc/ibusManager.js"
7150                (("'ibus-daemon'")
7151                 (string-append "'" (assoc-ref inputs "ibus")
7152                                "/bin/ibus-daemon'")))
7153              (substitute* "js/ui/status/keyboard.js"
7154                (("'gkbd-keyboard-display'")
7155                 (string-append "'" (assoc-ref inputs "libgnomekbd")
7156                                "/bin/gkbd-keyboard-display'")))
7157              #t))
7158          (add-before 'check 'pre-check
7159            (lambda* (#:key inputs #:allow-other-keys)
7160              ;; Tests require a running X server.
7161              (system "Xvfb :1 &")
7162              (setenv "DISPLAY" ":1")
7163              #t))
7164          (add-after 'install 'wrap-programs
7165            (lambda* (#:key inputs outputs #:allow-other-keys)
7166              (let ((out              (assoc-ref outputs "out"))
7167                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
7168                    (python-path      (getenv "PYTHONPATH")))
7169                (wrap-program (string-append out "/bin/gnome-shell")
7170                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7171                  ;; FIXME: gnome-shell loads these libraries with unqualified
7172                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
7173                  ;; alternative might be to patch gnome-shell.
7174                  `("LD_LIBRARY_PATH" ":" prefix
7175                    ,(map (lambda (pkg)
7176                            (string-append (assoc-ref inputs pkg) "/lib"))
7177                          '("gdk-pixbuf"
7178                            "gnome-bluetooth" "librsvg" "libgweather"))))
7179                (for-each
7180                 (lambda (prog)
7181                   (wrap-program (string-append out "/bin/" prog)
7182                     `("PYTHONPATH"      ":" prefix (,python-path))
7183                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7184                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
7185                #t)))
7186          (replace 'glib-or-gtk-wrap
7187            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
7188              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
7189                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
7190                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
7191                ;; phase.  Fix that since we don't need these.
7192                (wrap #:inputs (fold alist-delete inputs
7193                                     '("inkscape" "intltool" "glib:bin"))
7194                      #:outputs outputs)))))))
7195     (native-inputs
7196      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7197        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7198        ("gobject-introspection" ,gobject-introspection)
7199        ("inkscape" ,inkscape)
7200        ("intltool" ,intltool)
7201        ("pkg-config" ,pkg-config)
7202        ("python" ,python)
7203        ("ruby-sass" ,ruby-sass)
7204        ("sassc" ,sassc)
7205        ("xsltproc" ,libxslt)
7206        ;; For tests
7207        ("xorg-server" ,xorg-server-for-tests)))
7208     (inputs
7209      `(("accountsservice" ,accountsservice)
7210        ("caribou" ,caribou)
7211        ("docbook-xsl" ,docbook-xsl)
7212        ("evolution-data-server" ,evolution-data-server)
7213        ("gcr" ,gcr)
7214        ("gdm" ,gdm)
7215        ("gdk-pixbuf" ,gdk-pixbuf+svg)
7216        ("gjs" ,gjs)
7217        ("gnome-bluetooth" ,gnome-bluetooth)
7218        ("gnome-desktop" ,gnome-desktop)
7219        ("gnome-settings-daemon" ,gnome-settings-daemon)
7220        ("gst-plugins-base" ,gst-plugins-base)
7221        ("ibus" ,ibus)
7222        ("libcanberra" ,libcanberra)
7223        ("libcroco" ,libcroco)
7224        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
7225        ("libgweather" ,libgweather)
7226        ("libsoup" ,libsoup)
7227        ("mesa-headers" ,mesa-headers)
7228        ("mutter" ,mutter)
7229        ("network-manager-applet" ,network-manager-applet)
7230        ("polkit" ,polkit)
7231        ("pulseaudio" ,pulseaudio)
7232        ("python-pygobject" ,python-pygobject)
7233        ("startup-notification" ,startup-notification)
7234        ("telepathy-logger" ,telepathy-logger)
7235        ("upower" ,upower)
7236        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
7237        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
7238        ("librsvg" ,librsvg)
7239        ("geoclue" ,geoclue)))
7240     (synopsis "Desktop shell for GNOME")
7241     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
7242     (description
7243      "GNOME Shell provides core user interface functions for the GNOME desktop,
7244 like switching to windows and launching applications.")
7245     (license license:gpl2+)))
7246
7247 (define-public gtk-vnc
7248   (package
7249     (name "gtk-vnc")
7250     (version "0.9.0")
7251     (source
7252      (origin
7253        (method url-fetch)
7254        (uri (string-append "mirror://gnome/sources/" name "/"
7255                            (version-major+minor version) "/"
7256                            name "-" version ".tar.xz"))
7257        (sha256
7258         (base32
7259          "1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
7260     (build-system gnu-build-system)
7261     (arguments
7262      '(#:configure-flags '("--with-gtk=3.0")))
7263     (propagated-inputs
7264      `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
7265     (inputs
7266      `(("cyrus-sasl" ,cyrus-sasl)
7267        ("gnutls" ,gnutls)
7268        ("libgcrypt" ,libgcrypt)
7269        ("pulseaudio" ,pulseaudio)))
7270     (native-inputs
7271      `(("glib:bin" ,glib "bin")
7272        ("gobject-introspection" ,gobject-introspection)
7273        ("intltool" ,intltool)
7274        ("pkg-config" ,pkg-config)
7275        ("python-wrapper" ,python-wrapper)
7276        ("vala" ,vala)))
7277     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
7278     (synopsis "VNC viewer widget for GTK+")
7279     (description
7280      "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
7281 applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
7282 GTK-VNC implements client side RFB protocol and authentication extensions such
7283 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
7284     (license license:lgpl2.1+)))
7285
7286 (define-public gnome-autoar
7287   (package
7288     (name "gnome-autoar")
7289     (version "0.2.4")
7290     (source (origin
7291               (method url-fetch)
7292               (uri (string-append "mirror://gnome/sources/" name "/"
7293                                   (version-major+minor version) "/"
7294                                   name "-" version ".tar.xz"))
7295               (sha256
7296                (base32
7297                 "0yk56ch46n3wfy633mq31kif9n7v06rlij4vqbsbn6l4z1vw6d0a"))))
7298     (build-system glib-or-gtk-build-system)
7299     (native-inputs
7300      `(("gobject-introspection" ,gobject-introspection)
7301        ("pkg-config" ,pkg-config)))
7302     (propagated-inputs
7303      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
7304     (inputs
7305      `(("gtk+" ,gtk+)))
7306     (synopsis "Archives integration support for GNOME")
7307     (home-page "https://git.gnome.org/browse/gnome-autoar/")
7308     (description
7309      "GNOME Autoar is a library which makes creating and extracting archives
7310 easy, safe, and automatic.")
7311     (license license:lgpl2.1+)))
7312
7313 (define-public tracker
7314   (package
7315     (name "tracker")
7316     (version "2.3.4")
7317     (source (origin
7318               (method url-fetch)
7319               (uri (string-append "mirror://gnome/sources/tracker/"
7320                                   (version-major+minor version) "/"
7321                                   "tracker-" version ".tar.xz"))
7322               (sha256
7323                (base32
7324                 "0vai0qz9jn3z5dlzysynwhbbmslp84ygdql81f5wfxxr98j54yap"))))
7325     (build-system meson-build-system)
7326     (arguments
7327      `(#:glib-or-gtk? #t
7328        #:configure-flags
7329        ;; Otherwise, the RUNPATH will lack the final path component.
7330        (list (string-append "-Dc_link_args=-Wl,-rpath="
7331                             (assoc-ref %outputs "out") "/lib:"
7332                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
7333        #:phases
7334        (modify-phases %standard-phases
7335          (add-before 'check 'pre-check
7336            (lambda _
7337              ;; Some tests expect to write to $HOME.
7338              (setenv "HOME" "/tmp")
7339              #t)))))
7340     (native-inputs
7341      `(("glib:bin" ,glib "bin")
7342        ("gobject-introspection" ,gobject-introspection)
7343        ("python-pygobject" ,python-pygobject)
7344        ("intltool" ,intltool)
7345        ("pkg-config" ,pkg-config)
7346        ("vala" ,vala)))
7347     (inputs
7348      `(("dbus" ,dbus)
7349        ("sqlite" ,sqlite)
7350        ("libxml2" ,libxml2)
7351        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
7352        ("json-glib" ,json-glib)
7353        ("libsoup" ,libsoup)))
7354     (synopsis "Metadata database, indexer and search tool")
7355     (home-page "https://wiki.gnome.org/Projects/Tracker")
7356     (description
7357      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
7358
7359 It is a middleware component aimed at desktop application developers who want
7360 their apps to browse and search user content.  It's not designed to be used
7361 directly by desktop users, but it provides a commandline tool named
7362 @command{tracker} for the adventurous.
7363
7364 Tracker allows your application to instantly perform full-text searches across
7365 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
7366 example.  This is achieved by indexing the user's home directory in the
7367 background.
7368
7369 Tracker also allows your application to query and list content that the user
7370 has stored.  For example, GNOME Music displays all the music files that are
7371 found by Tracker.  This means that GNOME Music doesn't need to maintain a
7372 database of its own.
7373
7374 If you need to go beyond simple searches, Tracker is also a linked data
7375 endpoint and it understands SPARQL. ")
7376     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
7377     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
7378     ;; libstemmer is bsd-3 and the rest is gpl2+.
7379     (license (list license:gpl2+
7380                    license:bsd-3
7381                    license:lgpl2.1+))))
7382
7383 (define-public tracker-miners
7384   (package
7385     (name "tracker-miners")
7386     (version "2.3.3")
7387     (source (origin
7388               (method url-fetch)
7389               (uri (string-append "mirror://gnome/sources/tracker-miners/"
7390                                   (version-major+minor version)
7391                                   "/tracker-miners-" version ".tar.xz"))
7392               (sha256
7393                (base32
7394                 "06abxrnrz7xayykrabn135rpsm6z0fqw7gibrb9j09l6swlalwkl"))))
7395     (build-system meson-build-system)
7396     (arguments
7397      `(#:glib-or-gtk? #t
7398        #:configure-flags
7399        (list "-Dminer_rss=false" ; libgrss is required.
7400              ;; Ensure the RUNPATH contains all installed library locations.
7401              (string-append "-Dc_link_args=-Wl,-rpath="
7402                             (assoc-ref %outputs "out")
7403                             "/lib/tracker-miners-2.0")
7404              ;; TODO: Enable functional tests. Currently, the following error
7405              ;; appears:
7406              ;; Exception: The functional tests require DConf to be the default
7407              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
7408              "-Dfunctional_tests=false")))
7409     (native-inputs
7410      `(("dbus" ,dbus)
7411        ("intltool" ,intltool)
7412        ("glib:bin" ,glib "bin")
7413        ("gobject-introspection" ,gobject-introspection)
7414        ("pkg-config" ,pkg-config)
7415        ("python-pygobject" ,python-pygobject)))
7416     (inputs
7417      `(("exempi" ,exempi)
7418        ("ffmpeg" ,ffmpeg)
7419        ("flac" ,flac)
7420        ("giflib" ,giflib)
7421        ("glib" ,glib)
7422        ("gstreamer" ,gstreamer)
7423        ("icu4c" ,icu4c)
7424        ("libcue" ,libcue)
7425        ("libexif" ,libexif)
7426        ("libgsf" ,libgsf)
7427        ("libgxps" ,libgxps)
7428        ("libiptcdata" ,libiptcdata)
7429        ("libjpeg" ,libjpeg-turbo)
7430        ("libosinfo" ,libosinfo)
7431        ("libpng" ,libpng)
7432        ("libseccomp" ,libseccomp)
7433        ("libtiff" ,libtiff)
7434        ("libvorbis" ,libvorbis)
7435        ("libxml2" ,libxml2)
7436        ("poppler" ,poppler)
7437        ("taglib" ,taglib)
7438        ("totem-pl-parser" ,totem-pl-parser)
7439        ("tracker" ,tracker)
7440        ("upower" ,upower)
7441        ("zlib" ,zlib)))
7442     (synopsis "Metadata database, indexer and search tool")
7443     (home-page "https://wiki.gnome.org/Projects/Tracker")
7444     (description
7445      "Tracker is an advanced framework for first class objects with associated
7446 metadata and tags.  It provides a one stop solution for all metadata, tags,
7447 shared object databases, search tools and indexing.")
7448     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
7449     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
7450     (license (list license:gpl2+
7451                    license:lgpl2.1+
7452                    license:lgpl2.0+))))
7453
7454 (define-public nautilus
7455   (package
7456     (name "nautilus")
7457     (version "3.32.3")
7458     (source (origin
7459               (method url-fetch)
7460               (uri (string-append "mirror://gnome/sources/" name "/"
7461                                   (version-major+minor version) "/"
7462                                   name "-" version ".tar.xz"))
7463               (sha256
7464                (base32
7465                 "1x9crzbj6rrrf8w5dkcx0c14j40byr4ijpzkwd5dcrbfvvdy1r01"))))
7466     (build-system meson-build-system)
7467     (arguments
7468      '(#:glib-or-gtk? #t
7469        ;; XXX: FAIL: check-nautilus
7470        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
7471        #:tests? #f))
7472     (native-inputs
7473      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7474        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
7475        ("gtk+:bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
7476        ("gobject-introspection" ,gobject-introspection)
7477        ("intltool" ,intltool)
7478        ("pkg-config" ,pkg-config)))
7479     (inputs
7480      `(("dconf" ,dconf)
7481        ("gexiv2" ,gexiv2)
7482        ("gvfs" ,gvfs)
7483        ("exempi" ,exempi)
7484        ("gnome-desktop" ,gnome-desktop)
7485        ("gnome-autoar" ,gnome-autoar)
7486        ("gst-plugins-base" ,gst-plugins-base)
7487        ("libseccomp" ,libseccomp)
7488        ("libselinux" ,libselinux)
7489        ("tracker" ,tracker)
7490        ("tracker-miners" ,tracker-miners)
7491        ;; XXX: gtk+ is required by libnautilus-extension.pc
7492        ;;
7493        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
7494        ;; package.  See:
7495        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
7496        ("gtk+" ,gtk+)
7497        ("libexif" ,libexif)
7498        ("libxml2" ,libxml2)))
7499     (synopsis "File manager for GNOME")
7500     (home-page "https://wiki.gnome.org/Apps/Nautilus")
7501     (description
7502      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
7503 design and behaviour, giving the user a simple way to navigate and manage its
7504 files.")
7505     (license license:gpl2+)))
7506
7507 (define-public baobab
7508   (package
7509     (name "baobab")
7510     (version "3.32.0")
7511     (source (origin
7512               (method url-fetch)
7513               (uri (string-append
7514                     "mirror://gnome/sources/" name "/"
7515                     (version-major+minor version) "/"
7516                     name "-" version ".tar.xz"))
7517               (sha256
7518                (base32
7519                 "0b33s9bhpiffv5wl76cq2bbnqhvx3qs2vxyxmil5gcs583llqh9r"))))
7520     (build-system meson-build-system)
7521     (arguments
7522      '(#:glib-or-gtk? #t))
7523     (native-inputs
7524      `(("intltool" ,intltool)
7525        ("pkg-config" ,pkg-config)
7526        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7527        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7528        ("itstool" ,itstool)
7529        ("xmllint" ,libxml2)
7530        ("glib" ,glib "bin")
7531        ("vala" ,vala)))
7532     (inputs
7533      `(("gtk+" ,gtk+)))
7534     (synopsis "Disk usage analyzer for GNOME")
7535     (description
7536      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
7537 usage in the GNOME desktop environment.  It can easily scan device volumes or
7538 a specific user-requested directory branch (local or remote).  Once the scan
7539 is complete it provides a graphical representation of each selected folder.")
7540     (home-page "https://wiki.gnome.org/Apps/Baobab")
7541     (license license:gpl2+)))
7542
7543 (define-public gnome-backgrounds
7544   (package
7545     (name "gnome-backgrounds")
7546     (version "3.34.0")
7547     (source
7548      (origin
7549        (method url-fetch)
7550        (uri (string-append "mirror://gnome/sources/" name "/"
7551                            (version-major+minor version) "/"
7552                            name "-" version ".tar.xz"))
7553        (sha256
7554         (base32
7555          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
7556     (build-system meson-build-system)
7557     (native-inputs
7558      `(("intltool" ,intltool)))
7559     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
7560     (synopsis "Background images for the GNOME desktop")
7561     (description
7562      "GNOME backgrounds package contains a collection of graphics files which
7563 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
7564 the package creates the proper framework and directory structure so that you
7565 can add your own files to the collection.")
7566     (license (list license:gpl2+
7567                    license:cc-by2.0
7568                    license:cc-by-sa2.0
7569                    license:cc-by-sa3.0))))
7570
7571 (define-public gnome-screenshot
7572   (package
7573     (name "gnome-screenshot")
7574     (version "3.32.0")
7575     (source
7576      (origin
7577        (method url-fetch)
7578        (uri (string-append "mirror://gnome/sources/" name "/"
7579                            (version-major+minor version) "/"
7580                            name "-" version ".tar.xz"))
7581        (sha256
7582         (base32
7583          "09ha7dizjm5ymqpjyrqd10ijfb3xlqc1mwg9ajkrbfry11q9yq4b"))))
7584     (build-system meson-build-system)
7585     (native-inputs
7586      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7587        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7588        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7589        ("intltool" ,intltool)
7590        ("appstream-glib" ,appstream-glib)
7591        ("pkg-config" ,pkg-config)))
7592     (inputs
7593      `(("gtk+" ,gtk+)
7594        ("libcanberra" ,libcanberra)
7595        ("libx11" ,libx11)
7596        ("libxext" ,libxext)))
7597     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
7598     (synopsis "Take pictures of your screen")
7599     (description
7600      "GNOME Screenshot is a utility used for taking screenshots of the entire
7601 screen, a window or a user defined area of the screen, with optional
7602 beautifying border effects.")
7603     (license license:gpl2+)))
7604
7605 (define-public dconf-editor
7606   (package
7607     (name "dconf-editor")
7608     (version "3.34.2")
7609     (source
7610      (origin
7611        (method url-fetch)
7612        (uri (string-append "mirror://gnome/sources/" name "/"
7613                            (version-major+minor version) "/"
7614                            name "-" version ".tar.xz"))
7615        (sha256
7616         (base32
7617          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
7618     (build-system meson-build-system)
7619     (native-inputs
7620      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
7621        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7622        ("intltool" ,intltool)
7623        ("pkg-config" ,pkg-config)
7624        ("vala" ,vala)))
7625     (inputs
7626      `(("dconf" ,dconf)
7627        ("gtk+" ,gtk+)
7628        ("libxml2" ,libxml2)))
7629     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
7630     (synopsis "Graphical editor for GNOME's dconf configuration system")
7631     (description
7632      "Dconf-editor is a graphical tool for browsing and editing the dconf
7633 configuration system for GNOME.  It allows users to configure desktop
7634 software that do not provide their own configuration interface.")
7635     (license license:lgpl2.1+)))
7636
7637 (define-public gnome-default-applications
7638   (package
7639     (name "gnome-default-applications")
7640     (version "0")
7641     (build-system trivial-build-system)
7642     (source #f)
7643     (propagated-inputs
7644      `(("nautilus" ,nautilus)
7645        ("evince" ,evince)))
7646     (arguments
7647      `(#:modules ((guix build utils))
7648        #:builder
7649        (begin
7650          (use-modules (guix build utils))
7651          (let* ((out (assoc-ref %outputs "out"))
7652                 (apps (string-append out "/share/applications")))
7653            (mkdir-p apps)
7654            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
7655              (lambda (port)
7656                (format port "[Default Applications]\n")
7657                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
7658                (format port "application/pdf=evince.desktop\n")
7659                (format port "application/postscript=evince.desktop\n")))
7660            #t))))
7661     (synopsis "Default MIME type associations for the GNOME desktop")
7662     (description
7663      "Given many installed packages which might handle a given MIME type, a
7664 user running the GNOME desktop probably has some preferences: for example,
7665 that folders be opened by default by the Nautilus file manager, not the Baobab
7666 disk usage analyzer.  This package establishes that set of default MIME type
7667 associations for GNOME.")
7668     (license license:gpl3+)
7669     (home-page #f)))
7670
7671 (define-public libgovirt
7672   (package
7673    (name "libgovirt")
7674    (version "0.3.6")
7675    (source (origin
7676             (method url-fetch)
7677             (uri (string-append "mirror://gnome/sources/" name "/"
7678                                 (version-major+minor version) "/"
7679                                 name "-" version ".tar.xz"))
7680             (sha256
7681              (base32
7682               "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
7683    (build-system glib-or-gtk-build-system)
7684    (native-inputs
7685     `(("gettext" ,gettext-minimal)
7686       ("glib:bin" ,glib "bin")
7687       ("gobject-introspection" ,gobject-introspection)
7688       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7689       ("gtk+:bin" ,gtk+ "bin")
7690       ("pkg-config" ,pkg-config)))
7691    (inputs
7692     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
7693       ("librest" ,rest)))
7694    (synopsis "GoVirt Library")
7695    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
7696    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
7697    (license license:gpl2+)))
7698
7699 (define-public gnome-weather
7700   (package
7701    (name "gnome-weather")
7702    (version "3.34.0")
7703    (source (origin
7704             (method url-fetch)
7705             (uri (string-append "mirror://gnome/sources/" name "/"
7706                                 (version-major+minor version) "/"
7707                                 name "-" version ".tar.xz"))
7708             (sha256
7709              (base32
7710               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
7711    (build-system meson-build-system)
7712    (native-inputs
7713     `(("gettext" ,gettext-minimal)
7714       ("glib:bin" ,glib "bin")
7715       ("gobject-introspection" ,gobject-introspection)
7716       ("gtk+:bin" ,gtk+ "bin")
7717       ("pkg-config" ,pkg-config)))
7718    (inputs
7719     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
7720       ("appstream-glib" ,appstream-glib)
7721       ("geoclue" ,geoclue)
7722       ("gdk-pixbuf" ,gdk-pixbuf)
7723       ("gjs" ,gjs)
7724       ("gnome-desktop" ,gnome-desktop)
7725       ("libgweather" ,libgweather)))
7726    (arguments
7727     `(#:phases
7728       (modify-phases %standard-phases
7729         (add-after 'install 'fix-desktop-file
7730           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
7731           ;; See https://issues.guix.gnu.org/issue/39324.
7732           (lambda* (#:key outputs #:allow-other-keys)
7733             (let* ((out (assoc-ref outputs "out"))
7734                    (applications (string-append out "/share/applications")))
7735               (substitute* (string-append applications "/org.gnome.Weather.desktop")
7736                 (("Exec=.*") "Exec=gnome-weather\n"))))))))
7737    (synopsis "Weather monitoring for GNOME desktop")
7738    (description "GNOME Weather is a small application that allows you to
7739 monitor the current weather conditions for your city, or anywhere in the
7740 world.")
7741    (home-page "https://wiki.gnome.org/Apps/Weather")
7742    (license license:gpl2+)))
7743
7744 (define-public gnome
7745   (package
7746     (name "gnome")
7747     (version (package-version gnome-shell))
7748     (source #f)
7749     (build-system trivial-build-system)
7750     (arguments '(#:builder (begin (mkdir %output) #t)))
7751     (propagated-inputs
7752      ;; TODO: Add or remove packages according to:
7753      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
7754      `(
7755      ;; GNOME-Core-OS-Services
7756        ("accountsservice" ,accountsservice)
7757        ("network-manager" ,network-manager)
7758        ("packagekit" ,packagekit)
7759        ("upower" ,upower)
7760      ;; GNOME-Core-Shell
7761        ("adwaita-icon-theme" ,adwaita-icon-theme)
7762        ("gdm" ,gdm)
7763        ("glib-networking" ,glib-networking)
7764        ("gnome-backgrounds" ,gnome-backgrounds)
7765        ("gnome-bluetooth" ,gnome-bluetooth)
7766        ("gnome-color-manager" ,gnome-color-manager)
7767        ("gnome-control-center" ,gnome-control-center)
7768        ("gnome-desktop" ,gnome-desktop)
7769        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
7770        ("gnome-initial-setup" ,gnome-initial-setup)
7771        ("gnome-keyring" ,gnome-keyring)
7772        ("gnome-menus" ,gnome-menus)
7773        ("gnome-session" ,gnome-session)
7774        ("gnome-settings-daemon" ,gnome-settings-daemon)
7775        ("gnome-shell-extensions" ,gnome-shell-extensions)
7776        ("gnome-shell" ,gnome-shell)
7777        ("gnome-themes-extra" ,gnome-themes-extra)
7778        ("gnome-user-docs" ,gnome-user-docs)
7779        ("gnome-user-share" ,gnome-user-share)
7780        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7781        ("gvfs" ,gvfs)
7782        ("mutter" ,mutter)
7783        ("orca" ,orca)
7784        ("rygel" ,rygel)
7785        ("sushi" ,sushi)
7786      ;; GNOME-Core-Utilities
7787        ("baobab" ,baobab)
7788        ("cheese" ,cheese)
7789        ("eog" ,eog)
7790        ("epiphany" ,epiphany)
7791        ("evince" ,evince)
7792        ("file-roller" ,file-roller)
7793        ("gedit" ,gedit)
7794        ; TODO: ("gnome-boxes" ,gnome-boxes)
7795        ("gnome-calculator" ,gnome-calculator)
7796        ("gnome-calendar" ,gnome-calendar)
7797        ("gnome-characters" ,gnome-characters)
7798        ("gnome-clocks" ,gnome-clocks)
7799        ("gnome-contacts" ,gnome-contacts)
7800        ("gnome-disk-utility" ,gnome-disk-utility)
7801        ("gnome-font-viewer" ,gnome-font-viewer)
7802        ("gnome-maps" ,gnome-maps)
7803        ; TODO: ("gnome-music" ,gnome-music)
7804        ; TODO: ("gnome-photos" ,gnome-photos)
7805        ("gnome-screenshot" ,gnome-screenshot)
7806        ("gnome-system-monitor" ,gnome-system-monitor)
7807        ("gnome-terminal" ,gnome-terminal)
7808        ("gnome-weather" ,gnome-weather)
7809        ("nautilus" ,nautilus)
7810        ("simple-scan" ,simple-scan)
7811        ("totem" ,totem)
7812        ("yelp" ,yelp)
7813      ;; Others
7814        ("hicolor-icon-theme" ,hicolor-icon-theme)
7815        ("gnome-online-accounts" ,gnome-online-accounts)
7816
7817        ;; Packages not part of GNOME proper but that are needed for a good
7818        ;; experience.  See <https://bugs.gnu.org/39646>.
7819        ;; XXX: Find out exactly which ones are needed and why.
7820        ("font-cantarell"            ,font-cantarell)
7821        ("font-dejavu"               ,font-dejavu)
7822        ("at-spi2-core"              ,at-spi2-core)
7823        ("dbus"                      ,dbus)
7824        ("dconf"                     ,dconf)
7825        ("desktop-file-utils"        ,desktop-file-utils)
7826        ("gnome-default-applications" ,gnome-default-applications)
7827        ("gnome-themes-standard"     ,gnome-themes-standard)
7828        ("gst-plugins-base"          ,gst-plugins-base)
7829        ("gst-plugins-good"          ,gst-plugins-good)
7830        ("gucharmap"                 ,gucharmap)
7831        ("pinentry-gnome3"           ,pinentry-gnome3)
7832        ("pulseaudio"                ,pulseaudio)
7833        ("shared-mime-info"          ,shared-mime-info)
7834        ("system-config-printer"     ,system-config-printer)
7835        ("xdg-user-dirs"             ,xdg-user-dirs)
7836        ("yelp"                      ,yelp)
7837        ("zenity"                    ,zenity)))
7838     (synopsis "The GNU desktop environment")
7839     (home-page "https://www.gnome.org/")
7840     (description
7841      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
7842 applications for browsing the web, editing text and images, creating
7843 documents and diagrams, playing media, scanning, and much more.")
7844     (license license:gpl2+)))
7845
7846 (define-public byzanz
7847   ;; The last stable release of Byzanz was in 2011, but there have been many
7848   ;; useful commits made to the Byzanz repository since then that it would be
7849   ;; silly to use such an old release.
7850   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
7851     (package
7852       (name "byzanz")
7853       (version (string-append "0.2-1." (string-take commit 7)))
7854       (source (origin
7855                 (method git-fetch)
7856                 (uri (git-reference
7857                       (url "https://git.gnome.org/browse/byzanz")
7858                       (commit commit)))
7859                 (file-name (string-append name "-" version "-checkout"))
7860                 (sha256
7861                  (base32
7862                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
7863       (build-system glib-or-gtk-build-system)
7864       (arguments
7865        '(#:phases
7866          (modify-phases %standard-phases
7867            (add-before 'bootstrap 'build-without-Werror
7868              (lambda _
7869                ;; The build system cleverly detects that we're not building from
7870                ;; a release tarball and turns on -Werror for GCC.
7871                ;; Unsurprisingly, there is a warning during compilation that
7872                ;; causes the build to fail unnecessarily, so we remove the flag.
7873                (substitute* '("configure.ac")
7874                  (("-Werror") ""))
7875                #t)))))
7876       (native-inputs
7877        `(("autoconf" ,autoconf)
7878          ("automake" ,automake)
7879          ("gnome-common" ,gnome-common)
7880          ("intltool" ,intltool)
7881          ("libtool" ,libtool)
7882          ("pkg-config" ,pkg-config)
7883          ("which" ,which)))
7884       (inputs
7885        `(("glib" ,glib)
7886          ("gstreamer" ,gstreamer)
7887          ("gst-plugins-base" ,gst-plugins-base)
7888          ("gtk+" ,gtk+)))
7889       (synopsis "Desktop recording program")
7890       (description "Byzanz is a simple desktop recording program with a
7891 command-line interface.  It can record part or all of an X display for a
7892 specified duration and save it as a GIF encoded animated image file.")
7893       (home-page "https://git.gnome.org/browse/byzanz")
7894       (license license:gpl2+))))
7895
7896 (define-public gsound
7897   (package
7898     (name "gsound")
7899     (version "1.0.2")
7900     (source (origin
7901               (method url-fetch)
7902               (uri (string-append "mirror://gnome/sources/" name "/"
7903                                   (version-major+minor version) "/"
7904                                   name "-" version ".tar.xz"))
7905               (sha256
7906                (base32
7907                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
7908     (build-system glib-or-gtk-build-system)
7909     (native-inputs
7910      `(("pkg-config" ,pkg-config)
7911        ("gobject-introspection" ,gobject-introspection)
7912        ("vala" ,vala)))
7913     (inputs
7914      `(("glib" ,glib)
7915        ("libcanberra" ,libcanberra)))
7916     (home-page "https://wiki.gnome.org/Projects/GSound")
7917     (synopsis "GObject wrapper for libcanberra")
7918     (description
7919      "GSound is a small library for playing system sounds.  It's designed to be
7920 used via GObject Introspection, and is a thin wrapper around the libcanberra C
7921 library.")
7922     (license license:lgpl2.1+)))
7923
7924 (define-public libzapojit
7925   (package
7926     (name "libzapojit")
7927     (version "0.0.3")
7928     (source (origin
7929               (method url-fetch)
7930               (uri (string-append "mirror://gnome/sources/" name "/"
7931                                   (version-major+minor version) "/"
7932                                   name "-" version ".tar.xz"))
7933               (sha256
7934                (base32
7935                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
7936     (build-system gnu-build-system)
7937     (native-inputs
7938      `(("gobject-introspection" ,gobject-introspection)
7939        ("intltool" ,intltool)
7940        ("pkg-config" ,pkg-config)))
7941     (inputs
7942      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7943        ("json-glib" ,json-glib)
7944        ("rest" ,rest)))
7945     (home-page "https://wiki.gnome.org/Projects/Zapojit")
7946     (synopsis "Library for accessing SkyDrive and Hotmail")
7947     (description
7948      "Libzapojit is a GLib-based library for accessing online service APIs of
7949 Microsoft SkyDrive and Hotmail, using their REST protocols.")
7950     (license license:lgpl2.1+)))
7951
7952 (define-public gnome-clocks
7953   (package
7954     (name "gnome-clocks")
7955     (version "3.32.0")
7956     (source (origin
7957               (method url-fetch)
7958               (uri (string-append "mirror://gnome/sources/" name "/"
7959                                   (version-major+minor version) "/"
7960                                   name "-" version ".tar.xz"))
7961               (sha256
7962                (base32
7963                 "1w6lgjdak3x76c9gyhd1lqrdmjfh8q77sjnrkcimylsg0jq913bc"))))
7964     (build-system meson-build-system)
7965     (arguments
7966      '(#:glib-or-gtk? #t))
7967     (native-inputs
7968      `(("vala" ,vala)
7969        ("pkg-config" ,pkg-config)
7970        ("glib" ,glib "bin")             ; for glib-compile-resources
7971        ("gtk+-bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
7972        ("desktop-file-utils" ,desktop-file-utils)
7973        ("gettext" ,gettext-minimal)
7974        ("itstool" ,itstool)))
7975     (inputs
7976      `(("glib" ,glib)
7977        ("gtk+" ,gtk+)
7978        ("gsound" ,gsound)
7979        ("geoclue" ,geoclue)
7980        ("geocode-glib" ,geocode-glib)
7981        ("libgweather" ,libgweather)
7982        ("gnome-desktop" ,gnome-desktop)))
7983     (home-page "https://wiki.gnome.org/Apps/Clocks")
7984     (synopsis "GNOME's clock application")
7985     (description
7986      "GNOME Clocks is a simple clocks application designed to fit the GNOME
7987 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
7988     (license license:gpl3+)))
7989
7990 (define-public gnome-calendar
7991   (package
7992     (name "gnome-calendar")
7993     (version "3.32.2")
7994     (source (origin
7995               (method url-fetch)
7996               (uri (string-append "mirror://gnome/sources/" name "/"
7997                                   (version-major+minor version) "/"
7998                                   name "-" version ".tar.xz"))
7999               (sha256
8000                (base32
8001                 "07p73cvzj8idr80npja5yiv9pjfyi6qqfhaz5jwcgqspqbnhnl7k"))))
8002     (build-system meson-build-system)
8003     (arguments
8004      '(#:glib-or-gtk? #t
8005        ;; gnome-calendar has to be installed before the tests can be run
8006        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
8007        #:tests? #f))
8008     (native-inputs
8009      `(("gettext" ,gettext-minimal)
8010        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
8011        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8012        ("pkg-config" ,pkg-config)))
8013     (inputs
8014      `(("evolution-data-server" ,evolution-data-server)
8015        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8016        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8017        ("libdazzle" ,libdazzle)
8018        ("libedataserverui" ,evolution-data-server)
8019        ("libgweather" ,libgweather)
8020        ("geoclue" ,geoclue)))
8021     (home-page "https://wiki.gnome.org/Apps/Calendar")
8022     (synopsis "GNOME's calendar application")
8023     (description
8024      "GNOME Calendar is a simple calendar application designed to fit the GNOME
8025 desktop.  It supports multiple calendars, month, week and year view.")
8026     (license license:gpl3+)))
8027
8028 (define-public gnome-todo
8029   (package
8030     (name "gnome-todo")
8031     (version "3.28.1")
8032     (source (origin
8033               (method url-fetch)
8034               (uri (string-append "mirror://gnome/sources/" name "/"
8035                                   (version-major+minor version) "/"
8036                                   name "-" version ".tar.xz"))
8037               (sha256
8038                (base32
8039                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))))
8040     (build-system meson-build-system)
8041     (arguments
8042      '(#:glib-or-gtk? #t
8043        #:phases (modify-phases %standard-phases
8044                   (add-after
8045                       'install 'wrap-gnome-todo
8046                     (lambda* (#:key inputs outputs #:allow-other-keys)
8047                       (let ((out               (assoc-ref outputs "out"))
8048                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
8049                             (python-path       (getenv "PYTHONPATH")))
8050                         (wrap-program (string-append out "/bin/gnome-todo")
8051                           ;; XXX: gi plugins are broken.
8052                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
8053                           ;; For plugins.
8054                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8055                           `("PYTHONPATH" ":" prefix (,python-path))))
8056                       #t)))))
8057     (native-inputs
8058      `(("gettext" ,gettext-minimal)
8059        ("gobject-introspection" ,gobject-introspection)
8060        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
8061        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8062        ("pkg-config" ,pkg-config)))
8063     (inputs
8064      `(("rest" ,rest)                   ; For Todoist plugin
8065        ("json-glib" ,json-glib)         ; For Todoist plugin
8066        ("libedataserverui" ,evolution-data-server)
8067        ("libical" ,libical)
8068        ("libpeas" ,libpeas)
8069        ("python-pygobject" ,python-pygobject)
8070        ("evolution-data-server" ,evolution-data-server)
8071        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8072        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
8073     (home-page "https://wiki.gnome.org/Apps/Todo")
8074     (synopsis "GNOME's ToDo Application")
8075     (description
8076      "GNOME To Do is a simplistic personal task manager designed to perfectly
8077 fit the GNOME desktop.")
8078     (license license:gpl3+)))
8079
8080 (define-public gnome-dictionary
8081   (package
8082     (name "gnome-dictionary")
8083     (version "3.26.1")
8084     (source (origin
8085               (method url-fetch)
8086               (uri (string-append "mirror://gnome/sources/" name "/"
8087                                   (version-major+minor version) "/"
8088                                   name "-" version ".tar.xz"))
8089               (sha256
8090                (base32
8091                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
8092     (build-system meson-build-system)
8093     (arguments '(#:glib-or-gtk? #t
8094                  #:phases (modify-phases %standard-phases
8095                             (add-after 'unpack 'patch-install-script
8096                               (lambda _
8097                                 ;; This script attempts to compile glib schemas
8098                                 ;; and create an empty MIME database.  We do
8099                                 ;; that elsewhere, so prevent it from running.
8100                                 (substitute* "build-aux/post-install.sh"
8101                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
8102                                 #t)))))
8103     (native-inputs
8104      `(("glib:bin" ,glib "bin")
8105        ("gobject-introspection" ,gobject-introspection)
8106        ("intltool" ,intltool)
8107        ("itstool" ,itstool)
8108        ("pkg-config" ,pkg-config)
8109        ("xmllint" ,libxml2)))
8110     (inputs
8111      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8112        ("gtk+" ,gtk+)))
8113     (home-page "https://wiki.gnome.org/Apps/Dictionary")
8114     (synopsis "Look up words in dictionary sources")
8115     (description
8116      "GNOME Dictionary can look for the definition or translation of a word in
8117 existing databases over the internet.")
8118     (license license:gpl3+)))
8119
8120 (define-public gnome-tweaks
8121   (package
8122     (name "gnome-tweaks")
8123     (version "3.32.0")
8124     (source (origin
8125               (method url-fetch)
8126               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
8127                                   (version-major+minor version) "/"
8128                                   "gnome-tweaks-" version ".tar.xz"))
8129               (patches
8130                (list (search-patch "gnome-tweaks-search-paths.patch")))
8131               (sha256
8132                (base32
8133                 "037r35cw34ifcs676fq9n2v4mh1nkqx0qk474bznf18mr6r62h55"))))
8134     (build-system meson-build-system)
8135     (arguments
8136      `(#:glib-or-gtk? #t
8137        #:configure-flags '("-Dlocalstatedir=/tmp"
8138                            "-Dsysconfdir=/tmp")
8139        #:imported-modules ((guix build python-build-system)
8140                            ,@%meson-build-system-modules)
8141        #:phases
8142        (modify-phases %standard-phases
8143          (add-after 'install 'wrap
8144            (@@ (guix build python-build-system) wrap))
8145          (add-after 'wrap 'wrap-gi-typelib
8146            (lambda* (#:key inputs outputs #:allow-other-keys)
8147              (let ((out               (assoc-ref outputs "out"))
8148                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
8149                (wrap-program (string-append out "/bin/gnome-tweaks")
8150                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8151              #t)))))
8152     (native-inputs
8153      `(("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8154        ("intltool" ,intltool)
8155        ("pkg-config" ,pkg-config)))
8156     (inputs
8157      `(("gnome-desktop" ,gnome-desktop)
8158        ("gtk+" ,gtk+)
8159        ("gobject-introspection" ,gobject-introspection)
8160        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8161        ("libnotify" ,libnotify)
8162        ("libsoup" ,libsoup)
8163        ("nautilus" ,nautilus)
8164        ("python" ,python)
8165        ("python-pygobject" ,python-pygobject)))
8166     (synopsis "Customize advanced GNOME 3 options")
8167     (home-page "https://wiki.gnome.org/Apps/Tweaks")
8168     (description
8169      "GNOME Tweaks allows adjusting advanced configuration settings in
8170 GNOME 3.  This includes things like the fonts used in user interface elements,
8171 alternative user interface themes, changes in window management behavior,
8172 GNOME Shell appearance and extension, etc.")
8173     (license license:gpl3+)))
8174
8175 (define-public gnome-shell-extensions
8176   (package
8177     (name "gnome-shell-extensions")
8178     (version "3.32.1")
8179     (source (origin
8180               (method url-fetch)
8181               (uri (string-append "mirror://gnome/sources/" name "/"
8182                                   (version-major+minor version)  "/"
8183                                   name "-" version ".tar.xz"))
8184               (sha256
8185                (base32
8186                 "07libf6z24n42hpdsq163w0j8xyrav0lxqrwxrvq5kbz8zxv5ch2"))))
8187     (build-system meson-build-system)
8188     (arguments
8189      '(#:configure-flags '("-Dextension_set=all")))
8190     (native-inputs
8191      `(("glib:bin" ,glib "bin")
8192        ("intltool" ,intltool)
8193        ("pkg-config" ,pkg-config)))
8194     (propagated-inputs
8195      `(("glib" ,glib)))
8196     (synopsis "Extensions for GNOME Shell")
8197     (description "GNOME Shell extensions modify and extend GNOME Shell
8198 functionality and behavior.")
8199     (home-page "https://extensions.gnome.org/")
8200     (license license:gpl3+)))
8201
8202 (define-public arc-theme
8203   (package
8204     (name "arc-theme")
8205     (version "20190917")
8206     (source (origin
8207               (method git-fetch)
8208               (uri (git-reference
8209                     (url "https://github.com/NicoHood/arc-theme.git")
8210                     (commit version)))
8211               (file-name (git-file-name name version))
8212               (sha256
8213                (base32
8214                 "1qgpk4p2hi5hd4yy0hj93kq1vs0b32wb8qkaj1wi90c8gwddq5wa"))))
8215     (build-system gnu-build-system)
8216     (arguments
8217      '(#:phases
8218        (modify-phases %standard-phases
8219          ;; autogen.sh calls configure at the end of the script.
8220          (replace 'bootstrap
8221            (lambda _ (invoke "autoreconf" "-vfi")))
8222          (add-before 'build 'set-home   ;placate Inkscape
8223            (lambda _
8224              (setenv "HOME" (getcwd))
8225              #t)))))
8226     (native-inputs
8227      `(("autoconf" ,autoconf)
8228        ("automake" ,automake)
8229        ("glib" ,glib "bin")             ; for glib-compile-resources
8230        ("gnome-shell" ,gnome-shell)
8231        ("gtk+" ,gtk+)
8232        ("inkscape" ,inkscape)
8233        ("optipng" ,optipng)
8234        ("pkg-config" ,pkg-config)
8235        ("sassc" ,sassc/libsass-3.5)))
8236     (synopsis "A flat GTK+ theme with transparent elements")
8237     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
8238 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
8239 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
8240     (home-page "https://github.com/horst3180/arc-theme")
8241     ;; No "or later" language found.
8242     (license license:gpl3+)))
8243
8244 (define-public faba-icon-theme
8245   (package
8246     (name "faba-icon-theme")
8247     (version "4.3")
8248     (source
8249      (origin
8250        (method git-fetch)
8251        (uri (git-reference
8252              (url "https://github.com/snwh/faba-icon-theme.git")
8253              (commit (string-append "v" version))))
8254        (file-name (git-file-name name version))
8255        (sha256
8256         (base32 "0xh6ppr73p76z60ym49b4d0liwdc96w41cc5p07d48hxjsa6qd6n"))))
8257     (build-system meson-build-system)
8258     (arguments
8259      `(#:phases
8260        (modify-phases %standard-phases
8261          (add-before 'configure 'disable-post-install
8262            (lambda _
8263              (substitute* "meson.build"
8264                (("meson.add_install_script.*") "")))))))
8265     (native-inputs
8266      `(("autoconf" ,autoconf)
8267        ("automake" ,automake)))
8268     (synopsis "Faba icon theme")
8269     (description
8270      "Faba is a minimal icon set used as a basis for other themes such as
8271 Moka")
8272     (home-page "https://snwh.org/moka")
8273     (license (list license:lgpl3+
8274                    license:cc-by-sa4.0))))
8275
8276 (define-public moka-icon-theme
8277   (package
8278     (inherit faba-icon-theme)
8279     (name "moka-icon-theme")
8280     (version "5.4.0")
8281     (source
8282      (origin
8283        (method git-fetch)
8284        (uri (git-reference
8285              (url "https://github.com/snwh/moka-icon-theme.git")
8286              (commit (string-append "v" version))))
8287        (file-name (git-file-name name version))
8288        (sha256
8289         (base32 "015l02im4mha5z91dbchxf6xkp66d346bg3xskwg0rh3lglhjsrd"))))
8290     (propagated-inputs
8291      ;; Moka is based on Faba by using it as a fallback icon set instead of
8292      ;; bundling it, so we need to add it as a propagated input.
8293      `(("faba-icon-theme" ,faba-icon-theme)))
8294     (synopsis "Moka icon theme")
8295     (description "Moka is a stylized desktop icon set, designed to be clear,
8296 simple and consistent.")
8297     (license (list license:gpl3+
8298                    license:cc-by-sa4.0))))
8299
8300 (define-public arc-icon-theme
8301   (package
8302     (name "arc-icon-theme")
8303     (version "20161122")
8304     (source
8305      (origin
8306        (method git-fetch)
8307        (uri (git-reference
8308              (url "https://github.com/horst3180/arc-icon-theme.git")
8309              (commit version)))
8310        (file-name (git-file-name name version))
8311        (sha256
8312         (base32 "1ch3hp08qri93510hypzz6m2x4xgg2h15wvnhjwh1x1s1b7jvxjd"))))
8313     (build-system gnu-build-system)
8314     (arguments
8315      `(#:phases
8316        (modify-phases %standard-phases
8317          (add-after 'unpack 'disable-configure-during-bootstrap
8318            (lambda _
8319              (substitute* "autogen.sh"
8320                (("^\"\\$srcdir/configure\".*") ""))
8321              #t)))))
8322     (native-inputs
8323      `(("autoconf" ,autoconf)
8324        ("automake" ,automake)))
8325     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
8326     (propagated-inputs
8327      `(("moka-icon-theme" ,moka-icon-theme)))
8328     (synopsis "Arc icon theme")
8329     (description "The Arc icon theme provides a set of icons matching the
8330 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
8331 the Moka icon theme.")
8332     (home-page "https://github.com/horst3180/arc-icon-theme")
8333     (license license:gpl3+)))
8334
8335 (define-public folks
8336   (package
8337     (name "folks")
8338     (version "0.13.1")
8339     (source (origin
8340               (method url-fetch)
8341               (uri (string-append
8342                     "mirror://gnome/sources/folks/"
8343                     (version-major+minor version) "/"
8344                     "folks-" version ".tar.xz"))
8345               (sha256
8346                (base32
8347                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
8348     (build-system meson-build-system)
8349     (arguments
8350      '(#:phases
8351        (modify-phases %standard-phases
8352          (add-after 'unpack 'skip-gtk-update-icon-cache
8353            ;; Don't create 'icon-theme.cache'.
8354            (lambda _
8355              (substitute* "meson_post_install.py"
8356                (("gtk-update-icon-cache") "true"))
8357              #t)))))
8358     (inputs
8359      `(("bdb" ,bdb)
8360        ("dbus-glib" ,dbus-glib)
8361        ("evolution-data-server" ,evolution-data-server)
8362        ("glib" ,glib)
8363        ("libgee" ,libgee)
8364        ("readline" ,readline)
8365        ("telepathy-glib" ,telepathy-glib)))
8366     (native-inputs
8367      `(("glib:bin" ,glib "bin")
8368        ("gobject-introspection" ,gobject-introspection)
8369        ("intltool" ,intltool)
8370        ("pkg-config" ,pkg-config)
8371        ("vala" ,vala)))
8372     (synopsis "Library to aggregate data about people")
8373     (description "Libfolks is a library that aggregates information about people
8374 from multiple sources (e.g., Telepathy connection managers for IM contacts,
8375 Evolution Data Server for local contacts, libsocialweb for web service contacts,
8376 etc.) to create metacontacts.  It's written in Vala, which generates C code when
8377 compiled.")
8378     (home-page "https://wiki.gnome.org/Projects/Folks")
8379     (license license:lgpl2.1+)))
8380
8381 (define-public gfbgraph
8382   (package
8383     (name "gfbgraph")
8384     (version "0.2.3")
8385     (source (origin
8386               (method url-fetch)
8387               (uri (string-append
8388                     "mirror://gnome/sources/gfbgraph/"
8389                     (version-major+minor version) "/"
8390                     "gfbgraph-" version ".tar.xz"))
8391               (sha256
8392                (base32
8393                 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
8394     (build-system glib-or-gtk-build-system)
8395     (arguments
8396      `(#:tests? #f ; Tests appear to require the network.
8397        ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
8398        #:configure-flags '("--disable-gtk-doc"
8399                            "--disable-static"
8400                            "--enable-introspection")))
8401     (native-inputs
8402      `(("pkg-config" ,pkg-config)
8403        ("gobject-introspection" ,gobject-introspection)))
8404     (inputs
8405      `(("json-glib" ,json-glib)
8406        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8407        ("rest" ,rest)))
8408     (synopsis "GLib/GObject wrapper for the Facebook API")
8409     (description "This library allows you to use the Facebook API from
8410 GLib/GObject code.")
8411     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
8412     (license license:lgpl2.1+)))
8413
8414 (define-public libgnomekbd
8415   (package
8416     (name "libgnomekbd")
8417     (version "3.26.1")
8418     (source (origin
8419               (method url-fetch)
8420               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
8421                                   (version-major+minor version)  "/"
8422                                   "libgnomekbd-" version ".tar.xz"))
8423               (sha256
8424                (base32
8425                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
8426     (build-system gnu-build-system)
8427     (native-inputs
8428      `(("pkg-config" ,pkg-config)
8429        ("glib" ,glib "bin")
8430        ("intltool" ,intltool)))
8431     (propagated-inputs
8432      ;; Referred to in .h files and .pc.
8433      `(("glib" ,glib)
8434        ("gtk+" ,gtk+)
8435        ("libxklavier" ,libxklavier)))
8436     (home-page "https://www.gnome.org")
8437     (synopsis "GNOME keyboard configuration library")
8438     (description
8439      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
8440 environment, which can notably display keyboard layouts.")
8441     (license license:lgpl2.0+)))
8442
8443 ;;; This package is no longer maintained:
8444 ;;; https://wiki.gnome.org/Attic/LibUnique
8445 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
8446 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
8447 (define-public libunique
8448   (package
8449     (name "libunique")
8450     (version "3.0.2")
8451     (source (origin
8452               (method url-fetch)
8453               (uri (string-append "mirror://gnome/sources/" name "/"
8454                                   (version-major+minor version)  "/"
8455                                   name "-" version ".tar.xz"))
8456               (sha256
8457                (base32
8458                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
8459     (build-system glib-or-gtk-build-system)
8460     (arguments
8461      `(#:configure-flags '("--disable-static"
8462                            "--disable-dbus" ; use gdbus
8463                            "--enable-introspection")))
8464     (native-inputs
8465      `(("pkg-config" ,pkg-config)
8466        ("gobject-introspection" ,gobject-introspection)
8467        ("glib:bin" ,glib "bin")
8468        ("gtk-doc" ,gtk-doc)))
8469     (propagated-inputs
8470      ;; Referred to in .h files and .pc.
8471      `(("gtk+" ,gtk+)))
8472     (home-page "https://wiki.gnome.org/Attic/LibUnique")
8473     (synopsis "Library for writing single instance applications")
8474     (description
8475      "Libunique is a library for writing single instance applications.  If you
8476 launch a single instance application twice, the second instance will either just
8477 quit or will send a message to the running instance.  Libunique makes it easy to
8478 write this kind of application, by providing a base class, taking care of all
8479 the IPC machinery needed to send messages to a running instance, and also
8480 handling the startup notification side.")
8481     (license license:lgpl2.1+)))
8482
8483 (define-public gnome-calculator
8484   (package
8485     (name "gnome-calculator")
8486     (version "3.34.1")
8487     (source
8488      (origin
8489        (method url-fetch)
8490        (uri (string-append "mirror://gnome/sources/" name "/"
8491                            (version-major+minor version) "/"
8492                            name "-" version ".tar.xz"))
8493        (sha256
8494         (base32
8495          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
8496     (build-system meson-build-system)
8497     (arguments '(#:glib-or-gtk? #t))
8498     (native-inputs
8499      `(("gettext" ,gettext-minimal)
8500        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
8501        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8502        ("itstool" ,itstool)
8503        ("vala" ,vala)
8504        ("pkg-config" ,pkg-config)))
8505     (inputs
8506      `(("glib" ,glib)
8507        ("gtksourceview" ,gtksourceview)
8508        ("libgee" ,libgee)
8509        ("libsoup" ,libsoup)
8510        ("libxml2" ,libxml2)
8511        ("mpc" ,mpc)
8512        ("mpfr" ,mpfr)))
8513     (home-page "https://wiki.gnome.org/Apps/Calculator")
8514     (synopsis "Desktop calculator")
8515     (description
8516      "Calculator is an application that solves mathematical equations and
8517 is suitable as a default application in a Desktop environment.")
8518     (license license:gpl3)))
8519
8520 (define-public xpad
8521   (package
8522     (name "xpad")
8523     (version "5.1.0")
8524     (source
8525      (origin
8526        (method url-fetch)
8527        (uri (string-append "https://launchpad.net/xpad/trunk/"
8528                            version "/+download/"
8529                            name "-" version ".tar.bz2"))
8530        (sha256
8531         (base32
8532          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
8533     (build-system gnu-build-system)
8534     (native-inputs
8535      `(("autoconf" ,autoconf)
8536        ("automake" ,automake)
8537        ("gtk+:bin" ,gtk+ "bin")
8538        ("intltool" ,intltool)
8539        ("pkg-config" ,pkg-config)))
8540     (inputs
8541      `(("gtksourceview" ,gtksourceview-3)
8542        ("libsm" ,libsm)))
8543     (home-page "https://wiki.gnome.org/Apps/Xpad")
8544     (synopsis "Virtual sticky note")
8545     (description
8546      "Xpad is a sticky note that strives to be simple, fault tolerant,
8547 and customizable.  Xpad consists of independent pad windows, each is
8548 basically a text box in which notes can be written.")
8549     (license license:gpl3+)))
8550
8551 (define-public gucharmap
8552   (let ((unicode-files
8553          '(("Blocks.txt"
8554             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
8555            ("DerivedAge.txt"
8556             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
8557            ("NamesList.txt"
8558             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
8559            ("Scripts.txt"
8560             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
8561            ("UnicodeData.txt"
8562             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
8563            ("Unihan.zip"
8564             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
8565     (package
8566       (name "gucharmap")
8567       (version "12.0.1")
8568       (source
8569        (origin
8570          (method url-fetch)
8571          (uri (string-append "mirror://gnome/sources/" name "/"
8572                              (version-major+minor version) "/"
8573                              name "-" version ".tar.xz"))
8574          (sha256
8575           (base32
8576            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
8577       (build-system glib-or-gtk-build-system)
8578       (arguments
8579        `(#:modules ((ice-9 match)
8580                     (guix build glib-or-gtk-build-system)
8581                     (guix build utils))
8582          #:configure-flags
8583          (list "--with-unicode-data=../unicode-data")
8584          #:phases
8585          (modify-phases %standard-phases
8586            (add-after 'unpack 'prepare-unicode-data
8587              (lambda* (#:key inputs #:allow-other-keys)
8588                (mkdir-p "../unicode-data")
8589                (with-directory-excursion "../unicode-data"
8590                  (for-each (match-lambda
8591                              ((file _)
8592                               (install-file (assoc-ref inputs file) ".")))
8593                            ',unicode-files))
8594                #t)))))
8595       (native-inputs
8596        `(("desktop-file-utils" ,desktop-file-utils)
8597          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
8598          ("gobject-introspection" ,gobject-introspection)
8599          ("intltool" ,intltool)
8600          ("itstool" ,itstool)
8601          ("pkg-config" ,pkg-config)
8602          ,@(map (match-lambda
8603                   ((file hash)
8604                    `(,file
8605                      ,(origin
8606                         (method url-fetch)
8607                         (uri (string-append
8608                               "http://www.unicode.org/Public/12.0.0/ucd/"
8609                               file))
8610                         (sha256 (base32 hash))))))
8611                 unicode-files)
8612          ("unzip" ,unzip)))
8613       (inputs
8614        `(("gtk+" ,gtk+)
8615          ("xmllint" ,libxml2)))
8616       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
8617       (synopsis "Unicode character picker and font browser")
8618       (description
8619        "This program allows you to browse through all the available Unicode
8620 characters and categories for the installed fonts, and to examine their
8621 detailed properties.  It is an easy way to find the character you might
8622 only know by its Unicode name or code point.")
8623       (license license:gpl3+))))
8624
8625 (define-public bluefish
8626   (package
8627     (name "bluefish")
8628     (version "2.2.11")
8629     (source
8630      (origin
8631        (method url-fetch)
8632        (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
8633                            "bluefish-" version ".tar.gz"))
8634        (sha256
8635         (base32 "0a7kf78q4cj2ap4igjks9kbmmr74brsrl4y2f9wbxpl0b0v2ck2x"))))
8636     (build-system gnu-build-system)
8637     (native-inputs
8638      `(("desktop-file-utils" ,desktop-file-utils)
8639        ("intltool" ,intltool)
8640        ("pkg-config" ,pkg-config)))
8641     (inputs
8642      `(("enchant" ,enchant)
8643        ("gtk+" ,gtk+)
8644        ("python" ,python-wrapper)
8645        ("xmllint" ,libxml2)
8646        ("gucharmap" ,gucharmap)))
8647     (home-page "http://bluefish.openoffice.nl")
8648     (synopsis "Web development studio")
8649     (description
8650      "Bluefish is an editor targeted towards programmers and web developers,
8651 with many options to write web sites, scripts and other code.
8652 Bluefish supports many programming and markup languages.")
8653     (license license:gpl3+)))
8654
8655 (define-public gnome-system-monitor
8656   (package
8657     (name "gnome-system-monitor")
8658     (version "3.32.1")
8659     (source
8660      (origin
8661        (method url-fetch)
8662        (uri (string-append "mirror://gnome/sources/" name "/"
8663                            (version-major+minor version) "/"
8664                            name "-" version ".tar.xz"))
8665        (sha256
8666         (base32
8667          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
8668     (build-system meson-build-system)
8669     (arguments
8670      '(#:glib-or-gtk? #t
8671        #:configure-flags '("-Dsystemd=false")))
8672     (native-inputs
8673      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
8674        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8675        ("intltool" ,intltool)
8676        ("itstool" ,itstool)
8677        ("libgtop" ,libgtop)
8678        ("polkit" ,polkit)
8679        ("pkg-config" ,pkg-config)))
8680     (inputs
8681      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
8682        ("gtk+" ,gtk+)
8683        ("gtkmm" ,gtkmm)
8684        ("librsvg" ,librsvg)
8685        ("libxml2" ,libxml2)
8686        ("libwnck" ,libwnck)))
8687     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
8688     (synopsis "Process viewer and system resource monitor for GNOME")
8689     (description
8690      "GNOME System Monitor is a GNOME process viewer and system monitor with
8691 an attractive, easy-to-use interface.  It has features, such as a tree view
8692 for process dependencies, icons for processes, the ability to hide processes,
8693 graphical time histories of CPU/memory/swap usage and the ability to
8694 kill/reinice processes.")
8695     (license license:gpl2+)))
8696
8697 (define-public python-pyatspi
8698   (package
8699     (name "python-pyatspi")
8700     (version "2.34.0")
8701     (source (origin
8702               (method url-fetch)
8703               (uri (string-append
8704                     "mirror://gnome/sources/pyatspi/"
8705                     (version-major+minor version)
8706                     "/pyatspi-" version ".tar.xz"))
8707               (sha256
8708                (base32
8709                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
8710     (build-system gnu-build-system)
8711     (arguments
8712      `(#:phases
8713        (modify-phases %standard-phases
8714          (add-before 'build 'fix-atk-load
8715            (lambda _
8716              (substitute* "pyatspi/__init__.py"
8717                (("from gi.repository import Atspi")
8718                 "gi.require_version('Gtk', '3.0')
8719 from gi.repository import Gtk
8720 from gi.repository import Atspi"))
8721              #t)))))
8722     (native-inputs
8723      `(("pkg-config" ,pkg-config)))
8724     (inputs
8725      `(("python" ,python)
8726        ("python-pygobject" ,python-pygobject)))
8727     (synopsis "Python client bindings for D-Bus AT-SPI")
8728     (home-page "https://wiki.linuxfoundation.org/accessibility\
8729 /atk/at-spi/at-spi_on_d-bus")
8730     (description
8731      "This package includes a python client library for the AT-SPI D-Bus
8732 accessibility infrastructure.")
8733     (license license:lgpl2.0)
8734     (properties '((upstream-name . "pyatspi")))))
8735
8736 (define-public orca
8737   (package
8738     (name "orca")
8739     (version "3.32.0")
8740     (source (origin
8741               (method url-fetch)
8742               (uri (string-append
8743                     "mirror://gnome/sources/" name "/"
8744                     (version-major+minor version) "/"
8745                     name "-" version ".tar.xz"))
8746               (sha256
8747                (base32
8748                 "05jqzlg0f1x53hyl0l9282ynmw37159g6dsbrid12b7sjs12cc1i"))))
8749     (build-system glib-or-gtk-build-system)
8750     (arguments
8751      '(#:phases
8752        (modify-phases %standard-phases
8753          (add-before 'configure 'qualify-xkbcomp
8754            (lambda* (#:key inputs #:allow-other-keys)
8755              (let ((xkbcomp (string-append
8756                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
8757                (substitute* "src/orca/orca.py"
8758                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
8759              #t))
8760          (add-after 'install 'wrap-orca
8761            (lambda* (#:key outputs #:allow-other-keys)
8762              (let* ((out  (assoc-ref outputs "out"))
8763                     (prog (string-append out "/bin/orca")))
8764                (wrap-program prog
8765                  `("GI_TYPELIB_PATH" ":" prefix
8766                    (,(getenv "GI_TYPELIB_PATH")))
8767                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
8768                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
8769                  `("PYTHONPATH" ":" prefix
8770                    (,(getenv "PYTHONPATH")))))
8771              #t)))))
8772     (native-inputs
8773      `(("intltool" ,intltool)
8774        ("itstool" ,itstool)
8775        ("pkg-config" ,pkg-config)
8776        ("xmllint" ,libxml2)))
8777     (inputs
8778      `(("at-spi2-atk" ,at-spi2-atk)
8779        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8780        ("gstreamer" ,gstreamer)
8781        ("gst-plugins-base" ,gst-plugins-base)
8782        ("gst-plugins-good" ,gst-plugins-good)
8783        ("gtk+" ,gtk+)
8784        ("python" ,python)
8785        ("python-pygobject" ,python-pygobject)
8786        ("python-pyatspi" ,python-pyatspi)
8787        ("python-speechd" ,speech-dispatcher)
8788        ("xkbcomp" ,xkbcomp)))
8789     (synopsis
8790      "Screen reader for individuals who are blind or visually impaired")
8791     (home-page "https://wiki.gnome.org/Projects/Orca")
8792     (description
8793      "Orca is a screen reader that provides access to the graphical desktop
8794 via speech and refreshable braille.  Orca works with applications and toolkits
8795 that support the Assistive Technology Service Provider Interface (AT-SPI).")
8796     (license license:lgpl2.1+)))
8797
8798 (define-public gspell
8799   (package
8800     (name "gspell")
8801     (version "1.8.2")
8802     (source (origin
8803               (method url-fetch)
8804               (uri (string-append "mirror://gnome/sources/" name "/"
8805                                   (version-major+minor version) "/"
8806                                   name "-" version ".tar.xz"))
8807               (sha256
8808                (base32
8809                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
8810               (patches (search-patches "gspell-dash-test.patch"))))
8811     (build-system glib-or-gtk-build-system)
8812     (arguments
8813      '(#:configure-flags (list "--enable-vala")
8814        #:phases
8815        (modify-phases %standard-phases
8816          (add-before 'check 'pre-check
8817            (lambda* (#:key inputs #:allow-other-keys)
8818              ;; Tests require a running X server.
8819              (system "Xvfb :1 &")
8820              (setenv "DISPLAY" ":1")
8821
8822              ;; For the missing /etc/machine-id.
8823              (setenv "DBUS_FATAL_WARNINGS" "0")
8824
8825              ;; Allow Enchant and its Aspell backend to find the en_US
8826              ;; dictionary.
8827              (setenv "ASPELL_DICT_DIR"
8828                      (string-append (assoc-ref inputs "aspell-dict-en")
8829                                     "/lib/aspell"))
8830              #t)))))
8831     (inputs
8832      `(("gtk+" ,gtk+)
8833        ("glib" ,glib)
8834        ("iso-codes" ,iso-codes)))
8835     (native-inputs
8836      `(("glib" ,glib "bin")
8837        ("gobject-introspection" ,gobject-introspection)
8838        ("pkg-config" ,pkg-config)
8839        ("vala" ,vala)                             ;for VAPI, needed by Geary
8840        ("xmllint" ,libxml2)
8841
8842        ;; For tests.
8843        ("aspell-dict-en" ,aspell-dict-en)
8844        ("xorg-server" ,xorg-server-for-tests)))
8845     (propagated-inputs
8846      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
8847     (home-page "https://wiki.gnome.org/Projects/gspell")
8848     (synopsis "GNOME's alternative spell checker")
8849     (description
8850      "gspell provides a flexible API to add spell-checking to a GTK+
8851 application.  It provides a GObject API, spell-checking to text entries and
8852 text views, and buttons to choose the language.")
8853     (license license:gpl2+)))
8854
8855 (define-public gnome-planner
8856   (package
8857     (name "gnome-planner")
8858     (version "0.14.6")
8859     (source (origin
8860               (method url-fetch)
8861               (uri (string-append "mirror://gnome/sources/planner/"
8862                                   (version-major+minor version) "/planner-"
8863                                   version ".tar.xz"))
8864               (sha256
8865                (base32
8866                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
8867     (build-system glib-or-gtk-build-system)
8868     (arguments
8869      ;; Disable the Python bindings because the Planner program functions
8870      ;; without them, and (as of 2017-06-13) we have not packaged all of
8871      ;; packages that are necessary for building the Python bindings.
8872      `(#:configure-flags
8873        (list "--disable-python"
8874              ,@(if (string=? "aarch64-linux" (%current-system))
8875                    '("--build=aarch64-unknown-linux-gnu")
8876                    '()))))
8877     (inputs
8878      `(("libgnomecanvas" ,libgnomecanvas)
8879        ("libgnomeui" ,libgnomeui)
8880        ("libglade" ,libglade)
8881        ("gnome-vfs" ,gnome-vfs)
8882        ("gconf" ,gconf)
8883        ("libxml2" ,libxml2)
8884        ("libxslt" ,libxslt)
8885        ("gtk+" ,gtk+)
8886        ("glib" ,glib)))
8887     (native-inputs
8888      `(("intltool" ,intltool)
8889        ("scrollkeeper" ,scrollkeeper)
8890        ("pkg-config" ,pkg-config)))
8891     (home-page "https://wiki.gnome.org/Apps/Planner")
8892     (synopsis "Project management software for the GNOME desktop")
8893     (description
8894      "GNOME Planner is a project management tool based on the Work Breakdown
8895 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
8896 the resources, tasks, and constraints that you define, Planner generates
8897 various views into a project.  For example, Planner can show a Gantt chart of
8898 the project.  It can show a detailed summary of tasks including their
8899 duration, cost, and current progress.  It can also show a report of resource
8900 utilization that highlights under-utilized and over-utilized resources.  These
8901 views can be printed as PDF or PostScript files, or exported to HTML.")
8902     (license license:gpl2+)))
8903
8904 (define-public lollypop
8905   (package
8906     (name "lollypop")
8907     (version "1.2.32")
8908     (source
8909      (origin
8910        (method url-fetch)
8911        (uri (string-append "https://adishatz.org/lollypop/"
8912                            "lollypop-" version ".tar.xz"))
8913        (sha256
8914         (base32 "1ng9492k8754vlqggbfsyzbmfdx4w17fzc4ad21fr92710na0w5a"))))
8915     (build-system meson-build-system)
8916     (arguments
8917      `(#:imported-modules
8918        (,@%meson-build-system-modules
8919         (guix build python-build-system))
8920        #:modules
8921        ((guix build meson-build-system)
8922         ((guix build python-build-system) #:prefix python:)
8923         (guix build utils))
8924        #:glib-or-gtk? #t
8925        #:tests? #f                      ; no test suite
8926        #:phases
8927        (modify-phases %standard-phases
8928          (add-after 'install 'wrap-program
8929            (lambda* (#:key outputs #:allow-other-keys)
8930              (let ((out               (assoc-ref outputs "out"))
8931                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
8932                (wrap-program (string-append out "/bin/lollypop")
8933                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8934              #t))
8935          (add-after 'install 'wrap-python
8936            (assoc-ref python:%standard-phases 'wrap)))))
8937     (native-inputs
8938      `(("intltool" ,intltool)
8939        ("itstool" ,itstool)
8940        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
8941        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8942        ("pkg-config" ,pkg-config)))
8943     (inputs
8944      `(("gobject-introspection" ,gobject-introspection)
8945        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8946        ("gst-plugins-base" ,gst-plugins-base)
8947        ("libnotify" ,libnotify)
8948        ("libsecret" ,libsecret)
8949        ("libsoup" ,libsoup)
8950        ("python" ,python)
8951        ("python-beautifulsoup4" ,python-beautifulsoup4)
8952        ("python-gst" ,python-gst)
8953        ("python-pil" ,python-pillow)
8954        ("python-pycairo" ,python-pycairo)
8955        ("python-pygobject" ,python-pygobject)
8956        ("python-pylast" ,python-pylast)
8957        ("totem-pl-parser" ,totem-pl-parser)
8958        ("webkitgtk" ,webkitgtk)))
8959     (propagated-inputs
8960      `(;; gst-plugins-base is required to start Lollypop,
8961        ;; the others are required to play streaming.
8962        ("gst-plugins-good" ,gst-plugins-good)
8963        ("gst-plugins-ugly" ,gst-plugins-ugly)))
8964     (home-page "https://wiki.gnome.org/Apps/Lollypop")
8965     (synopsis "GNOME music playing application")
8966     (description
8967      "Lollypop is a music player designed to play well with GNOME desktop.
8968 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
8969 from artists and tracks from the web.  It also fetches cover artworks
8970 automatically and it can stream songs from online music services and charts.")
8971     (license license:gpl3+)))
8972
8973 (define-public gnome-video-effects
8974   (package
8975     (name "gnome-video-effects")
8976     (version "0.4.3")
8977     (source (origin
8978               (method url-fetch)
8979               (uri (string-append "mirror://gnome/sources/" name "/"
8980                                   (version-major+minor version) "/" name "-"
8981                                   version ".tar.xz"))
8982               (sha256
8983                (base32
8984                 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
8985     (build-system glib-or-gtk-build-system)
8986     (arguments
8987      `(#:out-of-source? #f))
8988     (native-inputs
8989      `(("glib:bin" ,glib "bin")
8990        ("intltool" ,intltool)
8991        ("gettext" ,gettext-minimal)
8992        ("pkg-config" ,pkg-config)))
8993     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
8994     (synopsis "Video effects for Cheese and other GNOME applications")
8995     (description
8996      "A collection of GStreamer video filters and effects to be used in
8997 photo-booth-like software, such as Cheese.")
8998     (license license:gpl2+)))
8999
9000 (define-public cheese
9001   (package
9002     (name "cheese")
9003     (version "3.32.1")
9004     (source (origin
9005               (method url-fetch)
9006               (uri (string-append "mirror://gnome/sources/" name "/"
9007                                   (version-major+minor version) "/" name "-"
9008                                   version ".tar.xz"))
9009               (sha256
9010                (base32
9011                 "1xlmsm4zsx05ahvpd4mgy1hfhxbag0r5i6p63bksjxdligdd36kv"))))
9012     (arguments
9013      ;; Tests require GDK.
9014      `(#:tests? #f
9015        #:phases
9016        (modify-phases %standard-phases
9017          (add-before 'install 'skip-gtk-update-icon-cache
9018            (lambda _
9019              ;; Don't create 'icon-theme.cache'
9020              (substitute* "Makefile"
9021                (("gtk-update-icon-cache") (which "true")))
9022              #t))
9023          (add-after 'install 'wrap-cheese
9024            (lambda* (#:key inputs outputs #:allow-other-keys)
9025              (let ((out             (assoc-ref outputs "out"))
9026                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
9027                (wrap-program (string-append out "/bin/cheese")
9028                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
9029              #t)))))
9030     (build-system glib-or-gtk-build-system)
9031     (native-inputs
9032      `(("glib:bin" ,glib "bin")
9033        ("intltool" ,intltool)
9034        ("itstool" ,itstool)
9035        ("libxml2" ,libxml2)
9036        ("pkg-config" ,pkg-config)
9037        ("vala" ,vala)))
9038     (propagated-inputs
9039      `(("gnome-video-effects" ,gnome-video-effects)
9040        ("clutter" ,clutter)
9041        ("clutter-gst" ,clutter-gst)
9042        ("clutter-gtk" ,clutter-gtk)
9043        ("libcanberra" ,libcanberra)
9044        ("gdk-pixbuf" ,gdk-pixbuf)
9045        ("glib" ,glib)
9046        ("gstreamer" ,gstreamer)))
9047     (inputs
9048      `(("gnome-desktop" ,gnome-desktop)
9049        ("gobject-introspection" ,gobject-introspection)
9050        ("gst-plugins-base" ,gst-plugins-base)
9051        ("gst-plugins-bad" ,gst-plugins-bad)
9052        ("gtk+" ,gtk+)
9053        ("libx11" ,libx11)
9054        ("libxtst" ,libxtst)))
9055     (home-page "https://wiki.gnome.org/Apps/Cheese")
9056     (synopsis "Webcam photo booth software for GNOME")
9057     (description
9058      "Cheese uses your webcam to take photos and videos.  Cheese can also
9059 apply fancy special effects and lets you share the fun with others.")
9060     (license license:gpl2+)))
9061
9062 (define-public sound-juicer
9063   (package
9064     (name "sound-juicer")
9065     (version "3.24.0")
9066     (source
9067      (origin
9068        (method url-fetch)
9069        (uri (string-append "mirror://gnome/sources/" name "/"
9070                            (version-major+minor version) "/"
9071                            name "-" version ".tar.xz"))
9072        (sha256
9073         (base32
9074          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
9075     (build-system glib-or-gtk-build-system)
9076     (native-inputs
9077      `(("desktop-file-utils" ,desktop-file-utils)
9078        ("intltool" ,intltool)
9079        ("itstool" ,itstool)
9080        ("pkg-config" ,pkg-config)
9081        ("xmllint" ,libxml2)))
9082     (inputs
9083      `(("gtk+" ,gtk+)
9084        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9085        ("gstreamer" ,gstreamer)
9086        ("gst-plugins-base" ,gst-plugins-base)
9087        ("gst-plugins-good" ,gst-plugins-good)
9088        ("iso-codes" ,iso-codes)
9089        ("libbrasero-media3" ,brasero)
9090        ("libcanberra" ,libcanberra)
9091        ("libdiscid" ,libdiscid)
9092        ("libmusicbrainz" ,libmusicbrainz)
9093        ("neon" ,neon)))
9094     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
9095     (synopsis "Audio music cd ripper")
9096     (description "Sound Juicer extracts audio from compact discs and convert it
9097 into audio files that a personal computer or digital audio player can play.
9098 It supports ripping to any audio codec supported by a GStreamer plugin, such as
9099 mp3, Ogg Vorbis and FLAC")
9100     (license license:gpl2+)))
9101
9102 (define-public soundconverter
9103   (package
9104     (name "soundconverter")
9105     (version "3.0.1")
9106     (source
9107      (origin
9108        (method url-fetch)
9109        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
9110                            version "/+download/"
9111                            "soundconverter-" version ".tar.xz"))
9112
9113        (sha256
9114         (base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
9115        (patches
9116         (search-patches
9117          "soundconverter-remove-gconf-dependency.patch"))))
9118     (build-system glib-or-gtk-build-system)
9119     (arguments
9120      `(#:imported-modules ((guix build python-build-system)
9121                            (guix build glib-or-gtk-build-system)
9122                            ,@%gnu-build-system-modules)
9123
9124        #:modules ((guix build glib-or-gtk-build-system)
9125                   (guix build utils)
9126                   ((guix build gnu-build-system) #:prefix gnu:)
9127                   ((guix build python-build-system) #:prefix python:))
9128
9129        #:phases
9130        (modify-phases %standard-phases
9131          (add-after 'install 'wrap-soundconverter-for-python
9132            (assoc-ref python:%standard-phases 'wrap))
9133          (add-after 'install 'wrap-soundconverter
9134            (lambda* (#:key inputs outputs #:allow-other-keys)
9135              (let ((out               (assoc-ref outputs "out"))
9136                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9137                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
9138                (wrap-program (string-append out "/bin/soundconverter")
9139                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
9140                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
9141              #t)))))
9142     (native-inputs
9143      `(("intltool" ,intltool)
9144        ("pkg-config" ,pkg-config)
9145        ("glib:bin" ,glib "bin")))
9146     (inputs
9147      `(("gtk+" ,gtk+)
9148        ("python" ,python)
9149        ("python-pygobject" ,python-pygobject)
9150        ("gstreamer" ,gstreamer)
9151        ("gst-plugins-base" ,gst-plugins-base)))
9152     (home-page "https://soundconverter.org/")
9153     (synopsis "Convert between audio formats with a graphical interface")
9154     (description
9155      "SoundConverter supports converting between many audio formats including
9156 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
9157 configurable file renaming. ")
9158     (license license:gpl3)))
9159
9160 (define-public workrave
9161   (package
9162     (name "workrave")
9163     (version "1.10.42")
9164     (source
9165      (origin
9166        (method git-fetch)
9167        (uri (git-reference
9168              (url "https://github.com/rcaelers/workrave.git")
9169              (commit (string-append "v" (string-map
9170                                          (match-lambda (#\. #\_) (chr chr))
9171                                          version)))))
9172        (file-name (git-file-name name version))
9173        (sha256
9174         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
9175     (build-system glib-or-gtk-build-system)
9176     (arguments
9177      ;; The only tests are maintainer tests (in po/), which fail.
9178      `(#:tests? #f))
9179     (inputs `(("glib" ,glib)
9180               ("gtk+" ,gtk+)
9181               ("gdk-pixbuf" ,gdk-pixbuf)
9182               ("gtkmm" ,gtkmm)
9183               ("glibmm" ,glibmm)
9184               ("libx11" ,libx11)
9185               ("libxtst" ,libxtst)
9186               ("dconf" ,dconf)
9187               ("libice" ,libice)
9188               ("libsm" ,libsm)
9189               ("libxscrnsaver" ,libxscrnsaver)))
9190     (native-inputs `(("boost" ,boost)
9191                      ("pkg-config" ,pkg-config)
9192                      ("gettext" ,gettext-minimal)
9193                      ("autoconf" ,autoconf)
9194                      ("autoconf-archive" , autoconf-archive)
9195                      ("automake" ,automake)
9196                      ("libtool" ,libtool)
9197                      ("intltool" ,intltool)
9198                      ("gobject-introspection" ,gobject-introspection)
9199                      ("python3" ,python-3)
9200                      ("python-jinja2" ,python-jinja2)))
9201     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
9202     (description
9203      "Workrave is a program that assists in the recovery and prevention of
9204 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
9205 micro-pauses and rest breaks, and restricts you to your daily limit.")
9206     (home-page "http://www.workrave.org")
9207     (license license:gpl3+)))
9208
9209 (define-public ghex
9210   (package
9211     (name "ghex")
9212     (version "3.18.4")
9213     (source (origin
9214               (method url-fetch)
9215               (uri (string-append "mirror://gnome/sources/ghex/"
9216                                   (version-major+minor version) "/"
9217                                   "ghex-" version ".tar.xz"))
9218               (sha256
9219                (base32
9220                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
9221     (build-system meson-build-system)
9222     (arguments
9223      '(#:glib-or-gtk? #t
9224        #:phases
9225        (modify-phases %standard-phases
9226          (add-after 'unpack 'skip-gtk-update-icon-cache
9227            ;; Don't create 'icon-theme.cache'.
9228            (lambda _
9229              (substitute* "meson_post_install.py"
9230                (("gtk-update-icon-cache") (which "true")))
9231              #t)))))
9232     (native-inputs
9233      `(("pkg-config" ,pkg-config)
9234        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
9235        ("gnome-common" ,gnome-common)
9236        ("which" ,which)
9237        ("intltool" ,intltool)
9238        ("yelp-tools" ,yelp-tools)
9239        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
9240     (inputs
9241      `(("atk" ,atk)
9242        ("gtk" ,gtk+)))
9243     (synopsis "GNOME hexadecimal editor")
9244     (description "The GHex program can view and edit files in two ways:
9245 hexadecimal or ASCII.  It is useful for editing binary files in general.")
9246     (home-page "https://wiki.gnome.org/Apps/Ghex")
9247     (license license:gpl2)))
9248
9249 (define-public libdazzle
9250   (package
9251     (name "libdazzle")
9252     (version "3.34.1")
9253     (source (origin
9254               (method url-fetch)
9255               (uri (string-append "mirror://gnome/sources/libdazzle/"
9256                                   (version-major+minor version) "/"
9257                                   "libdazzle-" version ".tar.xz"))
9258               (sha256
9259                (base32
9260                 "01cmcrd75b7ns7j2b4p6h7pv68vjhkcl9zbvzzx7pf4vknxir61x"))))
9261     (build-system meson-build-system)
9262     (arguments
9263      `(#:phases
9264        (modify-phases %standard-phases
9265          (add-before 'check 'pre-check
9266            (lambda _
9267              ;; Tests require a running X server.
9268              (system "Xvfb :1 &")
9269              (setenv "DISPLAY" ":1")
9270              #t)))))
9271     (native-inputs
9272      `(("glib" ,glib "bin")             ; glib-compile-resources
9273        ("pkg-config" ,pkg-config)
9274        ;; For tests.
9275        ("xorg-server" ,xorg-server-for-tests)))
9276     (inputs
9277      `(("glib" ,glib)
9278        ("gobject-introspection" ,gobject-introspection)
9279        ("gtk+" ,gtk+)
9280        ("vala" ,vala)))
9281     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
9282     (synopsis "Companion library to GObject and Gtk+")
9283     (description "The libdazzle library is a companion library to GObject and
9284 Gtk+.  It provides various features that the authors wish were in the
9285 underlying library but cannot for various reasons.  In most cases, they are
9286 wildly out of scope for those libraries.  In other cases, they are not quite
9287 generic enough to work for everyone.")
9288     (license license:gpl3+)))
9289
9290 (define-public evolution
9291   (package
9292     (name "evolution")
9293     (version "3.34.2")
9294     (source (origin
9295               (method url-fetch)
9296               (uri (string-append "mirror://gnome/sources/evolution/"
9297                                   (version-major+minor version) "/"
9298                                   "evolution-" version ".tar.xz"))
9299               (sha256
9300                (base32
9301                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))))
9302     (build-system cmake-build-system)
9303     (arguments
9304      `(#:imported-modules (,@%cmake-build-system-modules
9305                            (guix build glib-or-gtk-build-system))
9306        #:modules ((guix build cmake-build-system)
9307                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
9308                   (guix build utils))
9309        #:configure-flags
9310        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
9311              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
9312                                           ; in four years and cannot be built.
9313        #:phases
9314        (modify-phases %standard-phases
9315          ;; The build system attempts to install user interface modules to the
9316          ;; output directory of the "evolution-data-server" package.  This
9317          ;; change redirects that change.
9318          (add-after 'unpack 'patch-ui-module-dir
9319            (lambda* (#:key outputs #:allow-other-keys)
9320              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
9321                (("\\$\\{edsuimoduledir\\}")
9322                 (string-append (assoc-ref outputs "out")
9323                                "/lib/evolution-data-server/ui-modules")))
9324              #t))
9325          (add-after 'install 'glib-or-gtk-compile-schemas
9326            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
9327          (add-after 'install 'glib-or-gtk-wrap
9328            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
9329     (native-inputs
9330      `(("glib" ,glib "bin")             ; glib-mkenums
9331        ("pkg-config" ,pkg-config)
9332        ("intltool" ,intltool)
9333        ("itstool" ,itstool)))
9334     (inputs
9335      `(("enchant" ,enchant)
9336        ("evolution-data-server" ,evolution-data-server) ; must be the same version
9337        ("gcr" ,gcr)
9338        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9339        ("gnome-autoar" ,gnome-autoar)
9340        ("gnome-desktop" ,gnome-desktop)
9341        ("gspell" ,gspell)
9342        ("highlight" ,highlight)
9343        ("libcanberra" ,libcanberra)
9344        ("libgweather" ,libgweather)
9345        ("libnotify" ,libnotify)
9346        ("libsoup" ,libsoup)
9347        ("nss" ,nss)
9348        ("openldap" ,openldap)
9349        ("webkitgtk" ,webkitgtk)
9350        ("ytnef" ,ytnef)))
9351     (home-page "https://gitlab.gnome.org/GNOME/evolution")
9352     (synopsis "Manage your email, contacts and schedule")
9353     (description "Evolution is a personal information management application
9354 that provides integrated mail, calendaring and address book
9355 functionality.")
9356     ;; See COPYING for details.
9357     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
9358                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
9359                    license:lgpl2.1+))))  ; smime/lib/*
9360
9361 (define-public gthumb
9362   (package
9363     (name "gthumb")
9364     (version "3.8.2")
9365     (source (origin
9366               (method url-fetch)
9367               (uri (string-append "mirror://gnome/sources/gthumb/"
9368                                   (version-major+minor version) "/"
9369                                   "gthumb-" version ".tar.xz"))
9370               (sha256
9371                (base32
9372                 "15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
9373     (build-system meson-build-system)
9374     (arguments
9375      `(#:glib-or-gtk? #t
9376        #:configure-flags
9377        ;; Ensure the RUNPATH contains all installed library locations.
9378        (list (string-append "-Dc_link_args=-Wl,-rpath="
9379                             (assoc-ref %outputs "out")
9380                             "/lib/gthumb/extensions")
9381              (string-append "-Dcpp_link_args=-Wl,-rpath="
9382                             (assoc-ref %outputs "out")
9383                             "/lib/gthumb/extensions"))))
9384     (native-inputs
9385      `(("pkg-config" ,pkg-config)
9386        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
9387        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
9388        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9389        ("intltool" ,intltool)
9390        ("itstool" ,itstool)))
9391     (inputs
9392      `(("exiv2" ,exiv2)
9393        ("gtk" ,gtk+)
9394        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9395        ("gstreamer" ,gstreamer)
9396        ("clutter" ,clutter)
9397        ("clutter-gst" ,clutter-gst)
9398        ("clutter-gtk" ,clutter-gtk)
9399        ("libjpeg" ,libjpeg-turbo)
9400        ("libtiff" ,libtiff)
9401        ("libraw" ,libraw)))
9402     (home-page "https://wiki.gnome.org/Apps/Gthumb")
9403     (synopsis "GNOME image viewer and browser")
9404     (description "GThumb is an image viewer, browser, organizer, editor and
9405 advanced image management tool")
9406     (license license:gpl2+)))
9407
9408 (define-public terminator
9409   (package
9410     (name "terminator")
9411     (version "1.91")
9412     (source (origin
9413               (method url-fetch)
9414               (uri (string-append "https://launchpad.net/" name "/"
9415                                   "gtk3/" version "/" "+download/"
9416                                   name "-" version ".tar.gz"))
9417               (sha256
9418                (base32
9419                 "0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
9420     (build-system python-build-system)
9421     (native-inputs
9422      `(("intltool" ,intltool)
9423        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
9424        ("gettext" ,gettext-minimal)
9425        ("pkg-config" ,pkg-config)))
9426     (inputs
9427      `(("cairo" ,cairo)
9428        ("gobject-introspection" ,gobject-introspection)
9429        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9430        ("python2-pycairo" ,python2-pycairo)
9431        ("python2-pygobject" ,python2-pygobject)
9432        ("python2-psutil" ,python2-psutil)
9433        ("vte" ,vte)))
9434     (arguments
9435      `(#:python ,python-2                          ; Python 3 isn't supported
9436        #:imported-modules ((guix build glib-or-gtk-build-system)
9437                            ,@%python-build-system-modules)
9438        #:modules ((guix build python-build-system)
9439                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
9440                   (guix build utils))
9441        #:phases
9442        (modify-phases %standard-phases
9443          (add-after
9444           'install 'wrap-program
9445           (lambda* (#:key outputs #:allow-other-keys)
9446             (let ((prog (string-append (assoc-ref outputs "out")
9447                                        "/bin/terminator")))
9448               (wrap-program prog
9449                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
9450                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9451               #t)))
9452          (add-after 'wrap-program 'glib-or-gtk-wrap
9453            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
9454     (home-page "https://gnometerminator.blogspot.com/")
9455     (synopsis "Store and run multiple GNOME terminals in one window")
9456     (description
9457      "Terminator allows you to run multiple GNOME terminals in a grid and
9458 +tabs, and it supports drag and drop re-ordering of terminals.")
9459     (license license:gpl2)))
9460
9461 (define-public libhandy
9462   (package
9463     (name "libhandy")
9464     (version "0.0.12")
9465     (source
9466      (origin
9467        (method git-fetch)
9468        (uri (git-reference
9469              (url "https://source.puri.sm/Librem5/libhandy")
9470              (commit (string-append "v" version))))
9471        (file-name (git-file-name name version))
9472        (sha256
9473         (base32 "09wlknarzsbk9hr5ws6s7x5kibkhx9ayrbhshfqib4zkhq2f76hw"))))
9474     (build-system meson-build-system)
9475     (arguments
9476      `(#:configure-flags
9477        '("-Dglade_catalog=disabled"
9478          "-Dgtk_doc=true")
9479        #:phases
9480        (modify-phases %standard-phases
9481          (add-before 'check 'pre-check
9482            (lambda _
9483              ;; Tests require a running X server.
9484              (system "Xvfb :1 &")
9485              (setenv "DISPLAY" ":1")
9486              #t)))))
9487     (inputs
9488      `(("gtk+" ,gtk+)))
9489     (native-inputs
9490      `(("glib:bin" ,glib "bin")
9491        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
9492        ("vala" ,vala)
9493        ("gtk-doc" ,gtk-doc)
9494        ("pkg-config" ,pkg-config)
9495        ("gettext" ,gettext-minimal)
9496
9497        ;; Test suite dependencies.
9498        ("xorg-server" ,xorg-server-for-tests)
9499        ("hicolor-icon-theme" ,hicolor-icon-theme)))
9500     (home-page "https://source.puri.sm/Librem5/libhandy")
9501     (synopsis "Library full of GTK+ widgets for mobile phones")
9502     (description "The aim of the handy library is to help with developing user
9503 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
9504 for usage on small and big screens.")
9505     (license license:lgpl2.1+)))
9506
9507 (define-public libgit2-glib
9508   (package
9509     (name "libgit2-glib")
9510     (version "0.99.0.1")
9511     (source (origin
9512               (method url-fetch)
9513               (uri (string-append "mirror://gnome/sources/" name "/"
9514                                   (version-major+minor version) "/"
9515                                   name "-" version ".tar.xz"))
9516               (sha256
9517                (base32
9518                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
9519     (build-system meson-build-system)
9520     (native-inputs
9521      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
9522        ("gobject-introspection" ,gobject-introspection)
9523        ("pkg-config" ,pkg-config)
9524        ("python-pygobject" ,python-pygobject)
9525        ("python-wrapper" ,python-wrapper)
9526        ("vala" ,vala)))
9527     (inputs
9528      `(("glib" ,glib)
9529        ("libssh2" ,libssh2)))
9530     (propagated-inputs
9531      `(;; In Requires of libgit2-glib.pc.
9532        ("libgit2" ,libgit2)))
9533     (synopsis "GLib wrapper around the libgit2 Git access library")
9534     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
9535 access library.  It only implements the core plumbing functions, not really the
9536 higher level porcelain stuff.")
9537     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
9538     (license license:gpl2+)))
9539
9540 (define-public gitg
9541   (package
9542     (name "gitg")
9543     (version "3.32.1")
9544     (source (origin
9545               (method url-fetch)
9546               (uri (string-append "mirror://gnome/sources/" name "/"
9547                                   (version-major+minor version) "/"
9548                                   name "-" version ".tar.xz"))
9549               (sha256
9550                (base32
9551                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
9552     (build-system meson-build-system)
9553     (arguments
9554      `(#:glib-or-gtk? #t
9555        #:phases
9556        (modify-phases %standard-phases
9557          (add-after 'unpack 'disable-post-install-partially
9558            (lambda _
9559              (substitute* "meson_post_install.py"
9560                (("'python'") ; there are no python sources to compile
9561                 (string-append "'" (which "true") "'"))
9562                (("gtk-update-icon-cache") (which "true")))
9563              #t))
9564          (add-after 'unpack 'fix-test-sources
9565            (lambda _
9566              (substitute* "tests/libgitg/test-commit.vala"
9567                (("/bin/bash") (which "bash")))
9568              #t))
9569          (add-after 'glib-or-gtk-wrap 'wrap-typelib
9570            (lambda* (#:key outputs #:allow-other-keys)
9571              (let ((prog (string-append (assoc-ref outputs "out")
9572                                         "/bin/gitg")))
9573                (wrap-program prog
9574                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9575                #t))))))
9576     (inputs
9577      `(("glib" ,glib)
9578        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9579        ("gtk+" ,gtk+)
9580        ("gtkspell3" ,gtkspell3)
9581        ("gtksourceview" ,gtksourceview-3)
9582        ("json-glib" ,json-glib)
9583        ("libdazzle" ,libdazzle)
9584        ("libgee" ,libgee)
9585        ("libgit2-glib" ,libgit2-glib)
9586        ("libpeas" ,libpeas)
9587        ("libsecret" ,libsecret)
9588        ("libsoup" ,libsoup)
9589        ("libxml2" ,libxml2)))
9590     (native-inputs
9591      `(("glib:bin" ,glib "bin")
9592        ("gtk+:bin" ,gtk+ "bin")
9593        ("gobject-introspection" ,gobject-introspection)
9594        ("intltool" ,intltool)
9595        ("pkg-config" ,pkg-config)
9596        ("vala" ,vala)))
9597     (synopsis "Graphical user interface for git")
9598     (description
9599      "gitg is a graphical user interface for git.  It aims at being a small,
9600 fast and convenient tool to visualize the history of git repositories.
9601 Besides visualization, gitg also provides several utilities to manage your
9602 repository and commit your work.")
9603     (home-page "https://wiki.gnome.org/Apps/Gitg")
9604     (license license:gpl2+)))
9605
9606 (define-public gamin
9607   (package
9608     (name "gamin")
9609     (version "0.1.10")
9610     (source (origin
9611               (method url-fetch)
9612               (uri (string-append "mirror://gnome/sources/" name "/"
9613                                   (version-major+minor version) "/"
9614                                   name "-" version ".tar.bz2"))
9615               (sha256
9616                (base32
9617                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
9618     (build-system gnu-build-system)
9619     (arguments
9620      `(#:phases
9621        (modify-phases %standard-phases
9622          (add-after 'unpack 'remove-deprecated-macro
9623            (lambda _
9624              (substitute* '("server/gam_node.c"
9625                             "server/gam_subscription.h"
9626                             "server/gam_node.h"
9627                             "server/gam_subscription.c")
9628                (("G_CONST_RETURN") "const"))
9629              #t)))))
9630     (inputs
9631      `(("glib" ,glib)))
9632     (native-inputs
9633      `(("intltool" ,intltool)
9634        ("pkg-config" ,pkg-config)))
9635     (home-page "https://people.gnome.org/~veillard/gamin/")
9636     (synopsis "File alteration monitor")
9637     (description
9638      "Gamin is a file and directory monitoring system defined to be a subset
9639 of the FAM (File Alteration Monitor) system.  This is a service provided by a
9640 library which detects when a file or a directory has been modified.")
9641     (license license:gpl2+)))
9642
9643 (define-public gnome-mahjongg
9644   (package
9645     (name "gnome-mahjongg")
9646     (version "3.35.1")
9647     (source (origin
9648               (method git-fetch)
9649               (uri (git-reference
9650                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
9651                     (commit version)))
9652               (file-name (git-file-name name version))
9653               (sha256
9654                (base32
9655                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
9656     (build-system meson-build-system)
9657     (arguments
9658      `(#:glib-or-gtk? #t))
9659     (native-inputs
9660      `(("appstream-glib" ,appstream-glib)
9661        ("gettext" ,gettext-minimal)
9662        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
9663        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
9664        ("itstool" ,itstool)
9665        ("pkg-config" ,pkg-config)
9666        ("vala" ,vala)))
9667     (propagated-inputs
9668      `(("dconf" ,dconf)))
9669     (inputs
9670      `(("glib" ,glib)
9671        ("gtk+" ,gtk+)
9672        ("librsvg" ,librsvg)))
9673     (synopsis "Mahjongg tile-matching game")
9674     (description "GNOME Mahjongg is a game based on the classic Chinese
9675 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
9676 and a high score table.")
9677     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
9678     (license license:gpl2+)))
9679
9680 (define-public gnome-themes-extra
9681   (package
9682     (name "gnome-themes-extra")
9683     (version "3.28")
9684     (source
9685      (origin
9686        (method url-fetch)
9687        (uri (string-append "mirror://gnome/sources/" name "/"
9688                            (version-major+minor version) "/" name "-"
9689                            version ".tar.xz"))
9690        (sha256
9691         (base32
9692          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
9693     (build-system gnu-build-system)
9694     (arguments
9695      '(#:configure-flags
9696        ;; Don't create 'icon-theme.cache'.
9697        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
9698               (true      (string-append coreutils "/bin/true")))
9699          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
9700     (native-inputs
9701      `(("glib:bin" ,glib "bin")
9702        ("intltool" ,intltool)
9703        ("pkg-config" ,pkg-config)))
9704     (inputs
9705      `(("glib" ,glib)
9706        ("gtk+" ,gtk+)
9707        ("gtk+-2" ,gtk+-2)
9708        ("librsvg" ,librsvg)
9709        ("libxml2" ,libxml2)))
9710     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
9711     (synopsis "GNOME Extra Themes")
9712     (description "This package provides themes and related elements that don't
9713 really fit in other upstream packages.  It offers legacy support for GTK+ 2
9714 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
9715 index files needed for Adwaita to be used outside of GNOME.")
9716     (license license:lgpl2.1+)))
9717
9718 (define-public polari
9719   (package
9720     (name "polari")
9721     (version "3.32.2")
9722     (source (origin
9723               (method url-fetch)
9724               (uri (string-append "mirror://gnome/sources/polari/"
9725                                   (version-major+minor version)
9726                                   "/polari-" version ".tar.xz"))
9727               (sha256
9728                (base32
9729                 "0h0w9j3y067l911gpj446b3a2w1i2vzr1w2a7cz7i5rhn6qkf2sp"))))
9730     (build-system meson-build-system)
9731     (arguments
9732      `(#:glib-or-gtk? #t
9733        #:phases
9734        (modify-phases %standard-phases
9735          (add-after 'unpack 'skip-gtk-update-icon-cache
9736            (lambda _
9737              (substitute* "meson/meson-postinstall.sh"
9738                (("gtk-update-icon-cache") (which "true")))
9739              #t))
9740          (add-after 'glib-or-gtk-wrap 'wrap-typelib
9741            (lambda* (#:key outputs #:allow-other-keys)
9742              (let ((prog (string-append (assoc-ref outputs "out")
9743                                         "/bin/polari")))
9744                (wrap-program prog
9745                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9746                #t))))))
9747     (inputs
9748      `(("glib" ,glib)
9749        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9750        ("gspell" ,gspell)
9751        ("gtk+" ,gtk+)
9752        ("gjs" ,gjs)
9753        ("libsecret" ,libsecret)
9754        ("libsoup" ,libsoup)
9755        ("telepathy-glib" ,telepathy-glib)
9756        ("telepathy-logger" ,telepathy-logger)))
9757     (native-inputs
9758      `(("glib:bin" ,glib "bin")
9759        ("gobject-introspection" ,gobject-introspection)
9760        ("intltool" ,intltool)
9761        ("pkg-config" ,pkg-config)
9762        ("yelp-tools" ,yelp-tools)))
9763     (propagated-inputs
9764      `(("telepathy-idle" ,telepathy-idle)
9765        ("telepathy-mission-control" ,telepathy-mission-control)))
9766     (synopsis "Simple IRC Client")
9767     (description
9768      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
9769 integrate seamlessly with the GNOME desktop.")
9770     (home-page "https://wiki.gnome.org/Apps/Polari")
9771     (license license:gpl2+)))
9772
9773 (define-public gnome-boxes
9774   (package
9775     (name "gnome-boxes")
9776     (version "3.35.91")
9777     (source
9778      (origin
9779        (method url-fetch)
9780        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
9781                            (version-major+minor version) "/"
9782                            "gnome-boxes-" version ".tar.xz"))
9783        (sha256
9784         (base32
9785          "0l96spz6pc8q4l5p9a58cc0kgvdr7pbc89hy6ixn72k5pl3s7fxj"))))
9786     (build-system meson-build-system)
9787     (arguments
9788      '(#:glib-or-gtk? #t
9789        #:configure-flags (list "-Drdp=false"
9790                                (string-append "-Dc_link_args=-Wl,-rpath="
9791                                               (assoc-ref %outputs "out")
9792                                               "/lib/gnome-boxes"))))
9793     (native-inputs
9794      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
9795        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
9796        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9797        ("itstool" ,itstool)
9798        ("intltool" ,intltool)
9799        ("vala" ,vala)
9800        ("pkg-config" ,pkg-config)))
9801     (inputs
9802      `(("libarchive" ,libarchive)
9803        ("gtk" ,gtk+)
9804        ("gtk-vnc" ,gtk-vnc)
9805        ("libosinfo" ,libosinfo)
9806        ("libsecret" ,libsecret)
9807        ("libsoup" ,libsoup)
9808        ("libusb" ,libusb)
9809        ("libvirt" ,libvirt)
9810        ("libvirt-glib" ,libvirt-glib)
9811        ("libxml" ,libxml2)
9812        ("spice-gtk" ,spice-gtk)
9813        ("sparql-query" ,sparql-query)
9814        ("vte" ,vte)
9815        ("webkitgtk" ,webkitgtk)
9816        ("tracker" ,tracker)
9817        ("libgudev" ,libgudev)))
9818     (home-page "https://wiki.gnome.org/Apps/Boxes")
9819     (synopsis "View, access, and manage remote and virtual systems")
9820     (description "GNOME Boxes is a simple application to view, access, and
9821 manage remote and virtual systems.")
9822     (license (list
9823               ;; For data/icons/empty-boxes.png.
9824               license:cc-by2.0
9825               ;; For all others.
9826               license:lgpl2.0+))))
9827
9828 (define-public geary
9829   (package
9830     (name "geary")
9831     (version "3.34.1")
9832     (source (origin
9833               (method git-fetch)
9834               (uri (git-reference
9835                     (url "https://gitlab.gnome.org/GNOME/geary")
9836                     (commit version)))
9837               (file-name (git-file-name name version))
9838               (sha256
9839                (base32
9840                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
9841     (build-system meson-build-system)
9842     (arguments
9843      `(#:glib-or-gtk? #t
9844        #:phases (modify-phases %standard-phases
9845                   (add-after 'unpack 'disable-failing-tests
9846                     (lambda _
9847                       (substitute* "test/meson.build"
9848                         (("test\\('client-tests', geary_test_client_bin\\)")
9849                          ""))
9850                       #t))
9851                   (add-after 'unpack 'disable-postinstall-script
9852                     (lambda _
9853                       (substitute* "meson.build"
9854                         (("meson.add_install_script\\(\
9855 join_paths\\('build-aux', 'post_install.py'\\)\\)")
9856                          ""))
9857                       #t))
9858                   (add-before 'check 'setup-xvfb
9859                     (lambda _
9860                       (system "Xvfb :1 &")
9861                       (setenv "DISPLAY" ":1")
9862                       #t)))))
9863     (inputs
9864      `(("enchant" ,enchant)
9865        ("folks" ,folks)
9866        ("gcr" ,gcr)
9867        ("glib" ,glib)
9868        ("gmime" ,gmime-2.6)
9869        ("gnome-online-accounts:lib"
9870         ,gnome-online-accounts "lib")
9871        ("gspell" ,gspell)
9872        ("gtk+" ,gtk+)
9873        ("iso-codes" ,iso-codes)
9874        ("json-glib" ,json-glib)
9875        ("libcanberra" ,libcanberra)
9876        ("libgee" ,libgee)
9877        ("libhandy" ,libhandy)
9878        ("libpeas" ,libpeas)
9879        ("libsecret" ,libsecret)
9880        ("libunwind" ,libunwind)
9881        ("sqlite" ,sqlite)
9882        ("webkitgtk" ,webkitgtk)
9883        ("ytnef" ,ytnef)))
9884     (native-inputs
9885      `(("appstream-glib" ,appstream-glib)
9886        ("cmake-minimal" ,cmake-minimal)
9887        ("desktop-file-utils" ,desktop-file-utils)
9888        ("gettext" ,gettext-minimal)
9889        ("glib:bin" ,glib "bin")
9890        ("gobject-introspection" ,gobject-introspection)
9891        ("itstool" ,itstool)
9892        ("libarchive" ,libarchive)
9893        ("libxml2" ,libxml2)
9894        ("pkg-config" ,pkg-config)
9895        ("vala" ,vala)
9896        ("xvfb" ,xorg-server-for-tests)))
9897     (synopsis "GNOME email application built around conversations")
9898     (description
9899      "Geary collects related messages together into conversations,
9900 making it easy to find and follow your discussions.  Full-text and keyword
9901 search makes it easy to find the email you are looking for.  Geary's
9902 full-featured composer lets you send rich, styled text with images, links, and
9903 lists, but also send lightweight, easy to read text messages.  Geary
9904 automatically picks up your existing GNOME Online Accounts, and adding more is
9905 easy.  Geary has a clean, fast, modern interface that works like you want it
9906 to.")
9907     (home-page "https://wiki.gnome.org/Apps/Geary")
9908     (license (list
9909               ;; geary
9910               license:lgpl2.1+
9911               ;; icons
9912               license:cc-by3.0
9913               license:cc-by-sa3.0
9914               license:public-domain
9915               ;; snowball
9916               license:bsd-2))))
9917
9918 (define-public parlatype
9919   ;; This is one commit away from 2.0, because the latter introduced
9920   ;; a regression in ASR.
9921   (let ((commit "7d22ead13ef7578f99d24146663cc1bdb7d8c2a9")
9922         (revision "0"))
9923     (package
9924       (name "parlatype")
9925       (version (git-version "2.0" revision commit))
9926       (source
9927        (origin
9928          (method git-fetch)
9929          (uri (git-reference
9930                (url "https://github.com/gkarsay/parlatype.git")
9931                (commit commit)))
9932          (file-name (git-file-name name version))
9933          (sha256
9934           (base32 "0r3k3qczbzi7bs5s1rddhpsnadyr805df40bqkx0srlxgh5mfghf"))))
9935       (build-system meson-build-system)
9936       (arguments
9937        `(#:glib-or-gtk? #t
9938          #:tests? #f                    ;require internet access
9939          #:phases
9940          (modify-phases %standard-phases
9941            (add-after 'install 'wrap-parlatype
9942              ;; Add gstreamer plugin provided in this package to system's
9943              ;; plugins.
9944              (lambda* (#:key outputs #:allow-other-keys)
9945                (let* ((out (assoc-ref outputs "out"))
9946                       (gst-plugin-path (string-append
9947                                         out "/lib/gstreamer-1.0/"
9948                                         ":"
9949                                         (getenv "GST_PLUGIN_SYSTEM_PATH"))))
9950                  (wrap-program (string-append out "/bin/parlatype")
9951                    `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
9952                #t)))))
9953       (native-inputs
9954        `(("appstream-glib" ,appstream-glib)
9955          ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
9956          ("gettext" ,gettext-minimal)
9957          ("glib" ,glib "bin")           ;for glib-compile-resources
9958          ("pkg-config" ,pkg-config)
9959          ("yelp-tools" ,yelp-tools)))
9960       (inputs
9961        `(("gst-plugins-base" ,gst-plugins-base)
9962          ("gst-plugins-good" ,gst-plugins-good)
9963          ("gstreamer" ,gstreamer)
9964          ("gtk+" ,gtk+)
9965          ("pocketsphinx" ,pocketsphinx)
9966          ("pulseaudio" ,pulseaudio)
9967          ("sphinxbase" ,sphinxbase)))
9968       (home-page "http://gkarsay.github.io/parlatype/")
9969       (synopsis "GNOME audio player for transcription")
9970       (description "Parlatype is an audio player for the GNOME desktop
9971 environment.  Its main purpose is the manual transcription of spoken
9972 audio files.")
9973       (license license:gpl3+))))
9974
9975 (define-public jsonrpc-glib
9976   (package
9977     (name "jsonrpc-glib")
9978     (version "3.34.0")
9979     (source (origin
9980               (method url-fetch)
9981               (uri (string-append "mirror://gnome/sources/" name "/"
9982                                   (version-major+minor version) "/"
9983                                    name "-" version ".tar.xz"))
9984               (sha256
9985                (base32
9986                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
9987     (build-system meson-build-system)
9988     (inputs
9989      `(("json-glib" ,json-glib)
9990        ("glib" ,glib)))
9991     (native-inputs
9992      `(("pkg-config" ,pkg-config)
9993        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
9994        ("gobject-introspection" ,gobject-introspection)
9995        ("vala" ,vala)))
9996     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
9997     (synopsis "JSON-RPC library for GLib")
9998     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
9999 peers in either a synchronous or asynchronous fashion.  It also allows
10000 communicating using the GVariant serialization format instead of JSON when
10001 both peers support it.  You might want that when communicating on a single
10002 host to avoid parser overhead and memory-allocator fragmentation.")
10003     (license license:lgpl2.1+)))