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.34.0")
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                 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
1333     (build-system meson-build-system)
1334     (arguments
1335      '(#:configure-flags '("-Dlogind=libelogind")
1336        #:phases
1337        (modify-phases %standard-phases
1338          (add-after 'unpack 'skip-gtk-update-icon-cache
1339            ;; Don't create 'icon-theme.cache'.
1340            (lambda _
1341              (substitute* "meson_post_install.py"
1342                (("gtk-update-icon-cache") "true"))
1343              #t)))))
1344     (native-inputs
1345      `(("glib:bin" ,glib "bin")
1346        ("intltool" ,intltool)
1347        ("pkg-config" ,pkg-config)
1348        ("docbook-xml" ,docbook-xml)
1349        ("docbook-xsl" ,docbook-xsl)
1350        ("libxml2" ,libxml2)
1351        ("libxslt" ,libxslt)))
1352     (inputs
1353      `(("elogind" ,elogind)
1354        ("glib" ,glib)
1355        ("appstream-glib" ,appstream-glib)
1356        ("gnome-settings-daemon" ,gnome-settings-daemon)
1357        ("gtk+" ,gtk+)
1358        ("libcanberra" ,libcanberra)
1359        ("libdvdread" ,libdvdread)
1360        ("libnotify" ,libnotify)
1361        ("libpwquality" ,libpwquality)
1362        ("libsecret" ,libsecret)
1363        ("udisks" ,udisks)))
1364     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
1365     (synopsis "Disk management utility for GNOME")
1366     (description "Disk management utility for GNOME.")
1367     (license license:gpl2+)))
1368
1369 (define-public gnome-font-viewer
1370   (package
1371     (name "gnome-font-viewer")
1372     (version "3.30.0")
1373     (source (origin
1374               (method url-fetch)
1375               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
1376                                   (version-major+minor version)
1377                                   "/gnome-font-viewer-" version ".tar.xz"))
1378               (sha256
1379                (base32
1380                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
1381     (build-system meson-build-system)
1382     (arguments
1383      '(#:phases
1384        (modify-phases %standard-phases
1385          (add-after 'unpack 'patch-post-install-script
1386            (lambda _
1387              (substitute* "meson-postinstall.sh"
1388                (("update-desktop-database") (which "true")))
1389              #t)))))
1390     (native-inputs
1391      `(("gettext" ,gettext-minimal)
1392        ("glib:bin" ,glib "bin")
1393        ("pkg-config" ,pkg-config)))
1394     (inputs
1395      `(("glib" ,glib)
1396        ("gnome-desktop" ,gnome-desktop)
1397        ("gtk+" ,gtk+)))
1398     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
1399     (synopsis "GNOME Fonts")
1400     (description "Application to show you the fonts installed on your computer
1401 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
1402 the font would look under various sizes.")
1403     (license license:gpl2+)))
1404
1405 (define-public gcr
1406   (package
1407     (name "gcr")
1408     (version "3.34.0")
1409     (source (origin
1410               (method url-fetch)
1411               (uri (string-append "mirror://gnome/sources/" name "/"
1412                                   (version-major+minor version)  "/"
1413                                   name "-" version ".tar.xz"))
1414               (sha256
1415                (base32
1416                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
1417     (build-system gnu-build-system)
1418     (arguments
1419      '(#:phases
1420        (modify-phases %standard-phases
1421          ;; These fail because /var/lib/dbus/machine-id is not present in the
1422          ;; build environment.
1423          (add-after 'unpack 'disable-failing-tests
1424            (lambda _
1425              (substitute* "Makefile.in"
1426                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
1427                 ""))
1428              #t))
1429          (add-before 'check 'pre-check
1430            (lambda _
1431              ;; Some tests expect to write to $HOME.
1432              (setenv "HOME" "/tmp")
1433              #t)))))
1434     (inputs
1435      `(("dbus" ,dbus)
1436        ("gnupg" ,gnupg)                ;called as a child process during tests
1437        ("libgcrypt" ,libgcrypt)))
1438     (native-inputs
1439      `(("python" ,python-wrapper)       ;for tests
1440        ("pkg-config" ,pkg-config)
1441        ("gettext" ,gettext-minimal)
1442        ("glib" ,glib "bin")
1443        ("gobject-introspection" ,gobject-introspection)
1444        ("libxml2" ,libxml2)
1445        ("vala" ,vala)
1446        ("xsltproc" ,libxslt)))
1447     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
1448     (propagated-inputs
1449      `(("p11-kit" ,p11-kit)
1450        ("glib" ,glib)
1451        ("gtk+" ,gtk+)))
1452     (home-page "https://www.gnome.org")
1453     (synopsis "Libraries for displaying certificates and accessing key stores")
1454     (description
1455      "The GCR package contains libraries used for displaying certificates and
1456 accessing key stores.  It also provides the viewer for crypto files on the
1457 GNOME Desktop.")
1458     (license license:lgpl2.1+)))
1459
1460 (define-public libgnome-keyring
1461   (package
1462     (name "libgnome-keyring")
1463     (version "3.12.0")
1464     (source (origin
1465              (method url-fetch)
1466              (uri (string-append "mirror://gnome/sources/" name "/"
1467                                  (version-major+minor version)  "/"
1468                                  name "-" version ".tar.xz"))
1469              (sha256
1470               (base32
1471                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
1472     (build-system gnu-build-system)
1473     (inputs
1474      `(("libgcrypt" ,libgcrypt)
1475        ("dbus" ,dbus)))
1476     (native-inputs
1477      `(("pkg-config" ,pkg-config)
1478        ("glib" ,glib "bin")
1479        ("intltool" ,intltool)))
1480     (propagated-inputs
1481      ;; Referred to in .h files and .pc.
1482      `(("glib" ,glib)))
1483     (home-page "https://www.gnome.org")
1484     (synopsis "Accessing passwords from the GNOME keyring")
1485     (description
1486      "Client library to access passwords from the GNOME keyring.")
1487
1488     ;; Though a couple of files are LGPLv2.1+.
1489     (license license:lgpl2.0+)))
1490
1491 (define-public gnome-keyring
1492   (package
1493     (name "gnome-keyring")
1494     (version "3.34.0")
1495     (source (origin
1496              (method url-fetch)
1497              (uri (string-append "mirror://gnome/sources/" name "/"
1498                                  (version-major+minor version)  "/"
1499                                  name "-" version ".tar.xz"))
1500              (sha256
1501               (base32
1502                "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
1503     (build-system gnu-build-system)
1504     (arguments
1505      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
1506                    ;not exist
1507        #:configure-flags
1508        (list
1509         (string-append "--with-pkcs11-config="
1510                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
1511         (string-append "--with-pkcs11-modules="
1512                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
1513        #:phases
1514        (modify-phases %standard-phases
1515          (add-after 'unpack 'fix-/bin/sh-reference
1516            (lambda _
1517              (substitute* "po/Makefile.in.in"
1518                (("/bin/sh") (which "sh")))
1519              #t))
1520          (add-after 'unpack 'fix-docbook
1521            (lambda* (#:key inputs #:allow-other-keys)
1522              (substitute* "docs/Makefile.am"
1523                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1524                 (string-append (assoc-ref inputs "docbook-xsl")
1525                                "/xml/xsl/docbook-xsl-"
1526                                ,(package-version docbook-xsl)
1527                                "/manpages/docbook.xsl")))
1528              (setenv "XML_CATALOG_FILES"
1529                      (string-append (assoc-ref inputs "docbook-xml")
1530                                     "/xml/dtd/docbook/catalog.xml"))
1531              ;; Rerun the whole thing to avoid version mismatch ("This is
1532              ;; Automake 1.15.1, but the definition used by this
1533              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
1534              ;; use 'autoreconf' because it insists on running 'libtoolize'.
1535              (invoke "autoconf")
1536              (invoke "aclocal")
1537              (invoke "automake" "-ac"))))))
1538     (inputs
1539      `(("libgcrypt" ,libgcrypt)
1540        ("linux-pam" ,linux-pam)
1541        ("openssh" ,openssh)
1542        ("dbus" ,dbus)
1543        ("gcr" ,gcr)))
1544     (native-inputs
1545      `(("pkg-config" ,pkg-config)
1546        ("glib" ,glib "bin")
1547        ("glib" ,glib) ; for m4 macros
1548        ("python" ,python-2) ;for tests
1549        ("intltool" ,intltool)
1550        ("autoconf" ,autoconf)
1551        ("automake" ,automake)
1552        ("libxslt" ,libxslt) ;for documentation
1553        ("docbook-xml" ,docbook-xml-4.2)
1554        ("docbook-xsl" ,docbook-xsl)))
1555     (home-page "https://www.gnome.org")
1556     (synopsis "Daemon to store passwords and encryption keys")
1557     (description
1558      "gnome-keyring is a program that keeps passwords and other secrets for
1559 users.  It is run as a daemon in the session, similar to ssh-agent, and other
1560 applications locate it via an environment variable or D-Bus.
1561
1562 The program can manage several keyrings, each with its own master password,
1563 and there is also a session keyring which is never stored to disk, but
1564 forgotten when the session ends.")
1565     (license license:lgpl2.1+)))
1566
1567 (define-public evince
1568   (package
1569     (name "evince")
1570     (version "3.34.2")
1571     (source (origin
1572              (method url-fetch)
1573              (uri (string-append "mirror://gnome/sources/evince/"
1574                                  (version-major+minor version) "/"
1575                                  "evince-" version ".tar.xz"))
1576              (sha256
1577               (base32
1578                "05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w"))))
1579     (build-system glib-or-gtk-build-system)
1580     (arguments
1581      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
1582        #:phases
1583        (modify-phases %standard-phases
1584          (add-before 'install 'skip-gtk-update-icon-cache
1585            ;; Don't create 'icon-theme.cache'.
1586            (lambda _
1587              (substitute* "data/Makefile"
1588                (("gtk-update-icon-cache") "true"))
1589              #t)))))
1590     (inputs
1591      `(("libarchive" ,libarchive)
1592        ("libgxps" ,libgxps)
1593        ("libspectre" ,libspectre)
1594        ("djvulibre" ,djvulibre)
1595        ("ghostscript" ,ghostscript)
1596        ("poppler" ,poppler)
1597        ("libtiff" ,libtiff)
1598        ;; TODO:
1599        ;;   Build libkpathsea as a shared library for DVI support.
1600        ;; ("libkpathsea" ,texlive-bin)
1601        ("gnome-desktop" ,gnome-desktop)
1602        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1603        ("gspell" ,gspell)
1604        ("libgnome-keyring" ,libgnome-keyring)
1605        ("adwaita-icon-theme" ,adwaita-icon-theme)
1606        ("gdk-pixbuf" ,gdk-pixbuf)
1607        ("atk" ,atk)
1608        ("pango" ,pango)
1609        ("gtk+" ,gtk+)
1610        ("glib" ,glib)
1611        ("libxml2" ,libxml2)
1612        ("libsm" ,libsm)
1613        ("libice" ,libice)
1614        ("shared-mime-info" ,shared-mime-info)
1615        ("dconf" ,dconf)
1616        ("libcanberra" ,libcanberra)
1617        ("libsecret" ,libsecret)
1618
1619        ;; For tests.
1620        ("dogtail" ,python2-dogtail)))
1621     (native-inputs
1622      `(("itstool" ,itstool)
1623        ("intltool" ,intltool)
1624        ("glib" ,glib "bin")
1625        ("gobject-introspection" ,gobject-introspection)
1626        ("pkg-config" ,pkg-config)
1627        ("xmllint" ,libxml2)))
1628     (home-page
1629      "https://www.gnome.org/projects/evince/")
1630     (synopsis "GNOME's document viewer")
1631     (description
1632      "Evince is a document viewer for multiple document formats.  It
1633 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
1634 of Evince is to replace the multiple document viewers that exist
1635 on the GNOME Desktop with a single simple application.")
1636     (license license:gpl2+)))
1637
1638 (define-public gsettings-desktop-schemas
1639   (package
1640     (name "gsettings-desktop-schemas")
1641     (version "3.34.0")
1642     (source
1643      (origin
1644       (method url-fetch)
1645       (uri (string-append "mirror://gnome/sources/" name "/"
1646                           (version-major+minor version)  "/"
1647                           name "-" version ".tar.xz"))
1648       (sha256
1649        (base32
1650         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
1651     (build-system meson-build-system)
1652     (arguments
1653      '(#:phases (modify-phases %standard-phases
1654                   (add-after 'unpack 'patch-schemas
1655                     (lambda* (#:key inputs #:allow-other-keys)
1656                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
1657                         (substitute* (find-files "schemas"
1658                                                  "\\.gschema\\.xml\\.in$")
1659                           ;; Provide the correct file name of the default GNOME
1660                           ;; background, 'adwaita-timed.xml'.
1661                           (("@datadir@/backgrounds/gnome")
1662                            (string-append theme "/share/backgrounds/gnome"))
1663                           ;; Do not reference fonts, that may not exist.
1664                           (("'Source Code Pro 10'") "'Monospace 11'"))
1665                         #t))))))
1666     (inputs
1667      `(("glib" ,glib)
1668        ("gnome-backgrounds" ,gnome-backgrounds)))
1669     (native-inputs
1670      `(("intltool" ,intltool)
1671        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
1672        ("gobject-introspection" ,gobject-introspection)
1673        ("pkg-config" ,pkg-config)))
1674     (home-page "https://launchpad.net/gsettings-desktop-schemas")
1675     (synopsis
1676      "GNOME settings for various desktop components")
1677     (description
1678      "Gsettings-desktop-schemas contains a collection of GSettings schemas
1679 for settings shared by various components of the GNOME desktop.")
1680     (license license:lgpl2.1+)))
1681
1682 (define-public icon-naming-utils
1683   (package
1684     (name "icon-naming-utils")
1685     (version "0.8.90")
1686     (source
1687      (origin
1688       (method url-fetch)
1689       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
1690                           version ".tar.bz2"))
1691       (sha256
1692        (base32
1693         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
1694     (build-system gnu-build-system)
1695     (inputs
1696      `(("perl" ,perl)
1697        ("perl-xml-simple" ,perl-xml-simple)))
1698     (arguments
1699      '(#:phases
1700        (modify-phases %standard-phases
1701          (add-after 'install 'set-load-paths
1702            ;; Tell 'icon-name-mapping' where XML::Simple is.
1703            (lambda* (#:key outputs #:allow-other-keys)
1704              (let* ((out  (assoc-ref outputs "out"))
1705                     (prog (string-append out "/libexec/icon-name-mapping")))
1706                (wrap-program
1707                    prog
1708                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
1709              #t)))))
1710     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
1711     (synopsis
1712      "Utility to implement the Freedesktop Icon Naming Specification")
1713     (description
1714      "To help with the transition to the Freedesktop Icon Naming
1715 Specification, the icon naming utility maps the icon names used by the
1716 GNOME and KDE desktops to the icon names proposed in the specification.")
1717     (license license:lgpl2.1+)))
1718
1719 (define-public gnome-icon-theme
1720   (package
1721     (name "gnome-icon-theme")
1722     (version "3.12.0")
1723     (source
1724      (origin
1725       (method url-fetch)
1726       (uri (string-append "mirror://gnome/sources/" name "/"
1727                           (version-major+minor version)  "/"
1728                           name "-" version ".tar.xz"))
1729       (sha256
1730        (base32
1731         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
1732     (build-system gnu-build-system)
1733     (arguments
1734      '(#:configure-flags
1735        ;; Don't create 'icon-theme.cache'.
1736        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
1737               (true      (string-append coreutils "/bin/true")))
1738          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
1739     (native-inputs
1740      `(("icon-naming-utils" ,icon-naming-utils)
1741        ("intltool" ,intltool)
1742        ("pkg-config" ,pkg-config)))
1743     (home-page "https://wiki.gnome.org/Personalization")
1744     (synopsis "GNOME icon theme")
1745     (description "Icons for the GNOME desktop.")
1746     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
1747
1748 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
1749 (define-public adwaita-icon-theme
1750   (package (inherit gnome-icon-theme)
1751     (name "adwaita-icon-theme")
1752     (version "3.34.3")
1753     (source (origin
1754               (method url-fetch)
1755               (uri (string-append "mirror://gnome/sources/" name "/"
1756                                   (version-major+minor version) "/"
1757                                   name "-" version ".tar.xz"))
1758               (sha256
1759                (base32
1760                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
1761     (native-inputs
1762      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
1763
1764 (define-public tango-icon-theme
1765   (package
1766     (name "tango-icon-theme")
1767     (version "0.8.90")
1768     (source (origin
1769               (method url-fetch)
1770               (uri (string-append "http://tango.freedesktop.org/releases/"
1771                                   "tango-icon-theme-" version ".tar.bz2"))
1772               (sha256
1773                (base32
1774                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
1775     (build-system gnu-build-system)
1776     (native-inputs
1777      `(("icon-naming-utils" ,icon-naming-utils)
1778        ("intltool" ,intltool)
1779        ("imagemagick" ,imagemagick)
1780        ("pkg-config" ,pkg-config)))
1781     (home-page "http://tango-project.org/")
1782     (synopsis "Tango icon theme")
1783     (description "This is an icon theme that follows the Tango visual
1784 guidelines.")
1785     (license license:public-domain)))
1786
1787 (define-public shared-mime-info
1788   (package
1789     (name "shared-mime-info")
1790     (version "1.15")
1791     (source (origin
1792              (method url-fetch)
1793              (uri (string-append
1794                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
1795                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
1796                    ".tar.xz"))
1797              (sha256
1798               (base32
1799                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
1800     (build-system gnu-build-system)
1801     (arguments
1802      ;; The build system appears not to be parallel-safe.
1803      '(#:parallel-build? #f))
1804     (inputs
1805      `(("glib" ,glib)
1806        ("libxml2" ,libxml2)))
1807     (native-inputs
1808      `(("gettext" ,gettext-minimal)
1809        ("itstool" ,itstool)
1810        ("pkg-config" ,pkg-config)))
1811     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
1812     (synopsis "Database of common MIME types")
1813     (description
1814      "The shared-mime-info package contains the core database of common types
1815 and the update-mime-database command used to extend it.  It requires glib2 to
1816 be installed for building the update command.  Additionally, it uses intltool
1817 for translations, though this is only a dependency for the maintainers.  This
1818 database is translated at Transifex.")
1819     (license license:gpl2+)))
1820
1821 (define-public system-config-printer
1822   (package
1823     (name "system-config-printer")
1824     (version "1.5.12")
1825     (source
1826      (origin
1827        (method url-fetch)
1828        (uri (string-append
1829              "https://github.com/OpenPrinting/system-config-printer/releases/"
1830              "download/" version
1831              "/system-config-printer-" version ".tar.xz"))
1832        (sha256
1833         (base32 "050yrx1vfh9f001qsn06y1jcidxq0ymxr64kxykasr0zzryp25kb"))))
1834     (build-system glib-or-gtk-build-system)
1835     (arguments
1836      `(#:imported-modules ((guix build python-build-system)
1837                            ,@%glib-or-gtk-build-system-modules)
1838        #:phases
1839        (modify-phases %standard-phases
1840          (add-after 'unpack 'patch-Makefile.am
1841            (lambda _
1842              ;; The Makefile generates some scripts, so set a valid shebang
1843              (substitute* "Makefile.am"
1844                (("/bin/bash") (which "bash")))
1845              (delete-file "configure")
1846              #t))
1847          (add-after 'unpack 'patch-docbook-xml
1848            (lambda* (#:key inputs #:allow-other-keys)
1849              ;; Modify the man XML otherwise xmlto tries to access the network
1850              (substitute* "man/system-config-printer.xml"
1851                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
1852                 (string-append (assoc-ref inputs "docbook-xml")
1853                                "/xml/dtd/docbook/")))
1854              #t))
1855          (add-after 'install 'wrap-for-python
1856            (@@ (guix build python-build-system) wrap))
1857          (add-after 'install 'wrap
1858            (lambda* (#:key outputs #:allow-other-keys)
1859              (let ((out               (assoc-ref outputs "out"))
1860                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
1861                (for-each
1862                 (lambda (program)
1863                   (wrap-program program
1864                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
1865                 (map (lambda (name)
1866                        (string-append out "/bin/" name))
1867                      '("system-config-printer"
1868                        "system-config-printer-applet"
1869                        "install-printerdriver"
1870                        "scp-dbus-service"))))
1871              #t)))))
1872     (inputs
1873      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1874        ("gobject-introspection" ,gobject-introspection)
1875        ("python" ,python)
1876        ("cups" ,cups)
1877        ("python-dbus" ,python-dbus)
1878        ("python-pygobject" ,python-pygobject)
1879        ("python-pycups" ,python-pycups)
1880        ("python-requests" ,python-requests)
1881        ("python-pycairo" ,python-pycairo)
1882        ("libnotify" ,libnotify)
1883        ("packagekit" ,packagekit)))
1884     (native-inputs
1885      `(("pkg-config" ,pkg-config)
1886        ("desktop-file-utils" ,desktop-file-utils)
1887        ("glib" ,glib)
1888        ("autoconf" ,autoconf)
1889        ("automake" ,automake)
1890        ("intltool" ,intltool)
1891        ("xmlto" ,xmlto)
1892        ("docbook-xml" ,docbook-xml-4.1.2)
1893        ("docbook-xsl" ,docbook-xsl)
1894        ("libxml2" ,libxml2)))
1895     (home-page "https://github.com/zdohnal/system-config-printer")
1896     (synopsis "CUPS administration tool")
1897     (description
1898      "system-config-printer is a CUPS administration tool.  It's written in
1899 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
1900 configuring CUPS.")
1901     (license license:gpl2+)))
1902
1903 (define-public hicolor-icon-theme
1904   (package
1905     (name "hicolor-icon-theme")
1906     (version "0.17")
1907     (source
1908      (origin
1909       (method url-fetch)
1910       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
1911                           "hicolor-icon-theme-" version ".tar.xz"))
1912       (sha256
1913        (base32
1914         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
1915     (build-system gnu-build-system)
1916     (arguments
1917      `(#:tests? #f)) ; no check target
1918     (home-page "https://icon-theme.freedesktop.org/releases/")
1919     (synopsis
1920      "Freedesktop icon theme")
1921     (description
1922      "Freedesktop icon theme.")
1923     (license license:gpl2)))
1924
1925 (define-public libnotify
1926   (package
1927     (name "libnotify")
1928     (version "0.7.7")
1929     (source
1930      (origin
1931       (method url-fetch)
1932       (uri (string-append "mirror://gnome/sources/" name "/"
1933                           (version-major+minor version)  "/"
1934                           name "-" version ".tar.xz"))
1935       (sha256
1936        (base32
1937         "017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
1938     (build-system gnu-build-system)
1939     (arguments
1940      `(#:configure-flags '("--disable-static")))
1941     (propagated-inputs
1942      `(;; In Requires of libnotify.pc.
1943        ("gdk-pixbuf" ,gdk-pixbuf)
1944        ("glib" ,glib)))
1945     (inputs
1946      `(("gtk+" ,gtk+)
1947        ("libpng" ,libpng)))
1948     (native-inputs
1949       `(("pkg-config" ,pkg-config)
1950         ("glib" ,glib "bin")
1951         ("gobject-introspection" ,gobject-introspection)))
1952     (home-page "https://developer-next.gnome.org/libnotify/")
1953     (synopsis
1954      "GNOME desktop notification library")
1955     (description
1956      "Libnotify is a library that sends desktop notifications to a
1957 notification daemon, as defined in the Desktop Notifications spec.  These
1958 notifications can be used to inform the user about an event or display
1959 some form of information without getting in the user's way.")
1960     (license license:lgpl2.1+)))
1961
1962 (define-public libpeas
1963   (package
1964     (name "libpeas")
1965     (version "1.24.1")
1966     (source
1967      (origin
1968       (method url-fetch)
1969       (uri (string-append "mirror://gnome/sources/" name "/"
1970                           (version-major+minor version)  "/"
1971                           name "-" version ".tar.xz"))
1972       (sha256
1973        (base32
1974         "1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
1975     (build-system meson-build-system)
1976     (arguments
1977      '(#:phases
1978        (modify-phases %standard-phases
1979          (add-before 'check 'start-xserver
1980            (lambda* (#:key inputs #:allow-other-keys)
1981              (let ((xorg-server (assoc-ref inputs "xorg-server"))
1982                    (disp ":1"))
1983                (setenv "DISPLAY" disp)
1984                ;; Tests require a running X server.
1985                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
1986                #t))))))
1987     (inputs
1988      `(("gtk+" ,gtk+)
1989        ("glade" ,glade3)
1990        ("python" ,python)
1991        ("python-pygobject" ,python-pygobject)))
1992     (native-inputs
1993      `(("pkg-config" ,pkg-config)
1994        ("gettext" ,gettext-minimal)
1995        ("glib:bin" ,glib "bin")
1996        ("gobject-introspection" ,gobject-introspection)
1997        ("xorg-server" ,xorg-server-for-tests)))
1998     (propagated-inputs
1999      ;; The .pc file "Requires" gobject-introspection.
2000      `(("gobject-introspection" ,gobject-introspection)))
2001     (home-page "https://wiki.gnome.org/Libpeas")
2002     (synopsis "GObject plugin system")
2003     (description
2004      "Libpeas is a gobject-based plugin engine, targeted at giving every
2005 application the chance to assume its own extensibility.  It also has a set of
2006 features including, but not limited to: multiple extension points; on-demand
2007 (lazy) programming language support for C, Python and JS; simplicity of the
2008 API.")
2009     (license license:lgpl2.0+)))
2010
2011 (define-public gtkglext
2012   (package
2013     (name "gtkglext")
2014     (version "1.2.0")
2015     (source (origin
2016               (method url-fetch)
2017               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
2018                                   version "/gtkglext-" version ".tar.gz"))
2019               (sha256
2020                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
2021               (patches (search-patches
2022                         "gtkglext-disable-disable-deprecated.patch"))))
2023     (build-system gnu-build-system)
2024     (arguments
2025      `(#:phases
2026        (modify-phases %standard-phases
2027          ;; Fix a collision between a local variable and a definition from
2028          ;; glibc's string.h.
2029          (add-after 'unpack 'fix-collision
2030            (lambda _
2031              (substitute* "gdk/gdkglshapes.c"
2032                ((" index") " triangle_index"))
2033              #t)))))
2034     (inputs `(("gtk+" ,gtk+-2)
2035               ("mesa" ,mesa)
2036               ("glu" ,glu)
2037               ("libx11" ,libx11)
2038               ("libxt" ,libxt)))
2039     (native-inputs `(("pkg-config" ,pkg-config)
2040                      ("glib" ,glib "bin")))
2041     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
2042     (home-page "https://projects.gnome.org/gtkglext")
2043     (synopsis "OpenGL extension to GTK+")
2044     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
2045 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
2046 API add-ons to make GTK+ widgets OpenGL-capable.")
2047     (license license:lgpl2.1+)))
2048
2049 (define-public glade3
2050   (package
2051     (name "glade")
2052     (version "3.22.1")
2053     (source (origin
2054               (method url-fetch)
2055               (uri (string-append "mirror://gnome/sources/" name "/"
2056                                   (version-major+minor version)  "/"
2057                                   name "-" version ".tar.xz"))
2058               (sha256
2059                (base32
2060                 "16p38xavpid51qfy0s26n0n21f9ws1w9k5s65bzh1w7ay8p9my6z"))))
2061     (build-system glib-or-gtk-build-system)
2062     (arguments
2063      `(#:tests? #f ; needs X, GL, and software rendering
2064        #:phases
2065        (modify-phases %standard-phases
2066          (add-before 'configure 'fix-docbook
2067            (lambda* (#:key inputs #:allow-other-keys)
2068              (substitute* "man/Makefile.in"
2069                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2070                 (string-append (assoc-ref inputs "docbook-xsl")
2071                                "/xml/xsl/docbook-xsl-"
2072                                ,(package-version docbook-xsl)
2073                                "/manpages/docbook.xsl")))
2074              #t)))))
2075     (inputs
2076      `(("gtk+" ,gtk+)
2077        ("libxml2" ,libxml2)))
2078     (native-inputs
2079      `(("intltool" ,intltool)
2080        ("itstool" ,itstool)
2081        ("libxslt" ,libxslt) ;for xsltproc
2082        ("docbook-xml" ,docbook-xml-4.2)
2083        ("docbook-xsl" ,docbook-xsl)
2084        ("python" ,python-2)
2085        ("pkg-config" ,pkg-config)))
2086     (home-page "https://glade.gnome.org")
2087     (synopsis "GTK+ rapid application development tool")
2088     (description "Glade is a rapid application development (RAD) tool to
2089 enable quick & easy development of user interfaces for the GTK+ toolkit and
2090 the GNOME desktop environment.")
2091     (license license:lgpl2.0+)))
2092
2093 (define-public libcroco
2094   (package
2095     (name "libcroco")
2096     (version "0.6.13")
2097     (source (origin
2098               (method url-fetch)
2099               (uri (string-append "mirror://gnome/sources/" name "/"
2100                                   (version-major+minor version)  "/"
2101                                   name "-" version ".tar.xz"))
2102               (sha256
2103                (base32
2104                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
2105     (build-system gnu-build-system)
2106     (native-inputs
2107      `(("pkg-config" ,pkg-config)))
2108     (inputs
2109      `(("glib" ,glib)
2110        ("libxml2" ,libxml2)
2111        ("zlib" ,zlib)))
2112     (home-page "https://github.com/GNOME/libcroco")
2113     (synopsis "CSS2 parsing and manipulation library")
2114     (description
2115      "Libcroco is a standalone CSS2 parsing and manipulation library.
2116 The parser provides a low level event driven SAC-like API and a CSS object
2117 model like API.  Libcroco provides a CSS2 selection engine and an experimental
2118 XML/CSS rendering engine.")
2119
2120     ;; LGPLv2.1-only.
2121     (license license:lgpl2.1)))
2122
2123 (define-public libgsf
2124   (package
2125     (name "libgsf")
2126     (version "1.14.47")
2127     (source (origin
2128               (method url-fetch)
2129               (uri (string-append "mirror://gnome/sources/" name "/"
2130                                   (version-major+minor version)  "/"
2131                                   name "-" version ".tar.xz"))
2132               (sha256
2133                (base32
2134                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
2135     (build-system gnu-build-system)
2136     (arguments
2137      '(#:configure-flags '("--disable-static")))
2138     (native-inputs
2139      `(("pkg-config" ,pkg-config)
2140        ("gettext" ,gettext-minimal)
2141
2142        ;; For tests.
2143        ("perl" ,perl)
2144        ("perl-xml-parser" ,perl-xml-parser)))
2145     (inputs
2146      `(("zlib" ,zlib)
2147        ("bzip2" ,bzip2)))
2148     (propagated-inputs
2149      `(("gdk-pixbuf" ,gdk-pixbuf)
2150        ("glib" ,glib)
2151        ("libxml2" ,libxml2)))
2152     (home-page "https://www.gnome.org/projects/libgsf")
2153     (synopsis "GNOME's Structured File Library")
2154     (description
2155      "Libgsf aims to provide an efficient extensible I/O abstraction for
2156 dealing with different structured file formats.")
2157
2158     ;; LGPLv2.1-only.
2159     (license license:lgpl2.1)))
2160
2161 (define-public librsvg
2162   (package
2163     (name "librsvg")
2164     (version "2.40.21")
2165     (source (origin
2166               (method url-fetch)
2167               (uri (string-append "mirror://gnome/sources/" name "/"
2168                                   (version-major+minor version)  "/"
2169                                   name "-" version ".tar.xz"))
2170               (sha256
2171                (base32
2172                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
2173     (build-system gnu-build-system)
2174     (arguments
2175      `(#:configure-flags
2176        (list "--disable-static"
2177              "--enable-vala") ; needed for e.g. gnome-mines
2178        #:phases
2179        (modify-phases %standard-phases
2180          (add-before 'configure 'pre-configure
2181            (lambda* (#:key inputs #:allow-other-keys)
2182              (substitute* "gdk-pixbuf-loader/Makefile.in"
2183                ;; By default the gdk-pixbuf loader is installed under
2184                ;; gdk-pixbuf's prefix.  Work around that.
2185                (("gdk_pixbuf_moduledir = .*$")
2186                 (string-append "gdk_pixbuf_moduledir = "
2187                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
2188                                 "loaders\n"))
2189                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
2190                (("gdk_pixbuf_cache_file = .*$")
2191                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
2192              #t))
2193          (add-before 'check 'remove-failing-tests
2194            (lambda _
2195              (with-directory-excursion "tests/fixtures/reftests"
2196                (for-each delete-file
2197                          '(;; This test fails on i686:
2198                            "svg1.1/masking-path-04-b.svg"
2199                            ;; This test fails on armhf:
2200                            "svg1.1/masking-mask-01-b.svg"
2201                            ;; This test fails on aarch64:
2202                            "bugs/777834-empty-text-children.svg")))
2203              #t)))))
2204     (native-inputs
2205      `(("pkg-config" ,pkg-config)
2206        ("vala" ,vala)
2207        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
2208        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
2209     (inputs
2210      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
2211        ;; this ancient version of librsvg.
2212        ("pango" ,pango-1.42)
2213        ("libcroco" ,libcroco)
2214        ("bzip2" ,bzip2)
2215        ("libgsf" ,libgsf)
2216        ("libxml2" ,libxml2)))
2217     (propagated-inputs
2218      ;; librsvg-2.0.pc refers to all of that.
2219      `(("cairo" ,cairo)
2220        ("gdk-pixbuf" ,gdk-pixbuf)
2221        ("glib" ,glib)))
2222     (home-page "https://wiki.gnome.org/LibRsvg")
2223     (synopsis "Render SVG files using Cairo")
2224     (description
2225      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
2226 library.")
2227     (license license:lgpl2.0+)))
2228
2229 (define-public librsvg-next
2230   (package
2231     (inherit librsvg)
2232     (name "librsvg")
2233     (version "2.46.4")
2234     (source (origin
2235               (method url-fetch)
2236               (uri (string-append "mirror://gnome/sources/librsvg/"
2237                                   (version-major+minor version)  "/"
2238                                   "librsvg-" version ".tar.xz"))
2239               (sha256
2240                (base32
2241                 "0afc82nsxc6kw136xid4vcq9kmq4rmgzzk8bh2pvln2cnvirwnxl"))
2242               (modules '((guix build utils)))
2243               (snippet
2244                '(begin (delete-file-recursively "vendor")
2245                        ;; Don't demand an exact version for string_cache
2246                        (substitute* "rsvg_internals/Cargo.toml"
2247                          (("\"=") "\""))
2248                        #t))))
2249     (build-system cargo-build-system)
2250     (arguments
2251      `(#:modules ((guix build cargo-build-system)
2252                   (guix build utils)
2253                   ((guix build gnu-build-system) #:prefix gnu:))
2254        #:vendor-dir "vendor"
2255        #:cargo-inputs
2256        (("rust-bitflags" ,rust-bitflags-1)
2257         ("rust-cairo-rs" ,rust-cairo-rs-0.7)
2258         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
2259         ("rust-cssparser" ,rust-cssparser-0.25)
2260         ("rust-data-url" ,rust-data-url-0.1)
2261         ("rust-downcast-rs" ,rust-downcast-rs-1.1)
2262         ("rust-encoding" ,rust-encoding-0.2)
2263         ("rust-float-cmp" ,rust-float-cmp-0.5)
2264         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.7)
2265         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
2266         ("rust-gio" ,rust-gio-0.7)
2267         ("rust-gio-sys" ,rust-gio-sys-0.9)
2268         ("rust-glib" ,rust-glib-0.8)
2269         ("rust-glib-sys" ,rust-glib-sys-0.9)
2270         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
2271         ("rust-itertools" ,rust-itertools-0.8)
2272         ("rust-language-tags" ,rust-language-tags-0.2)
2273         ("rust-lazy-static" ,rust-lazy-static-1)
2274         ("rust-libc" ,rust-libc-0.2)
2275         ("rust-locale-config" ,rust-locale-config-0.3)
2276         ("rust-markup5ever" ,rust-markup5ever-0.9)
2277         ("rust-nalgebra" ,rust-nalgebra-0.18)
2278         ("rust-num-traits" ,rust-num-traits-0.2)
2279         ("rust-pkg-config" ,rust-pkg-config-0.3)
2280         ("rust-pango" ,rust-pango-0.7)
2281         ("rust-pango-sys" ,rust-pango-sys-0.9)
2282         ("rust-pangocairo" ,rust-pangocairo-0.8)
2283         ("rust-phf" ,rust-phf-0.7)
2284         ("rust-rayon" ,rust-rayon-1.3)
2285         ("rust-rctree" ,rust-rctree-0.3)
2286         ("rust-string-cache" ,rust-string-cache-0.7)
2287         ("rust-regex" ,rust-regex-1.3)
2288         ("rust-url" ,rust-url-2.1)
2289         ("rust-xml-rs" ,rust-xml-rs-0.8))
2290        #:cargo-development-inputs
2291        (("rust-cairo-rs" ,rust-cairo-rs-0.7)
2292         ("rust-criterion" ,rust-criterion-0.2))
2293        #:phases
2294        (modify-phases %standard-phases
2295          (add-after 'unpack 'prepare-for-build
2296            (lambda _
2297              ;; In lieu of #:make-flags
2298              (setenv "CC" "gcc")
2299              ;; Something about the build environment resists building
2300              ;; successfully with the '--locked' flag.
2301              (substitute* '("Makefile.am"
2302                             "Makefile.in")
2303                (("--locked") ""))
2304              #t))
2305          (add-before 'configure 'pre-configure
2306            (lambda _
2307              (substitute* "gdk-pixbuf-loader/Makefile.in"
2308                ;; By default the gdk-pixbuf loader is installed under
2309                ;; gdk-pixbuf's prefix.  Work around that.
2310                (("gdk_pixbuf_moduledir = .*$")
2311                 (string-append "gdk_pixbuf_moduledir = "
2312                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
2313                                 "loaders\n"))
2314                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
2315                (("gdk_pixbuf_cache_file = .*$")
2316                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
2317              #t))
2318          (add-after 'configure 'gnu-configure
2319            (assoc-ref gnu:%standard-phases 'configure))
2320            ;(lambda* (#:key outputs #:allow-other-keys)
2321            ;  ((assoc-ref gnu:%standard-phases 'configure)
2322            ;   #:outputs outputs
2323            ;   #:configure-flags ("--disable-static"
2324            ;                      "--enable-vala"))))
2325          (add-after 'configure 'dont-vendor-self
2326            (lambda* (#:key vendor-dir #:allow-other-keys)
2327              ;; Don't keep the whole tarball in the vendor directory
2328              (delete-file-recursively
2329                (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
2330              #t))
2331          (replace 'build
2332            (assoc-ref gnu:%standard-phases 'build))
2333          (replace 'check
2334            (lambda* args
2335              ((assoc-ref gnu:%standard-phases 'check)
2336               #:test-target "check")))
2337          (replace 'install
2338            (assoc-ref gnu:%standard-phases 'install))
2339          (add-before 'check 'remove-failing-tests
2340            (lambda _
2341              (with-directory-excursion "tests/fixtures/reftests"
2342                (for-each delete-file
2343                          '(;; The images produced by these tests differ slightly
2344                            ;; from their reference counterparts due to differences
2345                            ;; in the build environment (missing fonts, etc).  See
2346                            ;; <tests/README.md> for details.
2347                            ;; These fail on x86_64.
2348                            "svg1.1/coords-viewattr-02-b.svg"
2349                            "svg1.1/filters-composite-04-f.svg"
2350                            "svg1.1/filters-image-01-b.svg"
2351                            "svg1.1/filters-conv-02-f.svg"
2352                            "svg1.1/filters-conv-04-f.svg"
2353                            ;; This test fails on i686:
2354                            "svg1.1/masking-path-04-b.svg"
2355                            ;; This test fails on armhf:
2356                            "svg1.1/masking-mask-01-b.svg"
2357                            ;; This test fails on aarch64:
2358                            "bugs/777834-empty-text-children.svg")))
2359              #t)))))
2360     (license license:lgpl2.1+)))
2361
2362 (define-public libidl
2363   (package
2364     (name "libidl")
2365     (version "0.8.14")
2366     (source (origin
2367               (method url-fetch)
2368               (uri (string-append "mirror://gnome/sources/libIDL/"
2369                                   (version-major+minor version) "/"
2370                                   "libIDL-" version ".tar.bz2"))
2371               (sha256
2372                (base32
2373                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
2374     (build-system gnu-build-system)
2375     (inputs `(("glib" ,glib)))
2376     (native-inputs
2377      `(("pkg-config" ,pkg-config)
2378        ("flex" ,flex)
2379        ("bison" ,bison)))
2380     (home-page "http://freecode.com/projects/libidl")
2381     (synopsis "Create trees of CORBA Interface Definition Language files")
2382     (description  "Libidl is a library for creating trees of CORBA Interface
2383 Definition Language (idl) files, which is a specification for defining
2384 portable interfaces. libidl was initially written for orbit (the orb from the
2385 GNOME project, and the primary means of libidl distribution).  However, the
2386 functionality was designed to be as reusable and portable as possible.")
2387     (properties `((upstream-name . "libIDL")))
2388     (license license:lgpl2.0+)))
2389
2390
2391 (define-public orbit2
2392   (package
2393     (name "orbit2")
2394     (version "2.14.19")
2395     (source (origin
2396               (method url-fetch)
2397               (uri (let ((upstream-name "ORBit2"))
2398                      (string-append "mirror://gnome/sources/" upstream-name "/"
2399                                     (version-major+minor version) "/"
2400                                     upstream-name "-" version ".tar.bz2")))
2401               (sha256
2402                (base32
2403                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
2404     (build-system gnu-build-system)
2405     (arguments
2406      `(;; The "timeout-server" test hangs when run in parallel.
2407        #:parallel-tests? #f
2408        #:configure-flags
2409        '(;; We don't need static libraries, plus they don't build reproducibly
2410          ;; (non-deterministic ordering of .o files in the archive.)
2411          "--disable-static"
2412
2413          ;; The programmer kindly gives us a hook to turn off deprecation
2414          ;; warnings ...
2415          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
2416        ;; ... which they then completly ignore !!
2417        #:phases
2418        (modify-phases %standard-phases
2419          (add-before 'configure 'ignore-deprecations
2420            (lambda _
2421              (substitute* "linc2/src/Makefile.in"
2422                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2423              #t)))))
2424     (inputs `(("glib" ,glib)
2425               ("libidl" ,libidl)))
2426     (native-inputs
2427      `(("pkg-config" ,pkg-config)))
2428     (home-page "https://projects.gnome.org/orbit2/")
2429     (synopsis "CORBA 2.4-compliant Object Request Broker")
2430     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
2431 featuring mature C, C++ and Python bindings.")
2432     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
2433     ;; a version.  SOME of the code files have licence notices for GPLv2+.
2434     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
2435     (license license:gpl2+)
2436     (properties `((upstream-name . "ORBit2")))))
2437
2438
2439 (define-public libbonobo
2440   (package
2441     (name "libbonobo")
2442     (version "2.32.1")
2443     (source (origin
2444               (method url-fetch)
2445               (uri (string-append "mirror://gnome/sources/" name "/"
2446                                   (version-major+minor version)
2447                                   "/" name "-" version ".tar.bz2"))
2448               (sha256
2449                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
2450               (patches (search-patches
2451                         "libbonobo-activation-test-race.patch"))))
2452     (build-system gnu-build-system)
2453     (arguments
2454      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
2455      `(#:configure-flags
2456        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
2457        ;; ... which they then completly ignore !!
2458        #:phases
2459        (modify-phases %standard-phases
2460          (add-before 'configure 'ignore-deprecations
2461            (lambda _
2462              (substitute* "activation-server/Makefile.in"
2463                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2464              #t)))
2465
2466        ;; There's apparently a race condition between the server stub
2467        ;; generation and linking of the example under 'samples/echo' that can
2468        ;; lead do undefined references when building in parallel, as reported
2469        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
2470        ;; Thus, disable parallel builds.
2471        #:parallel-build? #f))
2472     (inputs `(("popt" ,popt)
2473               ("libxml2" ,libxml2)))
2474     ;; The following are Required by the .pc file
2475     (propagated-inputs
2476      `(("glib" ,glib)
2477        ("orbit2" ,orbit2)))
2478     (native-inputs
2479      `(("intltool" ,intltool)
2480        ("pkg-config" ,pkg-config)
2481        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2482        ("flex" ,flex)
2483        ("bison" ,bison)))
2484     (home-page "https://developer.gnome.org/libbonobo/")
2485     (synopsis "Framework for creating reusable components for use in GNOME applications")
2486     (description "Bonobo is a framework for creating reusable components for
2487 use in GNOME applications, built on top of CORBA.")
2488     ;; Licence not explicitly stated.  Source files contain no licence notices.
2489     ;; Tarball contains text of both GPLv2 and LGPLv2
2490     ;; GPLv2 covers both conditions
2491     (license license:gpl2+)))
2492
2493
2494 (define-public gconf
2495   (package
2496     (name "gconf")
2497     (version "3.2.6")
2498     (source (origin
2499               (method url-fetch)
2500               (uri
2501                (let ((upstream-name "GConf"))
2502                  (string-append "mirror://gnome/sources/" upstream-name "/"
2503                                 (version-major+minor version) "/"
2504                                 upstream-name "-" version ".tar.xz")))
2505               (sha256
2506                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
2507     (build-system gnu-build-system)
2508     (inputs `(("dbus-glib" ,dbus-glib)
2509               ("libxml2" ,libxml2)))
2510     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
2511                          ("orbit2" ,orbit2)))
2512     (native-inputs
2513      `(("intltool" ,intltool)
2514        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2515        ("pkg-config" ,pkg-config)))
2516     (home-page "https://projects.gnome.org/gconf/")
2517     (synopsis "Store application preferences")
2518     (description "Gconf is a system for storing application preferences.  It
2519 is intended for user preferences; not arbitrary data storage.")
2520     (license license:lgpl2.0+)
2521     (properties '((upstream-name . "GConf")))))
2522
2523
2524 (define-public gnome-mime-data
2525   (package
2526     (name "gnome-mime-data")
2527     (version "2.18.0")
2528     (source (origin
2529               (method url-fetch)
2530               (uri (string-append "mirror://gnome/sources/" name "/"
2531                                   (version-major+minor version)  "/"
2532                                   name "-" version ".tar.bz2"))
2533               (sha256
2534                (base32
2535                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
2536     (build-system gnu-build-system)
2537     (native-inputs
2538      `(("perl" ,perl)
2539        ("intltool" ,intltool)))
2540     (arguments
2541      '(#:phases (modify-phases %standard-phases
2542                   (add-after 'configure 'use-our-intltool
2543                     (lambda _
2544                       ;; Do not use the bundled intltool commands, which lack
2545                       ;; the "dotless @INC" fixes of our 'intltool' package.
2546                       (substitute* (find-files "." "^Makefile$")
2547                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
2548                          (string-append "INTLTOOL_" tool " = intltool-"
2549                                         (string-downcase tool) "\n")))
2550                       #t)))))
2551     (home-page "https://www.gnome.org")
2552     (synopsis "Base MIME and Application database for GNOME")
2553     (description  "GNOME Mime Data is a module which contains the base MIME
2554 and Application database for GNOME.  The data stored by this module is
2555 designed to be accessed through the MIME functions in GnomeVFS.")
2556     (license license:gpl2+)))
2557
2558
2559 (define-public gnome-vfs
2560   (package
2561     (name "gnome-vfs")
2562     (version "2.24.4")
2563     (source (origin
2564               (method url-fetch)
2565               (uri (string-append "mirror://gnome/sources/" name "/"
2566                                   (version-major+minor version)  "/"
2567                                   name "-" version ".tar.bz2"))
2568               (sha256
2569                (base32
2570                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
2571     (build-system gnu-build-system)
2572     (arguments
2573      `(#:phases
2574        (modify-phases %standard-phases
2575          (add-before 'configure 'ignore-deprecations
2576            (lambda _
2577              (substitute* '("libgnomevfs/Makefile.in"
2578                             "daemon/Makefile.in")
2579                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2580              #t))
2581          (add-before 'configure 'patch-test-async-cancel-to-never-fail
2582            (lambda _
2583              (substitute* "test/test-async-cancel.c"
2584                (("EXIT_FAILURE") "77"))
2585              #t)))))
2586     (inputs `(("libxml2" ,libxml2)
2587               ("dbus-glib" ,dbus-glib)
2588               ("gconf" ,gconf)
2589               ("gnome-mime-data" ,gnome-mime-data)
2590               ("zlib" ,zlib)))
2591     (native-inputs
2592      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2593        ("intltool" ,intltool)
2594        ("pkg-config" ,pkg-config)))
2595     (home-page "https://developer.gnome.org/gnome-vfs/")
2596     (synopsis "Access files and folders in GNOME applications")
2597     (description
2598      "GnomeVFS is the core library used to access files and folders in GNOME
2599 applications.  It provides a file system abstraction which allows applications
2600 to access local and remote files with a single consistent API.")
2601     (license license:lgpl2.0+)))
2602
2603
2604
2605 (define-public libgnome
2606   (package
2607     (name "libgnome")
2608     (version "2.32.1")
2609     (source (origin
2610               (method url-fetch)
2611               (uri (string-append "mirror://gnome/sources/" name "/"
2612                                   (version-major+minor version)  "/"
2613                                   name "-" version ".tar.bz2"))
2614               (sha256
2615                (base32
2616                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
2617               (patches (search-patches "libgnome-encoding.patch"))))
2618     (build-system gnu-build-system)
2619     (arguments
2620      `(#:phases
2621        (modify-phases %standard-phases
2622          (add-before 'configure 'enable-deprecated
2623            (lambda _
2624              (substitute* "libgnome/Makefile.in"
2625                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
2626              #t)))))
2627     (inputs `(("libxml2" ,libxml2)))
2628     (native-inputs
2629      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2630        ("intltool" ,intltool)
2631        ("pkg-config" ,pkg-config)))
2632     ;; The following are listed as Required in the .pc file
2633     ;; (except for libcanberra -- which seems to be oversight on the part
2634     ;; of the upstream developers -- anything that links against libgnome,
2635     ;; must also link against libcanberra
2636     (propagated-inputs
2637      `(("libcanberra" ,libcanberra)
2638        ("libbonobo" ,libbonobo)
2639        ("gconf" ,gconf)
2640        ("gnome-vfs" ,gnome-vfs)
2641        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
2642     (home-page "https://developer.gnome.org/libgnome/")
2643     (synopsis "Useful routines for building applications")
2644     (description  "The libgnome library provides a number of useful routines
2645 for building modern applications, including session management, activation of
2646 files and URIs, and displaying help.")
2647     (license license:lgpl2.0+)))
2648
2649
2650 (define-public libart-lgpl
2651   (package
2652     (name "libart-lgpl")
2653     (version "2.3.21")
2654     (source (origin
2655               (method url-fetch)
2656               (uri (let ((upstream-name "libart_lgpl"))
2657                      (string-append "mirror://gnome/sources/" upstream-name "/"
2658                                     (version-major+minor version) "/"
2659                                     upstream-name "-" version ".tar.bz2")))
2660               (sha256
2661                (base32
2662                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
2663     (build-system gnu-build-system)
2664     (native-inputs
2665      `(("pkg-config" ,pkg-config)))
2666     (home-page "https://people.gnome.org/~mathieu/libart")
2667     (synopsis "2D drawing library")
2668     (description  "Libart is a 2D drawing library intended as a
2669 high-quality vector-based 2D library with antialiasing and alpha composition.")
2670     (license license:lgpl2.0+)))
2671
2672
2673
2674 (define-public libgnomecanvas
2675   (package
2676     (name "libgnomecanvas")
2677     (version "2.30.3")
2678     (source (origin
2679               (method url-fetch)
2680               (uri (string-append "mirror://gnome/sources/" name "/"
2681                                   (version-major+minor version)  "/"
2682                                   name "-" version ".tar.gz"))
2683               (sha256
2684                (base32
2685                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
2686     (build-system gnu-build-system)
2687     ;; Mentioned as Required in the .pc file
2688     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
2689                          ("gtk+" ,gtk+-2)))
2690     (native-inputs
2691      `(("intltool" ,intltool)
2692        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2693        ("pkg-config" ,pkg-config)))
2694     (home-page "https://developer.gnome.org/libgnomecanvas/")
2695     (synopsis "Flexible widget for creating interactive structured graphics")
2696     (description  "The GnomeCanvas widget provides a flexible widget for
2697 creating interactive structured graphics.")
2698     (license license:lgpl2.0+)))
2699
2700 (define-public libgnomecanvasmm
2701   (package
2702     (name "libgnomecanvasmm")
2703     (version "2.26.0")
2704     (source (origin
2705               (method url-fetch)
2706               (uri (string-append "mirror://gnome/sources/" name "/"
2707                                   (version-major+minor version)  "/"
2708                                   name "-" version ".tar.bz2"))
2709               (sha256
2710                (base32
2711                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
2712     (build-system gnu-build-system)
2713     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
2714     (native-inputs
2715      `(("gtkmm-2" ,gtkmm-2)
2716        ("pkg-config" ,pkg-config)))
2717     (home-page "https://gtkmm.org")
2718     (synopsis "C++ bindings to the GNOME Canvas library")
2719     (description "C++ bindings to the GNOME Canvas library.")
2720     (license license:lgpl2.0+)))
2721
2722 (define-public libgnomeui
2723   (package
2724     (name "libgnomeui")
2725     (version "2.24.5")
2726     (source (origin
2727               (method url-fetch)
2728               (uri (string-append "mirror://gnome/sources/" name "/"
2729                                   (version-major+minor version)  "/"
2730                                   name "-" version ".tar.bz2"))
2731               (patches (search-patches "libgnomeui-utf8.patch"))
2732               (sha256
2733                (base32
2734                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
2735     (build-system gnu-build-system)
2736     ;; Mentioned as Required in the .pc file
2737     (propagated-inputs `(("libbonoboui" ,libbonoboui)
2738                          ("libgnome" ,libgnome)
2739                          ("libgnomecanvas" ,libgnomecanvas)
2740                          ("libgnome-keyring" ,libgnome-keyring)))
2741     (inputs `(("libjpeg" ,libjpeg-turbo)
2742               ("popt" ,popt)
2743               ("libbonobo" ,libbonobo)
2744               ("libxml2" ,libxml2)
2745               ("libglade" ,libglade)))
2746     (native-inputs
2747      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
2748        ("intltool" ,intltool)
2749        ("pkg-config" ,pkg-config)))
2750     (home-page "https://developer.gnome.org/libgnomeui/")
2751     (synopsis "Additional widgets for applications")
2752     (description "The libgnomeui library provides additional widgets for
2753 applications.  Many of the widgets from libgnomeui have already been
2754 ported to GTK+.")
2755     (license license:lgpl2.0+)))
2756
2757 (define-public libglade
2758   (package
2759     (name "libglade")
2760     (version "2.6.4")
2761     (source (origin
2762               (method url-fetch)
2763               (uri (string-append "mirror://gnome/sources/" name "/"
2764                                   (version-major+minor version)  "/"
2765                                   name "-" version ".tar.bz2"))
2766               (sha256
2767                (base32
2768                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
2769     (build-system gnu-build-system)
2770     (inputs
2771      `(("python" ,python))) ;; needed for the optional libglade-convert program
2772     (propagated-inputs
2773      `(("gtk+-2" ,gtk+-2)
2774        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
2775     (native-inputs
2776      `(("pkg-config" ,pkg-config)))
2777     (home-page "https://developer.gnome.org/libglade")
2778     (synopsis "Load glade interfaces and access the glade built widgets")
2779     (description "Libglade is a library that provides interfaces for loading
2780 graphical interfaces described in glade files and for accessing the
2781 widgets built in the loading process.")
2782     (license license:gpl2+))) ; This is correct.  GPL not LGPL
2783
2784 (define-public libgnomeprint
2785   ;; This library has been deprecated since 2006; see
2786   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
2787   (package
2788     (name "libgnomeprint")
2789     (version "2.18.8")
2790     (source (origin
2791               (method url-fetch)
2792               (uri (string-append "mirror://gnome/sources/" name "/"
2793                                   (version-major+minor version)  "/"
2794                                   name "-" version ".tar.bz2"))
2795               (sha256
2796                (base32
2797                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
2798     (build-system gnu-build-system)
2799     (inputs
2800      `(("popt" ,popt)
2801        ("libart-lgpl" ,libart-lgpl)
2802        ("gtk+" ,gtk+-2)
2803        ("libxml2" ,libxml2)))
2804     (native-inputs
2805      `(("intltool" ,intltool)
2806        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2807        ("pkg-config" ,pkg-config)))
2808     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
2809     (synopsis "Printing framework for GNOME")
2810     (description
2811      "GNOME-print was a printing framework for GNOME.  It has been deprecated
2812 since ca. 2006, when GTK+ itself incorporated printing support.")
2813     (license license:lgpl2.0+)))
2814
2815
2816 (define-public libgnomeprintui
2817   ;; Deprecated; see libgnomeprint.
2818   (package
2819     (name "libgnomeprintui")
2820     (version "2.18.6")
2821     (source (origin
2822               (method url-fetch)
2823               (uri (string-append "mirror://gnome/sources/" name "/"
2824                                   (version-major+minor version)  "/"
2825                                   name "-" version ".tar.bz2"))
2826               (sha256
2827                (base32
2828                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
2829     (build-system gnu-build-system)
2830     ;; Mentioned as Required in the .pc file
2831     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
2832     (inputs `(("gtk+" ,gtk+-2)
2833               ("glib" ,glib)
2834               ("gnome-icon-theme" ,gnome-icon-theme)
2835               ("libgnomecanvas" ,libgnomecanvas)
2836               ("libxml2" ,libxml2)))
2837     (native-inputs
2838      `(("intltool" ,intltool)
2839        ("pkg-config" ,pkg-config)))
2840     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
2841     (synopsis "Printing framework for GNOME")
2842     (description (package-description libgnomeprint))
2843     (license license:lgpl2.0+)))
2844
2845 (define-public libbonoboui
2846   (package
2847     (name "libbonoboui")
2848     (version "2.24.5")
2849     (source (origin
2850               (method url-fetch)
2851               (uri (string-append "mirror://gnome/sources/" name "/"
2852                                   (version-major+minor version)  "/"
2853                                   name "-" version ".tar.bz2"))
2854               (sha256
2855                (base32
2856                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
2857     (build-system gnu-build-system)
2858     (arguments
2859      `(#:phases
2860        (modify-phases %standard-phases
2861          (add-before 'check 'start-xserver
2862            (lambda* (#:key inputs #:allow-other-keys)
2863              (let ((xorg-server (assoc-ref inputs "xorg-server"))
2864                    (disp ":1"))
2865
2866                (setenv "HOME" (getcwd))
2867                (setenv "DISPLAY" disp)
2868                ;; There must be a running X server and make check doesn't start one.
2869                ;; Therefore we must do it.
2870                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
2871     ;; Mentioned as Required by the .pc file
2872     (propagated-inputs `(("libxml2" ,libxml2)))
2873     (inputs
2874      `(("popt" ,popt)
2875        ("pangox-compat" ,pangox-compat)
2876        ("libgnome" ,libgnome)
2877        ("libgnomecanvas" ,libgnomecanvas)
2878        ("libglade" ,libglade)))
2879     (native-inputs
2880      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2881        ("intltool" ,intltool)
2882        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
2883        ("pkg-config" ,pkg-config)))
2884     (home-page "https://developer.gnome.org/libbonoboui/")
2885     (synopsis "Some user interface controls using Bonobo")
2886     (description  "The Bonobo UI library provides a number of user interface
2887 controls using the Bonobo component framework.")
2888     (license license:lgpl2.0+)))
2889
2890 (define-public libwnck
2891   (package
2892     (name "libwnck")
2893     (version "3.32.0")
2894     (source (origin
2895               (method url-fetch)
2896               (uri (string-append "mirror://gnome/sources/" name "/"
2897                                   (version-major+minor version) "/"
2898                                   name "-" version ".tar.xz"))
2899               (sha256
2900                (base32
2901                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
2902     (build-system meson-build-system)
2903     (native-inputs
2904      `(("pkg-config" ,pkg-config)
2905        ("glib" ,glib "bin") ; for glib-mkenums
2906        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
2907        ("intltool" ,intltool)))
2908     (propagated-inputs
2909      `(("gtk+" ,gtk+)
2910        ("libxres" ,libxres)
2911        ("startup-notification" ,startup-notification)))
2912     (home-page "https://developer.gnome.org/libwnck/")
2913     (synopsis "Window Navigator Construction Kit")
2914     (description
2915      "Libwnck is the Window Navigator Construction Kit, a library for use in
2916 writing pagers, tasklists, and more generally applications that are dealing
2917 with window management.  It tries hard to respect the Extended Window Manager
2918 Hints specification (EWMH).")
2919     (license license:lgpl2.0+)))
2920
2921 ;; stable version for gtk2, required by xfwm4.
2922 (define-public libwnck-2
2923   (package (inherit libwnck)
2924     (name "libwnck")
2925     (version "2.30.7")
2926     (source (origin
2927               (method url-fetch)
2928               (uri (string-append "mirror://gnome/sources/" name "/"
2929                                   (version-major+minor version) "/"
2930                                   name "-" version ".tar.xz"))
2931               (sha256
2932                (base32
2933                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
2934     (build-system gnu-build-system)
2935     (native-inputs
2936      `(("pkg-config" ,pkg-config)
2937        ("intltool" ,intltool)))
2938     (propagated-inputs
2939      `(("gtk+" ,gtk+-2)
2940        ("libxres" ,libxres)
2941        ("startup-notification" ,startup-notification)))))
2942
2943 (define-public goffice
2944   (package
2945     (name "goffice")
2946     (version "0.10.46")
2947     (source (origin
2948               (method url-fetch)
2949               (uri (string-append "mirror://gnome/sources/goffice/"
2950                                   (version-major+minor version)  "/"
2951                                   "goffice-" version ".tar.xz"))
2952               (sha256
2953                (base32 "1a8kba36zwzr0ilafc0d1nsxxma1qibviiifd0jhbxp180x6v385"))))
2954     (build-system gnu-build-system)
2955     (outputs '("out"
2956                "doc"))                  ; 4.0 MiB of gtk-doc
2957     (arguments
2958      '(#:configure-flags (list (string-append "--with-html-dir="
2959                                               (assoc-ref %outputs "doc")
2960                                               "/share/gtk-doc/html"))))
2961     (inputs
2962      `(("gtk+" ,gtk+)
2963        ("libgsf" ,libgsf)
2964        ("librsvg" ,librsvg)
2965        ("libxslt" ,libxslt)
2966        ("libxml2" ,libxml2)))
2967     (native-inputs
2968      `(("intltool" ,intltool)
2969        ("glib" ,glib "bin")
2970        ("pkg-config" ,pkg-config)))
2971     (home-page "https://developer.gnome.org/goffice/")
2972     (synopsis "Document-centric objects and utilities")
2973     (description "A GLib/GTK+ set of document-centric objects and utilities.")
2974     (license
2975      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
2976      ;; Note: NOT LGPL
2977      (list license:gpl2 license:gpl3))))
2978
2979 (define-public goffice-0.8
2980   (package (inherit goffice)
2981     (version "0.8.17")
2982     (source (origin
2983               (method url-fetch)
2984               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
2985                                   (version-major+minor version)  "/"
2986                                   (package-name goffice) "-" version ".tar.xz"))
2987               (sha256
2988                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
2989     (arguments
2990      `(#:phases
2991        (modify-phases %standard-phases
2992          (add-after 'unpack 'fix-pcre-check
2993            (lambda _
2994              ;; Only glib.h can be included directly.  See
2995              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
2996              (substitute* "configure"
2997                (("glib/gregex\\.h") "glib.h")) #t)))
2998
2999        ,@(package-arguments goffice)))
3000     (propagated-inputs
3001      ;; libgoffice-0.8.pc mentions libgsf-1
3002      `(("libgsf" ,libgsf)))
3003     (inputs
3004      `(("gtk" ,gtk+-2)
3005        ,@(alist-delete "gtk" (package-inputs goffice))))))
3006
3007 (define-public gnumeric
3008   (package
3009     (name "gnumeric")
3010     (version "1.12.46")
3011     (source (origin
3012               (method url-fetch)
3013               (uri (string-append "mirror://gnome/sources/gnumeric/"
3014                                   (version-major+minor version)  "/"
3015                                   "gnumeric-" version ".tar.xz"))
3016               (sha256
3017                (base32
3018                 "1qdmw2dp7rmq8fmjapgwaks7ajh270wm6kyvlxlzwbgmg8vngp4z"))))
3019     (build-system glib-or-gtk-build-system)
3020     (arguments
3021      `(;; The gnumeric developers don't worry much about failing tests.
3022        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
3023        #:tests? #f
3024        #:phases
3025        (modify-phases %standard-phases
3026          (add-before
3027           'configure 'pre-conf
3028            (lambda* (#:key outputs #:allow-other-keys)
3029              ;; Make install tries to write into the directory of goffice
3030              ;; I am informed that this only affects the possibility to embed a
3031              ;; spreadsheet inside an Abiword document.   So presumably when we
3032              ;; package Abiword we'll have to refer it to this directory.
3033              (substitute* "configure"
3034                (("^GOFFICE_PLUGINS_DIR=.*")
3035                 (string-append "GOFFICE_PLUGINS_DIR="
3036                                (assoc-ref outputs "out")
3037                                "/goffice/plugins"))))))))
3038     (inputs
3039      `(("glib" ,glib)
3040        ("gtk+" ,gtk+)
3041        ("goffice" ,goffice)
3042        ("libgsf" ,libgsf)
3043        ("librsvg" ,librsvg)
3044        ("libxml2" ,libxml2)
3045        ("libxslt" ,libxslt)
3046        ("python" ,python-2)
3047        ("python2-pygobject" ,python2-pygobject)
3048        ("zlib" ,zlib)))
3049     (native-inputs
3050      `(("bison" ,bison)
3051        ("docbook-xml" ,docbook-xml)
3052        ("intltool" ,intltool)
3053        ("itstool" ,itstool)
3054        ("glib:bin" ,glib "bin")
3055        ("pkg-config" ,pkg-config)))
3056     (home-page "http://www.gnumeric.org")
3057     (synopsis "Spreadsheet application")
3058     (description
3059      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
3060 interoperable with other spreadsheet applications.  It has a vast array of
3061 features beyond typical spreadsheet functionality, such as support for linear
3062 and non-linear solvers, statistical analysis, and telecommunication
3063 engineering.")
3064     (license
3065     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
3066      (list license:gpl2 license:gpl3))))
3067
3068 (define-public gnome-themes-standard
3069   (package
3070     (name "gnome-themes-standard")
3071     (version "3.22.3")
3072     (source
3073      (origin
3074        (method url-fetch)
3075        (uri (string-append "mirror://gnome/sources/" name "/"
3076                            (version-major+minor version) "/" name "-"
3077                            version ".tar.xz"))
3078        (sha256
3079         (base32
3080          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
3081     (build-system gnu-build-system)
3082     (arguments
3083      '(#:configure-flags
3084        ;; Don't create 'icon-theme.cache'.
3085        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
3086               (true      (string-append coreutils "/bin/true")))
3087          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
3088     (inputs
3089      `(("gtk+" ,gtk+)
3090        ("gtk+-2" ,gtk+-2)
3091        ("librsvg" ,librsvg)
3092        ("libxml2" ,libxml2)
3093        ("glib" ,glib)))
3094     (native-inputs
3095      `(("intltool" ,intltool)
3096        ("glib:bin" ,glib "bin")
3097        ("pkg-config" ,pkg-config)))
3098     (home-page "https://launchpad.net/gnome-themes-standard")
3099     (synopsis "Default GNOME 3 themes")
3100     (description
3101      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
3102     (license license:lgpl2.1+)))
3103
3104 (define-public seahorse
3105   (package
3106     (name "seahorse")
3107     (version "3.34")
3108     (source
3109      (origin
3110        (method url-fetch)
3111        (uri (string-append "mirror://gnome/sources/" name "/"
3112                            (version-major+minor version) "/" name "-"
3113                            version ".tar.xz"))
3114        (sha256
3115         (base32
3116          "16sfnqrdlr5xx6kixx2ln1mva7nngjlw1k3f5n454vyaigffjh2v"))))
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.34.0")
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          "1spxa6qr1y8s5rrsvpciywpvhk812ngn95s1apaxaigwy2g1iw54"))))
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.34.1")
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          "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
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.34.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          "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
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.34.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          "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))))
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              "-Dsystemd=false"
4213              ;; Otherwise, the RUNPATH will lack the final path component.
4214              (string-append "-Dc_link_args=-Wl,-rpath="
4215                             (assoc-ref %outputs "out")
4216                             "/lib/gnome-settings-daemon-3.0"))
4217        ;; Color management test can't reach the colord system service.
4218        #:tests? #f))
4219     (native-inputs
4220      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
4221        ("pkg-config" ,pkg-config)
4222        ("intltool" ,intltool)
4223        ("xsltproc" ,libxslt)
4224        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
4225        ("docbook-xml" ,docbook-xml-4.2)
4226        ("docbook-xsl" ,docbook-xsl)))
4227     (inputs
4228      `(("alsa-lib" ,alsa-lib)
4229        ("colord" ,colord)
4230        ("libgudev" ,libgudev)
4231        ("upower" ,upower)
4232        ("polkit" ,polkit)
4233        ("pulseaudio" ,pulseaudio)
4234        ("libcanberra" ,libcanberra)
4235        ("libx11" ,libx11)
4236        ("libxtst" ,libxtst)
4237        ("lcms" ,lcms)
4238        ("libnotify" ,libnotify)
4239        ("geoclue" ,geoclue)
4240        ("geocode-glib" ,geocode-glib)
4241        ("libgweather" ,libgweather)
4242        ("gnome-desktop" ,gnome-desktop)
4243        ("nss" ,nss)
4244        ("cups" ,cups)
4245        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4246        ("libwacom" ,libwacom)
4247        ("librsvg" ,librsvg)
4248        ("xf86-input-wacom" ,xf86-input-wacom)
4249        ("wayland" ,wayland)
4250        ("network-manager" ,network-manager)
4251        ("gcr" ,gcr)
4252        ("modem-manager" ,modem-manager)))
4253     (home-page "https://www.gnome.org")
4254     (synopsis "GNOME settings daemon")
4255     (description
4256      "This package contains the daemon responsible for setting the various
4257 parameters of a GNOME session and the applications that run under it.  It
4258 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
4259 settings, themes, mouse settings, and startup of other daemons.")
4260     (license license:gpl2+)))
4261
4262 (define-public totem-pl-parser
4263  (package
4264    (name "totem-pl-parser")
4265    (version "3.26.3")
4266    (source (origin
4267             (method url-fetch)
4268             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
4269                                 (version-major+minor version) "/"
4270                                 "totem-pl-parser-" version ".tar.xz"))
4271             (sha256
4272              (base32
4273               "13a45py2j1r9967zgww8kd24bn2fhycd4m3kzr90sxx9l2w03z8f"))))
4274    (build-system meson-build-system)
4275    (arguments
4276     ;; FIXME: Tests require gvfs.
4277     `(#:tests? #f))
4278    (native-inputs
4279     `(("intltool" ,intltool)
4280       ("glib" ,glib "bin")
4281       ("gobject-introspection" ,gobject-introspection)
4282       ("pkg-config" ,pkg-config)))
4283    (propagated-inputs
4284     `(("glib" ,glib)
4285       ("gmime" ,gmime)
4286       ("libarchive" ,libarchive)
4287       ("libgcrypt" ,libgcrypt)
4288       ("libxml2" ,libxml2)))
4289    (inputs
4290     `(("libsoup" ,libsoup)))
4291    (home-page "https://projects.gnome.org/totem")
4292    (synopsis "Library to parse and save media playlists for GNOME")
4293    (description "Totem-pl-parser is a GObjects-based library to parse and save
4294 playlists in a variety of formats.")
4295    (license license:lgpl2.0+)))
4296
4297 (define-public aisleriot
4298   (package
4299     (name "aisleriot")
4300     (version "3.22.9")
4301     (source (origin
4302               (method url-fetch)
4303               (uri (string-append "mirror://gnome/sources/aisleriot/"
4304                                   (version-major+minor version) "/"
4305                                   "aisleriot-" version ".tar.xz"))
4306               (sha256
4307                (base32
4308                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
4309     (build-system glib-or-gtk-build-system)
4310     (arguments
4311      '(#:configure-flags
4312        '("--with-platform=gtk-only"
4313          "--with-card-theme-formats=svg")))
4314     (native-inputs
4315      `(("desktop-file-utils" ,desktop-file-utils)
4316        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4317        ("intltool" ,intltool)
4318        ("itstool" ,itstool)
4319        ("pkg-config" ,pkg-config)
4320        ("xmllint" ,libxml2)))
4321     (inputs
4322      `(("gtk+" ,gtk+)
4323        ("guile" ,guile-2.2)
4324        ("libcanberra" ,libcanberra)
4325        ("librsvg" ,librsvg)))
4326     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
4327     (synopsis "Solitaire card games")
4328     (description
4329      "Aisleriot (also known as Solitaire or sol) is a collection of card games
4330 which are easy to play with the aid of a mouse.")
4331     (license license:gpl3+)))
4332
4333 (define-public amtk
4334   (package
4335     (name "amtk")
4336     (version "5.0.2")
4337     (source (origin
4338               (method url-fetch)
4339               (uri (string-append "mirror://gnome/sources/amtk/"
4340                                   (version-major+minor version) "/"
4341                                   "amtk-" version ".tar.xz"))
4342               (sha256
4343                (base32
4344                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
4345     (build-system gnu-build-system)
4346     (arguments
4347      '(#:configure-flags '("--enable-gtk-doc")))
4348     (native-inputs
4349      `(("gobject-introspection" ,gobject-introspection)
4350        ("glib:bin" ,glib "bin")         ; for glib-mkenums
4351        ("gtk-doc" ,gtk-doc)
4352        ("pkg-config" ,pkg-config)))
4353     (inputs
4354      `(("glib" ,glib)
4355        ("gtk+" ,gtk+)))
4356     (home-page "https://wiki.gnome.org/Projects/Amtk")
4357     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
4358     (description
4359      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
4360 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
4361 both a traditional UI or a modern UI with a GtkHeaderBar.")
4362     (license license:lgpl2.1+)))
4363
4364 (define-public devhelp
4365   (package
4366     (name "devhelp")
4367     (version "3.34.0")
4368     (source (origin
4369               (method url-fetch)
4370               (uri (string-append "mirror://gnome/sources/" name "/"
4371                                   (version-major+minor version) "/"
4372                                   name "-" version ".tar.xz"))
4373               (sha256
4374                (base32
4375                 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
4376     (build-system meson-build-system)
4377     (arguments
4378      '(#:glib-or-gtk? #t
4379        #:phases
4380        (modify-phases %standard-phases
4381          (add-after 'unpack 'skip-gtk-update-icon-cache
4382            ;; Don't create 'icon-theme.cache'.
4383            (lambda _
4384              (substitute* "meson_post_install.py"
4385                (("gtk-update-icon-cache") "true"))
4386              #t)))))
4387     (native-inputs
4388      `(("intltool" ,intltool)
4389        ("itstool" ,itstool)
4390        ("gobject-introspection" ,gobject-introspection)
4391        ("glib:bin" ,glib "bin") ; for glib-mkmenus
4392        ("pkg-config" ,pkg-config)))
4393     (inputs
4394      `(("amtk" ,amtk)
4395        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4396        ("webkitgtk" ,webkitgtk)))
4397     (home-page "https://wiki.gnome.org/Apps/Devhelp")
4398     (synopsis "API documentation browser for GNOME")
4399     (description
4400      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
4401 natively with GTK-Doc (the API reference system developed for GTK+ and used
4402 throughout GNOME for API documentation).")
4403     (license license:gpl2+)))
4404
4405 (define-public cogl
4406   (package
4407     (name "cogl")
4408     (version "1.22.4")
4409     (source
4410      (origin
4411        (method url-fetch)
4412        (uri (string-append "mirror://gnome/sources/cogl/"
4413                            (version-major+minor version) "/"
4414                            "cogl-" version ".tar.xz"))
4415        (sha256
4416         (base32 "1q0drs82a8f6glg1v29bb6g2nf15fw0rvdx3d0rgcgfarfaby5sj"))))
4417     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
4418     ;; cogl, corresponding changes may be appropriate in mutter as well.
4419     (build-system gnu-build-system)
4420     (native-inputs
4421      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
4422        ("gobject-introspection" ,gobject-introspection)
4423        ;;("xorg-server" ,xorg-server) ; for the test suite
4424        ("pkg-config" ,pkg-config)))
4425     (propagated-inputs
4426      `(("glib" ,glib)
4427        ("gdk-pixbuf" ,gdk-pixbuf)
4428        ("libx11" ,libx11)
4429        ("libxext" ,libxext)
4430        ("libxfixes" ,libxfixes)
4431        ("libxdamage" ,libxdamage)
4432        ("libxcomposite" ,libxcomposite)
4433        ("libxrandr" ,libxrandr)))
4434     (inputs
4435      `(("mesa" ,mesa)
4436        ("cairo" ,cairo)
4437        ("pango" ,pango)
4438        ("gstreamer" ,gstreamer)
4439        ("gst-plugins-base" ,gst-plugins-base)
4440        ("wayland" ,wayland)))
4441     (arguments
4442      `(#:configure-flags (list "--enable-cogl-gst"
4443                                "--enable-wayland-egl-platform"
4444                                "--enable-wayland-egl-server"
4445
4446                                ;; Arrange to pass an absolute file name to
4447                                ;; dlopen for libGL.so.
4448                                (string-append "--with-gl-libname="
4449                                               (assoc-ref %build-inputs "mesa")
4450                                               "/lib/libGL.so"))
4451        ;; XXX FIXME: All tests fail, with many warnings printed like this:
4452        ;;   _FontTransOpen: Unable to Parse address
4453        ;;   ${prefix}/share/fonts/X11/misc/
4454        #:tests? #f
4455        #; #:phases
4456        #;
4457        (modify-phases %standard-phases
4458          (add-before 'check 'start-xorg-server
4459                      (lambda* (#:key inputs #:allow-other-keys)
4460                        ;; The test suite requires a running X server.
4461                        (system (format #f "~a/bin/Xvfb :1 &"
4462                                        (assoc-ref inputs "xorg-server")))
4463                        (setenv "DISPLAY" ":1")
4464                        #t)))))
4465     (home-page "https://www.cogl3d.org")
4466     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
4467     (description
4468      "Cogl is a small library for using 3D graphics hardware to draw pretty
4469 pictures.  The API departs from the flat state machine style of OpenGL and is
4470 designed to make it easy to write orthogonal components that can render
4471 without stepping on each others toes.")
4472     (license (list license:expat       ; most of the code
4473                    license:bsd-3       ; cogl/cogl-point-in-poly.c
4474                    license:sgifreeb2.0 ; cogl-path/tesselator/
4475                    license:asl2.0))))  ; examples/android/
4476
4477 (define-public clutter
4478   (package
4479     (name "clutter")
4480     (version "1.26.2")
4481     (source
4482      (origin
4483        (method url-fetch)
4484        (uri (string-append "mirror://gnome/sources/" name "/"
4485                            (version-major+minor version) "/"
4486                            name "-" version ".tar.xz"))
4487        (sha256
4488         (base32
4489          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
4490     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
4491     ;; to clutter, corresponding changes may be appropriate in mutter as well.
4492     (build-system gnu-build-system)
4493     (outputs '("out"
4494                "doc"))                            ;9 MiB of gtk-doc HTML pages
4495     (native-inputs
4496      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
4497        ("gobject-introspection" ,gobject-introspection)
4498        ("pkg-config" ,pkg-config)
4499        ("xsltproc" ,libxslt)))
4500     (propagated-inputs
4501      `(("cogl" ,cogl)
4502        ("cairo" ,cairo)
4503        ("atk" ,atk)
4504        ("gtk+" ,gtk+)
4505        ("json-glib" ,json-glib)
4506        ("glib" ,glib)
4507        ("libxcomposite" ,libxcomposite)
4508        ("libxdamage" ,libxdamage)
4509        ("libxext" ,libxext)
4510        ("xinput" ,xinput)))
4511     (inputs
4512      `(("libxkbcommon" ,libxkbcommon)
4513        ("udev" ,eudev)))
4514     (arguments
4515      `(#:configure-flags (list "--enable-x11-backend=yes"
4516
4517                                ;; This produces share/doc/{clutter,cally}.
4518                                (string-append "--with-html-dir="
4519                                               (assoc-ref %outputs "doc")
4520                                               "/share/doc"))
4521        ;; XXX FIXME: Get test suite working.  It would probably fail in the
4522        ;; same way the cogl tests fail, since clutter is based on cogl.
4523        #:tests? #f))
4524     (home-page "http://www.clutter-project.org")
4525     (synopsis "OpenGL-based interactive canvas library")
4526     (description
4527      "Clutter is an OpenGL-based interactive canvas library, designed for
4528 creating fast, mainly 2D single window applications such as media box UIs,
4529 presentations, kiosk style applications and so on.")
4530     (license license:lgpl2.0+)))
4531
4532 (define-public clutter-gtk
4533   (package
4534     (name "clutter-gtk")
4535     (version "1.8.4")
4536     (source
4537      (origin
4538        (method url-fetch)
4539        (uri (string-append "mirror://gnome/sources/" name "/"
4540                            (version-major+minor version) "/"
4541                            name "-" version ".tar.xz"))
4542        (sha256
4543         (base32
4544          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
4545     (build-system gnu-build-system)
4546     (native-inputs
4547      `(("pkg-config" ,pkg-config)
4548        ("gobject-introspection" ,gobject-introspection)))
4549     (propagated-inputs
4550      ;; clutter-gtk.pc refers to all these.
4551      `(("clutter" ,clutter)
4552        ("gtk+" ,gtk+)))
4553     (home-page "http://www.clutter-project.org")
4554     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
4555     (description
4556      "Clutter is an OpenGL-based interactive canvas library, designed for
4557 creating fast, mainly 2D single window applications such as media box UIs,
4558 presentations, kiosk style applications and so on.")
4559     (license license:lgpl2.0+)))
4560
4561 (define-public clutter-gst
4562   (package
4563     (name "clutter-gst")
4564     (version "3.0.27")
4565     (source
4566      (origin
4567        (method url-fetch)
4568        (uri (string-append "mirror://gnome/sources/clutter-gst/"
4569                            (version-major+minor version) "/"
4570                            "clutter-gst-" version ".tar.xz"))
4571        (sha256
4572         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
4573     (build-system gnu-build-system)
4574     (native-inputs
4575      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
4576        ("pkg-config" ,pkg-config)
4577        ("gobject-introspection" ,gobject-introspection)))
4578     (inputs
4579      `(("clutter" ,clutter)
4580        ("gstreamer" ,gstreamer)
4581        ("gst-plugins-base" ,gst-plugins-base)))
4582     (home-page "http://www.clutter-project.org")
4583     (synopsis "Integration library for using GStreamer with Clutter")
4584     (description
4585      "Clutter-Gst is an integration library for using GStreamer with Clutter.
4586 It provides a GStreamer sink to upload frames to GL and an actor that
4587 implements the ClutterGstPlayer interface using playbin.  Clutter is an
4588 OpenGL-based interactive canvas library.")
4589     (license license:lgpl2.0+)))
4590
4591 (define-public libchamplain
4592   (package
4593     (name "libchamplain")
4594     (version "0.12.16")
4595     (source (origin
4596               (method url-fetch)
4597               (uri (string-append
4598                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
4599                     version ".tar.xz"))
4600               (sha256
4601                (base32
4602                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
4603     (build-system gnu-build-system)
4604     (arguments '(#:configure-flags '("--enable-vala")))
4605     (native-inputs
4606      `(("gobject-introspection" ,gobject-introspection)
4607        ("pkg-config" ,pkg-config)
4608        ("vala" ,vala)))
4609     (propagated-inputs
4610      `(("libsoup" ,libsoup)
4611        ("sqlite" ,sqlite)
4612        ("clutter" ,clutter)
4613        ("clutter-gtk" ,clutter-gtk)
4614        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
4615        ("cairo" ,cairo)
4616        ("gtk+3" ,gtk+)
4617        ("glib" ,glib)))
4618     (home-page "https://projects.gnome.org/libchamplain/")
4619     (synopsis "C library providing a ClutterActor to display maps")
4620     (description
4621      "libchamplain is a C library providing a ClutterActor to display maps.
4622 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
4623 and Perl bindings are also available.  It supports numerous free map sources
4624 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
4625     (license license:lgpl2.1+)))
4626
4627 (define-public gom
4628   (package
4629     (name "gom")
4630     (version "0.3.2")
4631     (source
4632      (origin
4633        (method url-fetch)
4634        (uri (string-append "mirror://gnome/sources/gom/"
4635                            (version-major+minor version) "/"
4636                            "gom-" version ".tar.xz"))
4637        (sha256
4638         (base32
4639          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
4640     (build-system gnu-build-system)
4641     (native-inputs
4642      `(("intltool" ,intltool)
4643        ("pkg-config" ,pkg-config)
4644        ("gobject-introspection" ,gobject-introspection)))
4645     (inputs
4646      `(("glib" ,glib)
4647        ("gdk-pixbuf" ,gdk-pixbuf)
4648        ("sqlite" ,sqlite)))
4649     ;; XXX TODO: Figure out how to run the test suite.
4650     (arguments `(#:tests? #f))
4651     (home-page "https://wiki.gnome.org/Projects/Gom")
4652     (synopsis "Object mapper from GObjects to SQLite")
4653     (description
4654      "Gom provides an object mapper from GObjects to SQLite.  It helps you
4655 write applications that need to store structured data as well as make complex
4656 queries upon that data.")
4657     (license license:lgpl2.1+)))
4658
4659 (define-public libgnome-games-support
4660   (package
4661     (name "libgnome-games-support")
4662     (version "1.4.4")
4663     (source (origin
4664               (method url-fetch)
4665               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
4666                                   (version-major+minor version) "/"
4667                                   "libgnome-games-support-" version ".tar.xz"))
4668               (sha256
4669                (base32
4670                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
4671     (build-system gnu-build-system)
4672     (arguments
4673      '(#:phases
4674        (modify-phases %standard-phases
4675          (add-before 'check 'pre-check
4676            (lambda _
4677              ;; Tests require a writable HOME.
4678              (setenv "HOME" (getcwd))
4679              #t)))))
4680     (native-inputs
4681      `(("intltool" ,intltool)
4682        ("pkg-config" ,pkg-config)
4683        ("vala" ,vala)))
4684     (propagated-inputs
4685      ;; Required by libgnome-games-support-1.0.pc
4686      `(("gtk+" ,gtk+)
4687        ("libgee" ,libgee)))
4688     (home-page "https://www.gnome.org/")
4689     (synopsis "Useful functionality shared among GNOME games")
4690     (description
4691      "libgnome-games-support is a small library intended for internal use by
4692 GNOME Games, but it may be used by others.")
4693     (license license:lgpl3+)))
4694
4695 (define-public gnome-klotski
4696   (package
4697     (name "gnome-klotski")
4698     (version "3.34.0")
4699     (source (origin
4700               (method url-fetch)
4701               (uri (string-append "mirror://gnome/sources/" name "/"
4702                                   (version-major+minor version) "/"
4703                                   name "-" version ".tar.xz"))
4704               (sha256
4705                (base32
4706                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
4707     (build-system meson-build-system)
4708     (arguments
4709      '(#:glib-or-gtk? #t
4710        #:phases
4711        (modify-phases %standard-phases
4712          (add-after 'unpack 'skip-gtk-update-icon-cache
4713            ;; Don't create 'icon-theme.cache'.
4714            (lambda _
4715              (substitute* "build-aux/meson_post_install.py"
4716                (("gtk-update-icon-cache") (which "true")))
4717              #t)))))
4718     (native-inputs
4719      `(("desktop-file-utils" ,desktop-file-utils)
4720        ("glib:bin" ,glib "bin") ; for glib-compile-resources
4721        ("intltool" ,intltool)
4722        ("itstool" ,itstool)
4723        ("pkg-config" ,pkg-config)
4724        ("vala" ,vala)
4725        ("xmllint" ,libxml2)))
4726     (inputs
4727      `(("gtk+" ,gtk+)
4728        ("libgnome-games-support" ,libgnome-games-support)
4729        ("librsvg" ,librsvg)))
4730     (home-page "https://wiki.gnome.org/Apps/Klotski")
4731     (synopsis "Sliding block puzzles")
4732     (description
4733      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
4734 the patterned block to the area bordered by green markers.  To do so, you will
4735 need to slide other blocks out of the way.  Complete each puzzle in as few moves
4736 as possible!")
4737     (license license:gpl2+)))
4738
4739 (define-public grilo
4740   (package
4741     (name "grilo")
4742     (version "0.3.10")
4743     (source
4744      (origin
4745        (method url-fetch)
4746        (uri (string-append "mirror://gnome/sources/" name "/"
4747                            (version-major+minor version) "/"
4748                            name "-" version ".tar.xz"))
4749        (sha256
4750         (base32
4751          "1s7ilyywf18q26aj5c4709kfizqywjlnacp4jzmj9v9i9kkv4i3y"))))
4752     (build-system meson-build-system)
4753     (native-inputs
4754      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
4755        ("intltool" ,intltool)
4756        ("pkg-config" ,pkg-config)
4757        ("gobject-introspection" ,gobject-introspection)
4758        ("gtk-doc" ,gtk-doc)
4759        ("vala" ,vala)))
4760     (inputs
4761      `(("cyrus-sasl" ,cyrus-sasl)
4762        ("glib" ,glib)
4763        ("gtk+" ,gtk+)
4764        ("libxml2" ,libxml2)
4765        ("liboauth" ,liboauth)
4766        ("libsoup" ,libsoup)
4767        ("totem-pl-parser" ,totem-pl-parser)))
4768     (native-search-paths
4769      (list (search-path-specification
4770             (variable "GRL_PLUGIN_PATH")
4771             (files (list (string-append "lib/grilo-"
4772                                         (version-major+minor version)))))))
4773     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
4774     (synopsis "Framework for discovering and browsing media")
4775     (description
4776      "Grilo is a framework focused on making media discovery and browsing easy
4777 for application developers.")
4778     (license license:lgpl2.1+)))
4779
4780 (define-public grilo-plugins
4781   (package
4782     (name "grilo-plugins")
4783     (version "0.3.10")
4784     (source
4785      (origin
4786        (method url-fetch)
4787        (uri (string-append "mirror://gnome/sources/" name "/"
4788                            (version-major+minor version) "/"
4789                            name "-" version ".tar.xz"))
4790        (sha256
4791         (base32
4792          "0jldaixc4kzycn5v8ixkjld1n0z3dp0l1p3vchgdwpvdvc7kcfw0"))))
4793     (build-system meson-build-system)
4794     (native-inputs
4795      `(("gettext" ,gettext-minimal)
4796        ("glib:bin" ,glib "bin")
4797        ("gtk+:bin" ,gtk+ "bin")
4798        ("itstool" ,itstool)
4799        ("pkg-config" ,pkg-config)))
4800     ;; TODO: ahavi, gstreamer
4801     (inputs
4802      `(("grilo" ,grilo)
4803        ;("gmime" ,gmime) ; unused
4804        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
4805        ("gom" ,gom)
4806        ;("gssdp" ,gssdp) ; unused
4807        ;("gupnp" ,gupnp) ; unused
4808        ;("gupnp-av" ,gupnp-av) ; unused
4809        ("json-glib" ,json-glib)
4810        ("avahi" ,avahi)
4811        ("libgdata" ,libgdata)
4812        ("libmediaart" ,libmediaart)
4813        ;("librest" ,rest) ; unused
4814        ("libsoup" ,libsoup)
4815        ("totam-pl-parser" ,totem-pl-parser)
4816        ("tracker" ,tracker))) ; unused because it's too old
4817     (arguments
4818      `(#:glib-or-gtk? #t
4819        ;;Disable lua-factory as it needs missing dependencies
4820        #:configure-flags '("-Denable-lua-factory=no")))
4821     (home-page "https://live.gnome.org/Grilo")
4822     (synopsis "Plugins for the Grilo media discovery library")
4823     (description
4824      "Grilo is a framework focused on making media discovery and browsing easy
4825 for application developers.  This package provides plugins for common media
4826 discovery protocols.")
4827     (license license:lgpl2.1+)))
4828
4829 (define-public totem
4830   (package
4831     (name "totem")
4832     (version "3.34.1")
4833     (source
4834      (origin
4835        (method url-fetch)
4836        (uri (string-append "mirror://gnome/sources/" name "/"
4837                            (version-major+minor version) "/"
4838                            name "-" version ".tar.xz"))
4839        (sha256
4840         (base32
4841          "028sc6xbyi7rs884862d8f3di6zhcm0lhvlpc3r69ifzjsq9my3b"))))
4842     (build-system meson-build-system)
4843     (native-inputs
4844      `(("pkg-config" ,pkg-config)
4845        ("desktop-file-utils" ,desktop-file-utils)
4846        ("gobject-introspection" ,gobject-introspection)
4847        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
4848        ("intltool" ,intltool)
4849        ("itstool" ,itstool)
4850        ("xmllint" ,libxml2)
4851        ("python-pylint" ,python-pylint)
4852        ("xorg-server" ,xorg-server-for-tests)))
4853     (propagated-inputs
4854      `(("dconf" ,dconf)))
4855     (inputs
4856      `(("gtk+" ,gtk+)
4857        ("gdk-pixbuf" ,gdk-pixbuf)
4858        ("atk" ,atk)
4859        ("cairo" ,cairo)
4860        ("dbus-glib" ,dbus-glib)
4861        ("clutter" ,clutter)
4862        ("clutter-gtk" ,clutter-gtk)
4863        ("clutter-gst" ,clutter-gst)
4864        ("xorgproto" ,xorgproto)
4865        ("libxxf86vm" ,libxxf86vm)
4866        ("libxtst" ,libxtst)
4867        ("libxrandr" ,libxrandr)
4868        ("libxml2" ,libxml2)
4869        ("libsoup" ,libsoup)
4870        ("libpeas" ,libpeas)
4871        ("librsvg" ,librsvg)
4872        ("lirc" ,lirc)
4873        ("gnome-desktop" ,gnome-desktop)
4874        ("gstreamer" ,gstreamer)
4875        ("gst-plugins-base" ,gst-plugins-base)
4876        ("gst-plugins-good" ,gst-plugins-good)
4877        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4878        ("adwaita-icon-theme" ,adwaita-icon-theme)
4879        ("python" ,python)
4880        ("python-pygobject" ,python-pygobject)
4881        ("totem-pl-parser" ,totem-pl-parser)
4882        ("grilo" ,grilo)
4883        ("grilo-plugins" ,grilo-plugins)
4884        ("vala" ,vala)))
4885     (arguments
4886      `(#:glib-or-gtk? #t
4887
4888        ;; Disable automatic GStreamer plugin installation via PackageKit and
4889        ;; all that.
4890        #:configure-flags '("-D" "enable-easy-codec-installation=no"
4891
4892                            ;; Do not build .a files for the plugins, it's
4893                            ;; completely useless.  This saves 2 MiB.
4894                            "--default-library" "shared")
4895        #:phases
4896        (modify-phases %standard-phases
4897          (add-after 'unpack 'skip-gtk-update-icon-cache
4898            ;; Don't create 'icon-theme.cache'.
4899            (lambda _
4900              (substitute* "meson_post_install.py"
4901                (("gtk-update-icon-cache") "true"))
4902              #t))
4903          (add-before
4904           'install 'disable-cache-generation
4905           (lambda _
4906             (setenv "DESTDIR" "/")
4907             #t))
4908          (add-before
4909           'check 'pre-check
4910           (lambda _
4911             ;; Tests require a running X server.
4912             (system "Xvfb :1 &")
4913             (setenv "DISPLAY" ":1")
4914             #t))
4915          (add-after
4916           'install 'wrap-totem
4917           (lambda* (#:key inputs outputs #:allow-other-keys)
4918             (let ((out             (assoc-ref outputs "out"))
4919                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
4920                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
4921               (wrap-program (string-append out "/bin/totem")
4922                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
4923                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
4924               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
4925                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
4926             #t)))))
4927     (home-page "https://wiki.gnome.org/Apps/Videos")
4928     (synopsis "Simple media player for GNOME based on GStreamer")
4929     (description "Totem is a simple yet featureful media player for GNOME
4930 which can read a large number of file formats.")
4931     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
4932     ;; to be used and distributed together with GStreamer and Totem.  See
4933     ;; file://COPYING in the source distribution for details.
4934     (license license:gpl2+)))
4935
4936 (define-public rhythmbox
4937  (package
4938    (name "rhythmbox")
4939    (version "3.4.4")
4940    (source (origin
4941             (method url-fetch)
4942             (uri (string-append "mirror://gnome/sources/rhythmbox/"
4943                                 (version-major+minor version) "/"
4944                                 "rhythmbox-" version ".tar.xz"))
4945             (sha256
4946              (base32
4947               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
4948    (build-system glib-or-gtk-build-system)
4949    (arguments
4950     `(#:configure-flags
4951       (list "--enable-lirc"
4952             "--enable-python"
4953             "--enable-vala"
4954             "--with-brasero"
4955             "--with-gudev"
4956             "--with-libsecret")
4957       #:phases
4958       (modify-phases %standard-phases
4959         (add-after
4960          'install 'wrap-rhythmbox
4961          (lambda* (#:key inputs outputs #:allow-other-keys)
4962            (let ((out               (assoc-ref outputs "out"))
4963                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4964                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
4965                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
4966                  (python-path       (getenv "PYTHONPATH")))
4967              (wrap-program (string-append out "/bin/rhythmbox")
4968                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
4969                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
4970                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
4971                `("PYTHONPATH"             ":" prefix (,python-path))))
4972            #t)))))
4973    (propagated-inputs
4974     `(("dconf" ,dconf)))
4975    (native-inputs
4976     `(("itstool" ,itstool)
4977       ("intltool" ,intltool)
4978       ("glib" ,glib "bin")
4979       ("gobject-introspection" ,gobject-introspection)
4980       ("desktop-file-utils" ,desktop-file-utils)
4981       ("pkg-config" ,pkg-config)
4982       ("xmllint" ,libxml2)))
4983    (inputs
4984     `(("json-glib" ,json-glib)
4985       ("tdb" ,tdb)
4986       ("gnome-desktop" ,gnome-desktop)
4987       ("python" ,python)
4988       ("python-pygobject" ,python2-pygobject)
4989       ("vala" ,vala)
4990       ("gmime" ,gmime)
4991       ("adwaita-icon-theme" ,adwaita-icon-theme)
4992       ("grilo" ,grilo)
4993       ("grilo-plugins" ,grilo-plugins)
4994       ("gstreamer" ,gstreamer)
4995       ("gst-plugins-base" ,gst-plugins-base)
4996       ("gst-plugins-good" ,gst-plugins-good)
4997       ("totem-pl-parser" ,totem-pl-parser)
4998       ("libgudev" ,libgudev)
4999       ;;("libmtp" ,libmtp) FIXME: Not detected
5000       ("libsecret" ,libsecret)
5001       ("libsoup" ,libsoup)
5002       ("libnotify" ,libnotify)
5003       ("libpeas" ,libpeas)
5004       ("lirc" ,lirc)
5005       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
5006       ;;("clutter" ,clutter)
5007       ;;("clutter-gtk" ,clutter-gtk)
5008       ;;("clutter-gst" ,clutter-gst)
5009       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5010       ("atk" ,atk)
5011       ("pango" ,pango)
5012       ("gtk+" ,gtk+)
5013       ;; TODO:
5014       ;;  * libgpod
5015       ;;  * mx
5016       ("brasero" ,brasero)))
5017    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
5018    (synopsis "Music player for GNOME")
5019    (description "Rhythmbox is a music playing application for GNOME.  It
5020 supports playlists, song ratings, and any codecs installed through gstreamer.")
5021    (license license:gpl2+)))
5022
5023 (define-public eog
5024  (package
5025    (name "eog")
5026    (version "3.34.1")
5027    (source (origin
5028             (method url-fetch)
5029             (uri (string-append "mirror://gnome/sources/" name "/"
5030                                 (version-major+minor version) "/"
5031                                 name "-" version ".tar.xz"))
5032             (sha256
5033              (base32
5034               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
5035    (build-system meson-build-system)
5036    (arguments
5037     `(#:configure-flags
5038       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
5039       (list (string-append "-Dc_link_args=-Wl,-rpath="
5040                            (assoc-ref %outputs "out") "/lib/eog"))
5041       #:phases
5042       (modify-phases %standard-phases
5043          (add-after 'unpack 'skip-gtk-update-icon-cache
5044            ;; Don't create 'icon-theme.cache'.
5045            (lambda _
5046              (substitute* "meson_post_install.py"
5047                (("gtk-update-icon-cache") "true"))
5048              #t))
5049         (add-after 'install 'wrap-eog
5050           (lambda* (#:key outputs #:allow-other-keys)
5051             (let ((out               (assoc-ref outputs "out"))
5052                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
5053               (wrap-program (string-append out "/bin/eog")
5054                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5055             #t)))))
5056    (propagated-inputs
5057     `(("dconf" ,dconf)))
5058    (native-inputs
5059     `(("intltool" ,intltool)
5060       ("itstool" ,itstool)
5061       ("glib" ,glib "bin")
5062       ("gobject-introspection" ,gobject-introspection)
5063       ("pkg-config" ,pkg-config)
5064       ("xmllint" ,libxml2)))
5065    (inputs
5066     `(("gnome-desktop" ,gnome-desktop)
5067       ("shared-mime-info" ,shared-mime-info)
5068       ("adwaita-icon-theme" ,adwaita-icon-theme)
5069       ("exempi" ,exempi)
5070       ("lcms" ,lcms)
5071       ("libexif" ,libexif)
5072       ("libpeas" ,libpeas)
5073       ("libjpeg" ,libjpeg-turbo)
5074       ("librsvg" ,librsvg-next)
5075       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5076       ("gtk+" ,gtk+)))
5077    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
5078    (synopsis "GNOME image viewer")
5079    (description "Eye of GNOME is the GNOME image viewer.  It
5080 supports image conversion, rotation, and slideshows.")
5081    (license license:gpl2+)))
5082
5083 (define-public eog-plugins
5084   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
5085   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
5086   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
5087   ;; 'XDG_DATA_DIRS' appropriately set.
5088   (package
5089     (name "eog-plugins")
5090     (version "3.26.4")
5091     (source (origin
5092               (method url-fetch)
5093               (uri (string-append "mirror://gnome/sources/eog-plugins/"
5094                                   (version-major+minor version) "/"
5095                                   "eog-plugins-" version ".tar.xz"))
5096               (sha256
5097                (base32
5098                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
5099     (build-system gnu-build-system)
5100     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
5101     (synopsis "Extensions for the Eye of GNOME image viewer")
5102     (native-inputs
5103      `(("pkg-config" ,pkg-config)
5104        ("gettext" ,gettext-minimal)))
5105     (inputs
5106      `(("eog" ,eog)
5107        ("glib" ,glib)
5108        ("gtk+" ,gtk+)
5109        ("libpeas" ,libpeas)
5110        ("libexif" ,libexif)
5111        ("libchamplain" ,libchamplain)))
5112     (description
5113      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
5114 notably:
5115
5116 @itemize
5117 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
5118 @item @dfn{Map}, which displays a map of where the picture was taken on the
5119 side panel;
5120 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
5121 @end itemize\n")
5122
5123     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
5124     ;; long suspicious byte stream that goes to a
5125     ;; ".gresource.eog_postasa_plugin" ELF section.
5126     (license license:gpl2+)))
5127
5128 (define-public libgudev
5129   (package
5130     (name "libgudev")
5131     (version "232")
5132     (source (origin
5133               (method url-fetch)
5134               (uri (string-append "mirror://gnome/sources/" name "/"
5135                                   version "/" name "-" version ".tar.xz"))
5136               (sha256
5137                (base32
5138                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
5139     (build-system gnu-build-system)
5140     (arguments
5141      '(#:configure-flags
5142        ;; umockdev depends on libgudev.
5143        (list "--disable-umockdev")))
5144     (native-inputs
5145      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5146        ("gobject-introspection" ,gobject-introspection)
5147        ("pkg-config" ,pkg-config)))
5148     (propagated-inputs
5149      `(("glib" ,glib))) ; required by gudev-1.0.pc
5150     (inputs
5151      `(("udev" ,eudev)))
5152     (home-page "https://wiki.gnome.org/Projects/libgudev")
5153     (synopsis "GObject bindings for libudev")
5154     (description
5155      "This library provides GObject bindings for libudev.  It was originally
5156 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
5157     (license license:lgpl2.1+)))
5158
5159 (define-public gvfs
5160   (package
5161     (name "gvfs")
5162     (version "1.40.1")
5163     (source (origin
5164               (method url-fetch)
5165               (uri (string-append "mirror://gnome/sources/gvfs/"
5166                                   (version-major+minor version) "/"
5167                                   "gvfs-" version ".tar.xz"))
5168               (sha256
5169                (base32
5170                 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))))
5171     (build-system meson-build-system)
5172     (arguments
5173      '(#:glib-or-gtk? #t
5174        #:configure-flags
5175        (list "-Dsystemduserunitdir=no"
5176              "-Dtmpfilesdir=no"
5177              ;; Otherwise, the RUNPATH will lack the final path component.
5178              (string-append "-Dc_link_args=-Wl,-rpath="
5179                             (assoc-ref %outputs "out") "/lib/gvfs"))))
5180     (native-inputs
5181      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5182        ("gettext" ,gettext-minimal)
5183        ("gtk-doc" ,gtk-doc)
5184        ("pkg-config" ,pkg-config)
5185        ("xsltproc" ,libxslt)))
5186     (inputs
5187      `(("avahi" ,avahi)
5188        ("docbook-xml" ,docbook-xml-4.2)
5189        ("docbook-xsl" ,docbook-xsl)
5190        ("dbus" ,dbus)
5191        ("elogind" ,elogind)
5192        ("fuse" ,fuse)
5193        ("gcr" ,gcr)
5194        ("glib" ,glib)
5195        ("gnome-online-accounts" ,gnome-online-accounts)
5196        ("libarchive" ,libarchive)
5197        ("libbluray" ,libbluray)
5198        ("libcap" ,libcap)
5199        ("libcdio-paranoia" ,libcdio-paranoia)
5200        ("libgcrypt" ,libgcrypt)
5201        ("libgdata" ,libgdata)
5202        ("libgphoto2" ,libgphoto2)
5203        ("libgudev" ,libgudev)
5204        ("libimobiledevice" ,libimobiledevice)
5205        ("libmtp" ,libmtp)
5206        ("libnfs" ,libnfs)
5207        ("libsecret" ,libsecret)
5208        ("libsmbclient" ,samba)
5209        ("libsoup" ,libsoup)
5210        ("libxml2" ,libxml2)
5211        ("openssh" ,openssh)
5212        ("polkit" ,polkit)
5213        ("udisks" ,udisks)))
5214     (home-page "https://wiki.gnome.org/gvfs/")
5215     (synopsis "Userspace virtual file system for GIO")
5216     (description
5217      "GVFS is a userspace virtual file system designed to work with the I/O
5218 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
5219 to all applications using the GIO API.  It also supports exposing the GVFS
5220 mounts to non-GIO applications using FUSE.
5221
5222 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
5223 DAV, and others.")
5224     (license license:lgpl2.0+)))
5225
5226 (define-public gusb
5227   (package
5228     (name "gusb")
5229     (version "0.3.0")
5230     (source (origin
5231               (method git-fetch)
5232               (uri (git-reference
5233                      (url "https://github.com/hughsie/libgusb.git")
5234                      (commit version)))
5235               (file-name (git-file-name name version))
5236               (sha256
5237                (base32
5238                 "002pg0p4qzzk5dkyiynm483ir26zxrn4k71c7f6j85mfsdzbgli7"))))
5239     (build-system meson-build-system)
5240     (native-inputs
5241      `(("gobject-introspection" ,gobject-introspection)
5242        ("pkg-config" ,pkg-config)
5243        ("vala" ,vala)
5244        ("gtk-doc" ,gtk-doc)))
5245     (propagated-inputs
5246      ;; Both of these are required by gusb.pc.
5247      `(("glib" ,glib)
5248        ("libusb" ,libusb)))
5249     (arguments
5250      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
5251     (home-page "https://github.com/hughsie/libgusb")
5252     (synopsis "GLib binding for libusb1")
5253     (description
5254      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
5255 asynchronous control, bulk and interrupt transfers with proper cancellation
5256 and integration into a mainloop.  This makes it easy to integrate low level
5257 USB transfers with your high-level application or system daemon.")
5258     (license license:lgpl2.1+)))
5259
5260 (define-public simple-scan
5261   (package
5262     (name "simple-scan")
5263     (version "3.36.0")
5264     (source
5265      (origin
5266        (method url-fetch)
5267        (uri (string-append "mirror://gnome/sources/simple-scan/"
5268                            (version-major+minor version) "/"
5269                            "simple-scan-" version ".tar.xz"))
5270        (sha256
5271         (base32 "198l3yhqhb2wzfdcgi8fzbwycr0njn44583dazz6wy1gqbiqnzgm"))))
5272     (build-system meson-build-system)
5273     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
5274     (arguments
5275      '(#:glib-or-gtk? #t))
5276     (inputs
5277      `(("gtk" ,gtk+)
5278        ("zlib" ,zlib)
5279        ("cairo" ,cairo)
5280        ("colord" ,colord)
5281        ("gdk-pixbuf" ,gdk-pixbuf)
5282        ("gusb" ,gusb)
5283        ("libsane" ,sane-backends)))
5284     (native-inputs
5285      `(("gettext" ,gettext-minimal)
5286        ("itstool" ,itstool)
5287        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
5288        ("pkg-config" ,pkg-config)
5289        ("vala" ,vala)
5290        ("xmllint" ,libxml2)))
5291     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
5292     (synopsis "Document and image scanner")
5293     (description
5294      "Document Scanner is an easy-to-use application that lets you connect your
5295 scanner and quickly capture images and documents in an appropriate format.  It
5296 supports any scanner for which a suitable SANE driver is available, which is
5297 almost all of them.")
5298     (license license:gpl3+)))
5299
5300 (define-public eolie
5301   (package
5302     (name "eolie")
5303     (version "0.9.98.1")
5304     (source (origin
5305               (method url-fetch)
5306               (uri (string-append "https://adishatz.org/eolie/eolie-"
5307                                   version ".tar.xz"))
5308               (sha256
5309                (base32
5310                 "1d844zva5w4p9pnp9c2g7zyb4vayr2g2drf78spxsdlc5lbd7lqr"))))
5311     (build-system meson-build-system)
5312     (arguments
5313      `(#:glib-or-gtk? #t
5314        #:phases
5315        (modify-phases %standard-phases
5316          (add-after 'unpack 'skip-gtk-update-icon-cache
5317            ;; Don't create 'icon-theme.cache'.
5318            (lambda _
5319              (substitute* "meson_post_install.py"
5320                (("gtk-update-icon-cache") "true"))
5321              #t))
5322          (add-after 'wrap 'wrap-more
5323            (lambda* (#:key inputs outputs #:allow-other-keys)
5324              (let* ((out  (assoc-ref outputs "out"))
5325                     ;; These libraries must be on LD_LIBRARY_PATH.
5326                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
5327                             "atk" "gtk+" "gsettings-desktop-schemas"
5328                             "gobject-introspection"))
5329                     (path (string-join
5330                            (map (lambda (lib)
5331                                   (string-append (assoc-ref inputs lib) "/lib"))
5332                                 libs)
5333                            ":")))
5334                (wrap-program (string-append out "/bin/eolie")
5335                  `("LD_LIBRARY_PATH" ":" prefix (,path))
5336                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
5337                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
5338              #t)))))
5339     (native-inputs
5340      `(("intltool" ,intltool)
5341        ("itstool" ,itstool)
5342        ("pkg-config" ,pkg-config)
5343        ("python" ,python)
5344        ("glib:bin" ,glib "bin")))
5345     (inputs
5346      `(("gobject-introspection" ,gobject-introspection)
5347        ("glib-networking" ,glib-networking)
5348        ("cairo" ,cairo)
5349        ("gtk+" ,gtk+)
5350        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
5351        ("python" ,python-wrapper)
5352        ("python-dateutil" ,python-dateutil)
5353        ("python-pyfxa" ,python-pyfxa)
5354        ("python-pygobject" ,python-pygobject)
5355        ("python-pycairo" ,python-pycairo)
5356        ("python-pycrypto" ,python-pycrypto)
5357        ("libsecret" ,libsecret)
5358        ("gtkspell3" ,gtkspell3)
5359        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5360        ("webkitgtk" ,webkitgtk)))
5361     (home-page "https://wiki.gnome.org/Apps/Eolie")
5362     (synopsis "Web browser for GNOME")
5363     (description
5364      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
5365 a secret password store, an adblocker, and a modern UI.")
5366     (license license:gpl3+)))
5367
5368 (define-public epiphany
5369   (package
5370     (name "epiphany")
5371     (version "3.34.2")
5372     (source (origin
5373               (method url-fetch)
5374               (uri (string-append "mirror://gnome/sources/epiphany/"
5375                                   (version-major+minor version) "/"
5376                                   "epiphany-" version ".tar.xz"))
5377               (sha256
5378                (base32
5379                 "18d48vcp2nxs63bddkdplslgbnlfq79pm2ivl8hk38kkggy3dahf"))))
5380
5381     (build-system meson-build-system)
5382     (arguments
5383      ;; FIXME: tests run under Xvfb, but fail with:
5384      ;;   /src/bookmarks/ephy-bookmarks/create:
5385      ;;   ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
5386      ;;      subsystem
5387      ;;   FAIL
5388      '(#:tests? #f
5389        #:glib-or-gtk? #t
5390        #:phases
5391        (modify-phases %standard-phases
5392          (add-after 'unpack 'skip-gtk-update-icon-cache
5393            ;; Don't create 'icon-theme.cache'.
5394            (lambda _
5395              (substitute* "post_install.py"
5396                (("gtk-update-icon-cache") "true"))
5397              #t)))
5398        #:configure-flags
5399        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
5400        (list (string-append "-Dc_link_args=-Wl,-rpath="
5401                             (assoc-ref %outputs "out") "/lib/epiphany"))))
5402     (propagated-inputs
5403      `(("dconf" ,dconf)))
5404     (native-inputs
5405      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5406        ("glib:bin" ,glib "bin") ; for glib-mkenums
5407        ("intltool" ,intltool)
5408        ("itstool" ,itstool)
5409        ("pkg-config" ,pkg-config)
5410        ("xmllint" ,libxml2)))
5411     (inputs
5412      `(("avahi" ,avahi)
5413        ("gcr" ,gcr)
5414        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
5415        ("glib-networking" ,glib-networking)
5416        ("gnome-desktop" ,gnome-desktop)
5417        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5418        ("json-glib" ,json-glib)
5419        ("iso-codes" ,iso-codes)
5420        ("libdazzle" ,libdazzle)
5421        ("libnotify" ,libnotify)
5422        ("libsecret" ,libsecret)
5423        ("libxslt" ,libxslt)
5424        ("nettle" ,nettle) ; for hogweed
5425        ("sqlite" ,sqlite)
5426        ("webkitgtk" ,webkitgtk)))
5427     (home-page "https://wiki.gnome.org/Apps/Web")
5428     (synopsis "GNOME web browser")
5429     (description
5430      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
5431 principles are simplicity and standards compliance.")
5432     (license license:gpl2+)))
5433
5434 (define-public d-feet
5435   (package
5436     (name "d-feet")
5437     (version "0.3.14")
5438     (source (origin
5439               (method url-fetch)
5440               (uri (string-append "mirror://gnome/sources/" name "/"
5441                                   (version-major+minor version) "/"
5442                                   name "-" version ".tar.xz"))
5443               (sha256
5444                (base32
5445                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
5446     (build-system glib-or-gtk-build-system)
5447     (arguments
5448      '(#:out-of-source? #f ; tests need to run in the source directory.
5449        #:phases
5450        (modify-phases %standard-phases
5451          (add-before
5452           'check 'pre-check
5453           (lambda _
5454             ;; The test suite requires a running X server.
5455             (system "Xvfb :1 &")
5456             (setenv "DISPLAY" ":1")
5457             ;; Don't fail on missing '/etc/machine-id'.
5458             (setenv "DBUS_FATAL_WARNINGS" "0")
5459             ;; tests.py and window.py don't meet E402:
5460             ;;   E402 module level import not at top of file
5461             (substitute* "src/tests/Makefile"
5462               (("--ignore=E123") "--ignore=E123,E402"))
5463             #t))
5464          (add-after
5465           'install 'wrap-program
5466           (lambda* (#:key outputs #:allow-other-keys)
5467             (let ((prog (string-append (assoc-ref outputs "out")
5468                                        "/bin/d-feet")))
5469               (wrap-program prog
5470                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
5471                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
5472               #t))))))
5473     (native-inputs
5474      `(("intltool" ,intltool)
5475        ("itstool" ,itstool)
5476        ("pkg-config" ,pkg-config)
5477        ("python-pep8" ,python-pep8)
5478        ("xmllint" ,libxml2)
5479        ("xorg-server" ,xorg-server-for-tests)))
5480     (inputs
5481      `(("gobject-introspection" ,gobject-introspection)
5482        ("gtk+" ,gtk+)
5483        ("python" ,python-wrapper)
5484        ("hicolor-icon-theme" ,hicolor-icon-theme)
5485        ("python-pygobject" ,python-pygobject)))
5486     (home-page "https://wiki.gnome.org/Apps/DFeet")
5487     (synopsis "D-Bus debugger")
5488     (description
5489      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
5490 of running programs and invoke methods on those interfaces.")
5491     (license license:gpl2+)))
5492
5493 (define-public yelp-xsl
5494   (package
5495     (name "yelp-xsl")
5496     (version "3.34.2")
5497     (source (origin
5498               (method url-fetch)
5499               (uri (string-append "mirror://gnome/sources/" name "/"
5500                                   (version-major+minor version) "/"
5501                                   name "-" version ".tar.xz"))
5502               (sha256
5503                (base32
5504                 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
5505     (build-system gnu-build-system)
5506     (native-inputs
5507      `(("gettext-minimal" ,gettext-minimal)
5508        ("itstool" ,itstool)
5509        ("xmllint" ,libxml2)))
5510     (home-page "https://wiki.gnome.org/Apps/Yelp")
5511     (synopsis "XSL stylesheets for Yelp")
5512     (description
5513      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
5514 to format Docbook and Mallard documents.")
5515     (license license:gpl2+)))
5516
5517 (define-public yelp
5518   (package
5519     (name "yelp")
5520     (version "3.32.2")
5521     (source (origin
5522               (method url-fetch)
5523               (uri (string-append "mirror://gnome/sources/" name "/"
5524                                   (version-major+minor version) "/"
5525                                   name "-" version ".tar.xz"))
5526               (sha256
5527                (base32
5528                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
5529     (build-system glib-or-gtk-build-system)
5530     (native-inputs
5531      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
5532        ("intltool" ,intltool)
5533        ("itstool" ,itstool)
5534        ("pkg-config" ,pkg-config)))
5535     (propagated-inputs
5536      `(("dconf" ,dconf)))
5537     (inputs
5538      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5539        ("libxslt" ,libxslt)
5540        ("sqlite" ,sqlite)
5541        ("webkitgtk" ,webkitgtk)
5542        ("yelp-xsl" ,yelp-xsl)))
5543     (home-page "https://wiki.gnome.org/Apps/Yelp")
5544     (synopsis "GNOME help browser")
5545     (description
5546      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
5547 man, info, and HTML documents.  It can locate documents according to the
5548 freedesktop.org help system specification.")
5549     (license license:gpl2+)))
5550
5551 (define-public yelp-tools
5552   (package
5553     (name "yelp-tools")
5554     (version "3.32.2")
5555     (source (origin
5556               (method url-fetch)
5557               (uri (string-append "mirror://gnome/sources/" name "/"
5558                                   (version-major+minor version) "/"
5559                                   name "-" version ".tar.xz"))
5560               (sha256
5561                (base32
5562                 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
5563     (build-system gnu-build-system)
5564     (native-inputs
5565      `(("pkg-config" ,pkg-config)))
5566     (propagated-inputs
5567      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
5568      `(("itstool" ,itstool)
5569        ("xmllint" ,libxml2)
5570        ("xsltproc" ,libxslt)))
5571     (inputs
5572      `(("yelp-xsl" ,yelp-xsl)))
5573     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
5574     (synopsis "Yelp documentation tools")
5575     (description
5576      "Yelp-tools is a collection of scripts and build utilities to help create,
5577 manage, and publish documentation for Yelp and the web.  Most of the heavy
5578 lifting is done by packages like yelp-xsl and itstool.  This package just
5579 wraps things up in a developer-friendly way.")
5580     (license license:gpl2+)))
5581
5582 (define-public libgee
5583   (package
5584     (name "libgee")
5585     (version "0.20.3")
5586     (source (origin
5587               (method url-fetch)
5588               (uri (string-append "mirror://gnome/sources/libgee/"
5589                                   (version-major+minor version) "/"
5590                                   "libgee-" version ".tar.xz"))
5591               (sha256
5592                (base32
5593                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
5594     (build-system gnu-build-system)
5595     (arguments
5596      `(#:phases
5597        (modify-phases %standard-phases
5598          (add-after 'unpack 'fix-introspection-install-dir
5599           (lambda* (#:key outputs #:allow-other-keys)
5600             (let ((out (assoc-ref outputs "out")))
5601               (substitute* "gee/Makefile.in"
5602                 (("@INTROSPECTION_GIRDIR@")
5603                  (string-append out "/share/gir-1.0/"))
5604                 (("@INTROSPECTION_TYPELIBDIR@")
5605                  (string-append out "/lib/girepository-1.0/")))))))))
5606     (native-inputs
5607      `(("glib" ,glib "bin")
5608        ("pkg-config" ,pkg-config)))
5609     (inputs
5610      `(("glib" ,glib)
5611        ("gobject-introspection" ,gobject-introspection)))
5612     (home-page "https://wiki.gnome.org/Projects/Libgee")
5613     (synopsis "GObject collection library")
5614     (description
5615      "Libgee is a utility library providing GObject-based interfaces and
5616 classes for commonly used data structures.")
5617     (license license:lgpl2.1+)))
5618
5619 (define-public gexiv2
5620   (package
5621     (name "gexiv2")
5622     (version "0.12.0")
5623     (source (origin
5624               (method url-fetch)
5625               (uri (string-append "mirror://gnome/sources/" name "/"
5626                                   (version-major+minor version) "/"
5627                                   name "-" version ".tar.xz"))
5628               (sha256
5629                (base32
5630                 "0slj5yj8c90l9pp5i3z74x5r3r4da0xfmbzkfq5k0dkg72q3kxaq"))))
5631     (build-system meson-build-system)
5632     (native-inputs
5633      `(("gcr" ,gcr)
5634        ("glib" ,glib "bin")
5635        ("pkg-config" ,pkg-config)
5636        ("vala" ,vala)))
5637     (propagated-inputs
5638      ;; Listed in "Requires" section of gexiv2.pc
5639      `(("exiv2" ,exiv2)))
5640     (inputs
5641      `(("glib" ,glib)
5642        ("gobject-introspection" ,gobject-introspection)))
5643     (home-page "https://wiki.gnome.org/Projects/gexiv2")
5644     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
5645     (description
5646      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
5647 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
5648 metadata in photo and video files of various formats.")
5649     (license license:gpl2+)))
5650
5651 (define-public shotwell
5652   (package
5653     (name "shotwell")
5654     (version "0.30.8")
5655     (source (origin
5656               (method url-fetch)
5657               (uri (string-append "mirror://gnome/sources/shotwell/"
5658                                   (version-major+minor version) "/"
5659                                   "shotwell-" version ".tar.xz"))
5660               (sha256
5661                (base32
5662                 "1f7m007g6w1sz8s60w6x81ghp2rrjmik8phd958b2hy8zz92wbbj"))))
5663     (build-system meson-build-system)
5664     (arguments
5665      '(#:glib-or-gtk? #t
5666        #:phases
5667        (modify-phases %standard-phases
5668          (add-after 'unpack 'skip-gtk-update-icon-cache
5669            (lambda _
5670              (substitute* "build-aux/meson/postinstall.py"
5671                (("gtk-update-icon-cache") (which "true"))
5672                (("update-desktop-database") (which "true")))
5673              #t)))))
5674     (propagated-inputs
5675      `(("dconf" ,dconf)))
5676     (native-inputs
5677      `(("gettext" ,gettext-minimal)
5678        ("glib:bin" ,glib "bin")
5679        ("itstool" ,itstool)
5680        ("pkg-config" ,pkg-config)
5681        ("vala" ,vala)))
5682     (inputs
5683      `(("gcr" ,gcr)
5684        ("gexiv2" ,gexiv2)
5685        ("gst-plugins-base" ,gst-plugins-base)
5686        ("gstreamer" ,gstreamer)
5687        ("json-glib" ,json-glib)
5688        ("libgdata" ,libgdata)
5689        ("libgee" ,libgee)
5690        ("libgphoto2" ,libgphoto2)
5691        ("libgudev" ,libgudev)
5692        ("libraw" ,libraw)
5693        ("libsoup" ,libsoup)
5694        ("libxml2" ,libxml2)
5695        ("sqlite" ,sqlite)
5696        ("webkitgtk" ,webkitgtk)))
5697     (home-page "https://wiki.gnome.org/Apps/Shotwell")
5698     (synopsis "Photo manager for GNOME 3")
5699     (description
5700      "Shotwell is a digital photo manager designed for the GNOME desktop
5701 environment.  It allows you to import photos from disk or camera, organize
5702 them by keywords and events, view them in full-window or fullscreen mode, and
5703 share them with others via social networking and more.")
5704     (license license:lgpl2.1+)))
5705
5706 (define-public file-roller
5707   (package
5708     (name "file-roller")
5709     (version "3.32.3")
5710     (source (origin
5711               (method url-fetch)
5712               (uri (string-append "mirror://gnome/sources/file-roller/"
5713                                   (version-major+minor version) "/"
5714                                   "file-roller-" version ".tar.xz"))
5715               (sha256
5716                (base32
5717                 "0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
5718     (build-system meson-build-system)
5719     (native-inputs
5720      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5721        ("intltool" ,intltool)
5722        ("itstool" ,itstool)
5723        ("pkg-config" ,pkg-config)
5724        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
5725        ("glib:bin" ,glib "bin")))
5726     ;; TODO: Add libnautilus.
5727     (inputs
5728      `(("gtk+" ,gtk+)
5729        ("gdk-pixbuf" ,gdk-pixbuf)
5730        ("json-glib" ,json-glib)
5731        ("libarchive" ,libarchive)
5732        ("libnotify" ,libnotify)
5733        ("nettle" ,nettle)
5734        ("libxml2" ,libxml2)))
5735     (synopsis "Graphical archive manager for GNOME")
5736     (description "File Roller is an archive manager for the GNOME desktop
5737 environment that allows users to view, unpack, and create compressed archives
5738 such as gzip tarballs.")
5739     (home-page "http://fileroller.sourceforge.net/")
5740     (license license:gpl2+)))
5741
5742 (define-public gnome-session
5743   (package
5744     (name "gnome-session")
5745     (version "3.34.2")
5746     (source (origin
5747               (method url-fetch)
5748               (uri (string-append "mirror://gnome/sources/" name "/"
5749                                   (version-major+minor version) "/"
5750                                   name "-" version ".tar.xz"))
5751               (sha256
5752                (base32
5753                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
5754     (arguments
5755      '(#:glib-or-gtk? #t
5756        #:phases
5757        (modify-phases %standard-phases
5758          (add-before 'configure 'pre-configure
5759            (lambda* (#:key outputs #:allow-other-keys)
5760              ;; Use elogind instead of systemd.
5761              (substitute* "meson.build"
5762                (("libsystemd-login") "libelogind")
5763                (("and libsystemd_daemon_dep.found.*") ","))
5764              (substitute* "gnome-session/gsm-systemd.c"
5765                (("#include <systemd/sd-login.h>")
5766                 "#include <elogind/sd-login.h>"))
5767              ;; Remove uses of the systemd daemon.
5768              (substitute* "gnome-session/gsm-autostart-app.c"
5769                (("#ifdef HAVE_SYSTEMD") "#if 0"))
5770              #t))
5771          (add-after 'install 'wrap-gnome-session
5772            (lambda* (#:key inputs outputs #:allow-other-keys)
5773              ;; Make sure 'gnome-session' finds the 'gsettings' program.
5774              (let ((glib (assoc-ref inputs "glib:bin"))
5775                    (out  (assoc-ref outputs "out")))
5776                (wrap-program (string-append out "/bin/gnome-session")
5777                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
5778                #t))))
5779
5780        #:configure-flags
5781        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
5782          "-Dman=false" ; FIXME: disabled because of docbook validation error
5783          "-Dsystemd_journal=false")))
5784     (build-system meson-build-system)
5785     (native-inputs
5786      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5787        ("pkg-config" ,pkg-config)
5788        ("intltool" ,intltool)
5789        ("xsltproc" ,libxslt)
5790        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
5791        ("docbook-xsl" ,docbook-xsl)
5792        ("docbook-xml" ,docbook-xml)
5793        ("xmlto" ,xmlto)))
5794     (inputs
5795      `(("elogind" ,elogind)
5796        ("gnome-desktop" ,gnome-desktop)
5797        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5798        ("gtk+" ,gtk+)
5799        ("json-glib" ,json-glib)
5800        ("libsm" ,libsm)
5801        ("libxcomposite" ,libxcomposite)
5802        ("libxtst" ,libxtst)
5803        ("mesa" ,mesa)
5804        ("upower" ,upower)
5805        ("xtrans" ,xtrans)))
5806     (synopsis "Session manager for GNOME")
5807     (description
5808      "This package contains the GNOME session manager, as well as a
5809 configuration program to choose applications starting on login.")
5810     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
5811     (license license:gpl2+)))
5812
5813 (define-public gjs
5814   (package
5815     (name "gjs")
5816     (version "1.58.3")
5817     (source (origin
5818               (method url-fetch)
5819               (uri (string-append "mirror://gnome/sources/" name "/"
5820                                   (version-major+minor version) "/"
5821                                   name "-" version ".tar.xz"))
5822               (sha256
5823                (base32
5824                 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
5825     (build-system gnu-build-system)
5826     (arguments
5827      '(#:phases
5828        (modify-phases %standard-phases
5829          (add-before
5830           'check 'pre-check
5831           (lambda _
5832             ;; The test suite requires a running X server.
5833             (system "Xvfb :1 &")
5834             (setenv "DISPLAY" ":1")
5835
5836             ;; For the missing /etc/machine-id.
5837             (setenv "DBUS_FATAL_WARNINGS" "0")
5838
5839             ;; Our mozjs-38 package does not compile the required Intl API
5840             ;; support for these failing tests.
5841             (substitute* "installed-tests/js/testLocale.js"
5842               ((".*toBeDefined.*") "")
5843               ((".*expect\\(datestr\\).*") ""))
5844             (substitute* "installed-tests/scripts/testCommandLine.sh"
5845               (("Valentín") "")
5846               (("☭") ""))
5847             #t)))))
5848     (native-inputs
5849      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5850        ("pkg-config" ,pkg-config)
5851        ("xmllint" ,libxml2)
5852        ;; For testing
5853        ("dbus-launch" ,dbus)
5854        ("dconf" ,dconf) ; required to properly store settings
5855        ("uuidgen" ,util-linux)
5856        ("xvfb" ,xorg-server-for-tests)))
5857     (propagated-inputs
5858      ;; These are all in the Requires.private field of gjs-1.0.pc.
5859      `(("cairo" ,cairo)
5860        ("gobject-introspection" ,gobject-introspection)
5861        ("mozjs" ,mozjs-60)))
5862     (inputs
5863      `(("gtk+" ,gtk+)
5864        ("readline" ,readline)))
5865     (synopsis "Javascript bindings for GNOME")
5866     (home-page "https://live.gnome.org/Gjs")
5867     (description
5868      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
5869 javascript engine and the GObject introspection framework.")
5870     (license license:gpl2+)))
5871
5872 (define-public gedit
5873   (package
5874     (name "gedit")
5875     (version "3.34.1")
5876     (source (origin
5877               (method url-fetch)
5878               (uri (string-append "mirror://gnome/sources/" name "/"
5879                                   (version-major+minor version) "/"
5880                                   name "-" version ".tar.xz"))
5881               (sha256
5882                (base32
5883                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
5884     (build-system meson-build-system)
5885     (arguments
5886      `(#:glib-or-gtk? #t
5887        #:configure-flags
5888        ;; Otherwise, the RUNPATH will lack the final path component.
5889        (list (string-append "-Dc_link_args=-Wl,-rpath="
5890                             (assoc-ref %outputs "out") "/lib/gedit"))
5891
5892        ;; XXX: Generated .h files are sometimes used before being built.
5893        #:parallel-build? #f
5894
5895        #:phases
5896        (modify-phases %standard-phases
5897          (add-after 'unpack 'skip-gtk-update-icon-cache
5898            ;; Don't create 'icon-theme.cache'.
5899            (lambda _
5900              (substitute* "build-aux/meson/post_install.py"
5901                (("gtk-update-icon-cache") (which "true")))
5902              #t))
5903          (add-after 'unpack 'patch-libgd-fetch
5904            (lambda* (#:key inputs #:allow-other-keys)
5905              (let ((libgd (assoc-ref inputs "libgd")))
5906                ;; Calling git is unnecessary because libgd is fetched as a
5907                ;; native input to this package.
5908                (substitute* "meson.build"
5909                  ((".*git.*") ""))
5910                (copy-recursively libgd "subprojects/libgd")
5911                #t)))
5912          (add-after 'install 'wrap-gedit
5913            (lambda* (#:key inputs outputs #:allow-other-keys)
5914              (let ((out               (assoc-ref outputs "out"))
5915                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
5916                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
5917                    (python-path       (getenv "PYTHONPATH")))
5918                (wrap-program (string-append out "/bin/gedit")
5919                  ;; For plugins.
5920                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
5921                  `("PYTHONPATH" ":" prefix (,python-path))
5922                  ;; For language-specs.
5923                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
5924                                                                "/share")))))
5925              #t)))))
5926     (propagated-inputs
5927      `(("dconf" ,dconf)))
5928     (native-inputs
5929      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5930        ("intltool" ,intltool)
5931        ("itstool" ,itstool)
5932        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5933        ("gobject-introspection" ,gobject-introspection)
5934        ("libgd"
5935         ,(origin
5936            (method git-fetch)
5937            (uri (git-reference
5938                  (url "https://gitlab.gnome.org/GNOME/libgd")
5939                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
5940            (file-name (git-file-name "libgd" version))
5941            (sha256
5942             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
5943        ("pkg-config" ,pkg-config)))
5944     (inputs
5945      `(("glib" ,glib)
5946        ("gspell" ,gspell)
5947        ("gtk+" ,gtk+)
5948        ("gtksourceview" ,gtksourceview)
5949        ("libpeas" ,libpeas)
5950        ("libxml2" ,libxml2)
5951        ("iso-codes" ,iso-codes)
5952        ("python-pygobject" ,python-pygobject)
5953        ("python" ,python)
5954        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5955        ("libx11" ,libx11)
5956        ("vala" ,vala)
5957        ("adwaita-icon-theme" ,adwaita-icon-theme)
5958        ("libsoup" ,libsoup)
5959        ("gnome-desktop" ,gnome-desktop)))
5960     (home-page "https://wiki.gnome.org/Apps/Gedit")
5961     (synopsis "GNOME text editor")
5962     (description "While aiming at simplicity and ease of use, gedit is a
5963 powerful general purpose text editor.")
5964     (license license:gpl2+)))
5965
5966 (define-public zenity
5967   (package
5968     (name "zenity")
5969     (version "3.32.0")
5970     (source (origin
5971               (method url-fetch)
5972               (uri (string-append "mirror://gnome/sources/zenity/"
5973                                   (version-major+minor version) "/"
5974                                   "zenity-" version ".tar.xz"))
5975               (sha256
5976                (base32
5977                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
5978     (build-system gnu-build-system)
5979     (native-inputs
5980      `(("gettext" ,gettext-minimal)
5981        ("itstool" ,itstool)
5982        ("pkg-config" ,pkg-config)))
5983     (inputs
5984      `(("libnotify" ,libnotify)
5985        ("webkitgtk" ,webkitgtk)))
5986     (synopsis "Display graphical dialog boxes from shell scripts")
5987     (home-page "https://www.gnome.org")
5988     (description
5989      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
5990 to display dialog boxes from the commandline and shell scripts.")
5991     (license license:lgpl2.0+)))
5992
5993 (define-public mutter
5994   (package
5995     (name "mutter")
5996     (version "3.34.2")
5997     (source (origin
5998               (method url-fetch)
5999               (uri (string-append "mirror://gnome/sources/" name "/"
6000                                   (version-major+minor version) "/"
6001                                   name "-" version ".tar.xz"))
6002               (sha256
6003                (base32
6004                 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
6005     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
6006     ;; versions of cogl and clutter.  As a result, many of the inputs,
6007     ;; propagated-inputs, and configure flags used in cogl and clutter are
6008     ;; needed here as well.
6009     (build-system meson-build-system)
6010     (arguments
6011      '(;; XXX: All mutter tests fail with the following error:
6012        ;;   Settings schema 'org.gnome.mutter' is not installed
6013        #:tests? #f
6014        #:glib-or-gtk? #t
6015        #:configure-flags
6016        ;; TODO: Enable profiler when Sysprof is packaged.
6017        (list "-Dprofiler=false"
6018              ;; Otherwise, the RUNPATH will lack the final path component.
6019              (string-append "-Dc_link_args=-Wl,-rpath="
6020                             (assoc-ref %outputs "out") "/lib:"
6021                             (assoc-ref %outputs "out") "/lib/mutter-5")
6022
6023              ;; The following flags are needed for the bundled clutter
6024              (string-append "-Dxwayland_path="
6025                             (assoc-ref %build-inputs "xorg-server-xwayland")
6026                             "/bin/Xwayland")
6027
6028              ;; the remaining flags are needed for the bundled cogl
6029              (string-append "-Dopengl_libname="
6030                             (assoc-ref %build-inputs "mesa")
6031                             "/lib/libGL.so"))))
6032     (native-inputs
6033      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6034        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6035        ("gobject-introspection" ,gobject-introspection)
6036        ("intltool" ,intltool)
6037        ("pkg-config" ,pkg-config)
6038        ("xorg-server" ,xorg-server-for-tests)
6039        ;; For git build
6040        ("autoconf" ,autoconf)
6041        ("automake" ,automake)
6042        ("libtool" ,libtool)))
6043     (propagated-inputs
6044      `(;; libmutter.pc refers to these:
6045        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6046        ("gtk+" ,gtk+)
6047        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
6048        ("atk" ,atk)
6049        ("cairo" ,cairo)
6050        ("gdk-pixbuf" ,gdk-pixbuf)
6051        ("glib" ,glib)
6052        ("json-glib" ,json-glib)
6053        ("libinput" ,libinput)
6054        ("libx11" ,libx11)
6055        ("libxcomposite" ,libxcomposite)
6056        ("libxdamage" ,libxdamage)
6057        ("libxext" ,libxext)
6058        ("libxfixes" ,libxfixes)
6059        ("libxkbcommon" ,libxkbcommon)
6060        ("libxrandr" ,libxrandr)
6061        ("mesa" ,mesa)
6062        ("pango" ,pango)
6063        ("udev" ,eudev)
6064        ("xinput" ,xinput)))
6065     (inputs
6066      `(("elogind" ,elogind)
6067        ("gnome-desktop" ,gnome-desktop)
6068        ("gnome-settings-daemon" ,gnome-settings-daemon)
6069        ("libcanberra-gtk" ,libcanberra)
6070        ("libgudev" ,libgudev)
6071        ("libice" ,libice)
6072        ("libsm" ,libsm)
6073        ("libwacom" ,libwacom)
6074        ("libxkbfile" ,libxkbfile)
6075        ("libxrandr" ,libxrandr)
6076        ("libxtst" ,libxtst)
6077        ("pipewire" ,pipewire)
6078        ("startup-notification" ,startup-notification)
6079        ("upower-glib" ,upower)
6080        ("xkeyboard-config" ,xkeyboard-config)
6081        ("xorg-server-xwayland" ,xorg-server-xwayland)
6082        ("zenity" ,zenity)))
6083     (synopsis "Window and compositing manager")
6084     (home-page "https://www.gnome.org")
6085     (description
6086      "Mutter is a window and compositing manager that displays and manages your
6087 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
6088 Clutter toolkit with solid window-management logic inherited from the Metacity
6089 window manager.")
6090     (license license:gpl2+)))
6091
6092 (define-public gnome-online-accounts
6093   (package
6094     (name "gnome-online-accounts")
6095     (version "3.36.0")
6096     (source (origin
6097               (method url-fetch)
6098               (uri (string-append "mirror://gnome/sources/" name "/"
6099                                   (version-major+minor version) "/"
6100                                   name "-" version ".tar.xz"))
6101               (sha256
6102                (base32
6103                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
6104     (outputs '("out" "lib"))
6105     (build-system glib-or-gtk-build-system)
6106     (arguments
6107      `(#:configure-flags
6108        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
6109        #:phases
6110        (modify-phases %standard-phases
6111          (add-before 'configure 'patch-libgoa-output
6112            (lambda* (#:key outputs #:allow-other-keys)
6113              (let ((lib (assoc-ref outputs "lib")))
6114                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
6115                  (("@prefix@") lib)
6116                  (("@exec_prefix@") lib)
6117                  (("@libdir@") (string-append lib "/lib"))
6118                  (("@includedir@") (string-append lib "/include"))
6119                  (("@datadir@") (string-append lib "/share")))
6120                ;; Make sure gobject-introspection knows about the output
6121                ;; too (see <https://bugs.gnu.org/36535>).
6122                (setenv "outputs" "out lib")
6123                #t))))))
6124     (native-inputs
6125      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6126        ("gobject-introspection" ,gobject-introspection)
6127        ("intltool" ,intltool)
6128        ("pkg-config" ,pkg-config)
6129        ("vala" ,vala)
6130        ("xsltproc" ,libxslt)))
6131     (propagated-inputs
6132      `(("glib" ,glib)           ; required by goa-1.0.pc
6133        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
6134     (inputs
6135      `(("docbook-xsl" ,docbook-xsl)
6136        ("json-glib" ,json-glib)
6137        ("libsecret" ,libsecret)
6138        ("rest" ,rest)
6139        ("webkitgtk" ,webkitgtk)))
6140     (synopsis "Single sign-on framework for GNOME")
6141     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
6142     (description
6143      "GNOME Online Accounts provides interfaces so that applications and
6144 libraries in GNOME can access the user's online accounts.  It has providers for
6145 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
6146 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
6147     (license license:lgpl2.0+)))
6148
6149 (define-public evolution-data-server
6150   (package
6151     (name "evolution-data-server")
6152     (version "3.34.2")
6153     (source (origin
6154               (method url-fetch)
6155               (uri (string-append "mirror://gnome/sources/" name "/"
6156                                   (version-major+minor version) "/"
6157                                   name "-" version ".tar.xz"))
6158               (patches (search-patches "evolution-data-server-locales.patch"
6159                                        "evolution-data-server-libical-compat.patch"))
6160               (sha256
6161                (base32
6162                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
6163     (build-system cmake-build-system)
6164     (arguments
6165      '(#:configure-flags
6166        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
6167               (runpaths (map (lambda (s)
6168                                (string-append lib "/evolution-data-server/" s))
6169                              '("addressbook-backends" "calendar-backends"
6170                                "camel-providers" "credential-modules"
6171                                "registry-modules"))))
6172          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
6173                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
6174                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
6175                "-DENABLE_VALA_BINDINGS=ON"
6176                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
6177                               (string-append lib "/evolution-data-server;")
6178                               (string-join runpaths ";"))
6179                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
6180        #:phases
6181        (modify-phases %standard-phases
6182          (add-after 'unpack 'disable-failing-tests
6183            (lambda _
6184              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
6185              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
6186              (delete-file-recursively "tests/book-migration")
6187              (substitute* "tests/CMakeLists.txt"
6188                (("add_subdirectory\\(book-migration\\)") ""))
6189              #t))
6190          (add-after 'unpack 'patch-paths
6191           (lambda _
6192             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
6193                            "tests/libedata-book/data-test-utils.c"
6194                            "tests/libedata-book/test-book-cache-utils.c"
6195                            "tests/libedata-cal/test-cal-cache-utils.c")
6196               (("/bin/rm") (which "rm")))
6197             #t))
6198          (add-before 'configure 'dont-override-rpath
6199            (lambda _
6200              (substitute* "CMakeLists.txt"
6201                ;; CMakeLists.txt hard-codes runpath to just the libdir.
6202                ;; Remove it so the configure flag is respected.
6203                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
6204              #t)))))
6205     (native-inputs
6206      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
6207        ("gobject-introspection" ,gobject-introspection)
6208        ("gperf" ,gperf)
6209        ("intltool" ,intltool)
6210        ("pkg-config" ,pkg-config)
6211        ("vala" ,vala)
6212        ("python" ,python-wrapper)))
6213     (propagated-inputs
6214      ;; These are all in the Requires field of .pc files.
6215      `(("gtk+" ,gtk+)
6216        ("libical" ,libical)
6217        ("libsecret" ,libsecret)
6218        ("libsoup" ,libsoup)
6219        ("nss" ,nss)
6220        ("sqlite" ,sqlite)))
6221     (inputs
6222      `(("bdb" ,bdb)
6223        ("gcr" ,gcr)
6224        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6225        ("json-glib" ,json-glib)
6226        ("libcanberra" ,libcanberra)
6227        ("libgweather" ,libgweather)
6228        ("mit-krb5" ,mit-krb5)
6229        ("openldap" ,openldap)
6230        ("webkitgtk" ,webkitgtk)))
6231     (synopsis "Store address books and calendars")
6232     (home-page "https://wiki.gnome.org/Apps/Evolution")
6233     (description
6234      "This package provides a unified backend for programs that work with
6235 contacts, tasks, and calendar information.  It was originally developed for
6236 Evolution (hence the name), but is now used by other packages as well.")
6237     (license license:lgpl2.0)))
6238
6239 (define-public caribou
6240   (package
6241     (name "caribou")
6242     (version "0.4.21")
6243     (source (origin
6244               (method url-fetch)
6245               (uri (string-append "mirror://gnome/sources/" name "/"
6246                                   (version-major+minor version) "/"
6247                                   name "-" version ".tar.xz"))
6248               (sha256
6249                (base32
6250                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
6251     (build-system glib-or-gtk-build-system)
6252     (arguments
6253      '(#:phases
6254        (modify-phases %standard-phases
6255          (add-before
6256           'build 'pre-build
6257           (lambda* (#:key outputs #:allow-other-keys)
6258             (let ((out (assoc-ref outputs "out")))
6259               ;; Use absolute shared library path in Caribou-1.0.typelib.
6260               (substitute* "libcaribou/Makefile"
6261                 (("--shared-library=libcaribou.so")
6262                  (string-append "--shared-library="
6263                                 out "/lib/libcaribou.so")))
6264               #t)))
6265          (add-after 'install 'wrap-programs
6266           (lambda* (#:key outputs #:allow-other-keys)
6267             (let* ((out (assoc-ref outputs "out"))
6268                    (python-path (getenv "PYTHONPATH"))
6269                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6270               (for-each
6271                (lambda (prog)
6272                  (wrap-program prog
6273                    `("PYTHONPATH"      ":" prefix (,python-path))
6274                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6275                (list (string-append out "/bin/caribou-preferences")
6276                      (string-append out "/libexec/antler-keyboard"))))
6277             #t)))))
6278     (native-inputs
6279      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6280        ("gobject-introspection" ,gobject-introspection)
6281        ("intltool" ,intltool)
6282        ("pkg-config" ,pkg-config)
6283        ("python" ,python)
6284        ("vala" ,vala)
6285        ("xsltproc" ,libxslt)))
6286     (propagated-inputs
6287      ;; caribou-1.0.pc refers to all these.
6288      `(("libgee" ,libgee)
6289        ("libxklavier" ,libxklavier)
6290        ("libxtst" ,libxtst)
6291        ("gtk+" ,gtk+)))
6292     (inputs
6293      `(("clutter" ,clutter)
6294        ("dconf" ,dconf)
6295        ("gtk+-2" ,gtk+-2)
6296        ("python-pygobject" ,python-pygobject)))
6297     (synopsis "Text entry and UI navigation application")
6298     (home-page "https://wiki.gnome.org/Projects/Caribou")
6299     (description
6300      "Caribou is an input assistive technology intended for switch and pointer
6301 users.")
6302     (license license:lgpl2.1)))
6303
6304 (define-public network-manager
6305   (package
6306     (name "network-manager")
6307     (version "1.18.4")
6308     (source (origin
6309               (method url-fetch)
6310               (uri (string-append "mirror://gnome/sources/NetworkManager/"
6311                                   (version-major+minor version) "/"
6312                                   "NetworkManager-" version ".tar.xz"))
6313               (patches (search-patches "nm-plugin-path.patch"))
6314               (sha256
6315                (base32
6316                 "0pnh1wr2p1fqa5pr945fr3lngfc5ccfrmgddqsg55lxnjpv0ggd3"))
6317               (modules '((guix build utils)))
6318               (snippet
6319                '(begin
6320                   (substitute* "src/devices/wwan/nm-modem-manager.c"
6321                     (("systemd") "elogind"))
6322                   #t))))
6323     (build-system gnu-build-system)
6324     (outputs '("out"
6325                "doc")) ; 8 MiB of gtk-doc HTML
6326     (arguments
6327      '(#:configure-flags
6328        (let ((out      (assoc-ref %outputs "out"))
6329              (doc      (assoc-ref %outputs "doc"))
6330              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
6331                                       "/sbin/dhclient")))
6332          (list "--with-libnm-glib" ; needed by network-manager-applet
6333                "--with-systemd-journal=no"
6334                "--with-session-tracking=elogind"
6335                "--with-suspend-resume=elogind"
6336                "--with-consolekit=no"
6337                "--with-crypto=gnutls"
6338                "--disable-config-plugin-ibft"
6339                "--sysconfdir=/etc"
6340                "--localstatedir=/var"
6341                (string-append "--with-udev-dir="
6342                               out "/lib/udev")
6343                (string-append "--with-dbus-sys-dir="
6344                               out "/etc/dbus-1/system.d")
6345                (string-append "--with-html-dir="
6346                               doc "/share/gtk-doc/html")
6347                (string-append "--with-dhclient=" dhclient)))
6348        #:phases
6349        (modify-phases %standard-phases
6350          ;; This bare "ls" invocation breaks some tests.
6351          (add-after 'unpack 'patch-ls-invocation
6352            (lambda _
6353              (substitute* "build-aux/ltmain.sh"
6354                (("`ls -")
6355                 (string-append "`" (which "ls") " -")))
6356              #t))
6357          (add-before 'configure 'pre-configure
6358            (lambda _
6359              ;; These tests try to test aspects of network-manager's
6360              ;; functionality within restricted containers, but they don't
6361              ;; cope with being already in the Guix build jail as that jail
6362              ;; lacks some features that they would like to proxy over (like
6363              ;; a /sys mount).
6364              (substitute* '("Makefile.in")
6365                (("src/platform/tests/test-address-linux") " ")
6366                (("src/platform/tests/test-cleanup-linux") " ")
6367                (("src/platform/tests/test-link-linux") " ")
6368                (("src/platform/tests/test-route-linux") " ")
6369                (("src/devices/tests/test-acd") "")
6370                (("src/devices/tests/test-arping") " ")
6371                (("src/devices/tests/test-lldp") " ")
6372                (("src/tests/test-route-manager-linux") " "))
6373              #t))
6374          (add-after 'unpack 'delete-failing-tests
6375            (lambda _
6376              ;; FIXME: These three tests fail for unknown reasons.
6377              ;; ERROR:libnm-core/tests/test-general.c:5842:
6378              ;;   _json_config_check_valid: assertion failed (res == expected): (1 == 0)
6379              ;; ERROR:libnm-core/tests/test-keyfile.c:647:
6380              ;;   test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
6381              ;; ERROR:libnm-core/tests/test-setting.c:907:
6382              ;;   _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
6383              (substitute* "Makefile.in"
6384                (("libnm-core/tests/test-general") " ")
6385                (("libnm-core/tests/test-keyfile") " ")
6386                (("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " "))
6387              #t))
6388          (add-before 'check 'pre-check
6389            (lambda _
6390              ;; For the missing /etc/machine-id.
6391              (setenv "DBUS_FATAL_WARNINGS" "0")
6392
6393              ;; XXX: Regenerate some of the tests that are dependent on Python version.
6394              ;; Try removing this variable for newer versions of NetworkManager.
6395              (setenv "NM_TEST_REGENERATE" "1")
6396              #t))
6397          (replace 'install
6398            (lambda _
6399              (invoke "make"
6400                      "sysconfdir=/tmp"
6401                      "rundir=/tmp"
6402                      "statedir=/tmp"
6403                      "nmstatedir=/tmp/nm"
6404                      "install")
6405              #t)))))
6406     (propagated-inputs
6407      `(("glib" ,glib)))
6408     (native-inputs
6409      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
6410        ("gobject-introspection" ,gobject-introspection)
6411        ("docbook-xsl" ,docbook-xsl)
6412        ("intltool" ,intltool)
6413        ("libxslt" ,libxslt)
6414        ("libxml2" ,libxml2)
6415        ("pkg-config" ,pkg-config)
6416        ;; For testing.
6417        ("python" ,python-wrapper)
6418        ("python-dbus" ,python-dbus)
6419        ("python-pygobject" ,python-pygobject)))
6420     (inputs
6421      `(("coreutils" ,coreutils) ; for ls
6422        ("curl" ,curl)
6423        ("cyrus-sasl" ,cyrus-sasl)
6424        ("dbus-glib" ,dbus-glib)
6425        ("dnsmasq" ,dnsmasq)
6426        ("eudev" ,eudev)
6427        ("gnutls" ,gnutls)
6428        ("iptables" ,iptables)
6429        ("isc-dhcp" ,isc-dhcp)
6430        ("jansson" ,jansson)
6431        ("libgcrypt" ,libgcrypt)
6432        ("libgudev" ,libgudev)
6433        ("libndp" ,libndp)
6434        ("libnl" ,libnl)
6435        ("libsoup" ,libsoup)
6436        ("modem-manager" ,modem-manager)
6437        ("newt" ,newt)                       ;for the 'nmtui' console interface
6438        ("polkit" ,polkit)
6439        ("ppp" ,ppp)
6440        ("readline" ,readline)
6441        ("util-linux" ,util-linux)
6442        ("elogind" ,elogind)))
6443     (synopsis "Network connection manager")
6444     (home-page "https://www.gnome.org/projects/NetworkManager/")
6445     (description
6446      "NetworkManager is a system network service that manages your network
6447 devices and connections, attempting to keep active network connectivity when
6448 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
6449 devices, and provides VPN integration with a variety of different VPN
6450 services.")
6451     (license license:gpl2+)
6452     (properties '((upstream-name . "NetworkManager")))))
6453
6454 (define-public network-manager-openvpn
6455   (package
6456     (name "network-manager-openvpn")
6457     ;; Updating?  Check whether network-manager-applet still needs libnm_gtk.
6458     (version "1.8.10")
6459     (source (origin
6460               (method url-fetch)
6461               (uri (string-append
6462                     "mirror://gnome/sources/NetworkManager-openvpn/"
6463                     (version-major+minor version)
6464                     "/NetworkManager-openvpn-" version ".tar.xz"))
6465               (sha256
6466                (base32
6467                 "1vri49yff4lj13dnzkpq9nx3a4z1bmbrv807r151plj8m1mwhg5g"))))
6468     (build-system gnu-build-system)
6469     (arguments
6470      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6471        #:phases
6472        (modify-phases %standard-phases
6473          (add-after 'configure 'patch-path
6474            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6475              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
6476                                          "/sbin/openvpn"))
6477                     (modprobe (string-append (assoc-ref inputs "kmod")
6478                                              "/bin/modprobe"))
6479                     (pretty-ovpn (string-append "\"" ovpn "\"")))
6480                (for-each
6481                 (lambda (file)
6482                   (substitute* file
6483                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
6484                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
6485                     (("\"/sbin/openvpn\"") pretty-ovpn)
6486                     (("/sbin/modprobe") modprobe)))
6487                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
6488              #t)))))
6489     (native-inputs
6490      `(("pkg-config" ,pkg-config)
6491        ("intltool" ,intltool)))
6492     (inputs
6493      `(("gtk+" ,gtk+)
6494        ("kmod" ,kmod)
6495        ("openvpn" ,openvpn)
6496        ("network-manager" ,network-manager)
6497        ("network-manager-applet" ,network-manager-applet) ;for libnma
6498        ("libsecret" ,libsecret)))
6499     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6500     (synopsis "OpenVPN plug-in for NetworkManager")
6501     (description
6502      "This extension of NetworkManager allows it to take care of connections
6503 to virtual private networks (VPNs) via OpenVPN.")
6504     (license license:gpl2+)
6505     (properties `((upstream-name . "NetworkManager-openvpn")))))
6506
6507 (define-public network-manager-vpnc
6508   (package
6509     (name "network-manager-vpnc")
6510     (version "1.2.6")
6511     (source (origin
6512               (method url-fetch)
6513               (uri (string-append
6514                     "mirror://gnome/sources/NetworkManager-vpnc/"
6515                     (version-major+minor version)
6516                     "/NetworkManager-vpnc-" version ".tar.xz"))
6517               (sha256
6518                (base32
6519                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
6520     (build-system gnu-build-system)
6521     (arguments
6522      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6523        #:phases
6524        (modify-phases %standard-phases
6525          (add-after 'configure 'patch-path
6526            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6527              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
6528                                          "/sbin/vpnc"))
6529                     (modprobe (string-append (assoc-ref inputs "kmod")
6530                                              "/bin/modprobe"))
6531                     (pretty-ovpn (string-append "\"" vpnc "\"")))
6532                (substitute* "src/nm-vpnc-service.c"
6533                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
6534                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
6535                     (("\"/sbin/vpnc\"") pretty-ovpn)
6536                     (("/sbin/modprobe") modprobe)))
6537              #t)))))
6538     (native-inputs
6539      `(("pkg-config" ,pkg-config)
6540        ("intltool" ,intltool)))
6541     (inputs
6542      `(("gtk+" ,gtk+)
6543        ("kmod" ,kmod)
6544        ("vpnc" ,vpnc)
6545        ("network-manager" ,network-manager)
6546        ("network-manager-applet" ,network-manager-applet) ;for libnma
6547        ("libsecret" ,libsecret)))
6548     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6549     (synopsis "VPNC plug-in for NetworkManager")
6550     (description
6551      "Support for configuring virtual private networks based on VPNC.
6552 Compatible with Cisco VPN concentrators configured to use IPsec.")
6553     (license license:gpl2+)
6554     (properties `((upstream-name . "NetworkManager-vpnc")))))
6555
6556 (define-public network-manager-openconnect
6557   (package
6558     (name "network-manager-openconnect")
6559     (version "1.2.6")
6560     (source (origin
6561               (method url-fetch)
6562               (uri (string-append
6563                     "mirror://gnome/sources/NetworkManager-openconnect/"
6564                     (version-major+minor version)
6565                     "/NetworkManager-openconnect-" version ".tar.xz"))
6566               (sha256
6567                (base32
6568                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
6569     (build-system gnu-build-system)
6570     (arguments
6571      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
6572        #:phases
6573        (modify-phases %standard-phases
6574          (add-after 'configure 'patch-path
6575            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
6576              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
6577                                          "/sbin/openconnect"))
6578                     (modprobe (string-append (assoc-ref inputs "kmod")
6579                                              "/bin/modprobe"))
6580                     (pretty-ovpn (string-append "\"" openconnect "\"")))
6581                (substitute* "src/nm-openconnect-service.c"
6582                  (("\"/usr/local/sbin/openconnect\"") pretty-ovpn)
6583                  (("\"/usr/sbin/openconnect\"") pretty-ovpn)
6584                  (("/sbin/modprobe") modprobe)))
6585              #t)))))
6586     (native-inputs
6587      `(("intltool" ,intltool)
6588        ("network-manager-applet" ,network-manager-applet) ;for libnma
6589        ("pkg-config" ,pkg-config)))
6590     (inputs
6591      `(("gcr" ,gcr)
6592        ("gtk+" ,gtk+)
6593        ("kmod" ,kmod)
6594        ("libsecret" ,libsecret)
6595        ("libxml2" ,libxml2)
6596        ("network-manager" ,network-manager)
6597        ("openconnect" ,openconnect)))
6598     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
6599     (synopsis "OpenConnect plug-in for NetworkManager")
6600     (description
6601      "This extension of NetworkManager allows it to take care of connections
6602 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
6603 Cisco's AnyConnect SSL VPN.")
6604     (license license:gpl2+)
6605     (properties `((upstream-name . "NetworkManager-openconnect")
6606
6607                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
6608                   ;; file refers to account "nm-openconnect".  Specify it here
6609                   ;; so that 'network-manager-service-type' creates it.
6610                   (user-accounts . ("nm-openconnect"))))))
6611
6612 (define-public mobile-broadband-provider-info
6613   (package
6614     (name "mobile-broadband-provider-info")
6615     (version "20190116")
6616     (source (origin
6617               (method url-fetch)
6618               (uri (string-append
6619                     "mirror://gnome/sources/"
6620                     "mobile-broadband-provider-info/" version "/"
6621                     "mobile-broadband-provider-info-" version ".tar.xz"))
6622               (sha256
6623                (base32
6624                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
6625     (build-system gnu-build-system)
6626     (arguments
6627      `(#:tests? #f))                    ; no tests
6628     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
6629     (synopsis "Database of broadband connection configuration")
6630     (description "Database of broadband connection configuration.")
6631     (license license:public-domain)))
6632
6633 (define-public network-manager-applet
6634   (package
6635     (name "network-manager-applet")
6636     (version "1.8.24")
6637     (source (origin
6638               (method url-fetch)
6639               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
6640                                   (version-major+minor version) "/"
6641                                   "network-manager-applet-" version ".tar.xz"))
6642               (sha256
6643                (base32
6644                 "1gzvz4wfqfsfclqg56y954al8x6fmz71cnxlx1i4nqr7a25bp2qi"))))
6645     (build-system meson-build-system)
6646     (arguments
6647      '(#:configure-flags
6648        ;; ‘Nobody should be using this’ but network-manager-openvpn 1.8.10 does.
6649        (list "-Dlibnm_gtk=true")
6650        #:glib-or-gtk? #t))
6651     (native-inputs
6652      `(("intltool" ,intltool)
6653        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
6654        ("gobject-introspection" ,gobject-introspection)
6655        ("gtk-doc" ,gtk-doc)
6656        ("pkg-config" ,pkg-config)))
6657     (propagated-inputs
6658      ;; libnm-gtk.pc refers to all these.
6659      `(("dbus-glib" ,dbus-glib)
6660        ("gtk+" ,gtk+)
6661        ("network-manager" ,network-manager)))
6662     (inputs
6663      `(("gcr" ,gcr)
6664        ("iso-codes" ,iso-codes)
6665        ("libgudev" ,libgudev)
6666        ("libnotify" ,libnotify)
6667        ("libsecret" ,libsecret)
6668        ("libselinux" ,libselinux)
6669        ("jansson" ,jansson) ; for team support
6670        ("modem-manager" ,modem-manager)
6671        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)))
6672     (synopsis "Applet for managing network connections")
6673     (home-page "https://www.gnome.org/projects/NetworkManager/")
6674     (description
6675      "This package contains a systray applet for NetworkManager.  It displays
6676 the available networks and allows users to easily switch between them.")
6677     (license license:gpl2+)))
6678
6679 (define-public libxml++
6680   (package
6681     (name "libxml++")
6682     (version "3.0.1")
6683     (source (origin
6684               (method url-fetch)
6685               (uri (string-append "mirror://gnome/sources/" name "/"
6686                                   (version-major+minor version) "/"
6687                                   name "-" version ".tar.xz"))
6688               (sha256
6689                (base32
6690                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
6691     (build-system gnu-build-system)
6692     ;; libxml++-3.0.pc refers to all these.
6693     (propagated-inputs
6694      `(("libxml2" ,libxml2)
6695        ("glibmm" ,glibmm)))
6696     (native-inputs
6697      `(("perl" ,perl)
6698        ("pkg-config" ,pkg-config)))
6699     (home-page "http://libxmlplusplus.sourceforge.net/")
6700     (synopsis "C++ wrapper for XML parser library libxml2")
6701     (description
6702      "This package provides a C++ wrapper for the XML parser library
6703 libxml2.")
6704     (license license:lgpl2.1+)))
6705
6706 (define-public libxml++-2
6707   (package
6708     (inherit libxml++)
6709     (name "libxml++")
6710     (version "2.40.1")
6711     (source (origin
6712               (method url-fetch)
6713               (uri (string-append "mirror://gnome/sources/" name "/"
6714                                   (version-major+minor version) "/"
6715                                   name "-" version ".tar.xz"))
6716               (sha256
6717                (base32
6718                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
6719
6720 (define-public gdm
6721   (package
6722     (name "gdm")
6723     (version "3.34.1")
6724     (source (origin
6725               (method url-fetch)
6726               (uri (string-append "mirror://gnome/sources/" name "/"
6727                                   (version-major+minor version) "/"
6728                                   name "-" version ".tar.xz"))
6729               (sha256
6730                (base32
6731                 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
6732               (patches (search-patches "gdm-default-session.patch"))))
6733     (build-system glib-or-gtk-build-system)
6734     (arguments
6735      '(#:configure-flags
6736        `("--without-plymouth"
6737          "--disable-systemd-journal"
6738
6739          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
6740          ;; instead of having to replace it (i.e., stopping the mingetty
6741          ;; service for TTY 1 before starting GDM).
6742          "--with-initial-vt=7"
6743
6744          ;; Use '/etc/environment' for locale settings instead of the
6745          ;; systemd-specific '/etc/locale.conf'.
6746          "--with-lang-file=/etc/environment"
6747
6748          ,(string-append "--with-udevdir="
6749                          (assoc-ref %outputs "out") "/lib/udev")
6750
6751          "--localstatedir=/var"
6752          ,(string-append "--with-default-path="
6753                          (string-join '("/run/setuid-programs"
6754                                         "/run/current-system/profile/bin"
6755                                         "/run/current-system/profile/sbin")
6756                                       ":"))
6757          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
6758          ;; XDG_DATA_DIRS so that it finds its schemas.
6759          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
6760        #:phases
6761        (modify-phases %standard-phases
6762          (add-before
6763           'configure 'pre-configure
6764           (lambda* (#:key inputs outputs #:allow-other-keys)
6765             ;; We don't have <systemd/sd-daemon.h>.
6766             (substitute* '("common/gdm-log.c"
6767                            "daemon/gdm-server.c"
6768                            "daemon/gdm-session-worker.c"
6769                            "daemon/gdm-session-worker-job.c")
6770               (("#include <systemd/sd-daemon\\.h>") ""))
6771             ;; Use elogind for sd-login.
6772             (substitute* '("common/gdm-common.c"
6773                            "daemon/gdm-local-display-factory.c"
6774                            "daemon/gdm-manager.c"
6775                            "libgdm/gdm-user-switching.c")
6776               (("#include <systemd/sd-login\\.h>")
6777                "#include <elogind/sd-login.h>"))
6778             ;; Check for elogind.
6779             (substitute* '("configure")
6780               (("libsystemd")
6781                "libelogind"))
6782             ;; Look for system-installed sessions in
6783             ;; /run/current-system/profile/share.
6784             (substitute* '("libgdm/gdm-sessions.c"
6785                            "daemon/gdm-session.c"
6786                            "daemon/gdm-display.c"
6787                            "daemon/gdm-launch-environment.c")
6788               (("DATADIR \"/x")
6789                "\"/run/current-system/profile/share/x")
6790               (("DATADIR \"/wayland")
6791                "\"/run/current-system/profile/share/wayland")
6792               (("DATADIR \"/gnome")
6793                "\"/run/current-system/profile/share/gnome"))
6794             (let ((propagate '("GDM_CUSTOM_CONF"
6795                                "GDM_DBUS_DAEMON"
6796                                "GDM_X_SERVER"
6797                                "GDM_X_SESSION"
6798                                ;; XXX: Remove this once GNOME Shell is
6799                                ;; a dependency of GDM.
6800                                "XDG_DATA_DIRS")))
6801               (substitute* "daemon/gdm-session.c"
6802                 (("set_up_session_environment \\(self\\);")
6803                  (apply string-append
6804                         "set_up_session_environment (self);\n"
6805                         (map (lambda (name)
6806                                (string-append
6807                                 "gdm_session_set_environment_variable "
6808                                 "(self, \"" name "\","
6809                                 "g_getenv (\"" name "\"));\n"))
6810                              propagate)))))
6811             ;; Find the configuration file using an environment variable.
6812             (substitute* '("common/gdm-settings.c")
6813               (("GDM_CUSTOM_CONF")
6814                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
6815                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
6816                               " : GDM_CUSTOM_CONF)")))
6817             ;; Use service-supplied path to X.
6818             (substitute* '("daemon/gdm-server.c")
6819               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
6820                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
6821             (substitute* '("daemon/gdm-wayland-session.c"
6822                            "daemon/gdm-x-session.c")
6823               (("\"dbus-daemon\"")
6824                "g_getenv (\"GDM_DBUS_DAEMON\")")
6825               (("X_SERVER")
6826                "g_getenv (\"GDM_X_SERVER\")")
6827               (("GDMCONFDIR \"/Xsession\"")
6828                "g_getenv (\"GDM_X_SESSION\")"))
6829             ;; Use an absolute path for GNOME Session.
6830             (substitute* "daemon/gdm-launch-environment.c"
6831               (("\"gnome-session\"")
6832                (string-append "\"" (assoc-ref inputs "gnome-session")
6833                               "/bin/gnome-session\"")))
6834             ;; Do not automatically select the placeholder session.
6835             (substitute* "daemon/gdm-session.c"
6836               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
6837                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
6838                               "(g_strcmp0(search_dirs[i], \""
6839                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
6840                               "\") == 0 && "
6841                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
6842               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
6843                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
6844             #t))
6845          ;; GDM requires that there be at least one desktop entry
6846          ;; file.  This phase installs a hidden one that simply
6847          ;; fails.  This enables users to use GDM with a
6848          ;; '~/.xsession' script with no other desktop entry files.
6849          ;; See <https://bugs.gnu.org/35068>.
6850          (add-after 'install 'install-placeholder-desktop-entry
6851            (lambda* (#:key inputs outputs #:allow-other-keys)
6852              (let* ((out (assoc-ref outputs "out"))
6853                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
6854                     (fail (string-append sessions "/fail.desktop")))
6855                (mkdir-p sessions)
6856                (with-output-to-file fail
6857                  (lambda ()
6858                    (for-each
6859                     display
6860                     '("[Desktop Entry]\n"
6861                       "Encoding=UTF-8\n"
6862                       "Type=Application\n"
6863                       "Name=Fail\n"
6864                       "Comment=This session fails immediately.\n"
6865                       "NoDisplay=true\n"
6866                       "Exec=false\n"))))
6867                #t)))
6868          ;; GDM needs GNOME Session to run these applications.  We link
6869          ;; their autostart files in `share/gdm/greeter/autostart'
6870          ;; because GDM explicitly tells GNOME Session to look there.
6871          ;;
6872          ;; XXX: GNOME Shell should be linked here too, but currently
6873          ;; GNOME Shell depends on GDM.
6874          (add-after 'install 'link-autostart-files
6875            (lambda* (#:key inputs outputs #:allow-other-keys)
6876              (let* ((out (assoc-ref outputs "out"))
6877                     (autostart (string-append out "/share/gdm/"
6878                                               "greeter/autostart"))
6879                     (settings (assoc-ref inputs "gnome-settings-daemon")))
6880                (mkdir-p autostart)
6881                (with-directory-excursion autostart
6882                  (for-each (lambda (desktop)
6883                              (symlink desktop (basename desktop)))
6884                            (find-files (string-append settings "/etc/xdg"))))
6885                #t))))))
6886     (native-inputs
6887      `(("dconf" ,dconf)
6888        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6889        ("gobject-introspection" ,gobject-introspection)
6890        ("intltool" ,intltool)
6891        ("itstool" ,itstool)
6892        ("pkg-config" ,pkg-config)
6893        ("xmllint" ,libxml2)))
6894     (inputs
6895      `(("accountsservice" ,accountsservice)
6896        ("check" ,check) ; for testing
6897        ("elogind" ,elogind)
6898        ("gnome-session" ,gnome-session)
6899        ("gnome-settings-daemon" ,gnome-settings-daemon)
6900        ("gtk+" ,gtk+)
6901        ("iso-codes" ,iso-codes)
6902        ("libcanberra" ,libcanberra)
6903        ("linux-pam" ,linux-pam)))
6904     (synopsis "Display manager for GNOME")
6905     (home-page "https://wiki.gnome.org/Projects/GDM/")
6906     (description
6907      "GNOME Display Manager is a system service that is responsible for
6908 providing graphical log-ins and managing local and remote displays.")
6909     (license license:gpl2+)))
6910
6911 (define-public libgtop
6912   (package
6913     (name "libgtop")
6914     (version "2.40.0")
6915     (source (origin
6916               (method url-fetch)
6917               (uri (string-append "mirror://gnome/sources/libgtop/"
6918                                   (version-major+minor version) "/"
6919                                   "libgtop-" version ".tar.xz"))
6920               (sha256
6921                (base32
6922                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
6923     (build-system gnu-build-system)
6924     (native-inputs
6925      `(("gobject-introspection" ,gobject-introspection)
6926        ("intltool" ,intltool)
6927        ("perl" ,perl)
6928        ("pkg-config" ,pkg-config)))
6929     (propagated-inputs
6930      `(("glib" ,glib))) ; required by libgtop-2.0.pc
6931     (synopsis "Portable system access library")
6932     (home-page "https://www.gnome.org/")
6933     (description
6934      "LibGTop is a library to get system specific data such as CPU and memory
6935 usage and information about running processes.")
6936     (license license:gpl2+)))
6937
6938 (define-public gnome-bluetooth
6939   (package
6940     (name "gnome-bluetooth")
6941     (version "3.34.0")
6942     (source (origin
6943               (method url-fetch)
6944               (uri (string-append "mirror://gnome/sources/" name "/"
6945                                   (version-major+minor version) "/"
6946                                   name "-" version ".tar.xz"))
6947               (sha256
6948                (base32
6949                 "1bvbxcsjkyl0givy8nfm7112bq3c0vn1v89fdk2pip714dsfcrz8"))))
6950     (build-system meson-build-system)
6951     (native-inputs
6952      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
6953        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
6954        ("gobject-introspection" ,gobject-introspection)
6955        ("intltool" ,intltool)
6956        ("pkg-config" ,pkg-config)
6957        ("xmllint" ,libxml2)))
6958     (propagated-inputs
6959      ;; gnome-bluetooth-1.0.pc refers to all these.
6960      `(("glib" ,glib)
6961        ("gtk+" ,gtk+)))
6962     (inputs
6963      `(("eudev" ,eudev)
6964        ("libcanberra" ,libcanberra)
6965        ("libnotify" ,libnotify)))
6966     (synopsis "GNOME Bluetooth subsystem")
6967     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
6968     (description
6969      "This package contains tools for managing and manipulating Bluetooth
6970 devices using the GNOME desktop.")
6971     (license license:lgpl2.1+)))
6972
6973 (define-public gnome-control-center
6974   (package
6975     (name "gnome-control-center")
6976     (version "3.34.2")
6977     (source (origin
6978               (method url-fetch)
6979               (uri (string-append "mirror://gnome/sources/" name "/"
6980                                   (version-major+minor version) "/"
6981                                   name "-" version ".tar.xz"))
6982               (sha256
6983                (base32
6984                 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
6985     (build-system meson-build-system)
6986     (arguments
6987      '(#:glib-or-gtk? #t
6988        #:configure-flags
6989        (list "-Dcheese=false"
6990              (string-append "-Dgnome_session_libexecdir="
6991                             (assoc-ref %build-inputs "gnome-session")
6992                             "/libexec"))
6993        #:phases
6994        (modify-phases %standard-phases
6995          (add-before 'configure 'patch-paths
6996            (lambda* (#:key inputs #:allow-other-keys)
6997              (let ((libc   (assoc-ref inputs "libc"))
6998                    (tzdata (assoc-ref inputs "tzdata"))
6999                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
7000                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
7001                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
7002                (substitute* "panels/datetime/tz.h"
7003                  (("/usr/share/zoneinfo/zone.tab")
7004                   (string-append tzdata "/share/zoneinfo/zone.tab")))
7005                (substitute* "tests/datetime/test-endianess.c"
7006                  (("/usr/share/locale")
7007                   (string-append libc "/share/locale")))
7008                (substitute* "panels/region/cc-region-panel.c"
7009                  (("\"gkbd-keyboard-display")
7010                   (string-append "\"" libgnomekbd
7011                                  "/bin/gkbd-keyboard-display")))
7012                (substitute* '("panels/network/net-device-wifi.c"
7013                               "panels/network/net-device.c"
7014                               "panels/network/connection-editor/net-connection-editor.c")
7015                  (("\"nm-connection-editor")
7016                   (string-append "\"" nm-applet
7017                                  "/bin/nm-connection-editor")))
7018                (substitute* '("panels/user-accounts/run-passwd.c")
7019                  (("/usr/bin/passwd")
7020                   "/run/setuid-programs/passwd"))
7021                (substitute* "panels/info/cc-info-overview-panel.c"
7022                  (("DATADIR \"/gnome/gnome-version.xml\"")
7023                   (string-append "\"" gnome-desktop
7024                                  "/share/gnome/gnome-version.xml\"")))
7025                #t)))
7026          (add-after 'unpack 'skip-gtk-update-icon-cache
7027            ;; Don't create 'icon-theme.cache'.
7028            (lambda _
7029              (substitute* "build-aux/meson/meson_post_install.py"
7030                (("gtk-update-icon-cache") (which "true")))
7031              #t)))))
7032     (native-inputs
7033      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7034        ("intltool" ,intltool)
7035        ("pkg-config" ,pkg-config)
7036        ("xsltproc" ,libxslt)
7037        ;; For tests
7038        ("hicolor-icon-theme" ,hicolor-icon-theme)
7039        ("python-dbusmock" ,python-dbusmock)
7040        ("xorg-server" ,xorg-server-for-tests)))
7041     (inputs
7042      `(("accountsservice" ,accountsservice)
7043        ("clutter-gtk" ,clutter-gtk)
7044        ("colord-gtk" ,colord-gtk)
7045        ("cups" ,cups)
7046        ("dconf" ,dconf)
7047        ("docbook-xsl" ,docbook-xsl)
7048        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
7049        ("gnome-bluetooth" ,gnome-bluetooth)
7050        ("gnome-desktop" ,gnome-desktop)
7051        ("gnome-online-accounts" ,gnome-online-accounts)
7052        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7053        ("gnome-session" ,gnome-session)
7054        ("gnome-settings-daemon" ,gnome-settings-daemon)
7055        ("grilo" ,grilo)
7056        ("gsound" ,gsound)
7057        ("ibus" ,ibus)
7058        ("libcanberra" ,libcanberra)
7059        ("libgnomekbd" ,libgnomekbd)
7060        ("libgudev" ,libgudev)
7061        ("libgtop" ,libgtop)
7062        ("libpwquality" ,libpwquality)
7063        ("libsecret" ,libsecret)
7064        ("libsoup" ,libsoup)
7065        ("libxml2" ,libxml2)
7066        ("libwacom" ,libwacom)
7067        ("mesa" ,mesa)
7068        ("mit-krb5" ,mit-krb5)
7069        ("modem-manager" ,modem-manager)
7070        ("network-manager-applet" ,network-manager-applet)
7071        ("polkit" ,polkit)
7072        ("pulseaudio" ,pulseaudio)
7073        ("smbclient" ,samba)
7074        ("tzdata" ,tzdata)
7075        ("udisks" ,udisks)
7076        ("upower" ,upower)))
7077     (synopsis "Utilities to configure the GNOME desktop")
7078     (home-page "https://www.gnome.org/")
7079     (description
7080      "This package contains configuration applets for the GNOME desktop,
7081 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
7082 properties, sound setup, desktop theme and background, user interface
7083 properties, screen resolution, and other GNOME parameters.")
7084     (license license:gpl2+)))
7085
7086 (define-public gnome-shell
7087   (package
7088     (name "gnome-shell")
7089     (version "3.34.2")
7090     (source (origin
7091               (method url-fetch)
7092               (uri (string-append "mirror://gnome/sources/" name "/"
7093                                   (version-major+minor version) "/"
7094                                   name "-" version ".tar.xz"))
7095               (sha256
7096                (base32
7097                 "0k9vq2gh1nhdd6fpp7jnwx37qxaakawiqw1xnlfjvq5g5zdn8ckh"))
7098               (patches (search-patches "gnome-shell-theme.patch"
7099                                        "gnome-shell-disable-test.patch"))
7100               (modules '((guix build utils)))
7101               (snippet
7102                #~(begin
7103                    ;; Copy images for use on the GDM log-in screen.
7104                    (copy-file #$(file-append %artwork-repository
7105                                              "/slim/0.x/background.png")
7106                               "data/theme/guix-background.png")
7107                    (copy-file #$(file-append %artwork-repository
7108                                              "/logo/Guix-horizontal-white.svg")
7109                               "data/theme/guix-logo.svg")
7110                    #t))))
7111     (build-system meson-build-system)
7112     (arguments
7113      `(#:glib-or-gtk? #t
7114        #:disallowed-references ((,glib "bin")
7115                                 ,inkscape ,libxslt
7116                                 ,ruby-sass)
7117        #:configure-flags
7118        (list "-Dsystemd=false"
7119              ;; Otherwise, the RUNPATH will lack the final path component.
7120              (string-append "-Dc_link_args=-Wl,-rpath="
7121                             (assoc-ref %outputs "out")
7122                             "/lib/gnome-shell"))
7123
7124        #:modules ((guix build meson-build-system)
7125                   (guix build utils)
7126                   (srfi srfi-1))
7127
7128        #:phases
7129        (modify-phases %standard-phases
7130          (add-after 'unpack 'fix-keysdir
7131            (lambda* (#:key outputs #:allow-other-keys)
7132              (let* ((out     (assoc-ref outputs "out"))
7133                     (keysdir (string-append
7134                               out "/share/gnome-control-center/keybindings")))
7135                (substitute* "meson.build"
7136                  (("keysdir =.*")
7137                   (string-append "keysdir = '" keysdir "'\n")))
7138                #t)))
7139          (add-before 'configure 'convert-logo-to-png
7140            (lambda* (#:key inputs #:allow-other-keys)
7141              ;; Convert the logo from SVG to PNG.
7142              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
7143                      "data/theme/guix-logo.svg")))
7144          (add-before 'configure 'record-absolute-file-names
7145            (lambda* (#:key inputs #:allow-other-keys)
7146              (substitute* "js/misc/ibusManager.js"
7147                (("'ibus-daemon'")
7148                 (string-append "'" (assoc-ref inputs "ibus")
7149                                "/bin/ibus-daemon'")))
7150              (substitute* "js/ui/status/keyboard.js"
7151                (("'gkbd-keyboard-display'")
7152                 (string-append "'" (assoc-ref inputs "libgnomekbd")
7153                                "/bin/gkbd-keyboard-display'")))
7154              #t))
7155          (add-before 'check 'pre-check
7156            (lambda* (#:key inputs #:allow-other-keys)
7157              ;; Tests require a running X server.
7158              (system "Xvfb :1 &")
7159              (setenv "DISPLAY" ":1")
7160              #t))
7161          (add-after 'install 'wrap-programs
7162            (lambda* (#:key inputs outputs #:allow-other-keys)
7163              (let ((out              (assoc-ref outputs "out"))
7164                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
7165                    (python-path      (getenv "PYTHONPATH")))
7166                (wrap-program (string-append out "/bin/gnome-shell")
7167                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7168                  ;; FIXME: gnome-shell loads these libraries with unqualified
7169                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
7170                  ;; alternative might be to patch gnome-shell.
7171                  `("LD_LIBRARY_PATH" ":" prefix
7172                    ,(map (lambda (pkg)
7173                            (string-append (assoc-ref inputs pkg) "/lib"))
7174                          '("gdk-pixbuf"
7175                            "gnome-bluetooth" "librsvg" "libgweather"))))
7176                (for-each
7177                 (lambda (prog)
7178                   (wrap-program (string-append out "/bin/" prog)
7179                     `("PYTHONPATH"      ":" prefix (,python-path))
7180                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7181                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
7182                #t)))
7183          (replace 'glib-or-gtk-wrap
7184            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
7185              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
7186                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
7187                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
7188                ;; phase.  Fix that since we don't need these.
7189                (wrap #:inputs (fold alist-delete inputs
7190                                     '("inkscape" "intltool" "glib:bin"))
7191                      #:outputs outputs)))))))
7192     (native-inputs
7193      `(("asciidoc" ,asciidoc)
7194        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7195        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7196        ("gobject-introspection" ,gobject-introspection)
7197        ("inkscape" ,inkscape)
7198        ("intltool" ,intltool)
7199        ("pkg-config" ,pkg-config)
7200        ("python" ,python)
7201        ("ruby-sass" ,ruby-sass)
7202        ("sassc" ,sassc)
7203        ("xsltproc" ,libxslt)
7204        ;; For tests
7205        ("xorg-server" ,xorg-server-for-tests)))
7206     (inputs
7207      `(("accountsservice" ,accountsservice)
7208        ("caribou" ,caribou)
7209        ("docbook-xsl" ,docbook-xsl)
7210        ("evolution-data-server" ,evolution-data-server)
7211        ("gcr" ,gcr)
7212        ("gdm" ,gdm)
7213        ("gdk-pixbuf" ,gdk-pixbuf+svg)
7214        ("gjs" ,gjs)
7215        ("gnome-autoar" ,gnome-autoar)
7216        ("gnome-bluetooth" ,gnome-bluetooth)
7217        ("gnome-desktop" ,gnome-desktop)
7218        ("gnome-settings-daemon" ,gnome-settings-daemon)
7219        ("gst-plugins-base" ,gst-plugins-base)
7220        ("ibus" ,ibus)
7221        ("libcanberra" ,libcanberra)
7222        ("libcroco" ,libcroco)
7223        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
7224        ("libgweather" ,libgweather)
7225        ("libsoup" ,libsoup)
7226        ("mesa-headers" ,mesa-headers)
7227        ("mutter" ,mutter)
7228        ("network-manager-applet" ,network-manager-applet)
7229        ("polkit" ,polkit)
7230        ("pulseaudio" ,pulseaudio)
7231        ("python-pygobject" ,python-pygobject)
7232        ("startup-notification" ,startup-notification)
7233        ("telepathy-logger" ,telepathy-logger)
7234        ("upower" ,upower)
7235        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
7236        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
7237        ("librsvg" ,librsvg)
7238        ("geoclue" ,geoclue)))
7239     (synopsis "Desktop shell for GNOME")
7240     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
7241     (description
7242      "GNOME Shell provides core user interface functions for the GNOME desktop,
7243 like switching to windows and launching applications.")
7244     (license license:gpl2+)))
7245
7246 (define-public gtk-vnc
7247   (package
7248     (name "gtk-vnc")
7249     (version "0.9.0")
7250     (source
7251      (origin
7252        (method url-fetch)
7253        (uri (string-append "mirror://gnome/sources/" name "/"
7254                            (version-major+minor version) "/"
7255                            name "-" version ".tar.xz"))
7256        (sha256
7257         (base32
7258          "1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
7259     (build-system gnu-build-system)
7260     (arguments
7261      '(#:configure-flags '("--with-gtk=3.0")))
7262     (propagated-inputs
7263      `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
7264     (inputs
7265      `(("cyrus-sasl" ,cyrus-sasl)
7266        ("gnutls" ,gnutls)
7267        ("libgcrypt" ,libgcrypt)
7268        ("pulseaudio" ,pulseaudio)))
7269     (native-inputs
7270      `(("glib:bin" ,glib "bin")
7271        ("gobject-introspection" ,gobject-introspection)
7272        ("intltool" ,intltool)
7273        ("pkg-config" ,pkg-config)
7274        ("python-wrapper" ,python-wrapper)
7275        ("vala" ,vala)))
7276     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
7277     (synopsis "VNC viewer widget for GTK+")
7278     (description
7279      "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
7280 applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
7281 GTK-VNC implements client side RFB protocol and authentication extensions such
7282 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
7283     (license license:lgpl2.1+)))
7284
7285 (define-public gnome-autoar
7286   (package
7287     (name "gnome-autoar")
7288     (version "0.2.4")
7289     (source (origin
7290               (method url-fetch)
7291               (uri (string-append "mirror://gnome/sources/" name "/"
7292                                   (version-major+minor version) "/"
7293                                   name "-" version ".tar.xz"))
7294               (sha256
7295                (base32
7296                 "0yk56ch46n3wfy633mq31kif9n7v06rlij4vqbsbn6l4z1vw6d0a"))))
7297     (build-system glib-or-gtk-build-system)
7298     (native-inputs
7299      `(("gobject-introspection" ,gobject-introspection)
7300        ("pkg-config" ,pkg-config)))
7301     (propagated-inputs
7302      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
7303     (inputs
7304      `(("gtk+" ,gtk+)))
7305     (synopsis "Archives integration support for GNOME")
7306     (home-page "https://git.gnome.org/browse/gnome-autoar/")
7307     (description
7308      "GNOME Autoar is a library which makes creating and extracting archives
7309 easy, safe, and automatic.")
7310     (license license:lgpl2.1+)))
7311
7312 (define-public tracker
7313   (package
7314     (name "tracker")
7315     (version "2.3.4")
7316     (source (origin
7317               (method url-fetch)
7318               (uri (string-append "mirror://gnome/sources/tracker/"
7319                                   (version-major+minor version) "/"
7320                                   "tracker-" version ".tar.xz"))
7321               (sha256
7322                (base32
7323                 "0vai0qz9jn3z5dlzysynwhbbmslp84ygdql81f5wfxxr98j54yap"))))
7324     (build-system meson-build-system)
7325     (arguments
7326      `(#:glib-or-gtk? #t
7327        #:configure-flags
7328        ;; Otherwise, the RUNPATH will lack the final path component.
7329        (list (string-append "-Dc_link_args=-Wl,-rpath="
7330                             (assoc-ref %outputs "out") "/lib:"
7331                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
7332        #:phases
7333        (modify-phases %standard-phases
7334          (add-before 'check 'pre-check
7335            (lambda _
7336              ;; Some tests expect to write to $HOME.
7337              (setenv "HOME" "/tmp")
7338              #t)))))
7339     (native-inputs
7340      `(("glib:bin" ,glib "bin")
7341        ("gobject-introspection" ,gobject-introspection)
7342        ("python-pygobject" ,python-pygobject)
7343        ("intltool" ,intltool)
7344        ("pkg-config" ,pkg-config)
7345        ("vala" ,vala)))
7346     (inputs
7347      `(("dbus" ,dbus)
7348        ("sqlite" ,sqlite)
7349        ("libxml2" ,libxml2)
7350        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
7351        ("json-glib" ,json-glib)
7352        ("libsoup" ,libsoup)))
7353     (synopsis "Metadata database, indexer and search tool")
7354     (home-page "https://wiki.gnome.org/Projects/Tracker")
7355     (description
7356      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
7357
7358 It is a middleware component aimed at desktop application developers who want
7359 their apps to browse and search user content.  It's not designed to be used
7360 directly by desktop users, but it provides a commandline tool named
7361 @command{tracker} for the adventurous.
7362
7363 Tracker allows your application to instantly perform full-text searches across
7364 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
7365 example.  This is achieved by indexing the user's home directory in the
7366 background.
7367
7368 Tracker also allows your application to query and list content that the user
7369 has stored.  For example, GNOME Music displays all the music files that are
7370 found by Tracker.  This means that GNOME Music doesn't need to maintain a
7371 database of its own.
7372
7373 If you need to go beyond simple searches, Tracker is also a linked data
7374 endpoint and it understands SPARQL. ")
7375     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
7376     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
7377     ;; libstemmer is bsd-3 and the rest is gpl2+.
7378     (license (list license:gpl2+
7379                    license:bsd-3
7380                    license:lgpl2.1+))))
7381
7382 (define-public tracker-miners
7383   (package
7384     (name "tracker-miners")
7385     (version "2.3.3")
7386     (source (origin
7387               (method url-fetch)
7388               (uri (string-append "mirror://gnome/sources/tracker-miners/"
7389                                   (version-major+minor version)
7390                                   "/tracker-miners-" version ".tar.xz"))
7391               (sha256
7392                (base32
7393                 "06abxrnrz7xayykrabn135rpsm6z0fqw7gibrb9j09l6swlalwkl"))))
7394     (build-system meson-build-system)
7395     (arguments
7396      `(#:glib-or-gtk? #t
7397        #:configure-flags
7398        (list "-Dminer_rss=false" ; libgrss is required.
7399              ;; Ensure the RUNPATH contains all installed library locations.
7400              (string-append "-Dc_link_args=-Wl,-rpath="
7401                             (assoc-ref %outputs "out")
7402                             "/lib/tracker-miners-2.0")
7403              ;; TODO: Enable functional tests. Currently, the following error
7404              ;; appears:
7405              ;; Exception: The functional tests require DConf to be the default
7406              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
7407              "-Dfunctional_tests=false")))
7408     (native-inputs
7409      `(("dbus" ,dbus)
7410        ("intltool" ,intltool)
7411        ("glib:bin" ,glib "bin")
7412        ("gobject-introspection" ,gobject-introspection)
7413        ("pkg-config" ,pkg-config)
7414        ("python-pygobject" ,python-pygobject)))
7415     (inputs
7416      `(("exempi" ,exempi)
7417        ("ffmpeg" ,ffmpeg)
7418        ("flac" ,flac)
7419        ("giflib" ,giflib)
7420        ("glib" ,glib)
7421        ("gstreamer" ,gstreamer)
7422        ("icu4c" ,icu4c)
7423        ("libcue" ,libcue)
7424        ("libexif" ,libexif)
7425        ("libgsf" ,libgsf)
7426        ("libgxps" ,libgxps)
7427        ("libiptcdata" ,libiptcdata)
7428        ("libjpeg" ,libjpeg-turbo)
7429        ("libosinfo" ,libosinfo)
7430        ("libpng" ,libpng)
7431        ("libseccomp" ,libseccomp)
7432        ("libtiff" ,libtiff)
7433        ("libvorbis" ,libvorbis)
7434        ("libxml2" ,libxml2)
7435        ("poppler" ,poppler)
7436        ("taglib" ,taglib)
7437        ("totem-pl-parser" ,totem-pl-parser)
7438        ("tracker" ,tracker)
7439        ("upower" ,upower)
7440        ("zlib" ,zlib)))
7441     (synopsis "Metadata database, indexer and search tool")
7442     (home-page "https://wiki.gnome.org/Projects/Tracker")
7443     (description
7444      "Tracker is an advanced framework for first class objects with associated
7445 metadata and tags.  It provides a one stop solution for all metadata, tags,
7446 shared object databases, search tools and indexing.")
7447     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
7448     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
7449     (license (list license:gpl2+
7450                    license:lgpl2.1+
7451                    license:lgpl2.0+))))
7452
7453 (define-public nautilus
7454   (package
7455     (name "nautilus")
7456     (version "3.34.2")
7457     (source (origin
7458               (method url-fetch)
7459               (uri (string-append "mirror://gnome/sources/" name "/"
7460                                   (version-major+minor version) "/"
7461                                   name "-" version ".tar.xz"))
7462               (sha256
7463                (base32
7464                 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
7465     (build-system meson-build-system)
7466     (arguments
7467      '(#:glib-or-gtk? #t
7468        #:phases
7469        (modify-phases %standard-phases
7470          (add-after 'unpack 'skip-gtk-update-icon-cache
7471            ;; Don't create 'icon-theme.cache'.
7472            (lambda _
7473              (substitute* "build-aux/meson/postinstall.py"
7474                (("gtk-update-icon-cache") "true"))
7475              #t)))
7476        ;; XXX: FAIL: check-nautilus
7477        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
7478        #:tests? #f))
7479     (native-inputs
7480      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7481        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
7482        ("gobject-introspection" ,gobject-introspection)
7483        ("intltool" ,intltool)
7484        ("pkg-config" ,pkg-config)))
7485     (inputs
7486      `(("dconf" ,dconf)
7487        ("gexiv2" ,gexiv2)
7488        ("gvfs" ,gvfs)
7489        ("exempi" ,exempi)
7490        ("gnome-desktop" ,gnome-desktop)
7491        ("gnome-autoar" ,gnome-autoar)
7492        ("gst-plugins-base" ,gst-plugins-base)
7493        ("libseccomp" ,libseccomp)
7494        ("libselinux" ,libselinux)
7495        ("tracker" ,tracker)
7496        ("tracker-miners" ,tracker-miners)
7497        ;; XXX: gtk+ is required by libnautilus-extension.pc
7498        ;;
7499        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
7500        ;; package.  See:
7501        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
7502        ("gtk+" ,gtk+)
7503        ("libexif" ,libexif)
7504        ("libxml2" ,libxml2)))
7505     (synopsis "File manager for GNOME")
7506     (home-page "https://wiki.gnome.org/Apps/Nautilus")
7507     (description
7508      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
7509 design and behaviour, giving the user a simple way to navigate and manage its
7510 files.")
7511     (license license:gpl2+)))
7512
7513 (define-public baobab
7514   (package
7515     (name "baobab")
7516     (version "3.32.0")
7517     (source (origin
7518               (method url-fetch)
7519               (uri (string-append
7520                     "mirror://gnome/sources/" name "/"
7521                     (version-major+minor version) "/"
7522                     name "-" version ".tar.xz"))
7523               (sha256
7524                (base32
7525                 "0b33s9bhpiffv5wl76cq2bbnqhvx3qs2vxyxmil5gcs583llqh9r"))))
7526     (build-system meson-build-system)
7527     (arguments
7528      '(#:glib-or-gtk? #t))
7529     (native-inputs
7530      `(("intltool" ,intltool)
7531        ("pkg-config" ,pkg-config)
7532        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7533        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7534        ("itstool" ,itstool)
7535        ("xmllint" ,libxml2)
7536        ("glib" ,glib "bin")
7537        ("vala" ,vala)))
7538     (inputs
7539      `(("gtk+" ,gtk+)))
7540     (synopsis "Disk usage analyzer for GNOME")
7541     (description
7542      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
7543 usage in the GNOME desktop environment.  It can easily scan device volumes or
7544 a specific user-requested directory branch (local or remote).  Once the scan
7545 is complete it provides a graphical representation of each selected folder.")
7546     (home-page "https://wiki.gnome.org/Apps/Baobab")
7547     (license license:gpl2+)))
7548
7549 (define-public gnome-backgrounds
7550   (package
7551     (name "gnome-backgrounds")
7552     (version "3.34.0")
7553     (source
7554      (origin
7555        (method url-fetch)
7556        (uri (string-append "mirror://gnome/sources/" name "/"
7557                            (version-major+minor version) "/"
7558                            name "-" version ".tar.xz"))
7559        (sha256
7560         (base32
7561          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
7562     (build-system meson-build-system)
7563     (native-inputs
7564      `(("intltool" ,intltool)))
7565     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
7566     (synopsis "Background images for the GNOME desktop")
7567     (description
7568      "GNOME backgrounds package contains a collection of graphics files which
7569 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
7570 the package creates the proper framework and directory structure so that you
7571 can add your own files to the collection.")
7572     (license (list license:gpl2+
7573                    license:cc-by2.0
7574                    license:cc-by-sa2.0
7575                    license:cc-by-sa3.0))))
7576
7577 (define-public gnome-screenshot
7578   (package
7579     (name "gnome-screenshot")
7580     (version "3.34.0")
7581     (source
7582      (origin
7583        (method url-fetch)
7584        (uri (string-append "mirror://gnome/sources/" name "/"
7585                            (version-major+minor version) "/"
7586                            name "-" version ".tar.xz"))
7587        (sha256
7588         (base32
7589          "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
7590     (build-system meson-build-system)
7591     (arguments
7592      '(#:phases
7593        (modify-phases %standard-phases
7594          (add-after 'unpack 'skip-gtk-update-icon-cache
7595            ;; Don't create 'icon-theme.cache'.
7596            (lambda _
7597              (substitute* "build-aux/postinstall.py"
7598                (("gtk-update-icon-cache") "true"))
7599              #t)))))
7600     (native-inputs
7601      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7602        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7603        ("intltool" ,intltool)
7604        ("appstream-glib" ,appstream-glib)
7605        ("pkg-config" ,pkg-config)))
7606     (inputs
7607      `(("gtk+" ,gtk+)
7608        ("libcanberra" ,libcanberra)
7609        ("libx11" ,libx11)
7610        ("libxext" ,libxext)))
7611     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
7612     (synopsis "Take pictures of your screen")
7613     (description
7614      "GNOME Screenshot is a utility used for taking screenshots of the entire
7615 screen, a window or a user defined area of the screen, with optional
7616 beautifying border effects.")
7617     (license license:gpl2+)))
7618
7619 (define-public dconf-editor
7620   (package
7621     (name "dconf-editor")
7622     (version "3.34.2")
7623     (source
7624      (origin
7625        (method url-fetch)
7626        (uri (string-append "mirror://gnome/sources/" name "/"
7627                            (version-major+minor version) "/"
7628                            name "-" version ".tar.xz"))
7629        (sha256
7630         (base32
7631          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
7632     (build-system meson-build-system)
7633     (native-inputs
7634      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
7635        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7636        ("intltool" ,intltool)
7637        ("pkg-config" ,pkg-config)
7638        ("vala" ,vala)))
7639     (inputs
7640      `(("dconf" ,dconf)
7641        ("gtk+" ,gtk+)
7642        ("libxml2" ,libxml2)))
7643     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
7644     (synopsis "Graphical editor for GNOME's dconf configuration system")
7645     (description
7646      "Dconf-editor is a graphical tool for browsing and editing the dconf
7647 configuration system for GNOME.  It allows users to configure desktop
7648 software that do not provide their own configuration interface.")
7649     (license license:lgpl2.1+)))
7650
7651 (define-public gnome-default-applications
7652   (package
7653     (name "gnome-default-applications")
7654     (version "0")
7655     (build-system trivial-build-system)
7656     (source #f)
7657     (propagated-inputs
7658      `(("nautilus" ,nautilus)
7659        ("evince" ,evince)))
7660     (arguments
7661      `(#:modules ((guix build utils))
7662        #:builder
7663        (begin
7664          (use-modules (guix build utils))
7665          (let* ((out (assoc-ref %outputs "out"))
7666                 (apps (string-append out "/share/applications")))
7667            (mkdir-p apps)
7668            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
7669              (lambda (port)
7670                (format port "[Default Applications]\n")
7671                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
7672                (format port "application/pdf=evince.desktop\n")
7673                (format port "application/postscript=evince.desktop\n")))
7674            #t))))
7675     (synopsis "Default MIME type associations for the GNOME desktop")
7676     (description
7677      "Given many installed packages which might handle a given MIME type, a
7678 user running the GNOME desktop probably has some preferences: for example,
7679 that folders be opened by default by the Nautilus file manager, not the Baobab
7680 disk usage analyzer.  This package establishes that set of default MIME type
7681 associations for GNOME.")
7682     (license license:gpl3+)
7683     (home-page #f)))
7684
7685 (define-public libgovirt
7686   (package
7687    (name "libgovirt")
7688    (version "0.3.6")
7689    (source (origin
7690             (method url-fetch)
7691             (uri (string-append "mirror://gnome/sources/" name "/"
7692                                 (version-major+minor version) "/"
7693                                 name "-" version ".tar.xz"))
7694             (sha256
7695              (base32
7696               "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
7697    (build-system glib-or-gtk-build-system)
7698    (native-inputs
7699     `(("gettext" ,gettext-minimal)
7700       ("glib:bin" ,glib "bin")
7701       ("gobject-introspection" ,gobject-introspection)
7702       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7703       ("gtk+:bin" ,gtk+ "bin")
7704       ("pkg-config" ,pkg-config)))
7705    (inputs
7706     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
7707       ("librest" ,rest)))
7708    (synopsis "GoVirt Library")
7709    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
7710    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
7711    (license license:gpl2+)))
7712
7713 (define-public gnome-weather
7714   (package
7715    (name "gnome-weather")
7716    (version "3.34.0")
7717    (source (origin
7718             (method url-fetch)
7719             (uri (string-append "mirror://gnome/sources/" name "/"
7720                                 (version-major+minor version) "/"
7721                                 name "-" version ".tar.xz"))
7722             (sha256
7723              (base32
7724               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
7725    (build-system meson-build-system)
7726    (native-inputs
7727     `(("gettext" ,gettext-minimal)
7728       ("glib:bin" ,glib "bin")
7729       ("gobject-introspection" ,gobject-introspection)
7730       ("gtk+:bin" ,gtk+ "bin")
7731       ("pkg-config" ,pkg-config)))
7732    (inputs
7733     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
7734       ("appstream-glib" ,appstream-glib)
7735       ("geoclue" ,geoclue)
7736       ("gdk-pixbuf" ,gdk-pixbuf)
7737       ("gjs" ,gjs)
7738       ("gnome-desktop" ,gnome-desktop)
7739       ("libgweather" ,libgweather)))
7740    (arguments
7741     `(#:phases
7742       (modify-phases %standard-phases
7743         (add-after 'install 'fix-desktop-file
7744           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
7745           ;; See https://issues.guix.gnu.org/issue/39324.
7746           (lambda* (#:key outputs #:allow-other-keys)
7747             (let* ((out (assoc-ref outputs "out"))
7748                    (applications (string-append out "/share/applications")))
7749               (substitute* (string-append applications "/org.gnome.Weather.desktop")
7750                 (("Exec=.*") "Exec=gnome-weather\n"))))))))
7751    (synopsis "Weather monitoring for GNOME desktop")
7752    (description "GNOME Weather is a small application that allows you to
7753 monitor the current weather conditions for your city, or anywhere in the
7754 world.")
7755    (home-page "https://wiki.gnome.org/Apps/Weather")
7756    (license license:gpl2+)))
7757
7758 (define-public gnome
7759   (package
7760     (name "gnome")
7761     (version (package-version gnome-shell))
7762     (source #f)
7763     (build-system trivial-build-system)
7764     (arguments '(#:builder (begin (mkdir %output) #t)))
7765     (propagated-inputs
7766      ;; TODO: Add or remove packages according to:
7767      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
7768      `(
7769      ;; GNOME-Core-OS-Services
7770        ("accountsservice" ,accountsservice)
7771        ("network-manager" ,network-manager)
7772        ("packagekit" ,packagekit)
7773        ("upower" ,upower)
7774      ;; GNOME-Core-Shell
7775        ("adwaita-icon-theme" ,adwaita-icon-theme)
7776        ("gdm" ,gdm)
7777        ("glib-networking" ,glib-networking)
7778        ("gnome-backgrounds" ,gnome-backgrounds)
7779        ("gnome-bluetooth" ,gnome-bluetooth)
7780        ("gnome-color-manager" ,gnome-color-manager)
7781        ("gnome-control-center" ,gnome-control-center)
7782        ("gnome-desktop" ,gnome-desktop)
7783        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
7784        ("gnome-initial-setup" ,gnome-initial-setup)
7785        ("gnome-keyring" ,gnome-keyring)
7786        ("gnome-menus" ,gnome-menus)
7787        ("gnome-session" ,gnome-session)
7788        ("gnome-settings-daemon" ,gnome-settings-daemon)
7789        ("gnome-shell-extensions" ,gnome-shell-extensions)
7790        ("gnome-shell" ,gnome-shell)
7791        ("gnome-themes-extra" ,gnome-themes-extra)
7792        ("gnome-user-docs" ,gnome-user-docs)
7793        ("gnome-user-share" ,gnome-user-share)
7794        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7795        ("gvfs" ,gvfs)
7796        ("mutter" ,mutter)
7797        ("orca" ,orca)
7798        ("rygel" ,rygel)
7799        ("sushi" ,sushi)
7800      ;; GNOME-Core-Utilities
7801        ("baobab" ,baobab)
7802        ("cheese" ,cheese)
7803        ("eog" ,eog)
7804        ("epiphany" ,epiphany)
7805        ("evince" ,evince)
7806        ("file-roller" ,file-roller)
7807        ("gedit" ,gedit)
7808        ; TODO: ("gnome-boxes" ,gnome-boxes)
7809        ("gnome-calculator" ,gnome-calculator)
7810        ("gnome-calendar" ,gnome-calendar)
7811        ("gnome-characters" ,gnome-characters)
7812        ("gnome-clocks" ,gnome-clocks)
7813        ("gnome-contacts" ,gnome-contacts)
7814        ("gnome-disk-utility" ,gnome-disk-utility)
7815        ("gnome-font-viewer" ,gnome-font-viewer)
7816        ("gnome-maps" ,gnome-maps)
7817        ; TODO: ("gnome-music" ,gnome-music)
7818        ; TODO: ("gnome-photos" ,gnome-photos)
7819        ("gnome-screenshot" ,gnome-screenshot)
7820        ("gnome-system-monitor" ,gnome-system-monitor)
7821        ("gnome-terminal" ,gnome-terminal)
7822        ("gnome-weather" ,gnome-weather)
7823        ("nautilus" ,nautilus)
7824        ("simple-scan" ,simple-scan)
7825        ("totem" ,totem)
7826        ("yelp" ,yelp)
7827      ;; Others
7828        ("hicolor-icon-theme" ,hicolor-icon-theme)
7829        ("gnome-online-accounts" ,gnome-online-accounts)
7830
7831        ;; Packages not part of GNOME proper but that are needed for a good
7832        ;; experience.  See <https://bugs.gnu.org/39646>.
7833        ;; XXX: Find out exactly which ones are needed and why.
7834        ("font-cantarell"            ,font-cantarell)
7835        ("font-dejavu"               ,font-dejavu)
7836        ("at-spi2-core"              ,at-spi2-core)
7837        ("dbus"                      ,dbus)
7838        ("dconf"                     ,dconf)
7839        ("desktop-file-utils"        ,desktop-file-utils)
7840        ("gnome-default-applications" ,gnome-default-applications)
7841        ("gnome-themes-standard"     ,gnome-themes-standard)
7842        ("gst-plugins-base"          ,gst-plugins-base)
7843        ("gst-plugins-good"          ,gst-plugins-good)
7844        ("gucharmap"                 ,gucharmap)
7845        ("pinentry-gnome3"           ,pinentry-gnome3)
7846        ("pulseaudio"                ,pulseaudio)
7847        ("shared-mime-info"          ,shared-mime-info)
7848        ("system-config-printer"     ,system-config-printer)
7849        ("xdg-user-dirs"             ,xdg-user-dirs)
7850        ("yelp"                      ,yelp)
7851        ("zenity"                    ,zenity)))
7852     (synopsis "The GNU desktop environment")
7853     (home-page "https://www.gnome.org/")
7854     (description
7855      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
7856 applications for browsing the web, editing text and images, creating
7857 documents and diagrams, playing media, scanning, and much more.")
7858     (license license:gpl2+)))
7859
7860 (define-public byzanz
7861   ;; The last stable release of Byzanz was in 2011, but there have been many
7862   ;; useful commits made to the Byzanz repository since then that it would be
7863   ;; silly to use such an old release.
7864   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
7865     (package
7866       (name "byzanz")
7867       (version (string-append "0.2-1." (string-take commit 7)))
7868       (source (origin
7869                 (method git-fetch)
7870                 (uri (git-reference
7871                       (url "https://git.gnome.org/browse/byzanz")
7872                       (commit commit)))
7873                 (file-name (string-append name "-" version "-checkout"))
7874                 (sha256
7875                  (base32
7876                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
7877       (build-system glib-or-gtk-build-system)
7878       (arguments
7879        '(#:phases
7880          (modify-phases %standard-phases
7881            (add-before 'bootstrap 'build-without-Werror
7882              (lambda _
7883                ;; The build system cleverly detects that we're not building from
7884                ;; a release tarball and turns on -Werror for GCC.
7885                ;; Unsurprisingly, there is a warning during compilation that
7886                ;; causes the build to fail unnecessarily, so we remove the flag.
7887                (substitute* '("configure.ac")
7888                  (("-Werror") ""))
7889                #t)))))
7890       (native-inputs
7891        `(("autoconf" ,autoconf)
7892          ("automake" ,automake)
7893          ("gnome-common" ,gnome-common)
7894          ("intltool" ,intltool)
7895          ("libtool" ,libtool)
7896          ("pkg-config" ,pkg-config)
7897          ("which" ,which)))
7898       (inputs
7899        `(("glib" ,glib)
7900          ("gstreamer" ,gstreamer)
7901          ("gst-plugins-base" ,gst-plugins-base)
7902          ("gtk+" ,gtk+)))
7903       (synopsis "Desktop recording program")
7904       (description "Byzanz is a simple desktop recording program with a
7905 command-line interface.  It can record part or all of an X display for a
7906 specified duration and save it as a GIF encoded animated image file.")
7907       (home-page "https://git.gnome.org/browse/byzanz")
7908       (license license:gpl2+))))
7909
7910 (define-public gsound
7911   (package
7912     (name "gsound")
7913     (version "1.0.2")
7914     (source (origin
7915               (method url-fetch)
7916               (uri (string-append "mirror://gnome/sources/" name "/"
7917                                   (version-major+minor version) "/"
7918                                   name "-" version ".tar.xz"))
7919               (sha256
7920                (base32
7921                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
7922     (build-system glib-or-gtk-build-system)
7923     (native-inputs
7924      `(("pkg-config" ,pkg-config)
7925        ("gobject-introspection" ,gobject-introspection)
7926        ("vala" ,vala)))
7927     (inputs
7928      `(("glib" ,glib)
7929        ("libcanberra" ,libcanberra)))
7930     (home-page "https://wiki.gnome.org/Projects/GSound")
7931     (synopsis "GObject wrapper for libcanberra")
7932     (description
7933      "GSound is a small library for playing system sounds.  It's designed to be
7934 used via GObject Introspection, and is a thin wrapper around the libcanberra C
7935 library.")
7936     (license license:lgpl2.1+)))
7937
7938 (define-public libzapojit
7939   (package
7940     (name "libzapojit")
7941     (version "0.0.3")
7942     (source (origin
7943               (method url-fetch)
7944               (uri (string-append "mirror://gnome/sources/" name "/"
7945                                   (version-major+minor version) "/"
7946                                   name "-" version ".tar.xz"))
7947               (sha256
7948                (base32
7949                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
7950     (build-system gnu-build-system)
7951     (native-inputs
7952      `(("gobject-introspection" ,gobject-introspection)
7953        ("intltool" ,intltool)
7954        ("pkg-config" ,pkg-config)))
7955     (inputs
7956      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7957        ("json-glib" ,json-glib)
7958        ("rest" ,rest)))
7959     (home-page "https://wiki.gnome.org/Projects/Zapojit")
7960     (synopsis "Library for accessing SkyDrive and Hotmail")
7961     (description
7962      "Libzapojit is a GLib-based library for accessing online service APIs of
7963 Microsoft SkyDrive and Hotmail, using their REST protocols.")
7964     (license license:lgpl2.1+)))
7965
7966 (define-public gnome-clocks
7967   (package
7968     (name "gnome-clocks")
7969     (version "3.34.0")
7970     (source (origin
7971               (method url-fetch)
7972               (uri (string-append "mirror://gnome/sources/" name "/"
7973                                   (version-major+minor version) "/"
7974                                   name "-" version ".tar.xz"))
7975               (sha256
7976                (base32
7977                 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
7978     (build-system meson-build-system)
7979     (arguments
7980      '(#:glib-or-gtk? #t
7981        #:phases
7982        (modify-phases %standard-phases
7983          (add-after 'unpack 'skip-gtk-update-icon-cache
7984            ;; Don't create 'icon-theme.cache'.
7985            (lambda _
7986              (substitute* "build-aux/post-install.py"
7987                (("gtk-update-icon-cache") "true"))
7988              #t)))))
7989     (native-inputs
7990      `(("vala" ,vala)
7991        ("pkg-config" ,pkg-config)
7992        ("glib" ,glib "bin")             ; for glib-compile-resources
7993        ("desktop-file-utils" ,desktop-file-utils)
7994        ("gettext" ,gettext-minimal)
7995        ("itstool" ,itstool)))
7996     (inputs
7997      `(("glib" ,glib)
7998        ("gtk+" ,gtk+)
7999        ("gsound" ,gsound)
8000        ("geoclue" ,geoclue)
8001        ("geocode-glib" ,geocode-glib)
8002        ("libgweather" ,libgweather)
8003        ("gnome-desktop" ,gnome-desktop)))
8004     (home-page "https://wiki.gnome.org/Apps/Clocks")
8005     (synopsis "GNOME's clock application")
8006     (description
8007      "GNOME Clocks is a simple clocks application designed to fit the GNOME
8008 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
8009     (license license:gpl3+)))
8010
8011 (define-public gnome-calendar
8012   (package
8013     (name "gnome-calendar")
8014     (version "3.34.2")
8015     (source (origin
8016               (method url-fetch)
8017               (uri (string-append "mirror://gnome/sources/" name "/"
8018                                   (version-major+minor version) "/"
8019                                   name "-" version ".tar.xz"))
8020               (sha256
8021                (base32
8022                 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
8023     (build-system meson-build-system)
8024     (arguments
8025      '(#:glib-or-gtk? #t
8026        ;; gnome-calendar has to be installed before the tests can be run
8027        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
8028        #:tests? #f
8029        #:phases
8030        (modify-phases %standard-phases
8031          (add-after 'unpack 'skip-gtk-update-icon-cache
8032            ;; Don't create 'icon-theme.cache'.
8033            (lambda _
8034              (substitute* "build-aux/meson/meson_post_install.py"
8035                (("gtk-update-icon-cache") "true"))
8036              #t)))))
8037     (native-inputs
8038      `(("gettext" ,gettext-minimal)
8039        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
8040        ("pkg-config" ,pkg-config)))
8041     (inputs
8042      `(("evolution-data-server" ,evolution-data-server)
8043        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8044        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8045        ("libdazzle" ,libdazzle)
8046        ("libedataserverui" ,evolution-data-server)
8047        ("libgweather" ,libgweather)
8048        ("geoclue" ,geoclue)))
8049     (home-page "https://wiki.gnome.org/Apps/Calendar")
8050     (synopsis "GNOME's calendar application")
8051     (description
8052      "GNOME Calendar is a simple calendar application designed to fit the GNOME
8053 desktop.  It supports multiple calendars, month, week and year view.")
8054     (license license:gpl3+)))
8055
8056 (define-public gnome-todo
8057   (package
8058     (name "gnome-todo")
8059     (version "3.28.1")
8060     (source (origin
8061               (method url-fetch)
8062               (uri (string-append "mirror://gnome/sources/" name "/"
8063                                   (version-major+minor version) "/"
8064                                   name "-" version ".tar.xz"))
8065               (sha256
8066                (base32
8067                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))))
8068     (build-system meson-build-system)
8069     (arguments
8070      '(#:glib-or-gtk? #t
8071        #:phases (modify-phases %standard-phases
8072                   (add-after
8073                       'install 'wrap-gnome-todo
8074                     (lambda* (#:key inputs outputs #:allow-other-keys)
8075                       (let ((out               (assoc-ref outputs "out"))
8076                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
8077                             (python-path       (getenv "PYTHONPATH")))
8078                         (wrap-program (string-append out "/bin/gnome-todo")
8079                           ;; XXX: gi plugins are broken.
8080                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
8081                           ;; For plugins.
8082                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8083                           `("PYTHONPATH" ":" prefix (,python-path))))
8084                       #t)))))
8085     (native-inputs
8086      `(("gettext" ,gettext-minimal)
8087        ("gobject-introspection" ,gobject-introspection)
8088        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
8089        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8090        ("pkg-config" ,pkg-config)))
8091     (inputs
8092      `(("rest" ,rest)                   ; For Todoist plugin
8093        ("json-glib" ,json-glib)         ; For Todoist plugin
8094        ("libedataserverui" ,evolution-data-server)
8095        ("libical" ,libical)
8096        ("libpeas" ,libpeas)
8097        ("python-pygobject" ,python-pygobject)
8098        ("evolution-data-server" ,evolution-data-server)
8099        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8100        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
8101     (home-page "https://wiki.gnome.org/Apps/Todo")
8102     (synopsis "GNOME's ToDo Application")
8103     (description
8104      "GNOME To Do is a simplistic personal task manager designed to perfectly
8105 fit the GNOME desktop.")
8106     (license license:gpl3+)))
8107
8108 (define-public gnome-dictionary
8109   (package
8110     (name "gnome-dictionary")
8111     (version "3.26.1")
8112     (source (origin
8113               (method url-fetch)
8114               (uri (string-append "mirror://gnome/sources/" name "/"
8115                                   (version-major+minor version) "/"
8116                                   name "-" version ".tar.xz"))
8117               (sha256
8118                (base32
8119                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
8120     (build-system meson-build-system)
8121     (arguments '(#:glib-or-gtk? #t
8122                  #:phases (modify-phases %standard-phases
8123                             (add-after 'unpack 'patch-install-script
8124                               (lambda _
8125                                 ;; This script attempts to compile glib schemas
8126                                 ;; and create an empty MIME database.  We do
8127                                 ;; that elsewhere, so prevent it from running.
8128                                 (substitute* "build-aux/post-install.sh"
8129                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
8130                                 #t)))))
8131     (native-inputs
8132      `(("glib:bin" ,glib "bin")
8133        ("gobject-introspection" ,gobject-introspection)
8134        ("intltool" ,intltool)
8135        ("itstool" ,itstool)
8136        ("pkg-config" ,pkg-config)
8137        ("xmllint" ,libxml2)))
8138     (inputs
8139      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8140        ("gtk+" ,gtk+)))
8141     (home-page "https://wiki.gnome.org/Apps/Dictionary")
8142     (synopsis "Look up words in dictionary sources")
8143     (description
8144      "GNOME Dictionary can look for the definition or translation of a word in
8145 existing databases over the internet.")
8146     (license license:gpl3+)))
8147
8148 (define-public gnome-tweaks
8149   (package
8150     (name "gnome-tweaks")
8151     (version "3.34.0")
8152     (source (origin
8153               (method url-fetch)
8154               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
8155                                   (version-major+minor version) "/"
8156                                   "gnome-tweaks-" version ".tar.xz"))
8157               (patches
8158                (list (search-patch "gnome-tweaks-search-paths.patch")))
8159               (sha256
8160                (base32
8161                 "0l2j42ba7v866iknygamnkiq7igh0fjvq92r93cslvvfnkx2ccq0"))))
8162     (build-system meson-build-system)
8163     (arguments
8164      `(#:glib-or-gtk? #t
8165        #:configure-flags '("-Dlocalstatedir=/tmp"
8166                            "-Dsysconfdir=/tmp")
8167        #:imported-modules ((guix build python-build-system)
8168                            ,@%meson-build-system-modules)
8169        #:phases
8170        (modify-phases %standard-phases
8171          (add-after 'unpack 'skip-gtk-update-icon-cache
8172            ;; Don't create 'icon-theme.cache'.
8173            (lambda _
8174              (substitute* "meson-postinstall.py"
8175                (("gtk-update-icon-cache") "true"))
8176              #t))
8177          (add-after 'install 'wrap
8178            (@@ (guix build python-build-system) wrap))
8179          (add-after 'wrap 'wrap-gi-typelib
8180            (lambda* (#:key inputs outputs #:allow-other-keys)
8181              (let ((out               (assoc-ref outputs "out"))
8182                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
8183                (wrap-program (string-append out "/bin/gnome-tweaks")
8184                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8185              #t)))))
8186     (native-inputs
8187      `(("intltool" ,intltool)
8188        ("pkg-config" ,pkg-config)))
8189     (inputs
8190      `(("gnome-desktop" ,gnome-desktop)
8191        ("gtk+" ,gtk+)
8192        ("gobject-introspection" ,gobject-introspection)
8193        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8194        ("libhandy" ,libhandy)
8195        ("libnotify" ,libnotify)
8196        ("libsoup" ,libsoup)
8197        ("nautilus" ,nautilus)
8198        ("python" ,python)
8199        ("python-pygobject" ,python-pygobject)))
8200     (synopsis "Customize advanced GNOME 3 options")
8201     (home-page "https://wiki.gnome.org/Apps/Tweaks")
8202     (description
8203      "GNOME Tweaks allows adjusting advanced configuration settings in
8204 GNOME 3.  This includes things like the fonts used in user interface elements,
8205 alternative user interface themes, changes in window management behavior,
8206 GNOME Shell appearance and extension, etc.")
8207     (license license:gpl3+)))
8208
8209 (define-public gnome-shell-extensions
8210   (package
8211     (name "gnome-shell-extensions")
8212     (version "3.34.2")
8213     (source (origin
8214               (method url-fetch)
8215               (uri (string-append "mirror://gnome/sources/" name "/"
8216                                   (version-major+minor version)  "/"
8217                                   name "-" version ".tar.xz"))
8218               (sha256
8219                (base32
8220                 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
8221     (build-system meson-build-system)
8222     (arguments
8223      '(#:configure-flags '("-Dextension_set=all")))
8224     (native-inputs
8225      `(("glib:bin" ,glib "bin")
8226        ("intltool" ,intltool)
8227        ("pkg-config" ,pkg-config)))
8228     (propagated-inputs
8229      `(("glib" ,glib)))
8230     (synopsis "Extensions for GNOME Shell")
8231     (description "GNOME Shell extensions modify and extend GNOME Shell
8232 functionality and behavior.")
8233     (home-page "https://extensions.gnome.org/")
8234     (license license:gpl3+)))
8235
8236 (define-public arc-theme
8237   (package
8238     (name "arc-theme")
8239     (version "20190917")
8240     (source (origin
8241               (method git-fetch)
8242               (uri (git-reference
8243                     (url "https://github.com/NicoHood/arc-theme.git")
8244                     (commit version)))
8245               (file-name (git-file-name name version))
8246               (sha256
8247                (base32
8248                 "1qgpk4p2hi5hd4yy0hj93kq1vs0b32wb8qkaj1wi90c8gwddq5wa"))))
8249     (build-system gnu-build-system)
8250     (arguments
8251      '(#:phases
8252        (modify-phases %standard-phases
8253          ;; autogen.sh calls configure at the end of the script.
8254          (replace 'bootstrap
8255            (lambda _ (invoke "autoreconf" "-vfi")))
8256          (add-before 'build 'set-home   ;placate Inkscape
8257            (lambda _
8258              (setenv "HOME" (getcwd))
8259              #t)))))
8260     (native-inputs
8261      `(("autoconf" ,autoconf)
8262        ("automake" ,automake)
8263        ("glib" ,glib "bin")             ; for glib-compile-resources
8264        ("gnome-shell" ,gnome-shell)
8265        ("gtk+" ,gtk+)
8266        ("inkscape" ,inkscape)
8267        ("optipng" ,optipng)
8268        ("pkg-config" ,pkg-config)
8269        ("sassc" ,sassc/libsass-3.5)))
8270     (synopsis "A flat GTK+ theme with transparent elements")
8271     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
8272 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
8273 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
8274     (home-page "https://github.com/horst3180/arc-theme")
8275     ;; No "or later" language found.
8276     (license license:gpl3+)))
8277
8278 (define-public faba-icon-theme
8279   (package
8280     (name "faba-icon-theme")
8281     (version "4.3")
8282     (source
8283      (origin
8284        (method git-fetch)
8285        (uri (git-reference
8286              (url "https://github.com/snwh/faba-icon-theme.git")
8287              (commit (string-append "v" version))))
8288        (file-name (git-file-name name version))
8289        (sha256
8290         (base32 "0xh6ppr73p76z60ym49b4d0liwdc96w41cc5p07d48hxjsa6qd6n"))))
8291     (build-system meson-build-system)
8292     (arguments
8293      `(#:phases
8294        (modify-phases %standard-phases
8295          (add-before 'configure 'disable-post-install
8296            (lambda _
8297              (substitute* "meson.build"
8298                (("meson.add_install_script.*") "")))))))
8299     (native-inputs
8300      `(("autoconf" ,autoconf)
8301        ("automake" ,automake)))
8302     (synopsis "Faba icon theme")
8303     (description
8304      "Faba is a minimal icon set used as a basis for other themes such as
8305 Moka")
8306     (home-page "https://snwh.org/moka")
8307     (license (list license:lgpl3+
8308                    license:cc-by-sa4.0))))
8309
8310 (define-public moka-icon-theme
8311   (package
8312     (inherit faba-icon-theme)
8313     (name "moka-icon-theme")
8314     (version "5.4.0")
8315     (source
8316      (origin
8317        (method git-fetch)
8318        (uri (git-reference
8319              (url "https://github.com/snwh/moka-icon-theme.git")
8320              (commit (string-append "v" version))))
8321        (file-name (git-file-name name version))
8322        (sha256
8323         (base32 "015l02im4mha5z91dbchxf6xkp66d346bg3xskwg0rh3lglhjsrd"))))
8324     (propagated-inputs
8325      ;; Moka is based on Faba by using it as a fallback icon set instead of
8326      ;; bundling it, so we need to add it as a propagated input.
8327      `(("faba-icon-theme" ,faba-icon-theme)))
8328     (synopsis "Moka icon theme")
8329     (description "Moka is a stylized desktop icon set, designed to be clear,
8330 simple and consistent.")
8331     (license (list license:gpl3+
8332                    license:cc-by-sa4.0))))
8333
8334 (define-public arc-icon-theme
8335   (package
8336     (name "arc-icon-theme")
8337     (version "20161122")
8338     (source
8339      (origin
8340        (method git-fetch)
8341        (uri (git-reference
8342              (url "https://github.com/horst3180/arc-icon-theme.git")
8343              (commit version)))
8344        (file-name (git-file-name name version))
8345        (sha256
8346         (base32 "1ch3hp08qri93510hypzz6m2x4xgg2h15wvnhjwh1x1s1b7jvxjd"))))
8347     (build-system gnu-build-system)
8348     (arguments
8349      `(#:phases
8350        (modify-phases %standard-phases
8351          (add-after 'unpack 'disable-configure-during-bootstrap
8352            (lambda _
8353              (substitute* "autogen.sh"
8354                (("^\"\\$srcdir/configure\".*") ""))
8355              #t)))))
8356     (native-inputs
8357      `(("autoconf" ,autoconf)
8358        ("automake" ,automake)))
8359     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
8360     (propagated-inputs
8361      `(("moka-icon-theme" ,moka-icon-theme)))
8362     (synopsis "Arc icon theme")
8363     (description "The Arc icon theme provides a set of icons matching the
8364 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
8365 the Moka icon theme.")
8366     (home-page "https://github.com/horst3180/arc-icon-theme")
8367     (license license:gpl3+)))
8368
8369 (define-public folks
8370   (package
8371     (name "folks")
8372     (version "0.13.1")
8373     (source (origin
8374               (method url-fetch)
8375               (uri (string-append
8376                     "mirror://gnome/sources/folks/"
8377                     (version-major+minor version) "/"
8378                     "folks-" version ".tar.xz"))
8379               (sha256
8380                (base32
8381                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
8382     (build-system meson-build-system)
8383     (arguments
8384      '(#:phases
8385        (modify-phases %standard-phases
8386          (add-after 'unpack 'skip-gtk-update-icon-cache
8387            ;; Don't create 'icon-theme.cache'.
8388            (lambda _
8389              (substitute* "meson_post_install.py"
8390                (("gtk-update-icon-cache") "true"))
8391              #t)))))
8392     (inputs
8393      `(("bdb" ,bdb)
8394        ("dbus-glib" ,dbus-glib)
8395        ("evolution-data-server" ,evolution-data-server)
8396        ("glib" ,glib)
8397        ("libgee" ,libgee)
8398        ("readline" ,readline)
8399        ("telepathy-glib" ,telepathy-glib)))
8400     (native-inputs
8401      `(("glib:bin" ,glib "bin")
8402        ("gobject-introspection" ,gobject-introspection)
8403        ("intltool" ,intltool)
8404        ("pkg-config" ,pkg-config)
8405        ("vala" ,vala)))
8406     (synopsis "Library to aggregate data about people")
8407     (description "Libfolks is a library that aggregates information about people
8408 from multiple sources (e.g., Telepathy connection managers for IM contacts,
8409 Evolution Data Server for local contacts, libsocialweb for web service contacts,
8410 etc.) to create metacontacts.  It's written in Vala, which generates C code when
8411 compiled.")
8412     (home-page "https://wiki.gnome.org/Projects/Folks")
8413     (license license:lgpl2.1+)))
8414
8415 (define-public gfbgraph
8416   (package
8417     (name "gfbgraph")
8418     (version "0.2.3")
8419     (source (origin
8420               (method url-fetch)
8421               (uri (string-append
8422                     "mirror://gnome/sources/gfbgraph/"
8423                     (version-major+minor version) "/"
8424                     "gfbgraph-" version ".tar.xz"))
8425               (sha256
8426                (base32
8427                 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
8428     (build-system glib-or-gtk-build-system)
8429     (arguments
8430      `(#:tests? #f ; Tests appear to require the network.
8431        ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
8432        #:configure-flags '("--disable-gtk-doc"
8433                            "--disable-static"
8434                            "--enable-introspection")))
8435     (native-inputs
8436      `(("pkg-config" ,pkg-config)
8437        ("gobject-introspection" ,gobject-introspection)))
8438     (inputs
8439      `(("json-glib" ,json-glib)
8440        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8441        ("rest" ,rest)))
8442     (synopsis "GLib/GObject wrapper for the Facebook API")
8443     (description "This library allows you to use the Facebook API from
8444 GLib/GObject code.")
8445     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
8446     (license license:lgpl2.1+)))
8447
8448 (define-public libgnomekbd
8449   (package
8450     (name "libgnomekbd")
8451     (version "3.26.1")
8452     (source (origin
8453               (method url-fetch)
8454               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
8455                                   (version-major+minor version)  "/"
8456                                   "libgnomekbd-" version ".tar.xz"))
8457               (sha256
8458                (base32
8459                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
8460     (build-system gnu-build-system)
8461     (native-inputs
8462      `(("pkg-config" ,pkg-config)
8463        ("glib" ,glib "bin")
8464        ("intltool" ,intltool)))
8465     (propagated-inputs
8466      ;; Referred to in .h files and .pc.
8467      `(("glib" ,glib)
8468        ("gtk+" ,gtk+)
8469        ("libxklavier" ,libxklavier)))
8470     (home-page "https://www.gnome.org")
8471     (synopsis "GNOME keyboard configuration library")
8472     (description
8473      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
8474 environment, which can notably display keyboard layouts.")
8475     (license license:lgpl2.0+)))
8476
8477 ;;; This package is no longer maintained:
8478 ;;; https://wiki.gnome.org/Attic/LibUnique
8479 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
8480 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
8481 (define-public libunique
8482   (package
8483     (name "libunique")
8484     (version "3.0.2")
8485     (source (origin
8486               (method url-fetch)
8487               (uri (string-append "mirror://gnome/sources/" name "/"
8488                                   (version-major+minor version)  "/"
8489                                   name "-" version ".tar.xz"))
8490               (sha256
8491                (base32
8492                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
8493     (build-system glib-or-gtk-build-system)
8494     (arguments
8495      `(#:configure-flags '("--disable-static"
8496                            "--disable-dbus" ; use gdbus
8497                            "--enable-introspection")))
8498     (native-inputs
8499      `(("pkg-config" ,pkg-config)
8500        ("gobject-introspection" ,gobject-introspection)
8501        ("glib:bin" ,glib "bin")
8502        ("gtk-doc" ,gtk-doc)))
8503     (propagated-inputs
8504      ;; Referred to in .h files and .pc.
8505      `(("gtk+" ,gtk+)))
8506     (home-page "https://wiki.gnome.org/Attic/LibUnique")
8507     (synopsis "Library for writing single instance applications")
8508     (description
8509      "Libunique is a library for writing single instance applications.  If you
8510 launch a single instance application twice, the second instance will either just
8511 quit or will send a message to the running instance.  Libunique makes it easy to
8512 write this kind of application, by providing a base class, taking care of all
8513 the IPC machinery needed to send messages to a running instance, and also
8514 handling the startup notification side.")
8515     (license license:lgpl2.1+)))
8516
8517 (define-public gnome-calculator
8518   (package
8519     (name "gnome-calculator")
8520     (version "3.34.1")
8521     (source
8522      (origin
8523        (method url-fetch)
8524        (uri (string-append "mirror://gnome/sources/" name "/"
8525                            (version-major+minor version) "/"
8526                            name "-" version ".tar.xz"))
8527        (sha256
8528         (base32
8529          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
8530     (build-system meson-build-system)
8531     (arguments '(#:glib-or-gtk? #t))
8532     (native-inputs
8533      `(("gettext" ,gettext-minimal)
8534        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
8535        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8536        ("itstool" ,itstool)
8537        ("vala" ,vala)
8538        ("pkg-config" ,pkg-config)))
8539     (inputs
8540      `(("glib" ,glib)
8541        ("gtksourceview" ,gtksourceview)
8542        ("libgee" ,libgee)
8543        ("libsoup" ,libsoup)
8544        ("libxml2" ,libxml2)
8545        ("mpc" ,mpc)
8546        ("mpfr" ,mpfr)))
8547     (home-page "https://wiki.gnome.org/Apps/Calculator")
8548     (synopsis "Desktop calculator")
8549     (description
8550      "Calculator is an application that solves mathematical equations and
8551 is suitable as a default application in a Desktop environment.")
8552     (license license:gpl3)))
8553
8554 (define-public xpad
8555   (package
8556     (name "xpad")
8557     (version "5.1.0")
8558     (source
8559      (origin
8560        (method url-fetch)
8561        (uri (string-append "https://launchpad.net/xpad/trunk/"
8562                            version "/+download/"
8563                            name "-" version ".tar.bz2"))
8564        (sha256
8565         (base32
8566          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
8567     (build-system gnu-build-system)
8568     (native-inputs
8569      `(("autoconf" ,autoconf)
8570        ("automake" ,automake)
8571        ("gtk+:bin" ,gtk+ "bin")
8572        ("intltool" ,intltool)
8573        ("pkg-config" ,pkg-config)))
8574     (inputs
8575      `(("gtksourceview" ,gtksourceview-3)
8576        ("libsm" ,libsm)))
8577     (home-page "https://wiki.gnome.org/Apps/Xpad")
8578     (synopsis "Virtual sticky note")
8579     (description
8580      "Xpad is a sticky note that strives to be simple, fault tolerant,
8581 and customizable.  Xpad consists of independent pad windows, each is
8582 basically a text box in which notes can be written.")
8583     (license license:gpl3+)))
8584
8585 (define-public gucharmap
8586   (let ((unicode-files
8587          '(("Blocks.txt"
8588             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
8589            ("DerivedAge.txt"
8590             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
8591            ("NamesList.txt"
8592             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
8593            ("Scripts.txt"
8594             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
8595            ("UnicodeData.txt"
8596             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
8597            ("Unihan.zip"
8598             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
8599     (package
8600       (name "gucharmap")
8601       (version "12.0.1")
8602       (source
8603        (origin
8604          (method url-fetch)
8605          (uri (string-append "mirror://gnome/sources/" name "/"
8606                              (version-major+minor version) "/"
8607                              name "-" version ".tar.xz"))
8608          (sha256
8609           (base32
8610            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
8611       (build-system glib-or-gtk-build-system)
8612       (arguments
8613        `(#:modules ((ice-9 match)
8614                     (guix build glib-or-gtk-build-system)
8615                     (guix build utils))
8616          #:configure-flags
8617          (list "--with-unicode-data=../unicode-data")
8618          #:phases
8619          (modify-phases %standard-phases
8620            (add-after 'unpack 'prepare-unicode-data
8621              (lambda* (#:key inputs #:allow-other-keys)
8622                (mkdir-p "../unicode-data")
8623                (with-directory-excursion "../unicode-data"
8624                  (for-each (match-lambda
8625                              ((file _)
8626                               (install-file (assoc-ref inputs file) ".")))
8627                            ',unicode-files))
8628                #t)))))
8629       (native-inputs
8630        `(("desktop-file-utils" ,desktop-file-utils)
8631          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
8632          ("gobject-introspection" ,gobject-introspection)
8633          ("intltool" ,intltool)
8634          ("itstool" ,itstool)
8635          ("pkg-config" ,pkg-config)
8636          ,@(map (match-lambda
8637                   ((file hash)
8638                    `(,file
8639                      ,(origin
8640                         (method url-fetch)
8641                         (uri (string-append
8642                               "http://www.unicode.org/Public/12.0.0/ucd/"
8643                               file))
8644                         (sha256 (base32 hash))))))
8645                 unicode-files)
8646          ("unzip" ,unzip)))
8647       (inputs
8648        `(("gtk+" ,gtk+)
8649          ("xmllint" ,libxml2)))
8650       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
8651       (synopsis "Unicode character picker and font browser")
8652       (description
8653        "This program allows you to browse through all the available Unicode
8654 characters and categories for the installed fonts, and to examine their
8655 detailed properties.  It is an easy way to find the character you might
8656 only know by its Unicode name or code point.")
8657       (license license:gpl3+))))
8658
8659 (define-public bluefish
8660   (package
8661     (name "bluefish")
8662     (version "2.2.11")
8663     (source
8664      (origin
8665        (method url-fetch)
8666        (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
8667                            "bluefish-" version ".tar.gz"))
8668        (sha256
8669         (base32 "0a7kf78q4cj2ap4igjks9kbmmr74brsrl4y2f9wbxpl0b0v2ck2x"))))
8670     (build-system gnu-build-system)
8671     (native-inputs
8672      `(("desktop-file-utils" ,desktop-file-utils)
8673        ("intltool" ,intltool)
8674        ("pkg-config" ,pkg-config)))
8675     (inputs
8676      `(("enchant" ,enchant)
8677        ("gtk+" ,gtk+)
8678        ("python" ,python-wrapper)
8679        ("xmllint" ,libxml2)
8680        ("gucharmap" ,gucharmap)))
8681     (home-page "http://bluefish.openoffice.nl")
8682     (synopsis "Web development studio")
8683     (description
8684      "Bluefish is an editor targeted towards programmers and web developers,
8685 with many options to write web sites, scripts and other code.
8686 Bluefish supports many programming and markup languages.")
8687     (license license:gpl3+)))
8688
8689 (define-public gnome-system-monitor
8690   (package
8691     (name "gnome-system-monitor")
8692     (version "3.32.1")
8693     (source
8694      (origin
8695        (method url-fetch)
8696        (uri (string-append "mirror://gnome/sources/" name "/"
8697                            (version-major+minor version) "/"
8698                            name "-" version ".tar.xz"))
8699        (sha256
8700         (base32
8701          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
8702     (build-system meson-build-system)
8703     (arguments
8704      '(#:glib-or-gtk? #t
8705        #:configure-flags '("-Dsystemd=false")))
8706     (native-inputs
8707      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
8708        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8709        ("intltool" ,intltool)
8710        ("itstool" ,itstool)
8711        ("libgtop" ,libgtop)
8712        ("polkit" ,polkit)
8713        ("pkg-config" ,pkg-config)))
8714     (inputs
8715      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
8716        ("gtk+" ,gtk+)
8717        ("gtkmm" ,gtkmm)
8718        ("librsvg" ,librsvg)
8719        ("libxml2" ,libxml2)
8720        ("libwnck" ,libwnck)))
8721     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
8722     (synopsis "Process viewer and system resource monitor for GNOME")
8723     (description
8724      "GNOME System Monitor is a GNOME process viewer and system monitor with
8725 an attractive, easy-to-use interface.  It has features, such as a tree view
8726 for process dependencies, icons for processes, the ability to hide processes,
8727 graphical time histories of CPU/memory/swap usage and the ability to
8728 kill/reinice processes.")
8729     (license license:gpl2+)))
8730
8731 (define-public python-pyatspi
8732   (package
8733     (name "python-pyatspi")
8734     (version "2.34.0")
8735     (source (origin
8736               (method url-fetch)
8737               (uri (string-append
8738                     "mirror://gnome/sources/pyatspi/"
8739                     (version-major+minor version)
8740                     "/pyatspi-" version ".tar.xz"))
8741               (sha256
8742                (base32
8743                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
8744     (build-system gnu-build-system)
8745     (arguments
8746      `(#:phases
8747        (modify-phases %standard-phases
8748          (add-before 'build 'fix-atk-load
8749            (lambda _
8750              (substitute* "pyatspi/__init__.py"
8751                (("from gi.repository import Atspi")
8752                 "gi.require_version('Gtk', '3.0')
8753 from gi.repository import Gtk
8754 from gi.repository import Atspi"))
8755              #t)))))
8756     (native-inputs
8757      `(("pkg-config" ,pkg-config)))
8758     (inputs
8759      `(("python" ,python)
8760        ("python-pygobject" ,python-pygobject)))
8761     (synopsis "Python client bindings for D-Bus AT-SPI")
8762     (home-page "https://wiki.linuxfoundation.org/accessibility\
8763 /atk/at-spi/at-spi_on_d-bus")
8764     (description
8765      "This package includes a python client library for the AT-SPI D-Bus
8766 accessibility infrastructure.")
8767     (license license:lgpl2.0)
8768     (properties '((upstream-name . "pyatspi")))))
8769
8770 (define-public orca
8771   (package
8772     (name "orca")
8773     (version "3.34.1")
8774     (source (origin
8775               (method url-fetch)
8776               (uri (string-append
8777                     "mirror://gnome/sources/" name "/"
8778                     (version-major+minor version) "/"
8779                     name "-" version ".tar.xz"))
8780               (sha256
8781                (base32
8782                 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
8783     (build-system glib-or-gtk-build-system)
8784     (arguments
8785      '(#:phases
8786        (modify-phases %standard-phases
8787          (add-before 'configure 'qualify-xkbcomp
8788            (lambda* (#:key inputs #:allow-other-keys)
8789              (let ((xkbcomp (string-append
8790                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
8791                (substitute* "src/orca/orca.py"
8792                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
8793              #t))
8794          (add-after 'install 'wrap-orca
8795            (lambda* (#:key outputs #:allow-other-keys)
8796              (let* ((out  (assoc-ref outputs "out"))
8797                     (prog (string-append out "/bin/orca")))
8798                (wrap-program prog
8799                  `("GI_TYPELIB_PATH" ":" prefix
8800                    (,(getenv "GI_TYPELIB_PATH")))
8801                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
8802                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
8803                  `("PYTHONPATH" ":" prefix
8804                    (,(getenv "PYTHONPATH")))))
8805              #t)))))
8806     (native-inputs
8807      `(("intltool" ,intltool)
8808        ("itstool" ,itstool)
8809        ("pkg-config" ,pkg-config)
8810        ("xmllint" ,libxml2)))
8811     (inputs
8812      `(("at-spi2-atk" ,at-spi2-atk)
8813        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8814        ("gstreamer" ,gstreamer)
8815        ("gst-plugins-base" ,gst-plugins-base)
8816        ("gst-plugins-good" ,gst-plugins-good)
8817        ("gtk+" ,gtk+)
8818        ("python" ,python)
8819        ("python-pygobject" ,python-pygobject)
8820        ("python-pyatspi" ,python-pyatspi)
8821        ("python-speechd" ,speech-dispatcher)
8822        ("xkbcomp" ,xkbcomp)))
8823     (synopsis
8824      "Screen reader for individuals who are blind or visually impaired")
8825     (home-page "https://wiki.gnome.org/Projects/Orca")
8826     (description
8827      "Orca is a screen reader that provides access to the graphical desktop
8828 via speech and refreshable braille.  Orca works with applications and toolkits
8829 that support the Assistive Technology Service Provider Interface (AT-SPI).")
8830     (license license:lgpl2.1+)))
8831
8832 (define-public gspell
8833   (package
8834     (name "gspell")
8835     (version "1.8.2")
8836     (source (origin
8837               (method url-fetch)
8838               (uri (string-append "mirror://gnome/sources/" name "/"
8839                                   (version-major+minor version) "/"
8840                                   name "-" version ".tar.xz"))
8841               (sha256
8842                (base32
8843                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
8844               (patches (search-patches "gspell-dash-test.patch"))))
8845     (build-system glib-or-gtk-build-system)
8846     (arguments
8847      '(#:configure-flags (list "--enable-vala")
8848        #:phases
8849        (modify-phases %standard-phases
8850          (add-before 'check 'pre-check
8851            (lambda* (#:key inputs #:allow-other-keys)
8852              ;; Tests require a running X server.
8853              (system "Xvfb :1 &")
8854              (setenv "DISPLAY" ":1")
8855
8856              ;; For the missing /etc/machine-id.
8857              (setenv "DBUS_FATAL_WARNINGS" "0")
8858
8859              ;; Allow Enchant and its Aspell backend to find the en_US
8860              ;; dictionary.
8861              (setenv "ASPELL_DICT_DIR"
8862                      (string-append (assoc-ref inputs "aspell-dict-en")
8863                                     "/lib/aspell"))
8864              #t)))))
8865     (inputs
8866      `(("gtk+" ,gtk+)
8867        ("glib" ,glib)
8868        ("iso-codes" ,iso-codes)))
8869     (native-inputs
8870      `(("glib" ,glib "bin")
8871        ("gobject-introspection" ,gobject-introspection)
8872        ("pkg-config" ,pkg-config)
8873        ("vala" ,vala)                             ;for VAPI, needed by Geary
8874        ("xmllint" ,libxml2)
8875
8876        ;; For tests.
8877        ("aspell-dict-en" ,aspell-dict-en)
8878        ("xorg-server" ,xorg-server-for-tests)))
8879     (propagated-inputs
8880      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
8881     (home-page "https://wiki.gnome.org/Projects/gspell")
8882     (synopsis "GNOME's alternative spell checker")
8883     (description
8884      "gspell provides a flexible API to add spell-checking to a GTK+
8885 application.  It provides a GObject API, spell-checking to text entries and
8886 text views, and buttons to choose the language.")
8887     (license license:gpl2+)))
8888
8889 (define-public gnome-planner
8890   (package
8891     (name "gnome-planner")
8892     (version "0.14.6")
8893     (source (origin
8894               (method url-fetch)
8895               (uri (string-append "mirror://gnome/sources/planner/"
8896                                   (version-major+minor version) "/planner-"
8897                                   version ".tar.xz"))
8898               (sha256
8899                (base32
8900                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
8901     (build-system glib-or-gtk-build-system)
8902     (arguments
8903      ;; Disable the Python bindings because the Planner program functions
8904      ;; without them, and (as of 2017-06-13) we have not packaged all of
8905      ;; packages that are necessary for building the Python bindings.
8906      `(#:configure-flags
8907        (list "--disable-python"
8908              ,@(if (string=? "aarch64-linux" (%current-system))
8909                    '("--build=aarch64-unknown-linux-gnu")
8910                    '()))))
8911     (inputs
8912      `(("libgnomecanvas" ,libgnomecanvas)
8913        ("libgnomeui" ,libgnomeui)
8914        ("libglade" ,libglade)
8915        ("gnome-vfs" ,gnome-vfs)
8916        ("gconf" ,gconf)
8917        ("libxml2" ,libxml2)
8918        ("libxslt" ,libxslt)
8919        ("gtk+" ,gtk+)
8920        ("glib" ,glib)))
8921     (native-inputs
8922      `(("intltool" ,intltool)
8923        ("scrollkeeper" ,scrollkeeper)
8924        ("pkg-config" ,pkg-config)))
8925     (home-page "https://wiki.gnome.org/Apps/Planner")
8926     (synopsis "Project management software for the GNOME desktop")
8927     (description
8928      "GNOME Planner is a project management tool based on the Work Breakdown
8929 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
8930 the resources, tasks, and constraints that you define, Planner generates
8931 various views into a project.  For example, Planner can show a Gantt chart of
8932 the project.  It can show a detailed summary of tasks including their
8933 duration, cost, and current progress.  It can also show a report of resource
8934 utilization that highlights under-utilized and over-utilized resources.  These
8935 views can be printed as PDF or PostScript files, or exported to HTML.")
8936     (license license:gpl2+)))
8937
8938 (define-public lollypop
8939   (package
8940     (name "lollypop")
8941     (version "1.2.32")
8942     (source
8943      (origin
8944        (method url-fetch)
8945        (uri (string-append "https://adishatz.org/lollypop/"
8946                            "lollypop-" version ".tar.xz"))
8947        (sha256
8948         (base32 "1ng9492k8754vlqggbfsyzbmfdx4w17fzc4ad21fr92710na0w5a"))))
8949     (build-system meson-build-system)
8950     (arguments
8951      `(#:imported-modules
8952        (,@%meson-build-system-modules
8953         (guix build python-build-system))
8954        #:modules
8955        ((guix build meson-build-system)
8956         ((guix build python-build-system) #:prefix python:)
8957         (guix build utils))
8958        #:glib-or-gtk? #t
8959        #:tests? #f                      ; no test suite
8960        #:phases
8961        (modify-phases %standard-phases
8962          (add-after 'install 'wrap-program
8963            (lambda* (#:key outputs #:allow-other-keys)
8964              (let ((out               (assoc-ref outputs "out"))
8965                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
8966                (wrap-program (string-append out "/bin/lollypop")
8967                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8968              #t))
8969          (add-after 'install 'wrap-python
8970            (assoc-ref python:%standard-phases 'wrap)))))
8971     (native-inputs
8972      `(("intltool" ,intltool)
8973        ("itstool" ,itstool)
8974        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
8975        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
8976        ("pkg-config" ,pkg-config)))
8977     (inputs
8978      `(("gobject-introspection" ,gobject-introspection)
8979        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8980        ("gst-plugins-base" ,gst-plugins-base)
8981        ("libnotify" ,libnotify)
8982        ("libsecret" ,libsecret)
8983        ("libsoup" ,libsoup)
8984        ("python" ,python)
8985        ("python-beautifulsoup4" ,python-beautifulsoup4)
8986        ("python-gst" ,python-gst)
8987        ("python-pil" ,python-pillow)
8988        ("python-pycairo" ,python-pycairo)
8989        ("python-pygobject" ,python-pygobject)
8990        ("python-pylast" ,python-pylast)
8991        ("totem-pl-parser" ,totem-pl-parser)
8992        ("webkitgtk" ,webkitgtk)))
8993     (propagated-inputs
8994      `(;; gst-plugins-base is required to start Lollypop,
8995        ;; the others are required to play streaming.
8996        ("gst-plugins-good" ,gst-plugins-good)
8997        ("gst-plugins-ugly" ,gst-plugins-ugly)))
8998     (home-page "https://wiki.gnome.org/Apps/Lollypop")
8999     (synopsis "GNOME music playing application")
9000     (description
9001      "Lollypop is a music player designed to play well with GNOME desktop.
9002 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
9003 from artists and tracks from the web.  It also fetches cover artworks
9004 automatically and it can stream songs from online music services and charts.")
9005     (license license:gpl3+)))
9006
9007 (define-public gnome-video-effects
9008   (package
9009     (name "gnome-video-effects")
9010     (version "0.4.3")
9011     (source (origin
9012               (method url-fetch)
9013               (uri (string-append "mirror://gnome/sources/" name "/"
9014                                   (version-major+minor version) "/" name "-"
9015                                   version ".tar.xz"))
9016               (sha256
9017                (base32
9018                 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
9019     (build-system glib-or-gtk-build-system)
9020     (arguments
9021      `(#:out-of-source? #f))
9022     (native-inputs
9023      `(("glib:bin" ,glib "bin")
9024        ("intltool" ,intltool)
9025        ("gettext" ,gettext-minimal)
9026        ("pkg-config" ,pkg-config)))
9027     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
9028     (synopsis "Video effects for Cheese and other GNOME applications")
9029     (description
9030      "A collection of GStreamer video filters and effects to be used in
9031 photo-booth-like software, such as Cheese.")
9032     (license license:gpl2+)))
9033
9034 (define-public cheese
9035   (package
9036     (name "cheese")
9037     (version "3.34.0")
9038     (source (origin
9039               (method url-fetch)
9040               (uri (string-append "mirror://gnome/sources/" name "/"
9041                                   (version-major+minor version) "/" name "-"
9042                                   version ".tar.xz"))
9043               (sha256
9044                (base32
9045                 "0wvyc9wb0avrprvm529m42y5fkv3lirdphqydc9jw0c8mh05d1ni"))))
9046     (arguments
9047      `(#:glib-or-gtk? #t
9048        ;; Tests require GDK.
9049        #:tests? #f
9050        #:phases
9051        (modify-phases %standard-phases
9052          (add-after 'unpack 'skip-gtk-update-icon-cache
9053            (lambda _
9054              ;; Don't create 'icon-theme.cache'
9055              (substitute* "meson_post_install.py"
9056                (("gtk-update-icon-cache") (which "true")))
9057              #t))
9058          (add-after 'install 'wrap-cheese
9059            (lambda* (#:key inputs outputs #:allow-other-keys)
9060              (let ((out             (assoc-ref outputs "out"))
9061                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
9062                (wrap-program (string-append out "/bin/cheese")
9063                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
9064              #t)))))
9065     (build-system meson-build-system)
9066     (native-inputs
9067      `(("docbook-xsl" ,docbook-xsl)
9068        ("glib:bin" ,glib "bin")
9069        ("gtk-doc" ,gtk-doc)
9070        ("intltool" ,intltool)
9071        ("itstool" ,itstool)
9072        ("libxml2" ,libxml2)
9073        ("libxslt" ,libxslt)
9074        ("pkg-config" ,pkg-config)
9075        ("vala" ,vala)))
9076     (propagated-inputs
9077      `(("gnome-video-effects" ,gnome-video-effects)
9078        ("clutter" ,clutter)
9079        ("clutter-gst" ,clutter-gst)
9080        ("clutter-gtk" ,clutter-gtk)
9081        ("libcanberra" ,libcanberra)
9082        ("gdk-pixbuf" ,gdk-pixbuf)
9083        ("glib" ,glib)
9084        ("gstreamer" ,gstreamer)))
9085     (inputs
9086      `(("gnome-desktop" ,gnome-desktop)
9087        ("gobject-introspection" ,gobject-introspection)
9088        ("gst-plugins-base" ,gst-plugins-base)
9089        ("gst-plugins-bad" ,gst-plugins-bad)
9090        ("gtk+" ,gtk+)
9091        ("libx11" ,libx11)
9092        ("libxtst" ,libxtst)))
9093     (home-page "https://wiki.gnome.org/Apps/Cheese")
9094     (synopsis "Webcam photo booth software for GNOME")
9095     (description
9096      "Cheese uses your webcam to take photos and videos.  Cheese can also
9097 apply fancy special effects and lets you share the fun with others.")
9098     (license license:gpl2+)))
9099
9100 (define-public sound-juicer
9101   (package
9102     (name "sound-juicer")
9103     (version "3.24.0")
9104     (source
9105      (origin
9106        (method url-fetch)
9107        (uri (string-append "mirror://gnome/sources/" name "/"
9108                            (version-major+minor version) "/"
9109                            name "-" version ".tar.xz"))
9110        (sha256
9111         (base32
9112          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
9113     (build-system glib-or-gtk-build-system)
9114     (native-inputs
9115      `(("desktop-file-utils" ,desktop-file-utils)
9116        ("intltool" ,intltool)
9117        ("itstool" ,itstool)
9118        ("pkg-config" ,pkg-config)
9119        ("xmllint" ,libxml2)))
9120     (inputs
9121      `(("gtk+" ,gtk+)
9122        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9123        ("gstreamer" ,gstreamer)
9124        ("gst-plugins-base" ,gst-plugins-base)
9125        ("gst-plugins-good" ,gst-plugins-good)
9126        ("iso-codes" ,iso-codes)
9127        ("libbrasero-media3" ,brasero)
9128        ("libcanberra" ,libcanberra)
9129        ("libdiscid" ,libdiscid)
9130        ("libmusicbrainz" ,libmusicbrainz)
9131        ("neon" ,neon)))
9132     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
9133     (synopsis "Audio music cd ripper")
9134     (description "Sound Juicer extracts audio from compact discs and convert it
9135 into audio files that a personal computer or digital audio player can play.
9136 It supports ripping to any audio codec supported by a GStreamer plugin, such as
9137 mp3, Ogg Vorbis and FLAC")
9138     (license license:gpl2+)))
9139
9140 (define-public soundconverter
9141   (package
9142     (name "soundconverter")
9143     (version "3.0.1")
9144     (source
9145      (origin
9146        (method url-fetch)
9147        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
9148                            version "/+download/"
9149                            "soundconverter-" version ".tar.xz"))
9150
9151        (sha256
9152         (base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
9153        (patches
9154         (search-patches
9155          "soundconverter-remove-gconf-dependency.patch"))))
9156     (build-system glib-or-gtk-build-system)
9157     (arguments
9158      `(#:imported-modules ((guix build python-build-system)
9159                            (guix build glib-or-gtk-build-system)
9160                            ,@%gnu-build-system-modules)
9161
9162        #:modules ((guix build glib-or-gtk-build-system)
9163                   (guix build utils)
9164                   ((guix build gnu-build-system) #:prefix gnu:)
9165                   ((guix build python-build-system) #:prefix python:))
9166
9167        #:phases
9168        (modify-phases %standard-phases
9169          (add-after 'install 'wrap-soundconverter-for-python
9170            (assoc-ref python:%standard-phases 'wrap))
9171          (add-after 'install 'wrap-soundconverter
9172            (lambda* (#:key inputs outputs #:allow-other-keys)
9173              (let ((out               (assoc-ref outputs "out"))
9174                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9175                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
9176                (wrap-program (string-append out "/bin/soundconverter")
9177                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
9178                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
9179              #t)))))
9180     (native-inputs
9181      `(("intltool" ,intltool)
9182        ("pkg-config" ,pkg-config)
9183        ("glib:bin" ,glib "bin")))
9184     (inputs
9185      `(("gtk+" ,gtk+)
9186        ("python" ,python)
9187        ("python-pygobject" ,python-pygobject)
9188        ("gstreamer" ,gstreamer)
9189        ("gst-plugins-base" ,gst-plugins-base)))
9190     (home-page "https://soundconverter.org/")
9191     (synopsis "Convert between audio formats with a graphical interface")
9192     (description
9193      "SoundConverter supports converting between many audio formats including
9194 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
9195 configurable file renaming. ")
9196     (license license:gpl3)))
9197
9198 (define-public workrave
9199   (package
9200     (name "workrave")
9201     (version "1.10.42")
9202     (source
9203      (origin
9204        (method git-fetch)
9205        (uri (git-reference
9206              (url "https://github.com/rcaelers/workrave.git")
9207              (commit (string-append "v" (string-map
9208                                          (match-lambda (#\. #\_) (chr chr))
9209                                          version)))))
9210        (file-name (git-file-name name version))
9211        (sha256
9212         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
9213     (build-system glib-or-gtk-build-system)
9214     (arguments
9215      ;; The only tests are maintainer tests (in po/), which fail.
9216      `(#:tests? #f))
9217     (inputs `(("glib" ,glib)
9218               ("gtk+" ,gtk+)
9219               ("gdk-pixbuf" ,gdk-pixbuf)
9220               ("gtkmm" ,gtkmm)
9221               ("glibmm" ,glibmm)
9222               ("libx11" ,libx11)
9223               ("libxtst" ,libxtst)
9224               ("dconf" ,dconf)
9225               ("libice" ,libice)
9226               ("libsm" ,libsm)
9227               ("libxscrnsaver" ,libxscrnsaver)))
9228     (native-inputs `(("boost" ,boost)
9229                      ("pkg-config" ,pkg-config)
9230                      ("gettext" ,gettext-minimal)
9231                      ("autoconf" ,autoconf)
9232                      ("autoconf-archive" , autoconf-archive)
9233                      ("automake" ,automake)
9234                      ("libtool" ,libtool)
9235                      ("intltool" ,intltool)
9236                      ("gobject-introspection" ,gobject-introspection)
9237                      ("python3" ,python-3)
9238                      ("python-jinja2" ,python-jinja2)))
9239     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
9240     (description
9241      "Workrave is a program that assists in the recovery and prevention of
9242 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
9243 micro-pauses and rest breaks, and restricts you to your daily limit.")
9244     (home-page "http://www.workrave.org")
9245     (license license:gpl3+)))
9246
9247 (define-public ghex
9248   (package
9249     (name "ghex")
9250     (version "3.18.4")
9251     (source (origin
9252               (method url-fetch)
9253               (uri (string-append "mirror://gnome/sources/ghex/"
9254                                   (version-major+minor version) "/"
9255                                   "ghex-" version ".tar.xz"))
9256               (sha256
9257                (base32
9258                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
9259     (build-system meson-build-system)
9260     (arguments
9261      '(#:glib-or-gtk? #t
9262        #:phases
9263        (modify-phases %standard-phases
9264          (add-after 'unpack 'skip-gtk-update-icon-cache
9265            ;; Don't create 'icon-theme.cache'.
9266            (lambda _
9267              (substitute* "meson_post_install.py"
9268                (("gtk-update-icon-cache") (which "true")))
9269              #t)))))
9270     (native-inputs
9271      `(("pkg-config" ,pkg-config)
9272        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
9273        ("gnome-common" ,gnome-common)
9274        ("which" ,which)
9275        ("intltool" ,intltool)
9276        ("yelp-tools" ,yelp-tools)
9277        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
9278     (inputs
9279      `(("atk" ,atk)
9280        ("gtk" ,gtk+)))
9281     (synopsis "GNOME hexadecimal editor")
9282     (description "The GHex program can view and edit files in two ways:
9283 hexadecimal or ASCII.  It is useful for editing binary files in general.")
9284     (home-page "https://wiki.gnome.org/Apps/Ghex")
9285     (license license:gpl2)))
9286
9287 (define-public libdazzle
9288   (package
9289     (name "libdazzle")
9290     (version "3.34.1")
9291     (source (origin
9292               (method url-fetch)
9293               (uri (string-append "mirror://gnome/sources/libdazzle/"
9294                                   (version-major+minor version) "/"
9295                                   "libdazzle-" version ".tar.xz"))
9296               (sha256
9297                (base32
9298                 "01cmcrd75b7ns7j2b4p6h7pv68vjhkcl9zbvzzx7pf4vknxir61x"))))
9299     (build-system meson-build-system)
9300     (arguments
9301      `(#:phases
9302        (modify-phases %standard-phases
9303          (add-before 'check 'pre-check
9304            (lambda _
9305              ;; Tests require a running X server.
9306              (system "Xvfb :1 &")
9307              (setenv "DISPLAY" ":1")
9308              #t)))))
9309     (native-inputs
9310      `(("glib" ,glib "bin")             ; glib-compile-resources
9311        ("pkg-config" ,pkg-config)
9312        ;; For tests.
9313        ("xorg-server" ,xorg-server-for-tests)))
9314     (inputs
9315      `(("glib" ,glib)
9316        ("gobject-introspection" ,gobject-introspection)
9317        ("gtk+" ,gtk+)
9318        ("vala" ,vala)))
9319     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
9320     (synopsis "Companion library to GObject and Gtk+")
9321     (description "The libdazzle library is a companion library to GObject and
9322 Gtk+.  It provides various features that the authors wish were in the
9323 underlying library but cannot for various reasons.  In most cases, they are
9324 wildly out of scope for those libraries.  In other cases, they are not quite
9325 generic enough to work for everyone.")
9326     (license license:gpl3+)))
9327
9328 (define-public evolution
9329   (package
9330     (name "evolution")
9331     (version "3.34.2")
9332     (source (origin
9333               (method url-fetch)
9334               (uri (string-append "mirror://gnome/sources/evolution/"
9335                                   (version-major+minor version) "/"
9336                                   "evolution-" version ".tar.xz"))
9337               (sha256
9338                (base32
9339                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))))
9340     (build-system cmake-build-system)
9341     (arguments
9342      `(#:imported-modules (,@%cmake-build-system-modules
9343                            (guix build glib-or-gtk-build-system))
9344        #:modules ((guix build cmake-build-system)
9345                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
9346                   (guix build utils))
9347        #:configure-flags
9348        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
9349              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
9350                                           ; in four years and cannot be built.
9351        #:phases
9352        (modify-phases %standard-phases
9353          ;; The build system attempts to install user interface modules to the
9354          ;; output directory of the "evolution-data-server" package.  This
9355          ;; change redirects that change.
9356          (add-after 'unpack 'patch-ui-module-dir
9357            (lambda* (#:key outputs #:allow-other-keys)
9358              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
9359                (("\\$\\{edsuimoduledir\\}")
9360                 (string-append (assoc-ref outputs "out")
9361                                "/lib/evolution-data-server/ui-modules")))
9362              #t))
9363          (add-after 'install 'glib-or-gtk-compile-schemas
9364            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
9365          (add-after 'install 'glib-or-gtk-wrap
9366            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
9367     (native-inputs
9368      `(("glib" ,glib "bin")             ; glib-mkenums
9369        ("pkg-config" ,pkg-config)
9370        ("intltool" ,intltool)
9371        ("itstool" ,itstool)))
9372     (inputs
9373      `(("enchant" ,enchant)
9374        ("evolution-data-server" ,evolution-data-server) ; must be the same version
9375        ("gcr" ,gcr)
9376        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9377        ("gnome-autoar" ,gnome-autoar)
9378        ("gnome-desktop" ,gnome-desktop)
9379        ("gspell" ,gspell)
9380        ("highlight" ,highlight)
9381        ("libcanberra" ,libcanberra)
9382        ("libgweather" ,libgweather)
9383        ("libnotify" ,libnotify)
9384        ("libsoup" ,libsoup)
9385        ("nss" ,nss)
9386        ("openldap" ,openldap)
9387        ("webkitgtk" ,webkitgtk)
9388        ("ytnef" ,ytnef)))
9389     (home-page "https://gitlab.gnome.org/GNOME/evolution")
9390     (synopsis "Manage your email, contacts and schedule")
9391     (description "Evolution is a personal information management application
9392 that provides integrated mail, calendaring and address book
9393 functionality.")
9394     ;; See COPYING for details.
9395     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
9396                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
9397                    license:lgpl2.1+))))  ; smime/lib/*
9398
9399 (define-public gthumb
9400   (package
9401     (name "gthumb")
9402     (version "3.8.2")
9403     (source (origin
9404               (method url-fetch)
9405               (uri (string-append "mirror://gnome/sources/gthumb/"
9406                                   (version-major+minor version) "/"
9407                                   "gthumb-" version ".tar.xz"))
9408               (sha256
9409                (base32
9410                 "15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
9411     (build-system meson-build-system)
9412     (arguments
9413      `(#:glib-or-gtk? #t
9414        #:configure-flags
9415        ;; Ensure the RUNPATH contains all installed library locations.
9416        (list (string-append "-Dc_link_args=-Wl,-rpath="
9417                             (assoc-ref %outputs "out")
9418                             "/lib/gthumb/extensions")
9419              (string-append "-Dcpp_link_args=-Wl,-rpath="
9420                             (assoc-ref %outputs "out")
9421                             "/lib/gthumb/extensions"))))
9422     (native-inputs
9423      `(("pkg-config" ,pkg-config)
9424        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
9425        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
9426        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9427        ("intltool" ,intltool)
9428        ("itstool" ,itstool)))
9429     (inputs
9430      `(("exiv2" ,exiv2)
9431        ("gtk" ,gtk+)
9432        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9433        ("gstreamer" ,gstreamer)
9434        ("clutter" ,clutter)
9435        ("clutter-gst" ,clutter-gst)
9436        ("clutter-gtk" ,clutter-gtk)
9437        ("libjpeg" ,libjpeg-turbo)
9438        ("libtiff" ,libtiff)
9439        ("libraw" ,libraw)))
9440     (home-page "https://wiki.gnome.org/Apps/Gthumb")
9441     (synopsis "GNOME image viewer and browser")
9442     (description "GThumb is an image viewer, browser, organizer, editor and
9443 advanced image management tool")
9444     (license license:gpl2+)))
9445
9446 (define-public terminator
9447   (package
9448     (name "terminator")
9449     (version "1.91")
9450     (source (origin
9451               (method url-fetch)
9452               (uri (string-append "https://launchpad.net/" name "/"
9453                                   "gtk3/" version "/" "+download/"
9454                                   name "-" version ".tar.gz"))
9455               (sha256
9456                (base32
9457                 "0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
9458     (build-system python-build-system)
9459     (native-inputs
9460      `(("intltool" ,intltool)
9461        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
9462        ("gettext" ,gettext-minimal)
9463        ("pkg-config" ,pkg-config)))
9464     (inputs
9465      `(("cairo" ,cairo)
9466        ("gobject-introspection" ,gobject-introspection)
9467        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9468        ("python2-pycairo" ,python2-pycairo)
9469        ("python2-pygobject" ,python2-pygobject)
9470        ("python2-psutil" ,python2-psutil)
9471        ("vte" ,vte)))
9472     (arguments
9473      `(#:python ,python-2                          ; Python 3 isn't supported
9474        #:imported-modules ((guix build glib-or-gtk-build-system)
9475                            ,@%python-build-system-modules)
9476        #:modules ((guix build python-build-system)
9477                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
9478                   (guix build utils))
9479        #:phases
9480        (modify-phases %standard-phases
9481          (add-after
9482           'install 'wrap-program
9483           (lambda* (#:key outputs #:allow-other-keys)
9484             (let ((prog (string-append (assoc-ref outputs "out")
9485                                        "/bin/terminator")))
9486               (wrap-program prog
9487                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
9488                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9489               #t)))
9490          (add-after 'wrap-program 'glib-or-gtk-wrap
9491            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
9492     (home-page "https://gnometerminator.blogspot.com/")
9493     (synopsis "Store and run multiple GNOME terminals in one window")
9494     (description
9495      "Terminator allows you to run multiple GNOME terminals in a grid and
9496 +tabs, and it supports drag and drop re-ordering of terminals.")
9497     (license license:gpl2)))
9498
9499 (define-public libhandy
9500   (package
9501     (name "libhandy")
9502     (version "0.0.12")
9503     (source
9504      (origin
9505        (method git-fetch)
9506        (uri (git-reference
9507              (url "https://source.puri.sm/Librem5/libhandy")
9508              (commit (string-append "v" version))))
9509        (file-name (git-file-name name version))
9510        (sha256
9511         (base32 "09wlknarzsbk9hr5ws6s7x5kibkhx9ayrbhshfqib4zkhq2f76hw"))))
9512     (build-system meson-build-system)
9513     (arguments
9514      `(#:configure-flags
9515        '("-Dglade_catalog=disabled"
9516          "-Dgtk_doc=true")
9517        #:phases
9518        (modify-phases %standard-phases
9519          (add-before 'check 'pre-check
9520            (lambda _
9521              ;; Tests require a running X server.
9522              (system "Xvfb :1 &")
9523              (setenv "DISPLAY" ":1")
9524              #t)))))
9525     (inputs
9526      `(("gtk+" ,gtk+)))
9527     (native-inputs
9528      `(("glib:bin" ,glib "bin")
9529        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
9530        ("vala" ,vala)
9531        ("gtk-doc" ,gtk-doc)
9532        ("pkg-config" ,pkg-config)
9533        ("gettext" ,gettext-minimal)
9534
9535        ;; Test suite dependencies.
9536        ("xorg-server" ,xorg-server-for-tests)
9537        ("hicolor-icon-theme" ,hicolor-icon-theme)))
9538     (home-page "https://source.puri.sm/Librem5/libhandy")
9539     (synopsis "Library full of GTK+ widgets for mobile phones")
9540     (description "The aim of the handy library is to help with developing user
9541 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
9542 for usage on small and big screens.")
9543     (license license:lgpl2.1+)))
9544
9545 (define-public libgit2-glib
9546   (package
9547     (name "libgit2-glib")
9548     (version "0.99.0.1")
9549     (source (origin
9550               (method url-fetch)
9551               (uri (string-append "mirror://gnome/sources/" name "/"
9552                                   (version-major+minor version) "/"
9553                                   name "-" version ".tar.xz"))
9554               (sha256
9555                (base32
9556                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
9557     (build-system meson-build-system)
9558     (native-inputs
9559      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
9560        ("gobject-introspection" ,gobject-introspection)
9561        ("pkg-config" ,pkg-config)
9562        ("python-pygobject" ,python-pygobject)
9563        ("python-wrapper" ,python-wrapper)
9564        ("vala" ,vala)))
9565     (inputs
9566      `(("glib" ,glib)
9567        ("libssh2" ,libssh2)))
9568     (propagated-inputs
9569      `(;; In Requires of libgit2-glib.pc.
9570        ("libgit2" ,libgit2)))
9571     (synopsis "GLib wrapper around the libgit2 Git access library")
9572     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
9573 access library.  It only implements the core plumbing functions, not really the
9574 higher level porcelain stuff.")
9575     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
9576     (license license:gpl2+)))
9577
9578 (define-public gitg
9579   (package
9580     (name "gitg")
9581     (version "3.32.1")
9582     (source (origin
9583               (method url-fetch)
9584               (uri (string-append "mirror://gnome/sources/" name "/"
9585                                   (version-major+minor version) "/"
9586                                   name "-" version ".tar.xz"))
9587               (sha256
9588                (base32
9589                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
9590     (build-system meson-build-system)
9591     (arguments
9592      `(#:glib-or-gtk? #t
9593        #:phases
9594        (modify-phases %standard-phases
9595          (add-after 'unpack 'disable-post-install-partially
9596            (lambda _
9597              (substitute* "meson_post_install.py"
9598                (("'python'") ; there are no python sources to compile
9599                 (string-append "'" (which "true") "'"))
9600                (("gtk-update-icon-cache") (which "true")))
9601              #t))
9602          (add-after 'unpack 'fix-test-sources
9603            (lambda _
9604              (substitute* "tests/libgitg/test-commit.vala"
9605                (("/bin/bash") (which "bash")))
9606              #t))
9607          (add-after 'glib-or-gtk-wrap 'wrap-typelib
9608            (lambda* (#:key outputs #:allow-other-keys)
9609              (let ((prog (string-append (assoc-ref outputs "out")
9610                                         "/bin/gitg")))
9611                (wrap-program prog
9612                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9613                #t))))))
9614     (inputs
9615      `(("glib" ,glib)
9616        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9617        ("gtk+" ,gtk+)
9618        ("gtkspell3" ,gtkspell3)
9619        ("gtksourceview" ,gtksourceview-3)
9620        ("json-glib" ,json-glib)
9621        ("libdazzle" ,libdazzle)
9622        ("libgee" ,libgee)
9623        ("libgit2-glib" ,libgit2-glib)
9624        ("libpeas" ,libpeas)
9625        ("libsecret" ,libsecret)
9626        ("libsoup" ,libsoup)
9627        ("libxml2" ,libxml2)))
9628     (native-inputs
9629      `(("glib:bin" ,glib "bin")
9630        ("gtk+:bin" ,gtk+ "bin")
9631        ("gobject-introspection" ,gobject-introspection)
9632        ("intltool" ,intltool)
9633        ("pkg-config" ,pkg-config)
9634        ("vala" ,vala)))
9635     (synopsis "Graphical user interface for git")
9636     (description
9637      "gitg is a graphical user interface for git.  It aims at being a small,
9638 fast and convenient tool to visualize the history of git repositories.
9639 Besides visualization, gitg also provides several utilities to manage your
9640 repository and commit your work.")
9641     (home-page "https://wiki.gnome.org/Apps/Gitg")
9642     (license license:gpl2+)))
9643
9644 (define-public gamin
9645   (package
9646     (name "gamin")
9647     (version "0.1.10")
9648     (source (origin
9649               (method url-fetch)
9650               (uri (string-append "mirror://gnome/sources/" name "/"
9651                                   (version-major+minor version) "/"
9652                                   name "-" version ".tar.bz2"))
9653               (sha256
9654                (base32
9655                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
9656     (build-system gnu-build-system)
9657     (arguments
9658      `(#:phases
9659        (modify-phases %standard-phases
9660          (add-after 'unpack 'remove-deprecated-macro
9661            (lambda _
9662              (substitute* '("server/gam_node.c"
9663                             "server/gam_subscription.h"
9664                             "server/gam_node.h"
9665                             "server/gam_subscription.c")
9666                (("G_CONST_RETURN") "const"))
9667              #t)))))
9668     (inputs
9669      `(("glib" ,glib)))
9670     (native-inputs
9671      `(("intltool" ,intltool)
9672        ("pkg-config" ,pkg-config)))
9673     (home-page "https://people.gnome.org/~veillard/gamin/")
9674     (synopsis "File alteration monitor")
9675     (description
9676      "Gamin is a file and directory monitoring system defined to be a subset
9677 of the FAM (File Alteration Monitor) system.  This is a service provided by a
9678 library which detects when a file or a directory has been modified.")
9679     (license license:gpl2+)))
9680
9681 (define-public gnome-mahjongg
9682   (package
9683     (name "gnome-mahjongg")
9684     (version "3.35.1")
9685     (source (origin
9686               (method git-fetch)
9687               (uri (git-reference
9688                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
9689                     (commit version)))
9690               (file-name (git-file-name name version))
9691               (sha256
9692                (base32
9693                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
9694     (build-system meson-build-system)
9695     (arguments
9696      `(#:glib-or-gtk? #t))
9697     (native-inputs
9698      `(("appstream-glib" ,appstream-glib)
9699        ("gettext" ,gettext-minimal)
9700        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
9701        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
9702        ("itstool" ,itstool)
9703        ("pkg-config" ,pkg-config)
9704        ("vala" ,vala)))
9705     (propagated-inputs
9706      `(("dconf" ,dconf)))
9707     (inputs
9708      `(("glib" ,glib)
9709        ("gtk+" ,gtk+)
9710        ("librsvg" ,librsvg)))
9711     (synopsis "Mahjongg tile-matching game")
9712     (description "GNOME Mahjongg is a game based on the classic Chinese
9713 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
9714 and a high score table.")
9715     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
9716     (license license:gpl2+)))
9717
9718 (define-public gnome-themes-extra
9719   (package
9720     (name "gnome-themes-extra")
9721     (version "3.28")
9722     (source
9723      (origin
9724        (method url-fetch)
9725        (uri (string-append "mirror://gnome/sources/" name "/"
9726                            (version-major+minor version) "/" name "-"
9727                            version ".tar.xz"))
9728        (sha256
9729         (base32
9730          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
9731     (build-system gnu-build-system)
9732     (arguments
9733      '(#:configure-flags
9734        ;; Don't create 'icon-theme.cache'.
9735        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
9736               (true      (string-append coreutils "/bin/true")))
9737          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
9738     (native-inputs
9739      `(("glib:bin" ,glib "bin")
9740        ("intltool" ,intltool)
9741        ("pkg-config" ,pkg-config)))
9742     (inputs
9743      `(("glib" ,glib)
9744        ("gtk+" ,gtk+)
9745        ("gtk+-2" ,gtk+-2)
9746        ("librsvg" ,librsvg)
9747        ("libxml2" ,libxml2)))
9748     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
9749     (synopsis "GNOME Extra Themes")
9750     (description "This package provides themes and related elements that don't
9751 really fit in other upstream packages.  It offers legacy support for GTK+ 2
9752 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
9753 index files needed for Adwaita to be used outside of GNOME.")
9754     (license license:lgpl2.1+)))
9755
9756 (define-public polari
9757   (package
9758     (name "polari")
9759     (version "3.32.2")
9760     (source (origin
9761               (method url-fetch)
9762               (uri (string-append "mirror://gnome/sources/polari/"
9763                                   (version-major+minor version)
9764                                   "/polari-" version ".tar.xz"))
9765               (sha256
9766                (base32
9767                 "0h0w9j3y067l911gpj446b3a2w1i2vzr1w2a7cz7i5rhn6qkf2sp"))))
9768     (build-system meson-build-system)
9769     (arguments
9770      `(#:glib-or-gtk? #t
9771        #:phases
9772        (modify-phases %standard-phases
9773          (add-after 'unpack 'skip-gtk-update-icon-cache
9774            (lambda _
9775              (substitute* "meson/meson-postinstall.sh"
9776                (("gtk-update-icon-cache") (which "true")))
9777              #t))
9778          (add-after 'glib-or-gtk-wrap 'wrap-typelib
9779            (lambda* (#:key outputs #:allow-other-keys)
9780              (let ((prog (string-append (assoc-ref outputs "out")
9781                                         "/bin/polari")))
9782                (wrap-program prog
9783                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9784                #t))))))
9785     (inputs
9786      `(("glib" ,glib)
9787        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9788        ("gspell" ,gspell)
9789        ("gtk+" ,gtk+)
9790        ("gjs" ,gjs)
9791        ("libsecret" ,libsecret)
9792        ("libsoup" ,libsoup)
9793        ("telepathy-glib" ,telepathy-glib)
9794        ("telepathy-logger" ,telepathy-logger)))
9795     (native-inputs
9796      `(("glib:bin" ,glib "bin")
9797        ("gobject-introspection" ,gobject-introspection)
9798        ("intltool" ,intltool)
9799        ("pkg-config" ,pkg-config)
9800        ("yelp-tools" ,yelp-tools)))
9801     (propagated-inputs
9802      `(("telepathy-idle" ,telepathy-idle)
9803        ("telepathy-mission-control" ,telepathy-mission-control)))
9804     (synopsis "Simple IRC Client")
9805     (description
9806      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
9807 integrate seamlessly with the GNOME desktop.")
9808     (home-page "https://wiki.gnome.org/Apps/Polari")
9809     (license license:gpl2+)))
9810
9811 (define-public gnome-boxes
9812   (package
9813     (name "gnome-boxes")
9814     (version "3.35.91")
9815     (source
9816      (origin
9817        (method url-fetch)
9818        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
9819                            (version-major+minor version) "/"
9820                            "gnome-boxes-" version ".tar.xz"))
9821        (sha256
9822         (base32
9823          "0l96spz6pc8q4l5p9a58cc0kgvdr7pbc89hy6ixn72k5pl3s7fxj"))))
9824     (build-system meson-build-system)
9825     (arguments
9826      '(#:glib-or-gtk? #t
9827        #:configure-flags (list "-Drdp=false"
9828                                (string-append "-Dc_link_args=-Wl,-rpath="
9829                                               (assoc-ref %outputs "out")
9830                                               "/lib/gnome-boxes"))))
9831     (native-inputs
9832      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
9833        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
9834        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9835        ("itstool" ,itstool)
9836        ("intltool" ,intltool)
9837        ("vala" ,vala)
9838        ("pkg-config" ,pkg-config)))
9839     (inputs
9840      `(("libarchive" ,libarchive)
9841        ("gtk" ,gtk+)
9842        ("gtk-vnc" ,gtk-vnc)
9843        ("libosinfo" ,libosinfo)
9844        ("libsecret" ,libsecret)
9845        ("libsoup" ,libsoup)
9846        ("libusb" ,libusb)
9847        ("libvirt" ,libvirt)
9848        ("libvirt-glib" ,libvirt-glib)
9849        ("libxml" ,libxml2)
9850        ("spice-gtk" ,spice-gtk)
9851        ("sparql-query" ,sparql-query)
9852        ("vte" ,vte)
9853        ("webkitgtk" ,webkitgtk)
9854        ("tracker" ,tracker)
9855        ("libgudev" ,libgudev)))
9856     (home-page "https://wiki.gnome.org/Apps/Boxes")
9857     (synopsis "View, access, and manage remote and virtual systems")
9858     (description "GNOME Boxes is a simple application to view, access, and
9859 manage remote and virtual systems.")
9860     (license (list
9861               ;; For data/icons/empty-boxes.png.
9862               license:cc-by2.0
9863               ;; For all others.
9864               license:lgpl2.0+))))
9865
9866 (define-public geary
9867   (package
9868     (name "geary")
9869     (version "3.34.1")
9870     (source (origin
9871               (method git-fetch)
9872               (uri (git-reference
9873                     (url "https://gitlab.gnome.org/GNOME/geary")
9874                     (commit version)))
9875               (file-name (git-file-name name version))
9876               (sha256
9877                (base32
9878                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
9879     (build-system meson-build-system)
9880     (arguments
9881      `(#:glib-or-gtk? #t
9882        #:phases (modify-phases %standard-phases
9883                   (add-after 'unpack 'disable-failing-tests
9884                     (lambda _
9885                       (substitute* "test/meson.build"
9886                         (("test\\('client-tests', geary_test_client_bin\\)")
9887                          ""))
9888                       #t))
9889                   (add-after 'unpack 'disable-postinstall-script
9890                     (lambda _
9891                       (substitute* "meson.build"
9892                         (("meson.add_install_script\\(\
9893 join_paths\\('build-aux', 'post_install.py'\\)\\)")
9894                          ""))
9895                       #t))
9896                   (add-before 'check 'setup-xvfb
9897                     (lambda _
9898                       (system "Xvfb :1 &")
9899                       (setenv "DISPLAY" ":1")
9900                       #t)))))
9901     (inputs
9902      `(("enchant" ,enchant)
9903        ("folks" ,folks)
9904        ("gcr" ,gcr)
9905        ("glib" ,glib)
9906        ("gmime" ,gmime-2.6)
9907        ("gnome-online-accounts:lib"
9908         ,gnome-online-accounts "lib")
9909        ("gspell" ,gspell)
9910        ("gtk+" ,gtk+)
9911        ("iso-codes" ,iso-codes)
9912        ("json-glib" ,json-glib)
9913        ("libcanberra" ,libcanberra)
9914        ("libgee" ,libgee)
9915        ("libhandy" ,libhandy)
9916        ("libpeas" ,libpeas)
9917        ("libsecret" ,libsecret)
9918        ("libunwind" ,libunwind)
9919        ("sqlite" ,sqlite)
9920        ("webkitgtk" ,webkitgtk)
9921        ("ytnef" ,ytnef)))
9922     (native-inputs
9923      `(("appstream-glib" ,appstream-glib)
9924        ("cmake-minimal" ,cmake-minimal)
9925        ("desktop-file-utils" ,desktop-file-utils)
9926        ("gettext" ,gettext-minimal)
9927        ("glib:bin" ,glib "bin")
9928        ("gobject-introspection" ,gobject-introspection)
9929        ("itstool" ,itstool)
9930        ("libarchive" ,libarchive)
9931        ("libxml2" ,libxml2)
9932        ("pkg-config" ,pkg-config)
9933        ("vala" ,vala)
9934        ("xvfb" ,xorg-server-for-tests)))
9935     (synopsis "GNOME email application built around conversations")
9936     (description
9937      "Geary collects related messages together into conversations,
9938 making it easy to find and follow your discussions.  Full-text and keyword
9939 search makes it easy to find the email you are looking for.  Geary's
9940 full-featured composer lets you send rich, styled text with images, links, and
9941 lists, but also send lightweight, easy to read text messages.  Geary
9942 automatically picks up your existing GNOME Online Accounts, and adding more is
9943 easy.  Geary has a clean, fast, modern interface that works like you want it
9944 to.")
9945     (home-page "https://wiki.gnome.org/Apps/Geary")
9946     (license (list
9947               ;; geary
9948               license:lgpl2.1+
9949               ;; icons
9950               license:cc-by3.0
9951               license:cc-by-sa3.0
9952               license:public-domain
9953               ;; snowball
9954               license:bsd-2))))
9955
9956 (define-public parlatype
9957   ;; This is one commit away from 2.0, because the latter introduced
9958   ;; a regression in ASR.
9959   (let ((commit "7d22ead13ef7578f99d24146663cc1bdb7d8c2a9")
9960         (revision "0"))
9961     (package
9962       (name "parlatype")
9963       (version (git-version "2.0" revision commit))
9964       (source
9965        (origin
9966          (method git-fetch)
9967          (uri (git-reference
9968                (url "https://github.com/gkarsay/parlatype.git")
9969                (commit commit)))
9970          (file-name (git-file-name name version))
9971          (sha256
9972           (base32 "0r3k3qczbzi7bs5s1rddhpsnadyr805df40bqkx0srlxgh5mfghf"))))
9973       (build-system meson-build-system)
9974       (arguments
9975        `(#:glib-or-gtk? #t
9976          #:tests? #f                    ;require internet access
9977          #:phases
9978          (modify-phases %standard-phases
9979            (add-after 'install 'wrap-parlatype
9980              ;; Add gstreamer plugin provided in this package to system's
9981              ;; plugins.
9982              (lambda* (#:key outputs #:allow-other-keys)
9983                (let* ((out (assoc-ref outputs "out"))
9984                       (gst-plugin-path (string-append
9985                                         out "/lib/gstreamer-1.0/"
9986                                         ":"
9987                                         (getenv "GST_PLUGIN_SYSTEM_PATH"))))
9988                  (wrap-program (string-append out "/bin/parlatype")
9989                    `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
9990                #t)))))
9991       (native-inputs
9992        `(("appstream-glib" ,appstream-glib)
9993          ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
9994          ("gettext" ,gettext-minimal)
9995          ("glib" ,glib "bin")           ;for glib-compile-resources
9996          ("pkg-config" ,pkg-config)
9997          ("yelp-tools" ,yelp-tools)))
9998       (inputs
9999        `(("gst-plugins-base" ,gst-plugins-base)
10000          ("gst-plugins-good" ,gst-plugins-good)
10001          ("gstreamer" ,gstreamer)
10002          ("gtk+" ,gtk+)
10003          ("pocketsphinx" ,pocketsphinx)
10004          ("pulseaudio" ,pulseaudio)
10005          ("sphinxbase" ,sphinxbase)))
10006       (home-page "http://gkarsay.github.io/parlatype/")
10007       (synopsis "GNOME audio player for transcription")
10008       (description "Parlatype is an audio player for the GNOME desktop
10009 environment.  Its main purpose is the manual transcription of spoken
10010 audio files.")
10011       (license license:gpl3+))))
10012
10013 (define-public jsonrpc-glib
10014   (package
10015     (name "jsonrpc-glib")
10016     (version "3.34.0")
10017     (source (origin
10018               (method url-fetch)
10019               (uri (string-append "mirror://gnome/sources/" name "/"
10020                                   (version-major+minor version) "/"
10021                                    name "-" version ".tar.xz"))
10022               (sha256
10023                (base32
10024                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
10025     (build-system meson-build-system)
10026     (inputs
10027      `(("json-glib" ,json-glib)
10028        ("glib" ,glib)))
10029     (native-inputs
10030      `(("pkg-config" ,pkg-config)
10031        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
10032        ("gobject-introspection" ,gobject-introspection)
10033        ("vala" ,vala)))
10034     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
10035     (synopsis "JSON-RPC library for GLib")
10036     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
10037 peers in either a synchronous or asynchronous fashion.  It also allows
10038 communicating using the GVariant serialization format instead of JSON when
10039 both peers support it.  You might want that when communicating on a single
10040 host to avoid parser overhead and memory-allocator fragmentation.")
10041     (license license:lgpl2.1+)))