gnu/packages/gnome.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014-2022 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
   8 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
   9 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015-2022 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016–2022 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  26 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  27 ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
  28 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
  29 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  30 ;;; Copyright © 2017, 2020, 2021 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, 2022 Marius Bakke <marius@gnu.org>
  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, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
  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, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021, 2022 Vinicius Monego <monego@posteo.net>
  55 ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
  56 ;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
  57 ;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de>
  58 ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  59 ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
  60 ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
  61 ;;; Copyright © 2021 Trevor Hass <thass@okstate.edu>
  62 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
  63 ;;; Copyright © 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
  64 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
  65 ;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
  66 ;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch>
  67 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
  68 ;;; Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
  69 ;;; Copyright © 2022 Pierre Langlois <pierre.langlois@gmx.com>
  70 ;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
  71 ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
  72 ;;; Copyright © 2022 Leo Nikkilä <hello@lnikki.la>
  73 ;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com>
  74 ;;; Copyright © 2022 Alexandros Theodotou <alex@zrythm.org>
  75 ;;;
  76 ;;; This file is part of GNU Guix.
  77 ;;;
  78 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  79 ;;; under the terms of the GNU General Public License as published by
  80 ;;; the Free Software Foundation; either version 3 of the License, or (at
  81 ;;; your option) any later version.
  82 ;;;
  83 ;;; GNU Guix is distributed in the hope that it will be useful, but
  84 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  85 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  86 ;;; GNU General Public License for more details.
  87 ;;;
  88 ;;; You should have received a copy of the GNU General Public License
  89 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  90
  91 (define-module (gnu packages gnome)
  92   #:use-module (gnu packages)
  93   #:use-module (gnu packages admin)
  94   #:use-module (gnu packages aidc)
  95   #:use-module (gnu packages aspell)
  96   #:use-module (gnu packages autotools)
  97   #:use-module (gnu packages avahi)
  98   #:use-module (gnu packages backup)
  99   #:use-module (gnu packages base)
 100   #:use-module (gnu packages bash)
 101   #:use-module (gnu packages bison)
 102   #:use-module (gnu packages boost)
 103   #:use-module (gnu packages build-tools)
 104   #:use-module (gnu packages calendar)
 105   #:use-module (gnu packages cdrom)
 106   #:use-module (gnu packages check)
 107   #:use-module (gnu packages cmake)
 108   #:use-module (gnu packages compression)
 109   #:use-module (gnu packages crates-io)
 110   #:use-module (gnu packages crates-graphics)
 111   #:use-module (gnu packages crates-gtk)
 112   #:use-module (gnu packages cups)
 113   #:use-module (gnu packages curl)
 114   #:use-module (gnu packages cyrus-sasl)
 115   #:use-module (gnu packages databases)
 116   #:use-module (gnu packages dbm)
 117   #:use-module (gnu packages djvu)
 118   #:use-module (gnu packages dns)
 119   #:use-module (gnu packages docbook)
 120   #:use-module (gnu packages docker)
 121   #:use-module (gnu packages documentation)
 122   #:use-module (gnu packages enchant)
 123   #:use-module (gnu packages flex)
 124   #:use-module (gnu packages fonts)
 125   #:use-module (gnu packages file-systems)
 126   #:use-module (gnu packages fontutils)
 127   #:use-module (gnu packages freedesktop)
 128   #:use-module (gnu packages game-development)
 129   #:use-module (gnu packages gcc)
 130   #:use-module (gnu packages gettext)
 131   #:use-module (gnu packages ghostscript)
 132   #:use-module (gnu packages gimp)
 133   #:use-module (gnu packages gl)
 134   #:use-module (gnu packages glib)
 135   #:use-module (gnu packages gnupg)
 136   #:use-module (gnu packages gnuzilla)
 137   #:use-module (gnu packages geo)
 138   #:use-module (gnu packages gperf)
 139   #:use-module (gnu packages graphviz)
 140   #:use-module (gnu packages gstreamer)
 141   #:use-module (gnu packages gtk)
 142   #:use-module (gnu packages guile)
 143   #:use-module (gnu packages haskell-xyz)
 144   #:use-module (gnu packages ibus)
 145   #:use-module (gnu packages icu4c)
 146   #:use-module (gnu packages image)
 147   #:use-module (gnu packages imagemagick)
 148   #:use-module (gnu packages inkscape)
 149   #:use-module (gnu packages iso-codes)
 150   #:use-module (gnu packages kerberos)
 151   #:use-module (gnu packages language)
 152   #:use-module (gnu packages libcanberra)
 153   #:use-module (gnu packages libffi)
 154   #:use-module (gnu packages libunistring)
 155   #:use-module (gnu packages libunwind)
 156   #:use-module (gnu packages libusb)
 157   #:use-module (gnu packages linux)
 158   #:use-module (gnu packages lirc)
 159   #:use-module (gnu packages llvm)
 160   #:use-module (gnu packages lua)
 161   #:use-module (gnu packages mail)
 162   #:use-module (gnu packages man)
 163   #:use-module (gnu packages markup)
 164   #:use-module (gnu packages messaging)
 165   #:use-module (gnu packages mp3)
 166   #:use-module (gnu packages multiprecision)
 167   #:use-module (gnu packages music)
 168   #:use-module (gnu packages ncurses)
 169   #:use-module (gnu packages nettle)
 170   #:use-module (gnu packages networking)
 171   #:use-module (gnu packages ninja)
 172   #:use-module (gnu packages node)
 173   #:use-module (gnu packages nss)
 174   #:use-module (gnu packages ocr)
 175   #:use-module (gnu packages openldap)
 176   #:use-module (gnu packages package-management)
 177   #:use-module (gnu packages password-utils)
 178   #:use-module (gnu packages pcre)
 179   #:use-module (gnu packages pdf)
 180   #:use-module (gnu packages perl)
 181   #:use-module (gnu packages photo)
 182   #:use-module (gnu packages pkg-config)
 183   #:use-module (gnu packages polkit)
 184   #:use-module (gnu packages popt)
 185   #:use-module (gnu packages pretty-print)
 186   #:use-module (gnu packages protobuf)
 187   #:use-module (gnu packages pulseaudio)
 188   #:use-module (gnu packages python)
 189   #:use-module (gnu packages python-build)
 190   #:use-module (gnu packages python-crypto)
 191   #:use-module (gnu packages python-web)
 192   #:use-module (gnu packages python-xyz)
 193   #:use-module (gnu packages rdesktop)
 194   #:use-module (gnu packages rdf)
 195   #:use-module (gnu packages readline)
 196   #:use-module (gnu packages ruby)
 197   #:use-module (gnu packages rust)
 198   #:use-module (gnu packages samba)
 199   #:use-module (gnu packages scanner)
 200   #:use-module (gnu packages sdl)
 201   #:use-module (gnu packages search)
 202   #:use-module (gnu packages selinux)
 203   #:use-module (gnu packages slang)
 204   #:use-module (gnu packages speech)
 205   #:use-module (gnu packages spice)
 206   #:use-module (gnu packages sqlite)
 207   #:use-module (gnu packages ssh)
 208   #:use-module (gnu packages swig)
 209   #:use-module (gnu packages tex)
 210   #:use-module (gnu packages time)
 211   #:use-module (gnu packages tls)
 212   #:use-module (gnu packages valgrind)
 213   #:use-module (gnu packages version-control)
 214   #:use-module (gnu packages video)
 215   #:use-module (gnu packages virtualization)
 216   #:use-module (gnu packages vpn)
 217   #:use-module (gnu packages web)
 218   #:use-module (gnu packages webkit)
 219   #:use-module (gnu packages xdisorg)
 220   #:use-module (gnu packages xiph)
 221   #:use-module (gnu packages xml)
 222   #:use-module (gnu packages xorg)
 223   #:use-module (gnu artwork)
 224   #:use-module (guix build-system cargo)
 225   #:use-module (guix build-system cmake)
 226   #:use-module (guix build-system glib-or-gtk)
 227   #:use-module (guix build-system gnu)
 228   #:use-module (guix build-system meson)
 229   #:use-module (guix build-system python)
 230   #:use-module (guix build-system trivial)
 231   #:use-module (guix download)
 232   #:use-module (guix git-download)
 233   #:use-module ((guix licenses) #:prefix license:)
 234   #:use-module (guix packages)
 235   #:use-module (guix utils)
 236   #:use-module (guix gexp)
 237   #:use-module (ice-9 match)
 238   #:use-module (srfi srfi-1))
 239
 240 (define-public gupnp-igd
 241   (package
 242     (name "gupnp-igd")
 243     (version "1.2.0")
 244     (source
 245      (origin
 246        (method url-fetch)
 247        (uri
 248         (string-append "mirror://gnome/sources/" name "/"
 249                        (version-major+minor version) "/"
 250                        name "-" version ".tar.xz"))
 251        (sha256
 252         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 253     (build-system meson-build-system)
 254     (outputs '("out" "doc"))
 255     (arguments
 256      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 257        #:configure-flags (list "-Dgtk_doc=true")
 258        #:phases
 259        (modify-phases %standard-phases
 260          (add-after 'unpack 'patch-docbook-xml
 261            (lambda* (#:key inputs #:allow-other-keys)
 262              (with-directory-excursion "doc"
 263                (substitute* "gupnp-igd-docs.xml"
 264                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 265                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 266                                  "/xml/dtd/docbook/"))))
 267              #t))
 268          (add-before 'check 'set-home
 269            (lambda _
 270              ;; A test using GIO expects ~/.config/glib-2.0/settings to be
 271              ;; writable.
 272              (setenv "HOME" (getcwd))))
 273          (add-after 'install 'move-doc
 274            (lambda* (#:key outputs #:allow-other-keys)
 275              (let* ((out (assoc-ref outputs "out"))
 276                     (doc (assoc-ref outputs "doc")))
 277                (mkdir-p (string-append doc "/share"))
 278                (rename-file
 279                 (string-append out "/share/gtk-doc")
 280                 (string-append doc "/share/gtk-doc"))
 281                #t))))))
 282     (native-inputs
 283      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 284        ("docbook-xsl" ,docbook-xsl)
 285        ("glib:bin" ,glib "bin")
 286        ("gobject-introspection" ,gobject-introspection)
 287        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 288        ("gtk-doc" ,gtk-doc/stable)
 289        ("pkg-config" ,pkg-config)))
 290     (propagated-inputs
 291      (list glib glib-networking gssdp gupnp libsoup))
 292     (synopsis "UPnP IGD for GNOME")
 293     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 294     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 295     (license license:lgpl2.1+)))
 296
 297 (define-public brasero
 298   (package
 299     (name "brasero")
 300     (version "3.12.3")
 301     (source (origin
 302              (method url-fetch)
 303              (uri (string-append "mirror://gnome/sources/brasero/"
 304                                  (version-major+minor version) "/"
 305                                  "brasero-" version ".tar.xz"))
 306              (sha256
 307               (base32
 308                "05gabybkl7xfinwx97i4scp9hic0dlxj7gh03dyj0hd16fp9wx47"))))
 309     (build-system glib-or-gtk-build-system)
 310     (arguments
 311      `(#:configure-flags (list
 312                           (string-append "--with-girdir="
 313                                          (assoc-ref %outputs "out")
 314                                          "/share/gir-1.0")
 315                           (string-append "--with-typelibdir="
 316                                          (assoc-ref %outputs "out")
 317                                          "/lib/girepository-1.0"))
 318        #:phases
 319        (modify-phases %standard-phases
 320          (add-before 'configure 'embed-growisofs-reference
 321            (lambda* (#:key inputs #:allow-other-keys)
 322              (let ((dvd+rw-tools (assoc-ref inputs "dvd+rw-tools")))
 323                (substitute* "plugins/growisofs/burn-growisofs.c"
 324                  (("(\")(growisofs)" _ prefix command)
 325                   (string-append prefix dvd+rw-tools "/bin/" command)))))))))
 326     (propagated-inputs
 327      (list hicolor-icon-theme))
 328     (native-inputs
 329      (list intltool
 330            itstool
 331            `(,glib "bin") ; glib-compile-schemas, etc.
 332            gobject-introspection
 333            pkg-config))
 334     (inputs
 335      (list dvd+rw-tools
 336            glib
 337            gstreamer
 338            gst-plugins-base
 339            gtk+
 340            libcanberra
 341            libice
 342            libnotify
 343            libsm
 344            libxml2
 345            totem-pl-parser))
 346     (home-page "https://wiki.gnome.org/Apps/Brasero")
 347     (synopsis "CD/DVD burning tool for Gnome")
 348     (description "Brasero is an application to burn CD/DVD for the Gnome
 349 Desktop.  It is designed to be as simple as possible and has some unique
 350 features to enable users to create their discs easily and quickly.")
 351     (license license:gpl2+)))
 352
 353 ;;; Minimal variant, used to break a cycle with Inkscape.
 354 (define-public libcloudproviders-minimal
 355   (package
 356     (name "libcloudproviders-minimal")
 357     (version "0.3.1")
 358     (source
 359      (origin
 360        (method url-fetch)
 361        (uri
 362         (string-append "mirror://gnome/sources/libcloudproviders/"
 363                        (version-major+minor version)
 364                        "/libcloudproviders-" version ".tar.xz"))
 365        (sha256
 366         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 367     (build-system meson-build-system)
 368     (arguments
 369      `(#:glib-or-gtk? #t             ; To wrap binaries and/or compile schemas
 370        #:configure-flags (list "-Dintrospection=false"
 371                                "-Denable-gtk-doc=false"
 372                                "-Dvapigen=false")))
 373     (native-inputs
 374      `(("glib:bin" ,glib "bin")
 375        ("pkg-config" ,pkg-config)
 376        ("vala" ,vala)))
 377     (inputs
 378      (list glib glib-networking))
 379     (synopsis "Cloudproviders Integration API")
 380     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 381 clients to expose their services.  Clients such as file managers and desktop
 382 environments can then provide integrated access to the cloud providers
 383 services.")
 384     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 385     (license license:lgpl3+)))
 386
 387 (define-public libcloudproviders
 388   (package/inherit libcloudproviders-minimal
 389     (name "libcloudproviders")
 390     (version "0.3.1")
 391     (outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
 392     (arguments
 393      (substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
 394        ((#:configure-flags _)
 395         '(list "-Denable-gtk-doc=true")) ;false by default
 396        ((#:phases phases '%standard-phases)
 397         `(modify-phases %standard-phases
 398            (add-after 'install 'move-doc
 399              (lambda* (#:key outputs #:allow-other-keys)
 400                (let* ((out (assoc-ref outputs "out"))
 401                       (doc (assoc-ref outputs "doc")))
 402                  (mkdir-p (string-append doc "/share"))
 403                  (rename-file
 404                   (string-append out "/share/gtk-doc")
 405                   (string-append doc "/share/gtk-doc")))))))))
 406     (native-inputs
 407      (append
 408          `(("gobject-introspection" ,gobject-introspection)
 409            ("gtk-doc" ,gtk-doc/stable))
 410          (package-native-inputs libcloudproviders-minimal)))))
 411
 412 (define-public libgrss
 413   (package
 414     (name "libgrss")
 415     (version "0.7.0")
 416     (source
 417      (origin
 418        (method url-fetch)
 419        (uri
 420         (string-append "mirror://gnome/sources/" name "/"
 421                        (version-major+minor version) "/"
 422                        name "-" version ".tar.xz"))
 423        (sha256
 424         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))
 425        (patches
 426         (search-patches "libgrss-CVE-2016-2001.patch"))))
 427     (build-system glib-or-gtk-build-system)
 428     (outputs '("out" "doc"))
 429     (arguments
 430      `(#:configure-flags
 431        (list
 432         "--enable-gtk-doc"
 433         (string-append "--with-html-dir="
 434                        (assoc-ref %outputs "doc")
 435                        "/share/gtk-doc/html"))
 436        #:phases
 437        (modify-phases %standard-phases
 438          (add-after 'unpack 'patch-docbook-xml
 439            (lambda* (#:key inputs #:allow-other-keys)
 440              (with-directory-excursion "doc/reference"
 441                (substitute* "libgrss-docs.sgml"
 442                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 443                   (string-append (assoc-ref inputs "docbook-xml")
 444                                  "/xml/dtd/docbook/"))))
 445              #t)))))
 446     (native-inputs
 447      (list docbook-xml-4.1.2 gobject-introspection gtk-doc/stable
 448            pkg-config))
 449     (propagated-inputs
 450      (list glib libsoup-minimal-2 libxml2))
 451     (synopsis "Glib library for feeds")
 452     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 453 and other formats.")
 454     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 455     (license license:lgpl3+)))
 456
 457 (define-public gnome-js-common
 458   (package
 459     (name "gnome-js-common")
 460     (version "0.1.2")
 461     (source
 462      (origin
 463        (method url-fetch)
 464        (uri
 465         (string-append "mirror://gnome/sources/" name "/"
 466                        (version-major+minor version) "/"
 467                        name "-" version ".tar.gz"))
 468        (sha256
 469         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 470     (build-system glib-or-gtk-build-system)
 471     (arguments
 472      `(#:configure-flags
 473        (list
 474         "--disable-static")))
 475     (native-inputs
 476      `(("gettext" ,gettext-minimal)
 477        ("intltool" ,intltool)
 478        ("pkg-config" ,pkg-config)))
 479     (synopsis "Common JS Modules")
 480     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 481 bindings.")
 482     (home-page "https://wiki.gnome.org/Projects/Seed")
 483     (license license:gpl3+)))
 484
 485 (define-public seed
 486   (package
 487     (name "seed")
 488     (version "3.8.1")
 489     (source
 490      (origin
 491        (method url-fetch)
 492        (uri
 493         (string-append "mirror://gnome/sources/" name "/"
 494                        (version-major+minor version) "/"
 495                        name "-" version ".tar.xz"))
 496        (sha256
 497         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 498        (patches
 499         (search-patches "seed-webkit.patch"))))
 500     (build-system glib-or-gtk-build-system)
 501     (outputs '("out" "doc"))
 502     (arguments
 503      `(#:configure-flags
 504        (list
 505         "--disable-static"
 506         "--enable-xorg-module"
 507         (string-append "--with-html-dir="
 508                        (assoc-ref %outputs "doc")
 509                        "/share/gtk-doc/html")
 510         "--with-webkit=4.0")
 511        #:phases
 512        (modify-phases %standard-phases
 513          ;; The seed-webkit.patch patches configure.ac.
 514          ;; So the source files need to be re-bootstrapped.
 515          (add-after 'unpack 'trigger-bootstrap
 516            (lambda _
 517              (for-each delete-file
 518                        (list
 519                         "configure"
 520                         "Makefile.in"))
 521              #t))
 522          (add-after 'unpack 'patch-tests
 523            (lambda* (#:key outputs #:allow-other-keys)
 524              (substitute* (find-files "." "\\.js$")
 525               (("#!/usr/bin/env seed")
 526                (string-append "#!" (getcwd) "/src/seed")))
 527              #t))
 528          (add-before 'build 'patch-docbook-xml
 529            (lambda* (#:key inputs #:allow-other-keys)
 530              (with-directory-excursion "doc"
 531                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 532                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 533                   (string-append (assoc-ref inputs "docbook-xml")
 534                                  "/xml/dtd/docbook/"))))
 535              #t)))))
 536     (native-inputs
 537      `(("autoconf" ,autoconf)
 538        ("automake" ,automake)
 539        ("docbook-xml" ,docbook-xml-4.1.2)
 540        ("gettext" ,gettext-minimal)
 541        ("gobject-introspection" ,gobject-introspection)
 542        ("gtk-doc" ,gtk-doc/stable)
 543        ("intltool" ,intltool)
 544        ("libtool" ,libtool)
 545        ("pkg-config" ,pkg-config)))
 546     (inputs
 547      `(("cairo" ,cairo)
 548        ("dbus" ,dbus)
 549        ("dbus-glib" ,dbus-glib)
 550        ("gnome-js-common" ,gnome-js-common)
 551        ("gtk+" ,gtk+)
 552        ("gtk+-2" ,gtk+-2)
 553        ("libffi" ,libffi)
 554        ("libxml2" ,libxml2)
 555        ("mpfr" ,mpfr)
 556        ("readline" ,readline)
 557        ("sqlite" ,sqlite)
 558        ("xscrnsaver" ,libxscrnsaver)))
 559     (propagated-inputs
 560      `(("glib" ,glib)
 561        ("webkit" ,webkitgtk-with-libsoup2)))
 562     (synopsis "GObject JavaScriptCore bridge")
 563     (description "Seed is a library and interpreter, dynamically bridging
 564 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 565 GNOME platform.  It serves as something which enables you to write standalone
 566 applications in JavaScript, or easily enable your application to be extensible
 567 in JavaScript.")
 568     (home-page "https://wiki.gnome.org/Projects/Seed")
 569     (license license:lgpl2.0+)))
 570
 571 (define-public libdmapsharing
 572   (package
 573     (name "libdmapsharing")
 574     (version "3.9.10")
 575     (source
 576      (origin
 577        (method url-fetch)
 578        (uri
 579         (string-append "https://www.flyn.org/projects/"
 580                        name "/" name "-" version ".tar.gz"))
 581        (sha256
 582         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 583     (build-system glib-or-gtk-build-system)
 584     (outputs '("out" "doc"))
 585     (arguments
 586      `(#:tests? #f                      ; Tests require networking.
 587        #:configure-flags
 588        (list
 589         "--disable-static"
 590         (string-append "--with-html-dir="
 591                        (assoc-ref %outputs "doc")
 592                        "/share/gtk-doc/html"))
 593        #:phases
 594        (modify-phases %standard-phases
 595          (add-after 'unpack 'patch-docbook-xml
 596            (lambda* (#:key inputs #:allow-other-keys)
 597              (with-directory-excursion "doc"
 598                (substitute* "libdmapsharing-4.0-docs.xml"
 599                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 600                   (string-append (assoc-ref inputs "docbook-xml")
 601                                  "/xml/dtd/docbook/"))))
 602              #t)))))
 603     (native-inputs
 604      (list check
 605            docbook-xml-4.3
 606            gobject-introspection
 607            pedansee
 608            pkg-config
 609            vala))
 610     (inputs
 611      `(("avahi" ,avahi)
 612        ("librsvg" ,librsvg)
 613        ("gee" ,libgee)
 614        ("gst-plugins-base" ,gst-plugins-base)
 615        ("gtk+" ,gtk+)))
 616     (propagated-inputs
 617      (list glib glib-networking gstreamer libsoup-minimal-2))
 618     (synopsis "Media management library")
 619     (description "Libdmapsharing is a library which allows programs to access,
 620 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 621 It is written in C using GObject and libsoup.")
 622     (home-page "https://launchpad.net/gtx")
 623     (license license:lgpl2.1+)))
 624
 625 (define-public gtx
 626   (package
 627     (name "gtx")
 628     (version "0.2.2")
 629     (source
 630      (origin
 631        (method url-fetch)
 632        (uri
 633         (string-append "https://launchpad.net/gtx/trunk/"
 634                        version "/+download/gtx-" version ".tar.gz"))
 635        (sha256
 636         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 637     (build-system glib-or-gtk-build-system)
 638     (outputs '("out" "doc"))
 639     (arguments
 640      `(#:configure-flags
 641        (list
 642         "--disable-static"
 643         "--enable-gtk-doc"
 644         (string-append "--with-html-dir="
 645                        (assoc-ref %outputs "doc")
 646                        "/share/gtk-doc/html"))))
 647     (native-inputs
 648      (list gobject-introspection gtk-doc/stable pkg-config))
 649     (propagated-inputs
 650      (list glib))
 651     (synopsis "GLib Testing Framework")
 652     (description "GTX is a small collection of convenience functions intended to
 653 enhance the GLib testing framework.  With specific emphasis on easing the pain
 654 of writing test cases for asynchronous interactions.")
 655     (home-page "https://launchpad.net/gtx")
 656     (license license:lgpl2.1+)))
 657
 658 (define-public dee
 659   (package
 660     (name "dee")
 661     (version "1.2.7")
 662     (source
 663      (origin
 664        (method url-fetch)
 665        (uri
 666         (string-append "https://launchpad.net/dee/1.0/"
 667                        version "/+download/dee-" version ".tar.gz"))
 668        (sha256
 669         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 670        (patches
 671         (search-patches "dee-vapi.patch"))))
 672     (build-system glib-or-gtk-build-system)
 673     (outputs '("out" "doc"))
 674     (arguments
 675      `(#:configure-flags
 676        (list
 677         "--disable-maintainer-flags"
 678         (string-append "--with-pygi-overrides-dir="
 679                        (assoc-ref %outputs "out")
 680                        "/lib/python"
 681                        ,(version-major+minor
 682                          (package-version python))
 683                        "/site-packages/gi/overrides")
 684         (string-append "--with-html-dir="
 685                        (assoc-ref %outputs "doc")
 686                        "/share/gtk-doc/html"))
 687        #:phases
 688        (modify-phases %standard-phases
 689          (add-after 'unpack 'patch-docbook-xml
 690            (lambda* (#:key inputs #:allow-other-keys)
 691              (with-directory-excursion "doc/reference/dee-1.0"
 692                (substitute* "dee-1.0-docs.sgml"
 693                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 694                   (string-append (assoc-ref inputs "docbook-xml")
 695                                  "/xml/dtd/docbook/"))))))
 696          (add-after 'patch-docbook-xml 'disable-failing-tests
 697            (lambda _
 698              (substitute* "tests/test-icu.c"
 699                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 700                 "")
 701                (("setup, test_ascii_folder, teardown\\);")
 702                 ""))))
 703          (add-before 'check 'pre-check
 704            (lambda _
 705              ;; Tests require a running dbus-daemon.
 706              (system "dbus-daemon &")
 707              ;; For missing '/etc/machine-id'.
 708              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
 709     (native-inputs
 710      `(("dbus" ,dbus)
 711        ("dbus-test-runner" ,dbus-test-runner)
 712        ("docbook-xml" ,docbook-xml-4.3)
 713        ("gobject-introspection" ,gobject-introspection)
 714        ("gtk-doc" ,gtk-doc/stable)
 715        ;; Would only be required by configure flag "--enable-extended-tests".
 716        ;("gtx" ,gtx)
 717        ("pkg-config" ,pkg-config)
 718        ("pygobject" ,python-pygobject)
 719        ("python" ,python-wrapper)
 720        ("vala" ,vala-0.52)))
 721     (inputs
 722      `(("icu" ,icu4c)))
 723     (propagated-inputs
 724      (list glib))
 725     (synopsis "Model to synchronize multiple instances over DBus")
 726     (description "Dee is a library that uses DBus to provide objects allowing
 727 you to create Model-View-Controller type programs across DBus.  It also consists
 728 of utility objects which extend DBus allowing for peer-to-peer discoverability
 729 of known objects without needing a central registrar.")
 730     (home-page "https://launchpad.net/dee")
 731     (license
 732      ;; Dual-licensed
 733      (list
 734       license:lgpl3+
 735       license:gpl3+))))
 736
 737 (define-public zeitgeist
 738   (package
 739     (name "zeitgeist")
 740     (version "1.0.4")
 741     (source
 742      (origin
 743        (method git-fetch)
 744        (uri
 745         (git-reference
 746          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 747          (commit
 748           (string-append "v" version))))
 749        (file-name
 750         (git-file-name name version))
 751        (sha256
 752         (base32 "07b1ahj3vd3m8srwkrh7dl3ymr7d55xiiszny44q13g06pq4svch"))))
 753     (build-system glib-or-gtk-build-system)
 754     (arguments
 755      `(#:configure-flags
 756        (list
 757         "--enable-explain-queries"
 758         "--enable-fts"
 759         "--enable-docs")
 760        #:phases
 761        (modify-phases %standard-phases
 762          (add-after 'unpack 'patch-docbook-xml
 763            (lambda* (#:key inputs #:allow-other-keys)
 764              (with-directory-excursion "doc/libzeitgeist"
 765                (substitute* "zeitgeist-gtkdoc-index.sgml"
 766                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 767                   (string-append (assoc-ref inputs "docbook-xml")
 768                                  "/xml/dtd/docbook/"))))))
 769          (add-after 'patch-docbook-xml 'disable-failing-tests
 770            (lambda _
 771              (substitute* "test/direct/Makefile.am"
 772                (("      log-test ")
 773                 ""))
 774              (substitute* "test/c/Makefile.am"
 775                (("      test-log ")
 776                 ""))))
 777          (add-before 'bootstrap 'remove-autogen-script
 778            (lambda _
 779              ;; To honor `autoreconf -vif` by build-system.
 780              (delete-file "autogen.sh"))))))
 781     (native-inputs
 782      `(("autoconf" ,autoconf)
 783        ("automake" ,automake)
 784        ("docbook-xml" ,docbook-xml-4.3)
 785        ("gettext" ,gettext-minimal)
 786        ("gobject-introspection" ,gobject-introspection)
 787        ("gtk-doc" ,gtk-doc/stable)
 788        ("libtool" ,libtool)
 789        ("pkg-config" ,pkg-config)
 790        ("vala" ,vala)
 791        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 792     (inputs
 793      `(("dee-icu" ,dee)
 794        ("gtk+" ,gtk+)
 795        ("json-glib" ,json-glib)
 796        ("sqlite" ,sqlite)
 797        ("telepathy-glib" ,telepathy-glib)
 798        ("python" ,python-wrapper)
 799        ("python-rdflib" ,python-rdflib)
 800        ("xapian-config" ,xapian)))
 801     (propagated-inputs
 802      (list glib))
 803     (synopsis "Desktop Activity Logging")
 804     (description "Zeitgeist is a service which logs the users’s activities and
 805 events, anywhere from files opened to websites visited and conversations.  It
 806 makes this information readily available for other applications to use.  It is
 807 able to establish relationships between items based on similarity and usage
 808 patterns.")
 809     (home-page "https://zeitgeist.freedesktop.org/")
 810     (license
 811      ;; Dual-licensed
 812      (list
 813       license:lgpl2.1+
 814       license:gpl2+))))
 815
 816 (define-public gnome-recipes
 817   (package
 818     (name "gnome-recipes")
 819     (version "2.0.4")
 820     (source (origin
 821               (method git-fetch)
 822               (uri (git-reference
 823                     (url "https://gitlab.gnome.org/GNOME/recipes")
 824                     (commit version)))
 825               (file-name (git-file-name name version))
 826               (sha256
 827                (base32
 828                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 829     (build-system meson-build-system)
 830     (arguments
 831      (list
 832       #:glib-or-gtk? #t
 833       #:phases
 834       #~(modify-phases %standard-phases
 835           (add-after 'unpack 'skip-gtk-update-icon-cache
 836             (lambda _
 837               (substitute* "meson_post_install.py"
 838                 (("gtk-update-icon-cache") (which "true")))))
 839           (add-after 'unpack 'unpack-libgd
 840             (lambda _
 841               (copy-recursively
 842                #$(origin
 843                    (method git-fetch)
 844                    (uri (git-reference
 845                          (url "https://gitlab.gnome.org/GNOME/libgd")
 846                          (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 847                    (file-name (git-file-name "libgd" version))
 848                    (sha256
 849                     (base32
 850                      "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs")))
 851                "subprojects/libgd"))))))
 852     (inputs (list glib
 853                   gnome-autoar
 854                   gnome-online-accounts
 855                   gspell
 856                   gtk+
 857                   json-glib
 858                   libcanberra
 859                   libsoup
 860                   rest))
 861     (native-inputs (list desktop-file-utils ;for update-desktop-database
 862                          gettext-minimal
 863                          `(,glib "bin")
 864                          itstool
 865                          pkg-config
 866                          python))
 867     (home-page "https://wiki.gnome.org/Apps/Recipes")
 868     (synopsis "Discover recipes for preparing food")
 869     (description "GNOME Recipes helps you discover what to cook today,
 870 tomorrow, the rest of the week and for special occasions.")
 871     (license license:gpl3+)))
 872
 873 (define-public gnome-photos
 874   (package
 875     (name "gnome-photos")
 876     (version "43.beta")                 ;for geocode-glib 2 support
 877     (source
 878      (origin
 879        (method url-fetch)
 880        (uri
 881         (string-append "mirror://gnome/sources/" name "/"
 882                        (version-major version) "/"
 883                        name "-" version ".tar.xz"))
 884        (sha256
 885         (base32
 886          "1pry45dy4sjw8y63vxw2b499brcxzpkd4hmg2vbqy538r79ah2g9"))))
 887     (build-system meson-build-system)
 888     (arguments
 889      (list
 890       #:glib-or-gtk? #t
 891       #:configure-flags
 892       #~(list "-Ddogtail=false"         ; Not available
 893               ;; Required for RUNPATH validation.
 894               (string-append "-Dc_link_args=-Wl,-rpath="
 895                              #$output "/lib/gnome-photos"))
 896       #:phases
 897       #~(modify-phases %standard-phases
 898           (add-after 'unpack 'disable-gtk-update-icon-cache
 899             (lambda _
 900               (setenv "DESTDIR" "/")))
 901           (add-after 'install 'wrap-gnome-photos
 902             (lambda* (#:key outputs #:allow-other-keys)
 903               (wrap-program (search-input-file outputs "bin/gnome-photos")
 904                 `("GRL_PLUGIN_PATH" =
 905                   (,(getenv "GRL_PLUGIN_PATH")))))))))
 906     (native-inputs
 907      (list dbus
 908            desktop-file-utils
 909            gettext-minimal
 910            git-minimal
 911            `(,glib "bin")
 912            gobject-introspection
 913            gsettings-desktop-schemas
 914            itstool
 915            pkg-config))
 916     (inputs
 917      (list babl
 918            cairo
 919            gegl
 920            geocode-glib
 921            gexiv2
 922            gfbgraph
 923            gnome-online-accounts
 924            gnome-online-miners
 925            grilo
 926            grilo-plugins
 927            gtk+
 928            libdazzle
 929            libgdata
 930            libhandy
 931            libjpeg-turbo
 932            libportal
 933            libpng
 934            librsvg
 935            python-pygobject
 936            rest
 937            tracker
 938            tracker-miners))
 939     (synopsis "Access, organize and share your photos on GNOME desktop")
 940     (description "GNOME Photos is a simple and elegant replacement for using a
 941 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 942 cloud integration is offered through GNOME Online Accounts.")
 943     (home-page "https://wiki.gnome.org/Apps/Photos")
 944     (license license:gpl3+)))
 945
 946 (define-public gnome-music
 947   (package
 948     (name "gnome-music")
 949     (version "42.1")
 950     (source
 951      (origin
 952        (method url-fetch)
 953        (uri
 954         (string-append "mirror://gnome/sources/" name "/"
 955                        (version-major version) "/"
 956                        name "-" version ".tar.xz"))
 957        (sha256
 958         (base32
 959          "0w42xnp6xy3sfakb4s0wq7xfg7p507whz5gzss5b2mkbm2k7yx67"))))
 960     (build-system meson-build-system)
 961     (arguments
 962      `(#:glib-or-gtk? #t
 963        #:phases
 964        (modify-phases %standard-phases
 965          (add-after 'unpack 'skip-gtk-update-icon-cache
 966            ;; Don't create 'icon-theme.cache'.
 967            (lambda _
 968              (substitute* "meson.build"
 969                (("gtk_update_icon_cache: true")
 970                 "gtk_update_icon_cache: false"))))
 971          (add-after 'install 'wrap-gnome-music
 972            (lambda* (#:key inputs outputs #:allow-other-keys)
 973              (let*
 974                  ((out (assoc-ref outputs "out"))
 975                   (pylib (string-append out "/lib/python"
 976                                         ,(version-major+minor
 977                                           (package-version python))
 978                                         "/site-packages")))
 979                (wrap-program (string-append out "/bin/gnome-music")
 980                  `("GI_TYPELIB_PATH" =
 981                    (,(getenv "GI_TYPELIB_PATH")))
 982                  `("GST_PLUGIN_SYSTEM_PATH" =
 983                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 984                  `("GRL_PLUGIN_PATH" =
 985                    (,(getenv "GRL_PLUGIN_PATH")))
 986                  `("GUIX_PYTHONPATH" =
 987                    (,(getenv "GUIX_PYTHONPATH") ,pylib)))))))))
 988     (native-inputs
 989      (list desktop-file-utils
 990            gettext-minimal
 991            `(,glib "bin")
 992            gobject-introspection
 993            itstool
 994            pkg-config))
 995     (inputs
 996      (list gnome-online-accounts
 997            grilo
 998            grilo-plugins
 999            gst-plugins-base
1000            gst-plugins-good
1001            gstreamer
1002            gtk
1003            gvfs
1004            json-glib
1005            libadwaita
1006            libdazzle
1007            libmediaart
1008            libsoup-minimal-2
1009            python-pycairo
1010            python-pygobject
1011            python
1012            tracker
1013            tracker-miners))
1014     (synopsis "Simple music player for GNOME desktop")
1015     (description "GNOME Music is the new GNOME music playing application that
1016 aims to combine an elegant and immersive browsing experience with simple
1017 and straightforward controls.")
1018     (home-page "https://wiki.gnome.org/Apps/Music")
1019     (license license:gpl2+)))
1020
1021 (define-public portablexdr
1022   (package
1023     (name "portablexdr")
1024     (version "4.9.1")
1025     (source
1026      (origin
1027        (method url-fetch)
1028        (uri
1029         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1030                        name "-" version ".tar.gz"))
1031        (sha256
1032         (base32
1033          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1034     (build-system gnu-build-system)
1035     (synopsis "External Data Representation Library")
1036     (description "PortableXDR is an implementation of External Data
1037 Representation (XDR) Library.  It is a standard data serialization format, for
1038 uses such as computer network protocols.  It allows data to be transferred
1039 between different kinds of computer systems.")
1040     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1041     (license
1042      (list
1043       license:gpl2+
1044       license:lgpl2.1+))))
1045
1046 (define-public tepl
1047   (package
1048     (name "tepl")
1049     (version "6.1.2")
1050     (source
1051      (origin
1052        (method url-fetch)
1053        (uri
1054         (string-append "mirror://gnome/sources/" name "/"
1055                        (version-major+minor version) "/"
1056                        name "-" version ".tar.xz"))
1057        (sha256
1058         (base32
1059          "16x14j3nvsjj7jb2qmxpzygnlcy7sd7p6skv0sqshkwdlp4jxzha"))))
1060     (build-system meson-build-system)
1061     (arguments
1062      `(#:glib-or-gtk? #t
1063        #:phases (modify-phases %standard-phases
1064                   (add-after 'unpack 'disable-problematic-tests
1065                     (lambda _
1066                       ;; Only keep unit tests, as the interactive tests have
1067                       ;; other dependencies.
1068                       (substitute* "tests/meson.build"
1069                         ((".*'interactive-tests'.*") ""))))
1070                   (add-before 'check 'start-xserver
1071                     (lambda _
1072                       (system "Xvfb :1 &")
1073                       (setenv "DISPLAY" ":1"))))))
1074     (native-inputs
1075      (list `(,glib "bin")
1076            gobject-introspection
1077            gtk-doc
1078            libxml2
1079            pkg-config
1080            xorg-server-for-tests))
1081     (inputs
1082      (list uchardet))
1083     (propagated-inputs
1084      ;; These are all required by tepl6.pc.
1085      (list amtk
1086            glib
1087            gsettings-desktop-schemas
1088            gtk+
1089            gtksourceview-4))
1090     (synopsis "Text editor product line")
1091     (description "Tepl is a library that eases the development of
1092 GtkSourceView-based text editors and IDEs.")
1093     (home-page "https://wiki.gnome.org/Projects/Tepl")
1094     (license license:lgpl2.1+)))
1095
1096 (define-public krb5-auth-dialog
1097   (package
1098     (name "krb5-auth-dialog")
1099     (version "3.26.1")
1100     (source
1101      (origin
1102        (method url-fetch)
1103        (uri
1104         (string-append "mirror://gnome/sources/" name "/"
1105                        (version-major+minor version) "/"
1106                        name "-" version ".tar.xz"))
1107        (sha256
1108         (base32
1109          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1110     (build-system glib-or-gtk-build-system)
1111     (native-inputs
1112      (list intltool itstool libxml2 pkg-config python-wrapper))
1113     (inputs
1114      (list glib gtk+ libnotify mit-krb5 network-manager))
1115     (synopsis "Popup dialogs for Kerberos 5")
1116     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1117 tickets, and pops up a dialog when they are about to expire.")
1118     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1119     (license license:gpl2+)))
1120
1121 (define-public notification-daemon
1122   (package
1123     (name "notification-daemon")
1124     (version "3.20.0")
1125     (source
1126      (origin
1127        (method url-fetch)
1128        (uri
1129         (string-append "mirror://gnome/sources/" name "/"
1130                        (version-major+minor version) "/"
1131                        name "-" version ".tar.xz"))
1132        (sha256
1133         (base32
1134          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1135     (build-system glib-or-gtk-build-system)
1136     (native-inputs
1137      (list intltool pkg-config))
1138     (inputs
1139      (list glib gtk+ libx11))
1140     (synopsis "Notification Daemon for GNOME Desktop")
1141     (description "Notification-Daemon is the server implementation of the
1142 freedesktop.org desktop notification specification.")
1143     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1144     (license license:gpl2+)))
1145
1146 (define-public mm-common
1147   (package
1148     (name "mm-common")
1149     (version "1.0.3")
1150     (source (origin
1151               (method url-fetch)
1152               (uri (string-append "mirror://gnome/sources/mm-common/"
1153                                   (version-major+minor version) "/"
1154                                   "mm-common-" version ".tar.xz"))
1155               (sha256
1156                (base32
1157                 "1x8yvjy0yg17qyhmqws8xh2k8dvzrhpwqz7j1cfwzalrb1i9c5g8"))))
1158     (build-system meson-build-system)
1159     (arguments
1160      `(#:phases
1161        (modify-phases %standard-phases
1162          (add-after 'unpack 'patch
1163            (lambda* (#:key inputs #:allow-other-keys)
1164              (substitute* "util/mm-common-prepare.in"
1165                (("ln") (search-input-file inputs "/bin/ln"))
1166                (("cp") (search-input-file inputs "/bin/cp"))
1167                (("sed") (search-input-file inputs "/bin/sed"))
1168                (("cat") (search-input-file inputs "/bin/cat"))))))))
1169     (native-inputs
1170      `(("coreutils" ,coreutils)
1171        ("gettext" ,gettext-minimal)
1172        ("pkg-config" ,pkg-config)
1173        ("sed" ,sed)))
1174     (inputs
1175      (list python))
1176     (synopsis "Module of GNOME C++ bindings")
1177     (description "The mm-common module provides the build infrastructure
1178 and utilities shared among the GNOME C++ binding libraries.  Release
1179 archives of mm-common include the Doxygen tag file for the GNU C++
1180 Library reference documentation.")
1181     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1182     (license license:gpl2+)))
1183
1184 (define-public phodav
1185   (package
1186     (name "phodav")
1187     (version "3.0")
1188     (source (origin
1189               (method url-fetch)
1190               (uri (string-append "mirror://gnome/sources/" name "/"
1191                                   (version-major+minor version) "/"
1192                                   name "-" version ".tar.xz"))
1193               (sha256
1194                (base32
1195                 "1l9qs70yvwi9r8ph081mrsdy412kk0m9l9pgy77hsc2hdp8c4bir"))))
1196     (build-system meson-build-system)
1197     (arguments
1198      `(#:phases
1199        (modify-phases %standard-phases
1200          (add-after 'unpack 'fix-udev-rules-directory
1201            (lambda* (#:key outputs #:allow-other-keys)
1202              (let* ((out   (assoc-ref outputs "out"))
1203                     (rules (string-append out "/lib/udev/rules.d")))
1204                (substitute* "data/meson.build"
1205                  (("udev\\.get_pkgconfig_variable\\('udevdir'\\)")
1206                   (format #f "'~a'" rules))))))
1207          (add-before 'check 'set-temporary-home
1208            ;; Tests want to write into HOME.
1209            (lambda _
1210              (setenv "HOME" "/tmp"))))))
1211     (native-inputs
1212      (list docbook-xml-4.3
1213            gettext-minimal
1214            `(,glib "bin")
1215            gsettings-desktop-schemas
1216            gtk-doc/stable
1217            pkg-config))
1218     (inputs
1219      (list avahi
1220            libgudev
1221            libsoup))
1222     (synopsis "WebDav server implementation using libsoup")
1223     (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1224 but it is generic enough to be reused in other projects,
1225 in particular in the GNOME desktop.")
1226     (home-page "https://wiki.gnome.org/phodav")
1227     (license license:lgpl2.1+)))
1228
1229 (define-public gnome-color-manager
1230   (package
1231    (name "gnome-color-manager")
1232    (version "3.36.0")
1233    (source (origin
1234             (method url-fetch)
1235             (uri (string-append "mirror://gnome/sources/" name "/"
1236                                 (version-major+minor version) "/"
1237                                 name "-" version ".tar.xz"))
1238             (sha256
1239              (base32
1240               "0fxdng74d8hwhfx1nwl1i4jx9h9f6c2hkyc12f01kqbjcimrxnwx"))))
1241    (build-system meson-build-system)
1242    (arguments
1243     `(#:glib-or-gtk? #t
1244       #:phases
1245        (modify-phases %standard-phases
1246         (add-before
1247          'check 'pre-check
1248          (lambda _
1249            ;; Tests require a running X server.
1250            (system "Xvfb :1 &")
1251            (setenv "DISPLAY" ":1")
1252            #t)))))
1253    (native-inputs
1254     `(("desktop-file-utils" ,desktop-file-utils)
1255       ("gettext" ,gettext-minimal)
1256       ("glib:bin" ,glib "bin")
1257       ("gtk+:bin" ,gtk+ "bin")
1258       ("itstool" ,itstool)
1259       ("pkg-config" ,pkg-config)
1260       ("xorg-server" ,xorg-server-for-tests)))
1261    (inputs
1262     (list adwaita-icon-theme
1263           appstream-glib
1264           colord-gtk
1265           exiv2
1266           gnome-desktop
1267           libcanberra
1268           libexif
1269           libtiff
1270           libxrandr
1271           libxtst
1272           libxxf86vm
1273           vte
1274           xorgproto))
1275    (synopsis "Color profile manager for the GNOME desktop")
1276    (description "GNOME Color Manager is a session framework that makes
1277 it easy to manage, install and generate color profiles
1278 in the GNOME desktop.")
1279    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1280    (license license:gpl2+)))
1281
1282 (define-public gnome-online-miners
1283   (package
1284     (name "gnome-online-miners")
1285     (version "3.34.0")
1286     (source (origin
1287               (method url-fetch)
1288               (uri (string-append "mirror://gnome/sources/" name "/"
1289                                   (version-major+minor version) "/"
1290                                   name "-" version ".tar.xz"))
1291               (sha256
1292                (base32
1293                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))
1294               (patches
1295                (search-patches
1296                 "gnome-online-miners-tracker-3.patch"))))
1297     (build-system glib-or-gtk-build-system)
1298     (arguments
1299      `(#:phases
1300        (modify-phases %standard-phases
1301          (add-after 'unpack 'fix-configure
1302            (lambda _
1303              (substitute* "configure.ac"
1304                (("AX_CHECK_ENABLE_DEBUG.*")
1305                 ""))))
1306          (add-after 'fix-configure 'autoreconf
1307            (lambda _
1308              (invoke "autoreconf" "-vif"))))))
1309     (native-inputs
1310      `(("autoconf" ,autoconf)
1311        ("automake" ,automake)
1312        ("gettext" ,gettext-minimal)
1313        ("glib:bin" ,glib "bin")
1314        ("gobject-introspection" ,gobject-introspection)
1315        ("gtk+:bin" ,gtk+ "bin")
1316        ("libtool" ,libtool)
1317        ("pkg-config" ,pkg-config)))
1318     (inputs
1319      `(("gnome-online-accounts" ,gnome-online-accounts)
1320        ("grilo" ,grilo)
1321        ("libgdata" ,libgdata)
1322        ("libgfbgraph" ,gfbgraph)
1323        ("libzapojit" ,libzapojit)
1324        ("rest" ,rest)
1325        ("tracker" ,tracker)))
1326     (synopsis "Web Crawlers for GNOME")
1327     (description "GNOME Online Miners provides a set of crawlers that
1328 go through your online content and index them locally in Tracker.
1329 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1330     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1331     (license license:gpl2+)))
1332
1333 (define-public gssdp
1334   (package
1335     (name "gssdp")
1336     (version "1.5.2")
1337     (source (origin
1338               (method url-fetch)
1339               (uri (string-append "mirror://gnome/sources/" name "/"
1340                                   (version-major+minor version) "/"
1341                                   name "-" version ".tar.xz"))
1342               (sha256
1343                (base32
1344                 "07hn2xma2yh17v7rlvcaibkn16bx4l9qig3mlb8hdp6qfiraqh7b"))))
1345     (build-system meson-build-system)
1346     (native-inputs
1347      (list gettext-minimal
1348            `(,glib "bin")
1349            gi-docgen
1350            gobject-introspection
1351            pkg-config
1352            vala))
1353     (inputs
1354      (list gtk))
1355     (propagated-inputs
1356      ;; The .pc file "Requires" libsoup.
1357      (list libsoup))
1358     (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1359 Protocol} for GNOME")
1360     (description "This package provides a library to handle resource discovery
1361 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1362 a debugging tool, @command{gssdp-device-sniffer}.")
1363     (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1364     (license license:lgpl2.0+)))
1365
1366 (define-public gssdp-1.4
1367   (package
1368     (inherit gssdp)
1369     (name "gssdp")
1370     (version "1.4.0.1")
1371     (source (origin
1372               (method url-fetch)
1373               (uri (string-append "mirror://gnome/sources/" name "/"
1374                                   (version-major+minor version) "/"
1375                                   name "-" version ".tar.xz"))
1376               (sha256
1377                (base32
1378                 "10hm8cgh2p8441xc83kswjgghrrqpzgblvc5523jp0pvayfq8xl6"))))
1379     (propagated-inputs (modify-inputs (package-propagated-inputs gssdp)
1380               (replace "libsoup" libsoup-minimal-2)))))
1381
1382 (define-public gupnp
1383   (package
1384     (name "gupnp")
1385     (version "1.5.4")
1386     (source (origin
1387               (method url-fetch)
1388               (uri (string-append "mirror://gnome/sources/" name "/"
1389                                   (version-major+minor version) "/"
1390                                   name "-" version ".tar.xz"))
1391               (sha256
1392                (base32
1393                 "0y0v0m6afnx879hjvhj2lrawp9qhpyp8mbds0yp544imghajk0wq"))))
1394     (build-system meson-build-system)
1395     (arguments
1396      `(#:phases
1397        (modify-phases %standard-phases
1398          (add-before 'check 'pre-check
1399            (lambda _
1400              ;; Tests require a writable HOME.
1401              (setenv "HOME" (getcwd)))))))
1402     (native-inputs
1403      (list gettext-minimal
1404            `(,glib "bin")
1405            gobject-introspection
1406            gtk-doc/stable
1407            pkg-config
1408            vala))
1409     (propagated-inputs
1410      ;; These libraries are required by the .pc file.
1411      (list glib
1412            gsettings-desktop-schemas    ;for ‘org.gnome.system.proxy’.
1413            gssdp
1414            libsoup
1415            libxml2))
1416     (synopsis "PnP API for GNOME")
1417     (description "This package provides GUPnP, an object-oriented framework
1418 for creating UPnP devices and control points, written in C using
1419 @code{GObject} and @code{libsoup}.")
1420     (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1421     (license license:lgpl2.0+)))
1422
1423 (define-public gupnp-1.4
1424   (package
1425     (inherit gupnp)
1426     (name "gupnp")
1427     (version "1.4.0")
1428     (source (origin
1429               (method url-fetch)
1430               (uri (string-append "mirror://gnome/sources/" name "/"
1431                                   (version-major+minor version) "/"
1432                                   name "-" version ".tar.xz"))
1433               (sha256
1434                (base32
1435                 "0vz3ifs8mi3zaz8zj8v27zfkf6xg82y39mcgqspa38jdp01gn3sr"))))
1436     (propagated-inputs (modify-inputs (package-propagated-inputs gupnp)
1437               (replace "libsoup" libsoup-minimal-2)
1438               (replace "gssdp" gssdp-1.4)))))
1439
1440 (define-public gupnp-dlna
1441   (package
1442    (name "gupnp-dlna")
1443    (version "0.10.5")
1444    (source (origin
1445             (method url-fetch)
1446             (uri (string-append "mirror://gnome/sources/" name "/"
1447                                 (version-major+minor version) "/"
1448                                 name "-" version ".tar.xz"))
1449             (sha256
1450              (base32
1451               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1452    (build-system gnu-build-system)
1453    (native-inputs
1454     (list gettext-minimal
1455           `(,glib "bin")
1456           gobject-introspection
1457           gtk-doc/stable
1458           libxml2
1459           pkg-config
1460           vala))
1461    (inputs
1462     (list gstreamer gupnp))
1463    (propagated-inputs
1464     (list gst-plugins-base gst-plugins-good))
1465    (synopsis "GUPnP DLNA for GNOME")
1466    (description "This package provides a small utility library to
1467 support DLNA-related tasks such as media profile guessing, transcoding to a
1468 given profile, etc.  DLNA is a subset of UPnP A/V.")
1469    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1470    (license license:lgpl2.0+)))
1471
1472 (define-public gupnp-av
1473   (package
1474    (name "gupnp-av")
1475    (version "0.12.11")
1476    (source (origin
1477             (method url-fetch)
1478             (uri (string-append "mirror://gnome/sources/" name "/"
1479                                 (version-major+minor version) "/"
1480                                 name "-" version ".tar.xz"))
1481             (sha256
1482              (base32
1483               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1484    (build-system gnu-build-system)
1485    (native-inputs
1486     (list gettext-minimal
1487           `(,glib "bin")
1488           gobject-introspection
1489           gtk-doc/stable
1490           libxml2
1491           pkg-config
1492           vala))
1493    (inputs
1494     (list gtk+ gupnp))
1495    (synopsis "GUPnP A/V for GNOME")
1496    (description "This package provides a small library for handling
1497 and implementation of UPnP A/V profiles.")
1498    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1499    (license license:lgpl2.0+)))
1500
1501 (define-public libmediaart
1502   (package
1503     (name "libmediaart")
1504     (version "1.9.5")
1505     (source (origin
1506               (method url-fetch)
1507               (uri (string-append "mirror://gnome/sources/" name "/"
1508                                   (version-major+minor version) "/"
1509                                   name "-" version ".tar.xz"))
1510               (sha256
1511                (base32
1512                 "1mlw1qgj8nkd9ll6b6h54r1gfdy3zp8a8xqz7qfyfaj85jjgbph7"))))
1513     (build-system meson-build-system)
1514     (native-inputs
1515      (list `(,glib "bin") pkg-config))
1516     (inputs
1517      (list gdk-pixbuf gettext-minimal gobject-introspection
1518            `(,gtk+ "doc") vala))
1519     (synopsis "Media art library for the GNOME desktop")
1520     (description
1521      "The libmediaart library is the foundation for media art caching,
1522 extraction, and lookup for applications on the desktop.")
1523     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1524     (license license:lgpl2.1+)))
1525
1526 (define-public gnome-initial-setup
1527   (package
1528     (name "gnome-initial-setup")
1529     (version "42.2")
1530     (source (origin
1531               (method url-fetch)
1532               (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1533                                   (version-major version)
1534                                   "/gnome-initial-setup-" version ".tar.xz"))
1535               (sha256
1536                (base32
1537                 "0yxy39a7d2whphd0jskvra5q8zy4v7m7lziy5fxibgls4j5xk0sd"))))
1538     (build-system meson-build-system)
1539     (arguments
1540      (list
1541       #:configure-flags #~(list "-Dsystemd=false")
1542       #:glib-or-gtk? #t
1543       #:phases
1544       #~(modify-phases %standard-phases
1545           (add-after 'unpack 'set-gkbd-file-name
1546             (lambda* (#:key inputs #:allow-other-keys)
1547               ;; Allow the "Preview" button in the keyboard layout
1548               ;; selection dialog to display the layout.
1549               (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1550                 (("\"gkbd-keyboard-display")
1551                  (string-append "\"" (search-input-file
1552                                       inputs
1553                                       "bin/gkbd-keyboard-display")))))))))
1554     (native-inputs
1555      (list gettext-minimal
1556            `(,glib "bin")
1557            gobject-introspection
1558            pkg-config))
1559     (inputs
1560      (list accountsservice
1561            cheese
1562            elogind
1563            gdm
1564            geoclue
1565            gnome-desktop
1566            gnome-online-accounts-3.44
1567            gstreamer
1568            ibus
1569            json-glib
1570            mit-krb5
1571            libgnomekbd
1572            libgweather4-with-libsoup2
1573            libhandy
1574            libnma
1575            libpwquality
1576            libsecret
1577            network-manager
1578            packagekit
1579            polkit
1580            rest
1581            upower
1582            webkitgtk-with-libsoup2))
1583     (synopsis "Initial setup wizard for GNOME desktop")
1584     (description "This package provides a set-up wizard when a
1585 user logs into GNOME for the first time.  It typically provides a
1586 tour of all gnome components and allows the user to set them up.")
1587     (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1588     (license license:gpl2)))
1589
1590 (define-public gnome-user-share
1591   (package
1592    (name "gnome-user-share")
1593    (version "3.34.0")
1594    (source (origin
1595             (method url-fetch)
1596             (uri (string-append "mirror://gnome/sources/" name "/"
1597                                 (version-major+minor version) "/"
1598                                 name "-" version ".tar.xz"))
1599             (sha256
1600              (base32
1601               "04r9ck9v4i0d31grbli1d4slw2d6dcsfkpaybkwbzi7wnj72l30x"))))
1602    (build-system meson-build-system)
1603    (arguments
1604     `(#:glib-or-gtk? #t
1605       #:meson ,meson-0.60
1606       #:configure-flags
1607        `("-Dsystemduserunitdir=/tmp/empty"
1608          ;; Enable nautilus extension for file sharing.
1609          "-Dnautilus_extension=true")))
1610    (native-inputs
1611     `(("gettext" ,gettext-minimal)
1612       ("glib:bin" ,glib "bin")
1613       ("gobject-introspection" ,gobject-introspection)
1614       ("gtk+:bin" ,gtk+ "bin")
1615       ("pkg-config" ,pkg-config)
1616       ("yelp-tools" ,yelp-tools)))
1617    (inputs
1618     (list glib
1619           gnome-bluetooth
1620           gtk+
1621           libcanberra
1622           libnotify
1623           nautilus))      ; For nautilus extension.
1624    (synopsis "File sharing for GNOME desktop")
1625    (description "GNOME User Share is a small package that binds together
1626 various free software projects to bring easy to use user-level file
1627 sharing to the masses.")
1628    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1629    (license license:gpl2+)))
1630
1631 (define-public sushi
1632   (package
1633     (name "sushi")
1634     (version "42.0")
1635     (source (origin
1636               (method url-fetch)
1637               (uri (string-append "mirror://gnome/sources/" name "/"
1638                                   (version-major version) "/"
1639                                   name "-" version ".tar.xz"))
1640               (sha256
1641                (base32
1642                 "0848gidl0ab8i5pa70mv8jzchmd9kqa8sn1lg977hyasyixdpn25"))))
1643     (build-system meson-build-system)
1644     (arguments
1645      `(#:glib-or-gtk? #t
1646        #:phases
1647        (modify-phases %standard-phases
1648          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1649            (lambda* (#:key outputs #:allow-other-keys)
1650              (let ((prog (string-append (assoc-ref outputs "out")
1651                                         "/bin/sushi")))
1652                ;; Put existing typelibs before sushi's deps, so as to
1653                ;; correctly infer gdk-pixbuf.
1654                (wrap-program prog
1655                  `("GI_TYPELIB_PATH" suffix
1656                    (,(getenv "GI_TYPELIB_PATH"))))))))))
1657     (native-inputs
1658      (list `(,glib "bin")
1659            gettext-minimal
1660            gobject-introspection
1661            pkg-config))
1662     (inputs
1663      (list bash-minimal
1664            clutter
1665            clutter-gst
1666            clutter-gtk
1667            evince                       ; For file previewing.
1668            freetype
1669            gdk-pixbuf
1670            gjs
1671            gst-plugins-base
1672            gstreamer
1673            gtksourceview-4
1674            harfbuzz
1675            libepoxy
1676            libmusicbrainz
1677            libxml2
1678            neon
1679            webkitgtk))
1680     (synopsis "File previewer for the GNOME desktop")
1681     (description "Sushi is a DBus-activated service that allows applications
1682 to preview files on the GNOME desktop.")
1683     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1684     (license license:gpl2+)))
1685
1686 (define-public rygel
1687   (package
1688     (name "rygel")
1689     (version "0.40.4")
1690     (source (origin
1691               (method url-fetch)
1692               (uri (string-append "mirror://gnome/sources/" name "/"
1693                                   (version-major+minor version) "/"
1694                                   name "-" version ".tar.xz"))
1695               (sha256
1696                (base32
1697                 "12rl1bgvwbdmnhva57b22q7d2pwqvi2rizygiyy6qpv1x3dqlvbk"))))
1698     (build-system meson-build-system)
1699     (arguments
1700      ;; Disable the tracker plugin.
1701      '(#:configure-flags
1702        (list "-Dplugins=external,gst-launch,lms,media-export,
1703 mpris,playbin,ruih,tracker3")))
1704     (native-inputs
1705      (list gettext-minimal
1706            `(,glib "bin")               ; for glib-compile-schemas, etc.
1707            gobject-introspection
1708            gtk-doc/stable
1709            pkg-config
1710            python
1711            vala
1712            docbook-xml
1713            docbook-xsl
1714            libxslt))
1715     (inputs
1716      (list gdk-pixbuf
1717            gssdp
1718            gstreamer
1719            gst-plugins-base
1720            gst-editing-services
1721            gtk+
1722            gupnp
1723            gupnp-av
1724            gupnp-dlna
1725            json-glib
1726            libgee
1727            libmediaart
1728            libsoup
1729            libxslt
1730            libunistring
1731            tracker))
1732     (synopsis "Share audio, video, and pictures with other devices")
1733     (description
1734      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1735 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1736 pictures, and to control a media player on your home network.
1737
1738 Rygel achieves interoperability with other devices by trying to conform to the
1739 strict requirements of DLNA and by converting media on-the-fly to formats that
1740 client devices can handle.")
1741     (home-page "https://wiki.gnome.org/Projects/Rygel")
1742     (license (list
1743               ;; For logo (data/icons/*).
1744               license:cc-by-sa3.0
1745               ;; For all others.
1746               license:lgpl2.1+))))
1747
1748 (define-public libnma
1749   (package
1750     (name "libnma")
1751     (version "1.10.2")
1752     (source (origin
1753               (method url-fetch)
1754               (uri (string-append "mirror://gnome/sources/" name "/"
1755                                   (version-major+minor version) "/"
1756                                   name "-" version ".tar.xz"))
1757               (sha256
1758                (base32
1759                 "0h095a26w3sgbspsf7wzz8ddg62j3jb9ckrrv41k7cdp0k2dkhsg"))))
1760     (build-system meson-build-system)
1761     (arguments
1762      `(#:configure-flags (list "-Dlibnma_gtk4=true")
1763        #:phases
1764        (modify-phases %standard-phases
1765          (add-after 'unpack 'patch-docbook-xml
1766            (lambda* (#:key inputs #:allow-other-keys)
1767              (substitute* "libnma-docs.xml"
1768                (("http://.*/docbookx\\.dtd")
1769                 (search-input-file
1770                  inputs "xml/dtd/docbook/docbookx.dtd"))))))))
1771     (native-inputs
1772      (list docbook-xml-4.3
1773            gettext-minimal
1774            `(,glib "bin")
1775            gtk-doc/stable
1776            gobject-introspection
1777            pkg-config
1778            vala))
1779     (inputs
1780      (list gcr
1781            gtk
1782            iso-codes
1783            mobile-broadband-provider-info
1784            network-manager))
1785     (synopsis "Network Manager's applet library")
1786     (description "Libnma is an applet library for Network Manager.  It was
1787 initially part of network-manager-applet and has now become a separate
1788 project.")
1789     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1790     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1791     ;; "LGPL-2.1+".
1792     (license license:gpl2+)))
1793
1794 (define-public gnome-menus
1795   (package
1796     (name "gnome-menus")
1797     (version "3.36.0")
1798     (source (origin
1799               (method url-fetch)
1800               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1801                                   (version-major+minor version) "/"
1802                                   name "-" version ".tar.xz"))
1803               (sha256
1804                (base32
1805                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
1806     (build-system gnu-build-system)
1807     (native-inputs
1808      (list gettext-minimal glib pkg-config))
1809     (synopsis "Menu support for GNOME desktop")
1810     (description "GNOME Menus contains the libgnome-menu library, the layout
1811 configuration files for the GNOME menu, as well as a simple menu editor.")
1812     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1813     (license license:lgpl2.0+)))
1814
1815 (define-public deja-dup
1816   (package
1817     (name "deja-dup")
1818     (version "43.4")
1819     (source (origin
1820               (method url-fetch)
1821               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1822                                   version "/deja-dup-" version ".tar.bz2"))
1823               (sha256
1824                (base32
1825                 "1mr2g009w0zm5rj8dg1k77c7zdwylih2yszm8vh8wkw6al6bzfh3"))))
1826     (build-system meson-build-system)
1827     (arguments
1828      `(#:glib-or-gtk? #t
1829        #:configure-flags
1830        (list
1831         ;; Otherwise, the RUNPATH will lack the final path component.
1832         (string-append "-Dc_link_args=-Wl,-rpath="
1833                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1834        #:phases
1835        (modify-phases %standard-phases
1836          (add-after 'unpack 'patch-paths
1837            (lambda* (#:key inputs #:allow-other-keys)
1838              (let ((python (assoc-ref inputs "python")))
1839                (substitute* '("libdeja/duplicity/DuplicityInstance.vala"
1840                               "libdeja/tests/scripts/instance-error.test")
1841                  (("/bin/rm")
1842                   (which "rm")))
1843                (substitute* "libdeja/tests/runner.vala"
1844                  (("/bin/sh")
1845                   (which "sh")))
1846                (substitute* "libdeja/tests/scripts/instance-error.test"
1847                  (("`which python3`")
1848                   (string-append python "/bin/python3"))))))
1849          (add-after 'unpack 'patch-libgpg-error
1850            (lambda* (#:key inputs #:allow-other-keys)
1851              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1852                (substitute* "meson.build"
1853                  (("(gpgerror_libs = ).*" _ var)
1854                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))))
1855          (add-after 'install 'wrap-program
1856            (lambda* (#:key inputs outputs #:allow-other-keys)
1857              ;; Add duplicity to the search path
1858              (wrap-program (string-append (assoc-ref outputs "out")
1859                                           "/bin/deja-dup")
1860                `("PATH" ":" prefix
1861                  (,(string-append (assoc-ref inputs "duplicity") "/bin")))))))))
1862     (inputs
1863      (list bash-minimal
1864            duplicity
1865            gsettings-desktop-schemas
1866            gtk
1867            json-glib
1868            libadwaita
1869            libgpg-error
1870            libnotify
1871            libsecret
1872            libsoup
1873            libhandy
1874            packagekit
1875            python
1876            python-pygobject))
1877     (native-inputs
1878      (list appstream-glib
1879            desktop-file-utils
1880            gettext-minimal
1881            `(,glib "bin")               ;for glib-compile-schemas
1882            gobject-introspection
1883            `(,gtk "bin")                ;for gtk-update-icon-cache
1884            itstool
1885            pkg-config
1886            vala))
1887     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1888     (synopsis "Simple backup tool, for regular encrypted backups")
1889     (description
1890      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1891 uses duplicity as the backend, which supports incremental backups and storage
1892 either on a local, or remote machine via a number of methods.")
1893     (license license:gpl3+)))
1894
1895 (define-public gnome-commander
1896   (package
1897     (name "gnome-commander")
1898     (version "1.14.3")
1899     (source
1900      (origin
1901        (method url-fetch)
1902        (uri (string-append "mirror://gnome/sources/" name "/"
1903                            (version-major+minor version)  "/"
1904                            "gnome-commander-" version ".tar.xz"))
1905        (sha256
1906         (base32 "0yzx9slg632iflw9p96nlh9i50dhacq7hrzpkj8b48mr1zkxrn3q"))))
1907     (build-system glib-or-gtk-build-system)
1908     (native-inputs
1909      (list desktop-file-utils
1910            flex
1911            gettext-minimal
1912            `(,glib "bin")
1913            gobject-introspection
1914            googletest
1915            intltool
1916            itstool
1917            libtool
1918            pkg-config))
1919     (inputs
1920      (list gconf glib gtk+-2 libxml2))
1921     (home-page "https://gcmd.github.io/")
1922     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1923     (description
1924      "GNOME Commander is a two-pane graphical file manager using GNOME
1925 libraries.  It aims to fulfill the demands of more advanced users who
1926 like to focus on file management, their work through special applications
1927 and running smart commands.")
1928     (license license:gpl2+)))
1929
1930 (define-public gnome-user-docs
1931   (package
1932    (name "gnome-user-docs")
1933    (version "42.0")
1934    (source
1935     (origin
1936       (method url-fetch)
1937       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1938                           (version-major version)
1939                           "/gnome-user-docs-" version ".tar.xz"))
1940       (sha256
1941        (base32 "01g9smkk2sj3yrih2wjn6vx9av855n7w6nqf9wpxvfq086h7vcmj"))))
1942    (build-system gnu-build-system)
1943    (native-inputs
1944     (list gettext-minimal itstool pkg-config libxml2))
1945    (synopsis "User documentation for the GNOME desktop")
1946    (description
1947     "The GNOME User Documentation explains how to use the GNOME desktop and its
1948 components.  It covers usage and setup of the core GNOME programs by end-users
1949 and system administrators.")
1950    (home-page "https://live.gnome.org/DocumentationProject")
1951    (license license:cc-by3.0)))
1952
1953 (define-public dia
1954   ;; This version from GNOME's repository includes fixes for compiling with
1955   ;; recent versions of the build tools.  The latest activity on the
1956   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1957   ;; fixes since.
1958   (let ((commit "0997887d97f01be28bf3886dfd3e2002de437930")
1959         (revision "3"))
1960     (package
1961       (name "dia")
1962       (version (git-version "0.97.3" revision commit))
1963       (source (origin
1964                 (method git-fetch)
1965                 (uri (git-reference
1966                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1967                       (commit commit)))
1968                 (file-name (git-file-name name version))
1969                 (sha256
1970                  (base32
1971                   "199b4n1jydg1g9lnz0r8xx67h7s2ac2lfj89zp015lbs0qqfkmsh"))))
1972       (build-system meson-build-system)
1973       ;; XXX: Parallel builds may cause: [74/566] [...]
1974       ;; fatal error: dia-lib-enums.h: No such file or directory
1975       (arguments '(#:parallel-build? #f))
1976       (inputs
1977        (list graphene
1978              gtk+-2
1979              libxml2
1980              libxslt
1981
1982              ;; XXX: PDF plugin fails to build with poppler 21.07.0.
1983              ;; poppler
1984
1985              python))
1986       (native-inputs
1987        (list appstream-glib docbook-xsl
1988              `(,glib "bin") gettext-minimal pkg-config))
1989       (home-page "https://wiki.gnome.org/Apps/Dia")
1990       (synopsis "Diagram creation for GNOME")
1991       (description "Dia can be used to draw different types of diagrams, and
1992 includes support for UML static structure diagrams (class diagrams), entity
1993 relationship modeling, and network diagrams.  The program supports various file
1994 formats like PNG, SVG, PDF and EPS.")
1995       (license license:gpl2+))))
1996
1997 (define-public libgdata
1998   (package
1999     (name "libgdata")
2000     (version "0.18.1")
2001     (source (origin
2002               (method url-fetch)
2003               (uri (string-append "mirror://gnome/sources/" name "/"
2004                                   (version-major+minor version)  "/"
2005                                   name "-" version ".tar.xz"))
2006               (sha256
2007                (base32
2008                 "1iq4d1qy0vkmy29xvr13dgz4pxvn5v3yi2swryld0ajinvp951fx"))))
2009     (build-system meson-build-system)
2010     (arguments
2011      '(#:phases
2012        (modify-phases %standard-phases
2013          (add-before 'check 'set-home-for-tests
2014            (lambda _
2015              (setenv "HOME" "/tmp"))))))
2016     (native-inputs
2017      `(("glib:bin" ,glib "bin")
2018        ("gobject-introspection" ,gobject-introspection)
2019        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2020        ("intltool" ,intltool)
2021        ("pkg-config" ,pkg-config)
2022        ("uhttpmock" ,uhttpmock)))
2023     (inputs
2024      (list cyrus-sasl glib-networking vala))
2025     (propagated-inputs
2026      `(("gcr" ,gcr)
2027        ("glib" ,glib)
2028        ("gnome-online-accounts" ,gnome-online-accounts)
2029        ("json-glib" ,json-glib)
2030        ("liboauth" ,liboauth)
2031        ("libsoup" ,libsoup-minimal-2)
2032        ("libxml2" ,libxml2)))
2033     (home-page "https://wiki.gnome.org/Projects/libgdata")
2034     (synopsis "Library for accessing online service APIs")
2035     (description
2036      "libgdata is a GLib-based library for accessing online service APIs using
2037 the GData protocol — most notably, Google's services.  It provides APIs to
2038 access the common Google services, and has full asynchronous support.")
2039     (license license:lgpl2.1+)))
2040
2041 (define-public libgxps
2042   (package
2043     (name "libgxps")
2044     (version "0.3.2")
2045     (source (origin
2046               (method url-fetch)
2047               (uri (string-append "mirror://gnome/sources/" name "/"
2048                                   (version-major+minor version) "/"
2049                                   name "-" version ".tar.xz"))
2050               (sha256
2051                (base32
2052                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
2053     (build-system meson-build-system)
2054     (native-inputs
2055      (list gobject-introspection pkg-config))
2056     (inputs
2057      (list gtk+ libjpeg-turbo lcms libtiff))
2058     (propagated-inputs
2059      ;; In Requires of libgxps.pc.
2060      (list cairo glib libarchive))
2061     (home-page "https://wiki.gnome.org/Projects/libgxps")
2062     (synopsis "GObject-based library for handling and rendering XPS documents")
2063     (description
2064      "libgxps is a GObject-based library for handling and rendering XPS
2065 documents.  This package also contains binaries that can convert XPS documents
2066 to other formats.")
2067     (license license:lgpl2.1+)))
2068
2069 (define-public gnome-characters
2070   (package
2071     (name "gnome-characters")
2072     (version "42.0")
2073     (source
2074      (origin
2075        (method url-fetch)
2076        (uri (string-append "mirror://gnome/sources/"
2077                            "gnome-characters/" (version-major version)
2078                            "/gnome-characters-" version ".tar.xz"))
2079        (sha256
2080         (base32
2081          "1y40g7k7yyzikbbxhf69q4c0221lga1cli1p617v99pq2swgz82x"))))
2082     (build-system meson-build-system)
2083     (arguments
2084      (list
2085       #:glib-or-gtk? #t
2086       #:phases #~(modify-phases %standard-phases
2087                    (add-after 'unpack 'disable-gtk-update-icon-cache
2088                      (lambda _
2089                        (setenv "DESTDIR" "/")))
2090                    (add-after 'install 'wrap
2091                      (lambda* (#:key outputs #:allow-other-keys)
2092                        ;; GNOME Characters needs Typelib files from GTK and
2093                        ;; gnome-desktop.
2094                        (wrap-program (search-input-file outputs
2095                                                         "bin/gnome-characters")
2096                          `("GI_TYPELIB_PATH" ":" prefix
2097                            (,(getenv "GI_TYPELIB_PATH")))))))))
2098     (native-inputs
2099      (list gettext-minimal
2100            `(,glib "bin")
2101            pkg-config
2102            python-minimal))
2103     (inputs
2104      (list gjs
2105            gnome-desktop
2106            gtk
2107            libadwaita
2108            libhandy
2109            libunistring))
2110     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2111     (synopsis "Find and insert unusual characters")
2112     (description "Characters is a simple utility application to find
2113 and insert unusual characters.  It allows you to quickly find the
2114 character you are looking for by searching for keywords.")
2115     (license license:bsd-3)))
2116
2117 (define-public gnome-common
2118   (package
2119     (name "gnome-common")
2120     (version "3.18.0")
2121     (source
2122      (origin
2123        (method url-fetch)
2124        (uri (string-append "mirror://gnome/sources/" name "/"
2125                            (version-major+minor version)  "/"
2126                            name "-" version ".tar.xz"))
2127        (sha256
2128         (base32
2129          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2130     (build-system gnu-build-system)
2131     (home-page "https://www.gnome.org/")
2132     (synopsis "Bootstrap GNOME modules built from Git")
2133     (description "gnome-common contains various files needed to bootstrap
2134 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2135 can be used to configure a source directory checked out from Git and some
2136 commonly used macros.")
2137     (license license:gpl2+)))
2138
2139 (define-public gnome-contacts
2140   (package
2141     (name "gnome-contacts")
2142     (version "42.0")
2143     (source (origin
2144               (method url-fetch)
2145               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2146                                   (version-major version) "/"
2147                                   name "-" version ".tar.xz"))
2148               (sha256
2149                (base32
2150                 "05jj5kiab13crm18r166w7h31jpny7f3px98q7d2ix93vj7w60l8"))))
2151     (build-system meson-build-system)
2152     (arguments
2153      `(#:glib-or-gtk? #t
2154        #:phases
2155        (modify-phases %standard-phases
2156          (add-after 'unpack 'skip-gtk-update-icon-cache
2157            (lambda _
2158              (substitute* "meson.build"
2159                (("gtk_update_icon_cache: true")
2160                 "gtk_update_icon_cache: false")))))))
2161     (native-inputs
2162      (list desktop-file-utils
2163            docbook-xml
2164            docbook-xml-4.2
2165            docbook-xsl
2166            gettext-minimal
2167            `(,glib "bin")
2168            gobject-introspection
2169            libxslt
2170            pkg-config))
2171     (inputs
2172      (list evolution-data-server-3.44
2173            gnome-desktop
2174            gnome-online-accounts-3.44
2175            gst-plugins-base
2176            gtk
2177            libadwaita
2178            libgee
2179            libhandy
2180            libportal
2181            telepathy-glib
2182            vala))
2183     (propagated-inputs
2184      (list folks-with-libsoup2
2185            telepathy-mission-control))
2186     (synopsis "GNOME's integrated address book")
2187     (description
2188      "GNOME Contacts organizes your contact information from online and
2189 offline sources, providing a centralized place for managing your contacts.")
2190     (home-page "https://wiki.gnome.org/Apps/Contacts")
2191     (license license:gpl2+)))
2192
2193 (define-public gnome-desktop
2194   (package
2195     (name "gnome-desktop")
2196     (version "42.4")
2197     (source
2198      (origin
2199        (method url-fetch)
2200        (uri (string-append "mirror://gnome/sources/" name "/"
2201                            (version-major version)  "/"
2202                            name "-" version ".tar.xz"))
2203        (sha256
2204         (base32
2205          "09ddr5fzhh02fcn7xl1wy18qfsdqryd5msl2nbhdnsbr0vawkqhw"))))
2206     (build-system meson-build-system)
2207     (arguments
2208      '(#:phases
2209        (modify-phases %standard-phases
2210          (add-before 'configure 'patch-path
2211            (lambda* (#:key inputs #:allow-other-keys)
2212              (substitute* "libgnome-desktop/gnome-languages.c"
2213                (("\"locale\"")
2214                 (format #f "~s" (search-input-file inputs "bin/locale"))))))
2215          (add-before 'configure 'patch-bubblewrap
2216            (lambda* (#:key inputs #:allow-other-keys)
2217              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2218                (("\"bwrap\",")
2219                 (string-append "\"" (which "bwrap") "\","))
2220                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2221                 (string-append "\"--ro-bind\", \""
2222                                (%store-directory)
2223                                "\", \""
2224                                (%store-directory)
2225                                "\","))
2226                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",")
2227                 ""))))
2228          (add-before 'check 'pre-check
2229            (lambda* (#:key inputs #:allow-other-keys)
2230              ;; Tests require a running X server and locales.
2231              (system "Xvfb :1 &")
2232              (setenv "DISPLAY" ":1")
2233              (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
2234              (setenv "XDG_CONFIG_HOME" "/tmp")
2235              (setenv "GUIX_LOCPATH"
2236                      (search-input-directory inputs
2237                                              "lib/locale")))))))
2238     (native-inputs
2239      (list `(,glib "bin")                   ;for gdbus-codegen
2240            glibc-locales                    ;for tests
2241            gobject-introspection
2242            itstool
2243            intltool
2244            pkg-config
2245            libxml2
2246            xorg-server-for-tests))
2247     (propagated-inputs
2248      ;; Required by gnome-desktop-3.0.pc.
2249      (list gsettings-desktop-schemas-next
2250            gtk
2251            gtk+
2252            iso-codes
2253            libseccomp
2254            libx11
2255            xkeyboard-config))
2256     (inputs
2257      (list bubblewrap
2258            gdk-pixbuf
2259            glib
2260            libxext
2261            libxkbfile
2262            libxrandr))
2263     (home-page "https://www.gnome.org/")
2264     (synopsis
2265      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2266     (description
2267      "The libgnome-desktop library provides API shared by several applications
2268 on the desktop, but that cannot live in the platform for various reasons.
2269 There is no API or ABI guarantee, although we are doing our best to provide
2270 stability.  Documentation for the API is available with gtk-doc.
2271
2272 The gnome-about program helps find which version of GNOME is installed.")
2273                                         ; Some bits under the LGPL.
2274     (license license:gpl2+)))
2275
2276 (define-public gnome-disk-utility
2277   (package
2278     (name "gnome-disk-utility")
2279     (version "42.0")
2280     (source (origin
2281               (method url-fetch)
2282               (uri (string-append "mirror://gnome/sources/" name "/"
2283                                   (version-major version) "/"
2284                                   name "-" version ".tar.xz"))
2285               (sha256
2286                (base32
2287                 "02q906gn420xbf1f0apazryzqfv5b1ammz1vrci66hk79m2n8r8v"))))
2288     (build-system meson-build-system)
2289     (arguments
2290      `(#:configure-flags '("-Dlogind=libelogind")
2291        #:phases
2292        (modify-phases %standard-phases
2293          (add-after 'unpack 'skip-gtk-update-icon-cache
2294            ;; Don't create 'icon-theme.cache'.
2295            (lambda _
2296              (substitute* "meson_post_install.py"
2297                (("gtk-update-icon-cache") "true")))))))
2298     (native-inputs
2299      (list docbook-xml
2300            docbook-xsl
2301            `(,glib "bin")
2302            gettext-minimal
2303            pkg-config
2304            libxml2
2305            libxslt))
2306     (inputs
2307      (list elogind
2308            glib
2309            appstream-glib
2310            gnome-settings-daemon
2311            gtk+
2312            libcanberra
2313            libdvdread
2314            libhandy
2315            libnotify
2316            libpwquality
2317            libsecret
2318            udisks))
2319     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2320     (synopsis "Disk management utility for GNOME")
2321     (description "Disk management utility for GNOME.")
2322     (license license:gpl2+)))
2323
2324 (define-public gnome-font-viewer
2325   (package
2326     (name "gnome-font-viewer")
2327     (version "42.0")
2328     (source (origin
2329               (method url-fetch)
2330               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2331                                   (version-major version)
2332                                   "/gnome-font-viewer-" version ".tar.xz"))
2333               (sha256
2334                (base32
2335                 "1k4dhk5dmkpxb5xpr9vrl7k2fdpi2fidzni1l2hhb891zzgvi8ng"))))
2336     (build-system meson-build-system)
2337     (arguments
2338      (list
2339       #:phases
2340       #~(modify-phases %standard-phases
2341           (add-after 'unpack 'patch-post-install-script
2342             (lambda _
2343               (substitute* "meson-postinstall.sh"
2344                 (("update-desktop-database") (which "true")))))
2345           (add-after 'install 'patch-thumbnailer
2346             (lambda* (#:key outputs #:allow-other-keys)
2347               (substitute*
2348                   (search-input-file
2349                    outputs "share/thumbnailers/gnome-font-viewer.thumbnailer")
2350                 (("gnome-thumbnail-font")
2351                  (search-input-file outputs "bin/gnome-thumbnail-font"))))))))
2352     (native-inputs
2353      (list gettext-minimal
2354            `(,glib "bin")
2355            pkg-config))
2356     (inputs
2357      (list glib
2358            gnome-desktop
2359            gtk
2360            libadwaita
2361            libhandy
2362            libxml2))
2363     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2364     (synopsis "GNOME Fonts")
2365     (description "Application to show you the fonts installed on your computer
2366 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2367 the font would look under various sizes.")
2368     (license license:gpl2+)))
2369
2370 (define-public gcr
2371   (package
2372     (name "gcr")
2373     (version "3.41.1")
2374     (source (origin
2375               (method url-fetch)
2376               (uri (string-append "mirror://gnome/sources/" name "/"
2377                                   (version-major+minor version)  "/"
2378                                   name "-" version ".tar.xz"))
2379               (sha256
2380                (base32
2381                 "0kx2pv272p0qc0nq1287gciyn34d95yxg41vq3lzxfzyqaijhwdv"))))
2382     (build-system meson-build-system)
2383     (arguments
2384      (list
2385       #:phases
2386       #~(modify-phases %standard-phases
2387           (add-after 'unpack 'remove-fatal-warnings-option
2388             ;; Otherwise, the gi-docgen tool would fail because of the
2389             ;; "Fontconfig error: No writable cache directories" warnings.
2390             (lambda _
2391               (substitute* (find-files "." "^meson\\.build$")
2392                 ((".*'--fatal-warnings',.*") ""))))
2393           (add-after 'unpack 'skip-gtk-update-icon-cache
2394             ;; Don't create 'icon-theme.cache'.
2395             (lambda _
2396               (substitute* "meson_post_install.py"
2397                 (("gtk-update-icon-cache") "true"))))
2398           (add-before 'check 'pre-check
2399             (lambda _
2400               ;; Some tests expect to write to $HOME.
2401               (setenv "HOME" "/tmp")))
2402           (replace 'check
2403             (lambda* (#:key parallel-tests? tests? #:allow-other-keys)
2404               (when tests?
2405                 (setenv "MESON_TESTTHREADS"
2406                         (if parallel-tests?
2407                             (number->string (parallel-job-count))
2408                             "1"))
2409                 ;; Work around the "mock prompter couldn't get session bus
2410                 ;; address: Cannot spawn a message bus without a machine-id"
2411                 ;; error by manually creating the session bus via
2412                 ;; 'dbus-run-session'.
2413                 (invoke "dbus-run-session" "--"
2414                         "meson" "test" "-t" "0")))))))
2415     (inputs
2416      (list dbus
2417            gnupg
2418            libgcrypt
2419            libsecret))
2420     (native-inputs
2421      (list gettext-minimal
2422            gi-docgen
2423            `(,glib "bin")
2424            gobject-introspection
2425            gtk-doc
2426            libxml2
2427            libxslt
2428            openssh
2429            pkg-config
2430            python-wrapper
2431            vala))
2432     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2433     (propagated-inputs
2434      (list glib
2435            gtk+
2436            p11-kit))
2437     (home-page "https://www.gnome.org")
2438     (synopsis "Libraries for displaying certificates and accessing key stores")
2439     (description
2440      "The GCR package contains libraries used for displaying certificates and
2441 accessing key stores.  It also provides the viewer for crypto files on the
2442 GNOME Desktop.")
2443     (license license:lgpl2.1+)))
2444
2445 (define-public gdl
2446   (package
2447     (name "gdl")
2448     (version "3.34.0")
2449     (source (origin
2450               (method git-fetch)
2451               (uri (git-reference
2452                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2453                     (commit (string-append "GDL_" (string-map (match-lambda
2454                                                                 (#\. #\_)
2455                                                                 (c c))
2456                                                               version)))))
2457               (file-name (git-file-name name version))
2458               (sha256
2459                (base32
2460                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2461     (build-system gnu-build-system)
2462     (native-inputs
2463      (list autoconf
2464            automake
2465            `(,glib "bin") ; for glib-genmarshal, etc.
2466            gnome-common
2467            gtk-doc/stable
2468            intltool
2469            pkg-config
2470            libtool
2471            which))
2472     (inputs
2473      (list libxml2))
2474     (propagated-inputs
2475      ;; The gdl-3.0.pc file 'Requires' GTK+.
2476      (list gtk+))
2477     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2478     (synopsis "GNOME docking library")
2479     (description "This library provides docking features for gtk+.")
2480     (license license:lgpl2.1+)))
2481
2482 ;;; A minimal variant used to break a cycle with Inkscape.
2483 (define-public gdl-minimal
2484   (package/inherit gdl
2485     (name "gdl-minimal")
2486     (arguments
2487      '(#:phases
2488        (modify-phases %standard-phases
2489          (add-after 'unpack 'disable-doc-generation
2490            ;; XXX: There is no easy way to disable generating the
2491            ;; documentation.
2492            (lambda _
2493              (substitute* "configure.in"
2494                (("GTK_DOC_CHECK.*") "")
2495                (("docs/.*") ""))
2496              (substitute* "Makefile.am"
2497                (("gdl docs po") "gdl po"))
2498              #t)))))
2499     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2500
2501 (define-public libgnome-keyring
2502   (package
2503     (name "libgnome-keyring")
2504     (version "3.12.0")
2505     (source (origin
2506              (method url-fetch)
2507              (uri (string-append "mirror://gnome/sources/" name "/"
2508                                  (version-major+minor version)  "/"
2509                                  name "-" version ".tar.xz"))
2510              (sha256
2511               (base32
2512                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2513     (build-system gnu-build-system)
2514     (inputs
2515      (list libgcrypt dbus))
2516     (native-inputs
2517      (list pkg-config
2518            `(,glib "bin") intltool))
2519     (propagated-inputs
2520      ;; Referred to in .h files and .pc.
2521      (list glib))
2522     (home-page "https://www.gnome.org")
2523     (synopsis "Accessing passwords from the GNOME keyring")
2524     (description
2525      "Client library to access passwords from the GNOME keyring.")
2526
2527     ;; Though a couple of files are LGPLv2.1+.
2528     (license license:lgpl2.0+)))
2529
2530 (define-public gnome-keyring
2531   (package
2532     (name "gnome-keyring")
2533     (version "42.1")
2534     (source (origin
2535               (method url-fetch)
2536               (uri (string-append "mirror://gnome/sources/" name "/"
2537                                   (version-major version)  "/"
2538                                   name "-" version ".tar.xz"))
2539               (sha256
2540                (base32
2541                 "1rp38v4s9116ivycp27w806wihqid48gk3p0czzbg9knri0d1x67"))))
2542     (build-system gnu-build-system)
2543     (arguments
2544      (list
2545       #:configure-flags
2546       #~(list
2547          (string-append "--with-pkcs11-config="
2548                         #$output "/share/p11-kit/modules/")
2549          (string-append "--with-pkcs11-modules="
2550                         #$output "/share/p11-kit/modules/"))
2551       #:phases
2552       #~(modify-phases %standard-phases
2553           (add-after 'unpack 'fix-/bin/sh-reference
2554             (lambda _
2555               (substitute* "po/Makefile.in.in"
2556                 (("/bin/sh") (which "sh")))))
2557           (delete 'check)
2558           (add-after 'install 'check
2559             (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
2560               (when tests?
2561                 (setenv "HOME" "/tmp")  ;some tests require a writable HOME
2562                 (setenv "XDG_DATA_DIRS" (string-append (getenv "XDG_DATA_DIRS")
2563                                                        ":" #$output "/share"))
2564                 (invoke "dbus-run-session" "make" "check" "-j"
2565                         (if parallel-tests?
2566                             (number->string (parallel-job-count))
2567                             "1"))))))))
2568     (inputs
2569      (list dbus
2570            gcr
2571            libgcrypt
2572            linux-pam
2573            openssh))
2574     (native-inputs
2575      (list dbus                         ;for tests
2576            docbook-xml-4.3
2577            docbook-xml
2578            docbook-xsl
2579            gettext-minimal
2580            `(,glib "bin")
2581            glib                         ;for m4 macros
2582            libxml2                      ;for XML_CATALOG_FILES
2583            libxslt                      ;for documentation
2584            pkg-config
2585            python-wrapper))             ;for tests
2586     (propagated-inputs
2587      (list gcr))
2588     (home-page "https://www.gnome.org")
2589     (synopsis "Daemon to store passwords and encryption keys")
2590     (description
2591      "@command{gnome-keyring} is a program that keeps passwords and other
2592 secrets for users.  It is run as a daemon in the session, similar to
2593 @command{ssh-agent}, and other applications locate it via an environment
2594 variable or D-Bus.
2595
2596 The program can manage several keyrings, each with its own master password,
2597 and there is also a session keyring which is never stored to disk, but
2598 forgotten when the session ends.")
2599     (license license:lgpl2.1+)))
2600
2601 (define-public evince
2602   (package
2603     (name "evince")
2604     (version "42.3")
2605     (source (origin
2606               (method url-fetch)
2607               (uri "mirror://gnome/sources/evince/42/evince-42.3.tar.xz")
2608               (sha256
2609                (base32
2610                 "0pk42icnf4kdcaqaj17mcf4sxi82h1fdg2ds2zdrcv4lbj2czbj9"))))
2611     (build-system meson-build-system)
2612     (arguments
2613      `(#:glib-or-gtk? #t
2614        #:build-type "release"
2615        #:configure-flags '("-Dnautilus=false")
2616        #:phases
2617        (modify-phases %standard-phases
2618          (add-after 'unpack 'skip-gtk-update-icon-cache
2619            ;; Don't create 'icon-theme.cache'.
2620            (lambda _
2621              (substitute* "meson_post_install.py"
2622                (("gtk-update-icon-cache") "true")))))))
2623     (inputs
2624      (list libarchive
2625            libgxps
2626            libspectre
2627            djvulibre
2628            ghostscript
2629            poppler
2630            libtiff
2631            texlive-libkpathsea          ; for DVI support
2632            gnome-desktop
2633            gsettings-desktop-schemas
2634            gspell
2635            libgnome-keyring
2636            adwaita-icon-theme
2637            gdk-pixbuf
2638            atk
2639            pango
2640            gtk+
2641            glib
2642            libxml2
2643            libsm
2644            libice
2645            shared-mime-info
2646            dconf
2647            libcanberra
2648            libsecret
2649            libhandy))
2650     (native-inputs
2651      (list itstool
2652            gettext-minimal
2653            gi-docgen
2654            `(,glib "bin")
2655            gobject-introspection
2656            pkg-config
2657            libxml2))
2658     (home-page " https://wiki.gnome.org/Apps")
2659     (synopsis "GNOME's document viewer")
2660     (description
2661      "Evince is a document viewer for multiple document formats.  It
2662 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2663 of Evince is to replace the multiple document viewers that exist
2664 on the GNOME Desktop with a single simple application.")
2665     (license license:gpl2+)))
2666
2667 (define-public gsettings-desktop-schemas
2668   (package
2669     (name "gsettings-desktop-schemas")
2670     (version "41.0")
2671     (source
2672      (origin
2673        (method url-fetch)
2674        (uri (string-append "mirror://gnome/sources/" name "/"
2675                            (version-major version)  "/"
2676                            name "-" version ".tar.xz"))
2677        (sha256
2678         (base32
2679          "1v9jagk679m01nji0acirynxinziv036618c7xc49l4nwmr9ja3p"))))
2680     (build-system meson-build-system)
2681     (arguments
2682      `(#:phases (modify-phases %standard-phases
2683                   (add-after 'unpack 'patch-schemas
2684                     (lambda* (#:key inputs #:allow-other-keys)
2685                       (substitute* (find-files "schemas"
2686                                                "\\.gschema\\.xml\\.in$")
2687                         ;; Provide the correct file name of the default
2688                         ;; GNOME background, 'adwaita-timed.xml'.
2689                         (("@datadir@/backgrounds/gnome")
2690                          (search-input-directory inputs
2691                                                  "/share/backgrounds/gnome"))
2692                         ;; Do not reference fonts, that may not exist.
2693                         (("'Source Code Pro 10'") "'Monospace 11'")))))))
2694     (inputs (list glib gnome-backgrounds))
2695     (native-inputs (list gettext-minimal
2696                          `(,glib "bin") ;glib-compile-schemas, etc.
2697                          gobject-introspection
2698                          pkg-config
2699                          python))  ;for build-aux/meson/post-install.py
2700     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2701     (synopsis "GNOME settings for various desktop components")
2702     (description "Gsettings-desktop-schemas contains a collection of GSettings
2703 schemas for settings shared by various components of the GNOME desktop.")
2704     (license license:lgpl2.1+)))
2705
2706 (define-public gsettings-desktop-schemas-next
2707   (package
2708     (inherit gsettings-desktop-schemas)
2709     (name "gsettings-desktop-schemas-next") ;to avoid propagation conflicts
2710     (version "42.0")
2711     (source
2712      (origin
2713        (method url-fetch)
2714        (uri (string-append "mirror://gnome/sources/" name "/"
2715                            (version-major version)  "/"
2716                            name "-" version ".tar.xz"))
2717        (sha256
2718         (base32
2719          "1li3fcqwnw20f4j0i21i88fygm0hli8gmzkn4apgf8ynkrd371k6"))))))
2720
2721 (define-public python-liblarch
2722   (package
2723     (name "python-liblarch")
2724     (version "3.0.1")
2725     (source
2726      (origin
2727        (method git-fetch)
2728        (uri (git-reference
2729              (url "https://github.com/getting-things-gnome/liblarch")
2730              (commit (string-append "v" version))))
2731        (file-name (git-file-name name version))
2732        (sha256
2733         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2734     (build-system python-build-system)
2735     (arguments
2736      `(#:phases
2737        (modify-phases %standard-phases
2738          (add-before 'check 'start-xserver
2739            (lambda* (#:key inputs #:allow-other-keys)
2740              (system (format #f "~a/bin/Xvfb :1 &"
2741                              (assoc-ref inputs "xorg-server")))
2742              (setenv "DISPLAY" ":1")
2743              #t)))))
2744     (native-inputs
2745      (list xorg-server-for-tests))
2746     (inputs
2747      (list gtk+))
2748     (propagated-inputs
2749      (list python-pygobject))
2750     (home-page "https://wiki.gnome.org/Projects/liblarch")
2751     (synopsis "Library to easily handle complex data structures")
2752     (description
2753      "Liblarch is a Python library built to easily handle data structures such
2754 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2755 allow you to use your data structure in a @code{Gtk.Treeview}.
2756
2757 Liblarch support multiple views of one data structure and complex filtering.
2758 That way, you have a clear separation between your data themselves (Model)
2759 and how they are displayed (View).")
2760     (license license:lgpl3+)))
2761
2762 (define-public gtg
2763   (package
2764     (name "gtg")
2765     (version "0.5")
2766     (source
2767      (origin
2768        (method git-fetch)
2769        (uri (git-reference
2770              (url "https://github.com/getting-things-gnome/gtg")
2771              (commit (string-append "v" version))))
2772        (file-name (git-file-name name version))
2773        (sha256
2774         (base32 "0b2slm7kjq6q8c7v4m7aqc8m1ynjxn3bl7445srpv1xc0dilq403"))))
2775     (build-system meson-build-system)
2776     (arguments
2777      `(#:glib-or-gtk? #t
2778        #:phases
2779        (modify-phases %standard-phases
2780          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2781            (lambda* (#:key outputs #:allow-other-keys)
2782              (let ((prog (string-append (assoc-ref outputs "out")
2783                                         "/bin/gtg"))
2784                    (pylib (string-append (assoc-ref outputs "out")
2785                                          "/lib/python"
2786                                          ,(version-major+minor
2787                                            (package-version python))
2788                                          "/site-packages")))
2789                (wrap-program prog
2790                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
2791                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2792                #t))))))
2793     (native-inputs
2794      `(("desktop-file-utils" ,desktop-file-utils)
2795        ("gettext" ,gettext-minimal)
2796        ("glib:bin" ,glib "bin")
2797        ("gobject-introspection" ,gobject-introspection)
2798        ("gtk+:bin" ,gtk+ "bin")
2799        ("pkg-config" ,pkg-config)))
2800     (inputs
2801      (list librsvg
2802            gsettings-desktop-schemas
2803            gtk+
2804            pango
2805            python-dbus
2806            python-liblarch
2807            python-lxml
2808            python-pycairo
2809            python-pygobject
2810            python-pyxdg))
2811     (home-page "https://wiki.gnome.org/Apps/GTG")
2812     (synopsis "Personal organizer for the GNOME desktop")
2813     (description
2814      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2815 organizer for the GNOME desktop environment inspired by the Getting Things
2816 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2817 and ease of use in mind so it can be used as more than just GTD software.
2818 GTG is intended to help you track everything you need to do and need to
2819 know, from small tasks to large projects.")
2820     (license license:gpl3+)))
2821
2822 (define-public icon-naming-utils
2823   (package
2824     (name "icon-naming-utils")
2825     (version "0.8.90")
2826     (source
2827      (origin
2828       (method url-fetch)
2829       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2830                           version ".tar.bz2"))
2831       (sha256
2832        (base32
2833         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2834     (build-system gnu-build-system)
2835     (inputs
2836      (list perl perl-xml-simple))
2837     (arguments
2838      '(#:phases
2839        (modify-phases %standard-phases
2840          (add-after 'install 'set-load-paths
2841            ;; Tell 'icon-name-mapping' where XML::Simple is.
2842            (lambda* (#:key outputs #:allow-other-keys)
2843              (let* ((out  (assoc-ref outputs "out"))
2844                     (prog (string-append out "/libexec/icon-name-mapping")))
2845                (wrap-program
2846                    prog
2847                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2848              #t)))))
2849     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2850     (synopsis
2851      "Utility to implement the Freedesktop Icon Naming Specification")
2852     (description
2853      "To help with the transition to the Freedesktop Icon Naming
2854 Specification, the icon naming utility maps the icon names used by the
2855 GNOME and KDE desktops to the icon names proposed in the specification.")
2856     (license license:lgpl2.1+)))
2857
2858 (define-public adwaita-icon-theme
2859   (package
2860     (name "adwaita-icon-theme")
2861     (version "42.0")
2862     (source (origin
2863               (method url-fetch)
2864               (uri (string-append "mirror://gnome/sources/" name "/"
2865                                   (version-major version) "/"
2866                                   name "-" version ".tar.xz"))
2867               (sha256
2868                (base32
2869                 "1q5i31zd5jzr12p6vn831afwnzbzf6x73wna1y86drnyr2nvb1ay"))))
2870     (build-system gnu-build-system)
2871     (arguments
2872      (list #:make-flags
2873            ;; Don't create 'icon-theme.cache'.
2874            #~(list "GTK_UPDATE_ICON_CACHE=")))
2875     (native-inputs
2876      ;; The following requires the SVG pixbuf loader, provided by librsvg,
2877      ;; available on x86_64 only.
2878      `(,@(if (target-64bit?)
2879              `((,gtk+ "bin"))             ;for gtk-encode-symbolic-svg
2880              '())))
2881     (home-page "https://gitlab.gnome.org/GNOME/adwaita-icon-theme")
2882     (synopsis "GNOME icon theme")
2883     (description "Icons for the GNOME desktop.")
2884     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2885
2886 (define-public gnome-icon-theme
2887   (deprecated-package "gnome-icon-theme" adwaita-icon-theme))
2888
2889 (define-public tango-icon-theme
2890   (package
2891     (name "tango-icon-theme")
2892     (version "0.8.90")
2893     (source (origin
2894               (method url-fetch)
2895               (uri (string-append "http://tango.freedesktop.org/releases/"
2896                                   "tango-icon-theme-" version ".tar.bz2"))
2897               (sha256
2898                (base32
2899                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2900     (build-system gnu-build-system)
2901     (native-inputs
2902      (list icon-naming-utils intltool imagemagick pkg-config))
2903     (home-page "http://tango-project.org/")
2904     (synopsis "Tango icon theme")
2905     (description "This is an icon theme that follows the Tango visual
2906 guidelines.")
2907     (license license:public-domain)))
2908
2909 (define-public shared-mime-info
2910   (package
2911     (name "shared-mime-info")
2912     (version "1.15")
2913     (source (origin
2914              (method url-fetch)
2915              (uri (string-append
2916                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2917                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2918                    ".tar.xz"))
2919              (sha256
2920               (base32
2921                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2922     (build-system gnu-build-system)
2923     (arguments
2924      ;; The build system appears not to be parallel-safe.
2925      '(#:parallel-build? #f))
2926     (inputs
2927      (list glib libxml2))
2928     (native-inputs
2929      `(("gettext" ,gettext-minimal)
2930        ("itstool" ,itstool)
2931        ("pkg-config" ,pkg-config)))
2932     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2933     (synopsis "Database of common MIME types")
2934     (description
2935      "The shared-mime-info package contains the core database of common types
2936 and the update-mime-database command used to extend it.  It requires glib2 to
2937 be installed for building the update command.  Additionally, it uses intltool
2938 for translations, though this is only a dependency for the maintainers.  This
2939 database is translated at Transifex.")
2940     (license license:gpl2+)))
2941
2942 (define-public system-config-printer
2943   (package
2944     (name "system-config-printer")
2945     (version "1.5.16")
2946     (source
2947      (origin
2948        (method url-fetch)
2949        (uri (string-append
2950              "https://github.com/OpenPrinting/system-config-printer/releases/"
2951              "download/v" version
2952              "/system-config-printer-" version ".tar.xz"))
2953        (sha256
2954         (base32 "1z9pvgifj5c87csnqz10qybbcayh3ak9m606f63ifkvyjh4q9jnb"))))
2955     (build-system glib-or-gtk-build-system)
2956     (arguments
2957      (list
2958       #:imported-modules `((guix build python-build-system)
2959                            ,@%glib-or-gtk-build-system-modules)
2960       #:phases
2961       #~(modify-phases %standard-phases
2962           (add-after 'unpack 'patch-build-files
2963             (lambda _
2964               (substitute* "configure.ac"
2965                 (("AC_INIT.*" all)
2966                  (string-append all "\nAC_CONFIG_MACRO_DIR([m4])\n"))
2967                 ;; XXX: AX macros appear unavailable
2968                 (("AX_REQUIRE_DEFINED.*") ""))
2969               ;; The Makefile generates some scripts, so set a valid shebang
2970               (substitute* "Makefile.am"
2971                 (("/bin/bash") (which "bash")))
2972               (delete-file "configure")))
2973           (add-after 'unpack 'patch-docbook-xml
2974             (lambda* (#:key inputs #:allow-other-keys)
2975               ;; Modify the man XML otherwise xmlto tries to access the network
2976               (substitute* "man/system-config-printer.xml"
2977                 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2978                  (string-append (assoc-ref inputs "docbook-xml")
2979                                 "/xml/dtd/docbook/")))))
2980           (add-after 'install 'add-install-to-pythonpath
2981             (@@ (guix build python-build-system) add-install-to-pythonpath))
2982           (add-after 'add-install-to-pythonpath 'wrap-for-python
2983             (@@ (guix build python-build-system) wrap))
2984           (add-after 'install 'wrap
2985             (lambda* (#:key outputs #:allow-other-keys)
2986               (let ((out               (assoc-ref outputs "out"))
2987                     (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2988                 (for-each
2989                  (lambda (program)
2990                    (wrap-program program
2991                      `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2992                  (map (lambda (name)
2993                         (string-append out "/bin/" name))
2994                       '("system-config-printer"
2995                         "system-config-printer-applet"
2996                         "install-printerdriver"
2997                         "scp-dbus-service")))))))))
2998     (inputs
2999      (list gsettings-desktop-schemas
3000            gobject-introspection
3001            python
3002            cups
3003            gtk+
3004            python-dbus
3005            python-pygobject
3006            python-pycups
3007            python-requests
3008            python-pycairo
3009            libnotify
3010            packagekit))
3011     (native-inputs
3012      (list pkg-config
3013            desktop-file-utils
3014            glib
3015            autoconf
3016            automake
3017            gettext-minimal
3018            xmlto
3019            docbook-xml-4.1.2
3020            docbook-xsl
3021            libxml2))
3022     (home-page "https://github.com/zdohnal/system-config-printer")
3023     (synopsis "CUPS administration tool")
3024     (description
3025      "system-config-printer is a CUPS administration tool.  It's written in
3026 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
3027 configuring CUPS.")
3028     (license license:gpl2+)))
3029
3030 (define-public hicolor-icon-theme
3031   (package
3032     (name "hicolor-icon-theme")
3033     (version "0.17")
3034     (source
3035      (origin
3036       (method url-fetch)
3037       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
3038                           "hicolor-icon-theme-" version ".tar.xz"))
3039       (sha256
3040        (base32
3041         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
3042     (build-system gnu-build-system)
3043     (arguments
3044      `(#:tests? #f)) ; no check target
3045     (home-page "https://icon-theme.freedesktop.org/releases/")
3046     (synopsis
3047      "Freedesktop icon theme")
3048     (description
3049      "Freedesktop icon theme.")
3050     (license license:gpl2)))
3051
3052 (define-public libnotify
3053   (package
3054     (name "libnotify")
3055     (version "0.7.9")
3056     (source
3057      (origin
3058        (method url-fetch)
3059        (uri (string-append "mirror://gnome/sources/" name "/"
3060                            (version-major+minor version)  "/"
3061                            name "-" version ".tar.xz"))
3062        (sha256
3063         (base32
3064          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3065     (build-system meson-build-system)
3066     (arguments
3067      `(#:phases
3068        (modify-phases %standard-phases
3069          (add-after 'unpack 'fix-docbook
3070            (lambda* (#:key inputs #:allow-other-keys)
3071              ;; Don't attempt to download XSL schema.
3072              (substitute* "meson.build"
3073                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3074 /manpages/docbook.xsl")
3075                 (string-append (assoc-ref inputs "docbook-xsl")
3076                                "/xml/xsl/docbook-xsl-"
3077                                ,(package-version docbook-xsl)
3078                                "/manpages/docbook.xsl")))
3079              #t)))))
3080     (propagated-inputs
3081      (list ;; In Requires of libnotify.pc.
3082            gdk-pixbuf glib))
3083     (inputs
3084      (list gtk+ libpng))
3085     (native-inputs
3086      `(("pkg-config" ,pkg-config)
3087        ("glib" ,glib "bin")
3088        ("gobject-introspection" ,gobject-introspection)
3089
3090        ;; For the documentation.
3091        ("gtk-doc" ,gtk-doc/stable)
3092        ("xsltproc" ,libxslt)
3093        ("docbook-xsl" ,docbook-xsl)))
3094     (home-page "https://developer-next.gnome.org/libnotify/")
3095     (synopsis
3096      "GNOME desktop notification library")
3097     (description
3098      "Libnotify is a library that sends desktop notifications to a
3099 notification daemon, as defined in the Desktop Notifications spec.  These
3100 notifications can be used to inform the user about an event or display
3101 some form of information without getting in the user's way.")
3102     (license license:lgpl2.1+)))
3103
3104 (define-public libpeas
3105   (package
3106     (name "libpeas")
3107     (version "1.30.0")
3108     (source
3109      (origin
3110       (method url-fetch)
3111       (uri (string-append "mirror://gnome/sources/" name "/"
3112                           (version-major+minor version)  "/"
3113                           name "-" version ".tar.xz"))
3114       (sha256
3115        (base32
3116         "18xrk1c1ixlhkmykcfiafrl2am470ws687xqvjlq40zwkcp5dx8b"))))
3117     (build-system meson-build-system)
3118     (arguments
3119      '(#:phases
3120        (modify-phases %standard-phases
3121          (add-before 'check 'start-xserver
3122            (lambda* (#:key inputs #:allow-other-keys)
3123              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3124                    (disp ":1"))
3125                (setenv "DISPLAY" disp)
3126                (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
3127                (setenv "XDG_CONFIG_HOME" "/tmp")
3128                ;; Tests require a running X server.
3129                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3130                #t))))))
3131     (inputs
3132      (list gtk+ glade3 python python-pygobject))
3133     (native-inputs
3134      `(("pkg-config" ,pkg-config)
3135        ("gettext" ,gettext-minimal)
3136        ("glib:bin" ,glib "bin")
3137        ("gobject-introspection" ,gobject-introspection)
3138        ("xorg-server" ,xorg-server-for-tests)))
3139     (propagated-inputs
3140      ;; The .pc file "Requires" gobject-introspection.
3141      (list gobject-introspection))
3142     (home-page "https://wiki.gnome.org/Libpeas")
3143     (synopsis "GObject plugin system")
3144     (description
3145      "Libpeas is a gobject-based plugin engine, targeted at giving every
3146 application the chance to assume its own extensibility.  It also has a set of
3147 features including, but not limited to: multiple extension points; on-demand
3148 (lazy) programming language support for C, Python and JS; simplicity of the
3149 API.")
3150     (license license:lgpl2.0+)))
3151
3152 (define-public gtkglext
3153   (package
3154     (name "gtkglext")
3155     (version "1.2.0")
3156     (source (origin
3157               (method url-fetch)
3158               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3159                                   version "/gtkglext-" version ".tar.gz"))
3160               (sha256
3161                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3162               (patches (search-patches
3163                         "gtkglext-disable-disable-deprecated.patch"))))
3164     (build-system gnu-build-system)
3165     (arguments
3166      `(#:phases
3167        (modify-phases %standard-phases
3168          ;; Fix a collision between a local variable and a definition from
3169          ;; glibc's string.h.
3170          (add-after 'unpack 'fix-collision
3171            (lambda _
3172              (substitute* "gdk/gdkglshapes.c"
3173                ((" index") " triangle_index"))
3174              #t)))))
3175     (inputs (list gtk+-2 mesa glu libx11 libxt))
3176     (native-inputs (list pkg-config
3177                          `(,glib "bin")))
3178     (propagated-inputs (list pangox-compat))
3179     (home-page "https://projects.gnome.org/gtkglext")
3180     (synopsis "OpenGL extension to GTK+")
3181     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3182 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3183 API add-ons to make GTK+ widgets OpenGL-capable.")
3184     (license license:lgpl2.1+)))
3185
3186 (define-public glade3
3187   (package
3188     (name "glade")
3189     (version "3.40.0")
3190     (source (origin
3191               (method url-fetch)
3192               (uri (string-append "mirror://gnome/sources/" name "/"
3193                                   (version-major+minor version)  "/"
3194                                   name "-" version ".tar.xz"))
3195               (sha256
3196                (base32
3197                 "171x7vshhw0nqgnhkcaqfylpr5qrmhclwmkva6wjm5s9m2pavj9i"))))
3198     (build-system meson-build-system)
3199     (arguments
3200      (list
3201       #:meson meson-0.60
3202       #:phases
3203       #~(modify-phases %standard-phases
3204           (add-after 'unpack 'skip-gtk-update-icon-cache
3205             ;; Don't create 'icon-theme.cache'.
3206             (lambda _
3207               (substitute* "meson_post_install.py"
3208                 (("gtk-update-icon-cache") "true"))))
3209
3210           #$@(if (this-package-input "gjs")
3211                  '()
3212                  '((add-after 'unpack 'skip-gjs-test
3213                      (lambda _
3214                        ;; When the optional dependency on GJS is missing, skip
3215                        ;; the GJS plugin tests.
3216                        (substitute* "tests/modules.c"
3217                          (("g_test_add.*JavaScript.*" all)
3218                           (string-append "// " all "\n")))
3219                        (delete-file "tests/catalogs/gjsplugin.xml")))))
3220           (add-before 'check 'pre-check
3221             (lambda _
3222               (setenv "HOME" "/tmp")
3223               ;; Tests require a running X server.
3224               (system "Xvfb :1 &")
3225               (setenv "DISPLAY" ":1"))))))
3226     (inputs
3227      (append
3228       ;; GJS depends on Rust, which is x86_64-only so far, so remove the GJS
3229       ;; dependency on other platforms (FIXME).
3230       (if (target-x86-64?)
3231           (list gjs)
3232           '())
3233       (list gtk+ libxml2)))
3234     (native-inputs
3235      (list docbook-xml-4.2
3236            docbook-xsl
3237            gettext-minimal
3238            `(,glib "bin")
3239            gobject-introspection
3240            hicolor-icon-theme
3241            itstool
3242            libxml2                      ;for XML_CATALOG_FILES
3243            libxslt                      ;for xsltproc
3244            python
3245            python-pygobject
3246            pkg-config
3247            xorg-server-for-tests))
3248     (home-page "https://glade.gnome.org")
3249     (synopsis "GTK+ rapid application development tool")
3250     (description "Glade is a rapid application development (RAD) tool to
3251 enable quick & easy development of user interfaces for the GTK+ toolkit and
3252 the GNOME desktop environment.")
3253     (license license:lgpl2.0+)
3254     (native-search-paths (list (search-path-specification
3255                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3256                                 (files '("share/glade/catalogs")))
3257                                (search-path-specification
3258                                 (variable "GLADE_MODULE_SEARCH_PATH")
3259                                 (files '("lib/glade/modules")))))))
3260
3261 (define-public blueprint-compiler
3262   (package
3263     (name "blueprint-compiler")
3264     (version "0.4.0")
3265     (source (origin
3266               (method git-fetch)
3267               (uri (git-reference
3268                     (url
3269                      "https://gitlab.gnome.org/jwestman/blueprint-compiler")
3270                     (commit (string-append "v" version))))
3271               (file-name (string-append name "-" version "-checkout"))
3272               (sha256
3273                (base32
3274                 "0hj7f4xhwjc4x32r3lswwclbw37fw3spy806g4plkmym25hz4ydy"))))
3275     (build-system meson-build-system)
3276     (native-inputs (list gtk python-pygobject python))
3277     (inputs (list python))
3278     (synopsis "Template markup language")
3279     (description
3280      "Blueprint is a markup language for GTK user interfaces.  Internally, it
3281 compiles to GTKBuilder XML.")
3282     (home-page "https://gitlab.gnome.org/jwestman/blueprint-compiler")
3283     (license license:lgpl3+)))
3284
3285 (define-public cambalache
3286   (package
3287     (name "cambalache")
3288     (version "0.10.3")
3289     (source (origin
3290               (method git-fetch)
3291               (uri (git-reference
3292                     (url "https://gitlab.gnome.org/jpu/cambalache")
3293                     (commit version)))
3294               (file-name (git-file-name name version))
3295               (sha256
3296                (base32 "1nq9bvly4dm1xnh90z3b4c5455qpdgm3jgz2155vg2ai23f22vsy"))))
3297     (build-system meson-build-system)
3298     (arguments
3299      (list
3300       #:glib-or-gtk? #t
3301       #:imported-modules `((guix build python-build-system)
3302                            ,@%meson-build-system-modules)
3303       #:modules '((guix build meson-build-system)
3304                   ((guix build python-build-system) #:prefix python:)
3305                   (guix build utils))
3306       #:phases
3307       #~(modify-phases %standard-phases
3308           (add-after 'unpack 'patch-source
3309             (lambda* (#:key inputs #:allow-other-keys)
3310               (substitute* "cambalache/cmb_view.py"
3311                 (("GLib\\.find_program_in_path\\('(.*)'\\)" all cmd)
3312                  (format #f "~s" (search-input-file
3313                                   inputs (string-append "bin/" cmd)))))))
3314           (add-after 'unpack 'patch-build
3315             (lambda _
3316               (substitute* "postinstall.py"
3317                 (("update-desktop-database") "true"))))
3318           (add-after 'wrap 'python-wrap (assoc-ref python:%standard-phases 'wrap))
3319           (delete 'check)
3320           (add-after 'install 'add-install-to-pythonpath
3321             (assoc-ref python:%standard-phases 'add-install-to-pythonpath))
3322           (add-after 'add-install-to-pythonpath 'pre-check
3323             (lambda _
3324               (system "Xvfb :1 &")
3325               (setenv "DISPLAY" ":1")))
3326           (add-after 'pre-check 'check
3327             (lambda* (#:key tests? #:allow-other-keys)
3328               (when tests?
3329                 (with-directory-excursion ".."
3330                   (invoke "python3" "-m" "pytest")))))
3331           (add-after 'glib-or-gtk-wrap 'wrap-typelib
3332             (lambda _
3333               (for-each
3334                (lambda (prog)
3335                  (unless (wrapped-program? prog)
3336                    (wrap-program prog
3337                      `("GI_TYPELIB_PATH" suffix
3338                        (,(string-append #$output "/lib/girepository-1.0")
3339                         ,(getenv "GI_TYPELIB_PATH")))
3340                      ;; icons and schemas
3341                      `("XDG_DATA_DIRS" suffix
3342                        #$(map
3343                           (lambda (input)
3344                             (file-append (this-package-input input) "/share"))
3345                           '("adwaita-icon-theme" "hicolor-icon-theme"
3346                             "gsettings-desktop-schemas")))
3347                      ;; Wrapping GDK_PIXBUF_MODULE_FILE allows Cambalache to
3348                      ;; load its own icons in pure environments.
3349                      `("GDK_PIXBUF_MODULE_FILE" =
3350                        (,(getenv "GDK_PIXBUF_MODULE_FILE"))))))
3351                (find-files (string-append #$output "/bin"))))))))
3352     (inputs
3353      (list bash-minimal
3354            adwaita-icon-theme hicolor-icon-theme
3355            gsettings-desktop-schemas
3356            gtk
3357            `(,gtk+ "bin")               ; broadwayd
3358            `(,gtk "bin")
3359            libadwaita
3360            libhandy
3361            (librsvg-for-system)
3362            python
3363            python-pygobject
3364            python-lxml
3365            webkitgtk-with-libsoup2))
3366     (native-inputs (list `(,glib "bin") gobject-introspection
3367                          gettext-minimal pkg-config
3368                          python-pytest xorg-server-for-tests))
3369     (home-page "https://gitlab.gnome.org/jpu/cambalache")
3370     (synopsis "Rapid application development tool")
3371     (description "Cambalache is a rapid application development (RAD) tool for
3372 Gtk 4 and 3 with a clear model-view-controller (MVC) design and
3373 data model first philosophy.")
3374     (license (list license:lgpl2.1
3375                    license:gpl2)))) ; tools
3376
3377 (define-public libcroco
3378   (package
3379     (name "libcroco")
3380     (version "0.6.13")
3381     (source (origin
3382               (method url-fetch)
3383               (uri (string-append "mirror://gnome/sources/" name "/"
3384                                   (version-major+minor version)  "/"
3385                                   name "-" version ".tar.xz"))
3386               (patches (search-patches "libcroco-CVE-2020-12825.patch"))
3387               (sha256
3388                (base32
3389                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3390     (build-system gnu-build-system)
3391     (native-inputs
3392      (list pkg-config))
3393     (inputs
3394      (list glib libxml2 zlib))
3395     (home-page "https://github.com/GNOME/libcroco")
3396     (synopsis "CSS2 parsing and manipulation library")
3397     (description
3398      "Libcroco is a standalone CSS2 parsing and manipulation library.
3399 The parser provides a low level event driven SAC-like API and a CSS object
3400 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3401 XML/CSS rendering engine.")
3402
3403     ;; LGPLv2.1-only.
3404     (license license:lgpl2.1)))
3405
3406 (define-public libgsf
3407   (package
3408     (name "libgsf")
3409     (version "1.14.50")
3410     (source (origin
3411               (method url-fetch)
3412               (uri (string-append "mirror://gnome/sources/" name "/"
3413                                   (version-major+minor version)  "/"
3414                                   name "-" version ".tar.xz"))
3415               (sha256
3416                (base32
3417                 "0llf5rpg2rg9pdz8j38dl5z82zi9kmsn639wb2fhcfc3fz820v3f"))))
3418     (build-system glib-or-gtk-build-system)
3419     (outputs '("out" "bin" "doc"))
3420     (arguments
3421      (list
3422       #:configure-flags
3423       #~(list
3424          "--disable-static"
3425          "--enable-introspection"
3426          (string-append "--with-gir-dir=" #$output
3427                         "/share/gir-"
3428                         #$(version-major
3429                            (package-version gobject-introspection))
3430                         ".0")
3431          (string-append "--with-typelib-dir=" #$output
3432                         "/lib/girepository-"
3433                         #$(version-major
3434                            (package-version gobject-introspection))
3435                         ".0")
3436          (string-append "--with-html-dir=" #$output
3437                         "/share/gtk-doc/html")
3438          "--with-zlib"
3439          "--with-bz2")
3440       #:phases
3441       #~(modify-phases %standard-phases
3442           (add-after 'unpack 'patch-docbook-xml
3443             (lambda* (#:key native-inputs inputs #:allow-other-keys)
3444               (with-directory-excursion "doc"
3445                 (substitute* "gsf-docs.xml"
3446                   (("http://www.oasis-open.org/docbook/xml/4.5/")
3447                    (search-input-directory (or native-inputs inputs)
3448                                            "xml/dtd/docbook")))))))))
3449     (native-inputs
3450      (list docbook-xml
3451            gettext-minimal
3452            gobject-introspection
3453            perl
3454            perl-xml-parser
3455            pkg-config
3456            python-wrapper))
3457     (inputs
3458      (list bzip2
3459            gdk-pixbuf
3460            zlib))
3461     (propagated-inputs
3462      (list glib
3463            libxml2))
3464     (synopsis "G Structured File Library")
3465     (description "Libgsf aims to provide an efficient extensible I/O abstraction
3466 for dealing with different structured file formats.")
3467     (home-page "https://gitlab.gnome.org/GNOME/libgsf")
3468     (license
3469      (list license:lgpl2.1+             ;library
3470            license:lgpl2.0+))))         ;others
3471
3472 (define-public librsvg
3473   (package
3474     (name "librsvg")
3475     (version "2.50.7")
3476     (source (origin
3477               (method url-fetch)
3478               (uri (string-append "mirror://gnome/sources/librsvg/"
3479                                   (version-major+minor version)  "/"
3480                                   "librsvg-" version ".tar.xz"))
3481               (sha256
3482                (base32
3483                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3484               (modules '((guix build utils)))
3485               (snippet
3486                '(begin (delete-file-recursively "vendor")))))
3487     (build-system cargo-build-system)
3488     (outputs '("out" "doc" "debug"))
3489     (arguments
3490      `(#:install-source? #f
3491        #:modules
3492        ((guix build cargo-build-system)
3493         (guix build utils)
3494         ((guix build gnu-build-system) #:prefix gnu:))
3495        #:cargo-inputs
3496        (("rust-bitflags" ,rust-bitflags-1)
3497         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3498         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3499         ("rust-cast" ,rust-cast-0.2)
3500         ("rust-cssparser" ,rust-cssparser-0.27)
3501         ("rust-data-url" ,rust-data-url-0.1)
3502         ("rust-encoding" ,rust-encoding-0.2)
3503         ("rust-float-cmp" ,rust-float-cmp-0.8)
3504         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3505         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3506         ("rust-gio" ,rust-gio-0.8)
3507         ("rust-gio-sys" ,rust-gio-sys-0.9)
3508         ("rust-glib" ,rust-glib-0.9)
3509         ("rust-glib-sys" ,rust-glib-sys-0.9)
3510         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3511         ("rust-itertools" ,rust-itertools-0.9)
3512         ("rust-language-tags" ,rust-language-tags-0.2)
3513         ("rust-libc" ,rust-libc-0.2)
3514         ("rust-locale-config" ,rust-locale-config-0.3)
3515         ("rust-markup5ever" ,rust-markup5ever-0.10)
3516         ("rust-nalgebra" ,rust-nalgebra-0.21)
3517         ("rust-num-traits" ,rust-num-traits-0.2)
3518         ("rust-once-cell" ,rust-once-cell-1)
3519         ("rust-pkg-config" ,rust-pkg-config-0.3)
3520         ("rust-pango" ,rust-pango-0.8)
3521         ("rust-pango-sys" ,rust-pango-sys-0.9)
3522         ("rust-pangocairo" ,rust-pangocairo-0.9)
3523         ("rust-rayon" ,rust-rayon-1)
3524         ("rust-rctree" ,rust-rctree-0.3)
3525         ("rust-rgb" ,rust-rgb-0.8)
3526         ("rust-regex" ,rust-regex-1)
3527         ("rust-selectors" ,rust-selectors-0.22)
3528         ("rust-string-cache" ,rust-string-cache-0.8)
3529         ("rust-tinyvec" ,rust-tinyvec-0.3)
3530         ("rust-url" ,rust-url-2)
3531         ("rust-xml5ever" ,rust-xml5ever-0.16))
3532        #:cargo-development-inputs
3533        (("rust-assert-cmd" ,rust-assert-cmd-1)
3534         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3535         ("rust-chrono" ,rust-chrono-0.4)
3536         ("rust-criterion" ,rust-criterion-0.3)
3537         ("rust-float-cmp" ,rust-float-cmp-0.8)
3538         ("rust-lopdf" ,rust-lopdf-0.26)
3539         ("rust-png" ,rust-png-0.16)
3540         ("rust-predicates" ,rust-predicates-1)
3541         ("rust-tempfile" ,rust-tempfile-3))
3542        #:phases
3543        (modify-phases %standard-phases
3544          (add-after 'unpack 'patch-docbook-xml
3545            (lambda* (#:key inputs #:allow-other-keys)
3546              (with-directory-excursion "doc"
3547                (substitute* "rsvg-docs.xml"
3548                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3549                   (string-append (assoc-ref inputs "docbook-xml")
3550                                  "/xml/dtd/docbook/"))))))
3551          (add-after 'unpack 'prepare-for-build
3552            (lambda _
3553              ;; In lieu of #:make-flags
3554              (setenv "CC" ,(cc-for-target))
3555              ;; Something about the build environment resists building
3556              ;; successfully with the '--locked' flag.
3557              (substitute* '("Makefile.am" "Makefile.in")
3558                (("--locked") ""))))
3559          (add-before 'configure 'pre-configure
3560            (lambda* (#:key outputs #:allow-other-keys)
3561              (substitute* "gdk-pixbuf-loader/Makefile.in"
3562                ;; By default the gdk-pixbuf loader is installed under
3563                ;; gdk-pixbuf's prefix.  Work around that.
3564                (("gdk_pixbuf_moduledir = .*$")
3565                 (string-append "gdk_pixbuf_moduledir = "
3566                                "$(prefix)/"
3567                                ,(dirname %gdk-pixbuf-loaders-cache-file) "/"
3568                                "loaders\n")))
3569              (substitute* "configure"
3570                (("gdk_pixbuf_cache_file=.*")
3571                 (string-append "gdk_pixbuf_cache_file="
3572                                (assoc-ref outputs "out") "/"
3573                                ,%gdk-pixbuf-loaders-cache-file "\n")))))
3574          (add-after 'configure 'gnu-configure
3575            (lambda* (#:key outputs #:allow-other-keys #:rest args)
3576              (apply (assoc-ref gnu:%standard-phases 'configure)
3577                     #:configure-flags
3578                     (list "--disable-static"
3579                           "--enable-vala"
3580                           (string-append "--with-html-dir="
3581                                          (assoc-ref outputs "doc")
3582                                          "/share/gtk-doc/html"))
3583                     args)))
3584          (add-after 'configure 'dont-vendor-self
3585            (lambda* (#:key vendor-dir #:allow-other-keys)
3586              ;; Don't keep the whole tarball in the vendor directory
3587              (delete-file-recursively
3588               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))))
3589          (replace 'build
3590            (assoc-ref gnu:%standard-phases 'build))
3591          (add-before 'check 'ignore-failing-tests
3592            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3593            (lambda _
3594              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3595                (("fn background_color_option_invalid_color_yields_error" all)
3596                 (string-append "#[ignore] " all))
3597                (("fn empty_input_yields_error" all)
3598                 (string-append "#[ignore] " all))
3599                (("fn empty_svg_yields_error" all)
3600                 (string-append "#[ignore] " all))
3601                (("fn env_source_data_epoch_empty" all)
3602                 (string-append "#[ignore] " all))
3603                (("fn env_source_data_epoch_no_digits" all)
3604                 (string-append "#[ignore] " all))
3605                (("fn env_source_data_epoch_trailing_garbage" all)
3606                 (string-append "#[ignore] " all))
3607                (("fn export_id_option_error" all)
3608                 (string-append "#[ignore] " all))
3609                (("fn huge_zoom_factor_yields_error" all)
3610                 (string-append "#[ignore] " all))
3611                (("fn multiple_input_files_not_allowed_for_png_output" all)
3612                 (string-append "#[ignore] " all))
3613                (("fn stylesheet_option_error" all)
3614                 (string-append "#[ignore] " all)))))
3615          (replace 'check
3616            (lambda* args
3617              ((assoc-ref gnu:%standard-phases 'check)
3618               #:test-target "check")))
3619          (replace 'install
3620            (assoc-ref gnu:%standard-phases 'install)))))
3621     (native-inputs
3622      (list docbook-xml-4.3
3623            `(,glib "bin")
3624            gobject-introspection
3625            pkg-config
3626            vala))
3627     (inputs
3628      (list freetype harfbuzz libxml2 pango))
3629     (propagated-inputs
3630      (list cairo gdk-pixbuf glib))
3631     (synopsis "SVG rendering library")
3632     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3633 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3634 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3635 diagrams.")
3636     (home-page "https://wiki.gnome.org/LibRsvg")
3637     (license license:lgpl2.1+)))
3638
3639 ;; This copy of librsvg uses the bundled rust libraries. It is useful for
3640 ;; packages which have too many dependencies to be rebuilt as frequently
3641 ;; as the rust inputs are updated.
3642 ;; TODO: Remove this package and use packaged rust libraries!
3643 (define-public librsvg-bootstrap
3644   (package
3645     (inherit librsvg)
3646     (name "librsvg")
3647     (version "2.50.7")
3648     (source (origin
3649               (method url-fetch)
3650               (uri (string-append "mirror://gnome/sources/librsvg/"
3651                                   (version-major+minor version)  "/"
3652                                   "librsvg-" version ".tar.xz"))
3653               (sha256
3654                (base32
3655                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3656               (modules '((guix build utils)))
3657               (snippet
3658                '(begin
3659                   (for-each delete-file (find-files "vendor" "\\.a$"))))))
3660     (arguments
3661      (substitute-keyword-arguments (package-arguments librsvg)
3662        ((#:vendor-dir _ "vendor") "vendor")
3663        ((#:cargo-inputs _) '())
3664        ((#:cargo-development-inputs _) '())))
3665     (properties '((hidden? . #t)))))
3666
3667 (define-public librsvg-2.40
3668   ;; This is the last version implemented in C.
3669   (package
3670     (inherit librsvg)
3671     (version "2.40.21")
3672     (source (origin
3673               (method url-fetch)
3674               (uri (string-append "mirror://gnome/sources/librsvg/"
3675                                   (version-major+minor version)
3676                                   "/librsvg-" version ".tar.xz"))
3677               (sha256
3678                (base32
3679                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3680     (build-system gnu-build-system)
3681     (arguments
3682      `(#:configure-flags (list "--disable-static")
3683        #:phases
3684        (modify-phases %standard-phases
3685          (add-before 'configure 'pre-configure
3686            (lambda* (#:key inputs #:allow-other-keys)
3687              (substitute* "gdk-pixbuf-loader/Makefile.in"
3688                ;; By default the gdk-pixbuf loader is installed under
3689                ;; gdk-pixbuf's prefix.  Work around that.
3690                (("gdk_pixbuf_moduledir = .*$")
3691                 (string-append "gdk_pixbuf_moduledir = "
3692                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3693                                 "loaders\n"))
3694                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3695                (("gdk_pixbuf_cache_file = .*$")
3696                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3697              #t))
3698          (add-before 'check 'remove-failing-tests
3699            (lambda _
3700              (with-directory-excursion "tests/fixtures/reftests"
3701                (for-each delete-file
3702                          '(;; This test fails on i686:
3703                            "svg1.1/masking-path-04-b.svg"
3704                            ;; This test fails on armhf:
3705                            "svg1.1/masking-mask-01-b.svg"
3706                            ;; This test fails on aarch64:
3707                            "bugs/777834-empty-text-children.svg"
3708
3709                            ;; These two tests fail due to slightly different
3710                            ;; text rendering (different kerning or similar),
3711                            ;; nothing alarming.
3712                            "bugs/340047.svg"
3713                            "bugs/749415.svg"))))))))
3714     (native-inputs
3715      (list pkg-config
3716            `(,glib "bin") ; glib-mkenums, etc.
3717            gobject-introspection)) ; g-ir-compiler, etc.
3718     (inputs
3719      (list pango libcroco libxml2))
3720     (propagated-inputs
3721      ;; librsvg-2.0.pc refers to all of that.
3722      (list cairo gdk-pixbuf glib))
3723     (synopsis "Render SVG files using Cairo (ancient C version)")
3724     (properties '((hidden? . #t)))))
3725
3726 (define* (librsvg-for-system #:optional
3727                              (system (or (%current-target-system)
3728                                          (%current-system))))
3729   ;; Since librsvg 2.50 depends on Rust, and Rust is only correctly supported
3730   ;; on x86_64 so far, use the ancient C version on other platforms (FIXME).
3731   (if (string-prefix? "x86_64-" system)
3732       librsvg
3733       librsvg-2.40))
3734
3735 (export librsvg-for-system)
3736
3737 (define-public libidl
3738   (package
3739     (name "libidl")
3740     (version "0.8.14")
3741     (source (origin
3742               (method url-fetch)
3743               (uri (string-append "mirror://gnome/sources/libIDL/"
3744                                   (version-major+minor version) "/"
3745                                   "libIDL-" version ".tar.bz2"))
3746               (sha256
3747                (base32
3748                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3749     (build-system gnu-build-system)
3750     (inputs (list glib))
3751     (native-inputs
3752      (list pkg-config flex bison))
3753     (home-page "http://freecode.com/projects/libidl")
3754     (synopsis "Create trees of CORBA Interface Definition Language files")
3755     (description  "Libidl is a library for creating trees of CORBA Interface
3756 Definition Language (idl) files, which is a specification for defining
3757 portable interfaces. libidl was initially written for orbit (the orb from the
3758 GNOME project, and the primary means of libidl distribution).  However, the
3759 functionality was designed to be as reusable and portable as possible.")
3760     (properties `((upstream-name . "libIDL")))
3761     (license license:lgpl2.0+)))
3762
3763
3764 (define-public orbit2
3765   (package
3766     (name "orbit2")
3767     (version "2.14.19")
3768     (source (origin
3769               (method url-fetch)
3770               (uri (let ((upstream-name "ORBit2"))
3771                      (string-append "mirror://gnome/sources/" upstream-name "/"
3772                                     (version-major+minor version) "/"
3773                                     upstream-name "-" version ".tar.bz2")))
3774               (sha256
3775                (base32
3776                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3777     (build-system gnu-build-system)
3778     (arguments
3779      `(;; The "timeout-server" test hangs when run in parallel.
3780        #:parallel-tests? #f
3781        #:configure-flags
3782        '(;; We don't need static libraries, plus they don't build reproducibly
3783          ;; (non-deterministic ordering of .o files in the archive.)
3784          "--disable-static"
3785
3786          ;; The programmer kindly gives us a hook to turn off deprecation
3787          ;; warnings ...
3788          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3789        ;; ... which they then completly ignore !!
3790        #:phases
3791        (modify-phases %standard-phases
3792          (add-after 'unpack 'fix-parallel-build
3793            ;; Parallel build fails because of a failed dependency,
3794            ;; https://bugzilla.gnome.org/show_bug.cgi?id=732274
3795            (lambda _
3796              (substitute* "src/services/name/Makefile.am"
3797                (("orbit_name_server_2_DEPENDENCIES = \\$(DEPS) CosNaming.h")
3798                 "orbit_name_server_2_DEPENDENCIES = \
3799 $(DEPS) CosNaming.h libname-server-2.a"))))
3800          (add-before 'configure 'ignore-deprecations
3801            (lambda _
3802              (substitute* "linc2/src/Makefile.in"
3803                (("-DG_DISABLE_DEPRECATED")
3804                 "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))))))
3805     (inputs (list glib libidl))
3806     (native-inputs
3807      (list pkg-config))
3808     (home-page "https://projects.gnome.org/orbit2/")
3809     (synopsis "CORBA 2.4-compliant Object Request Broker")
3810     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3811 featuring mature C, C++ and Python bindings.")
3812     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3813     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3814     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3815     (license license:gpl2+)
3816     (properties `((upstream-name . "ORBit2")))))
3817
3818
3819 (define-public libbonobo
3820   (package
3821     (name "libbonobo")
3822     (version "2.32.1")
3823     (source (origin
3824               (method url-fetch)
3825               (uri (string-append "mirror://gnome/sources/" name "/"
3826                                   (version-major+minor version)
3827                                   "/" name "-" version ".tar.bz2"))
3828               (sha256
3829                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3830               (patches (search-patches
3831                         "libbonobo-activation-test-race.patch"))))
3832     (build-system gnu-build-system)
3833     (arguments
3834      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3835      `(#:configure-flags
3836        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3837        ;; ... which they then completly ignore !!
3838        #:phases
3839        (modify-phases %standard-phases
3840          (add-before 'configure 'ignore-deprecations
3841            (lambda _
3842              (substitute* "activation-server/Makefile.in"
3843                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3844              #t)))
3845
3846        ;; There's apparently a race condition between the server stub
3847        ;; generation and linking of the example under 'samples/echo' that can
3848        ;; lead do undefined references when building in parallel, as reported
3849        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3850        ;; Thus, disable parallel builds.
3851        #:parallel-build? #f))
3852     (inputs (list popt libxml2))
3853     ;; The following are Required by the .pc file
3854     (propagated-inputs
3855      (list glib orbit2))
3856     (native-inputs
3857      (list intltool
3858            pkg-config
3859            `(,glib "bin") ; for glib-genmarshal, etc.
3860            flex
3861            bison))
3862     (home-page "https://developer.gnome.org/libbonobo/")
3863     (synopsis "Framework for creating reusable components for use in GNOME applications")
3864     (description "Bonobo is a framework for creating reusable components for
3865 use in GNOME applications, built on top of CORBA.")
3866     ;; Licence not explicitly stated.  Source files contain no licence notices.
3867     ;; Tarball contains text of both GPLv2 and LGPLv2
3868     ;; GPLv2 covers both conditions
3869     (license license:gpl2+)))
3870
3871
3872 (define-public gconf
3873   (package
3874     (name "gconf")
3875     (version "3.2.6")
3876     (source (origin
3877               (method url-fetch)
3878               (uri
3879                (let ((upstream-name "GConf"))
3880                  (string-append "mirror://gnome/sources/" upstream-name "/"
3881                                 (version-major+minor version) "/"
3882                                 upstream-name "-" version ".tar.xz")))
3883               (sha256
3884                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3885     (build-system gnu-build-system)
3886     (inputs (list dbus-glib libxml2))
3887     (propagated-inputs (list glib ; referred to in the .pc file
3888                              orbit2))
3889     (native-inputs
3890      (list intltool
3891            `(,glib "bin") ; for glib-genmarshal, etc.
3892            pkg-config))
3893     (home-page "https://projects.gnome.org/gconf/")
3894     (synopsis "Store application preferences")
3895     (description "Gconf is a system for storing application preferences.  It
3896 is intended for user preferences; not arbitrary data storage.")
3897     (license license:lgpl2.0+)
3898     (properties '((upstream-name . "GConf")))))
3899
3900
3901 (define-public gnome-mime-data
3902   (package
3903     (name "gnome-mime-data")
3904     (version "2.18.0")
3905     (source (origin
3906               (method url-fetch)
3907               (uri (string-append "mirror://gnome/sources/" name "/"
3908                                   (version-major+minor version)  "/"
3909                                   name "-" version ".tar.bz2"))
3910               (sha256
3911                (base32
3912                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3913     (build-system gnu-build-system)
3914     (native-inputs
3915      (list perl intltool))
3916     (arguments
3917      '(#:phases (modify-phases %standard-phases
3918                   (add-after 'configure 'use-our-intltool
3919                     (lambda _
3920                       ;; Do not use the bundled intltool commands, which lack
3921                       ;; the "dotless @INC" fixes of our 'intltool' package.
3922                       (substitute* (find-files "." "^Makefile$")
3923                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3924                          (string-append "INTLTOOL_" tool " = intltool-"
3925                                         (string-downcase tool) "\n")))
3926                       #t)))))
3927     (home-page "https://www.gnome.org")
3928     (synopsis "Base MIME and Application database for GNOME")
3929     (description  "GNOME Mime Data is a module which contains the base MIME
3930 and Application database for GNOME.  The data stored by this module is
3931 designed to be accessed through the MIME functions in GnomeVFS.")
3932     (license license:gpl2+)))
3933
3934
3935 (define-public gnome-vfs
3936   (package
3937     (name "gnome-vfs")
3938     (version "2.24.4")
3939     (source (origin
3940               (method url-fetch)
3941               (uri (string-append "mirror://gnome/sources/" name "/"
3942                                   (version-major+minor version)  "/"
3943                                   name "-" version ".tar.bz2"))
3944               (sha256
3945                (base32
3946                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3947     (build-system gnu-build-system)
3948     (arguments
3949      `(#:phases
3950        (modify-phases %standard-phases
3951          (add-before 'configure 'ignore-deprecations
3952            (lambda _
3953              (substitute* '("libgnomevfs/Makefile.in"
3954                             "daemon/Makefile.in")
3955                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3956              #t))
3957          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3958            (lambda _
3959              (substitute* "test/test-async-cancel.c"
3960                (("EXIT_FAILURE") "77"))
3961              #t)))))
3962     (inputs (list libxml2 dbus-glib gconf gnome-mime-data zlib))
3963     (native-inputs
3964      (list `(,glib "bin") ; for glib-mkenums, etc.
3965            intltool pkg-config))
3966     (home-page "https://developer.gnome.org/gnome-vfs/")
3967     (synopsis "Access files and folders in GNOME applications")
3968     (description
3969      "GnomeVFS is the core library used to access files and folders in GNOME
3970 applications.  It provides a file system abstraction which allows applications
3971 to access local and remote files with a single consistent API.")
3972     (license license:lgpl2.0+)))
3973
3974
3975
3976 (define-public libgnome
3977   (package
3978     (name "libgnome")
3979     (version "2.32.1")
3980     (source (origin
3981               (method url-fetch)
3982               (uri (string-append "mirror://gnome/sources/" name "/"
3983                                   (version-major+minor version)  "/"
3984                                   name "-" version ".tar.bz2"))
3985               (sha256
3986                (base32
3987                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3988               (patches (search-patches "libgnome-encoding.patch"))))
3989     (build-system gnu-build-system)
3990     (arguments
3991      `(#:phases
3992        (modify-phases %standard-phases
3993          (add-before 'configure 'enable-deprecated
3994            (lambda _
3995              (substitute* "libgnome/Makefile.in"
3996                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3997              #t)))))
3998     (inputs (list libxml2))
3999     (native-inputs
4000      (list `(,glib "bin") ; for glib-mkenums, etc.
4001            intltool pkg-config))
4002     ;; The following are listed as Required in the .pc file
4003     ;; (except for libcanberra -- which seems to be oversight on the part
4004     ;; of the upstream developers -- anything that links against libgnome,
4005     ;; must also link against libcanberra
4006     (propagated-inputs
4007      (list libcanberra libbonobo gconf gnome-vfs popt))                       ;gnome-program.h includes popt.h
4008     (home-page "https://developer.gnome.org/libgnome/")
4009     (synopsis "Useful routines for building applications")
4010     (description  "The libgnome library provides a number of useful routines
4011 for building modern applications, including session management, activation of
4012 files and URIs, and displaying help.")
4013     (license license:lgpl2.0+)))
4014
4015
4016 (define-public libart-lgpl
4017   (package
4018     (name "libart-lgpl")
4019     (version "2.3.21")
4020     (source (origin
4021               (method url-fetch)
4022               (uri (let ((upstream-name "libart_lgpl"))
4023                      (string-append "mirror://gnome/sources/" upstream-name "/"
4024                                     (version-major+minor version) "/"
4025                                     upstream-name "-" version ".tar.bz2")))
4026               (sha256
4027                (base32
4028                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
4029     (build-system gnu-build-system)
4030     (native-inputs
4031      (list pkg-config))
4032     (home-page "https://people.gnome.org/~mathieu/libart")
4033     (synopsis "2D drawing library")
4034     (description  "Libart is a 2D drawing library intended as a
4035 high-quality vector-based 2D library with antialiasing and alpha composition.")
4036     (license license:lgpl2.0+)))
4037
4038
4039
4040 (define-public libgnomecanvas
4041   (package
4042     (name "libgnomecanvas")
4043     (version "2.30.3")
4044     (source (origin
4045               (method url-fetch)
4046               (uri (string-append "mirror://gnome/sources/" name "/"
4047                                   (version-major+minor version)  "/"
4048                                   name "-" version ".tar.gz"))
4049               (sha256
4050                (base32
4051                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
4052     (build-system gnu-build-system)
4053     ;; Mentioned as Required in the .pc file
4054     (propagated-inputs (list libart-lgpl gtk+-2))
4055     (native-inputs
4056      (list intltool
4057            `(,glib "bin") ; for glib-genmarshal, etc.
4058            pkg-config))
4059     (home-page "https://developer.gnome.org/libgnomecanvas/")
4060     (synopsis "Flexible widget for creating interactive structured graphics")
4061     (description  "The GnomeCanvas widget provides a flexible widget for
4062 creating interactive structured graphics.")
4063     (license license:lgpl2.0+)))
4064
4065 (define-public libgnomecanvasmm
4066   (package
4067     (name "libgnomecanvasmm")
4068     (version "2.26.0")
4069     (source (origin
4070               (method url-fetch)
4071               (uri (string-append "mirror://gnome/sources/" name "/"
4072                                   (version-major+minor version)  "/"
4073                                   name "-" version ".tar.bz2"))
4074               (sha256
4075                (base32
4076                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
4077     (build-system gnu-build-system)
4078     (propagated-inputs (list libgnomecanvas))
4079     (native-inputs
4080      (list gtkmm-2 pkg-config))
4081     (home-page "https://gtkmm.org")
4082     (synopsis "C++ bindings to the GNOME Canvas library")
4083     (description "C++ bindings to the GNOME Canvas library.")
4084     (license license:lgpl2.0+)))
4085
4086 (define-public libgnomeui
4087   (package
4088     (name "libgnomeui")
4089     (version "2.24.5")
4090     (source (origin
4091               (method url-fetch)
4092               (uri (string-append "mirror://gnome/sources/" name "/"
4093                                   (version-major+minor version)  "/"
4094                                   name "-" version ".tar.bz2"))
4095               (patches (search-patches "libgnomeui-utf8.patch"))
4096               (sha256
4097                (base32
4098                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
4099     (build-system gnu-build-system)
4100     ;; Mentioned as Required in the .pc file
4101     (propagated-inputs (list libbonoboui libgnome libgnomecanvas
4102                              libgnome-keyring))
4103     (inputs (list libjpeg-turbo popt libbonobo libxml2 libglade))
4104     (native-inputs
4105      (list `(,glib "bin") ; for glib-mkenums, etc.
4106            intltool pkg-config))
4107     (home-page "https://developer.gnome.org/libgnomeui/")
4108     (synopsis "Additional widgets for applications")
4109     (description "The libgnomeui library provides additional widgets for
4110 applications.  Many of the widgets from libgnomeui have already been
4111 ported to GTK+.")
4112     (license license:lgpl2.0+)))
4113
4114 (define-public libglade
4115   (package
4116     (name "libglade")
4117     (version "2.6.4")
4118     (source (origin
4119               (method url-fetch)
4120               (uri (string-append "mirror://gnome/sources/" name "/"
4121                                   (version-major+minor version)  "/"
4122                                   name "-" version ".tar.bz2"))
4123               (sha256
4124                (base32
4125                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
4126     (build-system gnu-build-system)
4127     (inputs
4128      (list python)) ;; needed for the optional libglade-convert program
4129     (propagated-inputs
4130      (list gtk+-2 libxml2)) ; required by libglade-2.0.pc
4131     (native-inputs
4132      (list pkg-config))
4133     (home-page "https://developer.gnome.org/libglade")
4134     (synopsis "Load glade interfaces and access the glade built widgets")
4135     (description "Libglade is a library that provides interfaces for loading
4136 graphical interfaces described in glade files and for accessing the
4137 widgets built in the loading process.")
4138     (license license:gpl2+))) ; This is correct.  GPL not LGPL
4139
4140 (define-public libbonoboui
4141   (package
4142     (name "libbonoboui")
4143     (version "2.24.5")
4144     (source (origin
4145               (method url-fetch)
4146               (uri (string-append "mirror://gnome/sources/" name "/"
4147                                   (version-major+minor version)  "/"
4148                                   name "-" version ".tar.bz2"))
4149               (sha256
4150                (base32
4151                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4152     (build-system gnu-build-system)
4153     (arguments
4154      `(#:phases
4155        (modify-phases %standard-phases
4156          (add-before 'check 'start-xserver
4157            (lambda* (#:key inputs #:allow-other-keys)
4158              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4159                    (disp ":1"))
4160
4161                (setenv "HOME" (getcwd))
4162                (setenv "DISPLAY" disp)
4163                ;; There must be a running X server and make check doesn't start one.
4164                ;; Therefore we must do it.
4165                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4166     ;; Mentioned as Required by the .pc file
4167     (propagated-inputs (list libxml2))
4168     (inputs
4169      (list popt pangox-compat libgnome libgnomecanvas libglade))
4170     (native-inputs
4171      (list `(,glib "bin") ; for glib-genmarshal, etc.
4172            intltool
4173            xorg-server-for-tests ; For running the tests
4174            pkg-config))
4175     (home-page "https://developer.gnome.org/libbonoboui/")
4176     (synopsis "Some user interface controls using Bonobo")
4177     (description  "The Bonobo UI library provides a number of user interface
4178 controls using the Bonobo component framework.")
4179     (license license:lgpl2.0+)))
4180
4181 (define-public libwnck
4182   (package
4183     (name "libwnck")
4184     (version "3.32.0")
4185     (source (origin
4186               (method url-fetch)
4187               (uri (string-append "mirror://gnome/sources/" name "/"
4188                                   (version-major+minor version) "/"
4189                                   name "-" version ".tar.xz"))
4190               (sha256
4191                (base32
4192                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4193     (build-system meson-build-system)
4194     (native-inputs
4195      (list pkg-config
4196            `(,glib "bin") ; for glib-mkenums
4197            gobject-introspection ; for g-ir-scanner
4198            intltool))
4199     (propagated-inputs
4200      (list gtk+ libxres startup-notification))
4201     (home-page "https://developer.gnome.org/libwnck/")
4202     (synopsis "Window Navigator Construction Kit")
4203     (description
4204      "Libwnck is the Window Navigator Construction Kit, a library for use in
4205 writing pagers, tasklists, and more generally applications that are dealing
4206 with window management.  It tries hard to respect the Extended Window Manager
4207 Hints specification (EWMH).")
4208     (license license:lgpl2.0+)))
4209
4210 ;; stable version for gtk2, required by xfwm4.
4211 (define-public libwnck-2
4212   (package (inherit libwnck)
4213     (name "libwnck")
4214     (version "2.30.7")
4215     (source (origin
4216               (method url-fetch)
4217               (uri (string-append "mirror://gnome/sources/" name "/"
4218                                   (version-major+minor version) "/"
4219                                   name "-" version ".tar.xz"))
4220               (sha256
4221                (base32
4222                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4223     (build-system gnu-build-system)
4224     (native-inputs
4225      (list pkg-config intltool))
4226     (propagated-inputs
4227      (list gtk+-2 libxres startup-notification))))
4228
4229 (define-public goffice
4230   (package
4231     (name "goffice")
4232     (version "0.10.52")
4233     (source
4234      (origin
4235        (method url-fetch)
4236        (uri (string-append "mirror://gnome/sources/goffice/"
4237                            (version-major+minor version)  "/"
4238                            "goffice-" version ".tar.xz"))
4239        (sha256
4240         (base32 "0344k0ffndd79as3c4nfq3mia7mrds6aq2jg76drdw3h8gcyzfb0"))))
4241     (build-system gnu-build-system)
4242     (outputs '("out"
4243                "doc"))                  ; 4.0 MiB of gtk-doc
4244     (arguments
4245      '(#:configure-flags (list (string-append "--with-html-dir="
4246                                               (assoc-ref %outputs "doc")
4247                                               "/share/gtk-doc/html"))))
4248     (inputs
4249      (list gtk+ libgsf librsvg libxslt libxml2))
4250     (native-inputs
4251      (list intltool `(,glib "bin") pkg-config))
4252     (home-page "https://developer.gnome.org/goffice/")
4253     (synopsis "Document-centric objects and utilities")
4254     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4255     (license
4256      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4257      ;; Note: NOT LGPL
4258      (list license:gpl2 license:gpl3))))
4259
4260 (define-public goffice-0.8
4261   (package (inherit goffice)
4262     (version "0.8.17")
4263     (source (origin
4264               (method url-fetch)
4265               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4266                                   (version-major+minor version)  "/"
4267                                   (package-name goffice) "-" version ".tar.xz"))
4268               (sha256
4269                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4270     (arguments
4271      `(#:phases
4272        (modify-phases %standard-phases
4273          (add-after 'unpack 'fix-pcre-check
4274            (lambda _
4275              ;; Only glib.h can be included directly.  See
4276              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4277              (substitute* "configure"
4278                (("glib/gregex\\.h") "glib.h")) #t)))
4279
4280        ,@(package-arguments goffice)))
4281     (propagated-inputs
4282      ;; libgoffice-0.8.pc mentions libgsf-1
4283      (list libgsf))
4284     (inputs
4285      `(("gtk" ,gtk+-2)
4286        ,@(alist-delete "gtk" (package-inputs goffice))))))
4287
4288 (define-public gnumeric
4289   (package
4290     (name "gnumeric")
4291     (version "1.12.52")
4292     (source (origin
4293               (method url-fetch)
4294               (uri (string-append "mirror://gnome/sources/gnumeric/"
4295                                   (version-major+minor version)  "/"
4296                                   "gnumeric-" version ".tar.xz"))
4297               (sha256
4298                (base32
4299                 "0fw201j0sks95wgvns3vydgprhwf6z4v4xb2a0ldi892k8277kvk"))))
4300     (build-system glib-or-gtk-build-system)
4301     (arguments
4302      `(;; The gnumeric developers don't worry much about failing tests.
4303        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4304        #:tests? #f
4305        #:phases
4306        (modify-phases %standard-phases
4307          (add-before
4308           'configure 'pre-conf
4309            (lambda* (#:key outputs #:allow-other-keys)
4310              ;; Make install tries to write into the directory of goffice
4311              ;; I am informed that this only affects the possibility to embed a
4312              ;; spreadsheet inside an Abiword document.   So presumably when we
4313              ;; package Abiword we'll have to refer it to this directory.
4314              (substitute* "configure"
4315                (("^GOFFICE_PLUGINS_DIR=.*")
4316                 (string-append "GOFFICE_PLUGINS_DIR="
4317                                (assoc-ref outputs "out")
4318                                "/goffice/plugins"))))))))
4319     (inputs
4320      (list glib
4321            gtk+
4322            goffice
4323            libgsf
4324            librsvg
4325            libxml2
4326            libxslt
4327            python
4328            python-pygobject
4329            zlib))
4330     (native-inputs
4331      (list bison
4332            docbook-xml
4333            `(,glib "bin")
4334            intltool
4335            itstool
4336            pkg-config))
4337     (home-page "http://www.gnumeric.org")
4338     (synopsis "Spreadsheet application")
4339     (description
4340      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4341 interoperable with other spreadsheet applications.  It has a vast array of
4342 features beyond typical spreadsheet functionality, such as support for linear
4343 and non-linear solvers, statistical analysis, and telecommunication
4344 engineering.")
4345     (license
4346     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4347      (list license:gpl2 license:gpl3))))
4348
4349 (define-public drawing
4350   (package
4351     (name "drawing")
4352     (version "0.8.3")
4353     (source
4354      (origin
4355        (method git-fetch)
4356        (uri (git-reference
4357              (url "https://github.com/maoschanz/drawing")
4358              (commit version)))
4359        (file-name (git-file-name name version))
4360        (sha256
4361         (base32 "0wz9p47riyy3h8b0sqsb6bx416hc6d1a1wyzlfmsxkrqrkwcjcm8"))))
4362     (build-system meson-build-system)
4363     (arguments
4364      `(#:glib-or-gtk? #t
4365        #:phases
4366        (modify-phases %standard-phases
4367          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4368            (lambda* (#:key outputs #:allow-other-keys)
4369              (let ((prog (string-append (assoc-ref outputs "out")
4370                                         "/bin/drawing"))
4371                    (pylib (string-append (assoc-ref outputs "out")
4372                                          "/lib/python"
4373                                          ,(version-major+minor
4374                                            (package-version python))
4375                                          "/site-packages")))
4376                (wrap-program prog
4377                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
4378                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
4379     (native-inputs
4380      `(("desktop-file-utils" ,desktop-file-utils)
4381        ("gettext" ,gettext-minimal)
4382        ("glib:bin" ,glib "bin")
4383        ("gobject-introspection" ,gobject-introspection)
4384        ("gtk+:bin" ,gtk+ "bin")
4385        ("pkg-config" ,pkg-config)))
4386     (inputs
4387      (list librsvg
4388            gsettings-desktop-schemas
4389            gtk+
4390            pango
4391            python-pycairo
4392            python-pygobject))
4393     (home-page "https://maoschanz.github.io/drawing/")
4394     (synopsis "Basic image editor for GNOME")
4395     (description
4396      "Drawing is a basic image editor aiming at the GNOME desktop.")
4397     (license license:gpl3+)))
4398
4399 (define-public seahorse
4400   (package
4401     (name "seahorse")
4402     (version "41.0")
4403     (source
4404      (origin
4405        (method url-fetch)
4406        (uri (string-append "mirror://gnome/sources/" name "/"
4407                            (version-major version) "/" name "-"
4408                            version ".tar.xz"))
4409        (sha256
4410         (base32 "1x99i7kdvd8hbxcs5rfrq7nw6r9bfzaw263zaigjjj04h6gc1vp6"))))
4411     (build-system meson-build-system)
4412     (arguments
4413      '(#:glib-or-gtk? #t
4414        #:phases
4415        (modify-phases %standard-phases
4416          (add-after 'unpack 'skip-gtk-update-icon-cache
4417            ;; Don't create 'icon-theme.cache'.
4418            (lambda _
4419              (substitute* "build-aux/meson_post_install.py"
4420                (("gtk-update-icon-cache") "true"))
4421              #t))
4422          (add-before 'check 'pre-check
4423            (lambda _
4424              ;; Tests require a writable HOME.
4425              (setenv "HOME" (getcwd)))))))
4426     (inputs
4427      `(("gtk+" ,gtk+)
4428        ("gcr" ,gcr)
4429        ("gnupg" ,gnupg)
4430        ("gpgme" ,gpgme)
4431        ("openldap" ,openldap)
4432        ("openssh" ,openssh)
4433        ("avahi" ,avahi)
4434        ("libhandy" ,libhandy)
4435        ("libpwquality" ,libpwquality)
4436        ("libsecret" ,libsecret)
4437        ("libsoup" ,libsoup-minimal-2)))
4438     (native-inputs
4439      `(("gettext" ,gettext-minimal)
4440        ("glib:bin" ,glib "bin")
4441        ("itstool" ,itstool)
4442        ("pkg-config" ,pkg-config)
4443        ("python" ,python)
4444        ("vala" ,vala)
4445        ("xmllint" ,libxml2)))
4446     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4447     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4448     (description
4449      "Seahorse is a GNOME application for managing encryption keys and
4450 passwords in the GNOME keyring.")
4451     (license license:gpl2+)))
4452
4453 (define-public vala
4454   (package
4455     (name "vala")
4456     (version "0.54.2")
4457     (source (origin
4458               (method url-fetch)
4459               (uri (string-append "mirror://gnome/sources/vala/"
4460                                   (version-major+minor version) "/"
4461                                   "vala-" version ".tar.xz"))
4462               (sha256
4463                (base32
4464                 "048k5c6c6y7jyb961krnrb7m0kghr0yrkpnfx3j5ckbx652yfkc8"))))
4465     (build-system glib-or-gtk-build-system)
4466     (arguments
4467      '(#:configure-flags '("--enable-coverage")
4468        #:phases
4469        (modify-phases %standard-phases
4470          (add-after 'unpack 'patch-docbook-xml
4471            (lambda* (#:key inputs #:allow-other-keys)
4472              (with-directory-excursion "doc/manual"
4473                (substitute* '("manual.xml" "version.xml.in")
4474                  (("http://www.oasis-open.org/docbook/xml/4.4/")
4475                   (string-append (assoc-ref inputs "docbook-xml")
4476                                  "/xml/dtd/docbook/"))))))
4477          (add-before 'check 'pre-check
4478            (lambda _
4479              (setenv "CC" "gcc")
4480              (substitute* "valadoc/tests/libvaladoc\
4481 /tests-extra-environment.sh"
4482                (("export PKG_CONFIG_PATH=" m)
4483                 (string-append m "$PKG_CONFIG_PATH:"))))))))
4484     (native-inputs
4485      `(("bison" ,bison)
4486        ("dbus" ,dbus)                   ; for dbus tests
4487        ("docbook-xml" ,docbook-xml-4.4)
4488        ("docbook-xsl" ,docbook-xsl)
4489        ("flex" ,flex)
4490        ("gobject-introspection" ,gobject-introspection) ; for gir tests
4491        ("help2man" ,help2man)
4492        ("perl" ,perl)
4493        ("pkg-config" ,pkg-config)
4494        ("xsltproc" ,libxslt)))
4495     (propagated-inputs
4496      `(("glib" ,glib)                   ; required by libvala-0.40.pc
4497        ("libgvc" ,graphviz)))
4498     (home-page "https://wiki.gnome.org/Projects/Vala/")
4499     (synopsis "Compiler using the GObject type system")
4500     (description "Vala is a programming language using modern high level
4501 abstractions without imposing additional runtime requirements and without using
4502 a different ABI compared to applications and libraries written in C.  Vala uses
4503 the GObject type system and has additional code generation routines that make
4504 targeting the GNOME stack simple.")
4505     (license license:lgpl2.1+)))
4506
4507 (define-public vala-next
4508   (package
4509     (inherit vala)
4510     (version "0.56.2")
4511     (source (origin
4512               (method url-fetch)
4513               (uri (string-append "mirror://gnome/sources/vala/"
4514                                   (version-major+minor version) "/"
4515                                   "vala-" version ".tar.xz"))
4516               (sha256
4517                (base32
4518                 "0k0jj3xwjq222x0hbqqy5bykhgk1f1wsb85bqcdgsnbqn6dn3jb6"))))
4519     (arguments
4520      (list
4521       #:configure-flags #~(list "CC=gcc" "--enable-coverage")
4522       #:phases
4523       #~(modify-phases %standard-phases
4524           (add-after 'unpack 'use-gcc-by-default
4525             (lambda _
4526               (substitute* "codegen/valaccodecompiler.c"
4527                 (("cc_command = \"cc\"")
4528                  "cc_command = \"gcc\""))))
4529           (add-after 'unpack 'patch-docbook-xml
4530             (lambda* (#:key inputs #:allow-other-keys)
4531               (with-directory-excursion "doc/manual"
4532                 (substitute* '("manual.xml" "version.xml.in")
4533                   (("http://www.oasis-open.org/docbook/xml/4.4/")
4534                    (search-input-directory inputs "xml/dtd/docbook"))))))
4535           (add-before 'check 'pre-check
4536             (lambda _
4537               (substitute* "valadoc/tests/libvaladoc/tests-extra-environment.sh"
4538                 (("export PKG_CONFIG_PATH=" m)
4539                  (string-append m "$PKG_CONFIG_PATH:")))))
4540           ;; Wrapping the binaries breaks vala's behavior adaptations based on
4541           ;; the file name of the program executed (vala: compile and execute,
4542           ;; valac: compile into a binary).
4543           (delete 'glib-or-gtk-wrap))))))
4544
4545 ;;; An older variant kept to build libsoup-minimal-2.
4546 (define-public vala-0.52
4547   (package/inherit vala
4548     (version "0.52.0")
4549     (source (origin
4550               (method url-fetch)
4551               (uri (string-append "mirror://gnome/sources/vala/"
4552                                   (version-major+minor version) "/"
4553                                   "vala-" version ".tar.xz"))
4554               (sha256
4555                (base32
4556                 "12y6p8wdjp01vmfhxg2cgh32xnyqq6ivblvrar9clnj6vc867qhx"))))))
4557
4558 (define-public vte
4559   (package
4560     (name "vte")
4561     (version "0.68.0")
4562     (source (origin
4563               (method url-fetch)
4564               (uri (string-append "mirror://gnome/sources/vte/"
4565                                   (version-major+minor version) "/"
4566                                   "vte-" version ".tar.xz"))
4567               (sha256
4568                (base32
4569                 "0j8pvn225ybzx9p33ill838bzp8kkdn28383h0vs65m2kiwd9rqk"))))
4570     (build-system meson-build-system)
4571     (arguments
4572      (list #:configure-flags #~(list "-Dvapi=true"
4573                                      "-D_systemd=false")))
4574     (native-inputs
4575      (list pkg-config
4576            gettext-minimal
4577            vala
4578            gobject-introspection
4579            `(,glib "bin")               ; for glib-genmarshal, etc.
4580            gperf
4581            python
4582            libxml2))
4583     (propagated-inputs
4584      (list gtk+ ; required by vte-2.91.pc
4585            gnutls ; ditto
4586            pcre2))               ; ditto
4587     (home-page "https://www.gnome.org/")
4588     (synopsis "Virtual Terminal Emulator")
4589     (description
4590      "VTE is a library (libvte) implementing a terminal emulator widget for
4591 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4592 gnome-terminal, but can also be used to embed a console/terminal in games,
4593 editors, IDEs, etc.")
4594     (license license:lgpl2.1+)))
4595
4596 (define-public vte-ng
4597   (package
4598     (inherit vte)
4599     (name "vte-ng")
4600     (version "0.58.2.a")
4601     (home-page "https://github.com/thestinger/vte-ng")
4602     (source (origin
4603               (method git-fetch)
4604               (uri (git-reference (url home-page) (commit version)))
4605               (file-name (git-file-name name version))
4606               (sha256
4607                (base32
4608                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4609     (build-system meson-build-system)
4610     (arguments
4611      (list #:configure-flags #~(list "-Ddocs=false")))
4612   (synopsis "Enhanced VTE terminal widget")
4613   (description
4614    "VTE is a library (libvte) implementing a terminal emulator widget for
4615 GTK+, this fork provides additional functions exposed for keyboard text
4616 selection and URL hints.")))
4617
4618 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4619 (define-public vte/gtk+-2
4620   (package (inherit vte)
4621     (name "vte")
4622     (version "0.28.2")
4623     (source (origin
4624               (method url-fetch)
4625               (uri (string-append "mirror://gnome/sources/" name "/"
4626                                   (version-major+minor version) "/"
4627                                   name "-" version ".tar.xz"))
4628               (sha256
4629                (base32
4630                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4631               (patches (search-patches
4632                          "vte-CVE-2012-2738-pt1.patch"
4633                          "vte-CVE-2012-2738-pt2.patch"))))
4634     (build-system gnu-build-system)
4635     (arguments
4636      '(#:configure-flags '("--disable-python")))
4637     (native-inputs
4638      (list pkg-config intltool
4639            `(,glib "bin")))   ; for glib-genmarshal, etc.
4640     (propagated-inputs
4641      (list gtk+-2 ; required by libvte.pc
4642            ncurses)))) ; required by libvte.la
4643
4644 (define-public vinagre
4645   (package
4646     (name "vinagre")
4647     (version "3.22.0")
4648     (source (origin
4649               (method url-fetch)
4650               (uri (string-append "mirror://gnome/sources/" name "/"
4651                                   (version-major+minor version) "/"
4652                                   name "-" version ".tar.xz"))
4653               (patches (search-patches "vinagre-newer-freerdp.patch"
4654                                        "vinagre-newer-rdp-parameters.patch"))
4655               (sha256
4656                (base32
4657                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4658     (build-system glib-or-gtk-build-system)
4659     (arguments
4660      ;; Disable -Werror and such, to avoid build failures on compilation
4661      ;; warnings.
4662      '(#:configure-flags '("--enable-compile-warnings=minimum"
4663                            "CFLAGS=-O2 -g -fcommon")
4664        #:phases
4665        (modify-phases %standard-phases
4666          (add-before 'install 'skip-gtk-update-icon-cache
4667            (lambda _
4668              ;; Don't create 'icon-theme.cache'
4669              (substitute* (find-files "." "^Makefile$")
4670                (("gtk-update-icon-cache") (which "true")))
4671              #t))
4672          (add-after 'unpack 'patch-configure
4673            (lambda _
4674              (substitute* "configure"
4675                (("freerdp") "freerdp2"))
4676              #t)))))
4677     (native-inputs
4678      `(("pkg-config" ,pkg-config)
4679        ("intltool" ,intltool)
4680        ("itstool" ,itstool)
4681        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4682     (inputs
4683      (list libxml2
4684            gtk-vnc
4685            gnome-keyring
4686            libsecret
4687            freerdp
4688            spice
4689            spice-gtk
4690            telepathy-glib
4691            vte))
4692     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4693     (synopsis "Remote desktop viewer for GNOME")
4694     (description "Vinagre is a remote display client supporting the VNC, SPICE
4695 and RDP protocols.")
4696     (license license:gpl3+)))
4697
4698 (define-public dconf
4699   (package
4700     (name "dconf")
4701     (version "0.40.0")
4702     (source (origin
4703               (method url-fetch)
4704               (uri (string-append
4705                     "mirror://gnome/sources/" name "/"
4706                     (version-major+minor version) "/"
4707                     name "-" version ".tar.xz"))
4708               (sha256
4709                (base32
4710                 "0cs5nayg080y8pb9b7qccm1ni8wkicdmqp1jsgc22110r6j24zyg"))))
4711     (build-system meson-build-system)
4712     (propagated-inputs
4713      ;; In Requires of dconf.pc.
4714      (list glib))
4715     (inputs
4716      (list gtk+ dbus))
4717     (native-inputs
4718      `(("bash-completion" ,bash-completion)
4719        ("libxslt" ,libxslt)                     ;for xsltproc
4720        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4721        ("docbook-xml" ,docbook-xml-4.2)
4722        ("docbook-xsl" ,docbook-xsl)
4723        ("glib:bin" ,glib "bin")
4724        ("gtk-doc" ,gtk-doc/stable)
4725        ("pkg-config" ,pkg-config)
4726        ("python" ,python)
4727        ("vala" ,vala)))
4728     (arguments
4729      `(#:glib-or-gtk? #t
4730        #:configure-flags '("-Dgtk_doc=true")
4731        #:phases (modify-phases %standard-phases
4732                   (add-after 'unpack 'increase-test-timeout
4733                     (lambda _
4734                       ;; On big-memory systems, the engine test may take
4735                       ;; much longer than the default of 30 seconds.
4736                       (substitute* "tests/meson.build"
4737                         (("test\\(unit_test\\[0\\], exe" all)
4738                          (string-append all ", timeout: 300"))))))))
4739     (home-page "https://developer.gnome.org/dconf/")
4740     (synopsis "Low-level GNOME configuration system")
4741     (description "Dconf is a low-level configuration system.  Its main purpose
4742 is to provide a backend to GSettings on platforms that don't already have
4743 configuration storage systems.")
4744     (license license:lgpl2.1+)))
4745
4746 (define-public json-glib-minimal
4747   (package
4748     (name "json-glib-minimal")
4749     (version "1.6.2")
4750     (source (origin
4751               (method url-fetch)
4752               (uri (string-append "mirror://gnome/sources/json-glib/"
4753                                   (version-major+minor version)
4754                                   "/json-glib-" version ".tar.xz"))
4755               (sha256
4756                (base32
4757                 "092g2dyy1hhl0ix9kp33wcab0pg1qicnsv0cj5ms9g9qs336cgd3"))))
4758     (build-system meson-build-system)
4759     (arguments
4760      `(#:glib-or-gtk? #t))           ; To wrap binaries and/or compile schemas
4761     (native-inputs
4762      `(("gettext" ,gettext-minimal)
4763        ("glib" ,glib "bin")             ;for glib-mkenums and glib-genmarshal
4764        ("pkg-config" ,pkg-config)))
4765     (inputs
4766      (list bash-minimal))
4767     (propagated-inputs
4768      (list glib))                 ;according to json-glib-1.0.pc
4769     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4770     (synopsis "Glib and GObject implementation of JSON")
4771     (description "JSON-GLib is a library providing serialization and
4772 described by RFC 4627.  It implements a full JSON parser and generator using
4773 GLib and GObject, and integrates JSON with GLib data types.")
4774     (license license:lgpl2.1+)))
4775
4776 (define-public json-glib
4777   (package/inherit json-glib-minimal
4778     (name "json-glib")
4779     (outputs (cons "doc" (package-outputs json-glib-minimal)))
4780     (arguments
4781      (substitute-keyword-arguments (package-arguments json-glib-minimal)
4782        ((#:configure-flags _)
4783         `(list "-Ddocs=true"
4784                "-Dman=true"
4785                ,@(if (%current-target-system)
4786                      ;; If enabled, gtkdoc-scangobj will try to execute a
4787                      ;; cross-compiled binary.
4788                      '("-Dgtk_doc=disabled"
4789                        ;; Trying to build introspection data when cross-compiling
4790                        ;; causes errors during linking.
4791                        "-Dintrospection=disabled")
4792                      '())))
4793        ((#:phases phases '%standard-phases)
4794         `(modify-phases ,phases
4795            (add-after 'unpack 'patch-docbook
4796              (lambda* (#:key native-inputs inputs #:allow-other-keys)
4797                (with-directory-excursion "doc"
4798                  (substitute* (find-files "." "\\.xml$")
4799                    (("http://www.oasis-open.org/docbook/xml/4\\.3/")
4800                     (string-append (assoc-ref (or native-inputs inputs)
4801                                               "docbook-xml")
4802                                    "/xml/dtd/docbook/")))
4803                  (substitute* "meson.build"
4804                    (("http://docbook.sourceforge.net/release/xsl/current/")
4805                     (string-append (assoc-ref (or native-inputs inputs)
4806                                               "docbook-xsl")
4807                                    "/xml/xsl/docbook-xsl-1.79.2/"))))))
4808            ;; When cross-compiling, there are no docs to move.
4809            ,(if (%current-target-system)
4810                 '(add-after 'install 'stub-docs
4811                    (lambda* (#:key outputs #:allow-other-keys)
4812                      ;; The daemon doesn't like empty output paths.
4813                      (mkdir (assoc-ref outputs "doc"))))
4814                 '(add-after 'install 'move-docs
4815                    (lambda* (#:key outputs #:allow-other-keys)
4816                      (let* ((out (assoc-ref outputs "out"))
4817                             (doc (assoc-ref outputs "doc")))
4818                        (mkdir-p (string-append doc "/share"))
4819                        (rename-file
4820                         (string-append out "/share/gtk-doc")
4821                         (string-append doc "/share/gtk-doc"))))))))))
4822     (native-inputs
4823      (append
4824          `(("docbook-xml" ,docbook-xml-4.3)
4825            ("docbook-xsl" ,docbook-xsl)
4826            ("gobject-introspection" ,gobject-introspection)
4827            ("gtk-doc" ,gtk-doc)
4828            ("xsltproc" ,libxslt))
4829          (package-native-inputs json-glib-minimal)))))
4830
4831 (define-public libxklavier
4832   (package
4833     (name "libxklavier")
4834     (version "5.4")
4835     (source (origin
4836               ;; Note: There's no tarball at ftp.gnome.org for this version.
4837               (method git-fetch)
4838               (uri (git-reference
4839                     (url "https://anongit.freedesktop.org/git/libxklavier")
4840                     (commit (string-append "libxklavier-" version))))
4841               (sha256
4842                (base32
4843                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4844               (file-name (git-file-name name version))))
4845     (build-system gnu-build-system)
4846     (arguments
4847      '(#:configure-flags
4848        (list (string-append "--with-xkb-base="
4849                             (assoc-ref %build-inputs "xkeyboard-config")
4850                             "/share/X11/xkb")
4851              "--disable-xmodmap-support")))
4852     (native-inputs
4853      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4854        ("gobject-introspection" ,gobject-introspection)
4855        ("pkg-config"            ,pkg-config)
4856        ("gtk-doc" ,gtk-doc/stable)
4857        ("intltool" ,intltool)
4858        ("which" ,which)
4859        ("autoconf" ,autoconf)
4860        ("automake" ,automake)
4861        ("libtool" ,libtool)))
4862     (propagated-inputs
4863      ;; Required by libxklavier.pc.
4864      (list glib libxml2))
4865     (inputs
4866      (list iso-codes libxi libxkbfile xkbcomp xkeyboard-config))
4867     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4868     (synopsis "High-level API for X Keyboard Extension")
4869     (description
4870      "LibXklavier is a library providing high-level API for X Keyboard
4871 Extension known as XKB.  This library is intended to support XFree86 and other
4872 commercial X servers.  It is useful for creating XKB-related software (layout
4873 indicators etc).")
4874     (license license:lgpl2.0+)))
4875
4876 (define-public glib-networking
4877   (package
4878     (name "glib-networking")
4879     (version "2.70.0")
4880     (source (origin
4881               (method url-fetch)
4882               (uri (string-append "mirror://gnome/sources/glib-networking/"
4883                                   (version-major+minor version) "/"
4884                                   "glib-networking-" version ".tar.xz"))
4885               (sha256
4886                (base32
4887                 "0dbg1na239mbavn4hknkax5sns9q2dbdnqw9wcpmhv58mzkhid36"))
4888               (patches
4889                (search-patches "glib-networking-gnutls-binding.patch"))))
4890     (build-system meson-build-system)
4891     (arguments
4892      (if (target-64bit?)
4893          '()
4894          (list #:phases
4895                #~(modify-phases %standard-phases
4896                    (add-after 'unpack 'work-around-32-bit-time-t
4897                      (lambda _
4898                        (invoke "patch" "--force" "-p1" "-i"
4899                                #$(local-file
4900                                   (search-patch
4901                                    "glib-networking-32-bit-time.patch")))))))))
4902     (native-inputs
4903      `(("pkg-config" ,pkg-config)
4904        ("gettext" ,gettext-minimal)))
4905     (inputs
4906      (list glib gnutls gsettings-desktop-schemas libproxy))
4907     (home-page "https://wiki.gnome.org/Projects/GLib")
4908     (synopsis "Network extensions for GLib")
4909     (description
4910      "Glib-networking contains the implementations of certain GLib networking
4911 features that cannot be implemented directly in GLib itself because of their
4912 dependencies.  Currently it contains GnuTLS and OpenSSL-based implementations of
4913 GTlsBackend, a libproxy-based implementation of GProxyResolver,
4914 GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
4915 from the GSettings schemas in gsettings-desktop-schemas.")
4916     (license license:lgpl2.1+)))
4917
4918 (define-public rest
4919   (package
4920     (name "rest")
4921     (version "0.8.1")
4922     (source (origin
4923               (method url-fetch)
4924               (uri (string-append "mirror://gnome/sources/rest/"
4925                                   (version-major+minor version) "/"
4926                                   name "-" version ".tar.xz"))
4927               (sha256
4928                (base32
4929                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4930     (build-system gnu-build-system)
4931     (arguments
4932      '(#:tests? #f ; tests require internet connection
4933        #:configure-flags
4934        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4935     (native-inputs
4936      `(("glib-mkenums" ,glib "bin")
4937        ("gobject-introspection" ,gobject-introspection)
4938        ("pkg-config" ,pkg-config)))
4939     (propagated-inputs
4940      ;; rest-0.7.pc refers to all these.
4941      `(("glib"    ,glib)
4942        ("libsoup" ,libsoup-minimal-2)
4943        ("libxml2" ,libxml2)))
4944     (home-page "https://www.gtk.org/")
4945     (synopsis "RESTful web api query library")
4946     (description
4947      "This library was designed to make it easier to access web services that
4948 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4949 libxml to ease remote use of the RESTful API.")
4950     (license license:lgpl2.1+)))
4951
4952 (define-public rest-next
4953   (package
4954     (inherit rest)
4955     (name "rest")
4956     (version "0.9.1")
4957     (source (origin
4958               (method url-fetch)
4959               (uri (string-append "mirror://gnome/sources/rest/"
4960                                   (version-major+minor version) "/"
4961                                   name "-" version ".tar.xz"))
4962               (sha256
4963                (base32
4964                 "1qy2291d2vprdbbxmf0sa98izk09nl3znzzv7lckwf6f1v0sarlj"))))
4965     (build-system meson-build-system)
4966     (arguments (substitute-keyword-arguments (package-arguments rest)
4967                  ((#:tests? _ #f) #t)
4968                  ((#:configure-flags _)
4969                   #~(list))
4970                  ((#:phases phases '%standard-phases)
4971                   #~(modify-phases #$phases
4972                       (add-after 'unpack 'disable-problematic-tests
4973                         ;; These tests require networking.
4974                         (lambda _
4975                           (substitute* "tests/meson.build"
4976                             ((".*'flickr',.*") "")
4977                             ((".*'lastfm',.*") ""))))
4978                       (add-before 'check 'prepare-for-tests
4979                         (lambda _
4980                           (setenv "HOME" "/tmp")))))))
4981     (native-inputs
4982      (modify-inputs (package-native-inputs rest)
4983        (append gettext-minimal
4984                gi-docgen
4985                gsettings-desktop-schemas)))
4986     (inputs (list gtksourceview json-glib libadwaita))
4987     (propagated-inputs
4988      (modify-inputs (package-propagated-inputs rest)
4989        (replace "libsoup" libsoup)
4990        (append json-glib)))))
4991
4992 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4993 (define-public libsoup-minimal
4994   (package
4995     (name "libsoup-minimal")
4996     (version "3.0.4")
4997     (source (origin
4998               (method url-fetch)
4999               (uri (string-append "mirror://gnome/sources/libsoup/"
5000                                   (version-major+minor version) "/"
5001                                   "libsoup-" version ".tar.xz"))
5002               (sha256
5003                (base32
5004                 "0ysnvvfd2f6w2z6g31spqqb8wgyamixc7mryzbbpyw0z15g8plsv"))))
5005     (build-system meson-build-system)
5006     (arguments
5007      `(#:configure-flags '("-Dgtk_doc=false")
5008        #:phases
5009        (modify-phases %standard-phases
5010          (add-after 'unpack 'adjust-tests
5011            (lambda _
5012              ;; This test fails due to missing /etc/nsswitch.conf
5013              ;; in the build environment.
5014              (substitute* "tests/socket-test.c"
5015                ((".*/sockets/unconnected.*") ""))
5016
5017              ;; These fail because "subdomain.localhost" does not resolve in
5018              ;; the build environment.  Moreover, the hsts-test suite fails on
5019              ;; i686-linux because of errors from `session_get_uri' like
5020              ;; "Unexpected status 200 OK (expected 301 Moved Permanently)"
5021              ;; (see: https://gitlab.gnome.org/GNOME/libsoup/-/issues/239).
5022              (substitute* "tests/meson.build"
5023                ((".*'name': 'hsts'.*") ""))
5024              (substitute* "tests/hsts-db-test.c"
5025                ((".*/hsts-db/subdomains.*") "")))))))
5026     (native-inputs
5027      (list `(,glib "bin") ;for glib-mkenums
5028            gobject-introspection
5029            intltool
5030            pkg-config
5031            python-wrapper
5032            vala
5033            curl
5034            gnutls ;for 'certtool'
5035            httpd))
5036     (propagated-inputs
5037      ;; libsoup-3.0.pc refers to all of these (except where otherwise noted)
5038      (list brotli
5039            glib
5040            glib-networking ; for GIO runtime modules
5041            libpsl
5042            nghttp2 ;for pkg-config
5043            `(,nghttp2 "lib")
5044            libxml2
5045            sqlite
5046            zlib))
5047     (inputs
5048      (list mit-krb5 samba/fixed))     ; For ntlm_auth support
5049     (home-page "https://wiki.gnome.org/Projects/libsoup")
5050     (synopsis "GLib-based HTTP Library")
5051     (description
5052      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
5053 and the GLib main loop, to integrate well with GNOME applications.")
5054     (license license:lgpl2.0+)))
5055
5056 ;;; An older variant kept to build the 'rest' package.
5057 (define-public libsoup-minimal-2
5058   (package/inherit libsoup-minimal
5059     (version "2.72.0")
5060     (source (origin
5061               (method url-fetch)
5062               (uri (string-append "mirror://gnome/sources/libsoup/"
5063                                   (version-major+minor version) "/"
5064                                   "libsoup-" version ".tar.xz"))
5065               (sha256
5066                (base32
5067                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
5068     (arguments
5069      (substitute-keyword-arguments (package-arguments libsoup-minimal)
5070        ((#:phases phases)
5071         `(modify-phases ,phases
5072            (add-after 'unpack 'disable-failing-tests
5073              (lambda _
5074                ;; Disable the SSL test, failing since 2.68 and resolved in
5075                ;; libsoup 3.
5076                (substitute* "tests/meson.build"
5077                  (("[ \t]*\\['ssl', true, \\[\\]\\],") ""))))))))
5078     (native-inputs
5079      (modify-inputs (package-native-inputs libsoup-minimal)
5080        (replace "vala" vala-0.52)))))
5081
5082 (define-public libsoup
5083   (package/inherit libsoup-minimal
5084     (name "libsoup")
5085     (outputs (cons "doc" (package-outputs libsoup-minimal)))
5086     (arguments
5087      (substitute-keyword-arguments (package-arguments libsoup-minimal)
5088        ((#:configure-flags configure-flags)
5089         `(cons "-Dgtk_doc=true"
5090                (delete "-Dgtk_doc=false" ,configure-flags)))
5091        ((#:phases phases)
5092         `(modify-phases ,phases
5093            (add-after 'unpack 'patch-docbook-xml
5094              (lambda* (#:key inputs #:allow-other-keys)
5095                (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
5096                                             "/xml/dtd/docbook")))
5097                  (substitute* (find-files "docs/reference")
5098                    (("http://.*/docbookx\\.dtd")
5099                     (string-append xmldoc "/docbookx.dtd"))))))
5100            (add-after 'install 'move-doc
5101              (lambda* (#:key outputs #:allow-other-keys)
5102                (let ((out (assoc-ref outputs "out"))
5103                      (doc (assoc-ref outputs "doc")))
5104                  (mkdir-p (string-append doc "/share"))
5105                  (copy-recursively (string-append out "/share/gtk-doc")
5106                                    (string-append doc "/share/gtk-doc"))
5107                  (delete-file-recursively
5108                   (string-append out "/share/gtk-doc")))))))))
5109     (native-inputs (modify-inputs (package-native-inputs libsoup-minimal)
5110                      (prepend docbook-xml-4.1.2 gtk-doc)))))
5111
5112 (define-public libsecret
5113   (package
5114     (name "libsecret")
5115     (version "0.20.4")
5116     (source (origin
5117               (method url-fetch)
5118               (uri (string-append
5119                     "mirror://gnome/sources/libsecret/"
5120                     (version-major+minor version) "/"
5121                     "libsecret-" version ".tar.xz"))
5122               (sha256
5123                (base32
5124                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
5125     (build-system gnu-build-system)
5126     (outputs '("out" "doc"))
5127     (arguments
5128      `(#:tests? #f ; FIXME: Testing hangs.
5129        #:configure-flags
5130        (list (string-append "--with-html-dir="
5131                             (assoc-ref %outputs "doc")
5132                             "/share/gtk-doc/html"))))
5133     (native-inputs
5134      `(("gettext" ,gettext-minimal)
5135        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5136        ("gobject-introspection" ,gobject-introspection)
5137        ("pkg-config" ,pkg-config)
5138        ("vala" ,vala)
5139        ("xsltproc" ,libxslt)))
5140     (propagated-inputs
5141      (list glib)) ; required by libsecret-1.pc
5142     (inputs
5143      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5144      ;; doesn't seem to affect the build result.
5145      (list docbook-xsl libgcrypt libxml2)) ; for XML_CATALOG_FILES
5146     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5147     (synopsis "GObject bindings for \"Secret Service\" API")
5148     (description
5149      "Libsecret is a GObject based library for storing and retrieving passwords
5150 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5151     (license license:lgpl2.1+)))
5152
5153 (define-public five-or-more
5154   (package
5155     (name "five-or-more")
5156     (version "3.32.3")
5157     (source
5158      (origin
5159        (method url-fetch)
5160        (uri (string-append "mirror://gnome/sources/five-or-more/"
5161                            (version-major+minor version) "/"
5162                            "five-or-more-" version ".tar.xz"))
5163        (sha256
5164         (base32 "1x4ys18rn37hsavivh532py2avj9686aycnn8ys29cyyxwpdf41d"))))
5165     (build-system meson-build-system)
5166     (arguments
5167      '(#:glib-or-gtk? #t
5168        #:phases
5169        (modify-phases %standard-phases
5170          (add-after 'unpack 'skip-gtk-update-icon-cache
5171            (lambda _
5172              (substitute* "meson_post_install.py"
5173                (("gtk-update-icon-cache") (which "true"))))))))
5174     (native-inputs
5175      (list appstream-glib
5176            desktop-file-utils
5177            `(,glib "bin")               ; for glib-compile-resources
5178            intltool
5179            itstool
5180            pkg-config
5181            vala))
5182     (inputs
5183      (list gtk+ libgnome-games-support librsvg libxml2))
5184     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5185     (synopsis "Logic puzzle game")
5186     (description "Five or More is a game where you try to align
5187  five or more objects of the same color and shape causing them to disappear.
5188  On every turn more objects will appear, until the board is full.
5189  Try to last as long as possible.")
5190     (license license:gpl2+)))
5191
5192 (define-public gi-docgen
5193   (package
5194     (name "gi-docgen")
5195     (version "2022.1")
5196     (source (origin
5197               (method url-fetch)
5198               (uri (pypi-uri "gi-docgen" version))
5199               (sha256
5200                (base32
5201                 "1v2wspm2ld27lq1n5v5pzrmkhchfa7p7ahp8rmjm4zcdyagqf7gr"))))
5202     (build-system python-build-system)
5203     (propagated-inputs (list python-jinja2
5204                              python-markdown
5205                              python-markupsafe
5206                              python-pygments
5207                              python-toml
5208                              python-typogrify))
5209     (home-page "https://gitlab.gnome.org/GNOME/gi-docgen")
5210     (synopsis "Documentation tool for GObject-based libraries")
5211     (description "GI-DocGen is a document generator for GObject-based
5212 libraries.  GObject is the base type system of the GNOME project.  GI-Docgen
5213 reuses the introspection data generated by GObject-based libraries to generate
5214 the API reference of these libraries, as well as other ancillary
5215 documentation.")
5216     (license license:gpl3+)))
5217
5218 (define-public gnome-mines
5219   (package
5220     (name "gnome-mines")
5221     (version "40.1")
5222     (source
5223      (origin
5224        (method url-fetch)
5225        (uri (string-append "mirror://gnome/sources/" name "/"
5226                            (version-major version) "/"
5227                            name "-" version ".tar.xz"))
5228        (sha256
5229         (base32 "0whjwdxhyw5bvibd9qvpm2yc5g7yhy8h3rn027kv5cqwyyryj0im"))))
5230     (build-system meson-build-system)
5231     (arguments
5232      `(#:glib-or-gtk? #t
5233        #:phases
5234        (modify-phases %standard-phases
5235          (add-after 'unpack 'skip-gtk-update-icon-cache
5236            (lambda _
5237              (substitute* "build-aux/meson_post_install.py"
5238                (("gtk-update-icon-cache") (which "true"))))))))
5239     (native-inputs
5240      (list appstream-glib
5241            desktop-file-utils
5242            gettext-minimal
5243            `(,glib "bin")               ; for glib-compile-resources
5244            itstool
5245            pkg-config
5246            python-wrapper               ; for meson_post_install.py
5247            vala))
5248     (inputs
5249      (list gtk+
5250            libgnome-games-support
5251            librsvg
5252            yelp))
5253     (home-page "https://wiki.gnome.org/Apps/Mines")
5254     (synopsis "Minesweeper game")
5255     (description
5256      "Mines (previously gnomine) is a puzzle game where you locate mines
5257 floating in an ocean using only your brain and a little bit of luck.")
5258     (license license:gpl2+)))
5259
5260 (define-public gnome-multi-writer
5261   (package
5262     (name "gnome-multi-writer")
5263     (version "3.35.90")
5264     (source
5265      (origin
5266        (method url-fetch)
5267        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5268                            (version-major+minor version) "/"
5269                            "gnome-multi-writer-" version ".tar.xz"))
5270        (sha256
5271         (base32
5272          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5273     (build-system meson-build-system)
5274     (arguments
5275      '(#:glib-or-gtk? #t
5276        #:phases
5277        (modify-phases %standard-phases
5278          (add-after 'unpack 'skip-post-install
5279            (lambda _
5280              (substitute* "meson.build"
5281                (("meson.add_install_script" &) (string-append "# " &)))
5282              #t)))))
5283     (native-inputs
5284      `(("glib:bin" ,glib "bin")
5285        ("pkg-config" ,pkg-config)))
5286     (inputs
5287      (list gtk+
5288            glib ; for gio
5289            gusb
5290            udisks
5291            libgudev
5292            libcanberra
5293            polkit))
5294     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5295     (synopsis "Write to multiple USB devices at once")
5296     (description
5297      "MultiWriter can be used to write an ISO file to multiple USB devices at
5298 once.")
5299     (license license:gpl2+)))
5300
5301 (define-public gnome-sudoku
5302   (package
5303     (name "gnome-sudoku")
5304     (version "42.0")
5305     (source
5306      (origin
5307        (method url-fetch)
5308        (uri (string-append "mirror://gnome/sources/" name "/"
5309                            (version-major version) "/"
5310                            name "-" version ".tar.xz"))
5311        (sha256
5312         (base32
5313          "13y2qphrj99b0lc7bh71is1f6i0jvyw8adfg8lv48sq2p3fv8bhx"))))
5314     (build-system meson-build-system)
5315     (arguments
5316      `(#:glib-or-gtk? #t
5317        #:phases
5318        (modify-phases %standard-phases
5319          (add-after 'unpack 'skip-gtk-update-icon-cache
5320            (lambda _
5321              (substitute* "build-aux/post_install.py"
5322                (("gtk-update-icon-cache") (which "true"))))))))
5323     (native-inputs
5324      (list desktop-file-utils
5325            gettext-minimal
5326            `(,glib "bin")               ;for glib-compile-resources
5327            itstool
5328            libxml2
5329            pkg-config
5330            python                       ;for 'build-aux/post_install.py'
5331            vala))
5332     (inputs
5333      (list gtk+
5334            json-glib
5335            libgee
5336            librsvg
5337            qqwing))
5338     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5339     (synopsis "Japanese logic game")
5340     (description
5341      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5342 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5343 possible while still providing features that make playing difficult Sudoku
5344 more fun.")
5345     (license license:gpl2+)))
5346
5347 (define-public gnome-terminal
5348   (package
5349     (name "gnome-terminal")
5350     (version "3.44.1")
5351     (source
5352      (origin
5353        (method url-fetch)
5354        (uri (string-append "mirror://gnome/sources/" name "/"
5355                            (version-major+minor version) "/"
5356                            name "-" version ".tar.xz"))
5357        (sha256
5358         (base32
5359          "0yykb64yi1h0g65q890jf5awjr2sdvfda4xbxnmajcgj3zp20vzv"))))
5360     (build-system meson-build-system)
5361     (arguments
5362      (list
5363       #:glib-or-gtk? #t
5364       #:phases
5365       #~(modify-phases %standard-phases
5366           (add-after 'unpack 'patch-build-system
5367             ;; The build system looks for a dbus file from gnome-shell in the
5368             ;; installation tree of teh package it is configuring...
5369             (lambda* (#:key inputs #:allow-other-keys)
5370               (substitute* "src/meson.build"
5371                 (("gt_prefix.*'org.gnome.ShellSearchProvider2.xml'")
5372                  (format #f "'~a'" (search-input-file
5373                                     inputs "share/dbus-1/interfaces/\
5374 org.gnome.ShellSearchProvider2.xml"))))))
5375           (add-before 'install 'disable-gtk-update-icon-cache
5376             (lambda _
5377               (setenv "DESTDIR" "/"))))))
5378     (native-inputs
5379      (list desktop-file-utils
5380            docbook-xsl
5381            gettext-minimal
5382            `(,glib "bin")
5383            itstool
5384            libxml2
5385            libxslt
5386            pkg-config
5387            python))
5388     (propagated-inputs
5389      (list dconf))
5390     (inputs
5391      (list gnome-shell
5392            gnutls
5393            gsettings-desktop-schemas
5394            gtk+
5395            nautilus                     ;for extension
5396            `(,util-linux "lib")
5397            vala
5398            vte))
5399     (home-page "https://wiki.gnome.org/Apps/Terminal")
5400     (synopsis "Terminal emulator")
5401     (description
5402      "GNOME Terminal is a terminal emulator application for accessing a
5403 UNIX shell environment which can be used to run programs available on
5404 your system.
5405
5406 It supports several profiles, multiple tabs and implements several
5407 keyboard shortcuts.")
5408     (license license:gpl3+)))
5409
5410 (define-public colord-minimal
5411   (package
5412     (name "colord-minimal")
5413     (version "1.4.5")
5414     (source
5415      (origin
5416        (method url-fetch)
5417        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5418                            "colord-" version ".tar.xz"))
5419        (sha256
5420         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5421     (build-system meson-build-system)
5422     (arguments
5423      '( ;; FIXME: One test fails:
5424        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5425        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5426        ;; application/x-zerosize
5427        #:tests? #f
5428        #:glib-or-gtk? #t
5429        #:configure-flags (list "-Dargyllcms_sensor=false" ;requires spotread
5430                                "-Dbash_completion=false"
5431                                "-Ddaemon_user=colord"
5432                                "-Ddocs=false"
5433                                "-Dlocalstatedir=/var"
5434                                "-Dman=false"
5435                                "-Dsane=true"
5436                                "-Dsystemd=false") ;no systemd
5437        #:phases
5438        (modify-phases %standard-phases
5439          (add-before 'configure 'patch-build-system
5440            (lambda* (#:key outputs #:allow-other-keys)
5441              (substitute* "rules/meson.build"
5442                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5443                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))))
5444          (add-before 'configure 'set-sqlite3-file-name
5445            (lambda* (#:key inputs #:allow-other-keys)
5446              ;; "colormgr dump" works by invoking the "sqlite3" command.
5447              ;; Record its absolute file name.
5448              (let ((sqlite (assoc-ref inputs "sqlite")))
5449                (substitute* "client/cd-util.c"
5450                  (("\"sqlite3\"")
5451                   (string-append "\"" sqlite "/bin/sqlite3\"")))))))))
5452     (native-inputs
5453      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5454        ("gettext" ,gettext-minimal)
5455        ("pkg-config" ,pkg-config)
5456        ("vala" ,vala)))
5457     (propagated-inputs
5458      ;; colord.pc refers to all these.
5459      `(("glib" ,glib)
5460        ("lcms" ,lcms)
5461        ("udev" ,eudev)))
5462     (inputs
5463      `(("dbus-glib" ,dbus-glib)
5464        ("gobject-introspection" ,gobject-introspection)
5465        ("gusb" ,gusb-minimal)
5466        ("libgudev" ,libgudev)
5467        ("libusb" ,libusb)
5468        ("polkit" ,polkit)
5469        ("python" ,python-wrapper)
5470        ("sqlite" ,sqlite)
5471        ("sane-backends" ,sane-backends)))
5472     (home-page "https://www.freedesktop.org/software/colord/")
5473     (synopsis "Color management service")
5474     (description "Colord is a system service that makes it easy to manage,
5475 install and generate color profiles to accurately color manage input and
5476 output devices.")
5477     (license license:gpl2+)))
5478
5479 (define-public colord
5480   (package/inherit colord-minimal
5481     (name "colord")
5482     (arguments
5483      (substitute-keyword-arguments
5484          (package-arguments colord-minimal)
5485        ((#:configure-flags flags)
5486         `(begin
5487            (use-modules (srfi srfi-1))
5488            (append '("-Dbash_completion=true"
5489                      "-Ddocs=true"
5490                      "-Dman=true"
5491                      "-Dvapi=true")
5492                (fold delete ,flags '("-Dbash_completion=false"
5493                                      "-Ddocs=false"
5494                                      "-Dman=false")))))
5495        ((#:phases phases)
5496         `(modify-phases ,phases
5497            (add-after 'unpack 'fix-bash-completion-dir
5498              (lambda* (#:key outputs #:allow-other-keys)
5499                (substitute* "data/meson.build"
5500                  (("bash_completion.get_pkgconfig_variable\
5501 \\('completionsdir'\\)")
5502                   (string-append "'" (assoc-ref outputs "out")
5503                                  "/etc/bash_completion.d'")))))))))
5504     (native-inputs
5505      (append
5506          `(("bash-completion" ,bash-completion)
5507            ("docbook-xsl-ns" ,docbook-xsl-ns)
5508            ("gtk-doc" ,gtk-doc/stable)
5509            ("libxml2" ,libxml2)         ;for XML_CATALOG_FILES
5510            ("libxslt" ,libxslt)
5511            ("vala" ,vala))              ;for VAPI, needed by simple-scan
5512          (package-native-inputs colord-minimal)))))
5513
5514 (define-public geoclue
5515   (package
5516     (name "geoclue")
5517     (version "2.6.0")
5518     (source
5519      (origin
5520        (method url-fetch)
5521        (uri
5522         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5523                        version "/geoclue-" version ".tar.bz2"))
5524        (sha256
5525         (base32 "1854i8lih1jkks5w38xv8k5gs7s8629qjg3cg96ji0ffk35yzjfd"))
5526        (patches (search-patches "geoclue-config.patch"))))
5527     (build-system meson-build-system)
5528     (arguments
5529      '(#:configure-flags (list "-Ddbus-srv-user=geoclue")))
5530     (native-inputs
5531      (list pkg-config
5532            gobject-introspection
5533            modem-manager
5534            libnotify
5535            gtk-doc/stable
5536            gettext-minimal
5537            vala))
5538     (inputs
5539      (list avahi
5540            `(,glib "bin")
5541            glib-networking
5542            json-glib
5543            libsoup-minimal-2))
5544     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5545     (synopsis "Geolocation service")
5546     (description "Geoclue is a D-Bus service that provides location
5547 information.  The primary goal of the Geoclue project is to make creating
5548 location-aware applications as simple as possible, while the secondary goal is
5549 to ensure that no application can access location information without explicit
5550 permission from user.")
5551     (license license:gpl2+)))
5552
5553 (define-public geocode-glib
5554   (package
5555     (name "geocode-glib")
5556     (version "3.26.4")
5557     (source (origin
5558               (method url-fetch)
5559               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5560                                   (version-major+minor version) "/"
5561                                   "geocode-glib-" version ".tar.xz"))
5562               (sha256
5563                (base32
5564                 "1aipd82qk404qy88pyfgplzgi83db4hi51vkl54h8isqs4k6i6id"))))
5565     (build-system meson-build-system)
5566     (arguments
5567      (list
5568       #:configure-flags #~(list "-Dsoup2=false")
5569       #:phases
5570       #~(modify-phases %standard-phases
5571           ;; The tests require a bunch of locales.
5572           (add-before 'check 'set-locales
5573             (lambda* (#:key inputs #:allow-other-keys)
5574               (setenv "GUIX_LOCPATH"
5575                       (search-input-directory inputs "lib/locale")))))))
5576     (native-inputs
5577      (list `(,glib "bin")               ;for glib-mkenums
5578            glibc-locales                ;for tests
5579            gettext-minimal
5580            gobject-introspection
5581            gtk-doc/stable
5582            pkg-config
5583            json-glib))
5584     (propagated-inputs
5585      ;; geocode-glib-2.0.pc refers to GIO.
5586      (list glib))
5587     (inputs
5588      (list libsoup))
5589     (home-page "https://github.com/GNOME/geocode-glib/")
5590     (synopsis "Geocoding and reverse-geocoding library")
5591     (description
5592      "geocode-glib is a convenience library for geocoding (finding longitude,
5593 and latitude from an address) and reverse geocoding (finding an address from
5594 coordinates) using the Nominatim service.  geocode-glib caches requests for
5595 faster results and to avoid unnecessary server load.")
5596     (license license:lgpl2.0+)))
5597
5598 (define-public geocode-glib-with-libsoup2
5599   (package
5600     (inherit geocode-glib)
5601     (name "geocode-glib-with-libsoup2")
5602     (arguments (substitute-keyword-arguments (package-arguments geocode-glib)
5603                  ((#:configure-flags flags ''())
5604                   #~(delete "-Dsoup2=false" #$flags))))
5605     (inputs (modify-inputs (package-inputs geocode-glib)
5606               (replace "libsoup" libsoup-minimal-2)))))
5607
5608 (define-public upower
5609   (package
5610     (name "upower")
5611     (version "1.90.0")
5612     (source
5613      (origin
5614        (method git-fetch)
5615        (uri (git-reference
5616              (url "https://gitlab.freedesktop.org/upower/upower")
5617              (commit (string-append "v" version))))
5618        (file-name (git-file-name name version))
5619        (sha256
5620         (base32 "1g17rm91p8vfpjyb0k2shylrs55nccn3fa890vlk4n9s71sghbzq"))
5621        (modules '((guix build utils)))
5622        (snippet
5623         ;; Upstream commit <https://cgit.freedesktop.org/upower/commit/
5624         ;; ?id=18457c99b68786cd729b315723d680e6860d9cfa> moved
5625         ;; 'dbus-1/system.d' from etc/ to share/.  However,
5626         ;; 'dbus-configuration-directory' in (gnu services dbus) expects it in
5627         ;; etc/.  Thus, move it back to its previous location.
5628         #~(substitute* "src/meson.build"
5629             (("dbusdir / 'system.d'")
5630              "get_option('sysconfdir') / 'dbus-1/system.d'")
5631             ;; Avoid writing to /var during the build, this is
5632             ;; not possible in Guix!
5633             (("^install_subdir\\('does-not-exist'.*$") "")))))
5634     (build-system meson-build-system)
5635     (arguments
5636      (list
5637       #:glib-or-gtk? #t
5638       #:configure-flags
5639       #~(list "-Dsystemdsystemunitdir=no"
5640               ;; If not specified, udev will try putting history information
5641               ;; in /gnu/store.
5642               "-Dhistorydir=/var/lib/upower"
5643               (string-append "-Dudevrulesdir=" #$output "/bin/udev/rules.d"))))
5644     (native-inputs
5645      (list `(,glib "bin")               ; for gdbus-codegen
5646            gobject-introspection
5647            gtk-doc
5648            intltool
5649            pkg-config
5650            python
5651            ;; For tests.
5652            python-dbus
5653            python-dbusmock
5654            python-packaging
5655            python-pygobject
5656            umockdev
5657            ;; For man pages.
5658            docbook-xsl
5659            libxslt                      ; for 'xsltproc'
5660            libxml2))                    ; for 'XML_CATALOG_FILES'
5661     (inputs
5662      (list dbus-glib libgudev libusb))
5663     (propagated-inputs
5664      ;; In Requires of upower-glib.pc.
5665      (list glib))
5666     (home-page "https://upower.freedesktop.org/")
5667     (synopsis "System daemon for managing power devices")
5668     (description
5669      "UPower is an abstraction for enumerating power devices,
5670 listening to device events and querying history and statistics.  Any
5671 application or service on the system can access the org.freedesktop.UPower
5672 service via the system message bus.")
5673     (license license:gpl2+)
5674     ;; Old versions of upower are tagged as UPOWER_0_99_13, which confuses
5675     ;; the 'generic-git' updater.  Give it a little help.
5676     (properties '((release-tag-prefix . "v")
5677                   (release-tag-version-delimiter . ".")))))
5678
5679 (define-public libgweather
5680   (package
5681     (name "libgweather")
5682     (version "40.0")
5683     (source (origin
5684               (method url-fetch)
5685               (uri (string-append "mirror://gnome/sources/" name "/"
5686                                   (version-major version) "/"
5687                                   name "-" version ".tar.xz"))
5688               (sha256
5689                (base32
5690                 "1rkf4yv43qcahyx7bismdv6z2vh5azdnm1fqfmnzrada9cm8ykna"))))
5691     (build-system meson-build-system)
5692     (arguments
5693      (list
5694       #:tests? #f                    ;one of two tests requires network access
5695       #:configure-flags
5696       #~(list (string-append "-Dzoneinfo_dir="
5697                              (search-input-directory %build-inputs
5698                                                      "share/zoneinfo")))))
5699     (native-inputs
5700      (list gettext-minimal
5701            `(,glib "bin")               ;for glib-mkenums
5702            gobject-introspection
5703            pkg-config
5704            python
5705            vala
5706            python-pygobject))
5707     (propagated-inputs
5708      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5709      ;; libsoup.
5710      (list gtk+ gdk-pixbuf libxml2 libsoup-minimal-2 geocode-glib))
5711     (inputs
5712      (list tzdata))
5713     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5714     (synopsis "Location, time zone, and weather library for GNOME")
5715     (description
5716      "libgweather is a library to access weather information from online
5717 services for numerous locations.")
5718     (license license:gpl2+)))
5719
5720 ;; libgweather no longer follows the GNOME version, and recommends changing
5721 ;; the package name in distributions to avoid accidental downgrades.  See
5722 ;; <https://discourse.gnome.org/t/changes-in-libgweather-for-gnome-42/7770/2>.
5723 ;; TODO: how to prevent the updater from picking version 40?
5724 (define-public libgweather4
5725   (package
5726     (inherit libgweather)
5727     (name "libgweather4")
5728     (version "4.1.1")
5729     (source (origin
5730               (method url-fetch)
5731               (uri (string-append "mirror://gnome/sources/libgweather/"
5732                                   (version-major+minor version) "/"
5733                                   "libgweather-" version ".tar.xz"))
5734               (sha256
5735                (base32
5736                 "1wh3asniv5yiqp0dsk96as2bkx72hamh3ij2md8k0is9yd7ppbjm"))))
5737     (arguments
5738      (list
5739       #:configure-flags
5740       #~(list (string-append "-Dzoneinfo_dir="
5741                              (search-input-directory %build-inputs
5742                                                      "share/zoneinfo")))
5743       #:phases
5744       #~(modify-phases %standard-phases
5745           (add-after 'unpack 'set-HOME
5746             (lambda _
5747               (setenv "HOME" "/tmp")))
5748           (add-after 'unpack 'disable-problematic-tests
5749             (lambda _
5750               (substitute* "libgweather/tests/meson.build"
5751                 ;; The timezones test fails for unknown reasons (see:
5752                 ;; https://gitlab.gnome.org/GNOME/libgweather/-/issues/188).
5753                 ((".*'name': 'timezones'.*") "")
5754                 ;; The 'metar' test is known to fail, fixed but not yet released
5755                 ;; upstream (see:
5756                 ;; https://gitlab.gnome.org/GNOME/libgweather/-/issues/168).
5757                 ((".*'name': 'metar'.*") ""))))
5758           (delete 'check)               ;move after the install phase
5759           (add-after 'install 'check
5760             (assoc-ref %standard-phases 'check)))))
5761     (native-inputs
5762      (list gettext-minimal
5763            gi-docgen
5764            `(,glib "bin")               ;for glib-mkenums
5765            gobject-introspection
5766            glibc-utf8-locales
5767            gsettings-desktop-schemas
5768            pkg-config
5769            python
5770            python-pygobject
5771            vala))
5772     ;; TODO: It would be good to make the package respect TZDIR instead
5773     ;; of using a "hard coded" version of tzdata.
5774     (inputs (list tzdata))
5775     (propagated-inputs
5776      ;; gweather4.pc refers to all of these.
5777      (list geocode-glib
5778            glib
5779            json-glib
5780            libsoup
5781            libxml2))))
5782
5783 (define-public libgweather4-with-libsoup2
5784   (package
5785     (inherit libgweather4)
5786     (name "libgweather4-with-libsoup2")
5787     (arguments (substitute-keyword-arguments (package-arguments libgweather4)
5788                  ((#:configure-flags flags)
5789                   #~(cons "-Dsoup2=true" #$flags))))
5790     (propagated-inputs
5791      (modify-inputs (package-propagated-inputs libgweather4)
5792        (replace "geocode-glib" geocode-glib-with-libsoup2)
5793        (replace "libsoup" libsoup-minimal-2)))))
5794
5795 (define-public gnome-settings-daemon
5796   (package
5797     (name "gnome-settings-daemon")
5798     (version "42.2")
5799     (source
5800      (origin
5801        (method url-fetch)
5802        (uri (string-append "mirror://gnome/sources/" name "/"
5803                            (version-major version) "/"
5804                            name "-" version ".tar.xz"))
5805        (sha256
5806         (base32
5807          "005b1dvrfcyr6n4srl6c0lzr95c18prps4xm1lf2ghcfm8a9fi4w"))
5808        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5809     (build-system meson-build-system)
5810     (arguments
5811      (list
5812       #:glib-or-gtk? #t
5813       #:configure-flags
5814       #~(list (string-append "-Dudev_dir=" #$output "/lib/udev")
5815               "-Dsystemd=false"
5816               ;; Otherwise, the RUNPATH will lack the final path component.
5817               (string-append "-Dc_link_args=-Wl,-rpath=" #$output
5818                              "/lib/gnome-settings-daemon-3.0"))
5819       #:phases
5820       #~(modify-phases %standard-phases
5821           (add-before 'configure 'set-baobab-file-name
5822             (lambda* (#:key inputs #:allow-other-keys)
5823               ;; Hard-code the file name of Baobab instead of looking
5824               ;; it up in $PATH.  This ensures users get the "Examine"
5825               ;; button in the low disk space notification of GDM even
5826               ;; if they don't have GNOME in their main profile.
5827               (substitute* "plugins/housekeeping/gsd-disk-space.c"
5828                 (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5829                  (format #f "g_strdup (~s)"
5830                          (search-input-file inputs "bin/baobab")))))))
5831       ;; Color management test can't reach the colord system service.
5832       #:tests? #f))
5833     (native-inputs
5834      (list docbook-xml-4.2
5835            docbook-xsl
5836            gettext-minimal
5837            `(,glib "bin")               ;for glib-mkenums
5838            libxml2                      ;for XML_CATALOG_FILES
5839            libxslt
5840            perl
5841            pkg-config))
5842     (inputs
5843      (list alsa-lib
5844            baobab
5845            colord
5846            cups
5847            gcr
5848            geoclue
5849            geocode-glib-with-libsoup2
5850            gnome-desktop
5851            gsettings-desktop-schemas-next
5852            lcms
5853            libcanberra
5854            libgudev
5855            libgweather4-with-libsoup2
5856            libnotify
5857            (librsvg-for-system)
5858            libwacom
5859            libx11
5860            libxtst
5861            modem-manager
5862            network-manager
5863            nss
5864            polkit
5865            pulseaudio
5866            upower
5867            wayland
5868            xf86-input-wacom))
5869     (home-page "https://www.gnome.org")
5870     (synopsis "GNOME settings daemon")
5871     (description
5872      "This package contains the daemon responsible for setting the various
5873 parameters of a GNOME session and the applications that run under it.  It
5874 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5875 settings, themes, mouse settings, and startup of other daemons.")
5876     (license license:gpl2+)))
5877
5878 (define-public totem-pl-parser
5879  (package
5880    (name "totem-pl-parser")
5881    (version "3.26.6")
5882    (source (origin
5883             (method url-fetch)
5884             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5885                                 (version-major+minor version) "/"
5886                                 "totem-pl-parser-" version ".tar.xz"))
5887             (sha256
5888              (base32
5889               "075csd5x0frgf93jvhlqiwv5i0qm24zz3iw17jj7v7fgsml0zpy0"))))
5890    (build-system meson-build-system)
5891    (arguments
5892     ;; FIXME: Tests require gvfs.
5893     `(#:tests? #f))
5894    (native-inputs
5895     (list intltool
5896           `(,glib "bin") gobject-introspection pkg-config))
5897    (propagated-inputs
5898     (list glib gmime libarchive libgcrypt libxml2))
5899    (inputs
5900     (list libsoup))
5901    (home-page "https://projects.gnome.org/totem")
5902    (synopsis "Library to parse and save media playlists for GNOME")
5903    (description "Totem-pl-parser is a GObjects-based library to parse and save
5904 playlists in a variety of formats.")
5905    (license license:lgpl2.0+)))
5906
5907 (define-public aisleriot
5908   (package
5909     (name "aisleriot")
5910     (version "3.22.9")
5911     (source (origin
5912               (method url-fetch)
5913               (uri (string-append "mirror://gnome/sources/aisleriot/"
5914                                   (version-major+minor version) "/"
5915                                   "aisleriot-" version ".tar.xz"))
5916               (sha256
5917                (base32
5918                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5919     (build-system glib-or-gtk-build-system)
5920     (arguments
5921      '(#:configure-flags
5922        '("--with-platform=gtk-only"
5923          "--with-card-theme-formats=svg")))
5924     (native-inputs
5925      `(("desktop-file-utils" ,desktop-file-utils)
5926        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5927        ("intltool" ,intltool)
5928        ("itstool" ,itstool)
5929        ("pkg-config" ,pkg-config)
5930        ("xmllint" ,libxml2)))
5931     (inputs
5932      (list gtk+ guile-2.2 libcanberra librsvg))
5933     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5934     (synopsis "Solitaire card games")
5935     (description
5936      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5937 which are easy to play with the aid of a mouse.")
5938     (license license:gpl3+)))
5939
5940 (define-public amtk
5941   (package
5942     (name "amtk")
5943     (version "5.3.1")
5944     (source (origin
5945               (method url-fetch)
5946               (uri (string-append "mirror://gnome/sources/amtk/"
5947                                   (version-major+minor version) "/"
5948                                   "amtk-" version ".tar.xz"))
5949               (sha256
5950                (base32
5951                 "12v3nj1bb7507ndprjggq0hpz8k719b4bwvl8sm43p3ibmn27anm"))))
5952     (build-system meson-build-system)
5953     (native-inputs
5954      (list gobject-introspection
5955            `(,glib "bin") ; for glib-mkenums
5956            gtk-doc/stable pkg-config))
5957     (inputs
5958      (list glib gtk+))
5959     (home-page "https://wiki.gnome.org/Projects/Amtk")
5960     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5961     (description
5962      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5963 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5964 both a traditional UI or a modern UI with a GtkHeaderBar.")
5965     (license license:lgpl2.1+)))
5966
5967 (define-public devhelp
5968   (package
5969     (name "devhelp")
5970     (version "41.2")
5971     (source (origin
5972               (method url-fetch)
5973               (uri (string-append "mirror://gnome/sources/" name "/"
5974                                   (version-major version) "/"
5975                                   name "-" version ".tar.xz"))
5976               (sha256
5977                (base32
5978                 "1lk0gycjvs6gibhy0zs3ffkrkzrkyl5nkp7n60hgpa6syjq91apc"))))
5979     (build-system meson-build-system)
5980     (arguments
5981      `(#:glib-or-gtk? #t
5982        #:phases
5983        (modify-phases %standard-phases
5984          (add-after 'unpack 'skip-gtk-update-icon-cache
5985            ;; Don't create 'icon-theme.cache'.
5986            (lambda _
5987              (substitute* "build-aux/meson/meson_post_install.py"
5988                (("gtk-update-icon-cache") "true"))))
5989          (add-after 'unpack 'fix-devhelp-gir-inputs
5990            ;; It still mentions webkitgtk 4.0
5991            (lambda _
5992              (substitute* "devhelp/meson.build"
5993                (("'WebKit2-4.0'") "'WebKit2-4.1'")))))))
5994     (propagated-inputs
5995      (list gsettings-desktop-schemas))
5996     (native-inputs
5997      `(("intltool" ,intltool)
5998        ("itstool" ,itstool)
5999        ("gobject-introspection" ,gobject-introspection)
6000        ("glib:bin" ,glib "bin") ; for glib-mkmenus
6001        ("pkg-config" ,pkg-config)))
6002     (inputs
6003      (list amtk gsettings-desktop-schemas webkitgtk))
6004     (home-page "https://wiki.gnome.org/Apps/Devhelp")
6005     (synopsis "API documentation browser for GNOME")
6006     (description
6007      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
6008 natively with GTK-Doc (the API reference system developed for GTK+ and used
6009 throughout GNOME for API documentation).")
6010     (license license:gpl2+)))
6011
6012 (define-public devhelp-with-libsoup2
6013   (package/inherit devhelp
6014     (arguments
6015      (substitute-keyword-arguments (package-arguments devhelp)
6016        ((#:phases phases '%standard-phases)
6017         `(modify-phases %standard-phases
6018            (add-after 'unpack 'skip-gtk-update-icon-cache
6019              ;; Don't create 'icon-theme.cache'.
6020              (lambda _
6021                (substitute* "build-aux/meson/meson_post_install.py"
6022                  (("gtk-update-icon-cache") "true"))))))))
6023     (inputs
6024      `(("amtk" ,amtk)
6025        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6026        ("webkitgtk" ,webkitgtk-with-libsoup2)))))
6027
6028 (define-public cogl
6029   (package
6030     (name "cogl")
6031     (version "1.22.8")
6032     (source
6033      (origin
6034        (method url-fetch)
6035        (uri (string-append "mirror://gnome/sources/cogl/"
6036                            (version-major+minor version) "/"
6037                            "cogl-" version ".tar.xz"))
6038        (sha256
6039         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
6040     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
6041     ;; cogl, corresponding changes may be appropriate in mutter as well.
6042     (build-system gnu-build-system)
6043     (native-inputs
6044      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
6045        ("gobject-introspection" ,gobject-introspection)
6046        ("xorg-server" ,xorg-server-for-tests)
6047        ("pkg-config" ,pkg-config)))
6048     (propagated-inputs
6049      (list glib
6050            gdk-pixbuf
6051            libx11
6052            libxext
6053            libxfixes
6054            libxdamage
6055            libxcomposite
6056            libxrandr))
6057     (inputs
6058      (list mesa
6059            cairo
6060            pango
6061            gstreamer
6062            gst-plugins-base
6063            wayland))
6064     (arguments
6065      `(#:disallowed-references (,xorg-server-for-tests)
6066        #:configure-flags (list "--enable-cogl-gst"
6067                                "--enable-wayland-egl-platform"
6068                                "--enable-wayland-egl-server"
6069
6070                                ;; Arrange to pass an absolute file name to
6071                                ;; dlopen for libGL.so.
6072                                (string-append "--with-gl-libname="
6073                                               (assoc-ref %build-inputs "mesa")
6074                                               "/lib/libGL.so"))
6075        #:phases
6076        (modify-phases %standard-phases
6077          (add-after 'unpack 'fix-build-with-mesa-20
6078            (lambda _
6079              ;; Work around a problem with Mesa 20 where some macros used by
6080              ;; Cogl went missing from eglext.h.  This can likely be removed
6081              ;; for newer versions of Cogl or Mesa.
6082              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
6083              (substitute* '("configure"
6084                             "cogl/winsys/cogl-winsys-egl-kms.c")
6085                (("#include <EGL/eglext.h>" all)
6086                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
6087              #t))
6088          (add-before 'check 'start-xorg-server
6089            (lambda* (#:key tests? inputs #:allow-other-keys)
6090              (if tests?
6091                  (begin
6092                    ;; The test suite requires a running X server.
6093                    (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
6094                                    (assoc-ref inputs "xorg-server")))
6095                    (setenv "DISPLAY" ":1")
6096                    #t)
6097                  (format #t "test suite not run~%"))
6098              #t)))))
6099     (home-page "http://www.clutter-project.org")
6100     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
6101     (description
6102      "Cogl is a small library for using 3D graphics hardware to draw pretty
6103 pictures.  The API departs from the flat state machine style of OpenGL and is
6104 designed to make it easy to write orthogonal components that can render
6105 without stepping on each others toes.")
6106     (license (list license:expat       ; most of the code
6107                    license:bsd-3       ; cogl/cogl-point-in-poly.c
6108                    license:sgifreeb2.0 ; cogl-path/tesselator/
6109                    license:asl2.0))))  ; examples/android/
6110
6111 (define-public clutter
6112   (package
6113     (name "clutter")
6114     (version "1.26.4")
6115     (source
6116      (origin
6117        (method url-fetch)
6118        (uri (string-append "mirror://gnome/sources/" name "/"
6119                            (version-major+minor version) "/"
6120                            name "-" version ".tar.xz"))
6121        (sha256
6122         (base32
6123          "1rn4cd1an6a9dfda884aqpcwcgq8dgydpqvb19nmagw4b70zlj4b"))))
6124     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
6125     ;; to clutter, corresponding changes may be appropriate in mutter as well.
6126     (build-system gnu-build-system)
6127     (outputs '("out"
6128                "doc"))                  ;9 MiB of gtk-doc HTML pages
6129     (native-inputs
6130      (list `(,glib "bin")               ; for glib-genmarshal
6131            gobject-introspection
6132            libxslt
6133            pkg-config))
6134     (propagated-inputs
6135      (list atk
6136            cairo
6137            cogl
6138            glib
6139            gtk+
6140            json-glib
6141            libxcomposite
6142            libxdamage
6143            libxext
6144            xinput))
6145     (inputs
6146      (list eudev
6147            libxkbcommon))
6148     (arguments
6149      `(#:configure-flags (list "--enable-x11-backend=yes"
6150
6151                                ;; This produces share/doc/{clutter,cally}.
6152                                (string-append "--with-html-dir="
6153                                               (assoc-ref %outputs "doc")
6154                                               "/share/doc"))
6155        ;; XXX FIXME: Get test suite working.  It would probably fail in the
6156        ;; same way the cogl tests fail, since clutter is based on cogl.
6157        #:tests? #f))
6158     (home-page "https://blogs.gnome.org/clutter/")
6159     (synopsis "OpenGL-based interactive canvas library")
6160     (description
6161      "Clutter is an OpenGL-based interactive canvas library, designed for
6162 creating fast, mainly 2D single window applications such as media box UIs,
6163 presentations, kiosk style applications and so on.")
6164     (license license:lgpl2.0+)))
6165
6166 (define-public clutter-gtk
6167   (package
6168     (name "clutter-gtk")
6169     (version "1.8.4")
6170     (source
6171      (origin
6172        (method url-fetch)
6173        (uri (string-append "mirror://gnome/sources/" name "/"
6174                            (version-major+minor version) "/"
6175                            name "-" version ".tar.xz"))
6176        (sha256
6177         (base32
6178          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
6179     (build-system gnu-build-system)
6180     (native-inputs
6181      (list pkg-config gobject-introspection))
6182     (propagated-inputs
6183      ;; clutter-gtk.pc refers to all these.
6184      (list clutter gtk+))
6185     (home-page "http://www.clutter-project.org")
6186     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
6187     (description
6188      "Clutter is an OpenGL-based interactive canvas library, designed for
6189 creating fast, mainly 2D single window applications such as media box UIs,
6190 presentations, kiosk style applications and so on.")
6191     (license license:lgpl2.0+)))
6192
6193 (define-public clutter-gst
6194   (package
6195     (name "clutter-gst")
6196     (version "3.0.27")
6197     (source
6198      (origin
6199        (method url-fetch)
6200        (uri (string-append "mirror://gnome/sources/clutter-gst/"
6201                            (version-major+minor version) "/"
6202                            "clutter-gst-" version ".tar.xz"))
6203        (sha256
6204         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
6205     (build-system gnu-build-system)
6206     (native-inputs
6207      (list `(,glib "bin") ; for glib-mkenums
6208            pkg-config gobject-introspection))
6209     (inputs
6210      (list clutter gstreamer gst-plugins-base))
6211     (home-page "http://www.clutter-project.org")
6212     (synopsis "Integration library for using GStreamer with Clutter")
6213     (description
6214      "Clutter-Gst is an integration library for using GStreamer with Clutter.
6215 It provides a GStreamer sink to upload frames to GL and an actor that
6216 implements the ClutterGstPlayer interface using playbin.  Clutter is an
6217 OpenGL-based interactive canvas library.")
6218     (license license:lgpl2.0+)))
6219
6220 (define-public libchamplain
6221   (package
6222     (name "libchamplain")
6223     (version "0.12.20")
6224     (source (origin
6225               (method url-fetch)
6226               (uri (string-append
6227                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
6228                     version ".tar.xz"))
6229               (sha256
6230                (base32
6231                 "0rihpb0npqpihqcdz4w03rq6xl7jdckfqskvv9diq2hkrnzv8ch2"))))
6232     (build-system meson-build-system)
6233     (native-inputs
6234      (list gobject-introspection pkg-config vala))
6235     (propagated-inputs
6236      (list libsoup-minimal-2
6237            sqlite
6238            clutter
6239            clutter-gtk
6240            `(,glib "bin") ;glib-mkenums, etc.
6241            cairo
6242            gtk+
6243            glib))
6244     (home-page "https://projects.gnome.org/libchamplain/")
6245     (synopsis "C library providing a ClutterActor to display maps")
6246     (description
6247      "libchamplain is a C library providing a ClutterActor to display maps.
6248 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
6249 and Perl bindings are also available.  It supports numerous free map sources
6250 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
6251     (license license:lgpl2.1+)))
6252
6253 (define-public gom
6254   (package
6255     (name "gom")
6256     (version "0.3.2")
6257     (source
6258      (origin
6259        (method url-fetch)
6260        (uri (string-append "mirror://gnome/sources/gom/"
6261                            (version-major+minor version) "/"
6262                            "gom-" version ".tar.xz"))
6263        (sha256
6264         (base32
6265          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
6266     (build-system gnu-build-system)
6267     (native-inputs
6268      (list intltool pkg-config gobject-introspection))
6269     (inputs
6270      (list glib gdk-pixbuf sqlite))
6271     ;; XXX TODO: Figure out how to run the test suite.
6272     (arguments `(#:tests? #f))
6273     (home-page "https://wiki.gnome.org/Projects/Gom")
6274     (synopsis "Object mapper from GObjects to SQLite")
6275     (description
6276      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6277 write applications that need to store structured data as well as make complex
6278 queries upon that data.")
6279     (license license:lgpl2.1+)))
6280
6281 (define-public libgnome-games-support
6282   (package
6283     (name "libgnome-games-support")
6284     (version "1.7.1")
6285     (source (origin
6286               (method url-fetch)
6287               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6288                                   (version-major+minor version) "/"
6289                                   "libgnome-games-support-" version ".tar.xz"))
6290               (sha256
6291                (base32
6292                 "11g1r3ppb9v8m3anks9gxf7fv1x38vmjiya3lr7zjjv328pb69d6"))))
6293     (build-system meson-build-system)
6294     (arguments
6295       '(#:glib-or-gtk? #t
6296         #:phases
6297           (modify-phases %standard-phases
6298             (add-before 'check 'pre-check
6299               (lambda _
6300                 ;; Tests require a writable HOME.
6301                 (setenv "HOME" (getcwd))
6302                 #t)))))
6303     (native-inputs
6304      (list intltool pkg-config vala))
6305     (propagated-inputs
6306      ;; Required by libgnome-games-support-1.0.pc
6307      (list gtk+ libgee))
6308     (home-page "https://www.gnome.org/")
6309     (synopsis "Useful functionality shared among GNOME games")
6310     (description
6311      "libgnome-games-support is a small library intended for internal use by
6312 GNOME Games, but it may be used by others.")
6313     (license license:lgpl3+)))
6314
6315 (define-public gnome-klotski
6316   (package
6317     (name "gnome-klotski")
6318     (version "3.34.0")
6319     (source (origin
6320               (method url-fetch)
6321               (uri (string-append "mirror://gnome/sources/" name "/"
6322                                   (version-major+minor version) "/"
6323                                   name "-" version ".tar.xz"))
6324               (sha256
6325                (base32
6326                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6327     (build-system meson-build-system)
6328     (arguments
6329      '(#:glib-or-gtk? #t
6330        #:phases
6331        (modify-phases %standard-phases
6332          (add-after 'unpack 'skip-gtk-update-icon-cache
6333            ;; Don't create 'icon-theme.cache'.
6334            (lambda _
6335              (substitute* "build-aux/meson_post_install.py"
6336                (("gtk-update-icon-cache") (which "true")))
6337              #t)))))
6338     (native-inputs
6339      `(("desktop-file-utils" ,desktop-file-utils)
6340        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6341        ("intltool" ,intltool)
6342        ("itstool" ,itstool)
6343        ("pkg-config" ,pkg-config)
6344        ("vala" ,vala)
6345        ("xmllint" ,libxml2)))
6346     (inputs
6347      (list gtk+ libgnome-games-support librsvg))
6348     (home-page "https://wiki.gnome.org/Apps/Klotski")
6349     (synopsis "Sliding block puzzles")
6350     (description
6351      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6352 the patterned block to the area bordered by green markers.  To do so, you will
6353 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6354 as possible!")
6355     (license license:gpl2+)))
6356
6357 (define-public grilo
6358   (package
6359     (name "grilo")
6360     (version "0.3.13")
6361     (source
6362      (origin
6363        (method url-fetch)
6364        (uri (string-append "mirror://gnome/sources/grilo/"
6365                            (version-major+minor version) "/"
6366                            "grilo-" version ".tar.xz"))
6367        (sha256
6368         (base32 "0ywjvh7xw4ql1q4fvl0q5n06n08pga1g1nc9l7c3x5214gr3fj6i"))))
6369     (build-system meson-build-system)
6370     (native-inputs
6371      (list `(,glib "bin") ; for glib-mkenums and glib-genmarshal
6372            intltool
6373            pkg-config
6374            gobject-introspection
6375            gtk-doc/stable
6376            vala))
6377     (inputs
6378      (list cyrus-sasl
6379            glib
6380            gtk+
6381            libxml2
6382            liboauth
6383            libsoup-minimal-2
6384            totem-pl-parser))
6385     (native-search-paths
6386      (list (search-path-specification
6387             (variable "GRL_PLUGIN_PATH")
6388             (files (list (string-append "lib/grilo-"
6389                                         (version-major+minor version)))))))
6390     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6391     (synopsis "Framework for discovering and browsing media")
6392     (description
6393      "Grilo is a framework focused on making media discovery and browsing easy
6394 for application developers.")
6395     (license license:lgpl2.1+)))
6396
6397 (define-public grilo-plugins
6398   (package
6399     (name "grilo-plugins")
6400     (version "0.3.13")
6401     (source
6402      (origin
6403        (method url-fetch)
6404        (uri (string-append "mirror://gnome/sources/" name "/"
6405                            (version-major+minor version) "/"
6406                            name "-" version ".tar.xz"))
6407        (sha256
6408         (base32 "1y10nnd711qxwgpz6spzp1rnk50fyf11kk1n71a31ab4fgb0ahqw"))))
6409     (build-system meson-build-system)
6410     (native-inputs
6411      `(("gettext" ,gettext-minimal)
6412        ("glib:bin" ,glib "bin")
6413        ("gtk+:bin" ,gtk+ "bin")
6414        ("itstool" ,itstool)
6415        ("pkg-config" ,pkg-config)))
6416     ;; TODO: ahavi, gstreamer
6417     (inputs
6418      `(("grilo" ,grilo)
6419        ;("gmime" ,gmime) ; unused
6420        ("gnome-online-accounts" ,gnome-online-accounts)
6421        ("gom" ,gom)
6422        ;("gssdp" ,gssdp) ; unused
6423        ;("gupnp" ,gupnp) ; unused
6424        ;("gupnp-av" ,gupnp-av) ; unused
6425        ("json-glib" ,json-glib)
6426        ("avahi" ,avahi)
6427        ("libgdata" ,libgdata)
6428        ("libmediaart" ,libmediaart)
6429        ;("librest" ,rest) ; unused
6430        ("libsoup" ,libsoup)
6431        ("python-pygobject" ,python-pygobject)
6432        ("totam-pl-parser" ,totem-pl-parser)
6433        ("tracker" ,tracker)
6434        ("tracker-miners" ,tracker-miners)))
6435     (arguments
6436      `(#:glib-or-gtk? #t
6437        ;;Disable lua-factory as it needs missing dependencies
6438        #:configure-flags '("-Denable-lua-factory=no")
6439        #:phases
6440        (modify-phases %standard-phases
6441          (add-before 'configure 'set-shell
6442            (lambda _
6443              (setenv "SHELL" (which "bash"))))
6444          ;; Disable the tracker test that requires the UPower daemon.
6445          (add-before 'configure 'fix-tests
6446            (lambda* (#:key inputs #:allow-other-keys)
6447              (substitute* "tests/tracker3/meson.build"
6448                (("'test_tracker3'.*") "")))))))
6449     (home-page "https://live.gnome.org/Grilo")
6450     (synopsis "Plugins for the Grilo media discovery library")
6451     (description
6452      "Grilo is a framework focused on making media discovery and browsing easy
6453 for application developers.  This package provides plugins for common media
6454 discovery protocols.")
6455     (license license:lgpl2.1+)))
6456
6457 (define-public totem
6458   (package
6459     (name "totem")
6460     (version "42.0")
6461     (source
6462      (origin
6463        (method url-fetch)
6464        (uri (string-append "mirror://gnome/sources/totem/"
6465                            (version-major version) "/"
6466                            "totem-" version ".tar.xz"))
6467        (sha256
6468         (base32 "1az6ay7zhz2naqrzcfldx1yv2ylw1yjx76g3mqrqppwmvcflkw2a"))))
6469     (build-system meson-build-system)
6470     (native-inputs
6471      (list pkg-config
6472            desktop-file-utils
6473            gettext-minimal
6474            gobject-introspection
6475            `(,glib "bin")               ;for 'glib-mkenums'
6476            itstool
6477            libxml2
6478            xorg-server-for-tests))
6479     (propagated-inputs
6480      (list dconf))
6481     (inputs
6482      (list gtk+
6483            gdk-pixbuf
6484            atk
6485            cairo
6486            dbus-glib
6487            xorgproto
6488            libxxf86vm
6489            libxtst
6490            libxrandr
6491            libxml2
6492            libsoup
6493            libpeas
6494            librsvg
6495            libhandy
6496            gnome-desktop
6497            gstreamer
6498            gst-plugins-base
6499            gst-plugins-good
6500            gsettings-desktop-schemas
6501            adwaita-icon-theme
6502            python
6503            python-pygobject
6504            totem-pl-parser
6505            grilo
6506            grilo-plugins
6507            vala))
6508     (arguments
6509      (list
6510       #:glib-or-gtk? #t
6511       ;; Disable automatic GStreamer plugin installation via PackageKit and
6512       ;; all that.
6513       #:configure-flags #~(list "-Denable-easy-codec-installation=no"
6514                                 ;; Do not build .a files for the plugins, it's
6515                                 ;; completely useless.  This saves 2 MiB.
6516                                 "--default-library" "shared")
6517       #:phases
6518       #~(modify-phases %standard-phases
6519           (add-after 'unpack 'skip-gtk-update-icon-cache
6520             ;; Don't create 'icon-theme.cache'.
6521             (lambda _
6522               (substitute* "meson_post_install.py"
6523                 (("gtk-update-icon-cache") "true"))))
6524          (add-before 'install 'disable-cache-generation
6525            (lambda _
6526              (setenv "DESTDIR" "/")))
6527          (add-before 'check 'pre-check
6528            (lambda _
6529              ;; Tests require a running X server.
6530              (system "Xvfb :1 &")
6531              (setenv "DISPLAY" ":1")))
6532          (add-after 'install 'wrap-totem
6533            (lambda* (#:key inputs outputs #:allow-other-keys)
6534              (let ((out             (assoc-ref outputs "out"))
6535                    (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
6536                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6537                    (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6538                (wrap-program (string-append out "/bin/totem")
6539                  `("GI_TYPELIB_PATH"        ":" suffix (,gi-typelib-path))
6540                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6541                  `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6542                (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6543                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))))))
6544     (home-page "https://wiki.gnome.org/Apps/Videos")
6545     (synopsis "Simple media player for GNOME based on GStreamer")
6546     (description "Totem is a simple yet featureful media player for GNOME
6547 which can read a large number of file formats.")
6548     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6549     ;; to be used and distributed together with GStreamer and Totem.  See
6550     ;; file://COPYING in the source distribution for details.
6551     (license license:gpl2+)))
6552
6553 (define-public rhythmbox
6554  (package
6555    (name "rhythmbox")
6556    (version "3.4.4")
6557    (source (origin
6558             (method url-fetch)
6559             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6560                                 (version-major+minor version) "/"
6561                                 "rhythmbox-" version ".tar.xz"))
6562             (sha256
6563              (base32
6564               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6565    (build-system glib-or-gtk-build-system)
6566    (arguments
6567     `(#:configure-flags
6568       (list "--enable-lirc"
6569             "--enable-python"
6570             "--enable-vala"
6571             "--with-brasero"
6572             "--with-gudev"
6573             "--with-libsecret")
6574       #:phases
6575       (modify-phases %standard-phases
6576         (add-after
6577          'install 'wrap-rhythmbox
6578          (lambda* (#:key inputs outputs #:allow-other-keys)
6579            (let ((out               (assoc-ref outputs "out"))
6580                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6581                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6582                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6583                  (python-path       (getenv "GUIX_PYTHONPATH")))
6584              (wrap-program (string-append out "/bin/rhythmbox")
6585                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6586                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6587                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6588                `("GUIX_PYTHONPATH"             ":" prefix (,python-path))))
6589            #t)))))
6590    (propagated-inputs
6591     (list dconf))
6592    (native-inputs
6593     `(("itstool" ,itstool)
6594       ("intltool" ,intltool)
6595       ("glib" ,glib "bin")
6596       ("gobject-introspection" ,gobject-introspection)
6597       ("desktop-file-utils" ,desktop-file-utils)
6598       ("pkg-config" ,pkg-config)
6599       ("xmllint" ,libxml2)))
6600    (inputs
6601     `(("json-glib" ,json-glib)
6602       ("tdb" ,tdb)
6603       ("gnome-desktop" ,gnome-desktop)
6604       ("python" ,python)
6605       ("python-pygobject" ,python-pygobject)
6606       ("vala" ,vala)
6607       ("gmime" ,gmime)
6608       ("adwaita-icon-theme" ,adwaita-icon-theme)
6609       ("grilo" ,grilo)
6610       ("grilo-plugins" ,grilo-plugins)
6611       ("gstreamer" ,gstreamer)
6612       ("gst-plugins-base" ,gst-plugins-base)
6613       ("gst-plugins-good" ,gst-plugins-good)
6614       ("totem-pl-parser" ,totem-pl-parser)
6615       ("libgudev" ,libgudev)
6616       ;;("libmtp" ,libmtp) FIXME: Not detected
6617       ("libsecret" ,libsecret)
6618       ("libsoup" ,libsoup)
6619       ("libnotify" ,libnotify)
6620       ("libpeas" ,libpeas)
6621       ("libsoup" ,libsoup-minimal-2)
6622       ("lirc" ,lirc)
6623       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6624       ;;("clutter" ,clutter)
6625       ;;("clutter-gtk" ,clutter-gtk)
6626       ;;("clutter-gst" ,clutter-gst)
6627       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6628       ("atk" ,atk)
6629       ("pango" ,pango)
6630       ("gtk+" ,gtk+)
6631       ;; TODO:
6632       ;;  * libgpod
6633       ;;  * mx
6634       ("brasero" ,brasero)))
6635    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6636    (synopsis "Music player for GNOME")
6637    (description "Rhythmbox is a music playing application for GNOME.  It
6638 supports playlists, song ratings, and any codecs installed through gstreamer.")
6639    (license license:gpl2+)))
6640
6641 (define-public eog
6642   (package
6643     (name "eog")
6644     (version "42.2")
6645     (source (origin
6646               (method url-fetch)
6647               (uri (string-append "mirror://gnome/sources/" name "/"
6648                                   (version-major version) "/"
6649                                   name "-" version ".tar.xz"))
6650               (sha256
6651                (base32
6652                 "0ph4b05cjlkzbn8vil4hjkwvfr1cp819yi2qifp418p15rm4lk8f"))))
6653     (build-system meson-build-system)
6654     (arguments
6655      (list
6656       #:glib-or-gtk? #t
6657       #:configure-flags
6658       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6659       #~(list (string-append "-Dc_link_args=-Wl,-rpath="
6660                              #$output "/lib/eog"))
6661       #:phases
6662       #~(modify-phases %standard-phases
6663           (add-after 'unpack 'skip-gtk-update-icon-cache
6664             ;; Don't create 'icon-theme.cache'.
6665             (lambda _
6666               (substitute* "meson.build"
6667                 (("gtk_update_icon_cache: true")
6668                  "gtk_update_icon_cache: false"))))
6669           (add-after 'install 'wrap-eog
6670             (lambda* (#:key outputs #:allow-other-keys)
6671               (let ((gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6672                 (wrap-program (search-input-file outputs "bin/eog")
6673                   `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
6674     (propagated-inputs
6675      (list dconf))
6676     (native-inputs
6677      (list gettext-minimal
6678            itstool
6679            `(,glib "bin")
6680            gobject-introspection
6681            pkg-config
6682            libxml2))
6683     (inputs
6684      (list gnome-desktop
6685            shared-mime-info
6686            adwaita-icon-theme
6687            exempi
6688            lcms
6689            libexif
6690            libhandy
6691            libpeas
6692            libportal
6693            libjpeg-turbo
6694            librsvg
6695            gtk))
6696     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6697     (synopsis "GNOME image viewer")
6698     (description "Eye of GNOME is the GNOME image viewer.  It
6699 supports image conversion, rotation, and slideshows.")
6700     (license license:gpl2+)))
6701
6702 (define-public eog-plugins
6703   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6704   ;; $DATA/eog/plugins, where DATA is one of the entries in
6705   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6706   ;; 'XDG_DATA_DIRS' appropriately set.
6707   (package
6708     (name "eog-plugins")
6709     (version "3.26.8")
6710     (source (origin
6711               (method url-fetch)
6712               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6713                                   (version-major+minor version) "/"
6714                                   "eog-plugins-" version ".tar.xz"))
6715               (sha256
6716                (base32
6717                 "1dcxdjp7x092wn0iq7975f9b05ksb5kl5mxmyiqmydrja91ryw40"))))
6718     (build-system gnu-build-system)
6719     (arguments
6720      '(#:phases
6721        (modify-phases %standard-phases
6722          (add-after 'install 'fix-plugins-path
6723            ;; XXX: EOG looks its plugins in "share/eog/plugins", not in
6724            ;; "lib/eog/plugins".
6725            (lambda* (#:key outputs #:allow-other-keys)
6726              (let* ((out (assoc-ref outputs "out"))
6727                     (plugins (string-append out "/share/eog/plugins")))
6728                (mkdir (dirname plugins))
6729                (symlink (string-append out "/lib/eog/plugins") plugins)))))))
6730     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6731     (synopsis "Extensions for the Eye of GNOME image viewer")
6732     (native-inputs
6733      (list pkg-config gettext-minimal))
6734     (inputs
6735      (list eog
6736            glib
6737            gtk+
6738            libpeas
6739            libexif
6740            libchamplain))
6741     (description
6742      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6743 notably:
6744
6745 @itemize
6746 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6747 @item @dfn{Map}, which displays a map of where the picture was taken on the
6748 side panel;
6749 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6750 @end itemize\n")
6751
6752     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6753     ;; long suspicious byte stream that goes to a
6754     ;; ".gresource.eog_postasa_plugin" ELF section.
6755     (license license:gpl2+)))
6756
6757 (define-public libgudev
6758   (package
6759     (name "libgudev")
6760     (version "236")
6761     (source (origin
6762               (method url-fetch)
6763               (uri (string-append "mirror://gnome/sources/" name "/"
6764                                   version "/" name "-" version ".tar.xz"))
6765               (sha256
6766                (base32
6767                 "094mgjmwgsgqrr1i0vd20ynvlkihvs3vgbmpbrhswjsrdp86j0z5"))))
6768     (build-system meson-build-system)
6769     (native-inputs
6770      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6771        ("gobject-introspection" ,gobject-introspection)
6772        ("pkg-config" ,pkg-config)))
6773     (propagated-inputs
6774      (list glib ; in Requires of gudev-1.0.pc
6775            eudev))               ; in Requires.private of gudev-1.0.pc
6776     (inputs
6777      `(("udev" ,eudev)))
6778     (home-page "https://wiki.gnome.org/Projects/libgudev")
6779     (synopsis "GObject bindings for libudev")
6780     (description
6781      "This library provides GObject bindings for libudev.  It was originally
6782 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6783     (license license:lgpl2.1+)))
6784
6785 (define-public gvfs
6786   (package
6787     (name "gvfs")
6788     (version "1.50.2")
6789     (source (origin
6790               (method url-fetch)
6791               (uri (string-append "mirror://gnome/sources/gvfs/"
6792                                   (version-major+minor version) "/"
6793                                   "gvfs-" version ".tar.xz"))
6794               (sha256
6795                (base32
6796                 "0pmc0vda1ksm9l7v64h4bm8qnv16amb7nifgy0882hzg2n62pmq3"))))
6797     (build-system meson-build-system)
6798     (arguments
6799      (list #:glib-or-gtk? #t
6800            #:configure-flags
6801            #~(list "-Dsystemduserunitdir=no"
6802                    "-Dtmpfilesdir=no"
6803                    ;; Otherwise, the RUNPATH will lack the final path component.
6804                    (string-append "-Dc_link_args=-Wl,-rpath="
6805                                   #$output "/lib/gvfs"))))
6806     (native-inputs
6807      (list `(,glib "bin")               ;for glib-genmarshal, etc.
6808            gettext-minimal
6809            gtk-doc/stable
6810            pkg-config
6811            libxslt))
6812     (inputs
6813      (list avahi
6814            docbook-xml-4.2
6815            docbook-xsl
6816            dbus
6817            elogind
6818            fuse-3
6819            gcr
6820            glib
6821            gnome-online-accounts
6822            gsettings-desktop-schemas
6823            libarchive
6824            libbluray
6825            libcap
6826            libcdio-paranoia
6827            libgcrypt
6828            libgdata
6829            libgphoto2
6830            libgudev
6831            libimobiledevice
6832            libmtp
6833            libnfs
6834            libsecret
6835            samba
6836            libsoup
6837            libxml2
6838            openssh
6839            polkit
6840            udisks))
6841     (home-page "https://wiki.gnome.org/gvfs/")
6842     (synopsis "Userspace virtual file system for GIO")
6843     (description
6844      "GVFS is a userspace virtual file system designed to work with the I/O
6845 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS
6846 support to all applications using the GIO API.  It also supports exposing the
6847 GVFS mounts to non-GIO applications using FUSE.
6848
6849 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6850 DAV, and others.")
6851     (license license:lgpl2.0+)))
6852
6853 (define-public gusb-minimal
6854   (package
6855     (name "gusb-minimal")
6856     (version "0.3.5")
6857     (source (origin
6858               (method git-fetch)
6859               (uri (git-reference
6860                     (url "https://github.com/hughsie/libgusb")
6861                     (commit version)))
6862               (file-name (git-file-name name version))
6863               (sha256
6864                (base32
6865                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6866     (build-system meson-build-system)
6867     (arguments
6868      `(#:tests? #f          ;libusb fails to initialize.  Wonder what that is.
6869        #:configure-flags
6870        (cons "-Ddocs=false"
6871              (if ,(%current-target-system)
6872                  ;; Introspection data cannot currently be cross-compiled.
6873                  '("-Dintrospection=false"
6874                    ;; Requires introspection data.
6875                    "-Dvapi=false")
6876                  '()))))
6877     (native-inputs
6878      (list gobject-introspection pkg-config python vala))
6879     (propagated-inputs
6880      ;; Both of these are required by gusb.pc.
6881      (list glib libusb))
6882     (home-page "https://github.com/hughsie/libgusb")
6883     (synopsis "GLib binding for libusb1")
6884     (description
6885      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6886 asynchronous control, bulk and interrupt transfers with proper cancellation
6887 and integration into a mainloop.  This makes it easy to integrate low level
6888 USB transfers with your high-level application or system daemon.")
6889     (license license:lgpl2.1+)))
6890
6891 (define-public gusb
6892   (package/inherit gusb-minimal
6893     (name "gusb")
6894     (arguments
6895      (substitute-keyword-arguments (package-arguments gusb-minimal)
6896        ((#:configure-flags flags)
6897         `(cons "-Ddocs=true"
6898                (delete "-Ddocs=false" ,flags)))))
6899     (native-inputs
6900      (cons `("gtk-doc" ,gtk-doc/stable)
6901            (package-native-inputs gusb-minimal)))))
6902
6903 (define-public simple-scan
6904   (package
6905     (name "simple-scan")
6906     (version "42.1")
6907     (source
6908      (origin
6909        (method url-fetch)
6910        (uri (string-append "mirror://gnome/sources/simple-scan/"
6911                            (version-major version) "/"
6912                            "simple-scan-" version ".tar.xz"))
6913        (sha256
6914         (base32 "09i23f8j3knppyxmikzfq9s09xarsgp9sqx9mfyvas8p3ihw16w5"))))
6915     (build-system meson-build-system)
6916     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6917     (arguments
6918      '(#:glib-or-gtk? #t))
6919     (native-inputs
6920      (list gettext-minimal
6921            itstool
6922            `(,glib "bin")               ; glib-compile-schemas, etc.
6923            pkg-config
6924            python
6925            vala
6926            libxml2))
6927     (inputs
6928      (list gtk+
6929            zlib
6930            cairo
6931            colord
6932            gdk-pixbuf
6933            gusb
6934            libhandy
6935            sane-backends))
6936     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6937     (synopsis "Document and image scanner")
6938     (description
6939      "Document Scanner is an easy-to-use application that lets you connect your
6940 scanner and quickly capture images and documents in an appropriate format.  It
6941 supports any scanner for which a suitable SANE driver is available, which is
6942 almost all of them.")
6943     (license license:gpl3+)))
6944
6945 (define-public eolie
6946   (package
6947     (name "eolie")
6948     (version "0.9.101")
6949     (source (origin
6950               (method url-fetch)
6951               (uri (string-append "https://adishatz.org/eolie/eolie-"
6952                                   version ".tar.xz"))
6953               (sha256
6954                (base32
6955                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6956     (build-system meson-build-system)
6957     (arguments
6958      `(#:glib-or-gtk? #t
6959        #:phases
6960        (modify-phases %standard-phases
6961          (add-after 'unpack 'skip-gtk-update-icon-cache
6962            ;; Don't create 'icon-theme.cache'.
6963            (lambda _
6964              (substitute* "meson_post_install.py"
6965                (("gtk-update-icon-cache") "true"))
6966              #t))
6967          (add-after 'wrap 'wrap-more
6968            (lambda* (#:key inputs outputs #:allow-other-keys)
6969              (let* ((out  (assoc-ref outputs "out"))
6970                     ;; These libraries must be on LD_LIBRARY_PATH.
6971                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6972                             "atk" "gtk+" "gsettings-desktop-schemas"
6973                             "gobject-introspection"))
6974                     (path (string-join
6975                            (map (lambda (lib)
6976                                   (string-append (assoc-ref inputs lib) "/lib"))
6977                                 libs)
6978                            ":")))
6979                (wrap-program (string-append out "/bin/eolie")
6980                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6981                  `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
6982                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6983              #t)))))
6984     (native-inputs
6985      `(("intltool" ,intltool)
6986        ("itstool" ,itstool)
6987        ("pkg-config" ,pkg-config)
6988        ("python" ,python)
6989        ("glib:bin" ,glib "bin")))
6990     (inputs
6991      `(("gobject-introspection" ,gobject-introspection)
6992        ("glib-networking" ,glib-networking)
6993        ("cairo" ,cairo)
6994        ("gtk+" ,gtk+)
6995        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6996        ("python" ,python-wrapper)
6997        ("python-dateutil" ,python-dateutil)
6998        ("python-pyfxa" ,python-pyfxa)
6999        ("python-pygobject" ,python-pygobject)
7000        ("python-pycairo" ,python-pycairo)
7001        ("python-pycrypto" ,python-pycrypto)
7002        ("libhandy" ,libhandy)
7003        ("libsecret" ,libsecret)
7004        ("gtkspell3" ,gtkspell3)
7005        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7006        ("gnome-settings-daemon" ,gnome-settings-daemon) ; desktop-schemas are not enough
7007        ("webkitgtk" ,webkitgtk)))
7008     (home-page "https://wiki.gnome.org/Apps/Eolie")
7009     (synopsis "Web browser for GNOME")
7010     (description
7011      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
7012 a secret password store, an adblocker, and a modern UI.")
7013     (license license:gpl3+)))
7014
7015 (define-public epiphany
7016   (package
7017     (name "epiphany")
7018     (version "42.2")
7019     (source (origin
7020               (method url-fetch)
7021               (uri (string-append "mirror://gnome/sources/epiphany/"
7022                                   (version-major version) "/"
7023                                   "epiphany-" version ".tar.xz"))
7024               (sha256
7025                (base32
7026                 "0b8rhns3b58f8dnp83mm1g933aqf88d8wrfyyp7jq3fihvw2rh4j"))))
7027     (build-system meson-build-system)
7028     (arguments
7029      (list
7030       #:glib-or-gtk? #t
7031       #:phases
7032       #~(modify-phases %standard-phases
7033           (add-after 'unpack 'skip-gtk-update-icon-cache
7034             ;; Don't create 'icon-theme.cache'.
7035             (lambda _
7036               (substitute* "post_install.py"
7037                 (("gtk-update-icon-cache") "true"))))
7038           (add-after 'unpack 'disable-failing-tests
7039             (lambda _
7040               (substitute* "tests/meson.build"
7041                 ;; embed_shell fails, because webkitgtk apparently no longer
7042                 ;; supports overriding the ftp schema web_app_utils fails due
7043                 ;; to missing network access.
7044                 (("(embed_shell|web_app_utils)_test,")
7045                  "find_program('sh'), args: ['-c', 'exit 77'],"))))
7046           (add-before 'check 'pre-check
7047             (lambda _
7048               ;; Tests require a running X server.
7049               (system "Xvfb :1 &")
7050               (setenv "DISPLAY" ":1"))))
7051       #:configure-flags
7052       ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
7053       #~(list (string-append "-Dc_link_args=-Wl,-rpath="
7054                              #$output "/lib/epiphany"))))
7055     (propagated-inputs (list dconf))
7056     (native-inputs (list desktop-file-utils ; for update-desktop-database
7057                          `(,glib "bin") ; for glib-mkenums
7058                          intltool
7059                          itstool
7060                          pkg-config
7061                          libxml2
7062                          xorg-server-for-tests))
7063     (inputs (list avahi
7064                   gcr
7065                   librsvg ; for loading SVG files
7066                   glib-networking
7067                   gnome-desktop
7068                   gsettings-desktop-schemas
7069                   json-glib
7070                   iso-codes
7071                   libarchive
7072                   libdazzle
7073                   libhandy
7074                   libnotify
7075                   libportal
7076                   libsecret
7077                   libxslt
7078                   nettle ; for hogweed
7079                   sqlite
7080                   webkitgtk-with-libsoup2))
7081     (home-page "https://wiki.gnome.org/Apps/Web")
7082     (synopsis "GNOME web browser")
7083     (description
7084      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
7085 principles are simplicity and standards compliance.")
7086     (license license:gpl2+)))
7087
7088 (define-public d-feet
7089   (package
7090     (name "d-feet")
7091     (version "0.3.14")
7092     (source (origin
7093               (method url-fetch)
7094               (uri (string-append "mirror://gnome/sources/" name "/"
7095                                   (version-major+minor version) "/"
7096                                   name "-" version ".tar.xz"))
7097               (sha256
7098                (base32
7099                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
7100     (build-system glib-or-gtk-build-system)
7101     (arguments
7102      '(#:out-of-source? #f ; tests need to run in the source directory.
7103        #:phases
7104        (modify-phases %standard-phases
7105          (add-before
7106           'check 'pre-check
7107           (lambda _
7108             ;; The test suite requires a running X server.
7109             (system "Xvfb :1 &")
7110             (setenv "DISPLAY" ":1")
7111             ;; Don't fail on missing '/etc/machine-id'.
7112             (setenv "DBUS_FATAL_WARNINGS" "0")
7113             ;; tests.py and window.py don't meet E402:
7114             ;;   E402 module level import not at top of file
7115             (substitute* "src/tests/Makefile"
7116               (("--ignore=E123") "--ignore=E123,E402"))
7117             #t))
7118          (add-after
7119           'install 'wrap-program
7120           (lambda* (#:key outputs #:allow-other-keys)
7121             (let ((prog (string-append (assoc-ref outputs "out")
7122                                        "/bin/d-feet")))
7123               (wrap-program prog
7124                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
7125                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
7126               #t))))))
7127     (native-inputs
7128      `(("intltool" ,intltool)
7129        ("itstool" ,itstool)
7130        ("pkg-config" ,pkg-config)
7131        ("python-pep8" ,python-pep8)
7132        ("xmllint" ,libxml2)
7133        ("xorg-server" ,xorg-server-for-tests)))
7134     (inputs
7135      `(("gobject-introspection" ,gobject-introspection)
7136        ("gtk+" ,gtk+)
7137        ("python" ,python-wrapper)
7138        ("hicolor-icon-theme" ,hicolor-icon-theme)
7139        ("python-pygobject" ,python-pygobject)))
7140     (home-page "https://wiki.gnome.org/Apps/DFeet")
7141     (synopsis "D-Bus debugger")
7142     (description
7143      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
7144 of running programs and invoke methods on those interfaces.")
7145     (license license:gpl2+)))
7146
7147 (define-public yelp-xsl
7148   (package
7149     (name "yelp-xsl")
7150     (version "41.0")
7151     (source
7152      (origin
7153        (method url-fetch)
7154        (uri
7155         (string-append "mirror://gnome/sources/" name "/"
7156                        (version-major version) "/"
7157                        name "-" version ".tar.xz"))
7158        (sha256
7159         (base32 "19d46rkajvr0f04560vlrzwvac88x5j8ilvzwkawbn5vjg069kf8"))))
7160     (build-system gnu-build-system)
7161     (arguments
7162      `(#:configure-flags
7163        (list
7164         "--enable-doc")))
7165     (native-inputs
7166      `(("ducktype" ,mallard-ducktype)
7167        ("gettext" ,gettext-minimal)
7168        ("intltool" ,intltool)
7169        ("itstool" ,itstool)
7170        ("xmllint" ,libxml2)
7171        ("xsltproc" ,libxslt)))
7172     (synopsis "XSL stylesheets for Yelp")
7173     (description "Yelp-XSL is a collection of programs and data files to help
7174 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
7175 that can be built upon for help viewers and publishing systems.  These
7176 stylesheets output JavaScript and CSS content, and reference images
7177 provided by yelp-xsl. It also redistributes copies of the jQuery and
7178 jQuery.Syntax JavaScript libraries.")
7179     (home-page "https://wiki.gnome.org/Apps/Yelp")
7180     (license
7181      (list
7182       ;; XSLT
7183       license:gpl2+
7184       ;; Images
7185       license:lgpl2.1+
7186       ;; JavaScript
7187       license:expat))))
7188
7189 (define-public yelp
7190   (package
7191     (name "yelp")
7192     (version "41.0")
7193     (source (origin
7194               (method url-fetch)
7195               (uri (string-append "mirror://gnome/sources/" name "/"
7196                                   (version-major version) "/"
7197                                   name "-" version ".tar.xz"))
7198               (sha256
7199                (base32
7200                 "11shrqass8ak8m10nayqssa6sbrrxa13ffpamvqi1c0yzkxdk9r5"))))
7201     (build-system glib-or-gtk-build-system)
7202     (native-inputs
7203      (list `(,glib "bin") ; for glib-genmarshal, etc.
7204            intltool itstool pkg-config))
7205     (propagated-inputs
7206      (list dconf))
7207     (inputs
7208      (list gsettings-desktop-schemas libxslt sqlite webkitgtk yelp-xsl))
7209     (home-page "https://wiki.gnome.org/Apps/Yelp")
7210     (synopsis "GNOME help browser")
7211     (description
7212      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
7213 man, info, and HTML documents.  It can locate documents according to the
7214 freedesktop.org help system specification.")
7215     (license license:gpl2+)))
7216
7217 (define-public yelp-tools
7218   (package
7219     (name "yelp-tools")
7220     (version "3.32.2")
7221     (source
7222      (origin
7223        (method url-fetch)
7224        (uri
7225         (string-append "mirror://gnome/sources/" name "/"
7226                        (version-major+minor version) "/"
7227                        name "-" version ".tar.xz"))
7228        (sha256
7229         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
7230     (build-system gnu-build-system)
7231     (native-inputs
7232      (list pkg-config))
7233     (inputs
7234      (list yelp-xsl))
7235     (propagated-inputs
7236      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
7237      `(("itstool" ,itstool)
7238        ("xmllint" ,libxml2)
7239        ("xsltproc" ,libxslt)))
7240     (synopsis "Yelp documentation tools")
7241     (description
7242      "Yelp-tools is a collection of scripts and build utilities to help create,
7243 manage, and publish documentation for Yelp and the web.  Most of the heavy
7244 lifting is done by packages like yelp-xsl and itstool.  This package just
7245 wraps things up in a developer-friendly way.")
7246     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
7247     (license license:gpl2+)))
7248
7249 (define-public libgee
7250   (package
7251     (name "libgee")
7252     (version "0.20.3")
7253     (source (origin
7254               (method url-fetch)
7255               (uri (string-append "mirror://gnome/sources/libgee/"
7256                                   (version-major+minor version) "/"
7257                                   "libgee-" version ".tar.xz"))
7258               (sha256
7259                (base32
7260                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
7261     (build-system gnu-build-system)
7262     (arguments
7263      `(#:phases
7264        (modify-phases %standard-phases
7265          (add-after 'unpack 'fix-introspection-install-dir
7266           (lambda* (#:key outputs #:allow-other-keys)
7267             (let ((out (assoc-ref outputs "out")))
7268               (substitute* "gee/Makefile.in"
7269                 (("@INTROSPECTION_GIRDIR@")
7270                  (string-append out "/share/gir-1.0/"))
7271                 (("@INTROSPECTION_TYPELIBDIR@")
7272                  (string-append out "/lib/girepository-1.0/")))))))))
7273     (native-inputs
7274      (list `(,glib "bin") pkg-config))
7275     (inputs
7276      (list glib gobject-introspection))
7277     (home-page "https://wiki.gnome.org/Projects/Libgee")
7278     (synopsis "GObject collection library")
7279     (description
7280      "Libgee is a utility library providing GObject-based interfaces and
7281 classes for commonly used data structures.")
7282     (license license:lgpl2.1+)))
7283
7284 (define-public gexiv2
7285   (package
7286     (name "gexiv2")
7287     (version "0.12.2")
7288     (source (origin
7289               (method url-fetch)
7290               (uri (string-append "mirror://gnome/sources/" name "/"
7291                                   (version-major+minor version) "/"
7292                                   name "-" version ".tar.xz"))
7293               (sha256
7294                (base32
7295                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7296     (build-system meson-build-system)
7297     (native-inputs
7298      (list gcr
7299            `(,glib "bin") pkg-config vala))
7300     (propagated-inputs
7301      ;; Listed in "Requires" section of gexiv2.pc
7302      (list exiv2))
7303     (inputs
7304      (list glib gobject-introspection))
7305     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7306     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7307     (description
7308      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7309 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7310 metadata in photo and video files of various formats.")
7311     (license license:gpl2+)))
7312
7313 (define-public shotwell
7314   (package
7315     (name "shotwell")
7316     (version "0.30.16")
7317     (source (origin
7318               (method url-fetch)
7319               (uri (string-append "mirror://gnome/sources/shotwell/"
7320                                   (version-major+minor version) "/"
7321                                   "shotwell-" version ".tar.xz"))
7322               (sha256
7323                (base32
7324                 "1yhqfmz49qkls4i6xaznm5ybwzv19jxsqjdic60wn0ykvbxjr269"))))
7325     (build-system meson-build-system)
7326     (arguments
7327      '(#:glib-or-gtk? #t
7328        #:phases
7329        (modify-phases %standard-phases
7330          (add-after 'unpack 'skip-gtk-update-icon-cache
7331            (lambda _
7332              (substitute* "build-aux/meson/postinstall.py"
7333                (("gtk-update-icon-cache") (which "true"))
7334                (("update-desktop-database") (which "true")))
7335              #t)))))
7336     (propagated-inputs
7337      (list dconf))
7338     (native-inputs
7339      `(("gettext" ,gettext-minimal)
7340        ("glib:bin" ,glib "bin")
7341        ("itstool" ,itstool)
7342        ("pkg-config" ,pkg-config)
7343        ("python" ,python)
7344        ("vala" ,vala)))
7345     (inputs
7346      `(("gcr" ,gcr)
7347        ("gexiv2" ,gexiv2)
7348        ("gst-plugins-base" ,gst-plugins-base)
7349        ("gstreamer" ,gstreamer)
7350        ("json-glib" ,json-glib)
7351        ("libgdata" ,libgdata)
7352        ("libgee" ,libgee)
7353        ("libgphoto2" ,libgphoto2)
7354        ("libgudev" ,libgudev)
7355        ("libraw" ,libraw)
7356        ("libxml2" ,libxml2)
7357        ("sqlite" ,sqlite)
7358        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7359     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7360     (synopsis "Photo manager for GNOME 3")
7361     (description
7362      "Shotwell is a digital photo manager designed for the GNOME desktop
7363 environment.  It allows you to import photos from disk or camera, organize
7364 them by keywords and events, view them in full-window or fullscreen mode, and
7365 share them with others via social networking and more.")
7366     (license license:lgpl2.1+)))
7367
7368 (define-public file-roller
7369   (package
7370     (name "file-roller")
7371     (version "3.40.0")
7372     (source (origin
7373               (method url-fetch)
7374               (uri (string-append "mirror://gnome/sources/file-roller/"
7375                                   (version-major+minor version) "/"
7376                                   "file-roller-" version ".tar.xz"))
7377               (sha256
7378                (base32
7379                 "039w1dcpa5ypmv6sm634alk9vbcdkyvy595vkh5gn032jsiqca2a"))))
7380     (build-system meson-build-system)
7381     (native-inputs
7382      (list desktop-file-utils ; for update-desktop-database
7383            intltool
7384            itstool
7385            pkg-config
7386            python
7387            `(,gtk+ "bin") ; gtk-update-icon-cache
7388            `(,glib "bin")))
7389     ;; TODO: Add libnautilus.
7390     (inputs
7391      (list gtk+
7392            gdk-pixbuf
7393            json-glib
7394            libarchive
7395            libnotify
7396            nettle
7397            libxml2))
7398     (synopsis "Graphical archive manager for GNOME")
7399     (description "File Roller is an archive manager for the GNOME desktop
7400 environment that allows users to view, unpack, and create compressed archives
7401 such as gzip tarballs.")
7402     (home-page "http://fileroller.sourceforge.net/")
7403     (license license:gpl2+)))
7404
7405 (define-public gnome-session
7406   (package
7407     (name "gnome-session")
7408     (version "42.0")
7409     (source (origin
7410               (method url-fetch)
7411               (uri (string-append "mirror://gnome/sources/" name "/"
7412                                   (version-major version) "/"
7413                                   name "-" version ".tar.xz"))
7414               (patches (search-patches "gnome-session-support-elogind.patch"))
7415               (sha256
7416                (base32
7417                 "1alwjqr36rd0s132qs2clwnxgilcbylps6lm41lr50mn782hdjiw"))))
7418     (arguments
7419      `(#:glib-or-gtk? #t
7420        #:phases
7421        (modify-phases %standard-phases
7422          (add-after 'install 'wrap-gnome-session
7423            (lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
7424              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7425              (wrap-program (search-input-file outputs "bin/gnome-session")
7426                `("PATH" ":" prefix
7427                  (,(dirname (search-input-file (or native-inputs inputs)
7428                                                "bin/gdbus"))))))))
7429        #:configure-flags
7430        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7431          "-Dman=false"   ; FIXME: disabled because of docbook validation error
7432          "-Delogind=true"
7433          "-Dsystemd=false"
7434          "-Dsystemd_session=disable"
7435          "-Dsystemd_journal=false")))
7436     (build-system meson-build-system)
7437     (native-inputs
7438      (list docbook-xml
7439            docbook-xsl
7440            `(,glib "bin")               ; for glib-compile-schemas, etc.
7441            intltool
7442            libxml2                      ;for 'XML_CATALOG_FILES'
7443            libxslt
7444            pkg-config
7445            xmlto))
7446     (inputs
7447      (list elogind
7448            gnome-desktop
7449            gsettings-desktop-schemas
7450            gtk+
7451            json-glib
7452            libsm
7453            libxcomposite
7454            libxtst
7455            mesa
7456            upower
7457            xtrans))
7458     (synopsis "Session manager for GNOME")
7459     (description
7460      "This package contains the GNOME session manager, as well as a
7461 configuration program to choose applications starting on login.")
7462     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7463     (license license:gpl2+)))
7464
7465 (define-public gjs
7466   (package
7467     (name "gjs")
7468     (version "1.72.2")
7469     (source (origin
7470               (method url-fetch)
7471               (uri (string-append "mirror://gnome/sources/" name "/"
7472                                   (version-major+minor version) "/"
7473                                   name "-" version ".tar.xz"))
7474               (sha256
7475                (base32
7476                 "0xrrv9lsi087yb9yf146a1aarf5yh6rf4jw9blx30zasvjdkgvnx"))
7477               (modules '((guix build utils)))
7478               (snippet
7479                '(begin
7480                   (substitute* "installed-tests/scripts/testCommandLine.sh"
7481                     (("Valentín") "")
7482                     (("☭") ""))))))
7483     (build-system meson-build-system)
7484     (arguments
7485      '(#:configure-flags '("-Dinstalled_tests=false")
7486        #:phases
7487        (modify-phases %standard-phases
7488          (add-before 'check 'pre-check
7489            (lambda _
7490              ;; The test suite requires a running X server.
7491              (system "Xvfb :1 &")
7492              (setenv "DISPLAY" ":1")
7493
7494              ;; For the missing /etc/machine-id.
7495              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
7496     (native-inputs
7497      (list `(,glib "bin")               ;for glib-compile-resources
7498            pkg-config
7499            libxml2
7500            ;; For testing
7501            dbus
7502            dconf                        ;required to properly store settings
7503            util-linux
7504            xorg-server-for-tests))
7505     (propagated-inputs
7506      ;; These are all in the Requires.private field of gjs-1.0.pc.
7507      (list cairo gobject-introspection mozjs-91))
7508     (inputs
7509      (list gtk+ readline))
7510     (synopsis "Javascript bindings for GNOME")
7511     (home-page "https://wiki.gnome.org/Gjs")
7512     (description
7513      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7514 javascript engine and the GObject introspection framework.")
7515     (license license:gpl2+)))
7516
7517 (define-public gedit
7518   (package
7519     (name "gedit")
7520     (version "42.2")
7521     (source (origin
7522               (method url-fetch)
7523               (uri (string-append "mirror://gnome/sources/" name "/"
7524                                   (version-major version) "/"
7525                                   name "-" version ".tar.xz"))
7526               (sha256
7527                (base32
7528                 "1jlgzihi4ywvlr4xj2vbnnxzar8j3mwj0jcn8jp6dh0a3w8jjqiw"))))
7529     (build-system meson-build-system)
7530     (arguments
7531      (list
7532       #:glib-or-gtk? #t
7533       #:configure-flags
7534       ;; Otherwise, the RUNPATH will lack the final path component.
7535       #~(list (string-append "-Dc_link_args=-Wl,-rpath="
7536                              #$output "/lib/gedit"))
7537       #:phases
7538       #~(modify-phases %standard-phases
7539           (add-after 'unpack 'skip-gtk-update-icon-cache
7540             ;; Don't create 'icon-theme.cache'.
7541             (lambda _
7542               (substitute* "build-aux/meson/post_install.py"
7543                 (("gtk-update-icon-cache") (which "true")))))
7544           (add-after 'unpack 'do-not-invoke-git
7545             (lambda* (#:key inputs #:allow-other-keys)
7546               (substitute* "meson.build"
7547                 ((".*git.*") ""))))
7548           (add-after 'install 'wrap-gedit
7549             (lambda* (#:key outputs #:allow-other-keys)
7550               (wrap-program (search-input-file outputs "bin/gedit")
7551                 ;; For plugins.
7552                 `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
7553                 `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
7554                 ;; For language-specs.
7555                 `("XDG_DATA_DIRS" ":" prefix
7556                   (,(string-append #$(this-package-input "gtksourceview")
7557                                    "/share")))))))))
7558     (propagated-inputs
7559      (list dconf))
7560     (native-inputs
7561      (list desktop-file-utils           ;for update-desktop-database
7562            `(,glib "bin")               ;for glib-mkenums, etc.
7563            gobject-introspection
7564            intltool
7565            itstool
7566            libxml2
7567            pkg-config
7568            python
7569            vala))
7570     (inputs
7571      (list adwaita-icon-theme
7572            bash-minimal
7573            glib
7574            gsettings-desktop-schemas
7575            gspell
7576            gtk+
7577            gtksourceview-4
7578            libpeas
7579            libsoup
7580            python
7581            python-pygobject))
7582     (home-page "https://wiki.gnome.org/Apps/Gedit")
7583     (synopsis "GNOME text editor")
7584     (description "While aiming at simplicity and ease of use, gedit is a
7585 powerful general purpose text editor.")
7586     (license license:gpl2+)))
7587
7588 (define-public zenity
7589   (package
7590     (name "zenity")
7591     (version "3.43.0")
7592     (source (origin
7593               (method url-fetch)
7594               (uri (string-append "mirror://gnome/sources/zenity/"
7595                                   (version-major+minor version) "/"
7596                                   "zenity-" version ".tar.xz"))
7597               (sha256
7598                (base32
7599                 "0czq2vx636xbvg7zbdqkxq41zgm7v1h048awy0cgls0q1hgcmmxh"))))
7600     (build-system meson-build-system)
7601     (arguments
7602      (list #:phases #~(modify-phases %standard-phases
7603                         (add-after 'unpack 'disable-gtk-update-icon-cache
7604                           ;; The gtk-update-icon-cache tool is only run when
7605                           ;; DESTDIR is unset.
7606                           (lambda _
7607                             (setenv "DESTDIR" "/"))))))
7608     (native-inputs (list gettext-minimal itstool pkg-config))
7609     (inputs (list gtk+))
7610     (synopsis "Display graphical dialog boxes from shell scripts")
7611     (home-page "https://www.gnome.org")
7612     (description
7613      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7614 to display dialog boxes from the commandline and shell scripts.")
7615     (license license:lgpl2.0+)))
7616
7617 (define-public mutter
7618   (package
7619     (name "mutter")
7620     (version "42.4")
7621     (source (origin
7622               (method url-fetch)
7623               (uri (string-append "mirror://gnome/sources/" name "/"
7624                                   (version-major version) "/"
7625                                   name "-" version ".tar.xz"))
7626               (sha256
7627                (base32
7628                 "0h1ak3201mdc2qbf67fhcn801ddp33hm0f0c52zis1l7s6ipyb62"))))
7629     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7630     ;; versions of cogl and clutter.  As a result, many of the inputs,
7631     ;; propagated-inputs, and configure flags used in cogl and clutter are
7632     ;; needed here as well.
7633     (build-system meson-build-system)
7634     (arguments
7635      (list
7636       #:imported-modules `(,@%meson-build-system-modules
7637                            (guix build syscalls))
7638       #:modules '((guix build meson-build-system)
7639                   (guix build syscalls)
7640                   (guix build utils)
7641                   (ice-9 match))
7642       #:glib-or-gtk? #t
7643       #:configure-flags
7644       #~(list
7645          ;; Otherwise, the RUNPATH will lack the final path component.
7646          (string-append "-Dc_link_args=-Wl,-rpath="
7647                         #$output "/lib:"
7648                         #$output "/lib/mutter-9")
7649          ;; Disable systemd support.
7650          "-Dsystemd=false"
7651          ;; The following flags are needed for the bundled clutter
7652          (string-append "-Dxwayland_path="
7653                         (search-input-file %build-inputs "bin/Xwayland"))
7654          ;; the remaining flags are needed for the bundled cogl
7655          (string-append "-Dopengl_libname="
7656                         (search-input-file %build-inputs "lib/libGL.so"))
7657          (string-append "-Dgles2_libname="
7658                         (search-input-file %build-inputs "lib/libGLESv2.so"))
7659          "-Degl_device=true"            ;false by default
7660          "-Dwayland_eglstream=true")    ;false by default
7661       #:test-options '(list "--verbose")
7662       #:phases
7663       #~(modify-phases %standard-phases
7664           (add-after 'unpack 'adjust-runpath-linker-directives
7665             (lambda _
7666               ;; By default Mutter uses RPATH instead of RUNPATH, which our
7667               ;; customized linker script makes use of.  Some libraries are
7668               ;; also installed under lib/mutter-10 and need to be added to
7669               ;; the RUNPATH.
7670               (substitute* "meson.build"
7671                 (("'-Wl,--disable-new-dtags'")
7672                  (string-append "'-Wl,-rpath=" #$output "/lib/mutter-10'")))))
7673           (add-after 'unpack 'patch-dlopen-calls
7674             (lambda* (#:key inputs #:allow-other-keys)
7675               (substitute* "src/wayland/meta-wayland-egl-stream.c"
7676                 (("libnvidia-egl-wayland.so.1")
7677                  (search-input-file inputs "lib/libnvidia-egl-wayland.so.1")))))
7678           (add-before 'configure 'set-udev-dir
7679             (lambda _
7680               (setenv "PKG_CONFIG_UDEV_UDEVDIR"
7681                       (string-append #$output "/lib/udev"))))
7682           (add-after 'unpack 'disable-problematic-tests
7683             (lambda _
7684               ;; The native-headless test hangs due to attempting to use audio,
7685               ;; unavailable in the container.
7686               ;; Note: the following sed expression deletes the whole test(...)
7687               ;; expression paragraph.  For an explanation, see: info '(sed)
7688               ;; Multiline techniques'.
7689               (invoke "sed" "/./{H;$!d} ; x ; s/^.*native-headless.*$//"
7690                       "-i" "src/tests/meson.build")
7691               ;; Timeline tests may unexpectedly fail on missed frames, so
7692               ;; let's disable them as well.
7693               ;; See <https://gitlab.gnome.org/GNOME/mutter/-/issues/2125>
7694               (substitute* "src/tests/clutter/conform/meson.build"
7695                 (("'timeline.*',") ""))))
7696           (replace 'check
7697             (lambda* (#:key tests? test-options parallel-tests?
7698                       #:allow-other-keys)
7699               (when tests?
7700                 ;; Setup (see the 'test-mutter' CI target at
7701                 ;; https://gitlab.gnome.org/GNOME/mutter/-/raw/main/.gitlab-ci.yml).
7702                 (setenv "HOME" "/tmp")
7703                 (setenv "XDG_RUNTIME_DIR" (string-append (getcwd)
7704                                                          "/runtime-dir"))
7705                 (mkdir (getenv "XDG_RUNTIME_DIR"))
7706                 (chmod (getenv "XDG_RUNTIME_DIR") #o700)
7707
7708                 (setenv "GSETTINGS_SCHEMA_DIR" "data")
7709                 (setenv "MUTTER_DEBUG_DUMMY_MODE_SPECS" "800x600@10.0")
7710                 (setenv "PIPEWIRE_DEBUG" "2")
7711                 (setenv "PIPEWIRE_LOG" "meson-logs/pipewire.log")
7712                 (setenv "XVFB_SERVER_ARGS" "+iglx -noreset")
7713                 (setenv "G_SLICE" "always-malloc")
7714                 (setenv "MALLOC_CHECK" "3")
7715                 (setenv "NO_AT_BRIDGE" "1")
7716                 ;; This is needed, otherwise the "mutter:core+mutter/unit /
7717                 ;; anonymous-file" test would fail (see:
7718                 ;; https://gitlab.gnome.org/GNOME/mutter/-/issues/2017).
7719                 (setenv "CI_JOB_ID" "1")
7720
7721                 (invoke "glib-compile-schemas" (getenv "GSETTINGS_SCHEMA_DIR"))
7722                 (mkdir-p (getenv "XDG_RUNTIME_DIR"))
7723                 (chmod (getenv "XDG_RUNTIME_DIR") #o755)
7724                 (invoke "pipewire" "--version") ;check for pipewire
7725                 (system "pipewire &")   ;always returns 0 due to forking
7726
7727                 (setenv "MESON_TESTTHREADS"
7728                         (if parallel-tests?
7729                             (number->string (parallel-job-count))
7730                             "1"))
7731                 (match (primitive-fork)
7732                   (0                    ;child process
7733                    (set-child-subreaper!)
7734                    ;; Use tini so that signals are properly handled and
7735                    ;; doubly-forked processes get reaped; otherwise,
7736                    ;; python-dbusmock would waste time polling for the dbus
7737                    ;; processes it spawns to be reaped, in vain.
7738                    (apply execlp "tini" "--"
7739                           "dbus-run-session" "--"
7740                           "xvfb-run" "-a" "-s" (getenv "XVFB_SERVER_ARGS")
7741                           "meson" "test" "-t" "0" "--print-errorlogs"
7742                           test-options))
7743                   (pid
7744                    (match (waitpid pid)
7745                      ((_ . status)
7746                       (unless (zero? status)
7747                         (error "`meson test' exited with status"
7748                                status))))))))))))
7749     (native-inputs
7750      (list desktop-file-utils           ;for update-desktop-database
7751            `(,glib "bin")               ;for glib-compile-schemas, etc.
7752            gobject-introspection
7753            intltool
7754            pkg-config
7755            xvfb-run
7756            ;; For git build
7757            autoconf
7758            automake
7759            libtool
7760            wayland-protocols-next
7761            ;; For tests.
7762            ;; Warnings are configured to be fatal during the tests; add an icon
7763            ;; theme to please libxcursor.
7764            adwaita-icon-theme
7765            libxcursor                   ;for XCURSOR_PATH
7766            pipewire-0.3
7767            python
7768            python-dbus
7769            python-dbusmock
7770            tini))                       ;acting as init (zombie reaper)
7771     (propagated-inputs
7772      (list gsettings-desktop-schemas-next ;required by libmutter.pc
7773            gtk+                           ;required by libmutter.pc
7774            ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7775            atk
7776            cairo
7777            eudev
7778            gdk-pixbuf
7779            glib
7780            json-glib
7781            libinput
7782            libx11
7783            libxcomposite
7784            libxcvt
7785            libxdamage
7786            libxext
7787            libxfixes
7788            libxkbcommon
7789            libxml2
7790            libxrandr
7791            mesa
7792            pango
7793            xinput))
7794     (inputs
7795      (list egl-wayland                  ;for wayland-eglstream-protocols
7796            elogind
7797            gnome-desktop
7798            gnome-settings-daemon
7799            graphene
7800            libcanberra
7801            libgudev
7802            libice
7803            libsm
7804            libwacom
7805            libxkbfile
7806            libxrandr
7807            libxtst
7808            pipewire-0.3
7809            startup-notification
7810            sysprof
7811            upower
7812            xkeyboard-config
7813            xorg-server-xwayland
7814            zenity))
7815     (synopsis "Window and compositing manager")
7816     (home-page "https://www.gnome.org")
7817     (description
7818      "Mutter is a window and compositing manager that displays and manages your
7819 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7820 Clutter toolkit with solid window-management logic inherited from the Metacity
7821 window manager.")
7822     (license license:gpl2+)))
7823
7824 (define-public gnome-online-accounts
7825   (package
7826     (name "gnome-online-accounts")
7827     (version "3.45.2")
7828     (source (origin
7829               (method url-fetch)
7830               (uri (string-append "mirror://gnome/sources/" name "/"
7831                                   (version-major+minor version) "/"
7832                                   name "-" version ".tar.xz"))
7833               (sha256
7834                (base32
7835                 "15zzzndbfba8a497vxb6cmy1y22l3lfn4sx9s9r59kwzd83i6fxn"))))
7836     (build-system meson-build-system)
7837     (arguments
7838      (list
7839       #:glib-or-gtk? #t
7840       #:phases
7841       #~(modify-phases %standard-phases
7842           (add-before 'install 'disable-gtk-update-icon-cache
7843             (lambda _
7844               (setenv "DESTDIR" "/"))))))
7845     (native-inputs
7846      (list gettext-minimal
7847            `(,glib "bin")               ; for glib-compile-schemas, etc.
7848            gobject-introspection
7849            libxslt
7850            pkg-config
7851            vala))
7852     (propagated-inputs
7853      (list glib                         ; required by goa-1.0.pc
7854            gtk+))                       ; required by goa-backend-1.0.pc
7855     (inputs
7856      (list docbook-xsl
7857            gcr
7858            json-glib
7859            libsecret
7860            mit-krb5
7861            rest-next
7862            webkitgtk))
7863     (synopsis "Single sign-on framework for GNOME")
7864     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7865     (description
7866      "GNOME Online Accounts provides interfaces so that applications and
7867 libraries in GNOME can access the user's online accounts.  It has providers
7868 for Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare,
7869 Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7870     (license license:lgpl2.0+)))
7871
7872 (define-public gnome-online-accounts-3.44
7873   (package
7874     (inherit gnome-online-accounts)
7875     (name "gnome-online-accounts")
7876     (version "3.44.0")
7877     (source (origin
7878               (method url-fetch)
7879               (uri (string-append "mirror://gnome/sources/" name "/"
7880                                   (version-major+minor version) "/"
7881                                   name "-" version ".tar.xz"))
7882               (sha256
7883                (base32
7884                 "0hkkxa3zqyl0i4kw1p3ak4alwxw4wydh9al6fzwbcdgl0r0ms79q"))))
7885     (build-system glib-or-gtk-build-system)
7886     (arguments (substitute-keyword-arguments
7887                    (strip-keyword-arguments
7888                     '(#:glib-or-gtk?)
7889                     (package-arguments gnome-online-accounts))
7890                  ((#:phases phases)
7891                   #~(modify-phases #$phases
7892                       (delete 'disable-gtk-update-icon-cache)))))
7893     (inputs (modify-inputs (package-inputs gnome-online-accounts)
7894               (replace "rest" rest)
7895               (replace "webkitgtk" webkitgtk-with-libsoup2)))))
7896
7897 (define-public evolution-data-server
7898   (package
7899     (name "evolution-data-server")
7900     (version "3.44.4")
7901     (source
7902      (origin
7903        (method url-fetch)
7904        (uri (string-append "mirror://gnome/sources/" name "/"
7905                            (version-major+minor version) "/"
7906                            name "-" version ".tar.xz"))
7907        (sha256
7908         (base32 "1sxjrjr31wqbp9g4pf6dwj8rc4mi7c5fbfd489ha92ym7246bin0"))))
7909     (build-system cmake-build-system)
7910     (arguments
7911      (list
7912       #:configure-flags
7913       #~(let* ((lib (string-append #$output "/lib"))
7914                (runpaths (map (lambda (s)
7915                                 (string-append lib "/evolution-data-server/" s))
7916                               '("addressbook-backends" "calendar-backends"
7917                                 "camel-providers" "credential-modules"
7918                                 "registry-modules"))))
7919           (list "-DENABLE_GOOGLE=OFF"   ;disable Google Contacts support
7920                 "-DENABLE_VALA_BINDINGS=ON"
7921                 (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7922                                (string-append lib "/evolution-data-server;")
7923                                (string-join runpaths ";"))
7924                 "-DENABLE_INTROSPECTION=ON" ;required for Vala bindings
7925                 "-DWITH_PHONENUMBER=ON"))
7926       #:phases
7927       #~(modify-phases %standard-phases
7928           (add-after 'unpack 'disable-failing-tests
7929             (lambda _
7930               ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7931               ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7932               (delete-file-recursively "tests/book-migration")
7933               (substitute* "tests/CMakeLists.txt"
7934                 (("add_subdirectory\\(book-migration\\)") ""))))
7935           (add-after 'unpack 'patch-paths
7936             (lambda _
7937               (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7938                              "tests/libedata-book/data-test-utils.c"
7939                              "tests/libedata-book/test-book-cache-utils.c"
7940                              "tests/libedata-cal/test-cal-cache-utils.c")
7941                 (("/bin/rm") (which "rm")))))
7942           (add-before 'configure 'dont-override-rpath
7943             (lambda _
7944               (substitute* "CMakeLists.txt"
7945                 ;; CMakeLists.txt hard-codes runpath to just the libdir.
7946                 ;; Remove it so the configure flag is respected.
7947                 (("SET\\(CMAKE_INSTALL_RPATH .*") "")))))))
7948     (native-inputs
7949      (list `(,glib "bin")               ; for glib-mkenums, etc.
7950            gobject-introspection
7951            gperf
7952            gsettings-desktop-schemas
7953            intltool
7954            pkg-config
7955            protobuf
7956            vala
7957            python-wrapper))
7958     (propagated-inputs
7959      ;; These are all in the Requires field of .pc files.
7960      (list gtk+
7961            libical
7962            libsecret
7963            libsoup-minimal-2
7964            nss
7965            sqlite))
7966     (inputs
7967      (list bdb
7968            boost
7969            gcr
7970            gnome-online-accounts
7971            json-glib
7972            libcanberra
7973            libgweather
7974            libphonenumber
7975            mit-krb5
7976            openldap
7977            webkitgtk-with-libsoup2))
7978     (synopsis "Store address books and calendars")
7979     (home-page "https://wiki.gnome.org/Apps/Evolution")
7980     (description
7981      "This package provides a unified backend for programs that work with
7982 contacts, tasks, and calendar information.  It was originally developed for
7983 Evolution (hence the name), but is now used by other packages as well.")
7984     (license license:lgpl2.0)))
7985
7986 (define-public caribou
7987   (package
7988     (name "caribou")
7989     (version "0.4.21")
7990     (source (origin
7991               (method url-fetch)
7992               (uri (string-append "mirror://gnome/sources/" name "/"
7993                                   (version-major+minor version) "/"
7994                                   name "-" version ".tar.xz"))
7995               (sha256
7996                (base32
7997                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7998     (build-system glib-or-gtk-build-system)
7999     (arguments
8000      '(#:phases
8001        (modify-phases %standard-phases
8002          (add-before
8003           'build 'pre-build
8004           (lambda* (#:key outputs #:allow-other-keys)
8005             (let ((out (assoc-ref outputs "out")))
8006               ;; Use absolute shared library path in Caribou-1.0.typelib.
8007               (substitute* "libcaribou/Makefile"
8008                 (("--shared-library=libcaribou.so")
8009                  (string-append "--shared-library="
8010                                 out "/lib/libcaribou.so")))
8011               #t)))
8012          (add-after 'install 'wrap-programs
8013           (lambda* (#:key outputs #:allow-other-keys)
8014             (let* ((out (assoc-ref outputs "out"))
8015                    (python-path (getenv "GUIX_PYTHONPATH"))
8016                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
8017               (for-each
8018                (lambda (prog)
8019                  (wrap-program prog
8020                    `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
8021                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8022                (list (string-append out "/bin/caribou-preferences")
8023                      (string-append out "/libexec/antler-keyboard"))))
8024             #t)))))
8025     (native-inputs
8026      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8027        ("gobject-introspection" ,gobject-introspection)
8028        ("intltool" ,intltool)
8029        ("pkg-config" ,pkg-config)
8030        ("python" ,python)
8031        ("vala" ,vala)
8032        ("xsltproc" ,libxslt)))
8033     (propagated-inputs
8034      ;; caribou-1.0.pc refers to all these.
8035      (list libgee libxklavier libxtst gtk+))
8036     (inputs
8037      `(("clutter" ,clutter)
8038        ("dconf" ,dconf)
8039        ("gtk+-2" ,gtk+-2)
8040        ("python-pygobject" ,python-pygobject)))
8041     (synopsis "Text entry and UI navigation application")
8042     (home-page "https://wiki.gnome.org/Projects/Caribou")
8043     (description
8044      "Caribou is an input assistive technology intended for switch and pointer
8045 users.")
8046     (license license:lgpl2.1)))
8047
8048 (define-public network-manager
8049   (package
8050     (name "network-manager")
8051     (version "1.40.0")
8052     (source (origin
8053               (method url-fetch)
8054               (uri (string-append "mirror://gnome/sources/NetworkManager/"
8055                                   (version-major+minor version) "/"
8056                                   "NetworkManager-" version ".tar.xz"))
8057               (patches (search-patches "network-manager-plugin-path.patch"
8058                                        "network-manager-meson.patch"))
8059               (sha256
8060                (base32
8061                 "00zwx7cvl8p8xv5h8yvlj2r5wycbvbqia7z4hjmmvjicpiby1rxf"))))
8062     (build-system meson-build-system)
8063     (outputs '("out"
8064                "doc"))                  ; 8 MiB of gtk-doc HTML
8065     (arguments
8066      (list
8067       #:configure-flags
8068       #~(list
8069          ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
8070          ;; component.
8071          (string-append "-Dc_link_args=-Wl,-rpath="
8072                         #$output "/lib:"
8073                         #$output "/lib/NetworkManager/" #$version)
8074          "-Dsystemd_journal=false"
8075          "-Dsession_tracking=elogind"
8076          "-Dsuspend_resume=elogind"
8077          "-Dsystemdsystemunitdir=no"
8078          "-Dsession_tracking_consolekit=false"
8079          "-Ddhcpcd=no"
8080          "-Ddhcpcanon=no"
8081          "-Dcrypto=gnutls"
8082          "-Diwd=true"
8083          "-Dlibaudit=yes"
8084          "-Dqt=false"
8085          "-Ddocs=true"
8086          "--sysconfdir=/etc"
8087          "--localstatedir=/var"
8088          (string-append "-Dudev_dir="
8089                         #$output "/lib/udev")
8090          (string-append "-Ddbus_conf_dir="
8091                         #$output "/etc/dbus-1/system.d")
8092
8093          (string-append "-Ddhclient=" (search-input-file %build-inputs
8094                                                          "/sbin/dhclient")))
8095       #:phases
8096       #~(modify-phases %standard-phases
8097           (add-after 'unpack 'patch-dlopen-call-to-libjansson.so
8098             (lambda* (#:key inputs #:allow-other-keys)
8099               (substitute* "src/libnm-glib-aux/nm-json-aux.c"
8100                 (("(handle = dlopen\\()soname" _ head)
8101                  (string-append
8102                   head "\"" (search-input-file inputs
8103                                                "lib/libjansson.so") "\"")))))
8104           (add-before 'configure 'pre-configure
8105             (lambda _
8106               ;; These tests try to test aspects of network-manager's
8107               ;; functionality within restricted containers, but they don't
8108               ;; cope with being already in the Guix build jail as that jail
8109               ;; lacks some features that they would like to proxy over (like
8110               ;; a /sys mount).
8111               (substitute* "src/core/tests/meson.build"
8112                 ((".*test-l3cfg.*") ""))
8113               (substitute* "src/core/devices/tests/meson.build"
8114                 ((".*test-acd.*") "")
8115                 ((".*test-lldp.*") ""))
8116               (substitute* "src/core/platform/tests/meson.build"
8117                 ((".*test-address-linux.*") "")
8118                 ((".*test-cleanup-linux.*") "")
8119                 ((".*test-link-linux.*") "")
8120                 ((".*test-lldp.*") "")
8121                 ((".*test-route-linux.*") "")
8122                 ((".*test-tc-linux.*") ""))))
8123           (add-after 'unpack 'patch-docbook-xml
8124             (lambda* (#:key inputs #:allow-other-keys)
8125               (substitute* (find-files "." ".*\\.(xsl|xml)")
8126                 (("http://.*/docbookx\\.dtd")
8127                  (search-input-file inputs "xml/dtd/docbook/docbookx.dtd")))))
8128           (add-before 'check 'pre-check
8129             (lambda _
8130               ;; For the missing /etc/machine-id.
8131               (setenv "DBUS_FATAL_WARNINGS" "0")))
8132           (add-before 'install 'no-polkit-magic
8133             ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
8134             (lambda _
8135               (setenv "PKEXEC_UID" "something")))
8136           (add-after 'install 'move-doc
8137             (lambda _
8138               (mkdir-p (string-append #$output:doc "/share"))
8139               (for-each (lambda (directory)
8140                           (copy-recursively (string-append #$output directory)
8141                                             (string-append #$output:doc
8142                                                            directory))
8143                           (delete-file-recursively
8144                            (string-append #$output directory)))
8145                         '("/share/doc" "/share/gtk-doc")))))))
8146     (propagated-inputs
8147      (list glib))
8148     (native-inputs
8149      (list `(,glib "bin")               ; for gdbus-codegen
8150            gtk-doc/stable
8151            gobject-introspection
8152            docbook-xml
8153            docbook-xsl
8154            intltool
8155            libxslt
8156            libxml2
8157            pkg-config
8158            vala
8159            ;; For testing.
8160            python-wrapper
8161            python-dbus
8162            python-pygobject))
8163     (inputs
8164      (list curl
8165            cyrus-sasl
8166            dbus-glib
8167            dnsmasq
8168            eudev
8169            gnutls
8170            iptables
8171            isc-dhcp
8172            iwd                 ; wpa_supplicant alternative
8173            jansson
8174            audit
8175            libgcrypt
8176            libgudev
8177            libndp
8178            libnl
8179            libselinux
8180            libsoup
8181            mobile-broadband-provider-info
8182            modem-manager
8183            newt               ;for the 'nmtui' console interface
8184            openresolv   ; alternative resolv.conf manager
8185            polkit
8186            ppp
8187            readline
8188            util-linux
8189            elogind))
8190     (synopsis "Network connection manager")
8191     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8192     (description
8193      "NetworkManager is a system network service that manages your network
8194 devices and connections, attempting to keep active network connectivity when
8195 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
8196 devices, and provides VPN integration with a variety of different VPN
8197 services.")
8198     ;; “This NetworkManager project consists of the daemon, client tools, and
8199     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
8200     ;; GPL-2.0+.”
8201     (license (list license:gpl2+
8202                    license:lgpl2.1+))
8203     (properties '((upstream-name . "NetworkManager")))))
8204
8205 (define-public network-manager-openvpn
8206   (package
8207     (name "network-manager-openvpn")
8208     (version "1.8.12")
8209     (source (origin
8210               (method url-fetch)
8211               (uri (string-append
8212                     "mirror://gnome/sources/NetworkManager-openvpn/"
8213                     (version-major+minor version)
8214                     "/NetworkManager-openvpn-" version ".tar.xz"))
8215               (sha256
8216                (base32
8217                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
8218     (build-system gnu-build-system)
8219     (arguments
8220      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8221        #:phases
8222        (modify-phases %standard-phases
8223          (add-after 'configure 'patch-path
8224            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8225              (let* ((ovpn (search-input-file inputs "/sbin/openvpn"))
8226                     (modprobe (search-input-file inputs "/bin/modprobe"))
8227                     (pretty-ovpn (string-append "\"" ovpn "\"")))
8228                (for-each
8229                 (lambda (file)
8230                   (substitute* file
8231                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
8232                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
8233                     (("\"/sbin/openvpn\"") pretty-ovpn)
8234                     (("/sbin/modprobe") modprobe)))
8235                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
8236              #t)))))
8237     (native-inputs
8238      (list pkg-config intltool))
8239     (inputs
8240      (list gtk+
8241            kmod
8242            openvpn
8243            network-manager
8244            libnma
8245            libsecret))
8246     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8247     (synopsis "OpenVPN plug-in for NetworkManager")
8248     (description
8249      "This extension of NetworkManager allows it to take care of connections
8250 to virtual private networks (VPNs) via OpenVPN.")
8251     (license license:gpl2+)
8252     (properties `((upstream-name . "NetworkManager-openvpn")))))
8253
8254 (define-public network-manager-vpnc
8255   (package
8256     (name "network-manager-vpnc")
8257     (version "1.2.6")
8258     (source (origin
8259               (method url-fetch)
8260               (uri (string-append
8261                     "mirror://gnome/sources/NetworkManager-vpnc/"
8262                     (version-major+minor version)
8263                     "/NetworkManager-vpnc-" version ".tar.xz"))
8264               (sha256
8265                (base32
8266                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
8267     (build-system gnu-build-system)
8268     (arguments
8269      `(#:configure-flags '("--enable-absolute-paths"
8270                            "--localstatedir=/var"
8271                            ;; libnm-glib has been removed from network-manager
8272                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
8273                            "--with-libnm-glib=no")
8274        #:phases
8275        (modify-phases %standard-phases
8276          (add-after 'configure 'patch-path
8277            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8278              (let* ((vpnc (search-input-file inputs "/sbin/vpnc"))
8279                     (modprobe (search-input-file inputs "/bin/modprobe"))
8280                     (pretty-ovpn (string-append "\"" vpnc "\"")))
8281                (substitute* "src/nm-vpnc-service.c"
8282                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
8283                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
8284                     (("\"/sbin/vpnc\"") pretty-ovpn)
8285                     (("/sbin/modprobe") modprobe)))
8286              #t)))))
8287     (native-inputs
8288      (list pkg-config intltool))
8289     (inputs
8290      (list gtk+
8291            kmod
8292            vpnc
8293            network-manager
8294            libnma
8295            libsecret))
8296     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8297     (synopsis "VPNC plug-in for NetworkManager")
8298     (description
8299      "Support for configuring virtual private networks based on VPNC.
8300 Compatible with Cisco VPN concentrators configured to use IPsec.")
8301     (license license:gpl2+)
8302     (properties `((upstream-name . "NetworkManager-vpnc")))))
8303
8304 (define-public network-manager-openconnect
8305   (package
8306     (name "network-manager-openconnect")
8307     (version "1.2.6")
8308     (source (origin
8309               (method url-fetch)
8310               (uri (string-append
8311                     "mirror://gnome/sources/NetworkManager-openconnect/"
8312                     (version-major+minor version)
8313                     "/NetworkManager-openconnect-" version ".tar.xz"))
8314               (sha256
8315                (base32
8316                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
8317     (build-system gnu-build-system)
8318     (arguments
8319      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8320        #:phases
8321        (modify-phases %standard-phases
8322          (add-after 'configure 'patch-path
8323            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8324              (let* ((openconnect (search-input-file inputs
8325                                                     "/sbin/openconnect"))
8326                     (modprobe (search-input-file inputs "/bin/modprobe"))
8327                     (pretty-ovpn (string-append "\"" openconnect "\"")))
8328                (substitute* "src/nm-openconnect-service.c"
8329                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
8330                  (("/sbin/modprobe") modprobe)))
8331              #t)))))
8332     (native-inputs
8333      (list intltool libnma pkg-config))
8334     (inputs
8335      (list gcr
8336            gtk+
8337            kmod
8338            libsecret
8339            libxml2
8340            lz4
8341            network-manager
8342            openconnect))
8343     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8344     (synopsis "OpenConnect plug-in for NetworkManager")
8345     (description
8346      "This extension of NetworkManager allows it to take care of connections
8347 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8348 Cisco's AnyConnect SSL VPN.")
8349     (license license:gpl2+)
8350     (properties `((upstream-name . "NetworkManager-openconnect")
8351
8352                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8353                   ;; file refers to account "nm-openconnect".  Specify it here
8354                   ;; so that 'network-manager-service-type' creates it.
8355                   (user-accounts . ("nm-openconnect"))))))
8356
8357 (define-public mobile-broadband-provider-info
8358   (package
8359     (name "mobile-broadband-provider-info")
8360     (version "20190116")
8361     (source (origin
8362               (method url-fetch)
8363               (uri (string-append
8364                     "mirror://gnome/sources/"
8365                     "mobile-broadband-provider-info/" version "/"
8366                     "mobile-broadband-provider-info-" version ".tar.xz"))
8367               (sha256
8368                (base32
8369                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8370     (build-system gnu-build-system)
8371     (arguments
8372      `(#:tests? #f))                    ; no tests
8373     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8374     (synopsis "Database of broadband connection configuration")
8375     (description "Database of broadband connection configuration.")
8376     (license license:public-domain)))
8377
8378 (define-public network-manager-applet
8379   (package
8380     (name "network-manager-applet")
8381     (version "1.28.0")
8382     (source (origin
8383               (method url-fetch)
8384               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8385                                   (version-major+minor version) "/"
8386                                   "network-manager-applet-" version ".tar.xz"))
8387               (sha256
8388                (base32
8389                 "17742kgmbj9w545zwnirgr0i40zl0xzp8jx7b8c1krp93mc4h0sw"))))
8390     (build-system meson-build-system)
8391     (arguments
8392      `(#:glib-or-gtk? #t
8393        #:configure-flags
8394        '("-Dappindicator=yes")))
8395     (native-inputs
8396      (list gettext-minimal
8397            `(,glib "bin") ; for glib-compile-resources, etc.
8398            gobject-introspection
8399            gtk-doc/stable
8400            pkg-config))
8401     (propagated-inputs
8402      ;; libnm-gtk.pc refers to all these.
8403      (list dbus-glib gtk+ network-manager
8404            ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8405            libnma))
8406     (inputs
8407      (list gcr
8408            libappindicator
8409            libgudev
8410            libnotify
8411            libsecret
8412            libselinux
8413            jansson ; for team support
8414            modem-manager))
8415     (synopsis "Applet for managing network connections")
8416     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8417     (description
8418      "This package contains a systray applet for NetworkManager.  It displays
8419 the available networks and allows users to easily switch between them.")
8420     (license license:gpl2+)))
8421
8422 (define-public libxml++
8423   (package
8424     (name "libxml++")
8425     (version "3.2.0")
8426     (source
8427      (origin
8428        (method git-fetch)
8429        (uri (git-reference
8430              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8431              (commit version)))
8432        (file-name (git-file-name name version))
8433        (sha256
8434         (base32 "0wjz591rjlgbah7dcq8i0yn0zw9d62b7g6r0pppx81ic0cx8n8ga"))))
8435     (build-system gnu-build-system)
8436     (arguments
8437      `(#:phases
8438        (modify-phases %standard-phases
8439          (add-after 'unpack 'fix-documentation
8440            (lambda* (#:key inputs #:allow-other-keys)
8441              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
8442                                           "/xml/dtd/docbook"))
8443                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
8444                                           "/xml/xsl/docbook-xsl-"
8445                                           ,(package-version docbook-xsl))))
8446                (substitute* '("examples/dom_xpath/example.xml"
8447                               "docs/manual/libxml++_without_code.xml")
8448                  (("http://.*/docbookx\\.dtd")
8449                   (string-append xmldoc "/docbookx.dtd")))
8450                (setenv "SGML_CATALOG_FILES"
8451                        (string-append xmldoc "/catalog.xml"))
8452                (substitute* "docs/manual/docbook-customisation.xsl"
8453                  (("http://docbook.sourceforge.net/release/xsl/current/html/chunk.xsl")
8454                   (string-append xsldoc "/html/chunk.xsl")))))))))
8455     (propagated-inputs
8456      ;; libxml++-3.0.pc refers to all these.
8457      (list glibmm-2.64 libxml2))
8458     (native-inputs
8459      (list autoconf
8460            automake
8461            doxygen
8462            docbook-xml
8463            docbook-xsl
8464            graphviz ; for dot
8465            libtool
8466            libxslt
8467            mm-common
8468            perl
8469            pkg-config))
8470     (home-page "https://github.com/libxmlplusplus/libxmlplusplus/")
8471     (synopsis "C++ bindings to the libxml2 XML parser library")
8472     (description
8473      "This package provides a C++ interface to the libxml2 XML parser
8474 library.")
8475     (license license:lgpl2.1+)))
8476
8477 ;; This is the last release providing the 2.6 API, hence the name.
8478 ;; This is needed by tascam-gtk
8479 (define-public libxml++-2
8480   (package
8481     (inherit libxml++)
8482     (name "libxml++")
8483     (version "2.40.1")
8484     (source
8485      (origin
8486        (method git-fetch)
8487        (uri (git-reference
8488              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8489              (commit version)))
8490        (file-name (git-file-name name version))
8491        (sha256
8492         (base32 "0gbfi4l88w828gmyc9br11l003ylyi4vigp5d1kfgsn0k4cig3y9"))))))
8493
8494 (define-public gdm
8495   (package
8496     (name "gdm")
8497     (version "42.0")
8498     (source (origin
8499               (method url-fetch)
8500               (uri (string-append "mirror://gnome/sources/" name "/"
8501                                   (version-major version) "/"
8502                                   name "-" version ".tar.xz"))
8503               (sha256
8504                (base32
8505                 "0m9qmm3vm81jmqlc30a1fb79hsr4l4lpiw0zjxww3gipd6bsqa53"))
8506               (patches
8507                (search-patches
8508                 "gdm-default-session.patch"
8509                 "gdm-elogind-support.patch"
8510                 "gdm-remove-hardcoded-xwayland-path.patch"
8511                 "gdm-wayland-session-wrapper-from-env.patch"
8512                 "gdm-pass-gdk-pixbuf-loader-env.patch"))))
8513     (build-system meson-build-system)
8514     (arguments
8515      (list
8516       #:glib-or-gtk? #t
8517       #:configure-flags
8518       #~(list
8519          "-Dplymouth=disabled"
8520          "-Dsystemd-journal=false"
8521
8522          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8523          ;; instead of having to replace it (i.e., stopping the mingetty
8524          ;; service for TTY 1 before starting GDM).
8525          "-Dinitial-vt=7"
8526
8527          ;; Use elogind instead of systemd.
8528          "-Dlogind-provider=elogind"
8529          "-Dsystemdsystemunitdir=no"
8530          "-Dsystemduserunitdir=no"
8531
8532          ;; Use '/etc/environment' for locale settings instead of the
8533          ;; systemd-specific '/etc/locale.conf'.
8534          "-Dlang-file=/etc/environment"
8535
8536          (string-append "-Dudev-dir=" #$output "/lib/udev")
8537
8538          "--localstatedir=/var"
8539          (string-append "-Ddefault-path="
8540                         (string-join '("/run/setuid-programs"
8541                                        "/run/current-system/profile/bin"
8542                                        "/run/current-system/profile/sbin")
8543                                      ":"))
8544          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8545          ;; XDG_DATA_DIRS so that it finds its schemas.
8546          "--sbindir" (string-append #$output "/bin"))
8547       #:phases
8548       #~(modify-phases %standard-phases
8549           (add-after 'unpack 'patch-paths
8550             (lambda* (#:key inputs #:allow-other-keys)
8551               (substitute* "daemon/gdm-session.c"
8552                 (("dbus-run-session")
8553                  (search-input-file inputs "bin/dbus-run-session")))))
8554           (add-before 'configure 'pre-configure
8555             (lambda* (#:key inputs #:allow-other-keys)
8556               ;; We don't have <systemd/sd-daemon.h>.
8557               (substitute* '("common/gdm-log.c"
8558                              "daemon/gdm-server.c"
8559                              "daemon/gdm-session-worker.c"
8560                              "daemon/gdm-session-worker-job.c")
8561                 (("#include <systemd/sd-daemon\\.h>") ""))
8562               ;; Use elogind for sd-login.
8563               (substitute* '("common/gdm-common.c"
8564                              "daemon/gdm-local-display-factory.c"
8565                              "daemon/gdm-manager.c"
8566                              "libgdm/gdm-user-switching.c")
8567                 (("#include <systemd/sd-login\\.h>")
8568                  "#include <elogind/sd-login.h>"))
8569               ;; Look for system-installed sessions in
8570               ;; /run/current-system/profile/share.
8571               (substitute* '("libgdm/gdm-sessions.c"
8572                              "daemon/gdm-session.c"
8573                              "daemon/gdm-display.c"
8574                              "daemon/gdm-launch-environment.c")
8575                 (("DATADIR \"/x")
8576                  "\"/run/current-system/profile/share/x")
8577                 (("DATADIR \"/wayland")
8578                  "\"/run/current-system/profile/share/wayland")
8579                 (("DATADIR \"/gnome")
8580                  "\"/run/current-system/profile/share/gnome"))
8581               (let ((propagate '("GDM_CUSTOM_CONF"
8582                                  "GDM_DBUS_DAEMON"
8583                                  "GDM_X_SERVER"
8584                                  "GDM_X_SESSION"
8585                                  ;; XXX: Remove this once GNOME Shell is
8586                                  ;; a dependency of GDM.
8587                                  "XDG_DATA_DIRS")))
8588                 (substitute* "daemon/gdm-session.c"
8589                   (("set_up_session_environment \\(self\\);")
8590                    (apply string-append
8591                           "set_up_session_environment (self);\n"
8592                           (map (lambda (name)
8593                                  (string-append
8594                                   "gdm_session_set_environment_variable "
8595                                   "(self, \"" name "\","
8596                                   "g_getenv (\"" name "\"));\n"))
8597                                propagate)))))
8598               ;; Find the configuration file using an environment variable.
8599               (substitute* '("common/gdm-settings.c")
8600                 (("GDM_CUSTOM_CONF")
8601                  (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8602                                 " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8603                                 " : GDM_CUSTOM_CONF)")))
8604               ;; Use service-supplied path to X.
8605               (substitute* '("daemon/gdm-server.c")
8606                 (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8607                  "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8608               (substitute* '("daemon/gdm-wayland-session.c"
8609                              "daemon/gdm-x-session.c")
8610                 (("\"dbus-daemon\"")
8611                  "g_getenv (\"GDM_DBUS_DAEMON\")")
8612                 (("X_SERVER")
8613                  "g_getenv (\"GDM_X_SERVER\")")
8614                 (("GDMCONFDIR \"/Xsession\"")
8615                  "g_getenv (\"GDM_X_SESSION\")"))
8616               ;; Use an absolute path for GNOME Session.
8617               (substitute* "daemon/gdm-launch-environment.c"
8618                 (("\"gnome-session\"")
8619                  (format #f "~s"
8620                          (search-input-file inputs "bin/gnome-session"))))
8621               ;; Do not automatically select the placeholder session.
8622               (substitute* "daemon/gdm-session.c"
8623                 (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8624                  (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8625                                 "(g_strcmp0(search_dirs[i], \""
8626                                 #$output "/share/gdm/BuiltInSessions/"
8627                                 "\") == 0 && "
8628                                 "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8629                 (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8630                  "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))))
8631           (add-before 'install 'install-logo
8632             (lambda* (#:key inputs #:allow-other-keys)
8633               (let ((icon (search-input-file inputs "share/icons/hicolor/\
8634 scalable/apps/guix-white-icon.svg"))
8635                     (schema (string-append #$output "/share/glib-2.0/schemas/\
8636 org.gnome.login-screen.gschema.override")))
8637                 (mkdir-p (dirname schema))
8638                 (with-output-to-file schema
8639                   (lambda ()
8640                     (format #t "\
8641 [org.gnome.login-screen]
8642 logo='~a'~%" icon))))))
8643           ;; GDM requires that there be at least one desktop entry
8644           ;; file.  This phase installs a hidden one that simply
8645           ;; fails.  This enables users to use GDM with a
8646           ;; '~/.xsession' script with no other desktop entry files.
8647           ;; See <https://bugs.gnu.org/35068>.
8648           (add-after 'install 'install-placeholder-desktop-entry
8649             (lambda _
8650               (let* ((sessions (string-append #$output
8651                                               "/share/gdm/BuiltInSessions"))
8652                      (fail (string-append sessions "/fail.desktop")))
8653                 (mkdir-p sessions)
8654                 (with-output-to-file fail
8655                   (lambda ()
8656                     (for-each
8657                      display
8658                      '("[Desktop Entry]\n"
8659                        "Encoding=UTF-8\n"
8660                        "Type=Application\n"
8661                        "Name=Fail\n"
8662                        "Comment=This session fails immediately.\n"
8663                        "NoDisplay=true\n"
8664                        "Exec=false\n")))))))
8665           ;; GDM needs GNOME Session to run these applications.  We link
8666           ;; their autostart files in `share/gdm/greeter/autostart'
8667           ;; because GDM explicitly tells GNOME Session to look there.
8668           ;;
8669           ;; XXX: GNOME Shell should be linked here too, but currently
8670           ;; GNOME Shell depends on GDM.
8671           (add-after 'install 'link-autostart-files
8672             (lambda* (#:key inputs #:allow-other-keys)
8673               (let ((autostart (string-append #$output "/share/gdm/"
8674                                               "greeter/autostart"))
8675                     (settings #$(this-package-input "gnome-settings-daemon")))
8676                 (mkdir-p autostart)
8677                 (with-directory-excursion autostart
8678                   (for-each (lambda (desktop)
8679                               (symlink desktop (basename desktop)))
8680                             (find-files
8681                              (string-append settings "/etc/xdg"))))))))))
8682     (native-inputs
8683      (list `(,glib "bin")               ;for glib-compile-schemas, etc.
8684            dconf
8685            gobject-introspection
8686            guix-icons
8687            intltool
8688            itstool
8689            libxml2
8690            pkg-config))
8691     (inputs
8692      (list accountsservice
8693            check                        ;for testing
8694            dbus
8695            elogind
8696            eudev
8697            gnome-session
8698            gnome-settings-daemon
8699            gtk+
8700            iso-codes
8701            libcanberra
8702            libgudev
8703            linux-pam))
8704     (synopsis "Display manager for GNOME")
8705     (home-page "https://wiki.gnome.org/Projects/GDM/")
8706     (description
8707      "GNOME Display Manager is a system service that is responsible for
8708 providing graphical log-ins and managing local and remote displays.")
8709     (license license:gpl2+)))
8710
8711 (define-public libgtop
8712   (package
8713     (name "libgtop")
8714     (version "2.40.0")
8715     (source (origin
8716               (method url-fetch)
8717               (uri (string-append "mirror://gnome/sources/libgtop/"
8718                                   (version-major+minor version) "/"
8719                                   "libgtop-" version ".tar.xz"))
8720               (sha256
8721                (base32
8722                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8723     (build-system gnu-build-system)
8724     (native-inputs
8725      (list gobject-introspection intltool perl pkg-config))
8726     (propagated-inputs
8727      (list glib)) ; required by libgtop-2.0.pc
8728     (synopsis "Portable system access library")
8729     (home-page "https://www.gnome.org/")
8730     (description
8731      "LibGTop is a library to get system specific data such as CPU and memory
8732 usage and information about running processes.")
8733     (license license:gpl2+)))
8734
8735 (define-public gnome-bluetooth
8736   (package
8737     (name "gnome-bluetooth")
8738     (version "42.4")
8739     (source (origin
8740               (method url-fetch)
8741               (uri (string-append "mirror://gnome/sources/gnome-bluetooth/"
8742                                   (version-major+minor version) "/"
8743                                   "gnome-bluetooth-" version ".tar.xz"))
8744               (sha256
8745                (base32
8746                 "1p5wq3rh9p7fhka57qcds6lvphd26yyc18ilncx95jbcvcfcyvqx"))))
8747     (build-system meson-build-system)
8748     (native-inputs
8749      (list gettext-minimal
8750            gobject-introspection
8751            `(,glib "bin")               ;for gdbus-codegen, etc.
8752            libxml2
8753            pkg-config
8754            python
8755            python-dbus))
8756     (propagated-inputs
8757      ;; These are all required by the gnome-bluetooth .pc file.
8758      (list glib
8759            gtk
8760            libadwaita))
8761     (inputs
8762      (list eudev
8763            gsound
8764            libnotify
8765            ;; TODO: Delete pango-next after it's the default.
8766            pango-next
8767            python-dbus
8768            upower))
8769     (synopsis "GNOME Bluetooth subsystem")
8770     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8771     (description
8772      "This package contains tools for managing and manipulating Bluetooth
8773 devices using the GNOME desktop.")
8774     (license license:lgpl2.1+)))
8775
8776 (define-public gnome-control-center
8777   (package
8778     (name "gnome-control-center")
8779     (version "42.3")
8780     (source (origin
8781               (method url-fetch)
8782               (uri (string-append "mirror://gnome/sources/" name "/"
8783                                   (version-major version) "/"
8784                                   name "-" version ".tar.xz"))
8785               (sha256
8786                (base32
8787                 "0zhw6hcrrcpq1zjkyzr5ipznxnzd2aczrqd7n2y7xbz21mjy62nf"))))
8788     (build-system meson-build-system)
8789     (arguments
8790      (list
8791       #:glib-or-gtk? #t
8792       #:phases
8793       #~(modify-phases %standard-phases
8794           (add-before 'configure 'patch-paths
8795             (lambda* (#:key inputs #:allow-other-keys)
8796               (substitute* "panels/datetime/tz.h"
8797                 (("/usr/share/zoneinfo/zone.tab")
8798                  (search-input-file inputs "share/zoneinfo/zone.tab")))
8799               (substitute* "tests/datetime/test-endianess.c"
8800                 (("/usr/share/locale")
8801                  (search-input-directory inputs "share/locale")))
8802               (substitute* "panels/region/cc-region-panel.c"
8803                 (("\"gkbd-keyboard-display")
8804                  (string-append "\"" (search-input-file
8805                                       inputs "bin/gkbd-keyboard-display"))))
8806               (substitute* '("panels/network/net-device-bluetooth.c"
8807                              "panels/network/net-device-mobile.c"
8808                              "panels/network/connection-editor/net-connection-editor.c")
8809                 (("\"nm-connection-editor")
8810                  (string-append "\"" (search-input-file
8811                                       inputs "bin/nm-connection-editor"))))
8812               (substitute* "panels/user-accounts/run-passwd.c"
8813                 (("/usr/bin/passwd")
8814                  "/run/setuid-programs/passwd"))
8815               (substitute* "panels/info-overview/cc-info-overview-panel.c"
8816                 (("DATADIR \"/gnome/gnome-version.xml\"")
8817                  (format #f "~s" (search-input-file
8818                                   inputs "share/gnome/gnome-version.xml"))))))
8819           (add-after 'unpack 'skip-gtk-update-icon-cache
8820             ;; Don't create 'icon-theme.cache'.
8821             (lambda _
8822               (substitute* "build-aux/meson/meson_post_install.py"
8823                 (("gtk-update-icon-cache") (which "true"))))))))
8824     (native-inputs
8825      (list docbook-xsl
8826            gettext-minimal
8827            `(,glib "bin")               ;for glib-mkenums, etc.
8828            libxslt
8829            pkg-config
8830            python
8831            python-dbusmock
8832            xorg-server-for-tests))
8833     (inputs
8834      (list accountsservice
8835            colord-gtk
8836            cups
8837            dconf
8838            gcr
8839            gnome-bluetooth
8840            gnome-desktop
8841            gnome-online-accounts
8842            gnome-session
8843            gnome-settings-daemon
8844            gnutls
8845            grilo
8846            gsound
8847            ibus
8848            libadwaita
8849            libgnomekbd
8850            libgudev
8851            libgtop
8852            libnma
8853            libpwquality
8854            librsvg                      ;for loading SVG files
8855            libsecret
8856            libxml2
8857            libwacom
8858            mesa
8859            mit-krb5
8860            modem-manager
8861            network-manager-applet
8862            polkit
8863            pulseaudio
8864            samba
8865            tzdata
8866            udisks
8867            upower))
8868     (synopsis "Utilities to configure the GNOME desktop")
8869     (home-page "https://www.gnome.org/")
8870     (description
8871      "This package contains configuration applets for the GNOME desktop,
8872 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8873 properties, sound setup, desktop theme and background, user interface
8874 properties, screen resolution, and other GNOME parameters.")
8875     (license license:gpl2+)))
8876
8877 (define-public gnome-shell
8878   (package
8879     (name "gnome-shell")
8880     (version "42.4")
8881     (source (origin
8882               (method url-fetch)
8883               (uri (string-append "mirror://gnome/sources/" name "/"
8884                                   (version-major version) "/"
8885                                   name "-" version ".tar.xz"))
8886               (sha256
8887                (base32
8888                 "0kn5fclciybp2fs38wd39hdz85y91pas0ckfa02pmyx91sbz4pw7"))))
8889     (build-system meson-build-system)
8890     (arguments
8891      (let ((disallowed-references
8892             (list (gexp-input glib "bin")
8893                   (gexp-input libxslt)
8894                   (gexp-input meson)
8895                   (gexp-input ruby-sass))))
8896        (list
8897         #:glib-or-gtk? #t
8898         #:disallowed-references disallowed-references
8899         #:configure-flags
8900         #~(list "-Dsystemd=false"
8901                 ;; Otherwise, the RUNPATH will lack the final path component.
8902                 (string-append "-Dc_link_args=-Wl,-rpath="
8903                                #$output "/lib/gnome-shell"))
8904         #:modules '((guix build meson-build-system)
8905                     (guix build utils)
8906                     (ice-9 match)
8907                     (srfi srfi-1)
8908                     (srfi srfi-26))
8909         #:phases
8910         #~(modify-phases %standard-phases
8911             (add-after 'unpack 'fix-keysdir
8912               (lambda _
8913                 (let ((keysdir
8914                        (string-append #$output
8915                                       "/share/gnome-control-center/keybindings")))
8916                   (substitute* "meson.build"
8917                     (("keysdir =.*")
8918                      (string-append "keysdir = '" keysdir "'\n"))))))
8919             (add-after 'unpack 'skip-gtk-update-icon-cache
8920               ;; Don't create 'icon-theme.cache'.
8921               (lambda _
8922                 (substitute* "meson.build"
8923                   (("gtk_update_icon_cache: true")
8924                    "gtk_update_icon_cache: false"))))
8925             (add-before 'configure 'record-absolute-file-names
8926               (lambda* (#:key inputs #:allow-other-keys)
8927                 (let ((ibus-daemon (search-input-file inputs "bin/ibus-daemon"))
8928                       (gkbd-keyboard-display
8929                        (search-input-file inputs "bin/gkbd-keyboard-display")))
8930                   (substitute* "js/misc/ibusManager.js"
8931                     (("'ibus-daemon'")
8932                      (string-append "'" ibus-daemon "'")))
8933                   (substitute* "js/ui/status/keyboard.js"
8934                     (("'gkbd-keyboard-display'")
8935                      (string-append "'" gkbd-keyboard-display "'"))))))
8936             (add-before 'check 'pre-check
8937               (lambda* (#:key inputs #:allow-other-keys)
8938                 ;; Tests require a running X server.
8939                 (system "Xvfb :1 &")
8940                 (setenv "DISPLAY" ":1")
8941                 (setenv "HOME" "/tmp"))) ;to avoid "fatal" warnings
8942             (add-after 'install 'wrap-programs
8943               (lambda* (#:key inputs #:allow-other-keys)
8944                 (let ((gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8945                       (python-path
8946                        (string-join
8947                         (filter (lambda (item)
8948                                   (not (any (cut string-prefix? <> item)
8949                                             '#$disallowed-references)))
8950                                 (string-split (getenv "GUIX_PYTHONPATH") #\:))
8951                         ":")))
8952                   (for-each
8953                    (lambda (prog)
8954                      (wrap-program (string-append #$output "/bin/" prog)
8955                        `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8956                    '("gnome-shell" "gnome-extensions-app"))
8957                   (substitute* (string-append #$output "/share/gnome-shell/"
8958                                               "org.gnome.Shell.Extensions")
8959                     (("imports\\.package\\.start" all)
8960                      (string-append "'" gi-typelib-path "'.split(':').forEach("
8961                                     "path => imports.gi.GIRepository.Repository."
8962                                     "prepend_search_path(path));\n"
8963                                     all)))
8964                   (for-each
8965                    (lambda (prog)
8966                      (wrap-program (string-append #$output "/bin/" prog)
8967                        `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
8968                        `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8969                    '("gnome-shell-perf-tool")))))
8970             (add-after 'install 'rewire
8971               (lambda* (#:key inputs #:allow-other-keys)
8972                 (for-each
8973                  (lambda (tool)
8974                    (call-with-output-file (string-append #$output
8975                                                          "/bin/" tool)
8976                      (lambda (port)
8977                        (format port "#!~a
8978 printf '~a is deprecated.  Use the \"gnome-extensions\" CLI or \
8979 \"gnome-extensions-app\" instead.\\n'"
8980                                (search-input-file inputs "bin/bash")
8981                                tool))))
8982                  '("gnome-shell-extension-tool" "gnome-shell-extension-prefs"))))
8983             (replace 'glib-or-gtk-wrap
8984               (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8985                 (lambda* (#:key inputs outputs #:allow-other-keys)
8986                   ;; By default glib:bin et al. would end up in the XDG_DATA_DIRS
8987                   ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8988                   ;; phase.  Fix that since we don't need these.
8989                   (wrap #:inputs
8990                         (filter (match-lambda
8991                                   ((label . output)
8992                                    (not (member output
8993                                                 '#$disallowed-references))))
8994                                 inputs)
8995                         #:outputs outputs))))))))
8996     (native-inputs
8997      (list asciidoc
8998            gettext-minimal
8999            `(,glib "bin")               ;for glib-compile-schemas, etc.
9000            desktop-file-utils           ;for update-desktop-database
9001            gobject-introspection
9002            hicolor-icon-theme
9003            libxslt
9004            perl
9005            pkg-config
9006            python
9007            ruby-sass
9008            sassc
9009            ;; For tests
9010            xorg-server-for-tests))
9011     (inputs
9012      (list accountsservice
9013            caribou
9014            docbook-xsl
9015            evolution-data-server
9016            gcr
9017            gdm
9018            librsvg
9019            gjs
9020            gtk
9021            gnome-autoar
9022            gnome-bluetooth
9023            gnome-desktop
9024            gnome-settings-daemon
9025            graphene
9026            gst-plugins-base
9027            ibus
9028            libcanberra
9029            libcroco
9030            libgnomekbd                  ;for gkbd-keyboard-display
9031            libgweather4
9032            libnma
9033            libsoup
9034            mesa-headers
9035            mutter
9036            network-manager-applet
9037            polkit
9038            pulseaudio
9039            python-pygobject
9040            startup-notification
9041            telepathy-logger
9042            upower
9043            ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
9044            ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
9045            librsvg
9046            geoclue))
9047     (synopsis "Desktop shell for GNOME")
9048     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
9049     (description
9050      "GNOME Shell provides core user interface functions for the GNOME desktop,
9051 like switching to windows and launching applications.")
9052     (license license:gpl2+)))
9053
9054 (define-public gtk-vnc
9055   (package
9056     (name "gtk-vnc")
9057     (version "1.2.0")
9058     (source
9059      (origin
9060        (method url-fetch)
9061        (uri
9062         (string-append "mirror://gnome/sources/" name "/"
9063                        (version-major+minor version) "/"
9064                        name "-" version ".tar.xz"))
9065        (sha256
9066         (base32 "0jmr6igyzcj2wmx5v5ywaazvdz3hx6a6rys26yb4l4s71l281bvs"))))
9067     (build-system meson-build-system)
9068     (arguments
9069      `(#:meson ,meson-0.60
9070        #:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
9071     (native-inputs
9072      (append
9073       ;; GJS depends on Rust, which is x86_64-only so far, so remove the GJS
9074       ;; dependency on other platforms (FIXME).
9075        (if (target-x86-64?)
9076            (list gjs)
9077            '())
9078        (list gettext-minimal
9079              `(,glib "bin")
9080              gobject-introspection
9081              node
9082              perl
9083              pkg-config
9084              python-wrapper
9085              vala)))
9086     (inputs
9087      (list cairo (librsvg-for-system)))
9088     (propagated-inputs
9089      ;; These are all in Requires or Requires.private of the .pc files.
9090      (list cyrus-sasl
9091            gdk-pixbuf
9092            glib
9093            gnutls
9094            gtk+
9095            libgcrypt
9096            libx11
9097            pulseaudio
9098            zlib))
9099     (synopsis "VNC client viewer widget for GTK+")
9100     (description "GTK-VNC is a project providing client side APIs for the RFB
9101 protocol / VNC remote desktop technology.  It is built using coroutines allowing
9102 it to be completely asynchronous while remaining single threaded.  It provides a
9103 core C library, and bindings for Python (PyGTK).")
9104     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
9105     (license license:lgpl2.1+)))
9106
9107 (define-public gnome-autoar
9108   (package
9109     (name "gnome-autoar")
9110     (version "0.4.3")
9111     (source (origin
9112               (method url-fetch)
9113               (uri (string-append "mirror://gnome/sources/" name "/"
9114                                   (version-major+minor version) "/"
9115                                   name "-" version ".tar.xz"))
9116               (sha256
9117                (base32
9118                 "124y4j3wgb6axgfzw9f00865r033fg7b0qy9qgfsp5ilan4hgpvv"))))
9119     (build-system meson-build-system)
9120     (native-inputs
9121      (list gobject-introspection `(,glib "bin") pkg-config))
9122     (propagated-inputs
9123      (list libarchive))  ; Required by gnome-autoar-0.pc
9124     (inputs
9125      (list gtk+))
9126     (synopsis "Archives integration support for GNOME")
9127     (home-page "https://git.gnome.org/browse/gnome-autoar/")
9128     (description
9129      "GNOME Autoar is a library which makes creating and extracting archives
9130 easy, safe, and automatic.")
9131     (license license:lgpl2.1+)))
9132
9133 (define-public tracker
9134   (package
9135     (name "tracker")
9136     (version "3.3.3")
9137     (source (origin
9138               (method url-fetch)
9139               (uri (string-append "mirror://gnome/sources/tracker/"
9140                                   (version-major+minor version) "/"
9141                                   "tracker-" version ".tar.xz"))
9142               (sha256
9143                (base32
9144                 "0r144kdqxdzs51qn495vablzf1zxkhkk6imrlrzj9wiqwc2gg520"))))
9145     (build-system meson-build-system)
9146     (arguments
9147      `(#:glib-or-gtk? #t
9148        #:configure-flags
9149        ;; Otherwise, the RUNPATH will lack the final path component.
9150        (list (string-append "-Dc_link_args=-Wl,-rpath="
9151                             (assoc-ref %outputs "out") "/lib:"
9152                             (assoc-ref %outputs "out") "/lib/tracker-3.0")
9153              "-Ddocs=false"
9154              "-Dsystemd_user_services=false")
9155        #:phases
9156        (modify-phases %standard-phases
9157          (add-before 'configure 'set-shell
9158            (lambda _
9159              (setenv "SHELL" (which "bash"))))
9160          (add-before 'configure 'fix-paths
9161            (lambda* (#:key inputs #:allow-other-keys)
9162              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9163                     (file (search-input-file inputs manpage)))
9164                (substitute* "docs/manpages/meson.build"
9165                  (("/etc/asciidoc[^']+")
9166                   file)))))
9167          (replace 'check
9168            (lambda* (#:key tests? #:allow-other-keys)
9169              (when tests?
9170                ;; Some tests expect to write to $HOME.
9171                (setenv "HOME" "/tmp")
9172                (invoke "dbus-run-session" "--" "meson" "test"
9173                        "--print-errorlogs")))))))
9174     (native-inputs
9175      (list gettext-minimal
9176            `(,glib "bin")
9177            gobject-introspection
9178            docbook-xsl
9179            docbook-xml
9180            gsettings-desktop-schemas
9181            asciidoc
9182            libxslt
9183            cmake-minimal
9184            python-pygobject
9185            gtk-doc/stable
9186            dbus
9187            pkg-config
9188            python
9189            vala))
9190     (inputs
9191      (list dbus
9192            libsoup))
9193     (propagated-inputs
9194      ;; These are in Requires or Requires.private of tracker-sparql-3.0.pc.
9195      (list glib
9196            icu4c                ;libunistring gets miner-miner-fs test to fail
9197            json-glib
9198            libxml2
9199            sqlite))
9200     (synopsis "Metadata database, indexer and search tool")
9201     (home-page "https://wiki.gnome.org/Projects/Tracker")
9202     (description
9203      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
9204
9205 It is a middleware component aimed at desktop application developers who want
9206 their apps to browse and search user content.  It's not designed to be used
9207 directly by desktop users, but it provides a commandline tool named
9208 @command{tracker} for the adventurous.
9209
9210 Tracker allows your application to instantly perform full-text searches across
9211 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
9212 example.  This is achieved by indexing the user's home directory in the
9213 background.
9214
9215 Tracker also allows your application to query and list content that the user
9216 has stored.  For example, GNOME Music displays all the music files that are
9217 found by Tracker.  This means that GNOME Music doesn't need to maintain a
9218 database of its own.
9219
9220 If you need to go beyond simple searches, Tracker is also a linked data
9221 endpoint and it understands SPARQL.")
9222     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
9223     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9224     ;; libstemmer is bsd-3 and the rest is gpl2+.
9225     (license (list license:gpl2+
9226                    license:bsd-3
9227                    license:lgpl2.1+))))
9228
9229 (define-public tracker-miners
9230   (package
9231     (name "tracker-miners")
9232     (version "3.3.1")
9233     (source (origin
9234               (method url-fetch)
9235               (uri (string-append "mirror://gnome/sources/tracker-miners/"
9236                                   (version-major+minor version)
9237                                   "/tracker-miners-" version ".tar.xz"))
9238               (sha256
9239                (base32
9240                 "151w6ljq1gk9idqfq9qs3w16vms91jnxy59c9kx6jaf0fb9cdp9y"))))
9241     (build-system meson-build-system)
9242     (arguments
9243      `(#:glib-or-gtk? #t
9244        #:configure-flags
9245        (list "-Dminer_rss=false"        ; libgrss is required.
9246              ;; Ensure the RUNPATH contains all installed library locations.
9247              (string-append "-Dc_link_args=-Wl,-rpath="
9248                             (assoc-ref %outputs "out")
9249                             "/lib/tracker-miners-3.0")
9250              ;; TODO: Enable functional tests. Currently, the following error
9251              ;; appears:
9252              ;; Exception: The functional tests require DConf to be the default
9253              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
9254              "-Dfunctional_tests=false"
9255              "-Dsystemd_user_services=false")
9256        #:phases
9257        (modify-phases %standard-phases
9258          (add-before 'configure 'set-shell
9259            (lambda _
9260              (setenv "SHELL" (which "bash"))))
9261          (add-before 'configure 'fix-paths
9262            (lambda* (#:key inputs #:allow-other-keys)
9263              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9264                     (file (search-input-file inputs manpage)))
9265                (substitute* "docs/manpages/meson.build"
9266                  (("/etc/asciidoc[^']+")
9267                   file)))))
9268          (add-before 'configure 'fix-tests
9269            (lambda* (#:key inputs #:allow-other-keys)
9270              ;; Disable those tests that require the functional_tests option
9271              ;; to be true and the UPower daemon to be started.
9272              (substitute* "examples/python/meson.build"
9273                (("foreach example_name:.*")
9274                 "foreach example_name: []"))
9275              ;; Disable this test that is failing randomly:
9276              ;; https://gitlab.gnome.org/GNOME/tracker-miners/-/issues/170.
9277              (substitute* "tests/libtracker-miner/meson.build"
9278                (("'miner-fs'.*")
9279                 ""))))
9280          (replace 'check
9281            (lambda* (#:key tests? #:allow-other-keys)
9282              (when tests?
9283                ;; Some tests expect to write to $HOME.
9284                (setenv "HOME" "/tmp")
9285                (setenv "LANG" "en_US.UTF-8")
9286                (invoke "dbus-run-session" "--" "meson" "test"
9287                        "--print-errorlogs"
9288                        ;; Do not run the slow test, which fail (see:
9289                        ;; https://gitlab.gnome.org/GNOME/tracker-miners
9290                        ;; /-/issues/226).
9291                        "--no-suite" "slow")))))))
9292     (native-inputs
9293      (list dbus
9294            intltool
9295            `(,glib "bin")
9296            docbook-xsl
9297            docbook-xml
9298            gsettings-desktop-schemas
9299            asciidoc
9300            libxslt
9301            gobject-introspection
9302            pkg-config
9303            python-pygobject))
9304     (inputs
9305      (list exempi
9306            ffmpeg
9307            flac
9308            giflib
9309            glib
9310            gstreamer
9311            icu4c
9312            json-glib
9313            libcue
9314            libexif
9315            libgsf
9316            libgxps
9317            libiptcdata
9318            libjpeg-turbo
9319            libosinfo
9320            libpng
9321            libseccomp
9322            libsoup
9323            libtiff
9324            libvorbis
9325            libxml2
9326            poppler
9327            shared-mime-info
9328            taglib
9329            totem-pl-parser
9330            tracker
9331            upower
9332            zlib))
9333     (synopsis "Metadata database, indexer and search tool")
9334     (home-page "https://wiki.gnome.org/Projects/Tracker")
9335     (description
9336      "Tracker is an advanced framework for first class objects with associated
9337 metadata and tags.  It provides a one stop solution for all metadata, tags,
9338 shared object databases, search tools and indexing.")
9339     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9340     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
9341     (license (list license:gpl2+
9342                    license:lgpl2.1+
9343                    license:lgpl2.0+))))
9344
9345 (define-public nautilus
9346   (package
9347     (name "nautilus")
9348     (version "41.1")
9349     (source (origin
9350               (method url-fetch)
9351               (uri (string-append "mirror://gnome/sources/" name "/"
9352                                   (version-major version) "/"
9353                                   name "-" version ".tar.xz"))
9354               (sha256
9355                (base32
9356                 "0bsqh241m43x3qb3z0mjakjic610ncl95zhjdgls649phnc30qry"))
9357               (patches
9358                ;; This patch is already upstream and can be removed next
9359                ;; release.
9360                (search-patches "nautilus-add-libportal-gtk3.patch"))))
9361     (build-system meson-build-system)
9362     (arguments
9363      `(#:glib-or-gtk? #t
9364        #:phases
9365        (modify-phases %standard-phases
9366          (add-after 'unpack 'make-extensible
9367            (lambda _
9368              (substitute* "src/nautilus-module.c"
9369                (("static gboolean initialized = FALSE;" all)
9370                 (string-append all "
9371 const char *extension_path;
9372 char **extension_dirs, **d;
9373 ")
9374                 )
9375                (("load_module_dir \\(NAUTILUS_EXTENSIONDIR\\);" all)
9376                 (string-append all
9377                                "
9378 extension_path = g_getenv (\"NAUTILUS_EXTENSION_PATH\");
9379 if (extension_path)
9380 {
9381     extension_dirs = g_strsplit (extension_path, \":\", -1);
9382     for (d = extension_dirs; d != NULL && *d != NULL; d++)
9383         load_module_dir(*d);
9384     g_strfreev(extension_dirs);
9385 }
9386 ")))))
9387          (add-after 'unpack 'skip-gtk-update-icon-cache
9388            ;; Don't create 'icon-theme.cache'.
9389            (lambda _
9390              (substitute* "build-aux/meson/postinstall.py"
9391                (("gtk-update-icon-cache") "true")))))
9392        ;; XXX: FAIL: check-nautilus
9393        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
9394        #:tests? #f))
9395     (native-inputs
9396      (list desktop-file-utils     ; for update-desktop-database
9397            `(,glib "bin")         ; for glib-mkenums, etc.
9398            gobject-introspection
9399            intltool
9400            pkg-config
9401            python))
9402     (inputs
9403      (list dconf
9404            gexiv2
9405            gvfs
9406            exempi
9407            gnome-desktop
9408            gnome-autoar
9409            gst-plugins-base
9410            json-glib
9411            libhandy
9412            libportal
9413            libseccomp
9414            libselinux
9415            libsoup-minimal-2 ; to satisfy tracker dependencies
9416            tracker
9417            tracker-miners
9418            ;; XXX: gtk+ is required by libnautilus-extension.pc
9419            ;;
9420            ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
9421            ;; package.  See:
9422            ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
9423            gtk+
9424            libexif
9425            libxml2))
9426     (native-search-paths
9427      (list (search-path-specification
9428             (variable "NAUTILUS_EXTENSION_PATH")
9429             (files '("lib/nautilus/site-extensions")))))
9430     (synopsis "File manager for GNOME")
9431     (home-page "https://wiki.gnome.org/Apps/Nautilus")
9432     (description
9433      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
9434 design and behaviour, giving the user a simple way to navigate and manage its
9435 files.")
9436     (license license:gpl2+)))
9437
9438 (define-public baobab
9439   (package
9440     (name "baobab")
9441     (version "42.0")
9442     (source (origin
9443               (method url-fetch)
9444               (uri (string-append
9445                     "mirror://gnome/sources/" name "/"
9446                     (version-major version) "/"
9447                     name "-" version ".tar.xz"))
9448               (sha256
9449                (base32
9450                 "1p2hg8qxbvdfax9z4qjhdsxia93zrsdq58krx8zjnn5ipbkan6jb"))))
9451     (build-system meson-build-system)
9452     (arguments
9453      '(#:glib-or-gtk? #t))
9454     (native-inputs
9455      (list desktop-file-utils           ;for update-desktop-database
9456            gettext-minimal
9457            `(,glib "bin")
9458            `(,gtk+ "bin")               ;for gtk-update-icon-cache
9459            itstool
9460            libxml2
9461            pkg-config
9462            python
9463            vala))
9464     (inputs
9465      (list gtk libadwaita libhandy
9466            ;; XXX: Ensure pango-next is used instead of the equally propagated
9467            ;; 'pango'.
9468            pango-next))
9469     (synopsis "Disk usage analyzer for GNOME")
9470     (description
9471      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
9472 usage in the GNOME desktop environment.  It can easily scan device volumes or
9473 a specific user-requested directory branch (local or remote).  Once the scan
9474 is complete it provides a graphical representation of each selected folder.")
9475     (home-page "https://wiki.gnome.org/Apps/Baobab")
9476     (license license:gpl2+)))
9477
9478 (define-public gnome-backgrounds
9479   (package
9480     (name "gnome-backgrounds")
9481     (version "41.0")
9482     (source
9483      (origin
9484        (method url-fetch)
9485        (uri (string-append "mirror://gnome/sources/" name "/"
9486                            (version-major version) "/"
9487                            name "-" version ".tar.xz"))
9488        (sha256
9489         (base32
9490          "0i9id5z72dqddh94648zylyf41amqq5lhny8sbyg1v8v4q6sr88x"))))
9491     (build-system meson-build-system)
9492     (native-inputs (list gettext-minimal))
9493     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
9494     (synopsis "Background images for the GNOME desktop")
9495     (description
9496      "GNOME backgrounds package contains a collection of graphics files which
9497 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
9498 the package creates the proper framework and directory structure so that you
9499 can add your own files to the collection.")
9500     (license (list license:gpl2+
9501                    license:cc-by2.0
9502                    license:cc-by-sa2.0
9503                    license:cc-by-sa3.0))))
9504
9505 (define-public gnome-screenshot
9506   (package
9507     (name "gnome-screenshot")
9508     (version "41.0")
9509     (source
9510      (origin
9511        (method url-fetch)
9512        (uri (string-append "mirror://gnome/sources/" name "/"
9513                            (version-major version) "/"
9514                            name "-" version ".tar.xz"))
9515        (sha256
9516         (base32
9517          "15wmikwk62cdi93gas77nqh4fbhlrxrncyfmcd1gfa34jbn7vnsa"))
9518        (patches
9519         (search-patches "gnome-screenshot-meson-0.60.patch"))))
9520     (build-system meson-build-system)
9521     (arguments
9522      '(#:glib-or-gtk? #t
9523        #:phases
9524        (modify-phases %standard-phases
9525          (add-after 'unpack 'skip-gtk-update-icon-cache
9526            ;; Don't create 'icon-theme.cache'.
9527            (lambda _
9528              (substitute* "build-aux/postinstall.py"
9529                (("gtk-update-icon-cache") "true")))))))
9530     (native-inputs
9531      (list appstream-glib
9532            desktop-file-utils           ; for update-desktop-database
9533            gettext-minimal
9534            `(,glib "bin")               ; for glib-compile-schemas, etc.
9535            pkg-config
9536            python))
9537     (inputs
9538      (list gtk+
9539            libhandy
9540            libx11
9541            libxext))
9542     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9543     (synopsis "Take pictures of your screen")
9544     (description
9545      "GNOME Screenshot is a utility used for taking screenshots of the entire
9546 screen, a window or a user defined area of the screen, with optional
9547 beautifying border effects.")
9548     (license license:gpl2+)))
9549
9550 (define-public dconf-editor
9551   (package
9552     (name "dconf-editor")
9553     (version "3.38.3")
9554     (source
9555      (origin
9556        (method url-fetch)
9557        (uri (string-append "mirror://gnome/sources/" name "/"
9558                            (version-major+minor version) "/"
9559                            name "-" version ".tar.xz"))
9560        (sha256
9561         (base32
9562          "1qvrxrk1h8bd75xwasxbvlkqrw6xkavjimvc7sslkw6lvb3z86jp"))))
9563     (build-system meson-build-system)
9564     (native-inputs
9565      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9566        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9567        ("intltool" ,intltool)
9568        ("pkg-config" ,pkg-config)
9569        ("vala" ,vala)))
9570     (inputs
9571      (list dconf gtk+ libxml2))
9572     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9573     (synopsis "Graphical editor for GNOME's dconf configuration system")
9574     (description
9575      "Dconf-editor is a graphical tool for browsing and editing the dconf
9576 configuration system for GNOME.  It allows users to configure desktop
9577 software that do not provide their own configuration interface.")
9578     (license license:lgpl2.1+)))
9579
9580 (define-public gnome-default-applications
9581   (package
9582     (name "gnome-default-applications")
9583     (version "0")
9584     (build-system trivial-build-system)
9585     (source #f)
9586     (propagated-inputs
9587      (list nautilus evince))
9588     (arguments
9589      `(#:modules ((guix build utils))
9590        #:builder
9591        (begin
9592          (use-modules (guix build utils))
9593          (let* ((out (assoc-ref %outputs "out"))
9594                 (apps (string-append out "/share/applications")))
9595            (mkdir-p apps)
9596            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9597              (lambda (port)
9598                (format port "[Default Applications]\n")
9599                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9600                (format port "application/pdf=evince.desktop\n")
9601                (format port "application/postscript=evince.desktop\n")))
9602            #t))))
9603     (synopsis "Default MIME type associations for the GNOME desktop")
9604     (description
9605      "Given many installed packages which might handle a given MIME type, a
9606 user running the GNOME desktop probably has some preferences: for example,
9607 that folders be opened by default by the Nautilus file manager, not the Baobab
9608 disk usage analyzer.  This package establishes that set of default MIME type
9609 associations for GNOME.")
9610     (license license:gpl3+)
9611     (home-page #f)))
9612
9613 (define-public libgovirt
9614   (package
9615    (name "libgovirt")
9616    (version "0.3.8")
9617    (source (origin
9618             (method url-fetch)
9619             (uri (string-append "mirror://gnome/sources/" name "/"
9620                                 (version-major+minor version) "/"
9621                                 name "-" version ".tar.xz"))
9622             (sha256
9623              (base32
9624               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9625    (build-system glib-or-gtk-build-system)
9626    (native-inputs
9627     (list gettext-minimal
9628           `(,glib "bin")
9629           gobject-introspection
9630           gsettings-desktop-schemas
9631           `(,gtk+ "bin")
9632           pkg-config))
9633    (inputs
9634     (list glib-networking ; GIO plugin--for the tests
9635           rest))
9636    (synopsis "GoVirt Library")
9637    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9638    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9639    (license license:gpl2+)))
9640
9641 (define-public gnome-weather
9642   (package
9643     (name "gnome-weather")
9644     (version "42.0")
9645     (source (origin
9646               (method url-fetch)
9647               (uri (string-append "mirror://gnome/sources/" name "/"
9648                                   (version-major version) "/"
9649                                   name "-" version ".tar.xz"))
9650               (sha256
9651                (base32
9652                 "0rdl0ywdk8jlq819wr1sbdzdvsasz11pp30fylzvprakv28yd7jp"))))
9653     (build-system meson-build-system)
9654     (arguments
9655      (list
9656       #:glib-or-gtk? #t
9657       #:phases
9658       #~(modify-phases %standard-phases
9659           (add-after 'unpack 'fix-service-file
9660             (lambda _
9661               (substitute* "data/org.gnome.Weather.service.in"
9662                 (("Exec=[[:graph:]]+")
9663                  (string-append "Exec=" #$output
9664                                 "/bin/gnome-weather")))))
9665           (add-after 'unpack 'disable-gtk-update-icon-cache
9666             (lambda _
9667               (setenv "DESTDIR" "/")))
9668           (add-after 'install 'fix-desktop-file
9669             ;; FIXME: "gapplication launch org.gnome.Weather" fails for some
9670             ;; reason.  See https://issues.guix.gnu.org/issue/39324.
9671             (lambda* (#:key outputs #:allow-other-keys)
9672               (substitute* (search-input-file
9673                             outputs
9674                             "share/applications/org.gnome.Weather.desktop")
9675                 (("Exec=.*") "Exec=gnome-weather\n"))))
9676           (add-after 'install 'wrap
9677             (lambda* (#:key outputs #:allow-other-keys)
9678               ;; GNOME Weather needs the typelib files of GTK+, Pango etc at
9679               ;; runtime.
9680               (wrap-program (search-input-file outputs "bin/gnome-weather")
9681                 `("GI_TYPELIB_PATH" ":" prefix
9682                   (,(getenv "GI_TYPELIB_PATH")))))))))
9683     (native-inputs
9684      (list gettext-minimal
9685            `(,glib "bin")
9686            gobject-introspection
9687            pkg-config))
9688     (inputs
9689      (list appstream-glib
9690            bash-minimal
9691            geoclue
9692            gjs
9693            gsettings-desktop-schemas-next
9694            gtk
9695            libadwaita
9696            libgweather4))
9697     (synopsis "Weather monitoring for GNOME desktop")
9698     (description "GNOME Weather is a small application that allows you to
9699 monitor the current weather conditions for your city, or anywhere in the
9700 world.")
9701     (home-page "https://wiki.gnome.org/Apps/Weather")
9702     (license license:gpl2+)))
9703
9704 (define-public gnome
9705   (package
9706     (name "gnome")
9707     (version (package-version gnome-shell))
9708     (source #f)
9709     (build-system trivial-build-system)
9710     (arguments '(#:builder (begin (mkdir %output) #t)))
9711     (propagated-inputs
9712      `(;; GNOME-Core-OS-Services
9713        ("accountsservice" ,accountsservice)
9714        ("network-manager" ,network-manager)
9715        ("packagekit" ,packagekit)
9716        ("upower" ,upower)
9717        ;; GNOME-Core-Shell
9718        ("adwaita-icon-theme" ,adwaita-icon-theme)
9719        ("gdm" ,gdm)
9720        ("glib-networking" ,glib-networking)
9721        ("gnome-backgrounds" ,gnome-backgrounds)
9722        ("gnome-bluetooth" ,gnome-bluetooth)
9723        ("gnome-color-manager" ,gnome-color-manager)
9724        ("gnome-control-center" ,gnome-control-center)
9725        ("gnome-desktop" ,gnome-desktop)
9726        ("gnome-initial-setup" ,gnome-initial-setup)
9727        ("gnome-keyring" ,gnome-keyring)
9728        ("gnome-menus" ,gnome-menus)
9729        ("gnome-session" ,gnome-session)
9730        ("gnome-settings-daemon" ,gnome-settings-daemon)
9731        ("gnome-shell-extensions" ,gnome-shell-extensions)
9732        ("gnome-shell" ,gnome-shell)
9733        ("gnome-themes-extra" ,gnome-themes-extra)
9734        ("gnome-user-docs" ,gnome-user-docs)
9735        ("gnome-user-share" ,gnome-user-share)
9736        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9737        ("gvfs" ,gvfs)
9738        ("mutter" ,mutter)
9739        ("orca" ,orca)
9740        ("rygel" ,rygel)
9741        ("sushi" ,sushi)
9742        ;; GNOME-Core-Utilities
9743        ("baobab" ,baobab)
9744        ("cheese" ,cheese)
9745        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9746        ;; only works on x86_64, so exclude it on other architectures.
9747        ,@(if (string-prefix? "x86_64" (%current-system))
9748              `(("eog" ,eog))
9749              '())
9750        ("epiphany" ,epiphany)
9751        ("evince" ,evince)
9752        ("file-roller" ,file-roller)
9753        ("gedit" ,gedit)
9754        ("gnome-boxes" ,gnome-boxes)
9755        ("gnome-calculator" ,gnome-calculator)
9756        ("gnome-calendar" ,gnome-calendar)
9757        ("gnome-characters" ,gnome-characters)
9758        ("gnome-clocks" ,gnome-clocks)
9759        ("gnome-contacts" ,gnome-contacts)
9760        ("gnome-disk-utility" ,gnome-disk-utility)
9761        ("gnome-font-viewer" ,gnome-font-viewer)
9762        ("gnome-maps" ,gnome-maps)
9763        ("gnome-music" ,gnome-music)
9764        ("gnome-photos" ,gnome-photos)
9765        ("gnome-screenshot" ,gnome-screenshot)
9766        ("gnome-system-monitor" ,gnome-system-monitor)
9767        ("gnome-terminal" ,gnome-terminal)
9768        ("gnome-weather" ,gnome-weather)
9769        ("nautilus" ,nautilus)
9770        ("simple-scan" ,simple-scan)
9771        ("totem" ,totem)
9772        ("tracker-miners" ,tracker-miners)
9773        ("yelp" ,yelp)
9774        ;; Others
9775        ("hicolor-icon-theme" ,hicolor-icon-theme)
9776        ("gnome-online-accounts" ,gnome-online-accounts)
9777
9778        ;; Packages not part of GNOME proper but that are needed for a good
9779        ;; experience.  See <https://bugs.gnu.org/39646>.
9780        ;; XXX: Find out exactly which ones are needed and why.
9781        ("font-abattis-cantarell"            ,font-abattis-cantarell)
9782        ("font-dejavu"               ,font-dejavu)
9783        ("at-spi2-core"              ,at-spi2-core-minimal)
9784        ("dbus"                      ,dbus)
9785        ("dconf"                     ,dconf)
9786        ("desktop-file-utils"        ,desktop-file-utils)
9787        ("gnome-default-applications" ,gnome-default-applications)
9788        ("gst-plugins-base"          ,gst-plugins-base)
9789        ("gst-plugins-good"          ,gst-plugins-good)
9790        ("gucharmap"                 ,gucharmap)
9791        ("pinentry-gnome3"           ,pinentry-gnome3)
9792        ("pulseaudio"                ,pulseaudio)
9793        ("shared-mime-info"          ,shared-mime-info)
9794        ("system-config-printer"     ,system-config-printer)
9795        ("xdg-user-dirs"             ,xdg-user-dirs)
9796        ("yelp"                      ,yelp)
9797        ("zenity"                    ,zenity)))
9798     (synopsis "The GNU desktop environment")
9799     (home-page "https://www.gnome.org/")
9800     (description
9801      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9802 applications for browsing the web, editing text and images, creating
9803 documents and diagrams, playing media, scanning, and much more.")
9804     (license license:gpl2+)))
9805
9806 (define-public byzanz
9807   ;; The last stable release of Byzanz was in 2011, but there have been many
9808   ;; useful commits made to the Byzanz repository since then that it would be
9809   ;; silly to use such an old release.
9810   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9811     (package
9812       (name "byzanz")
9813       (version (string-append "0.2-1." (string-take commit 7)))
9814       (source (origin
9815                 (method git-fetch)
9816                 (uri (git-reference
9817                       (url "https://git.gnome.org/browse/byzanz")
9818                       (commit commit)))
9819                 (file-name (string-append name "-" version "-checkout"))
9820                 (sha256
9821                  (base32
9822                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9823       (build-system glib-or-gtk-build-system)
9824       (arguments
9825        '(#:phases
9826          (modify-phases %standard-phases
9827            (add-before 'bootstrap 'build-without-Werror
9828              (lambda _
9829                ;; The build system cleverly detects that we're not building from
9830                ;; a release tarball and turns on -Werror for GCC.
9831                ;; Unsurprisingly, there is a warning during compilation that
9832                ;; causes the build to fail unnecessarily, so we remove the flag.
9833                (substitute* '("configure.ac")
9834                  (("-Werror") ""))
9835                #t)))))
9836       (native-inputs
9837        (list autoconf
9838              automake
9839              gnome-common
9840              intltool
9841              libtool
9842              pkg-config
9843              which))
9844       (inputs
9845        (list glib gstreamer gst-plugins-base gtk+))
9846       (synopsis "Desktop recording program")
9847       (description "Byzanz is a simple desktop recording program with a
9848 command-line interface.  It can record part or all of an X display for a
9849 specified duration and save it as a GIF encoded animated image file.")
9850       (home-page "https://git.gnome.org/browse/byzanz")
9851       (license license:gpl2+))))
9852
9853 (define-public authenticator
9854   (package
9855     (name "authenticator")
9856     (version "3.32.2")
9857     (source
9858      (origin
9859        (method git-fetch)
9860        (uri (git-reference
9861              (url "https://gitlab.gnome.org/World/Authenticator")
9862              (commit version)))
9863        (file-name (git-file-name name version))
9864        (sha256
9865         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9866     (build-system meson-build-system)
9867     (arguments
9868      `(#:meson ,meson-0.59
9869        #:glib-or-gtk? #t
9870        #:phases
9871        (modify-phases %standard-phases
9872          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9873            (lambda* (#:key inputs outputs #:allow-other-keys)
9874              (let ((prog (string-append (assoc-ref outputs "out")
9875                                         "/bin/authenticator"))
9876                    (pylib (string-append (assoc-ref outputs "out")
9877                                          "/lib/python"
9878                                          ,(version-major+minor
9879                                            (package-version
9880                                             (this-package-input "python")))
9881                                          "/site-packages")))
9882                (wrap-program prog
9883                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
9884                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
9885     (native-inputs
9886      (list desktop-file-utils
9887            gettext-minimal
9888            `(,glib "bin")
9889            gobject-introspection
9890            `(,gtk+ "bin")
9891            pkg-config))
9892     (inputs
9893      (list gsettings-desktop-schemas
9894            gtk+
9895            libhandy-0.0
9896            libsecret
9897            python
9898            python-beautifulsoup4
9899            python-pillow
9900            python-pyfavicon
9901            python-pygobject
9902            python-pyotp
9903            python-pyzbar
9904            yoyo-migrations
9905            zbar))
9906     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9907     (synopsis "Two-factor authentication application built for GNOME")
9908     (description
9909      "Authenticator is a two-factor authentication (2FA) application built for
9910 the GNOME desktop environment.
9911
9912 Features:
9913
9914 @itemize
9915 @item QR code scanner
9916 @item Beautiful UI
9917 @item Huge database of more than 560 supported services
9918 @item Keep your PIN tokens secure by locking the application with a password
9919 @item Automatically fetch an image for services using their favicon
9920 @item The possibility to add new services
9921 @end itemize")
9922     (license license:gpl3+)))
9923
9924 (define-public gsound
9925   (package
9926     (name "gsound")
9927     (version "1.0.3")
9928     (source (origin
9929               (method url-fetch)
9930               (uri (string-append "mirror://gnome/sources/gsound/"
9931                                   (version-major+minor version) "/"
9932                                   "gsound-" version ".tar.xz"))
9933               (sha256
9934                (base32
9935                 "06l80xgykj7x1kqkjvcq06pwj2rmca458zvs053qc55x3sg06bfa"))))
9936     (build-system meson-build-system)
9937     (native-inputs
9938      (list pkg-config gobject-introspection vala))
9939     (propagated-inputs
9940      (list libcanberra))   ; in Requires.private of gsound.pc
9941     (home-page "https://wiki.gnome.org/Projects/GSound")
9942     (synopsis "GObject wrapper for libcanberra")
9943     (description
9944      "GSound is a small library for playing system sounds.  It's designed to be
9945 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9946 library.")
9947     (license license:lgpl2.1+)))
9948
9949 (define-public libzapojit
9950   (package
9951     (name "libzapojit")
9952     (version "0.0.3")
9953     (source (origin
9954               (method url-fetch)
9955               (uri (string-append "mirror://gnome/sources/" name "/"
9956                                   (version-major+minor version) "/"
9957                                   name "-" version ".tar.xz"))
9958               (sha256
9959                (base32
9960                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9961     (build-system gnu-build-system)
9962     (native-inputs
9963      (list gobject-introspection intltool pkg-config))
9964     (inputs
9965      (list gnome-online-accounts json-glib rest))
9966     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9967     (synopsis "Library for accessing SkyDrive and Hotmail")
9968     (description
9969      "Libzapojit is a GLib-based library for accessing online service APIs of
9970 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9971     (license license:lgpl2.1+)))
9972
9973 (define-public gnome-clocks
9974   (package
9975     (name "gnome-clocks")
9976     (version "42.0")
9977     (source (origin
9978               (method url-fetch)
9979               (uri (string-append "mirror://gnome/sources/" name "/"
9980                                   (version-major version) "/"
9981                                   name "-" version ".tar.xz"))
9982               (sha256
9983                (base32
9984                 "1q3gvniwd4dkr1ghqpp05zr7qswdhaxqrn8j6bm3qbh39bdihw8f"))))
9985     (build-system meson-build-system)
9986     (arguments
9987      '(#:glib-or-gtk? #t
9988        #:phases
9989        (modify-phases %standard-phases
9990          (add-after 'unpack 'skip-gtk-update-icon-cache
9991            ;; Don't create 'icon-theme.cache'.
9992            (lambda _
9993              (substitute* "meson.build"
9994                (("gtk_update_icon_cache: true")
9995                 "gtk_update_icon_cache: false")))))))
9996     (native-inputs
9997      (list desktop-file-utils
9998            gettext-minimal
9999            `(,glib "bin")               ; for glib-compile-resources
10000            itstool
10001            pkg-config
10002            vala-next))
10003     (inputs
10004      (list geoclue
10005            geocode-glib-with-libsoup2
10006            glib
10007            gnome-desktop
10008            gsound
10009            gtk
10010            libadwaita
10011            libgweather4-with-libsoup2))
10012     (home-page "https://wiki.gnome.org/Apps/Clocks")
10013     (synopsis "GNOME's clock application")
10014     (description
10015      "GNOME Clocks is a simple clocks application designed to fit the GNOME
10016 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
10017     (license license:gpl3+)))
10018
10019 (define-public gnome-calendar
10020   (package
10021     (name "gnome-calendar")
10022     (version "42.2")
10023     (source (origin
10024               (method url-fetch)
10025               (uri (string-append "mirror://gnome/sources/" name "/"
10026                                   (version-major version) "/"
10027                                   name "-" version ".tar.xz"))
10028               (sha256
10029                (base32
10030                 "1ggvnl2jnc24nzpkjvsk57vpckjzb14a7mmnk6jjm84nmqxccz5f"))))
10031     (build-system meson-build-system)
10032     (arguments
10033      `(#:glib-or-gtk? #t
10034        #:phases
10035        (modify-phases %standard-phases
10036          (add-after 'unpack 'skip-gtk-update-icon-cache
10037            ;; Don't create 'icon-theme.cache'.
10038            (lambda _
10039              (substitute* "meson.build"
10040                (("gtk_update_icon_cache: true")
10041                 "gtk_update_icon_cache: false")))))))
10042     (native-inputs
10043      (list gettext-minimal
10044            `(,glib "bin")               ; For glib-compile-schemas
10045            pkg-config))
10046     (inputs
10047      ;; Note: not propagating evolution-data-server-3.44 to keep profiles
10048      ;; clean from libsoup2.
10049      (list evolution-data-server-3.44
10050            geoclue
10051            geocode-glib-with-libsoup2
10052            gnome-online-accounts-3.44
10053            gsettings-desktop-schemas
10054            libadwaita
10055            libdazzle
10056            libgweather4-with-libsoup2
10057            ;; Remove pango-next when it's the default.
10058            pango-next))
10059     (home-page "https://wiki.gnome.org/Apps/Calendar")
10060     (synopsis "GNOME's calendar application")
10061     (description
10062      "GNOME Calendar is a simple calendar application designed to fit the GNOME
10063 desktop.  It supports multiple calendars, month, week and year view.")
10064     (license license:gpl3+)))
10065
10066 (define-public gnome-todo
10067   (package
10068     (name "gnome-todo")
10069     (version "41.0")
10070     (source (origin
10071               (method url-fetch)
10072               (uri (string-append "mirror://gnome/sources/" name "/"
10073                                   (version-major version) "/"
10074                                   name "-" version ".tar.xz"))
10075               (sha256
10076                (base32
10077                 "1r94880d4khbjhhfnhaba3y3d4hv2bri82rzfzxn27s5iybpqras"))
10078               (patches (search-patches "gnome-todo-libportal.patch"))))
10079     (build-system meson-build-system)
10080     (arguments
10081      (list
10082       #:glib-or-gtk? #t
10083       #:phases
10084       #~(modify-phases %standard-phases
10085           (add-after 'unpack 'skip-gtk-update-icon-cache
10086             (lambda _
10087               (substitute* "build-aux/meson/meson_post_install.py"
10088                 (("gtk-update-icon-cache") "true"))))
10089           (delete 'check)
10090           (add-after 'install 'check
10091             (assoc-ref %standard-phases
10092                        'check))
10093           (add-before 'check 'pre-check
10094             (lambda _
10095               (setenv "GSETTINGS_SCHEMA_DIR"
10096                       (string-append #$output "/share/glib-2.0/schemas")))))))
10097     (native-inputs
10098      (list gettext-minimal
10099            gobject-introspection
10100            `(,glib "bin")               ;for glib-compile-resources
10101            `(,gtk "bin")                ;for gtk-update-icon-cache
10102            itstool
10103            pkg-config))
10104     (inputs
10105      (list rest                         ;for Todoist plugin
10106            gtk
10107            json-glib                    ;for Todoist plugin
10108            libadwaita
10109            evolution-data-server
10110            libical
10111            libpeas
10112            libportal
10113            python-pygobject
10114            evolution-data-server
10115            gnome-online-accounts
10116            gsettings-desktop-schemas))
10117     (home-page "https://wiki.gnome.org/Apps/Todo")
10118     (synopsis "GNOME's ToDo Application")
10119     (description "GNOME To Do is a simplistic personal task manager designed
10120 to perfectly fit the GNOME desktop.")
10121     (license license:gpl3+)))
10122
10123 (define-public gnome-dictionary
10124   (package
10125     (name "gnome-dictionary")
10126     (version "40.0")
10127     (source (origin
10128               (method url-fetch)
10129               (uri (string-append "mirror://gnome/sources/" name "/"
10130                                   (version-major version) "/"
10131                                   name "-" version ".tar.xz"))
10132               (sha256
10133                (base32
10134                 "1d8dhcfys788vv27v34i3s3x3jdvdi2kqn2a5p8c937a9hm0qr9f"))))
10135     (build-system meson-build-system)
10136     (arguments
10137      `(#:glib-or-gtk? #t
10138        #:phases
10139        (modify-phases %standard-phases
10140          (add-after 'unpack 'skip-gtk-update-icon-cache
10141            ;; Don't create 'icon-theme.cache'.
10142            (lambda _
10143              (substitute* "build-aux/meson/post-install.py"
10144                (("gtk-update-icon-cache") "true")))))))
10145     (native-inputs
10146      (list `(,glib "bin")
10147            gobject-introspection
10148            intltool
10149            itstool
10150            pkg-config
10151            libxml2))
10152     (inputs
10153      (list gsettings-desktop-schemas
10154            gtk+))
10155     (home-page "https://wiki.gnome.org/Apps/Dictionary")
10156     (synopsis "Look up words in dictionary sources")
10157     (description
10158      "GNOME Dictionary can look for the definition or translation of a word in
10159 existing databases over the internet.")
10160     (license license:gpl3+)))
10161
10162 (define-public gnome-tweaks
10163   (package
10164     (name "gnome-tweaks")
10165     (version "40.10")
10166     (source (origin
10167               (method url-fetch)
10168               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
10169                                   (version-major version) "/"
10170                                   "gnome-tweaks-" version ".tar.xz"))
10171               (patches
10172                (list (search-patch "gnome-tweaks-search-paths.patch")))
10173               (sha256
10174                (base32
10175                 "1z13xy804hld9q8k0vq5y4j5jk7m0ayqzkli8jxpymwrlcrkpzfg"))))
10176     (build-system meson-build-system)
10177     (arguments
10178      (list
10179       #:glib-or-gtk? #t
10180       #:configure-flags #~(list "-Dlocalstatedir=/tmp"
10181                                 "-Dsysconfdir=/tmp")
10182       #:imported-modules `((guix build python-build-system)
10183                            ,@%meson-build-system-modules)
10184       #:modules '((guix build meson-build-system)
10185                   ((guix build python-build-system) #:prefix python:)
10186                   (guix build utils))
10187       #:phases
10188       #~(modify-phases %standard-phases
10189           (add-after 'unpack 'skip-gtk-update-icon-cache
10190             ;; Don't create 'icon-theme.cache'.
10191             (lambda _
10192               (substitute* "meson-postinstall.py"
10193                 (("gtk-update-icon-cache") "true"))))
10194           (add-after 'install 'wrap
10195             (assoc-ref python:%standard-phases 'wrap))
10196           (add-after 'wrap 'wrap-gi-typelib-and-python
10197             (lambda* (#:key inputs outputs #:allow-other-keys)
10198               (wrap-program (search-input-file outputs "bin/gnome-tweaks")
10199                 `("GI_TYPELIB_PATH" ":" prefix
10200                   (,(getenv "GI_TYPELIB_PATH")))
10201                 `("GUIX_PYTHONPATH" ":" prefix
10202                   (,(python:site-packages inputs outputs)))))))))
10203     (native-inputs
10204      (list `(,glib "bin")               ; for glib-compile-resources, etc.
10205            gettext-minimal
10206            pkg-config))
10207     (inputs
10208      (list bash-minimal                 ; to execute the wrapper program
10209            gnome-desktop
10210            gtk+
10211            gobject-introspection
10212            gsettings-desktop-schemas
10213            libhandy
10214            libnotify
10215            libsoup
10216            nautilus
10217            python
10218            python-pygobject))
10219     (synopsis "Customize advanced GNOME 3 options")
10220     (home-page "https://wiki.gnome.org/Apps/Tweaks")
10221     (description
10222      "GNOME Tweaks allows adjusting advanced configuration settings in
10223 GNOME 3.  This includes things like the fonts used in user interface elements,
10224 alternative user interface themes, changes in window management behavior,
10225 GNOME Shell appearance and extension, etc.")
10226     (license license:gpl3+)))
10227
10228 (define-public gnome-shell-extensions
10229   (package
10230     (name "gnome-shell-extensions")
10231     (version "42.3")
10232     (source (origin
10233               (method url-fetch)
10234               (uri (string-append "mirror://gnome/sources/" name "/"
10235                                   (version-major version)  "/"
10236                                   name "-" version ".tar.xz"))
10237               (sha256
10238                (base32
10239                 "1z3k4bvq8f2s0q9q7i093w4hrz289lci7xlib20aqa4z5sivxhhf"))))
10240     (build-system meson-build-system)
10241     (arguments
10242      '(#:configure-flags '("-Dextension_set=all")))
10243     (native-inputs
10244      (list `(,glib "bin")
10245            gettext-minimal
10246            pkg-config))
10247     (propagated-inputs
10248      (list glib))
10249     (synopsis "Extensions for GNOME Shell")
10250     (description "GNOME Shell extensions modify and extend GNOME Shell
10251 functionality and behavior.")
10252     (home-page "https://extensions.gnome.org/")
10253     (license license:gpl3+)))
10254
10255 (define-public folks
10256   (package
10257     (name "folks")
10258     (version "0.15.5")
10259     (source (origin
10260               (method url-fetch)
10261               (uri (string-append
10262                     "mirror://gnome/sources/folks/"
10263                     (version-major+minor version) "/"
10264                     "folks-" version ".tar.xz"))
10265               (sha256
10266                (base32
10267                 "11lhfn6b7gml4ckj2dkm6g889j21wpvj90srwjp85k9hcf4qmzqg"))))
10268     (build-system meson-build-system)
10269     (arguments
10270      '(#:phases
10271        (modify-phases %standard-phases
10272          (add-after 'unpack 'skip-gtk-update-icon-cache
10273            ;; Don't create 'icon-theme.cache'.
10274            (lambda _
10275              (substitute* "meson_post_install.py"
10276                (("gtk-update-icon-cache") "true")))))))
10277     (inputs
10278      (list bdb
10279            dbus-glib
10280            evolution-data-server
10281            glib
10282            libgee
10283            readline
10284            telepathy-glib))
10285     (native-inputs
10286      (list gettext-minimal
10287            `(,glib "bin")
10288            gobject-introspection
10289            python-dbusmock
10290            pkg-config
10291            python
10292            vala))
10293     (synopsis "Library to aggregate data about people")
10294     (description "Libfolks is a library that aggregates information about people
10295 from multiple sources (e.g., Telepathy connection managers for IM contacts,
10296 Evolution Data Server for local contacts, libsocialweb for web service contacts,
10297 etc.) to create metacontacts.  It's written in Vala, which generates C code when
10298 compiled.")
10299     (home-page "https://wiki.gnome.org/Projects/Folks")
10300     (license license:lgpl2.1+)))
10301
10302 (define-public gfbgraph
10303   (package
10304     (name "gfbgraph")
10305     (version "0.2.4")
10306     (source (origin
10307               (method url-fetch)
10308               (uri (string-append
10309                     "mirror://gnome/sources/gfbgraph/"
10310                     (version-major+minor version) "/"
10311                     "gfbgraph-" version ".tar.xz"))
10312               (sha256
10313                (base32
10314                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
10315     (build-system glib-or-gtk-build-system)
10316     (arguments
10317      `(#:tests? #f                      ; tests appear to require the network
10318        #:configure-flags '("--disable-static"
10319                            "--enable-gtk-doc"
10320                            "--enable-introspection")))
10321     (native-inputs
10322      (list gobject-introspection
10323            gtk-doc/stable
10324            pkg-config
10325            ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
10326            autoconf
10327            automake
10328            libtool
10329            which))
10330     (inputs
10331      `(("json-glib" ,json-glib)
10332        ("gnome-online-accounts" ,gnome-online-accounts)
10333        ("rest" ,rest)))
10334     (synopsis "GLib/GObject wrapper for the Facebook API")
10335     (description "This library allows you to use the Facebook API from
10336 GLib/GObject code.")
10337     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
10338     (license license:lgpl2.1+)))
10339
10340 (define-public libgnomekbd
10341   (package
10342     (name "libgnomekbd")
10343     (version "3.28.0")
10344     (source (origin
10345               (method url-fetch)
10346               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
10347                                   (version-major+minor version)  "/"
10348                                   "libgnomekbd-" version ".tar.xz"))
10349               (sha256
10350                (base32
10351                 "1jarhq9crhq0wfnbcz7x3hgxbkan98ax3p2jwcgzj9jc7r27l1dk"))))
10352     (build-system gnu-build-system)
10353     (native-inputs
10354      (list autoconf
10355            automake
10356            `(,glib "bin")
10357            libtool
10358            pkg-config
10359            gettext-minimal
10360            gobject-introspection))
10361     (propagated-inputs
10362      ;; Referred to in .h files and .pc.
10363      (list glib
10364            gtk+
10365            libxklavier))
10366     (home-page "https://www.gnome.org")
10367     (synopsis "GNOME keyboard configuration library")
10368     (description
10369      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
10370 environment, which can notably display keyboard layouts.")
10371     (license license:lgpl2.0+)))
10372
10373 ;;; This package is no longer maintained:
10374 ;;; https://wiki.gnome.org/Attic/LibUnique
10375 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
10376 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
10377 (define-public libunique
10378   (package
10379     (name "libunique")
10380     (version "3.0.2")
10381     (source (origin
10382               (method url-fetch)
10383               (uri (string-append "mirror://gnome/sources/" name "/"
10384                                   (version-major+minor version)  "/"
10385                                   name "-" version ".tar.xz"))
10386               (sha256
10387                (base32
10388                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
10389     (build-system glib-or-gtk-build-system)
10390     (arguments
10391      `(#:configure-flags '("--disable-static"
10392                            "--disable-dbus" ; use gdbus
10393                            "--enable-introspection")))
10394     (native-inputs
10395      `(("pkg-config" ,pkg-config)
10396        ("gobject-introspection" ,gobject-introspection)
10397        ("glib:bin" ,glib "bin")
10398        ("gtk-doc" ,gtk-doc/stable)))
10399     (propagated-inputs
10400      ;; Referred to in .h files and .pc.
10401      (list gtk+))
10402     (home-page "https://wiki.gnome.org/Attic/LibUnique")
10403     (synopsis "Library for writing single instance applications")
10404     (description
10405      "Libunique is a library for writing single instance applications.  If you
10406 launch a single instance application twice, the second instance will either just
10407 quit or will send a message to the running instance.  Libunique makes it easy to
10408 write this kind of application, by providing a base class, taking care of all
10409 the IPC machinery needed to send messages to a running instance, and also
10410 handling the startup notification side.")
10411     (license license:lgpl2.1+)))
10412
10413 (define-public gnome-calculator
10414   (package
10415     (name "gnome-calculator")
10416     (version "42.2")
10417     (source
10418      (origin
10419        (method url-fetch)
10420        (uri (string-append "mirror://gnome/sources/" name "/"
10421                            (version-major version) "/"
10422                            name "-" version ".tar.xz"))
10423        (sha256
10424         (base32
10425          "1866qn0r9xp7b7j1436kry2k3bdh9ikhz2wm41jxcn1nljyb3nik"))))
10426     (build-system meson-build-system)
10427     (arguments
10428      '(#:glib-or-gtk? #t
10429        #:phases
10430        (modify-phases %standard-phases
10431          (add-after 'unpack 'skip-gtk-update-icon-cache
10432            (lambda _
10433              (substitute* "meson.build"
10434                (("gtk_update_icon_cache: true")
10435                 "gtk_update_icon_cache: false"))))
10436          (add-before 'check 'pre-check
10437            (lambda _
10438              ;; Tests require a writable HOME.
10439              (setenv "HOME" (getcwd)))))))
10440     (native-inputs
10441      (list gettext-minimal
10442            `(,glib "bin")               ;for glib-compile-schemas, gio-2.0.
10443            itstool
10444            pkg-config
10445            python
10446            vala))
10447     (inputs
10448      (list gsettings-desktop-schemas-next
10449            gtksourceview
10450            libadwaita
10451            libgee
10452            libhandy
10453            libsoup-minimal-2
10454            libxml2
10455            mpc
10456            mpfr))
10457     (home-page "https://wiki.gnome.org/Apps/Calculator")
10458     (synopsis "Desktop calculator")
10459     (description
10460      "Calculator is an application that solves mathematical equations and
10461 is suitable as a default application in a Desktop environment.")
10462     (license license:gpl3)))
10463
10464 (define-public xpad
10465   (package
10466     (name "xpad")
10467     (version "5.8.0")
10468     (source
10469      (origin
10470        (method url-fetch)
10471        (uri (string-append "https://launchpad.net/xpad/trunk/"
10472                            version "/+download/"
10473                            name "-" version ".tar.bz2"))
10474        (sha256
10475         (base32
10476          "1sc2dz4yxx6glnqpnhiby85g2blnsfn8d3fvbaqhdi2hi0q54q7j"))))
10477     (build-system gnu-build-system)
10478     (native-inputs
10479      (list autoconf automake
10480            `(,gtk+ "bin") intltool pkg-config))
10481     (inputs
10482      (list gtksourceview libsm))
10483     (home-page "https://wiki.gnome.org/Apps/Xpad")
10484     (synopsis "Virtual sticky note")
10485     (description
10486      "Xpad is a sticky note that strives to be simple, fault tolerant,
10487 and customizable.  Xpad consists of independent pad windows, each is
10488 basically a text box in which notes can be written.")
10489     (license license:gpl3+)))
10490
10491 (define-public gucharmap
10492   (let ((unicode-files
10493          '(("Blocks.txt"
10494             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
10495            ("DerivedAge.txt"
10496             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
10497            ("NamesList.txt"
10498             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
10499            ("Scripts.txt"
10500             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
10501            ("UnicodeData.txt"
10502             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
10503            ("Unihan.zip"
10504             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
10505     (package
10506       (name "gucharmap")
10507       (version "12.0.1")
10508       (source
10509        (origin
10510          (method url-fetch)
10511          (uri (string-append "mirror://gnome/sources/" name "/"
10512                              (version-major+minor version) "/"
10513                              name "-" version ".tar.xz"))
10514          (sha256
10515           (base32
10516            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
10517       (build-system glib-or-gtk-build-system)
10518       (arguments
10519        `(#:modules ((ice-9 match)
10520                     (guix build glib-or-gtk-build-system)
10521                     (guix build utils))
10522          #:configure-flags
10523          (list "--with-unicode-data=../unicode-data")
10524          #:phases
10525          (modify-phases %standard-phases
10526            (add-after 'unpack 'prepare-unicode-data
10527              (lambda* (#:key inputs #:allow-other-keys)
10528                (mkdir-p "../unicode-data")
10529                (with-directory-excursion "../unicode-data"
10530                  (for-each (match-lambda
10531                              ((file _)
10532                               (install-file (assoc-ref inputs file) ".")))
10533                            ',unicode-files))
10534                #t)))))
10535       (native-inputs
10536        `(("desktop-file-utils" ,desktop-file-utils)
10537          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10538          ("gobject-introspection" ,gobject-introspection)
10539          ("intltool" ,intltool)
10540          ("itstool" ,itstool)
10541          ("pkg-config" ,pkg-config)
10542          ,@(map (match-lambda
10543                   ((file hash)
10544                    `(,file
10545                      ,(origin
10546                         (method url-fetch)
10547                         (uri (string-append
10548                               "http://www.unicode.org/Public/12.0.0/ucd/"
10549                               file))
10550                         (sha256 (base32 hash))))))
10551                 unicode-files)
10552          ("unzip" ,unzip)))
10553       (inputs
10554        `(("gtk+" ,gtk+)
10555          ("xmllint" ,libxml2)))
10556       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10557       (synopsis "Unicode character picker and font browser")
10558       (description
10559        "This program allows you to browse through all the available Unicode
10560 characters and categories for the installed fonts, and to examine their
10561 detailed properties.  It is an easy way to find the character you might
10562 only know by its Unicode name or code point.")
10563       (license license:gpl3+))))
10564
10565 (define-public gcolor3
10566   (package
10567     (name "gcolor3")
10568     (version "2.4.0")
10569     (source
10570      (origin
10571        (method git-fetch)
10572        (uri (git-reference
10573              (url "https://gitlab.gnome.org/World/gcolor3")
10574              (commit (string-append "v" version))))
10575        (file-name (git-file-name name version))
10576        (sha256
10577         (base32 "1igqmach1vhcrvbpw346pmkbb5kabbb806ssswrvkp569n700wmc"))
10578        ;; XXX: Remove when upgrading
10579        (patches (search-patches "gcolor3-update-libportal-usage.patch"))))
10580     (build-system meson-build-system)
10581     (arguments
10582      `(#:glib-or-gtk? #t))
10583     (native-inputs
10584      (list desktop-file-utils gettext-minimal
10585            `(,glib "bin")
10586            `(,gtk+ "bin") pkg-config))
10587     (inputs
10588      (list gsettings-desktop-schemas gtk+ libportal))
10589     (home-page "https://www.hjdskes.nl/projects/gcolor3/")
10590     (synopsis "Simple color chooser written in GTK3")
10591     (description "Color Picker is a simple color chooser written in GTK3.  It
10592 supports both X and Wayland display servers.")
10593     (license license:gpl2+)))
10594
10595 (define-public bluefish
10596   (package
10597     (name "bluefish")
10598     (version "2.2.12")
10599     (source
10600      (origin
10601        (method url-fetch)
10602        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10603                            "bluefish-" version ".tar.gz"))
10604        (sha256
10605         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10606     (build-system gnu-build-system)
10607     (native-inputs
10608      (list desktop-file-utils intltool pkg-config))
10609     (inputs
10610      (list enchant gtk+ python-wrapper libxml2 gucharmap))
10611     (home-page "http://bluefish.openoffice.nl")
10612     (synopsis "Web development studio")
10613     (description
10614      "Bluefish is an editor aimed at programmers and web developers,
10615 with many options to write web sites, scripts and other code.
10616 Bluefish supports many programming and markup languages.")
10617     (license license:gpl3+)))
10618
10619 (define-public gnome-system-monitor
10620   (package
10621     (name "gnome-system-monitor")
10622     (version "42.0")
10623     (source
10624      (origin
10625        (method url-fetch)
10626        (uri (string-append "mirror://gnome/sources/" name "/"
10627                            (version-major version) "/"
10628                            name "-" version ".tar.xz"))
10629        (sha256
10630         (base32
10631          "1p3mq32pfd9260aql5nys806g0c4nrswacwqs8ms40920ci9s8qk"))))
10632     (build-system meson-build-system)
10633     (arguments
10634      '(#:glib-or-gtk? #t
10635        #:configure-flags '("-Dsystemd=false")))
10636     (native-inputs
10637      (list `(,glib "bin")               ;for glib-mkenums.
10638            `(,gtk+ "bin")               ;gtk-update-icon-cache
10639            intltool
10640            itstool
10641            libgtop
10642            polkit
10643            pkg-config))
10644     (inputs
10645      (list gdk-pixbuf                   ;for loading SVG files.
10646            gtk+
10647            gtkmm-3
10648            libhandy
10649            librsvg
10650            libxml2
10651            libwnck))
10652     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10653     (synopsis "Process viewer and system resource monitor for GNOME")
10654     (description
10655      "GNOME System Monitor is a GNOME process viewer and system monitor with
10656 an attractive, easy-to-use interface.  It has features, such as a tree view
10657 for process dependencies, icons for processes, the ability to hide processes,
10658 graphical time histories of CPU/memory/swap usage and the ability to
10659 kill/reinice processes.")
10660     (license license:gpl2+)))
10661
10662 (define-public python-pyatspi
10663   (package
10664     (name "python-pyatspi")
10665     (version "2.34.0")
10666     (source (origin
10667               (method url-fetch)
10668               (uri (string-append
10669                     "mirror://gnome/sources/pyatspi/"
10670                     (version-major+minor version)
10671                     "/pyatspi-" version ".tar.xz"))
10672               (sha256
10673                (base32
10674                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10675     (build-system gnu-build-system)
10676     (arguments
10677      `(#:phases
10678        (modify-phases %standard-phases
10679          (add-before 'build 'fix-atk-load
10680            (lambda _
10681              (substitute* "pyatspi/__init__.py"
10682                (("from gi.repository import Atspi")
10683                 "gi.require_version('Gtk', '3.0')
10684 from gi.repository import Gtk
10685 from gi.repository import Atspi"))
10686              #t)))))
10687     (native-inputs
10688      (list pkg-config))
10689     (inputs
10690      (list python))
10691     (propagated-inputs
10692      (list python-pygobject))
10693     (synopsis "Python client bindings for D-Bus AT-SPI")
10694     (home-page "https://wiki.linuxfoundation.org/accessibility\
10695 /atk/at-spi/at-spi_on_d-bus")
10696     (description
10697      "This package includes a python client library for the AT-SPI D-Bus
10698 accessibility infrastructure.")
10699     (license license:lgpl2.0)
10700     (properties '((upstream-name . "pyatspi")))))
10701
10702 (define-public orca
10703   (package
10704     (name "orca")
10705     (version "41.0")
10706     (source (origin
10707               (method url-fetch)
10708               (uri (string-append
10709                     "mirror://gnome/sources/" name "/"
10710                     (version-major version) "/"
10711                     name "-" version ".tar.xz"))
10712               (sha256
10713                (base32
10714                 "1gflnsv6d5qn5rh1f16yfa0q0yv8yvd0l5lbwrsdg7z18lafb5vn"))))
10715     (build-system glib-or-gtk-build-system)
10716     (arguments
10717      '(#:phases
10718        (modify-phases %standard-phases
10719          (add-before 'configure 'qualify-xkbcomp
10720            (lambda* (#:key inputs #:allow-other-keys)
10721              (let ((xkbcomp (string-append
10722                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10723                (substitute* "src/orca/orca.py"
10724                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))))
10725          (add-after 'install 'wrap-orca
10726            (lambda* (#:key outputs #:allow-other-keys)
10727              (let* ((out  (assoc-ref outputs "out"))
10728                     (prog (string-append out "/bin/orca")))
10729                (wrap-program prog
10730                  `("GI_TYPELIB_PATH" ":" prefix
10731                    (,(getenv "GI_TYPELIB_PATH")))
10732                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10733                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10734                  `("GUIX_PYTHONPATH" ":" prefix
10735                    (,(getenv "GUIX_PYTHONPATH"))))))))))
10736     (native-inputs
10737      (list intltool
10738            itstool
10739            pkg-config
10740            libxml2))
10741     (inputs
10742      (list at-spi2-atk
10743            gsettings-desktop-schemas
10744            gstreamer
10745            gst-plugins-base
10746            gst-plugins-good
10747            gtk+
10748            python
10749            python-pygobject
10750            python-pyatspi
10751            speech-dispatcher
10752            xkbcomp))
10753     (synopsis
10754      "Screen reader for individuals who are blind or visually impaired")
10755     (home-page "https://wiki.gnome.org/Projects/Orca")
10756     (description
10757      "Orca is a screen reader that provides access to the graphical desktop
10758 via speech and refreshable braille.  Orca works with applications and toolkits
10759 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10760     (license license:lgpl2.1+)))
10761
10762 (define-public gspell
10763   (package
10764     (name "gspell")
10765     (version "1.8.2")
10766     (source (origin
10767               (method url-fetch)
10768               (uri (string-append "mirror://gnome/sources/" name "/"
10769                                   (version-major+minor version) "/"
10770                                   name "-" version ".tar.xz"))
10771               (sha256
10772                (base32
10773                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10774               (patches (search-patches "gspell-dash-test.patch"))))
10775     (build-system glib-or-gtk-build-system)
10776     (arguments
10777      '(#:configure-flags (list "--enable-vala")
10778        #:phases
10779        (modify-phases %standard-phases
10780          (add-before 'check 'pre-check
10781            (lambda* (#:key inputs #:allow-other-keys)
10782              ;; Tests require a running X server.
10783              (system "Xvfb :1 &")
10784              (setenv "DISPLAY" ":1")
10785
10786              ;; For the missing /etc/machine-id.
10787              (setenv "DBUS_FATAL_WARNINGS" "0")
10788
10789              ;; Allow Enchant and its Aspell backend to find the en_US
10790              ;; dictionary.
10791              (setenv "ASPELL_DICT_DIR"
10792                      (search-input-directory inputs "/lib/aspell")))))))
10793     (inputs
10794      (list iso-codes))
10795     (native-inputs
10796      `(("glib" ,glib "bin")
10797        ("gobject-introspection" ,gobject-introspection)
10798        ("pkg-config" ,pkg-config)
10799        ("vala" ,vala)                             ;for VAPI, needed by Geary
10800        ("xmllint" ,libxml2)
10801
10802        ;; For tests.
10803        ("aspell-dict-en" ,aspell-dict-en)
10804        ("xorg-server" ,xorg-server-for-tests)))
10805     (propagated-inputs
10806      ;; Referred by .pc file.
10807      (list enchant glib gtk+))
10808     (home-page "https://wiki.gnome.org/Projects/gspell")
10809     (synopsis "GNOME's alternative spell checker")
10810     (description
10811      "gspell provides a flexible API to add spell-checking to a GTK+
10812 application.  It provides a GObject API, spell-checking to text entries and
10813 text views, and buttons to choose the language.")
10814     (license license:gpl2+)))
10815
10816 (define-public gnome-planner
10817   (package
10818     (name "gnome-planner")
10819     (version "0.14.6")
10820     (source (origin
10821               (method url-fetch)
10822               (uri (string-append "mirror://gnome/sources/planner/"
10823                                   (version-major+minor version) "/planner-"
10824                                   version ".tar.xz"))
10825               (sha256
10826                (base32
10827                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10828     (build-system glib-or-gtk-build-system)
10829     (arguments
10830      ;; Disable the Python bindings because the Planner program functions
10831      ;; without them, and (as of 2017-06-13) we have not packaged all of
10832      ;; packages that are necessary for building the Python bindings.
10833      `(#:configure-flags
10834        (list "--disable-python"
10835              ,@(if (string=? "aarch64-linux" (%current-system))
10836                    '("--build=aarch64-unknown-linux-gnu")
10837                    '()))))
10838     (inputs
10839      (list libgnomecanvas
10840            libgnomeui
10841            libglade
10842            gnome-vfs
10843            gconf
10844            libxml2
10845            libxslt
10846            gtk+
10847            glib))
10848     (native-inputs
10849      (list intltool scrollkeeper pkg-config))
10850     (home-page "https://wiki.gnome.org/Apps/Planner")
10851     (synopsis "Project management software for the GNOME desktop")
10852     (description
10853      "GNOME Planner is a project management tool based on the Work Breakdown
10854 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10855 the resources, tasks, and constraints that you define, Planner generates
10856 various views into a project.  For example, Planner can show a Gantt chart of
10857 the project.  It can show a detailed summary of tasks including their
10858 duration, cost, and current progress.  It can also show a report of resource
10859 utilization that highlights under-utilized and over-utilized resources.  These
10860 views can be printed as PDF or PostScript files, or exported to HTML.")
10861     (license license:gpl2+)))
10862
10863 (define-public lollypop
10864   (package
10865     (name "lollypop")
10866     (version "1.4.24")
10867     (source
10868      (origin
10869        (method url-fetch)
10870        (uri (string-append "https://adishatz.org/lollypop/"
10871                            "lollypop-" version ".tar.xz"))
10872        (sha256
10873         (base32 "10cw3x75siibmnbh4zhfmf2vd08fqjs3lj3l4wpk6zj9h22ncfxw"))))
10874     (build-system meson-build-system)
10875     (arguments
10876      `(#:imported-modules
10877        (,@%meson-build-system-modules
10878         (guix build python-build-system))
10879        #:modules
10880        ((guix build meson-build-system)
10881         ((guix build python-build-system) #:prefix python:)
10882         (guix build utils))
10883        #:glib-or-gtk? #t
10884        #:tests? #f                      ; no test suite
10885        #:phases
10886        (modify-phases %standard-phases
10887          (add-after 'install 'wrap-program
10888            (lambda* (#:key outputs #:allow-other-keys)
10889              (let ((out               (assoc-ref outputs "out"))
10890                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10891                (wrap-program (string-append out "/bin/lollypop")
10892                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10893              #t))
10894          (add-after 'install 'wrap-python
10895            (assoc-ref python:%standard-phases 'wrap)))))
10896     (native-inputs
10897      `(("gettext" ,gettext-minimal)
10898        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10899        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10900        ("pkg-config" ,pkg-config)))
10901     (inputs
10902      `(("glib-networking" ,glib-networking)
10903        ("gobject-introspection" ,gobject-introspection)
10904        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10905        ("gst-plugins-base" ,gst-plugins-base)
10906        ("libnotify" ,libnotify)
10907        ("libsecret" ,libsecret)
10908        ("libhandy" ,libhandy)
10909        ("libsoup" ,libsoup-minimal-2)
10910        ("python" ,python)
10911        ("python-beautifulsoup4" ,python-beautifulsoup4)
10912        ("python-gst" ,python-gst)
10913        ("python-pil" ,python-pillow)
10914        ("python-pycairo" ,python-pycairo)
10915        ("python-pygobject" ,python-pygobject)
10916        ("python-pylast" ,python-pylast)
10917        ("totem-pl-parser" ,totem-pl-parser)
10918        ("webkitgtk" ,webkitgtk)))
10919     (propagated-inputs
10920      (list ;; gst-plugins-base is required to start Lollypop,
10921            ;; the others are required to play streaming.
10922            gst-plugins-good gst-plugins-ugly))
10923     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10924     (synopsis "GNOME music playing application")
10925     (description
10926      "Lollypop is a music player designed to play well with GNOME desktop.
10927 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10928 from artists and tracks from the web.  It also fetches cover artworks
10929 automatically and it can stream songs from online music services and charts.")
10930     (license license:gpl3+)))
10931
10932 (define-public gnome-video-effects
10933   (package
10934     (name "gnome-video-effects")
10935     (version "0.5.0")
10936     (source (origin
10937               (method url-fetch)
10938               (uri (string-append "mirror://gnome/sources/" name "/"
10939                                   (version-major+minor version) "/" name "-"
10940                                   version ".tar.xz"))
10941               (sha256
10942                (base32
10943                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10944     (build-system meson-build-system)
10945     (native-inputs
10946      (list gettext-minimal pkg-config))
10947     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10948     (synopsis "Video effects for Cheese and other GNOME applications")
10949     (description
10950      "A collection of GStreamer video filters and effects to be used in
10951 photo-booth-like software, such as Cheese.")
10952     (license license:gpl2+)))
10953
10954 (define-public cheese
10955   (package
10956     (name "cheese")
10957     (version "41.0")
10958     (source (origin
10959               (method url-fetch)
10960               (uri (string-append "mirror://gnome/sources/" name "/"
10961                                   (version-major version) "/" name "-"
10962                                   version ".tar.xz"))
10963               (sha256
10964                (base32
10965                 "1y92glc0d6w323x2bdbc0gdh1jdffvkbv6cwlwm1rx0wgvv1svqh"))))
10966     (arguments
10967      `(#:glib-or-gtk? #t
10968        #:meson ,meson-0.60
10969        ;; Tests require GDK.
10970        #:tests? #f
10971        #:phases
10972        (modify-phases %standard-phases
10973          (add-after 'unpack 'skip-gtk-update-icon-cache
10974            (lambda _
10975              ;; Don't create 'icon-theme.cache'
10976              (substitute* "meson_post_install.py"
10977                (("gtk-update-icon-cache") (which "true")))
10978              #t))
10979          (add-after 'install 'wrap-cheese
10980            (lambda* (#:key inputs outputs #:allow-other-keys)
10981              (let ((out             (assoc-ref outputs "out"))
10982                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10983                (wrap-program (string-append out "/bin/cheese")
10984                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10985              #t)))))
10986     (build-system meson-build-system)
10987     (native-inputs
10988      (list docbook-xsl
10989            docbook-xml-4.3
10990            gettext-minimal
10991            `(,glib "bin")
10992            gtk-doc/stable
10993            itstool
10994            libxml2
10995            libxslt
10996            pkg-config
10997            vala))
10998     (propagated-inputs
10999      (list gnome-video-effects
11000            clutter
11001            clutter-gst
11002            clutter-gtk
11003            libcanberra
11004            gdk-pixbuf
11005            glib
11006            gstreamer))
11007     (inputs
11008      (list gnome-desktop
11009            gobject-introspection
11010            gst-plugins-base
11011            gst-plugins-good
11012            gst-plugins-bad
11013            gtk+
11014            libx11
11015            libxtst))
11016     (home-page "https://wiki.gnome.org/Apps/Cheese")
11017     (synopsis "Webcam photo booth software for GNOME")
11018     (description
11019      "Cheese uses your webcam to take photos and videos.  Cheese can also
11020 apply fancy special effects and lets you share the fun with others.")
11021     (license license:gpl2+)))
11022
11023 (define-public passwordsafe
11024   (package
11025     (name "passwordsafe")
11026     (version "5.1")
11027     (source
11028      (origin
11029        (method git-fetch)
11030        (uri (git-reference
11031              (url "https://gitlab.gnome.org/World/secrets")
11032              (commit version)))
11033        (file-name (git-file-name name version))
11034        (sha256
11035         (base32 "0kd43j6i017wdsqj6d5gnxhfv4ijnh3xahlw7md2gh51i8p682j6"))))
11036     (build-system meson-build-system)
11037     (arguments
11038      (list #:glib-or-gtk? #t
11039            #:meson meson-0.59
11040            #:phases
11041            #~(modify-phases %standard-phases
11042                (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11043                  (lambda* (#:key outputs #:allow-other-keys)
11044                    (let ((prog (string-append #$output
11045                                               "/bin/gnome-passwordsafe"))
11046                          (pylib (string-append
11047                                  #$output "/lib/python"
11048                                  #$(version-major+minor
11049                                     (package-version (this-package-input "python")))
11050                                  "/site-packages")))
11051                      (wrap-program prog
11052                        `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11053                        `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
11054     (native-inputs
11055      (list desktop-file-utils
11056            gettext-minimal
11057            `(,glib "bin")
11058            gobject-introspection
11059            `(,gtk+ "bin")
11060            pkg-config))
11061     (inputs
11062      (list glib
11063            gsettings-desktop-schemas
11064            gtk+
11065            libhandy
11066            libpwquality
11067            python
11068            python-pygobject
11069            python-pykeepass))
11070     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
11071     (synopsis "Password manager for the GNOME desktop")
11072     (description
11073      "Password Safe is a password manager which makes use of the KeePass v4
11074 format.  It integrates perfectly with the GNOME desktop and provides an easy
11075 and uncluttered interface for the management of password databases.")
11076     (license license:gpl3+)))
11077
11078 (define-public sound-juicer
11079   (package
11080     (name "sound-juicer")
11081     (version "3.24.0")
11082     (source
11083      (origin
11084        (method url-fetch)
11085        (uri (string-append "mirror://gnome/sources/" name "/"
11086                            (version-major+minor version) "/"
11087                            name "-" version ".tar.xz"))
11088        (sha256
11089         (base32
11090          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
11091     (build-system glib-or-gtk-build-system)
11092     (native-inputs
11093      (list desktop-file-utils intltool itstool pkg-config libxml2))
11094     (inputs
11095      (list gtk+
11096            gsettings-desktop-schemas
11097            gstreamer
11098            gst-plugins-base
11099            gst-plugins-good
11100            iso-codes
11101            brasero
11102            libcanberra
11103            libdiscid
11104            libmusicbrainz
11105            neon))
11106     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
11107     (synopsis "Audio music cd ripper")
11108     (description "Sound Juicer extracts audio from compact discs and convert it
11109 into audio files that a personal computer or digital audio player can play.
11110 It supports ripping to any audio codec supported by a GStreamer plugin, such as
11111 mp3, Ogg Vorbis and FLAC")
11112     (license license:gpl2+)))
11113
11114 (define-public soundconverter
11115   (package
11116     (name "soundconverter")
11117     (version "3.0.2")
11118     (source
11119      (origin
11120        (method url-fetch)
11121        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
11122                            version "/+download/"
11123                            "soundconverter-" version ".tar.xz"))
11124
11125        (sha256
11126         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
11127     (build-system glib-or-gtk-build-system)
11128     (arguments
11129      `(#:imported-modules ((guix build python-build-system)
11130                            (guix build glib-or-gtk-build-system)
11131                            ,@%gnu-build-system-modules)
11132
11133        #:modules ((guix build glib-or-gtk-build-system)
11134                   (guix build utils)
11135                   ((guix build gnu-build-system) #:prefix gnu:)
11136                   ((guix build python-build-system) #:prefix python:))
11137
11138        #:phases
11139        (modify-phases %standard-phases
11140          (add-after 'install 'wrap-soundconverter-for-python
11141            (assoc-ref python:%standard-phases 'wrap))
11142          (add-after 'install 'wrap-soundconverter
11143            (lambda* (#:key inputs outputs #:allow-other-keys)
11144              (let ((out               (assoc-ref outputs "out"))
11145                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
11146                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
11147                (wrap-program (string-append out "/bin/soundconverter")
11148                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
11149                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
11150              #t)))))
11151     (native-inputs
11152      `(("intltool" ,intltool)
11153        ("pkg-config" ,pkg-config)
11154        ("glib:bin" ,glib "bin")))
11155     (inputs
11156      (list gtk+ python python-pygobject gstreamer gst-plugins-base))
11157     (home-page "https://soundconverter.org/")
11158     (synopsis "Convert between audio formats with a graphical interface")
11159     (description
11160      "SoundConverter supports converting between many audio formats including
11161 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
11162 configurable file renaming.")
11163     (license license:gpl3)))
11164
11165 (define-public workrave
11166   (package
11167     (name "workrave")
11168     (version "1.10.50")
11169     (source
11170      (origin
11171        (method git-fetch)
11172        (uri (git-reference
11173              (url "https://github.com/rcaelers/workrave")
11174              (commit (string-append "v" (string-map
11175                                          (match-lambda (#\. #\_) (chr chr))
11176                                          version)))))
11177        (file-name (git-file-name name version))
11178        (sha256
11179         (base32 "0fj3fqmdn4nsjgvbbvzpxw2mgiihcr1zpb08amg2p6hg9n11y9bx"))))
11180     (build-system glib-or-gtk-build-system)
11181     (arguments
11182      ;; The only tests are maintainer tests (in po/), which fail.
11183      `(#:tests? #f))
11184     (inputs (list glib
11185                   gtk+
11186                   gdk-pixbuf
11187                   gtkmm-3
11188                   glibmm
11189                   libx11
11190                   libxtst
11191                   dconf
11192                   libice
11193                   libsm
11194                   libxscrnsaver))
11195     (native-inputs `(("boost" ,boost)
11196                      ("pkg-config" ,pkg-config)
11197                      ("gettext" ,gettext-minimal)
11198                      ("autoconf" ,autoconf)
11199                      ("autoconf-archive" , autoconf-archive)
11200                      ("automake" ,automake)
11201                      ("libtool" ,libtool)
11202                      ("intltool" ,intltool)
11203                      ("gobject-introspection" ,gobject-introspection)
11204                      ("python3" ,python-3)
11205                      ("python-jinja2" ,python-jinja2)))
11206     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
11207     (description
11208      "Workrave is a program that assists in the recovery and prevention of
11209 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
11210 micro-pauses and rest breaks, and restricts you to your daily limit.")
11211     (home-page "http://www.workrave.org")
11212     (license license:gpl3+)))
11213
11214 (define-public ghex
11215   (package
11216     (name "ghex")
11217     (version "3.18.4")
11218     (source (origin
11219               (method url-fetch)
11220               (uri (string-append "mirror://gnome/sources/ghex/"
11221                                   (version-major+minor version) "/"
11222                                   "ghex-" version ".tar.xz"))
11223               (sha256
11224                (base32
11225                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
11226     (build-system meson-build-system)
11227     (arguments
11228      '(#:glib-or-gtk? #t
11229        #:phases
11230        (modify-phases %standard-phases
11231          (add-after 'unpack 'skip-gtk-update-icon-cache
11232            ;; Don't create 'icon-theme.cache'.
11233            (lambda _
11234              (substitute* "meson_post_install.py"
11235                (("gtk-update-icon-cache") (which "true")))
11236              #t)))))
11237     (native-inputs
11238      `(("pkg-config" ,pkg-config)
11239        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
11240        ("gnome-common" ,gnome-common)
11241        ("which" ,which)
11242        ("intltool" ,intltool)
11243        ("yelp-tools" ,yelp-tools)
11244        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
11245     (inputs
11246      `(("atk" ,atk)
11247        ("gtk" ,gtk+)))
11248     (synopsis "GNOME hexadecimal editor")
11249     (description "The GHex program can view and edit files in two ways:
11250 hexadecimal or ASCII.  It is useful for editing binary files in general.")
11251     (home-page "https://wiki.gnome.org/Apps/Ghex")
11252     (license license:gpl2)))
11253
11254 (define-public libdazzle
11255   (package
11256     (name "libdazzle")
11257     (version "3.44.0")
11258     (source (origin
11259               (method url-fetch)
11260               (uri (string-append "mirror://gnome/sources/libdazzle/"
11261                                   (version-major+minor version) "/"
11262                                   "libdazzle-" version ".tar.xz"))
11263               (sha256
11264                (base32
11265                 "1blfs61ifv4fywl0wbr1cm3rvmgrv06yiqajbnq0qs72nrgf9lrw"))))
11266     (build-system meson-build-system)
11267     (arguments
11268      `(#:phases
11269        (modify-phases %standard-phases
11270          (add-before 'check 'pre-check
11271            (lambda _
11272              ;; Tests require a running X server.
11273              (system "Xvfb :1 &")
11274              (setenv "DISPLAY" ":1"))))))
11275     (native-inputs
11276      (list `(,glib "bin") ; glib-compile-resources
11277            gobject-introspection
11278            pkg-config
11279            ;; For tests.
11280            xorg-server-for-tests
11281            vala))
11282     (inputs
11283      (list glib
11284            gtk+))
11285     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
11286     (synopsis "Companion library to GObject and Gtk+")
11287     (description "The libdazzle library is a companion library to GObject and
11288 Gtk+.  It provides various features that the authors wish were in the
11289 underlying library but cannot for various reasons.  In most cases, they are
11290 wildly out of scope for those libraries.  In other cases, they are not quite
11291 generic enough to work for everyone.")
11292     (license license:gpl3+)))
11293
11294 (define-public evolution
11295   (package
11296     (name "evolution")
11297     (version "3.42.1")
11298     (source (origin
11299               (method url-fetch)
11300               (uri (string-append "mirror://gnome/sources/evolution/"
11301                                   (version-major+minor version) "/"
11302                                   "evolution-" version ".tar.xz"))
11303               (sha256
11304                (base32
11305                 "0igfzapdvgfx2gnpwfkjfkn7l5j186wk88ni39vqas1sl7ijlls6"))))
11306     (build-system cmake-build-system)
11307     (arguments
11308      `(#:imported-modules (,@%cmake-build-system-modules
11309                            (guix build glib-or-gtk-build-system))
11310        #:modules ((guix build cmake-build-system)
11311                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11312                   (guix build utils))
11313        #:configure-flags
11314        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
11315              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
11316                                           ; in four years and cannot be built.
11317        #:phases
11318        (modify-phases %standard-phases
11319          ;; The build system attempts to install user interface modules to the
11320          ;; output directory of the "evolution-data-server" package.  This
11321          ;; change redirects that change.
11322          (add-after 'unpack 'patch-ui-module-dir
11323            (lambda* (#:key outputs #:allow-other-keys)
11324              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
11325                (("\\$\\{edsuimoduledir\\}")
11326                 (string-append (assoc-ref outputs "out")
11327                                "/lib/evolution-data-server/ui-modules")))))
11328          (add-after 'install 'glib-or-gtk-compile-schemas
11329            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
11330          (add-after 'install 'glib-or-gtk-wrap
11331            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11332     (native-inputs
11333      (list `(,glib "bin") ; glib-mkenums
11334            pkg-config intltool itstool))
11335     (inputs
11336      `(("enchant" ,enchant)
11337        ("evolution-data-server" ,evolution-data-server) ; must be the same version
11338        ("gcr" ,gcr)
11339        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11340        ("gnome-autoar" ,gnome-autoar)
11341        ("gnome-desktop" ,gnome-desktop)
11342        ("gspell" ,gspell)
11343        ("highlight" ,highlight)
11344        ("libcanberra" ,libcanberra)
11345        ("libgweather" ,libgweather)
11346        ("libnotify" ,libnotify)
11347        ("libsoup" ,libsoup)
11348        ("nss" ,nss)
11349        ("openldap" ,openldap)
11350        ("webkitgtk" ,webkitgtk-with-libsoup2) ; because of evolution-data-server
11351        ("ytnef" ,ytnef)))
11352     (home-page "https://gitlab.gnome.org/GNOME/evolution")
11353     (synopsis "Manage your email, contacts and schedule")
11354     (description "Evolution is a personal information management application
11355 that provides integrated mail, calendaring and address book
11356 functionality.")
11357     ;; See COPYING for details.
11358     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
11359                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
11360                    license:lgpl2.1+))))  ; smime/lib/*
11361
11362 (define-public gthumb
11363   (package
11364     (name "gthumb")
11365     (version "3.12.2")
11366     (source (origin
11367               (method url-fetch)
11368               (uri (string-append "mirror://gnome/sources/gthumb/"
11369                                   (version-major+minor version) "/"
11370                                   "gthumb-" version ".tar.xz"))
11371               (sha256
11372                (base32
11373                 "09flm8s6jrvfya2ypw5873mnnani8ssy7wdv3ra1cljk4bjszy4p"))))
11374     (build-system meson-build-system)
11375     (arguments
11376      `(#:glib-or-gtk? #t
11377        #:configure-flags
11378        ;; Ensure the RUNPATH contains all installed library locations.
11379        (list (string-append "-Dc_link_args=-Wl,-rpath="
11380                             (assoc-ref %outputs "out")
11381                             "/lib/gthumb/extensions")
11382              (string-append "-Dcpp_link_args=-Wl,-rpath="
11383                             (assoc-ref %outputs "out")
11384                             "/lib/gthumb/extensions"))))
11385     (native-inputs
11386      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11387        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
11388        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
11389        ("intltool" ,intltool)
11390        ("itstool" ,itstool)
11391        ("pkg-config" ,pkg-config)
11392        ("python" ,python)))
11393     (inputs
11394      `(("clutter" ,clutter)
11395        ("clutter-gst" ,clutter-gst)
11396        ("clutter-gtk" ,clutter-gtk)
11397        ("colord" ,colord)
11398        ("exiv2" ,exiv2)
11399        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11400        ("gstreamer" ,gstreamer)
11401        ("gtk" ,gtk+)
11402        ("libheif" ,libheif)
11403        ("libjpeg" ,libjpeg-turbo)
11404        ("libraw" ,libraw)
11405        ("librsvg" ,librsvg)
11406        ("libtiff" ,libtiff)
11407        ("libwebp" ,libwebp)))
11408     (home-page "https://wiki.gnome.org/Apps/Gthumb")
11409     (synopsis "GNOME image viewer and browser")
11410     (description "GThumb is an image viewer, browser, organizer, editor and
11411 advanced image management tool")
11412     (license license:gpl2+)))
11413
11414 (define-public terminator
11415   (package
11416     (name "terminator")
11417     (version "2.1.1")
11418     (source
11419      (origin
11420        (method url-fetch)
11421        (uri (string-append "https://github.com/gnome-terminator/terminator/"
11422                            "releases/download/v" version "/"
11423                            name "-" version ".tar.gz"))
11424        (sha256
11425         (base32 "0xdgmam7ghnxw6g38a4gjw3kk3rhga8c66lns18k928jlr9fmddw"))))
11426     (build-system python-build-system)
11427     (native-inputs
11428      `(("gettext" ,gettext-minimal)
11429        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
11430        ("gobject-introspection" ,gobject-introspection)
11431        ("intltool" ,intltool)
11432        ("pkg-config" ,pkg-config)
11433        ("python-psutil" ,python-psutil)
11434        ("python-pytest-runner" ,python-pytest-runner)
11435        ("python-pytest" ,python-pytest)))
11436     (inputs
11437      `(("cairo" ,cairo)
11438        ("dbus-glib" ,dbus-glib)
11439        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11440        ("gtk+" ,gtk+)
11441        ("python" ,python-wrapper)
11442        ("python-dbus" ,python-dbus)
11443        ("python-notify2" ,python-notify2)
11444        ("python-pycairo" ,python-pycairo)
11445        ("python-pygobject" ,python-pygobject)
11446        ("vte" ,vte)))
11447     (propagated-inputs
11448      (list python-configobj))
11449     (arguments
11450      ;; One test out of 28 fails due to dbus-python and python-notify; skip
11451      ;; tests.
11452      `(#:tests? #f
11453        #:imported-modules ((guix build glib-or-gtk-build-system)
11454                            ,@%python-build-system-modules)
11455        #:modules ((guix build python-build-system)
11456                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11457                   (guix build utils))
11458        #:phases
11459        (modify-phases %standard-phases
11460          (add-after 'unpack 'handle-dbus-python
11461            (lambda _
11462              ;; python-dbus cannot be found but it's really there.  See
11463              ;; https://github.com/SpotlightKid/jack-select/issues/2
11464              (substitute* "setup.py"
11465                (("'dbus-python',") ""))))
11466          (add-after 'install 'wrap-program
11467            (lambda* (#:key outputs #:allow-other-keys)
11468              (let ((prog (string-append (assoc-ref outputs "out")
11469                                         "/bin/terminator"))
11470                    (pylib (string-append (assoc-ref outputs "out")
11471                                          "/lib/python"
11472                                          ,(version-major+minor
11473                                            (package-version python))
11474                                          "/site-packages")))
11475                (wrap-program prog
11476                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11477                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))
11478          (add-after 'wrap-program 'glib-or-gtk-wrap
11479            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11480     (home-page "https://gnome-terminator.org/")
11481     (synopsis "Store and run multiple GNOME terminals in one window")
11482     (description
11483      "Terminator allows you to run multiple GNOME terminals in a grid and
11484 tabs, and it supports drag and drop re-ordering of terminals.")
11485     (license license:gpl2)))
11486
11487 (define-public libhandy
11488   (package
11489     (name "libhandy")
11490     (version "1.7.90")
11491     (source
11492      (origin
11493        (method git-fetch)
11494        (uri (git-reference
11495              (url "https://gitlab.gnome.org/GNOME/libhandy")
11496              (commit version)))
11497        (file-name (git-file-name name version))
11498        (sha256
11499         (base32 "1z8sbx7g19c1p8dy0sn0l25qfvrd2j28h269lsqm1y98r818h2k1"))))
11500     (build-system meson-build-system)
11501     (arguments
11502      `(#:configure-flags
11503        '("-Dglade_catalog=enabled"
11504          ;; XXX: Generating the documentation fails because the
11505          ;; libhandy.devhelp2 document cannot be created. This seems to be
11506          ;; caused by a problem during the XSL transformation.
11507          "-Dgtk_doc=false")
11508        #:phases
11509        (modify-phases %standard-phases
11510          (add-after 'unpack 'patch-docbook-xml
11511            (lambda* (#:key inputs #:allow-other-keys)
11512              (for-each
11513               (lambda (file)
11514                 (substitute* file
11515                   (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
11516                    (search-input-file inputs
11517                                       "/xml/dtd/docbook/docbookx.dtd"))))
11518               (find-files "doc" "\\.xml"))))
11519          (add-before 'check 'pre-check
11520            (lambda _
11521              ;; Tests require a running X server.
11522              (system "Xvfb :1 &")
11523              (setenv "DISPLAY" ":1"))))))
11524     (inputs
11525      (list gtk+ glade3))
11526     (native-inputs
11527      (list gobject-introspection        ; for g-ir-scanner
11528            `(,glib "bin")
11529            vala
11530            libxml2
11531            libxslt
11532            docbook-xsl
11533            docbook-xml-4.3
11534            gtk-doc/stable
11535            pkg-config
11536            gettext-minimal
11537
11538            ;; Test suite dependencies.
11539            hicolor-icon-theme
11540            xorg-server-for-tests))
11541     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11542     (synopsis "Library full of GTK+ widgets for mobile phones")
11543     (description "The aim of the handy library is to help with developing user
11544 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11545 for usage on small and big screens.")
11546     (license license:lgpl2.1+)))
11547
11548 (define-public libhandy-0.0
11549   (package
11550     (inherit libhandy)
11551     (version "0.0.13")
11552     (source
11553      (origin
11554        (method git-fetch)
11555        (uri (git-reference
11556              (url "https://gitlab.gnome.org/GNOME/libhandy")
11557              (commit (string-append "v" version))))
11558        (file-name (git-file-name "libhandy" version))
11559        (sha256
11560         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11561     (arguments
11562      (substitute-keyword-arguments (package-arguments libhandy)
11563        ((#:configure-flags flags)
11564         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11565
11566 (define-public libgit2-glib
11567   (package
11568     (name "libgit2-glib")
11569     (version "1.0.0.1")
11570     (source (origin
11571               (method url-fetch)
11572               (uri (string-append "mirror://gnome/sources/" name "/"
11573                                   (version-major+minor version) "/"
11574                                   name "-" version ".tar.xz"))
11575               (sha256
11576                (base32
11577                 "0mrb21cgqmbhbxqxwx76yry1ifqj1k4vy6455n6s034m6rlms2j6"))))
11578     (build-system meson-build-system)
11579     (native-inputs
11580      (list `(,glib "bin") ;; For glib-mkenums
11581            gobject-introspection
11582            pkg-config
11583            python-pygobject
11584            python-wrapper
11585            vala))
11586     (inputs
11587      (list glib libssh2))
11588     (propagated-inputs
11589      (list ;; In Requires of libgit2-glib.pc.
11590            libgit2))
11591     (synopsis "GLib wrapper around the libgit2 Git access library")
11592     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11593 access library.  It only implements the core plumbing functions, not really the
11594 higher level porcelain stuff.")
11595     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11596     (license license:gpl2+)))
11597
11598 (define-public gitg
11599   (package
11600     (name "gitg")
11601     (version "41")
11602     (source (origin
11603               (method url-fetch)
11604               (uri (string-append "mirror://gnome/sources/" name "/"
11605                                   (version-major version) "/"
11606                                   name "-" version ".tar.xz"))
11607               (sha256
11608                (base32
11609                 "0aa6djcf7rjw0q688mfy47k67bbjpnx6aw1xs94abfhgn6gipdkz"))))
11610     (build-system meson-build-system)
11611     (arguments
11612      (list
11613       #:glib-or-gtk? #t
11614       #:phases
11615       #~(modify-phases %standard-phases
11616           (add-after 'unpack 'disable-post-install-partially
11617             (lambda _
11618               (substitute* "meson_post_install.py"
11619                 (("'python'") ; there are no python sources to compile
11620                  (string-append "'" (which "true") "'"))
11621                 (("gtk-update-icon-cache") (which "true")))))
11622           (add-after 'unpack 'fix-test-sources
11623             (lambda _
11624               (substitute* "tests/libgitg/test-commit.vala"
11625                 (("/bin/bash") (which "bash")))))
11626           (add-after 'glib-or-gtk-wrap 'wrap-typelib
11627             (lambda* (#:key outputs #:allow-other-keys)
11628               (let ((prog (string-append #$output "/bin/gitg")))
11629                 (wrap-program prog
11630                   `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
11631     (inputs
11632      (list glib
11633            gsettings-desktop-schemas
11634            gspell
11635            gtk+
11636            gtksourceview
11637            json-glib
11638            libdazzle
11639            libgee
11640            libgit2-glib
11641            libpeas
11642            libsecret
11643            libsoup-minimal-2
11644            libxml2))
11645     (native-inputs
11646      (list `(,glib "bin")
11647            `(,gtk+ "bin")
11648            gobject-introspection
11649            intltool
11650            pkg-config
11651            python
11652            vala))
11653     (synopsis "Graphical user interface for git")
11654     (description
11655      "gitg is a graphical user interface for git.  It aims at being a small,
11656 fast and convenient tool to visualize the history of git repositories.
11657 Besides visualization, gitg also provides several utilities to manage your
11658 repository and commit your work.")
11659     (home-page "https://wiki.gnome.org/Apps/Gitg")
11660     (license license:gpl2+)))
11661
11662 (define-public gamin
11663   (package
11664     (name "gamin")
11665     (version "0.1.10")
11666     (source (origin
11667               (method url-fetch)
11668               (uri (string-append "mirror://gnome/sources/" name "/"
11669                                   (version-major+minor version) "/"
11670                                   name "-" version ".tar.bz2"))
11671               (sha256
11672                (base32
11673                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11674     (build-system gnu-build-system)
11675     (arguments
11676      `(#:phases
11677        (modify-phases %standard-phases
11678          ;; The 'config.sub' is too old to recognise aarch64.
11679          ,@(if (and=> (%current-target-system) target-aarch64?)
11680                `((add-after 'unpack 'replace-config.sub
11681                    (lambda _
11682                      (delete-file "config.sub")
11683                      (symlink (which "config.sub") "config.sub"))))
11684                '())
11685          (add-after 'unpack 'remove-deprecated-macro
11686            (lambda _
11687              (substitute* '("server/gam_node.c"
11688                             "server/gam_subscription.h"
11689                             "server/gam_node.h"
11690                             "server/gam_subscription.c")
11691                (("G_CONST_RETURN") "const"))
11692              #t))
11693          ;; The configure script runs a test program unconditionally,
11694          ;; without an option to manually set the test result.
11695          ;; Override this test anyway.
11696          ,@(if (%current-target-system)
11697                `((add-after 'bootstrap 'set-have-abstract-sockets
11698                    (lambda _
11699                      (define in-abstract-sockets-test? #f)
11700                      (substitute* "configure"
11701                        (("^#### Abstract sockets\n$")
11702                         (set! in-abstract-sockets-test? #t)
11703                         "#### Abstract sockets\n")
11704                        (("^have_abstract_sockets=no\n$")
11705                         (set! in-abstract-sockets-test? #f)
11706                         ;; ‘Abstract sockets’ appear to be Linux-only.
11707                         (string-append "have_abstract_sockets="
11708                                        ,(if (target-linux?)
11709                                             "yes"
11710                                             "no")
11711                                        "\nif false; then\nif false; then :\n"))
11712                        (("^(.*\n)$" line)
11713                         (if in-abstract-sockets-test?
11714                             "" ; delete
11715                             line))))))
11716                '()))))
11717     (inputs
11718      (list glib))
11719     (native-inputs
11720      `(("pkg-config" ,pkg-config)
11721        ,@(if (and=> (%current-target-system) target-aarch64?)
11722              `(("config" ,config))
11723              '())))
11724     (home-page "https://people.gnome.org/~veillard/gamin/")
11725     (synopsis "File alteration monitor")
11726     (description
11727      "Gamin is a file and directory monitoring system defined to be a subset
11728 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11729 library which detects when a file or a directory has been modified.")
11730     (license license:gpl2+)))
11731
11732 (define-public gnome-mahjongg
11733   (package
11734     (name "gnome-mahjongg")
11735     (version "3.38.3")
11736     (source (origin
11737               (method url-fetch)
11738               (uri (string-append "mirror://gnome/sources/" name "/"
11739                                   (version-major+minor version) "/" name "-"
11740                                   version ".tar.xz"))
11741               (sha256
11742                (base32
11743                 "144ia3zn9rhwa1xbdkvsz6m0dsysl6mxvqw9bnrlh845hmyy9cfj"))))
11744     (build-system meson-build-system)
11745     (arguments
11746      `(#:meson ,meson-0.59
11747        #:glib-or-gtk? #t))
11748     (native-inputs
11749      `(("appstream-glib" ,appstream-glib)
11750        ("gettext" ,gettext-minimal)
11751        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11752        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11753        ("itstool" ,itstool)
11754        ("pkg-config" ,pkg-config)
11755        ("vala" ,vala)))
11756     (propagated-inputs
11757      (list dconf))
11758     (inputs
11759      (list glib gtk+))
11760     (synopsis "Mahjongg tile-matching game")
11761     (description "GNOME Mahjongg is a game based on the classic Chinese
11762 tile-matching game Mahjongg.  It features multiple board layouts, tile themes,
11763 and a high score table.")
11764     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11765     (license license:gpl2+)))
11766
11767 (define-public gnome-themes-extra
11768   (package
11769     (name "gnome-themes-extra")
11770     (version "3.28")
11771     (source
11772      (origin
11773        (method url-fetch)
11774        (uri (string-append "mirror://gnome/sources/" name "/"
11775                            (version-major+minor version) "/" name "-"
11776                            version ".tar.xz"))
11777        (sha256
11778         (base32
11779          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11780     (build-system gnu-build-system)
11781     (arguments
11782      '(#:configure-flags
11783        ;; Don't create 'icon-theme.cache'.
11784        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11785               (true      (string-append coreutils "/bin/true")))
11786          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11787     (native-inputs
11788      `(("glib:bin" ,glib "bin")
11789        ("intltool" ,intltool)
11790        ("pkg-config" ,pkg-config)))
11791     (inputs
11792      `(("glib" ,glib)
11793        ("gtk+" ,gtk+)
11794        ("gtk+-2" ,gtk+-2)
11795        ("librsvg" ,librsvg)
11796        ("libxml2" ,libxml2)))
11797     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11798     (synopsis "GNOME Extra Themes")
11799     (description "This package provides themes and related elements that don't
11800 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11801 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11802 index files needed for Adwaita to be used outside of GNOME.")
11803     (license license:lgpl2.1+)))
11804
11805 (define-public gnome-themes-standard
11806   (deprecated-package "gnome-themes-standard" gnome-themes-extra))
11807
11808 (define-public gnote
11809   (package
11810     (name "gnote")
11811     (version "41.2")
11812     (source
11813      (origin
11814        (method url-fetch)
11815        (uri (string-append "mirror://gnome/sources/" name "/"
11816                            (version-major version)  "/"
11817                            "gnote-" version ".tar.xz"))
11818        (sha256
11819         (base32 "0gs2j988rwfrxckb8qxlkyxnvqsv30q32myqish6hssfa51yzc11"))))
11820     (build-system meson-build-system)
11821     (arguments
11822      `(#:glib-or-gtk? #t
11823        #:phases (modify-phases %standard-phases
11824                   (add-after 'unpack 'skip-gtk-update-icon-cache
11825                     ;; Don't create 'icon-theme.cache'.
11826                     (lambda _
11827                       (substitute* "post-install.py"
11828                         (("gtk-update-icon-cache") "true")))))))
11829     (native-inputs
11830      (list desktop-file-utils
11831            `(,glib "bin")
11832            gobject-introspection
11833            intltool
11834            itstool
11835            pkg-config
11836            python))
11837     (inputs
11838      (list glibmm
11839            gsettings-desktop-schemas
11840            gspell
11841            gtk+
11842            gtkmm-3
11843            libsecret
11844            `(,util-linux "lib")
11845            libxml2
11846            libxslt))
11847     (synopsis "Note-taking application for the GNOME desktop")
11848     (description "Gnote is a note-taking application written for the GNOME
11849 desktop environment.")
11850     (home-page "https://wiki.gnome.org/Apps/Gnote")
11851     (license license:gpl3+)))
11852
11853 (define-public polari
11854   (package
11855     (name "polari")
11856     (version "41.0")
11857     (source (origin
11858               (method url-fetch)
11859               (uri (string-append "mirror://gnome/sources/polari/"
11860                                   (version-major version)
11861                                   "/polari-" version ".tar.xz"))
11862               (sha256
11863                (base32
11864                 "1ss0x8idwar1q9p9535kzqb8idy7k2r48vrbjiyccw03cs0mzc53"))))
11865     (build-system meson-build-system)
11866     (arguments
11867      `(#:glib-or-gtk? #t
11868        #:phases
11869        (modify-phases %standard-phases
11870          (add-after 'unpack 'skip-gtk-update-icon-cache
11871            (lambda _
11872              (substitute* "meson/meson-postinstall.sh"
11873                (("gtk-update-icon-cache") (which "true")))))
11874          (add-after 'install 'fix-desktop-file
11875            ;; Hardcode launcher to be on the safe side
11876            (lambda* (#:key outputs #:allow-other-keys)
11877              (let ((out (assoc-ref outputs "out")))
11878                (substitute* (string-append out "/share/applications/"
11879                                            "org.gnome.Polari.desktop")
11880                  (("Exec=.*") (string-append "Exec=" out "/bin/polari\n"))))))
11881          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11882            (lambda* (#:key outputs #:allow-other-keys)
11883              (let ((prog (string-append (assoc-ref outputs "out")
11884                                         "/bin/polari")))
11885                (wrap-program prog
11886                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
11887     (inputs
11888      (list glib
11889            gsettings-desktop-schemas
11890            gspell
11891            gtk
11892            gjs
11893            libsecret
11894            libsoup-minimal-2
11895            telepathy-glib
11896            telepathy-logger))
11897     (native-inputs
11898      (list `(,glib "bin")
11899            gobject-introspection
11900            intltool
11901            pkg-config
11902            yelp-tools))
11903     (propagated-inputs
11904      (list telepathy-idle telepathy-mission-control))
11905     (synopsis "Simple IRC Client")
11906     (description
11907      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11908 integrate seamlessly with the GNOME desktop.")
11909     (home-page "https://wiki.gnome.org/Apps/Polari")
11910     (license license:gpl2+)))
11911
11912 (define-public gnome-boxes
11913   (package
11914     (name "gnome-boxes")
11915     (version "42.3")
11916     (source
11917      (origin
11918        (method url-fetch)
11919        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11920                            (version-major version) "/"
11921                            "gnome-boxes-" version ".tar.xz"))
11922        (sha256
11923         (base32 "1lv0bdh935qj6wkv3ixg2pcv8yrapj79z02gw4fal3rhz3xggvsn"))))
11924     (build-system meson-build-system)
11925     (arguments
11926      (list #:glib-or-gtk? #t
11927            #:configure-flags #~(list "-Drdp=false"
11928                                      (string-append "-Dc_link_args=-Wl,-rpath="
11929                                                     #$output
11930                                                     "/lib/gnome-boxes"))
11931            #:phases #~(modify-phases %standard-phases
11932                         (add-after 'unpack 'disable-gtk-update-icon-cache
11933                           (lambda _
11934                             (setenv "DESTDIR" "/"))))))
11935     (native-inputs
11936      (list desktop-file-utils           ;for update-desktop-database
11937            gettext-minimal
11938            `(,glib "bin")               ;for glib-compile-resources
11939            itstool
11940            pkg-config
11941            python
11942            vala))
11943     (inputs
11944      (list glib-networking              ;for TLS support
11945            gsettings-desktop-schemas
11946            gtk+
11947            gtk-vnc
11948            gtksourceview
11949            json-glib
11950            libarchive
11951            libgudev
11952            libhandy
11953            libosinfo
11954            libsecret
11955            libsoup-minimal-2
11956            libusb
11957            libvirt
11958            libvirt-glib
11959            libxml2
11960            sparql-query
11961            spice-gtk
11962            tracker
11963            vte
11964            webkitgtk-with-libsoup2))    ;for webkit2gtk-4.0
11965     (home-page "https://wiki.gnome.org/Apps/Boxes")
11966     (synopsis "View, access, and manage remote and virtual systems")
11967     (description "GNOME Boxes is a simple application to view, access, and
11968 manage remote and virtual systems.  Note that this application requires the
11969 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11970 @command{info '(guix) Virtualization Services'} to learn how to configure
11971 these services on the Guix System.")
11972     (license (list
11973               ;; For data/icons/empty-boxes.png.
11974               license:cc-by2.0
11975               ;; For all others.
11976               license:lgpl2.0+))))
11977
11978 (define-public geary
11979   (package
11980     (name "geary")
11981     (version "40.0")
11982     (source (origin
11983               (method git-fetch)
11984               (uri (git-reference
11985                     (url "https://gitlab.gnome.org/GNOME/geary.git")
11986                     (commit (string-append "gnome-" version))))
11987               (file-name (git-file-name name version))
11988               (sha256
11989                (base32
11990                 "04hvw86r8sczvjm1z3ls5y5y5h6nyfb648rjkfx05ib00mqq5v1x"))))
11991     (build-system meson-build-system)
11992     (arguments
11993      `(#:glib-or-gtk? #t
11994        #:configure-flags
11995        '("-Dprofile=release")
11996        #:phases (modify-phases %standard-phases
11997                   (add-after 'unpack 'disable-failing-tests
11998                     (lambda _
11999                       (substitute* "test/test-client.vala"
12000                         (("client.add_suite\\(new Application.CertificateManagerTest\\(\\).suite\\);")
12001                          ""))))
12002                   (add-after 'unpack 'generate-vapis
12003                     (lambda* (#:key inputs #:allow-other-keys)
12004                       ;; It’s not possible to generate the GMime vapi, because
12005                       ;; there’s custom metadata that gmime didn’t
12006                       ;; install. Thus, the vapi should be built and installed
12007                       ;; with gmime.
12008                       (define gmime
12009                         (assoc-ref inputs "gmime"))
12010                       (copy-file (string-append gmime "/share/vala/vapi/gmime-3.0.vapi")
12011                                  "bindings/vapi/gmime-3.0.vapi")))
12012                   (add-after 'unpack 'disable-postinstall-script
12013                     (lambda _
12014                       (substitute* "build-aux/post_install.py"
12015                         (("gtk-update-icon-cache")
12016                          "true"))))
12017                   (add-before 'check 'setup-home
12018                     (lambda _
12019                       ;; Tests require a writable HOME.
12020                       (setenv "HOME" (getcwd))))
12021                   (add-before 'check 'setup-xvfb
12022                     (lambda _
12023                       (system "Xvfb :1 &")
12024                       (setenv "DISPLAY" ":1"))))))
12025     (inputs
12026      (list enchant
12027            folks
12028            gcr
12029            glib
12030            gmime
12031            gnome-online-accounts
12032            gsettings-desktop-schemas
12033            gspell
12034            gsound
12035            gtk+
12036            iso-codes
12037            json-glib
12038            libcanberra
12039            libgee
12040            libhandy
12041            libpeas
12042            libsecret
12043            libstemmer
12044            libunwind
12045            sqlite
12046            webkitgtk-with-libsoup2
12047            ytnef))
12048     (native-inputs
12049      (list appstream-glib
12050            cmake-minimal
12051            desktop-file-utils
12052            gettext-minimal
12053            glib
12054            `(,glib "bin")
12055            gmime
12056            gobject-introspection
12057            gsettings-desktop-schemas
12058            itstool
12059            libarchive
12060            libxml2
12061            pkg-config
12062            python-minimal
12063            vala
12064            xorg-server-for-tests))
12065     (synopsis "GNOME email application built around conversations")
12066     (description
12067      "Geary collects related messages together into conversations,
12068 making it easy to find and follow your discussions.  Full-text and keyword
12069 search makes it easy to find the email you are looking for.  Geary's
12070 full-featured composer lets you send rich, styled text with images, links, and
12071 lists, but also send lightweight, easy to read text messages.  Geary
12072 automatically picks up your existing GNOME Online Accounts, and adding more is
12073 easy.  Geary has a clean, fast, modern interface that works like you want it
12074 to.")
12075     (home-page "https://wiki.gnome.org/Apps/Geary")
12076     (license (list
12077               ;; geary
12078               license:lgpl2.1+
12079               ;; icons
12080               license:cc-by3.0
12081               license:cc-by-sa3.0
12082               license:public-domain
12083               ;; snowball
12084               license:bsd-2))))
12085
12086 (define-public glabels
12087   (package
12088     (name "glabels")
12089     (version "3.4.1")
12090     (source
12091      (origin
12092        (method url-fetch)
12093        (uri (string-append "mirror://gnome/sources/" name "/"
12094                            (version-major+minor version)  "/"
12095                            "glabels-" version ".tar.xz"))
12096        (sha256
12097         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
12098     (build-system glib-or-gtk-build-system)
12099     (native-inputs
12100      `(("gettext" ,gettext-minimal)
12101        ("glib:bin" ,glib "bin")
12102        ("intltool" ,intltool)
12103        ("itstool" ,itstool)
12104        ("pkg-config" ,pkg-config)))
12105     (inputs
12106      (list gtk+ librsvg libxml2))
12107     (arguments
12108      `(#:configure-flags '("CFLAGS=-fcommon")))
12109     (home-page "https://glabels.org/")
12110     (synopsis "Program for creating labels and business cards")
12111     (description
12112      "gLabels is a program for creating labels and business cards.  It is
12113 designed to work with various laser/ink-jet peel-off label and business
12114 card sheets that you’ll find at most office supply stores.")
12115     (license license:gpl3+)))
12116
12117 (define-public gnome-latex
12118   (package
12119     (name "gnome-latex")
12120     (version "3.41.2")
12121     (source
12122      (origin
12123        (method url-fetch)
12124        (uri (string-append "mirror://gnome/sources/" name "/"
12125                            (version-major+minor version)  "/"
12126                            "gnome-latex-" version ".tar.xz"))
12127        (sha256
12128         (base32 "0cynhmrn99f4f3kddczsc58ak4b9sv2zkfbcyz7z16848nhz047k"))))
12129     (build-system glib-or-gtk-build-system)
12130     (native-inputs
12131      (list gettext-minimal
12132            `(,glib "bin")
12133            gobject-introspection
12134            gtk-doc/stable
12135            itstool
12136            pkg-config
12137            vala))
12138     (inputs
12139      (list dconf
12140            glib
12141            gspell
12142            libgee
12143            tepl
12144            uchardet))
12145     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
12146     (synopsis "LaTeX editor for the GNOME desktop")
12147     (description
12148      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
12149 such as build tools, completion of LaTeX commands, structure navigation,
12150 symbol tables, document templates, project management, spell-checking, menus
12151 and toolbars.")
12152     (license license:gpl3+)))
12153
12154 (define-public setzer
12155   (package
12156     (name "setzer")
12157     (version "0.4.1")
12158     (source
12159      (origin
12160        (method git-fetch)
12161        (uri (git-reference
12162              (url "https://github.com/cvfosammmm/Setzer")
12163              (commit (string-append "v" version))))
12164        (file-name (git-file-name name version))
12165        (sha256
12166         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
12167     (build-system meson-build-system)
12168     (arguments
12169      `(#:glib-or-gtk? #t
12170        #:phases
12171        (modify-phases %standard-phases
12172          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12173            (lambda* (#:key outputs #:allow-other-keys)
12174              (let ((prog (string-append (assoc-ref outputs "out")
12175                                         "/bin/setzer"))
12176                    (pylib (string-append (assoc-ref outputs "out")
12177                                          "/lib/python"
12178                                          ,(version-major+minor
12179                                            (package-version python))
12180                                          "/site-packages")))
12181                (wrap-program prog
12182                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12183                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12184                #t))))))
12185     (native-inputs
12186      `(("desktop-file-utils" ,desktop-file-utils)
12187        ("gettext" ,gettext-minimal)
12188        ("glib:bin" ,glib "bin")
12189        ("gobject-introspection" ,gobject-introspection)
12190        ("gtk+:bin" ,gtk+ "bin")
12191        ("python-wrapper" ,python-wrapper)))
12192     (inputs
12193      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12194        ("gspell" ,gspell)
12195        ("gtk+" ,gtk+)
12196        ("gtksourceview" ,gtksourceview)
12197        ("pango" ,pango)
12198        ("poppler" ,poppler)
12199        ("python-pdfminer" ,python-pdfminer-six)
12200        ("python-pycairo" ,python-pycairo)
12201        ("python-pygobject" ,python-pygobject)
12202        ("python-pyxdg" ,python-pyxdg)
12203        ("webkitgtk" ,webkitgtk)
12204        ("xdg-utils" ,xdg-utils)))
12205     (home-page "https://www.cvfosammmm.org/setzer/")
12206     (synopsis "LaTeX editor written in Python with GTK+")
12207     (description
12208      "Setzer is a simple yet full-featured LaTeX editor written in Python with
12209 GTK+.  It integrates well with the GNOME desktop environment.")
12210     (license license:gpl3+)))
12211
12212 (define-public apostrophe
12213   (package
12214     (name "apostrophe")
12215     (version "2.5")
12216     (source (origin
12217               (method git-fetch)
12218               (uri (git-reference
12219                     (url "https://gitlab.gnome.org/somas/apostrophe")
12220                     (commit (string-append "v" version))))
12221               (file-name (git-file-name name version))
12222               (sha256
12223                (base32
12224                 "06yfiflmj3ip7ppcz41nb3xpgb5ggw5h74w0v87yaqqkq7qh31lp"))))
12225     (build-system meson-build-system)
12226     (arguments
12227      `(#:glib-or-gtk? #t
12228        #:meson ,meson-0.59              ;fails with 0.60
12229        #:phases
12230        (modify-phases %standard-phases
12231          (add-after 'unpack 'patch-meson
12232            (lambda _
12233              (substitute* "build-aux/meson_post_install.py"
12234                (("gtk-update-icon-cache") "true"))))
12235          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12236            (lambda* (#:key inputs outputs #:allow-other-keys)
12237              (let ((prog (string-append (assoc-ref outputs "out")
12238                                         "/bin/apostrophe"))
12239                    (pylib (string-append (assoc-ref outputs "out")
12240                                          "/lib/python"
12241                                          ,(version-major+minor
12242                                            (package-version
12243                                             (this-package-input "python")))
12244                                          "/site-packages")))
12245                (wrap-program prog
12246                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12247                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
12248                  `("PATH" prefix (,(dirname
12249                                     (search-input-file inputs
12250                                                        "/bin/pandoc")))))))))))
12251     (inputs
12252      (list glib
12253            gobject-introspection
12254            gspell
12255            gtk+
12256            libhandy
12257            pandoc
12258            python
12259            python-chardet
12260            python-levenshtein
12261            python-regex
12262            python-pycairo
12263            python-pygobject
12264            python-pyenchant
12265            python-pypandoc
12266            webkitgtk-with-libsoup2))
12267     (native-inputs
12268      (list gettext-minimal
12269            `(,glib "bin")
12270            pkg-config
12271            sassc))
12272     (home-page "https://gitlab.gnome.org/somas/apostrophe")
12273     (synopsis "Markdown editor written in Python with GTK+")
12274     (description "Apostrophe is a GTK+ based distraction-free Markdown editor.
12275 It uses pandoc as back-end for parsing Markdown.")
12276     (license license:gpl3)))
12277
12278 (define-public libratbag
12279   (package
12280     (name "libratbag")
12281     (version "0.16")
12282     (source
12283      (origin
12284        (method git-fetch)
12285        (uri (git-reference
12286              (url "https://github.com/libratbag/libratbag")
12287              (commit (string-append "v" version))))
12288        (file-name (git-file-name name version))
12289        (sha256
12290         (base32 "0jjf6xc3a37icp5dvbxla3ai9is2ns31m0llbfq1bmb6dk8cd4n0"))))
12291     (build-system meson-build-system)
12292     (arguments
12293      `(#:configure-flags
12294        (list "-Dsystemd=false"
12295              "-Dlogind-provider=elogind"
12296              ,@(if (not (package? (this-package-native-input "valgrind")))
12297                  `("-Dtests=false")     ; Some tests still run.
12298                  `()))
12299        #:phases
12300        (modify-phases %standard-phases
12301          (add-after 'install 'wrap
12302            (lambda* (#:key inputs outputs #:allow-other-keys)
12303              (let* ((out (assoc-ref outputs "out"))
12304                     (site (string-append
12305                            "/lib/python"
12306                            ,(version-major+minor (package-version python))
12307                            "/site-packages"))
12308                     (evdev (string-append
12309                             (assoc-ref inputs "python-evdev") site))
12310                     (pygo (string-append
12311                            (assoc-ref inputs "python-pygobject") site))
12312                     (python-wrap
12313                      `("GUIX_PYTHONPATH" = (,evdev ,pygo))))
12314                (wrap-program (string-append out "/bin/" "ratbagctl")
12315                  python-wrap)
12316                #t))))))
12317     (native-inputs
12318      (append
12319        (list check pkg-config swig)
12320        (if (member (%current-system) (package-supported-systems valgrind))
12321          (list valgrind)
12322          '())))
12323     (inputs
12324      `(("glib" ,glib)
12325        ("json-glib" ,json-glib)
12326        ("libevdev" ,libevdev)
12327        ("libsystemd" ,elogind)
12328        ("libunistring" ,libunistring)
12329        ("python" ,python)
12330        ("python-evdev" ,python-evdev)
12331        ("python-pygobject" ,python-pygobject)
12332        ("udev" ,eudev)))
12333     (home-page "https://github.com/libratbag/libratbag")
12334     (synopsis "DBus daemon and utility for configuring gaming mice")
12335     (description "libratbag provides @command{ratbagd}, a DBus daemon to
12336 configure input devices, mainly gaming mice.  The daemon provides a generic
12337 way to access the various features exposed by these mice and abstracts away
12338 hardware-specific and kernel-specific quirks.  There is also the
12339 @command{ratbagctl} command line interface for configuring devices.
12340
12341 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
12342 Steelseries.
12343
12344 The ratbagd DBus service can be enabled by adding the following service to
12345 your operating-system definition:
12346
12347   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12348     (license license:expat)))
12349
12350 (define-public piper
12351   (package
12352     (name "piper")
12353     (version "0.7")
12354     (source
12355      (origin
12356        (method git-fetch)
12357        (uri (git-reference
12358              (url "https://github.com/libratbag/piper")
12359              (commit version)))
12360        (sha256
12361         (base32 "0jsvfy0ihdcgnqljfgs41lys1nlz18qvsa0a8ndx3pyr41f8w8wf"))
12362        (file-name (git-file-name name version))))
12363     (build-system meson-build-system)
12364     (native-inputs
12365      (list appstream
12366            gettext-minimal
12367            `(,glib "bin")
12368            gobject-introspection
12369            pkg-config
12370            python-flake8))
12371     (inputs
12372      (list adwaita-icon-theme
12373            gtk+
12374            `(,gtk+ "bin")
12375            libratbag
12376            python
12377            python-evdev
12378            python-lxml
12379            python-pycairo
12380            python-pygobject))
12381     (arguments
12382      (list #:glib-or-gtk? #t
12383            #:phases
12384            #~(modify-phases %standard-phases
12385                (add-after 'unpack 'dont-update-gtk-icon-cache
12386                  (lambda _
12387                    (substitute* "meson.build"
12388                      (("meson.add_install_script('meson_install.sh')") ""))))
12389                (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12390                  (lambda _
12391                    (let ((pylib (string-append #$output
12392                                                "/lib/python"
12393                                                #$(version-major+minor
12394                                                   (package-version python))
12395                                                "/site-packages")))
12396                      (wrap-program
12397                          (string-append #$output "/bin/piper")
12398                        `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12399                        `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))
12400                (add-before 'check 'flake8-config
12401                  (lambda _
12402                    ;; Make sure the tests use the local flake8 config
12403                    (symlink (string-append #$source "/.flake8") ".flake8"))))))
12404     (home-page "https://github.com/libratbag/piper/")
12405     (synopsis "Configure bindings and LEDs on gaming mice")
12406     (description "Piper is a GTK+ application for configuring gaming mice with
12407 onboard configuration for key bindings via libratbag.  Piper requires
12408 a @command{ratbagd} daemon running with root privileges.  It can be run
12409 manually as root, but is preferably configured as a DBus service that can
12410 launch on demand.  This can be configured by enabling the following service,
12411 provided there is a DBus service present:
12412
12413   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12414     (license license:gpl2)))
12415
12416 (define-public parlatype
12417   (package
12418     (name "parlatype")
12419     (version "3.1")
12420     (source
12421      (origin
12422        (method git-fetch)
12423        (uri (git-reference
12424              (url "https://github.com/gkarsay/parlatype")
12425              (commit (string-append "v" version))))
12426        (file-name (git-file-name name version))
12427        (sha256
12428         (base32 "0cqrzbkyksfsm57riirmjkwf2nf2dgl1xpps1wvqxpij475qcb9b"))))
12429     (build-system meson-build-system)
12430     (arguments
12431      `(#:glib-or-gtk? #t
12432        #:tests? #f                      ;require internet access
12433        #:phases
12434        (modify-phases %standard-phases
12435          (add-after 'unpack 'skip-gtk-update-icon-cache
12436            (lambda _
12437              (substitute* "data/meson_post_install.py"
12438                (("gtk-update-icon-cache") "true"))))
12439          (add-after 'install 'wrap-parlatype
12440            ;; Add gstreamer plugin provided in this package to system's
12441            ;; plugins.
12442            (lambda* (#:key outputs #:allow-other-keys)
12443              (let* ((out (assoc-ref outputs "out"))
12444                     (gst-plugin-path (string-append
12445                                       out "/lib/gstreamer-1.0/"
12446                                       ":"
12447                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
12448                (wrap-program (string-append out "/bin/parlatype")
12449                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path)))))))))
12450     (native-inputs
12451      (list appstream-glib
12452            desktop-file-utils           ;for desktop-file-validate
12453            gettext-minimal
12454            `(,glib "bin")               ;for glib-compile-resources
12455            pkg-config
12456            yelp-tools))
12457     (inputs
12458      (list gst-plugins-base
12459            gst-plugins-good
12460            gstreamer
12461            gtk+
12462            iso-codes
12463            pocketsphinx
12464            pulseaudio
12465            sphinxbase))
12466     (home-page "https://www.parlatype.org")
12467     (synopsis "GNOME audio player for transcription")
12468     (description "Parlatype is an audio player for the GNOME desktop
12469 environment.  Its main purpose is the manual transcription of spoken
12470 audio files.")
12471     (license license:gpl3+)))
12472
12473 (define-public jsonrpc-glib
12474   (package
12475     (name "jsonrpc-glib")
12476     (version "3.34.0")
12477     (source (origin
12478               (method url-fetch)
12479               (uri (string-append "mirror://gnome/sources/" name "/"
12480                                   (version-major+minor version) "/"
12481                                    name "-" version ".tar.xz"))
12482               (sha256
12483                (base32
12484                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
12485     (build-system meson-build-system)
12486     (inputs
12487      (list json-glib glib))
12488     (native-inputs
12489      (list pkg-config
12490            `(,glib "bin") ; for glib-genmarshal, etc.
12491            gobject-introspection vala))
12492     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
12493     (synopsis "JSON-RPC library for GLib")
12494     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
12495 peers in either a synchronous or asynchronous fashion.  It also allows
12496 communicating using the GVariant serialization format instead of JSON when
12497 both peers support it.  You might want that when communicating on a single
12498 host to avoid parser overhead and memory-allocator fragmentation.")
12499     (license license:lgpl2.1+)))
12500
12501 (define-public feedbackd
12502   (package
12503     (name "feedbackd")
12504     (version "0.0.0+git20200527")
12505     (source (origin
12506               (method git-fetch)
12507               (uri (git-reference
12508                     (url "https://source.puri.sm/Librem5/feedbackd.git")
12509                     (commit (string-append "v" version))))
12510               (file-name (git-file-name name version))
12511               (sha256
12512                (base32
12513                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
12514     (build-system meson-build-system)
12515     (native-inputs
12516      (list `(,glib "bin") gobject-introspection pkg-config vala))
12517     (inputs
12518      (list dbus gsound json-glib libgudev))
12519     (propagated-inputs
12520      (list glib)) ; in Requires of libfeedback-0.0.pc
12521     (synopsis "Haptic/visual/audio feedback via DBus")
12522     (description "Feedbackd provides a DBus daemon to act on events to provide
12523 haptic, visual and audio feedback.  It offers the libfeedbackd library and
12524 GObject introspection bindings.")
12525      (home-page "https://source.puri.sm/Librem5/feedbackd")
12526      (license (list license:lgpl2.1+   ; libfeedbackd
12527                     license:lgpl3+)))) ; the rest
12528
12529 (define-public sysprof
12530   (package
12531     (name "sysprof")
12532     (version "3.44.0")
12533     (source
12534      (origin
12535        (method url-fetch)
12536        (uri (string-append "mirror://gnome/sources/sysprof/"
12537                            (version-major+minor version) "/"
12538                            "sysprof-" version ".tar.xz"))
12539        (sha256
12540         (base32 "0nq0icbln0ryqzlybr7wyl19mhr3vkqzs6wasn430fwpf5drypdb"))))
12541     (build-system meson-build-system)
12542     (arguments
12543      (list
12544       #:configure-flags
12545       #~(list (string-append "-Dsystemdunitdir=" #$output "/share/systemd"))
12546       #:phases
12547       #~(modify-phases %standard-phases
12548           (add-after 'unpack 'patch-install-script
12549             (lambda _
12550               (substitute* "build-aux/meson/post_install.sh"
12551                 (("gtk-update-icon-cache") "true")
12552                 (("update-desktop-database") "true")))))))
12553     (propagated-inputs
12554      (list polkit))
12555     (inputs
12556      (list glib
12557            gtk+
12558            json-glib
12559            libdazzle
12560            libunwind
12561            polkit))
12562     (native-inputs
12563      (list gettext-minimal
12564            `(,glib "bin")               ;for gdbus-codegen, etc.
12565            itstool
12566            pkg-config
12567            libxml2))
12568     ;; This home page is so woefully out of date as to be essentially useless.
12569     ;; (home-page "http://www.sysprof.com")
12570     (home-page "https://wiki.gnome.org/Apps/Sysprof")
12571     (synopsis "System-wide performance profiler for GNU/Linux")
12572     (description
12573      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
12574 GNU/Linux system including the kernel and all user-space applications.  This
12575 helps find the function(s) in which a program spends most of its time.
12576
12577 It uses the kernel's built-in @code{ptrace} feature and handles shared
12578 libraries.  Applications do not need to be recompiled--or even restarted.")
12579     (license license:gpl3+)))
12580
12581 (define-public gnome-builder
12582   (package
12583     (name "gnome-builder")
12584     (version "41.2")
12585     (source (origin
12586               (method url-fetch)
12587               (uri (string-append "mirror://gnome/sources/" name "/"
12588                                   (version-major version) "/"
12589                                   name "-" version ".tar.xz"))
12590               (sha256
12591                (base32
12592                 "04p031i999dccbnlbysmr6f93x7dji7b559j6yhdsqbqgxb7ncan"))
12593               (patches
12594                (search-patches "gnome-builder-update-libportal.patch"))))
12595     (build-system meson-build-system)
12596     (arguments
12597      (list
12598       #:glib-or-gtk? #t ;To wrap binaries and compile schemas
12599       #:configure-flags
12600       #~(list "-Dnetwork_tests=false"
12601               ;; TODO: Enable all plugins...
12602               ;; Flatpak plugin wants libsoup 2
12603               "-Dplugin_flatpak=false"
12604               ;; ... except this one.
12605               "-Dplugin_update_manager=false")
12606       #:phases
12607       #~(modify-phases %standard-phases
12608           (add-after 'unpack 'patch-meson
12609             (lambda* (#:key inputs #:allow-other-keys)
12610               (substitute* "build-aux/meson/post_install.py"
12611                 (("gtk-update-icon-cache") "true")
12612                 (("update-desktop-database") "true"))
12613               (substitute* "src/libide/meson.build"
12614                 (("/usr/lib") (string-append (assoc-ref inputs
12615                                                         "python-pygobject")
12616                                              "/lib")))))
12617           (add-after 'configure 'fix-ninja
12618             (lambda _
12619               ;; #43296: meson(?) incorrectly assumes we want to link
12620               ;; this PIE against a static libselinux.
12621               (substitute* "build.ninja"
12622                 (("libselinux\\.a") "libselinux.so"))))
12623           (add-before 'check 'pre-check
12624             (lambda _
12625               (system "Xvfb :1 &")
12626               (setenv "DISPLAY" ":1"))))))
12627     (inputs (list cmark
12628                   clang
12629                   devhelp-with-libsoup2
12630                   glade3
12631                   gspell
12632                   gtk+
12633                   json-glib
12634                   jsonrpc-glib
12635                   libdazzle
12636                   libgit2-glib
12637                   libpeas
12638                   libportal
12639                   libsoup-minimal-2
12640                   llvm
12641                   python
12642                   python-pygobject
12643                   sysprof
12644                   template-glib
12645                   vte
12646                   webkitgtk-with-libsoup2))
12647     (propagated-inputs (list gtksourceview)) ; needed for settings
12648     (native-inputs (list desktop-file-utils  ; for desktop-file-validate
12649                          `(,glib "bin")
12650                          gettext-minimal
12651                          pkg-config
12652                          python              ; for meson scripts
12653                          vala
12654                          xorg-server-for-tests))
12655     (home-page "https://wiki.gnome.org/Apps/Builder")
12656     (synopsis "Toolsmith for GNOME-based applications")
12657     (description
12658      "Builder aims to be an integrated development environment (IDE) for
12659 writing GNOME-based software.  It features fuzzy search, auto-completion,
12660 a mini code map, documentation browsing, Git integration, an integrated
12661 profiler via Sysprof, debugging support, and more.")
12662     (license license:gpl3+)))
12663
12664 (define-public komikku
12665   (package
12666     (name "komikku")
12667     (version "0.41.0")
12668     (source
12669      (origin
12670        (method git-fetch)
12671        (uri (git-reference
12672              (url "https://gitlab.com/valos/Komikku/")
12673              (commit (string-append "v" version))))
12674        (file-name (git-file-name name version))
12675        (sha256
12676         (base32
12677          "17r059srxrx26w40swy47pdpyigyjdczp8550g4rfh86qs3ld4il"))))
12678     (build-system meson-build-system)
12679     (arguments
12680      `(#:glib-or-gtk? #t
12681        #:phases
12682        (modify-phases %standard-phases
12683          (add-after 'unpack 'patch-sources
12684            (lambda _
12685              (substitute* "komikku/utils.py"
12686                (("from komikku\\.servers import get_servers_list")
12687                 ;; code following that line should migrate old databases
12688                 ;; but the line itself results in an import error
12689                 "return data_dir_path"))))
12690          (add-after 'unpack 'skip-gtk-update-icon-cache
12691            (lambda _
12692              (substitute* "meson_post_install.py"
12693                (("gtk-update-icon-cache") (which "true")))
12694              #t))
12695          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12696           (lambda* (#:key outputs #:allow-other-keys)
12697             (let ((prog (string-append (assoc-ref outputs "out")
12698                                        "/bin/komikku")))
12699               (wrap-program prog
12700                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
12701                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12702               #t))))))
12703     (inputs
12704      (list gtk+
12705            libhandy
12706            libnotify
12707            libsecret
12708            python
12709            python-beautifulsoup4
12710            python-brotli
12711            python-cloudscraper
12712            python-dateparser
12713            python-keyring
12714            python-lxml
12715            python-magic
12716            python-natsort
12717            python-pillow
12718            python-pure-protobuf
12719            python-pycairo
12720            python-pygobject
12721            python-requests
12722            python-unidecode
12723            webkitgtk-with-libsoup2))
12724     (native-inputs
12725      (list desktop-file-utils
12726            gettext-minimal
12727            `(,glib "bin")
12728            gobject-introspection
12729            pkg-config))
12730     (home-page "https://gitlab.com/valos/Komikku")
12731     (synopsis "Manga reader for GNOME")
12732     (description "Komikku is an online/offline manga reader for GNOME,
12733 developed with the aim of being used with the Librem 5 phone.")
12734     (license license:gpl3+)))
12735
12736 (define-public libgda
12737   (package
12738     (name "libgda")
12739     (version "6.0.0")
12740     (source
12741      (origin
12742        (method url-fetch)
12743        (uri (string-append "mirror://gnome/sources/" name "/"
12744                            (version-major+minor version) "/"
12745                            name "-" version ".tar.xz"))
12746        (sha256
12747         (base32 "0w564z7krgjk19r39mi5qn4kggpdg9ggbyn9pb4aavb61r14npwr"))
12748        (patches (search-patches "libgda-cve-2021-39359.patch"
12749                                 "libgda-fix-build.patch"
12750                                 "libgda-fix-missing-initialization.patch"
12751                                 "libgda-skip-postgresql-tests.patch"))))
12752     (build-system meson-build-system)
12753     (native-inputs
12754      (list intltool
12755            iso-codes
12756            `(,glib "bin")
12757            gnome-common
12758            gettext-minimal
12759            gobject-introspection
12760            gtk-doc/stable
12761            pkg-config
12762            python
12763            vala
12764            yelp-tools))
12765     (inputs
12766      (list json-glib
12767            glib
12768            glade3
12769            gtk+
12770            libsecret
12771            libxslt
12772            openssl
12773            sqlite
12774            vala))
12775     (propagated-inputs
12776      (list libxml2))                    ; required by libgda-5.0.pc
12777     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12778     (synopsis "Uniform data access")
12779     (description
12780      "GNU Data Access (GDA) is an attempt to provide uniform access to
12781 different kinds of data sources (databases, information servers, mail spools,
12782 etc).  It is a complete architecture that provides all you need to access
12783 your data.")
12784     (license license:lgpl2.1+)))
12785
12786 (define-public gtranslator
12787   (package
12788     (name "gtranslator")
12789     (version "42.0")
12790     (source (origin
12791               (method url-fetch)
12792               (uri (string-append "mirror://gnome/sources/" name "/"
12793                                   (version-major version) "/"
12794                                   name "-" version ".tar.xz"))
12795               (sha256
12796                (base32
12797                 "0fzi48s3wz9mf6c1ndpkby83bgshgn2116nqjq31n1j3wszvqrra"))))
12798     (build-system meson-build-system)
12799     (arguments
12800      (list #:build-type "release"   ;otherwise it tries to fetch stuff via git
12801            #:glib-or-gtk? #t
12802            #:phases
12803            #~(modify-phases %standard-phases
12804                (add-after 'unpack 'skip-gtk-update-icon-cache
12805                  (lambda _
12806                    (substitute* "build-aux/meson/meson_post_install.py"
12807                      (("gtk-update-icon-cache") (which "true"))))))))
12808     (native-inputs
12809      (list `(,glib-next "bin")
12810            gettext-minimal
12811            itstool
12812            pkg-config))
12813     (inputs
12814      (list json-glib
12815            jsonrpc-glib
12816            gettext-minimal
12817            glib-next
12818            gsettings-desktop-schemas
12819            gspell
12820            libgda
12821            libhandy
12822            libsoup
12823            pango-next))
12824     (propagated-inputs
12825      (list gtksourceview-4))              ; required for source view
12826     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12827     (synopsis "Translation making program")
12828     (description
12829      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12830 for the GNOME 3.x platform with many features.  It aims to be a very complete
12831 editing environment for translation issues within the GNU gettext/GNOME desktop
12832 world.")
12833     (license license:gpl3+)))
12834
12835
12836 (define-public ocrfeeder
12837   (package
12838     (name "ocrfeeder")
12839     (version "0.8.5")
12840     (source (origin
12841               (method url-fetch)
12842               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12843                                   (version-major+minor version) "/"
12844                                   "ocrfeeder-" version ".tar.xz"))
12845               (sha256
12846                (base32
12847                 "1vaaphzk6zn7pp2x9scphdzlbsma910wnbhd9xry50nx95cjlgdh"))))
12848     (build-system gnu-build-system)
12849     (arguments
12850      `(#:phases
12851        (modify-phases %standard-phases
12852          (add-after
12853           'install 'wrap-program
12854           (lambda* (#:key outputs #:allow-other-keys)
12855             (let ((prog (string-append (assoc-ref outputs "out")
12856                                        "/bin/" "ocrfeeder"))
12857                   (pylib (string-append (assoc-ref outputs "out")
12858                                         "/lib/python"
12859                                         ,(version-major+minor
12860                                           (package-version python))
12861                                         "/site-packages")))
12862               (wrap-program prog
12863                 `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12864                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
12865     (native-inputs
12866      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12867        ("gobject-introspection" ,gobject-introspection)
12868        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12869        ("intltool" ,intltool)
12870        ("itstool" ,itstool)
12871        ("pkg-config" ,pkg-config)
12872        ("xmllint" ,libxml2)))
12873     (inputs
12874      `(("enchant" ,enchant)
12875        ("glib" ,glib)
12876        ("goocanvas" ,goocanvas)
12877        ("gtk" ,gtk+)
12878        ("gtkspell3" ,gtkspell3)
12879        ("libjpeg" ,libjpeg-turbo)
12880        ("libtiff" ,libtiff)
12881        ("libraw" ,libraw)
12882        ("ocrad" ,ocrad)
12883        ("python" ,python-wrapper)
12884        ("python-pygobject" ,python-pygobject)
12885        ("python-odfpy" ,python-odfpy)
12886        ("python-pillow" ,python-pillow)
12887        ("python-pyenchant" ,python-pyenchant)
12888        ("python-reportlab" ,python-reportlab)
12889        ("python-sane" ,python-sane)
12890        ("sane-backends" ,sane-backends)
12891        ("tesseract-ocr" ,tesseract-ocr)))
12892     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12893     (synopsis "Complete OCR Suite")
12894     (description "OCRFeeder is a complete Optical Character Recognition and
12895 Document Analysis and Recognition program.")
12896     (license license:gpl3+)))
12897
12898 (define-public libadwaita
12899   (package
12900     (name "libadwaita")
12901     (version "1.2.rc")
12902     (source (origin
12903               (method url-fetch)
12904               (uri (string-append "mirror://gnome/sources/libadwaita/"
12905                                   (version-major+minor version) "/"
12906                                   "libadwaita-" version ".tar.xz"))
12907               (sha256
12908                (base32
12909                 "1syg7fkpcsw0q6fy3g79myb9m9bvrnh3rjrm6g4bfg1pnlqf1w22"))))
12910     (build-system meson-build-system)
12911     (arguments
12912      `(#:phases
12913        (modify-phases %standard-phases
12914          (add-before 'check 'pre-check
12915            (lambda* (#:key inputs #:allow-other-keys)
12916              ;; Tests require a running X server.
12917              (system "Xvfb :1 &")
12918              (setenv "DISPLAY" ":1"))))))
12919     (native-inputs
12920      (list gettext-minimal
12921            `(,glib "bin")
12922            gobject-introspection
12923            gtk-doc/stable
12924            pkg-config
12925            sassc
12926            vala
12927            xorg-server-for-tests))
12928     (propagated-inputs
12929      (list gtk))                        ;libadwaita-1.pc 'Requires' it
12930     (home-page "https://gnome.pages.gitlab.gnome.org/libadwaita/")
12931     (synopsis "Building blocks for GNOME applications")
12932     (description
12933      "@code{libadwaita} offers widgets and objects to build GNOME
12934 applications scaling from desktop workstations to mobile phones.  It is the
12935 successor of @code{libhandy} for GTK4.")
12936     (license license:lgpl2.1+)))
12937
12938 (define-public gnome-power-manager
12939   (package
12940     (name "gnome-power-manager")
12941     (version "3.32.0")
12942     (source (origin
12943               (method url-fetch)
12944               (uri (string-append "mirror://gnome/sources/" name "/"
12945                                   (version-major+minor version) "/"
12946                                   name "-" version ".tar.xz"))
12947               (sha256
12948                (base32
12949                 "0drfn3wcc8l4n07qwv6p0rw2dwcd00hwzda282q62l6sasks2b2g"))))
12950     (build-system meson-build-system)
12951     (inputs
12952      (list upower gtk+ gsettings-desktop-schemas adwaita-icon-theme))
12953     (native-inputs
12954      (list desktop-file-utils
12955            `(,glib "bin") gettext-minimal pkg-config))
12956     (home-page "https://gitlab.gnome.org/GNOME/gnome-power-manager")
12957     (synopsis "Power management daemon for the GNOME desktop")
12958     (description "@code{gnome-power-manager} is a tool for viewing present and
12959 historical battery usage and related statistics.")
12960     (license license:gpl2)))
12961
12962 (define-public xffm+
12963   (package
12964     (name "xffm+")
12965     (version "0.94")
12966     (source (origin
12967               (method url-fetch)
12968               (uri (string-append "mirror://sourceforge/xffm/xffm+/xffm+-"
12969                                   version ".tar.bz2"))
12970               (sha256
12971                (base32
12972                 "0gwbgmjzlgv9ba95cgaigjnc9njzi7qznhvzp0qrnnlq3nbcm1k1"))))
12973     (build-system cmake-build-system)
12974     (arguments
12975      `(#:tests? #f ; No tests exist
12976        #:configure-flags
12977        (let ((shared-mime-info (assoc-ref %build-inputs "shared-mime-info"))
12978              (out (assoc-ref %outputs "out")))
12979          (list (string-append "-DFREEDESKTOP_GLOBS=" shared-mime-info
12980                               "/share/mime/globs")
12981                (string-append "-DFREEDESKTOP_ALIAS=" shared-mime-info
12982                               "/share/mime/aliases")
12983                (string-append "-DFREEDESKTOP_ICONS=" shared-mime-info
12984                               "/share/mime/generic-icons")
12985                (string-append "-DCMAKE_INSTALL_PREFIX=" out)
12986                (string-append "-DPREFIX_BIN=" out "/bin")))
12987        #:phases
12988        (modify-phases %standard-phases
12989          (add-after 'unpack 'patch-installation-destination
12990            (lambda* (#:key outputs #:allow-other-keys)
12991              (substitute* "CMakeLists.txt"
12992               ;; This is done so we can override.
12993               (("^set.CMAKE_INSTALL_PREFIX") "set(QCMAKE_INSTALL_PREFIX")
12994               ;; This is done so we can override.
12995               (("`set.PREFIX_BIN") "set(QPREFIX_BIN")))))))
12996     (native-inputs
12997      (list cmake pkg-config intltool gnu-gettext))
12998     (inputs
12999      (list glib gtk+ libx11 libsm libxv libxaw libxcb libxkbfile
13000            shared-mime-info))
13001     (synopsis "File manager")
13002     (description "This package provides a graphical file manager.")
13003     (home-page "http://xffm.org/")
13004     (license license:gpl3+)
13005     (properties '((upstream-name . "xffm")))))